1.0.4.60: More efficient structure raw slot accessors on x86-64

[sbcl.git] / tests / fopcompiler.impure-cload.lisp

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