Changeset 7894

Timestamp:

Dec 12, 2007, 2:19:26 AM (17 years ago)

Author:

Gary Byers

Message:

Copy the build-time value of *BUILD-TIME-OPTIONAL-FEATURES* into the
image's value of *OPTIONAL-FEATURES*.

File:

• branches/working-0711/ccl/xdump/xfasload.lisp (modified) (1 diff)

branches/working-0711/ccl/xdump/xfasload.lisp

@@ -1070 +1070 @@
               (string (xload-save-string svnrev))
               (t *xload-target-nil*))))
+    (let* ((experimental-features *build-time-optional-features*))
+      (setf (xload-symbol-value (xload-copy-symbol '*optional-features*))
+            (xload-save-list (mapcar #'xload-copy-symbol experimental-features))))
                               
     (when *xload-show-cold-load-functions*