summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-18 15:47:29 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-18 15:48:50 +0200
commit276cf33d42cebc47e0cea7abb205f358c0f5cd38 (patch)
tree65ae63c30904b20c25ca79f912e76bda563d21be
parentfdaa36165c5ca1dcd13146dd0b538ec082032068 (diff)
SPECIALIZE: Use CL:EVAL rather than SB-INT:EVAL-IN-LEXENV.
-rw-r--r--sb-eval2.lisp6
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))