From 5889c7ebb4b4636cc5ab2a62d94643c9e5d338c5 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 21 Jun 1998 10:02:07 +0000
Subject: [PATCH] Take care to filter out function names that are lists but not
 setf functions. Such function names are generated by PCL and led to errors
 when looking for their documentation.

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

diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp
index 5df3acbe3..dbfef71f5 100644
--- a/pcl/cmucl-documentation.lisp
+++ b/pcl/cmucl-documentation.lisp
@@ -4,7 +4,7 @@
 ;;; the public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.6 1998/05/04 00:08:32 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.7 1998/06/21 10:02:07 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,9 +24,10 @@
   (lisp::function-doc x))
 
 (defmethod documentation ((x list) (doc-type (eql 'function)))
-  (or (values (ext:info setf documentation (cadr x)))
-      ;; Try the pcl function documentation.
-      (and (fboundp x) (documentation (fdefinition x) 't))))
+  (when (eq (car x) 'setf)	; Give-up if not a setf function name.
+    (or (values (ext:info setf documentation (cadr x)))
+	;; Try the pcl function documentation.
+	(and (fboundp x) (documentation (fdefinition x) 't)))))
 
 (defmethod documentation ((x symbol) (doc-type (eql 'function)))
   (or (values (ext:info function documentation x))
-- 
GitLab