[cldoc-cvs] CVS update: cldoc/src/html.lisp

[Iban Hatchondo]

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."