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