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