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

[Iban Hatchondo]

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

Modified Files:
	html.lisp package.lisp 
Log Message:
package def updated and cosmetic changes.
Date: Sun Jan  8 23:18:33 2006
Author: ihatchondo

Index: cldoc/src/html.lisp
diff -u cldoc/src/html.lisp:1.10 cldoc/src/html.lisp:1.11
--- cldoc/src/html.lisp:1.10	Sun Jan  8 17:49:16 2006
+++ cldoc/src/html.lisp	Sun Jan  8 23:18:26 2006
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*-
-;;; $Id: html.lisp,v 1.10 2006/01/08 16:49:16 ihatchondo Exp $
+;;; $Id: html.lisp,v 1.11 2006/01/08 22:18:26 ihatchondo Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Common Lisp Universal Documentation Generator: HTML driver
 ;;;   Created: 2005 10 23 2:30
@@ -514,8 +514,7 @@
 			    (with-tag (:a (:href file))
 			      (if (string/= name "the-index")
 				  (html-write "~d ~a~%" (incf i) name)
-				  (html-write " Index"))))))))))
-    (truename toc)))
+				  (html-write " Index"))))))))))))
 
 (defun get-defpackage-descriptor (meta-descriptors package-table)
   "Finds all the defpackage-descriptor and insert them in the package-table."
@@ -635,7 +634,7 @@
    defmacro descriptors if any."
   ;; Because neither the defstruct nor the defclass nor the define-condition
   ;; accessors are present in the list of descriptors they will be retrieved
-  ;; manually and added to defun or defmethod list before make-summary call.
+  ;; manually and added to defun or defmethod list before call make-summary.
   (flet ((mapconc (fun list) (apply #'concatenate 'list (mapcar fun list))))
     (let* ((defmethods '(or defgeneric-descriptor defmethod-descriptor))
 	   (defuns '(or defun-descriptor defsetf-descriptor))


Index: cldoc/src/package.lisp
diff -u cldoc/src/package.lisp:1.3 cldoc/src/package.lisp:1.4
--- cldoc/src/package.lisp:1.3	Sun Jan  8 17:49:16 2006
+++ cldoc/src/package.lisp	Sun Jan  8 23:18:27 2006
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*-
-;;; $Id: package.lisp,v 1.3 2006/01/08 16:49:16 ihatchondo Exp $
+;;; $Id: package.lisp,v 1.4 2006/01/08 22:18:27 ihatchondo Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Common Lisp Universal Documentation Generator package definition
 ;;;   Created: 2005 10 23 12:30
@@ -27,7 +27,8 @@
    #:*class-inheritence* #:*condition-inheritence*
    #:*struct-inheritence* #:*slot-reader-control-string*
    #:*slot-writer-control-string* #:*slot-accessor-control-string*
-   #:+html-doctype+ #:+default-charset+
+   #:+html-doctype+ #:+default-charset+ #:+default-link-delimiters+
+   #:+default-section-prefix+ #:+default-code-prefix+ #:+default-section-names+
    #:define-descriptor-handler
    #:find-descriptor-handler
    #:register-output-type
@@ -40,7 +41,6 @@
    #:html
    #:text
    #:extract-documentation
-   #:make-doc
    #:dformat
    #:dformat-documentation
    ;; cache system.
@@ -48,7 +48,7 @@
    #:meta-descriptor-href #:meta-descriptor-desc #:meta-descriptor-file
    #:clear-cache #:cache-descriptor #:initialise-cache
    #:lookup-meta-descriptor #:lookup-meta-descriptor-anchor
-   #:lookup-meta-descriptor-href
+   #:lookup-meta-descriptor-href #:cache-meta-descriptors
    ;; documentation string parsing utilities
    #:doctree
    #:doctree-tree