projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.9.45: cleaner & thread-safe pv-table interning
[sbcl.git]
/
src
/
code
/
eval.lisp
diff --git
a/src/code/eval.lisp
b/src/code/eval.lisp
index
406dc09
..
56ea38c
100644
(file)
--- a/
src/code/eval.lisp
+++ b/
src/code/eval.lisp
@@
-20,9
+20,10
@@
;; 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
;; 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 nil
- `(lambda () ,expr)
- lexenv)))
+ (let* (;; why PROGN? So that attempts to eval free declarations
+ ;; signal errors rather than return NIL. -- CSR, 2007-05-01
+ (lambda `(lambda () (progn ,expr)))
+ (fun (sb!c:compile-in-lexenv nil lambda lexenv)))
(funcall fun)))
;;; Handle PROGN and implicit PROGN.
(funcall fun)))
;;; Handle PROGN and implicit PROGN.