Changeset 13786 for trunk/abcl/src/org/armedbear/lisp/clos.lisp

Timestamp:

01/17/12 19:38:01 (11 years ago)

Author:

ehuelsmann

Message:

Initialize the OPTIONAL-ARGUMENTS slot in one more place.

File:

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

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

@@ -1519 +1519 @@
            (required-args (getf plist ':required-args)))
       (%set-gf-required-args gf required-args)
+      (%set-gf-optional-args gf (getf plist :optional-args))
       (setf (generic-function-argument-precedence-order gf)
             (if argument-precedence-order