From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sun, 27 Apr 2003 20:56:01 +0000 (+0000)
Subject: 0.pre8.113:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=inline;h=b6d4eec28225f66441c035818048b5dc94e1adc9;p=sbcl.git

0.pre8.113:
      * src/pcl/slots.lisp: change return value of slot-makunbound-using-class
      to OBJECT rather than NIL to conform to AMOP
---

diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp
index e7c1d86..786ce4b 100644
--- a/src/pcl/slots.lisp
+++ b/src/pcl/slots.lisp
@@ -267,7 +267,7 @@
        (error "~@<The slot ~S has neither :INSTANCE nor :CLASS allocation, ~
 	       so it can't be written by the default ~S method.~@:>"
 	      slotd 'slot-makunbound-using-class))))
-  nil)
+  object)
 
 (defmethod slot-value-using-class
     ((class structure-class)
diff --git a/version.lisp-expr b/version.lisp-expr
index dd481f2..bd4502f 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.112"
+"0.pre8.113"