X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsetf.impure.lisp;fp=tests%2Fsetf.impure.lisp;h=677318aa668d80d26b88dd5b02ab85287cf9e552;hb=f7ed7e78e455b9a17b902aa030ce897afbe70d71;hp=b6b7d2f288a562639989fbe92b34567769f3dc1a;hpb=56b6d13d2758753d18a7413aa14ea25d025cf13e;p=sbcl.git

diff --git a/tests/setf.impure.lisp b/tests/setf.impure.lisp
index b6b7d2f..677318a 100644
--- a/tests/setf.impure.lisp
+++ b/tests/setf.impure.lisp
@@ -92,7 +92,7 @@
 
 ;;; Not required by the spec, but allowes compiler-macros for SETF-functiosn
 ;;; to see their constant argument forms.
-(with-test (:name constantp-aware-get-setf-expansion)
+(with-test (:name :constantp-aware-get-setf-expansion)
   (multiple-value-bind (temps values stores set get)
       (get-setf-expansion '(foo 1 2 3))
     (assert (not temps))