Update of /project/cldoc/cvsroot/cldoc/src In directory common-lisp.net:/tmp/cvs-serv15404
Modified Files: html.lisp Log Message: Fix invalid call to some lookup functions whan nothing to lookup for because NIL is not a desc. And fix argument lambda list format glitches due to format directive that can be present. Date: Fri Dec 16 00:16:17 2005 Author: ihatchondo
Index: cldoc/src/html.lisp diff -u cldoc/src/html.lisp:1.2 cldoc/src/html.lisp:1.3 --- cldoc/src/html.lisp:1.2 Thu Dec 15 01:55:27 2005 +++ cldoc/src/html.lisp Fri Dec 16 00:16:15 2005 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: html.lisp,v 1.2 2005/12/15 00:55:27 ihatchondo Exp $ +;;; $Id: html.lisp,v 1.3 2005/12/15 23:16:15 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator: HTML driver ;;; Created: 2005 10 23 2:30 @@ -591,13 +591,14 @@ (html-write summary-title ))) (loop for desc in (desc-sort descs #'alphabetical-order) for mdesc = (lookup-meta-descriptor desc) + when mdesc do (with-tag (:tr (:class "table-row-color")) (with-tag (:td (:class "summary-name")) (with-tag (:a (:href (meta-descriptor-href mdesc :local))) (html-write (purge-string-for-html (name desc))))) (with-tag (:td (:class "summary")) (let ((string (funcall key desc))) - (when string (html-write string))))))))) + (when string (html-write "~a" string)))))))))
(defun make-constant-summary (descs filter) "Creates a summary table for defconstant descriptors if any."