anchor.diff:  	        (progn
   			  (format str " . ")
                 (%print-atom x str)))
  -        (format str ")~%"))))
  +        (format str ")"))))
   
   (defun %print-cons (x str)
     (princ #\( str)
  
positive.code: 	(stringp x) (%print-string x str)
  	(%print-symbol x str)))
  
  (defun late-print (x &optional (str *standard-output*))
    (with-default-stream s str
      (if (consp x)
  	    (%print-cons x s)
  	    (%print-atom x s))))
  
negative.code:       t)))
  
  (defun %print-rest (c str)
    (%late-print c. str)
    (let x .c
      (if x
          (if (consp x)
              (progn
  