Skip to content
Snippets Groups Projects
Commit c6790b89 authored by rtoy's avatar rtoy
Browse files

Remove the slot named SLOT from the UNBOUND-SLOT condition. Also

removes the :slot initarg.  These are all subsumed by the :name
initarg and slot in a cell-error condition.

This makes UNBOUND-SLOT no longer backward compatible.  I hope that's
ok.
parent 8ca3c25b
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.27 2003/06/17 11:57:57 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.28 2004/10/05 21:59:44 rtoy Exp $")
;;;
(in-package :pcl)
......@@ -34,11 +34,10 @@
;;; ANSI CL condition for unbound slots.
(define-condition unbound-slot (cell-error)
((instance :reader unbound-slot-instance :initarg :instance)
(slot :reader unbound-slot-slot :initarg :slot))
((instance :reader unbound-slot-instance :initarg :instance))
(:report (lambda (condition stream)
(format stream "~@<The slot ~S is unbound in the object ~S.~@:>"
(unbound-slot-slot condition)
(cell-error-name condition)
(unbound-slot-instance condition)))))
(defmethod wrapper-fetcher ((class standard-class))
......@@ -320,7 +319,7 @@
instance)))
(defmethod slot-unbound ((class t) instance slot-name)
(error 'unbound-slot :name slot-name :slot slot-name :instance instance))
(error 'unbound-slot :name slot-name :instance instance))
(defun slot-unbound-internal (instance position)
(values
......
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