Changeset 601


Ignore:
Timestamp:
Mar 1, 2004, 5:05:11 PM (16 years ago)
Author:
gb
Message:

DEFAULT-INITARGS: function follows form ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-clos-boot.lisp

    r420 r601  
    21932193      (unless (pl-search initargs (%car key.form))
    21942194        (setq defaults
    2195               (list* (funcall (cadr key.form))
     2195              (list* (funcall (caddr key.form))
    21962196                     (%car key.form)
    21972197                     defaults))))
Note: See TracChangeset for help on using the changeset viewer.