From 5357f6f7ae3386a886434b3aa8b1e6f2d5a88f9a Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Thu, 12 Jun 2003 09:06:30 +0000 Subject: [PATCH] SLOT-UNBOUND.[12] tests from Paul Dietz. * src/pcl/slots.lisp (slot-unbound): Initialize :name of cell-error. --- pcl/slots.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/slots.lisp b/pcl/slots.lisp index ff888467a..4cb2fbfc0 100644 --- a/pcl/slots.lisp +++ b/pcl/slots.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.24 2003/05/13 10:49:01 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.25 2003/06/12 09:06:30 gerd Exp $") ;;; (in-package :pcl) @@ -313,7 +313,7 @@ instance))) (defmethod slot-unbound ((class t) instance slot-name) - (error 'unbound-slot :slot slot-name :instance instance)) + (error 'unbound-slot :name slot-name :slot slot-name :instance instance)) (defun slot-unbound-internal (instance position) (slot-unbound (class-of instance) instance -- GitLab