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