anchor.diff:               ((char= #\@ (char line 0))
                 (setf name (subseq line 1)))
                ((char= #\% (char line 0))
  -              (setf (gethash name *magic-cards*) (reverse desc))
  +              (set-hash-with-lookup name (reverse desc) *magic-cards* *magic-card-lookup*)
                 (setf desc nil)
                 (setf name nil))
                (t
  
positive.code:     (print *magic-locked* ouf)))
  
  (defparameter *magic-cards* (make-hash-table :test 'equalp))
  
  (defun load-oracle-db ()
    (let ((name nil)
          (desc nil))
      (clrhash *magic-cards*)
      (with-open-file (inf (orca-path "data/oracle.dat"))
        (loop
           for line = (read-line inf nil)
  
negative.code: 
  (define-fun-command mcard (message directp &rest card)
    (let* ((query (format nil "~{~a~^ ~}" card))
           (result (get-hash-with-lookup query *magic-cards* *magic-card-lookup*)))
      (if result
          (loop for line in result
             as indent = "" then "    " do
               (reply-to message "~a~a" indent line)))))
  
  (define-fun-command mreset (message directp)
    (reset-tournament))
  