Optionally reduce the amount of stuff excised from the image.

Using #+sb-devel. Otherwise the compiler is unmodifiable at runtime.
gsorbier · Feb 9, 2018 · 41a3c22 · 41a3c22
1 parent 6293f11
commit 41a3c22
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/make-target-2-load.lisp b/make-target-2-load.lisp
@@ -200,6 +200,12 @@
  (load "src/code/shaketree")
  (sb-impl::shake-packages
  ;; Retain all symbols satisfying this predicate
+ #+sb-devel
+ (lambda (symbol)
+ ;; Retain all symbols satisfying this predicate
+ (or (sb-kernel:symbol-info symbol)
+ (and (boundp symbol) (not (keywordp symbol)))))
+ #-sb-devel
  (lambda (symbol accessibility)
  (case (symbol-package symbol)
  (#.(find-package "SB-VM")