anchor.diff:  			    (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
  
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 skip-loop-aux (position depth)
    (let ((this (char *brainfuck* position)))
      (if (char= (name->char 'open-loop) this)
  	(skip-loop-aux (1+ position) (1+ depth))
  	(if (char= (name->char 'close-loop) this)
  	    (if (= 1 depth)
  		(1+ position)
  		(skip-loop-aux (1+ position) (1- depth)))
  