From dd5ae6b1281411cf632cadf25a774b9c365c8b00 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 2 Feb 2011 13:07:57 +0000 Subject: [PATCH] Don't dump fdefinitions for local flet/labels functions. Suggested by Helmut Eller, cmucl-imp 2011-01-19. --- compiler/dump.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/compiler/dump.lisp b/compiler/dump.lisp index c399a242c..b9b189680 100644 --- a/compiler/dump.lisp +++ b/compiler/dump.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.91 2010/12/04 23:21:13 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.92 2011/02/02 13:07:57 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -649,7 +649,13 @@ (dump-fop 'lisp::fop-function-entry file) (dump-unsigned-32 (label-position (entry-info-offset entry)) file) (let ((handle (dump-pop file))) - (when (and name (or (symbolp name) (listp name))) + (when (and name (or (symbolp name) + (and (listp name) + ;; Skip over any entries for + ;; flet/labels functions. We don't + ;; need them stored because we can't + ;; really do anything with them. + (not (member (car name) '(flet labels) :test 'eq) )))) (dump-object name file) (dump-push handle file) (dump-fop 'lisp::fop-fset file)) -- GitLab