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

[Iban Hatchondo]

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