From 276cf33d42cebc47e0cea7abb205f358c0f5cd38 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 15:47:29 +0200
Subject: SPECIALIZE: Use CL:EVAL rather than SB-INT:EVAL-IN-LEXENV.

---
 sb-eval2.lisp | 6 +++---
 1 file 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))
-- 
cgit v1.2.3