From b6d4eec28225f66441c035818048b5dc94e1adc9 Mon Sep 17 00:00:00 2001
From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sun, 27 Apr 2003 20:56:01 +0000
Subject: [PATCH] 0.pre8.113:       * src/pcl/slots.lisp: change return value
 of slot-makunbound-using-class       to OBJECT rather than
 NIL to conform to AMOP

---
 src/pcl/slots.lisp |    2 +-
 version.lisp-expr  |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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"
-- 
1.7.10.4