diff --git a/src/clx/macros.lisp b/src/clx/macros.lisp index 84d45e105b86db1f4b2f1dd0670e9ff37990bc62..8d9db3c8fbf47ee241dcb5e4636c2c9c0151b2af 100644 --- a/src/clx/macros.lisp +++ b/src/clx/macros.lisp @@ -85,6 +85,7 @@ ;; If no third body form is present, then these macros assume that ;; (AND (TYPEP ,thing 'type) (PUT-type ,thing)) can be generated. ;; these predicating puts are used by the OR accessor. + #-cmu (declare (arglist name (width) get-macro put-macro &optional predicating-put-macro)) (when (cdddr get-put-macros) (error "Too many parameters to define-accessor: ~s" (cdddr get-put-macros)))