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