anchor.diff:    (:nicknames #:redis)
     (:use #:cl)
     (:shadow #:set #:get #:type #:sort #:append)
  +  (:import-from #:babel #:string-to-octets #:octets-to-string)
  +  (:import-from #:babel-streams #:with-output-to-sequence)
  +  (:import-from #:usocket #:socket-connect #:socket-close #:socket-stream)
     (:export
      #:*port*
      #:*host*
  
positive.code:                          (:min "MIN")
                           (:max "MAX")))))
                    (write-sequence
                     (babel-streams:with-output-to-sequence (out)
                       (write-multi-bulk (nreverse sequences) nsequences out))
                     (connection-stream connection))
                    (force-output (connection-stream connection))
  
negative.code:   (etypecase result
      (null result)
      (integer (if booleanize (= 1 result) result))
      (string (if want-octets (string-to-octets result) result))
      (vector (if want-octets result (octets-to-string result)))
      (cons (map-into result (lambda (x) (translate-result x want-octets booleanize)) result))))
  
  (defun key-sequence (key)
  