anchor.diff:      (() . "()")))
   
   (define (print-list ostr l)
  -  (write-string ostr "(")
  +  (write-character ostr #\()
     (print ostr (car l))
     (set! l (cdr l))
   
     (while (pair? l)
  -    (write-string ostr " ")
  +    (write-character ostr #\Space)
       (print ostr (car l))
       (set! l (cdr l)))
   
  
positive.code:     (write-string ostr " . ")
      (print ostr l))
  
    (write-string ostr ")"))
  
  (define (print ostr obj)
    (cond ((pair? obj)
  
negative.code: (define (print-character ostr ch)
    (if *print-readably*
        (begin
          (write-character ostr #\\)
          (define name (assoc ch character-names))
          (write-string ostr (if name (character-string ch) (cdr name))))
        (write-string ostr (character-string ch))))
  