anchor.diff:  
   (defvar *magic-players* nil)
   (defvar *magic-matches* nil)
  +(defvar *magic-locked* nil)
   
   (defun magic-wins-of (nick)
     (count-if (lambda (match)
  
positive.code:                        :if-exists :supersede
                         :if-does-not-exist :create)
      (print *magic-players* ouf)
      (print *magic-matches* ouf)))
  
  (define-admin-command mreset (message directp)
    (reset-tournament))
  
  (define-fun-command madd (message directp &rest nicks)
    (let ((old-player-len (length *magic-players*)))
      (add-magic-players nicks)
      (reply-to message "added ~d players" (- (length *magic-players*)
                                              old-player-len))))
  
  (define-fun-command mdrop (message directp &rest nicks)
    (let ((old-player-len (length *magic-players*)))
      (drop-magic-players nicks)
      (reply-to message "dropped ~d players" (- old-player-len
                                                (length *magic-players*)))))
  
  (define-fun-command mmatch (message directp winner loser)
    (cond
  
negative.code: 
  (define-fun-command mhelp (message directp)
    (dolist (text '("mhelp                    - display this notice"
                    "mjoin                    - join the current tournament"
                    "mleave                   - leave the current tournament"
                    "mmatch <winner> <loser>  - add a match to the record, sets the title"
                    "mscore                   - gives all scores"
                    "mleft                    - gives list of undone matches"))
  