anchor.diff:  (defun /whowas (nicknames &optional count target)
     (format-message nil "WHOWAS" (comma-list nicknames) count target))
   
  -(defun /kill (nickname comment)
  -  (format-message nil "KILL" nickname comment))
  -
  -(defun /ping (server1 &optional server2)
  -  (format-message nil "PING" server1 server2))
  -
   (defclass ping-message (message) ())
   
  -(defun /pong (server1 &optional server2)
  -  (format-message nil "PONG" server1 server2))
  -
   (defclass pong-message (message) ())
   
   (defclass error-message (message) ())
   
  -(defun /away (&optional text)
  -  (format-message nil "AWAY" text))
  -
   (defclass away-message (message) ())
  -
  -(defun /rehash ()
  -  (format-message nil "REHASH"))
  -
  -(defun /die ()
  -  (format-message nil "DIE"))
  -
  -(defun /restart ()
  -  (format-message nil "RESTART"))
  -
  -(defun /summon (user &optional target channel)
  -  (format-message nil "SUMMON" user target channel))
  -
  -(defun /users (&optional target)
  -  (format-message nil "TARGET" target))
  -
  -(defun /wallops (text)
  -  (format-message nil "WALLOPS" text))
   
   (defun /userhost (&rest nicknames)
     (apply #'format-message nil "USERHOST" nicknames))
  
positive.code:                    (args message-args)) message
      (format-message prefix command args)))
  
  (defun /pass (password)
    (format-message nil "PASS" password))
  
  (defun /nick (nickname)
    (format-message nil "NICK" nickname))
  
  (defclass nick-message (message) ())
  
  (defun /user (user mode realname)
    (format-message nil "USER" user mode "*" realname))
  
  (defun /oper (name password)
    (format-message nil "OPER" name password))
  
  (defun /mode (nickname-or-channel &rest params)
    (apply #'format-message nil "MODE" nickname-or-channel params))
  
  (defclass mode-mesage (message) ())
  
  (defun /service (nickname distribution type info)
    (format-message nil "SERVICE" nickname "*" distribution type "*"  info))
  
  (defun /quit (&optional quit-message)
    (format-message nil "QUIT" quit-message))
  
  (defun /squit (server comment)
    (format-message nil "SQUIT" server comment))
  
  (defun comma-list (list &key key)
    (let ((list (if (atom list) (list list) list)))
  
negative.code: (defun /list (channels)
    (format-message nil "LIST" (comma-list channels)))
  
  (defclass invite-message (message) ())
  
  (defun /kick (channels users &optional comment)
    (format-message nil "KICK" (comma-list channels) (comma-list users) comment))
  
  (defclass privmsg-message (message) ())
  
  (defclass notice-message (message) ())
  
  (defun /whois (users &optional target)
    (format-message nil "WHOIS" target (comma-list users)))
  