anchor.diff:  ;;; UTILS ;;;
   ;;;;;;;;;;;;;
   
  +(defmacro ach-closef (&rest places)
  +  `(progn
  +     ,@(loop
  +          for place in places
  +          collect
  +            `(when (and (boundp ',place)  ,place)
  +               (ach:ach-close ,place)
  +               (setq ,place nil)))))
  +
   (defgeneric ach-map (result-type function thing))
   
   (defmethod ach-map ((result-type (eql nil)) (function function) (thing stream))
  
positive.code:   (:use :cl :binio :usocket)
    (:export :ach-connect :ach-close :ach-read :ach-write
             :ach-next :ach-last :ach-poll :ach-put
             :ach-map :with-ach-log
             ))
  
  
negative.code: ;;;;;;;;;;;;;;;
  ;;; SOCKETS ;;;
  ;;;;;;;;;;;;;;;
  
  (defun ach-connect (channel-name &key
                      (host "localhost")
                      (port 8075)
  