anchor.diff:    reply)
   
   (def-expect-method :boolean
  -    (ecase (char reply 0)
  -      (#\0 nil)
  -      (#\1 t)))
  +  (ecase (char reply 0)
  +    (#\0 nil)
  +    (#\1 t)))
   
   (def-expect-method :integer
  -    (values (parse-integer reply)))
  +  (values (parse-integer reply)))
   
   (def-expect-method :bulk
  -    (let ((size (parse-integer reply)))
  -      (if (= size -1)
  -          nil
  -          (let ((octets (make-array size :element-type 'octet)))
  -            (read-sequence octets *redis-stream*)
  -            (read-byte *redis-stream*)      ; #\Return
  -            (read-byte *redis-stream*)      ; #\Linefeed
  -            (let ((string (octets-to-string octets
  -                                            :external-format *redis-external-format*)))
  -              (when *echo-p* (format *echo-stream* "S: ~A~%" string))
  -              string))))) 
  +  (let ((size (parse-integer reply)))
  +    (if (= size -1)
  +        nil
  +        (let ((octets (make-array size :element-type 'octet)))
  +          (read-sequence octets *redis-stream*)
  +          (read-byte *redis-stream*)    ; #\Return
  +          (read-byte *redis-stream*)    ; #\Linefeed
  +          (let ((string (octets-to-string octets
  +                                          :external-format *redis-external-format*)))
  +            (when *echo-p* (format *echo-stream* "S: ~A~%" string))
  +            string))))) 
   
   (def-expect-method :multi
  -    (let ((n (parse-integer reply)))
  -      (if (= n -1)
  -          nil
  -          (loop repeat n collect (expect :bulk)))))
  +  (let ((n (parse-integer reply)))
  +    (if (= n -1)
  +        nil
  +        (loop repeat n collect (expect :bulk)))))
   
   (defmethod expect ((type (eql :end)))
     ;; do nothing
  
positive.code:   (cl-ppcre:split " " (expect :bulk)))
      
  ;; command definition
  
  (defparameter *cmd-prefix* 'red
    "Prefix for functions, implementing Redis commands")
  
negative.code: (defparameter *redis-port* 6379
    "Default Redis connection port.")
  
  (defparameter *redis-external-format* (make-external-format :utf-8 :eol-style :crlf))
  
  (defvar *echo-p* nil
    "Whether the server-client communication should be echoed to the
  