From 058e88eca6e78ef8b4a9b337e5939f4d969513c8 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 1 Dec 2005 17:08:26 +0000
Subject: [PATCH] Do not signal an error when trying to retrieve the
 documentation for a symbol that is not the name of a structure.  (This was
 breaking DESCRIBE on a symbol.)

---
 pcl/cmucl-documentation.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp
index a0a76e359..efa04c456 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.15 2005/11/10 17:43:33 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.16 2005/12/01 17:08:26 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -108,7 +108,7 @@
 	((info typed-structure info x)
 	 (values (info typed-structure documentation x)))
 	(t
-	 (simple-program-error "~@<~S is not the name of a structure type.~@:>" x))))
+	 nil)))
 
 (defmethod (setf documentation) (new-value (x kernel::structure-class) (doc-type (eql 't)))
   (setf (info type documentation (kernel:%class-name x)) new-value))
-- 
GitLab