From: Daniel Kochmański <daniel@turtleware.eu>
Date: Fri, 11 Sep 2015 14:23:32 +0000 (+0200)
Subject: annotation: turn annotation logic on
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=d41339054104e18e4a8ddf56782fa8a0f92463a4;p=ecl.git

annotation: turn annotation logic on

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

diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp
index 4716802..254de54 100644
--- 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)
-
-