Changeset 14156

Timestamp:

09/29/12 20:23:27 (9 years ago)

Author:

ehuelsmann

Message:

Fix incorrect lambda list reassembly after parsing a DEFMETHOD lambda list.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -1917 +1917 @@
          (auxs (getf plist :auxiliary-args)))
     `(,@requireds
+      ,@(if opts `(&optional ,@opts) ())
       ,@(if rv `(&rest ,rv) ())
       ,@(if (or ks keysp aok) `(&key ,@ks) ())
       ,@(if aok '(&allow-other-keys) ())
-      ,@(if opts `(&optional ,@opts) ())
       ,@(if auxs `(&aux ,@auxs) ()))))