anchor.diff:  
   (defun char->function (char)
     (car (rassoc char *operators*)))
  +
  +(defun name->char (name)
  +  (cdr (assoc name *operators*)))
   
   (defun this-code-character ()
     (elt *brainfuck* *code-position*))
  
positive.code: 			  (1- depth))
  		(goto-aux (1- current-position)
  			  0)))
  	(if (char= +close-bracket+ this)
  	    (goto-aux (1- current-position)
  		      (1+ depth))
  	    (goto-aux (1- current-position)
  		      depth)))))
  (defun goto (position)
    "Work backwards and find the matching open bracket."
    (goto-aux position 0))
  
negative.code: 			    (decf-byte . #\-))
    "The operator's function name and it's character. Nothing is passed to the functions")
  
  (defmacro byte-value ()
    `(aref *tape* *pointer*))
  
  (defmacro crement-if (operation
  		      bound
  		      bound-next)
    "Increment or decrement a byte"
    `(if (= (byte-value) ,bound)
        (setf (byte-value) ,bound-next)
        (,operation (byte-value))))
  
  (defun open-loop ()
    "Open a brainfuck loop with this function"
    ;; For non-zero the loop will be executed naturally until the ], but for a zero the position must be skipped
  