Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2d6acd7)
annotation: turn annotation logic on
authorDaniel Kochmański <daniel@turtleware.eu>
Fri, 11 Sep 2015 14:23:32 +0000 (16:23 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Fri, 11 Sep 2015 14:25:44 +0000 (16:25 +0200)
This was disabled from outside of ecl-min (not sure why). Achieved
with bounding ext::*register-with-pde-hook* to already defined

Works ok with swank for both macros and functions.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/lsp/helpfile.lsp patch | blob | blame | history

diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp
index 4716802..254de54 100644 (file)
--- a/src/lsp/helpfile.lsp
+++ b/src/lsp/helpfile.lsp
@@ -163,8 +163,7 @@ strings."
 ;; (EXT:OPTIONAL-ANNOTATION arguments for EXT:ANNOTATE)
 (si::fset 'ext:optional-annotation
           #'(ext:lambda-block ext:optional-annotation (whole env)
-               (declare (ignore env #-ecl-min whole))
-               #+ecl-min
+               (declare (ignore env))
                `(ext:annotate ,@(rest whole)))
           t)
 
@@ -180,7 +179,4 @@ strings."
 
 #+ecl-min
 (when (null *documentation-pool*) (new-documentation-pool 1024))
-#+ecl-min
 (setq ext::*register-with-pde-hook* 'default-annotation-logic)
-
-
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)