X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ffopcompiler.impure-cload.lisp;h=7b117a83de3c27a7edff0cbeac6d8b8c7708ce74;hb=7e24349c17298e2959e853ea411b5f65d9f7f332;hp=b4f58fba3ba33d5f362dc36d641b6850b4d8efef;hpb=b7ec0e2b9f51e41c924c254b837cf64d115567df;p=sbcl.git

diff --git a/tests/fopcompiler.impure-cload.lisp b/tests/fopcompiler.impure-cload.lisp
index b4f58fb..7b117a8 100644
--- a/tests/fopcompiler.impure-cload.lisp
+++ b/tests/fopcompiler.impure-cload.lisp
@@ -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))