X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=a319f42f260cc487349387d7effd13dc6b0b40e0;hb=a64589ed34ce0298fae164476af7de14c4652909;hp=a94d8423ae89b7d99df0c45191519408cd0198c7;hpb=3cc4b17d770f3fe95e5e94f6ac39820784968c4d;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index a94d842..a319f42 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -592,7 +592,9 @@
 	    'slot-value))
 (assert (eq (funcall (lambda (x) (setf (slot-value x 'baz) 'baz))
 		     (make-instance 'class-with-all-slots-missing))
-	    'setf))
+	    ;; SLOT-MISSING's value is specified to be ignored; we
+	    ;; return NEW-VALUE.
+	    'baz))
 
 ;;; we should be able to specialize on anything that names a class.
 (defclass name-for-class () ())