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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 12 15:42:01 2009
New Revision: 12190

Log:
Don't try to compile functions which are already compiled.

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Oct 12 15:42:01 2009
@@ -1340,10 +1340,6 @@
                            (funcall emfun args)
                            (slow-method-lookup gf args)))))))))))
 
-    (when (and (fboundp 'autocompile)
-               (not (autoloadp 'compile)))
-      (setf code (or (autocompile code) code)))
-
     code))
 
 (defun method-applicable-p (method args)