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