Permalink
Browse files

Remove unnecessary eval-when's from l0-marcos (thanks to Stelian Ione…

…scu), case 227

darcs-hash:20080927234705-3cc5d-58347bd3abac17a5d3de3e46c35108396dd2cc73.gz
  • Loading branch information...
1 parent 3185eaf commit d3e1958eeb8274cb3ba51b16a73f5014ba6c5ea0 @gwkkwg committed Sep 27, 2008
Showing with 2 additions and 4 deletions.
  1. +2 −4 dev/l0-macros.lisp
View
@@ -41,7 +41,6 @@ at compile time whereever foo-1 is used."
(values form))
,@body)))
-(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro once-only (variable-list &body body)
"Generate code that evaluates certain expressions only once.
This is used in macros, for computing expansions.
@@ -83,7 +82,7 @@ Example:
(if (null ,bind-vars)
result
`((lambda
- ,(nreverse ,bind-vars) ,result) . ,(nreverse ,bind-vals))))))))
+ ,(nreverse ,bind-vars) ,result) . ,(nreverse ,bind-vals)))))))
(defmacro with-variables (symbols &body body)
"Using gensyms is necessary to prevent variables produced by macro expansions
@@ -175,12 +174,11 @@ i.e. so you usually fix the problem and then call retry."
(handler-bind ,binds
(:retry))))))
-(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro with-gensyms (syms &body body)
`(let ,(mapcar #'(lambda (s)
`(,s (gensym)))
syms)
- ,@body)))
+ ,@body))
(defvar *file-if-exists* :supersede

0 comments on commit d3e1958

Please sign in to comment.