[armedbear-ticket] [armedbear] #158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL

[armedbear]

#158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL
------------------------+---------------------------------------------------
 Reporter:  ehuelsmann  |       Owner:  nobody
     Type:  defect      |      Status:  new   
 Priority:  major       |   Milestone:        
Component:  libraries   |     Version:        
 Keywords:  patch       |  
------------------------+---------------------------------------------------
Changes (by ehuelsmann):

  * keywords:  => patch


Comment:

 The patch below fixes this and doesn't create any new regressions in the
 ansi test suite. However, why was this bit of code there? Am I missing
 something???


 Index: print.lisp
 ===================================================================
 --- print.lisp  (revision 13405)
 +++ print.lisp  (working copy)
 @@ -280,10 +280,11 @@
            (symbol-package x))))

  (defun %print-object (object stream)
 -  (when (and *print-readably*
 -             (typep object 'string)
 -             (search "#<" object))
 -    (error 'print-not-readable :object object))
 +  ;; ### Why was this section here??? EH20110715
 +  ;; (when (and *print-readably*
 +  ;;            (typep object 'string)
 +  ;;            (search "#<" object))
 +  ;;   (error 'print-not-readable :object object))
    (if *print-pretty*
        (xp::output-pretty-object object stream)
        (output-ugly-object object stream)))

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/158#comment:1>
armedbear <http://common-lisp.net/project/armedbear>
armedbear