anchor.diff:                ,@args #\return #\linefeed)
        (finish-output (usocket:socket-stream ,socket))))
   
  +(defun set-nick (socket nick)
  +  "Set user name for server."
  +  (send-cmd socket "NICK ~a" nick)
  +  (send-cmd socket "USER ~a ~:*~a ~:*~a :~:*~a" nick))
  +
   (defun connect (server port nick channels)
     "Connect to IRC server and return socket."
     (let ((irc-socket (usocket:socket-connect server port)))
  -    (send-cmd irc-socket "NICK ~a" nick)
  -    (send-cmd irc-socket "USER ~a ~:*~a ~:*~a :~:*~a" nick)
  +    (set-nick irc-socket nick)
  +    ;; (send-cmd irc-socket "NICK ~a" nick)
  +    ;; (send-cmd irc-socket "USER ~a ~:*~a ~:*~a :~:*~a" nick)
       (send-cmd irc-socket "JOIN ~{#~a~^,~}" channels)
       irc-socket))
   
  
positive.code:   "Split string LINE by sequence SEQ once."
    (let ((pos (search seq line)))
      (list (subseq line 0 pos) (subseq line (+ pos (length seq))))))
  
  ;; IRC message classes
  
  
negative.code:     :accessor date
      :documentation "Message date in lisp universal date format")))
  
  ;; Pretty date formatting
  (defgeneric date-fmt (irc-message)
    (:documentation  "Format message date in UTC."))
  
  