anchor.diff:    (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*))
  
positive.code: (defun goto-aux (current-position
  		 depth)
    (let ((this (elt *brainfuck* current-position)))
      (if (char= +open-bracket+ this)
  	(if (= 1 depth)
  	    current-position
  	    (if (> depth 1)
  
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*))
  