[armedbear-ticket] [armedbear] #165: pprint-logical-block fails for format with list directive

[armedbear]

#165: pprint-logical-block fails for format with list directive
----------------------------+-----------------------------------------------
 Reporter:  mevenson        |       Owner:  somebody
     Type:  defect          |      Status:  new     
 Priority:  major           |   Milestone:  0.27    
Component:  other           |     Version:  0.27    
 Keywords:  sbcl-buildhost  |  
----------------------------+-----------------------------------------------
 Derived from the problems getting SBCL to compile, the following test
 fails with complaints in the XP package:

 {{{

 (defparameter *stream* *error-output*)

 (defun pprint-test ()
   (pprint-logical-block (*stream* nil :prefix "---")
     (format *stream* "~(~A~)" '(1 2 3 4))))
 }}}

 with this error

 {{{
 The value #S(XP::XP-STRUCTURE :BASE-STREAM #S(SLIME-OUTPUT-STREAM) :LINE-
 LENGTH 70 :LINE-LIMIT NIL :LINE-NO 1 :DEPTH-IN-BLOCKS 2 :BLOCK-STACK #(0 0
 3 NIL NIL NIL NIL NIL NIL NIL ...) :BLOCK-STACK-PTR 2 :BUFFER … is not of
 type STREAM.
 [Condition of type TYPE-ERROR]

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/165>
armedbear <http://common-lisp.net/project/armedbear>
armedbear