Changeset 14036 for trunk/abcl/src/org/armedbear/lisp/setf.lisp

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:

• trunk/abcl/src/org/armedbear/lisp/setf.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/setf.lisp

@@ -59 +59 @@
 
 (defun get-setf-expansion (form &optional environment)
-  (when (and (consp form)
-             (autoloadp (%car form)))
-    (resolve (%car form)))
+;  ### FIXME: resolving here causes functions to be loaded at
+;       Macro expansion time instead of upon their first call!
+;       Discussion to be had on the mailing list.
+;       EH 2012-08-01
+;  (when (and (consp form)
+;             (autoloadp (%car form)))
+;    (resolve (%car form)))
   (let (temp)
     (cond ((symbolp form)
@@ -87 +91 @@
             `(setq ,place ,value-form)
             (progn
-              (when (symbolp (%car place))
-                (resolve (%car place)))
+;              ### FIXME: resolving here causes functions to be loaded at
+;                   Macro expansion time instead of upon their first call!
+;                   Discussion to be had on the mailing list.
+;                   EH 2012-08-01
+;              (when (symbolp (%car place))
+;                (resolve (%car place)))
               (multiple-value-bind (dummies vals store-vars setter getter)
                   (get-setf-expansion place environment)