anchor.diff:    (:use :cl :binio :usocket)
     (:export :ach-connect :ach-close :ach-read :ach-write
              :ach-next :ach-last :ach-poll :ach-put
  +           :ach-closef
              :ach-map :with-ach-log
              ))
   
  
positive.code: ;;; UTILS ;;;
  ;;;;;;;;;;;;;
  
  (defgeneric ach-map (result-type function thing))
  
  (defmethod ach-map ((result-type (eql nil)) (function function) (thing stream))
  
negative.code: ;;;;;;;;;;;;;;;
  ;;; SOCKETS ;;;
  ;;;;;;;;;;;;;;;
  
  (defun ach-connect (channel-name &key
                      (host "localhost")
                      (port 8075)
  