https://gist.github.com/998414 の問題を修正

compile.l.patch

--- compile.l	2002-03-25 02:49:18 +0900
+++ compile_fix.l	2011-05-31 16:17:04 +0900
@@ -649,6 +649,9 @@
 (defun compile-call (form)
   (let ((f (assoc (car form) *macro-environment* :test #'eq)))
     (cond ((null f)
+	   (when (and (consp (car form))
+		      (eq (caar form) 'lambda))
+	     (push 'funcall form))
 	   (dolist (f (cdr form))
 	     (compile-form f))
 	   (output-insn 'insn-call (car form) (- (length form) 1)))