0.8.0.78:

[sbcl.git] / tests / clos.impure.lisp

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index a94d842..a319f42 100644 (file)
--- 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))
 \f
 ;;; we should be able to specialize on anything that names a class.
 (defclass name-for-class () ())