anchor.diff:  (defvar *brainfuck* ""
     "Place to store brainfuck code input string globally")
   
  +(define-condition open-loop-at-zero () ())
   (defparameter *operators*
     '((#\+ . +)
       (#\- . -)
  
positive.code: (defun integer-to-ascii (integer)
    (cdr (assoc integer *ascii*)))
  
  (defun position-last-open-bracket (string start-position)
    "Find the matching bracket for this loop. It NEEDS TO LEARN ABOUT NESTING"
    (position #\[ (subseq string 0 start-position) :from-end t))
  
  (defun right-shift ()
    "Move to the next byte to the \"right\""
    (setf *pointer* (1+ *pointer*)))
  
negative.code: (defvar *pointer* (pointer-default)
    "The pointer location for the tape. Starts near the middle.")
  
  (defmacro byte-value ()
    `(elt *tape* *pointer*))
  
  (defun remove-first (string)
    (if (= 1 (length string))
        ""
  