Ignore:
Timestamp:
08/01/12 11:53:36 (9 years ago)
Author:
ehuelsmann
Message:

Re #226: Automatically generate autoloads.

This commit adds the auto generation code and infrastructure. Next steps
include clean up of autoloads.lisp, deciding how to handle symbols in
multiple files and SETF functions/expanders.

File:
1 edited

Legend:

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

    r12935 r14036  
    5959
    6060(defun get-setf-expansion (form &optional environment)
    61   (when (and (consp form)
    62              (autoloadp (%car form)))
    63     (resolve (%car form)))
     61;  ### FIXME: resolving here causes functions to be loaded at
     62;       Macro expansion time instead of upon their first call!
     63;       Discussion to be had on the mailing list.
     64;       EH 2012-08-01
     65;  (when (and (consp form)
     66;             (autoloadp (%car form)))
     67;    (resolve (%car form)))
    6468  (let (temp)
    6569    (cond ((symbolp form)
     
    8791            `(setq ,place ,value-form)
    8892            (progn
    89               (when (symbolp (%car place))
    90                 (resolve (%car place)))
     93;              ### FIXME: resolving here causes functions to be loaded at
     94;                   Macro expansion time instead of upon their first call!
     95;                   Discussion to be had on the mailing list.
     96;                   EH 2012-08-01
     97;              (when (symbolp (%car place))
     98;                (resolve (%car place)))
    9199              (multiple-value-bind (dummies vals store-vars setter getter)
    92100                  (get-setf-expansion place environment)
Note: See TracChangeset for help on using the changeset viewer.