Skip to content
Snippets Groups Projects
Commit c802a375 authored by Raymond Toy's avatar Raymond Toy
Browse files

Disable arglist declaration for cmucl

Don't know why this doesn't work, but removing it makes the macro
compile correctly.
parent c54f706e
No related branches found
No related tags found
No related merge requests found
...@@ -85,6 +85,7 @@ ...@@ -85,6 +85,7 @@
;; If no third body form is present, then these macros assume that ;; If no third body form is present, then these macros assume that
;; (AND (TYPEP ,thing 'type) (PUT-type ,thing)) can be generated. ;; (AND (TYPEP ,thing 'type) (PUT-type ,thing)) can be generated.
;; these predicating puts are used by the OR accessor. ;; these predicating puts are used by the OR accessor.
#-cmu
(declare (arglist name (width) get-macro put-macro &optional predicating-put-macro)) (declare (arglist name (width) get-macro put-macro &optional predicating-put-macro))
(when (cdddr get-put-macros) (when (cdddr get-put-macros)
(error "Too many parameters to define-accessor: ~s" (cdddr get-put-macros))) (error "Too many parameters to define-accessor: ~s" (cdddr get-put-macros)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment