X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fstd-class.lisp;h=f894c21342ac31d6096a5b94b774954543a55939;hb=937a46e64983862cb9e21761db95e58700341940;hp=50fd53a2f643bbadd133b239276609d4c6e8b248;hpb=3cf5c8351289d390112a3842b6c03e17cee20211;p=sbcl.git

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index 50fd53a..f894c21 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -661,7 +661,7 @@
 	      ;; FIXME: FIND-SLOT-DEFAULT throws an error if the slot
 	      ;; is unbound; maybe it should be a CELL-ERROR of some
 	      ;; sort?
-	      (error () (slot-unbound class x slot-name)))))
+	      (error () (values (slot-unbound class x slot-name))))))
     (setf (slot-definition-writer-function slotd)
 	  (lambda (v x)
 	    (condition-writer-function x v slot-name)))