git » jacl.git » commit 3e353dc

%has-declare?: permit empty defmacro body

author Alan Dipert
2020-08-21 04:49:25 UTC
committer Alan Dipert
2020-08-21 04:49:25 UTC
parent 8b9581c83d42f10d6a58da331ea61e5baf2228d4
%has-declare?: permit empty defmacro body
boot.lisp +1 -1 
diff --git a/boot.lisp b/boot.lisp
index 687ba4b..0913258 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -56,7 +56,7 @@
      '%has-declare?
      (%lambda nil nil
        (body)
-       (%js "(List.isProperList(~{}) && List.isProperList(~{}.car) && ~{}.car.car === Package.get('COMMON-LISP').intern('DECLARE')) ? true : null" body body body)))
+       (%js "(~{} instanceof Cons && ~{}.car instanceof Cons && ~{}.car.car === Package.get('COMMON-LISP').intern('DECLARE')) ? true : null" body body body)))
 
 (\. *package* (|exportSymbol| (\. 'defmacro |name|)))
 (%js "(~{}.setMacro().fvalue = ~{})"