Skip to content
Snippets Groups Projects
Commit 933e8fc2 authored by pw's avatar pw
Browse files

Fix wrong sense of boolean test for RUNTIME feature. This was causing

purify to not run while saving a core resulting in too big core on
x86 with gencgc collector.
parent 65855429
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.92 2001/07/08 16:35:13 pw Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.93 2001/07/10 22:50:46 pw Exp $
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -224,7 +224,7 @@ ...@@ -224,7 +224,7 @@
(let ((root-structures (let ((root-structures
#-(or runtime no-hemlock) `(ed ,hi::*global-command-table*) #-(or runtime no-hemlock) `(ed ,hi::*global-command-table*)
#+(or runtime no-hemlock) ()) #+(or runtime no-hemlock) ())
(purify (featurep :runtime))) (purify (not (featurep :runtime))))
;; the following features are only used to control the build ;; the following features are only used to control the build
;; process, so we remove them from the generated image ;; process, so we remove them from the generated image
(dolist (f '(:runtime :no-compiler :no-pcl :no-clx :no-clm :no-hemlock)) (dolist (f '(:runtime :no-compiler :no-pcl :no-clx :no-clm :no-hemlock))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment