anchor.diff:  ;;;   (simple-proxy:start local-bind local-port
   ;;;                       remote-host remote-port
   ;;;                       &key stats debug)
  -;;; 
  +;;;
   ;;; Not only does this offer a good example of a more advanced usage of cl-async
   ;;; but is actually really useful for peeking into plaintext TCP protocols. For
   ;;; instance, you could use it to debug HTTP requests or learn what a driver is
  
positive.code:                      (as:delay #'print-stats :time 2))))
            (print-stats)))))
    (format t "Closed.~%"))
  
  
negative.code:           (format t "---~a(~a)---~%" location (length data))
            (when *verbose*
              (handler-case (format t "~a~%" (babel:octets-to-string data :encoding :utf-8))
                (error () (format t "~a~%" (to-ascii data))))))
          (format t "---~a---~%" location))))
  
  (defun socketp (socket)
  