Skip to content
Snippets Groups Projects
Commit 5357f6f7 authored by gerd's avatar gerd
Browse files

SLOT-UNBOUND.[12] tests from Paul Dietz.

	* src/pcl/slots.lisp (slot-unbound): Initialize :name
	of cell-error.
parent 5873e357
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment