From 86e70e949f06dfb458efbc93b166ffc573227a6d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 23 Feb 2010 17:52:15 +0100 Subject: [PATCH] The default documentation file help.doc was accidentally deactivated. --- src/doc/help.lsp | 2 ++ src/lsp/helpfile.lsp | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/doc/help.lsp b/src/doc/help.lsp index 795831b1f..6dce90636 100644 --- a/src/doc/help.lsp +++ b/src/doc/help.lsp @@ -25,8 +25,10 @@ ((and doc (search "Args:" doc)) (setf args nil)) ((eq kind 'macro) + (ext:annotate symbol ':lambda-list nil args) (setf args (format nil "Syntax: ~A" args))) (t + (ext:annotate symbol ':lambda-list nil args) (setf args (format nil "Args: ~A" args)))) (si::set-documentation symbol 'function diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp index 7eb920512..c6c31968e 100644 --- a/src/lsp/helpfile.lsp +++ b/src/lsp/helpfile.lsp @@ -58,7 +58,7 @@ path))) (defun search-help-file (key path &aux (pos 0)) - (when (not (stringp key)) + (when (not (or (stringp key) (symbolp key))) (return-from search-help-file nil)) (labels ((bin-search (file start end &aux (delta 0) (middle 0) sym) (declare (fixnum start end delta middle)) @@ -100,8 +100,8 @@ (setq *keep-documentation* t)) #-ecl-min (progn - (defvar *documentation-pool* (list (make-hash-table :test #'equal :size 128) - "SYS:help.doc")) + (setq *documentation-pool* (list (make-hash-table :test #'equal :size 128) + "SYS:help.doc")) (defvar *keep-documentation* t)) (defun new-documentation-pool (&optional (size 1024)) @@ -236,6 +236,6 @@ strings." (when (not (member kind '(defmethod))) (annotate name 'location kind source-location)) (when (member kind '(defun defmacro defgeneric)) - (annotate name 'arglist nil (third definition)))) + (annotate name :lambda-list nil (third definition)))) output-form))