fast-format?

on my lisp machine (macivory mod 3), fast-format isn't so fast. should we 
look at tuning the code?
fast-format:

DEVO> (time (fast-format *standard-output* " ~S ~S" "-//W3C//DTD HTML 
4.01//EN" "http://www.w3.org/TR/html4/strict.dtd";)) "-//W3
C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd";
Evaluation of (FAST-FORMAT *STANDARD-OUTPUT* " ~S ~S" "-//W3C//DTD HTML 
4.01//EN" "http://www.w3.org/TR/html4/strict.dtd";) took
0.028172 seconds of elapsed time including:
 0.003 seconds processing sequence breaks,
 0.020 seconds in the storage system (including 0.019 seconds waiting for 
pages):
   0.020 seconds processing 1 page fault including 1 fetch,
   0.000 seconds in creating and destroying pages, and
   0.000 seconds in miscellaneous storage system tasks.
39 list words consed in WORKING-STORAGE-AREA.
6 list, 147 structure words consed in *PRESENTATION-AREA*.
NIL

format:

DEVO> (time (format *standard-output* " ~S ~S" "-//W3C//DTD HTML 4.01//EN" 
"http://www.w3.org/TR/html4/strict.dtd";)) "-//W3C//DT
D HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd";
Evaluation of (FORMAT *STANDARD-OUTPUT* " ~S ~S" "-//W3C//DTD HTML 4.01//EN" 
"http://www.w3.org/TR/html4/strict.dtd";) took 0.024
041 seconds of elapsed time including:
 0.000 seconds processing sequence breaks,
 0.001 seconds in the storage system (including 0.000 seconds waiting for 
pages):
   0.000 seconds processing 0 page faults including 0 fetches,
   0.001 seconds in creating and destroying pages, and
   0.000 seconds in miscellaneous storage system tasks.
2 list words consed in WORKING-STORAGE-AREA.
6 list, 140 structure words consed in *PRESENTATION-AREA*.
NIL
DEVO>

conrad




_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*  
http://join.msn.com/?page=features/junkmail