anchor.diff:                 (funcall char stream))
          (force-output stream-))))
   
  +#+sbcl
   (defun line-number (stream)
     (format (count-line-stream-base stream) "~&~8d " (count-line-stream-count stream)))
   
  
positive.code: (in-package :ros.install)
  
  (defclass count-line-stream (sb-gray:fundamental-character-output-stream)
    ((base :initarg :base 
           :initform *standard-output*
  
negative.code:                 :reader count-line-stream-count-char)
     (count :initform -1
            :accessor count-line-stream-count)))
  #+sbcl
  (defmethod sb-gray:stream-write-char ((stream count-line-stream) character)
    (when (char= character (count-line-stream-count-char stream))
      (loop
  