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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May  1 16:43:46 2009
New Revision: 11811

Log:
Add documentation as to why we do what we were doing.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Fri May  1 16:43:46 2009
@@ -314,6 +314,11 @@
 ;;                      (setf form (precompile-form form nil))
                      (note-toplevel-form form)
                      (let ((new-form (convert-toplevel-form form)))
+                       ;; The converted form depends on the loader
+                       ;; but since we don't own the loader here,
+                       ;; we'll dump the converted form and eval
+                       ;; the original one (which won't depend on the loader
+                       ;; because it doesn't contain a compiled function)
                        (when (consp new-form)
                          (dump-form new-form stream)
                          (%stream-terpri stream)))