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