0.9.12.3:

[sbcl.git] / src / code / eval.lisp

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 8e67686..f09a9c3 100644 (file)
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -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))