From: Nikodemus S. <de...@us...> - 2006-04-14 08:58:19
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18059/src/code Modified Files: eval.lisp Log Message: 0.9.11.36: add support for IF in EVAL-IN-LEXENV I wonder why this wasn't here before? Index: eval.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/eval.lisp,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- eval.lisp 14 Apr 2006 08:18:20 -0000 1.35 +++ eval.lisp 14 Apr 2006 08:58:16 -0000 1.36 @@ -225,6 +225,12 @@ (values sb!c:*lexenv* vars)) :eval)) (eval-locally `(locally ,@body) lexenv :vars vars)))) + ((if) + (destructuring-bind (test then &optional else) (rest exp) + (eval-in-lexenv (if (eval-in-lexenv test lexenv) + then + else) + lexenv))) (t (if (and (symbolp name) (eq (info :function :kind name) :function)) |