anchor.diff:            (format t "---~a(~a)---~%" location (length data))
             (when *verbose*
               (handler-case (format t "~a~%" (babel:octets-to-string data :encoding :utf-8))
  -              (t () (format t "~a~%" (to-ascii data))))))
  +              (error () (format t "~a~%" (to-ascii data))))))
           (format t "---~a---~%" location))))
   
   (defun socketp (socket)
  
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:                      (as:delay #'print-stats :time 2))))
            (print-stats)))))
    (format t "Closed.~%"))
  