[armedbear-cvs] r11912 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu May 21 06:19:53 2009
New Revision: 11912

Log:
Remove unused variable *LOCAL-FUNCTIONS-AND-MACROS*.

Modified:
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Thu May 21 06:19:53 2009
@@ -612,8 +612,6 @@
       (precompile1 (expand-macro form))
       form))
 
-(defvar *local-functions-and-macros* ())
-
 (defun precompile-macrolet (form)
   (let ((*compile-file-environment*
          (make-environment *compile-file-environment*)))
@@ -928,8 +926,7 @@
 (declaim (ftype (function (t t) t) precompile-form))
 (defun precompile-form (form in-jvm-compile)
   (let ((*in-jvm-compile* in-jvm-compile)
-        (*inline-declarations* *inline-declarations*)
-        (*local-functions-and-macros* ()))
+        (*inline-declarations* *inline-declarations*))
     (precompile1 form)))
 
 (defun install-handler (symbol &optional handler)