Changeset 14055


Ignore:
Timestamp:
08/04/12 21:57:45 (9 years ago)
Author:
ehuelsmann
Message:

Follow up to r14054: fix the case where initform is NIL.

File:
1 edited

Legend:

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

    r14054 r14055  
    12621262           (binding-forms (gensym))
    12631263           (needs-args-len-var (gensym))
    1264           (emf-form (gensym)))
     1264           (emf-form (gensym)))
    12651265      `(let* ((,gf-lambda-list (slot-value ,generic-function-symbol
    12661266                                           'sys::lambda-list))
     
    12811281                        ,@(loop for (var initform supplied-var) in optional
    12821282                             and i upfrom 0
    1283                              for supplied-binding = (or supplied-var
    1284                                                         (when initform (gensym)))
     1283                             for supplied-binding = (or supplied-var (gensym))
    12851284                             for var-binding = (gensym)
    12861285                             ;; check for excess parameters
     
    12941293                             ;;
    12951294                             ;; Also, if specified, bind "supplied-p"
    1296                              if supplied-binding
    12971295                             collect `(,supplied-binding
    12981296                                       (when (< ,i nopt)
Note: See TracChangeset for help on using the changeset viewer.