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:     (let* ((src (get-opt "src"))
             (compiler (format nil "~A lisp=~A --no-rc run --" *ros-path* (get-opt "sbcl.compiler")))
             (cmd (format nil "sh make.sh \"--xc-host=~A\" \"--prefix=~A\"" compiler (get-opt "prefix")))
             (*standard-output* (make-broadcast-stream out (make-instance 'count-line-stream))))
        (uiop/os:chdir src)
        (uiop/run-program:run-program cmd :output t)))
    (cons t argv))
  
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
  