X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.pure.lisp;h=1a4fc7d23a2cf212a4e1d53e548594e71212f83e;hb=9bdd2579f980573a74daabe03120ed64b1733b11;hp=624feebd6a92df13f13f11b9635d2de128c4c750;hpb=c4328785e9e1bd3538ee8d32fa27118ccf7eb388;p=sbcl.git

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 624feeb..1a4fc7d 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -4371,10 +4371,15 @@
                              (sb-c::mask-signed-field 31 (- x 1055131947))))))
     (assert (= (funcall fun 10038) -1055121909))))
 
-(with-rest (:name :first-open-coded)
+(with-test (:name :first-open-coded)
   (let ((fun (compile nil `(lambda (x) (first x)))))
     (assert (not (ctu:find-named-callees fun)))))
 
-(with-rest (:name :second-open-coded)
+(with-test (:name :second-open-coded)
   (let ((fun (compile nil `(lambda (x) (second x)))))
     (assert (not (ctu:find-named-callees fun)))))
+
+(with-test (:name :svref-of-symbol-macro)
+  (compile nil `(lambda (x)
+                  (symbol-macrolet ((sv x))
+                    (values (svref sv 0) (setf (svref sv 0) 99))))))