Changeset 9424


Ignore:
Timestamp:
May 9, 2008, 10:09:11 AM (11 years ago)
Author:
gb
Message:

Don't do STREAMP if FORMAT's stream arg is T. (STREAMP should have
a compiler-macro on it so calls to it are sometimes cheaper.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-format.lisp

    r9362 r9424  
    132132
    133133
    134 #|
     134#||
    135135(eval-when (load)
    136136  ;The non-consing version.
     
    284284) ;end of eval-when (load)
    285285
    286 |#
    287 
    288 ;Interim definitions
    289 
    290 ;This function is shadowed by CCL in order to use ~{ to print error messages.
     286||#
     287
     288;;;Interim definitions
     289
     290;;;This function is shadowed by CCL in order to use ~{ to print error messages.
    291291(defun format (stream control-string &rest format-arguments)
    292292  (declare (dynamic-extent format-arguments))
    293   (when (eq stream t) (setq stream *standard-output*))
    294293  (when (null stream)
    295294   (return-from format
    296295    (with-output-to-string (x)
    297296     (apply #'format x control-string format-arguments))))
    298   (unless (streamp stream) (report-bad-arg stream 'stream))
     297  (if (eq stream t)
     298    (setq stream *standard-output*)
     299    (unless (streamp stream) (report-bad-arg stream 'stream)))
    299300  (if (functionp control-string)
    300301    (apply control-string stream format-arguments)
Note: See TracChangeset for help on using the changeset viewer.