mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

The default documentation file help.doc was accidentally deactivated.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-23 17:52:15 +01:00
parent b1b20895e3
commit 86e70e949f
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/doc/help.lsp
View file

@ -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

8
src/lsp/helpfile.lsp
View file

@ -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))