Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3593/tests
Modified Files:
fopcompiler.impure-cload.lisp
Log Message:
1.0.2.19: Fix fopcompiling references to undefined variables
* While undefined, this should be handled the same way in the compiler
and the fopcompiler
* Signal a warning, use the symbol-value of the slot
* Reported by Gregory Vanuxem on sbcl-devel
Index: fopcompiler.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/fopcompiler.impure-cload.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- fopcompiler.impure-cload.lisp 15 Jan 2007 21:05:43 -0000 1.1
+++ fopcompiler.impure-cload.lisp 6 Feb 2007 18:24:56 -0000 1.2
@@ -78,3 +78,6 @@
(let* ((a 13)
(b a))
(assert* (eql b 13)))))
+
+(setf (symbol-value 'fopcompile-test-foo) 1)
+(assert* (eql fopcompile-test-foo 1))
|