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