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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Jan  1 17:52:09 2010
New Revision: 12326

Log:
Performance improvement for ticket #76: slow swank fuzzy completion.
  This commit pushes FORMAT back in the list of time-consumers,
  according to our profiler's output.

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	Fri Jan  1 17:52:09 2010
@@ -297,6 +297,11 @@
       `(adjoin-eql ,(first args) ,(second args))
       form))
 
+(define-source-transform format (&whole form &rest args)
+  (if (stringp (second args))
+      `(format ,(pop args) (formatter ,(pop args)) , at args)
+      form))
+
 (define-compiler-macro catch (&whole form tag &rest args)
   (declare (ignore tag))
   (if (and (null (cdr args))