[armedbear-cvs] r13786 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 17 11:38:01 2012
New Revision: 13786

Log:
Initialize the OPTIONAL-ARGUMENTS slot in one more place.

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Jan 16 15:38:52 2012	(r13785)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Tue Jan 17 11:38:01 2012	(r13786)
@@ -1518,6 +1518,7 @@
     (let* ((plist (analyze-lambda-list (generic-function-lambda-list gf)))
            (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
                 (canonicalize-argument-precedence-order argument-precedence-order