Ignore:
Timestamp:
01/17/12 19:38:01 (10 years ago)
Author:
ehuelsmann
Message:

Initialize the OPTIONAL-ARGUMENTS slot in one more place.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13784 r13786  
    15191519           (required-args (getf plist ':required-args)))
    15201520      (%set-gf-required-args gf required-args)
     1521      (%set-gf-optional-args gf (getf plist :optional-args))
    15211522      (setf (generic-function-argument-precedence-order gf)
    15221523            (if argument-precedence-order
Note: See TracChangeset for help on using the changeset viewer.