anchor.diff:  (defun goto-aux (current-position
   		 depth)
     (let ((this (elt *brainfuck* current-position)))
  -    (if (char= +open-bracket+ this)
  +    (if (char= (name->char 'open-loop) this)
   	(if (= 1 depth)
   	    current-position
   	    (if (> depth 1)
  
positive.code:   (cond ((= *pointer* *tape-size-default*) (setf *pointer* 0))
  	((= *pointer* -1) (setf *pointer* (1- *tape-size-default*)))))
  
  (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 incf-byte ()
    "Increment a byte, and wrap to 0 if 255 is incremented"
    (crement-if incf *max-byte* *min-byte*))
  
negative.code: 
  (defun char->function (char)
    (car (rassoc char *operators*)))
  
  (defun name->char (name)
    (cdr (assoc name *operators*)))
  
  (defun this-code-character ()
    (elt *brainfuck* *code-position*))
  