diff --git a/pcl/rt/slot-missing.lisp b/pcl/rt/slot-missing.lisp index dbfabe6b0a546cec0709b5dc1a9c1f071aca6463..51def6540f503c1e2f909abdbcae0f4ac1fcad9a 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)