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

[mevenson at common-lisp.net]

Author: mevenson
Date: Sat Feb 23 03:17:50 2013
New Revision: 14399

Log:
Remove obsolete comments with implementation of the SETF autoloader.

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

Modified: trunk/abcl/src/org/armedbear/lisp/setf.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/setf.lisp	Sat Feb 23 03:17:48 2013	(r14398)
+++ trunk/abcl/src/org/armedbear/lisp/setf.lisp	Sat Feb 23 03:17:50 2013	(r14399)
@@ -58,13 +58,6 @@
                                  t))))
 
 (defun get-setf-expansion (form &optional environment)
-;  ### 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)
            (multiple-value-bind (expansion expanded)
@@ -90,12 +83,6 @@
         (if (atom place)
             `(setq ,place ,value-form)
             (progn
-;              ### 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)
                 (let ((inverse (get (car place) 'setf-inverse)))