diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 15:47:29 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 15:48:50 +0200 |
| commit | 276cf33d42cebc47e0cea7abb205f358c0f5cd38 (patch) | |
| tree | 65ae63c30904b20c25ca79f912e76bda563d21be /sb-eval2.lisp | |
| parent | fdaa36165c5ca1dcd13146dd0b538ec082032068 (diff) | |
SPECIALIZE: Use CL:EVAL rather than SB-INT:EVAL-IN-LEXENV.
Diffstat (limited to 'sb-eval2.lisp')
| -rw-r--r-- | sb-eval2.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index b68591e..e3e2ed6 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -10,11 +10,11 @@ (defconstant +stack-max+ 8) -(defmacro specialize (&environment env var value possible-values &body body) +(defmacro specialize (var value possible-values &body body) `(ecase ,value - ,@(loop for x in (sb-int:eval-in-lexenv possible-values env) + ,@(loop for x in (cl:eval possible-values) collect - `((,x) ,(sb-int:eval-in-lexenv `(let ((,var ,x)) ,@body) env))))) + `((,x) ,(cl:eval `(let ((,var ,x)) ,@body)))))) (declaim (inline %make-environment)) (defstruct (environment (:constructor %make-environment)) |