[bknr-cvs] hans changed trunk/libraries/clixdoc/make-doc.lisp

[BKNR Commits]

Revision: 4069
Author: hans
URL: http://bknr.net/trac/changeset/4069

make clix-description work for things other than symbols (i.e. setf-functions)

U   trunk/libraries/clixdoc/make-doc.lisp

Modified: trunk/libraries/clixdoc/make-doc.lisp
===================================================================
--- trunk/libraries/clixdoc/make-doc.lisp	2008-11-15 12:56:45 UTC (rev 4068)
+++ trunk/libraries/clixdoc/make-doc.lisp	2008-11-15 13:22:41 UTC (rev 4069)
@@ -24,7 +24,10 @@
                 ((find name args :test #'string-equal)
                  (with-clix-element ("arg")
                    (text (string-downcase name))))
-                ((find name *current-doc-entries* :key #'first :test #'string-equal)
+                ((find-if (lambda (doc-entry)
+                            (when (symbolp doc-entry)
+                              (string-equal name doc-entry)))
+                          *current-doc-entries*)
                  (with-clix-element ("ref")
                    (text name)))
                 (t