Changeset 10431
- Timestamp:
- Aug 11, 2008, 6:48:00 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/format.lisp
r9046 r10431 360 360 (do-sub-format stream)))))) 361 361 nil)))) 362 363 (defun format-to-string (string control-string &rest format-arguments) 364 (declare (dynamic-extent format-arguments)) 365 (if string 366 (with-output-to-string (stream string) 367 (apply #'format stream control-string format-arguments)) 368 (with-output-to-string (stream) 369 (apply #'format stream control-string format-arguments)))) 362 370 363 371 (defun do-sub-format (stream)
Note: See TracChangeset
for help on using the changeset viewer.