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