From e26eded2185f8aac3f5cff3efe3d98fe3e8f445a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 9 Apr 1991 14:39:43 +0000 Subject: [PATCH] Added a call to eval:flush-interpreted-function-cache before the call to purify in save-lisp. This prevents us from unnecessarily holding on to interpreted drek created at load time. --- code/save.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index 36d6d5bc2..8b02094ec 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.5 1991/02/08 13:35:22 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.6 1991/04/09 14:39:43 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.5 1991/02/08 13:35:22 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.6 1991/04/09 14:39:43 ram Exp $ ;;; ;;; Dump the current lisp image into a core file. All the real work is done ;;; be C. @@ -94,7 +94,8 @@ :enable-gc If true, turn GC on if it was off." - + + (eval:flush-interpreted-function-cache) (if purify (purify :root-structures root-structures :constants constants) (gc)) -- GitLab