anchor.diff:    (sys.gray:stream-line-length s))
   (defun output-position (&optional (s *standard-output*))
     (sys.gray:stream-line-column s))
  - 
   
   
  
positive.code: 
  ;note following is smallest number >= x that is a multiple of colinc
  ;  (* colinc (floor (+ x (1- colinc)) colinc))
  
  (defun pprint-newline+ (kind xp)
    (enqueue xp :newline kind)
  
negative.code: 	  (pop-prefix-stack xp)))))
      (cl:princ ">" s)
      (values))
  
  ;This maintains a list of XP structures.  We save them
  ;so that we don't have to create new ones all of the time.
  