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