Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c14c091)
(INTEGER *) and other type names made of lists are now allowed as declaration names.
authorJuanjo Garcia-Ripoll <jjgarcia@users.sf.net>
Tue, 29 Oct 2013 21:25:42 +0000 (22:25 +0100)
committerJuanjo Garcia-Ripoll <jjgarcia@users.sf.net>
Tue, 29 Oct 2013 21:25:42 +0000 (22:25 +0100)
src/cmp/cmpenv-declare.lsp patch | blob | blame | history

diff --git a/src/cmp/cmpenv-declare.lsp b/src/cmp/cmpenv-declare.lsp
index f0c96f9..54c5466 100644 (file)
--- a/src/cmp/cmpenv-declare.lsp
+++ b/src/cmp/cmpenv-declare.lsp
@@ -72,7 +72,10 @@ and a possible documentation string (only accepted when DOC-P is true)."
        for decl in all-declarations
        for decl-name = (first decl)
        for decl-args = (rest decl)
-       do (cmpassert (and (valid-form-p decl-args) (symbolp decl-name))
+       do (cmpassert (and (valid-form-p decl-args)
+                         (or (symbolp decl-name)
+                             (and (consp decl-name)
+                                  (valid-type-specifier decl-name))))
                      "Syntax error in declaration ~s" decl)
        do (case decl-name
             (SPECIAL)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)