X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=77d79c9303bc25ffea5b8e25be760edc28356743;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=534a6c2d4b9f0c84e1bf71f019550dab7c2d9000;hpb=77d1a39f28fe8d240cf441a9a54a80d4bc98ea52;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 534a6c2..77d79c9 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -700,7 +700,11 @@
     :initarg :method-combination
     :accessor generic-function-method-combination)
    (declarations
+    ;; KLUDGE: AMOP specifies :DECLARATIONS, while ANSI specifies
+    ;; :DECLARE.  Allow either (but FIXME: maybe a note or a warning
+    ;; might be appropriate).
     :initarg :declarations
+    :initarg :declare
     :initform ()
     :accessor generic-function-declarations)
    (arg-info