anchor.diff:                       (as:delay #'print-stats :time 2))))
             (print-stats)))))
     (format t "Closed.~%"))
  -
  
positive.code: ;;;   (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
  
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)
  