From 6680494ae196946a55f644e2fa3314b3a18861a1 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Tue, 17 Jun 2003 11:08:00 +0000
Subject: [PATCH] 	* src/pcl/rt/slot-missing.lisp (slot-missing.[345]):
 Change 	for the corrected return values of slot-value, (setf
 slot-value), 	slot-boundp in the case slot-missing is called.

---
 pcl/rt/slot-missing.lisp | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/pcl/rt/slot-missing.lisp b/pcl/rt/slot-missing.lisp
index dbfabe6b0..51def6540 100644
--- a/pcl/rt/slot-missing.lisp
+++ b/pcl/rt/slot-missing.lisp
@@ -28,7 +28,7 @@
 ;;; DAMAGE.
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/slot-missing.lisp,v 1.2 2003/03/22 16:15:14 gerd Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/slot-missing.lisp,v 1.3 2003/06/17 11:08:00 gerd Rel $")
 
 (in-package "PCL-TEST")
 
@@ -88,13 +88,19 @@
   (setq *sm-result* (list slot-name operation new-value)))
 
 (define-sm-test slot-missing.3 (instance sm1)
-  (slot-value instance 'a)
+  (progn
+    (slot-value instance 'a)
+    *sm-result*)
   (a slot-value nil) nil)
 
 (define-sm-test slot-missing.4 (instance sm1)
-  (setf (slot-value instance 'a) 1)
+  (progn
+    (setf (slot-value instance 'a) 1)
+    *sm-result*)
   (a setf 1) nil)
 
 (define-sm-test slot-missing.5 (instance sm1)
-  (slot-boundp instance 'a)
+  (progn
+    (slot-boundp instance 'a)
+    *sm-result*)
   (a slot-boundp nil) nil)
-- 
GitLab