Skip to content
Snippets Groups Projects
Commit 44f6342e authored by ram's avatar ram
Browse files

Flushed hacking on *ALREADY-MAYBE-GCING*. Instead, we call GC-ON in the

SAVE-LISP init function.
parent 6d974528
No related branches found
No related tags found
No related merge requests found
...@@ -12,9 +12,7 @@ ...@@ -12,9 +12,7 @@
;;; the resulting core image. It writes "lisp.core" in the DEFAULT-DIRECTORY. ;;; the resulting core image. It writes "lisp.core" in the DEFAULT-DIRECTORY.
;;; ;;;
;;; Turn of GC so bad things don't happen.
;;;
(setq lisp::*already-maybe-gcing* t)
#| Can't eval conditionals now... #| Can't eval conditionals now...
;;; Setup some packages. ;;; Setup some packages.
;;; ;;;
...@@ -148,7 +146,6 @@ ...@@ -148,7 +146,6 @@
(setq ** NIL) (setq ** NIL)
(setq +++ NIL) (setq +++ NIL)
(setq *** NIL) (setq *** NIL)
(setq lisp::*already-maybe-gcing* t)
(setq *load-verbose* nil) (setq *load-verbose* nil)
(setq *info-environment* (setq *info-environment*
(list (make-info-environment :name "Working") (list (make-info-environment :name "Working")
...@@ -161,4 +158,6 @@ ...@@ -161,4 +158,6 @@
extensions:save-lisp extensions:save-lisp
,lisp::fop-codes ,lisp::fop-codes
compile-file) compile-file)
:init-function #'abort)) :init-function #'(lambda ()
(gc-on)
(abort))))
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