From b325b0337ee435402795bb585b2f1f9d41d043d9 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 23 Feb 2010 18:11:32 +0100 Subject: [PATCH] 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. --- src/lsp/helpfile.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp index c6c31968e..049205536 100644 --- a/src/lsp/helpfile.lsp +++ b/src/lsp/helpfile.lsp @@ -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))))))))