From 8e25534438888c7d11b6a951e5b6aaee521546c4 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 4 Oct 2014 17:14:07 +0100 Subject: [PATCH] 99 host compiler leaks, I got 'em take one down, pass it around, there are probably still 99 of them. (There's probably a case for doing to GENSYM what we do to BYTE and BOOLE, but this is good enough for now). With this change, there are 8 files left in an x86-64 build with differing outputs from sbcl and clisp as host compiler. Several of them are, I think, to do with dumping of literal alien type structures; one of them is a difference in the ucdmisc binary database; one or two of them are even more mysterious. --- src/compiler/pack.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp index 2c6aaf777..4c80fe299 100644 --- a/src/compiler/pack.lisp +++ b/src/compiler/pack.lisp @@ -1322,7 +1322,7 @@ &rest keys &key limit reads writes) &body body) (declare (ignore limit reads writes)) - (let ((callback (gensym "CALLBACK"))) + (let ((callback (sb!xc:gensym "CALLBACK"))) `(flet ((,callback (,target-variable) ,@body)) (declare (dynamic-extent #',callback)) -- 2.11.4.GIT