Skip to content
Snippets Groups Projects
Commit ce257ace authored by emarsden's avatar emarsden
Browse files

Signal a PROGRAM-ERROR instead of generic ERROR when attempting to use

CLOS-related documentation accessors incorrectly.
parent b89f5fcf
No related branches found
No related tags found
No related merge requests found
......@@ -4,7 +4,7 @@
;;; the public domain, and is provided 'as is'.
(file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.12 2003/05/04 13:11:22 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.13 2003/07/20 13:55:11 emarsden Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -43,7 +43,7 @@
(defmethod (setf documentation) (new-value (x list) (doc-type (eql 'function)))
(unless (valid-function-name-p x)
(error "Invalid function name ~s" x))
(simple-program-error "Invalid function name ~s" x))
(if (eq 'setf (cadr x))
(setf (info setf documentation (cadr x)) new-value)
(setf (info function documentation x) new-value))
......@@ -117,7 +117,7 @@
(defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'structure)))
(unless (eq (info type kind x) :instance)
(error "~@<~S is not the name of a structure type.~@:>" x))
(simple-program-error "~@<~S is not the name of a structure type.~@:>" x))
(setf (info type documentation x) new-value))
;;; Variables.
......
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