Changeset 13538


Ignore:
Timestamp:
08/25/11 09:24:01 (6 years ago)
Author:
mevenson
Message:

(partially) address ticket #165.

sbcl-buildhost gets much further, and the ANSI tests show no
additional failures, but still something is not quite right here.

N.B. The test still doesn't succeed.

Location:
trunk/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/format.lisp

    r13183 r13538  
    10741074      (values
    10751075       (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)
    10771079                                                                        ,(if colonp
    10781080                                                                             (if atsignp
     
    25792581                                    (before (subseq directives 0 posn))
    25802582                                    (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)))))
    25892594                               (setf args (interpret-directive-list stream before orig-args args))
    25902595                               after))))
  • trunk/abcl/test/lisp/abcl/bugs.lisp

    r13508 r13538  
    8484    (values-list result))
    8585  "LOWER" "upper" "LOWER" "upper")
     86
     87;;; http://trac.common-lisp.net/armedbear/ticket/165
     88(deftest bugs.pprint.1
     89    (let ((result (make-array '(0) :element-type 'base-char :fill-pointer t)))
     90      (with-output-to-string (s result)
     91        (pprint-logical-block (s nil :per-line-prefix "---")
     92          (format s "~(~A~)" '(1 2 3 4))))
     93      result)
     94  "---(1 2 3 4)")
Note: See TracChangeset for help on using the changeset viewer.