Update of /project/cldoc/cvsroot/cldoc/src In directory common-lisp.net:/tmp/cvs-serv32466

Modified Files: html.lisp Log Message: Fix invalid (when) expression in resolve-link. Date: Thu Jan 5 16:08:06 2006 Author: ihatchondo

Index: cldoc/src/html.lisp diff -u cldoc/src/html.lisp:1.7 cldoc/src/html.lisp:1.8 --- cldoc/src/html.lisp:1.7 Thu Jan 5 15:54:11 2006 +++ cldoc/src/html.lisp Thu Jan 5 16:08:06 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: html.lisp,v 1.7 2006/01/05 14:54:11 ihatchondo Exp $ +;;; $Id: html.lisp,v 1.8 2006/01/05 15:08:06 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator: HTML driver ;;; Created: 2005 10 23 2:30 @@ -672,7 +672,7 @@ (multiple-value-bind (name package) (split-name (second strings)) (let ((href (lookup-meta-descriptor-href name (first strings) package file))) - (when (values T href name))))))) + (values (if href T NIL) href name))))))

(defun format-doc (symdesc html-driver strings) "Default documentation string formater. The Do What I Mean capabilities