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

When querying with sub-key :ALL, EXT:GET-ANNOTATION now returns a list of pairs, with each pair being prefixed by the appropriate sub-key.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-23 18:11:32 +01:00
parent b1ec23bce8
commit b325b0337e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/helpfile.lsp
View file

@ -164,7 +164,7 @@ Sets up a new hash table for storing documentation strings."
(dolist (i record)
(let ((key-sub-key (car i)))
(when (equal (car key-sub-key) key)
(push (cdr i) output))))
(push (cons (cdr key-sub-key) (cdr i)) output))))
(if (setq output (record-field record key sub-key))
(return output))))))))