anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (in-package :sykobot)
   
  -;; ;;; Response stack
  -;; ;;; Used to assist piping and multiple return values
  -;; (defvar *responses*)
  -
   ;;; Modularization of commands
   (defproto command-bot ((proto 'listener-bot))
     ((commands (make-hash-table :test #'equal))
  
positive.code:                               (sender (proto 'string))
                                (channel (proto 'string))
                                (message (proto 'string)))
    (destructuring-bind (command &optional args)
        (split "\\s+" message :limit 2)
      (send-reply bot channel sender
                  (funcall (command-function bot command)
  			 bot args sender channel)))
    #+nil (let* ((results (process-command-string bot message sender channel)))
            (loop for result in results
               do (send-reply bot channel sender (build-string result)))))
  
negative.code:     `(add-command (proto 'command-bot) (symbol-name ',name)
  		  (defclone ((proto 'command))
  		      ((cmd-function
                          (lambda ()
                            ,@(if vars
                                  `((or (register-groups-bind ,vars (,regex *message*)
                                          ,@real-body)
  