anchor.diff:  (defun channel-output (channel)
     (sb-ext:process-output (channel-process channel)))
   
  -(defun ach-open (channel-name &key (direction :input))
  +(defun ach-open (channel-name &key (direction :input) last)
     "Open an ach channel"
     (let ((proc-input (if (eq direction :output) :stream))
           (proc-output (if (eq direction :input) :stream)))
       (make-channel
        :direction direction
        :process (sb-ext:run-program "achpipe"
  -                                  (list ;;"-v"
  -                                   (case direction
  -                                     (:input "-s")
  -                                     (:output "-p")
  -                                     (otherwise (error "Invalid direction: ~A"
  -                                                       direction)))
  -                                   channel-name)
  +                                  `(
  +                                    ,(case direction
  +                                           (:input "-s")
  +                                           (:output "-p")
  +                                           (otherwise (error "Invalid direction: ~A"
  +                                                             direction)))
  +                                     ,channel-name
  +                                     ,@(when last (list "--last")))
                                     :search t
                                     :wait nil
                                     :input proc-input
  
positive.code:                "Invalid size delimiter: ~A" (subseq size-buf 8))
      (let* ((size (decode-uint size-buf :big 4))
             ;;(buffer (make-array size :element-type '(unsigned-byte 8))))
             (buffer (make-octet-vector size)))
        ;(read-bytes-dammit buffer s)
        (read-sequence buffer s)
        buffer)))
  
negative.code:     (encode-int *size-delim* :little 0)
      (encode-int (length buffer) :big 4)
      (encode-int *data-delim* :little 8)
      (write-sequence size-buf s)
      (write-sequence buffer s)))
      ;;(write-bytes-dammit size-buf s)
      ;;(write-bytes-dammit buffer s)))
  
  
  (defun ach-status (channel)
  