Changeset 12326

Timestamp:

01/01/10 22:52:09 (14 years ago)

Author:

ehuelsmann

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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

@@ -298 +298 @@
       form))
 
+(define-source-transform format (&whole form &rest args)
+  (if (stringp (second args))
+      `(format ,(pop args) (formatter ,(pop args)) ,@args)
+      form))
+
 (define-compiler-macro catch (&whole form tag &rest args)
   (declare (ignore tag))