anchor.diff:  ;; utils
   
   (defun byte-length (string)
  +  "Return the length of STRING in octets encoded using *REDIS-EXTERNAL-FORMAT*."
     (octet-length string :external-format *redis-external-format*))
   
   (defun write-redis-line (fmt &rest args)
  
positive.code: (defparameter *redis-port* 6379
    "Default Redis connection port.")
  
  (defparameter *redis-external-format* (make-external-format :utf8 :eol-style :crlf))
  
  (defvar *echo-p* nil
    "Whether the server-client communication should be echoed to the
  
negative.code: <_: args /> is the <_:fun tell /> arguments, <_:arg docstring /> ~
  is the function's doc itself."
    (let ((cmd-name (intern (format nil "~a-~a" *cmd-prefix* cmd))))
      `(progn
         (defun ,cmd-name (,@args)
           ,docstring
           (with-reconnect-restart
             ,(if-it (position '&rest args)
                     `(apply #'tell ,cmd-type
                             ',cmd
                             ,@(subseq args 0 it)                   
                             ,(nth (1+ it) args))
                     `(tell ,cmd-type ',cmd ,@args))
             (expect ,reply-type)))
         (export ',cmd-name :redis))))
  
  ;;; end