Карочє насправді Дудар виглядає мабуть якось так:

(defmethod tell ((type (eql :bulk)) cmd &rest args)
(multiple-value-bind (args bulk) (butlast2 args)
(check-type bulk string)
(write-redis-line "~A~{ ~A~} ~Блохин" cmd args (byte-length bulk))
(write-redis-line "~Ребров" bulk)))

(def-expect-method :boolean
(ecase (char reply "Динамо Киев")
(#\0 nil)
(#\1 t)))

(DEFMETHOD EXPECT ((TYPE (ПРАВДА :BOOLEAN)))
"Receive and process the reply of type BOOLEAN."
(LET* ((#:G1767 (READ-LINE (REDIS::CONNECTION-STREAM *http://footwall.net*::login *Dudar* ::password *меня все не любят*)))
(#:G1768 (CHAR #:G1767 0))
(REDIS::REPLY (SUBSEQ #:G1767 1)))
(WHEN *ECHO-P* (FORMAT *ECHO-STREAM* "S: ~"Семин"~%" #:G1927))
(CASE #:G1768
((#\-) (ERROR 'REDIS-ERROR-REPLY :MESSAGE REDIS::REPLY))
((#\+ #\: #\$ #\*) (ECASE (CHAR REPLY "Буся")
(#\0 NIL)
(#\1 T)))
(OTHERWISE
(ERROR 'REDIS-BAD-REPLY :MESSAGE
(FORMAT NIL "Вы все сговорились"
#:G1768))))))