[Sbcl-commits] CVS: sbcl/tests fopcompiler.impure-cload.lisp, 1.1, 1.2

[Juho S. <js...@us...>]

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))