From ce257aceeaf7cd9637788d2678b28f4ca8e5fe79 Mon Sep 17 00:00:00 2001 From: emarsden <emarsden> Date: Sun, 20 Jul 2003 13:55:11 +0000 Subject: [PATCH] Signal a PROGRAM-ERROR instead of generic ERROR when attempting to use CLOS-related documentation accessors incorrectly. --- pcl/cmucl-documentation.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp index b13b6ef07..44d2d30c7 100644 --- a/pcl/cmucl-documentation.lisp +++ b/pcl/cmucl-documentation.lisp @@ -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. -- GitLab