Changeset 13538 for trunk/abcl/src/org/armedbear/lisp/format.lisp
- Timestamp:
- 08/25/11 09:24:01 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/format.lisp
r13183 r13538 1074 1074 (values 1075 1075 (expand-bind-defaults () params 1076 `(let ((stream (sys::make-case-frob-stream stream 1076 `(let ((stream (sys::make-case-frob-stream (if (typep stream 'xp::xp-structure) 1077 (xp::base-stream stream) 1078 stream) 1077 1079 ,(if colonp 1078 1080 (if atsignp … … 2579 2581 (before (subseq directives 0 posn)) 2580 2582 (after (nthcdr (1+ posn) directives)) 2581 (stream (sys::make-case-frob-stream stream 2582 (if colonp 2583 (if atsignp 2584 :upcase 2585 :capitalize) 2586 (if atsignp 2587 :capitalize-first 2588 :downcase))))) 2583 (stream (sys::make-case-frob-stream 2584 (if (typep stream 'xp::xp-structure) 2585 (xp::base-stream stream) 2586 stream) 2587 (if colonp 2588 (if atsignp 2589 :upcase 2590 :capitalize) 2591 (if atsignp 2592 :capitalize-first 2593 :downcase))))) 2589 2594 (setf args (interpret-directive-list stream before orig-args args)) 2590 2595 after))))
Note: See TracChangeset
for help on using the changeset viewer.