[cldoc-cvs] CVS update: cldoc/src/html.lisp
Iban Hatchondo
ihatchondo at common-lisp.net
Thu Jan 5 15:08:07 UTC 2006
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
More information about the Cldoc-cvs
mailing list