From d7e41efd84345e18623c158ad83a2759d6a25f20 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Sat, 26 Apr 2003 14:30:39 +0000 Subject: [PATCH] Test cases CLASS-0203.[12]. SLOT-MAKUNBOUND not returning instance. * src/pcl/slots.lisp (slot-makunbound-using-class) <std-class standard-object standard-effective-slot-definition>: Return the object as specified by AMOP. --- pcl/slots.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/slots.lisp b/pcl/slots.lisp index aac337e37..c3ca8e646 100644 --- a/pcl/slots.lisp +++ b/pcl/slots.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.18 2003/03/26 17:15:21 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.19 2003/04/26 14:30:39 gerd Exp $") ;;; (in-package :pcl) @@ -237,7 +237,7 @@ (error "~@<The slot ~s has neither ~s nor ~s allocation, ~ so it can't be written by the default ~s method.~@:>" slotd :instance :class 'slot-makunbound-using-class)))) - nil) + object) (defmethod slot-value-using-class ((class structure-class) -- GitLab