Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv10001/src/compiler
Modified Files:
ir1tran.lisp
Log Message:
0.7.4.6:
fixed bug 169 as per David Lichteblau sbcl-devel 2002-05-21
Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- ir1tran.lisp 19 May 2002 13:55:32 -0000 1.78
+++ ir1tran.lisp 29 May 2002 15:51:25 -0000 1.79
@@ -1187,7 +1187,6 @@
:where-from (leaf-where-from specvar)
:specvar specvar)))
(t
- (note-lexical-binding name)
(make-lambda-var :%source-name name)))))
;;; Make the default keyword for a &KEY arg, checking that the keyword
|