diff options
author | Christophe Rhodes <csr21@cam.ac.uk> | 2005-04-08 14:19:06 +0000 |
---|---|---|
committer | Christophe Rhodes <csr21@cam.ac.uk> | 2005-04-08 14:19:06 +0000 |
commit | 472d737eb6041f2ed632a4595ceb320cc953041c (patch) | |
tree | 72db6d99610980bc30c1b258177af304a07318c4 /src | |
parent | dcd55c1adf49daf33e092604d478d3f5c8edb7ee (diff) |
0.8.21.25:
Fix for "Apparent memory leak in (eval '(lambda () ...))" (Kevin
Reid sbcl-devel 2004-02-26
... don't name the EVAL-TMP function.
Diffstat (limited to 'src')
-rw-r--r-- | src/code/eval.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/code/eval.lisp b/src/code/eval.lisp index 9bd74e256..2c36fb66b 100644 --- a/src/code/eval.lisp +++ b/src/code/eval.lisp @@ -20,7 +20,7 @@ ;; to be careful about not muffling warnings arising from inner ;; evaluations/compilations, though [e.g. the ignored variable in ;; (DEFUN FOO (X) 1)]. -- CSR, 2003-05-13 - (let ((fun (sb!c:compile-in-lexenv (gensym "EVAL-TMPFUN-") + (let ((fun (sb!c:compile-in-lexenv nil `(lambda () ,expr) lexenv))) (funcall fun))) |