From 73f81381bebf90cb5e798ea57660e6d5fae5f095 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 12 May 2010 23:41:09 +0200
Subject: [PATCH] *CURRENT-FORM* was not properly updated by C1EVAL

---
 src/cmp/cmpeval.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp
index 54f0b133b..2c1426422 100644
--- a/src/cmp/cmpeval.lsp
+++ b/src/cmp/cmpeval.lsp
@@ -15,6 +15,7 @@
 (in-package "COMPILER")
 
 (defun c1expr (form)
+  (let ((*current-form* form))
   (setq form (catch *cmperr-tag*
     (cond ((symbolp form)
 	   (setq form (chk-symbol-macrolet form))
@@ -36,7 +37,7 @@
 		   ((and (consp fun) (eq (car fun) 'LAMBDA))
 		    (c1funcall form))
 		   (t (cmperr "~s is not a legal function name." fun)))))
-	  (t (c1constant-value form :always t)))))
+	  (t (c1constant-value form :always t))))))
   (if (eq form '*cmperr-tag*)
       (c1nil)
       form))