anchor.diff:  (deftest implied
       "The implied addressing mode is basically just a stub to remove style
   warnings during macroexpansion of defopcode and friends."
  -  (is (null (implied cpu))))
  +  (is (null (getter 'implied t cpu))))
   
   (deftest accumulator
       "The accumulator mode is just a setf-able wrapper of the AR field in the
   CPU structure."
  -  (setf (accumulator cpu) #x20)
  -  (is (= (cpu-ar cpu) (accumulator cpu) #x20)))
  +  (setter 'accumulator #x20 cpu)
  +  (is (= (cpu-ar cpu) (getter 'accumulator t cpu) #x20)))
   
   (deftest immediate
       "The immediate mode is just a setf-able wrapper of the PC field in the
   CPU structure."
  -  (setf (immediate cpu) #x80)
  -  (is (= (cpu-pc cpu) (immediate cpu) #x80)))
  +  (setter 'immediate #x80 cpu)
  +  (is (= (cpu-pc cpu) (getter 'immediate t cpu) #x80)))
   
   (deftest zero-page
       "The zero-page mode should always return the (unsigned-byte 8) pointed to
   by the Program Counter."
     (for-all ((pc-addr (gen-integer :min 0 :max #xffff)))
       (setf (cpu-pc cpu) pc-addr)
  -    (is (typep (zero-page cpu) '(unsigned-byte 8)))
  -    (is (= (get-byte pc-addr) (zero-page cpu)))))
  +    (is (= (get-byte pc-addr) (getter 'zero-page t cpu)))))
   
   (deftest zero-page-x
       "The zero-page-x mode should always return the (unsigned-byte 8) pointed
  
positive.code:   (for-all ((pc-addr (gen-integer :min 0 :max #xffff))
              (y-reg (gen-integer :min 0 :max #xff)))
      (setf (cpu-pc cpu) pc-addr (cpu-yr cpu) y-reg)
      (is (typep (absolute-y cpu) '(unsigned-byte 16)))
      (is (= (absolute-y cpu) (wrap-word (+ (get-word pc-addr) y-reg))))))
  
  (deftest indirect
      "The indirect mode should always return the (unsigned-byte 16) pointed to
  by the word pointed to by the Program Counter."
    (for-all ((pc-addr (gen-integer :min 0 :max #xffff)))
      (setf (cpu-pc cpu) pc-addr)
      (is (typep (indirect cpu) '(unsigned-byte 16)))
      (is (= (indirect cpu) (get-word (get-word pc-addr))))))
  
  (deftest indirect-x
      ""
  
negative.code:   (for-all ((pc-addr (gen-integer :min 0 :max #xffff))
              (x-reg (gen-integer :min 0 :max #xff)))
      (setf (cpu-pc cpu) pc-addr (cpu-xr cpu) x-reg)
      (is (= (wrap-word (+ (get-word pc-addr) x-reg))
             (getter 'absolute-x t cpu)))))
  
  (deftest absolute-y
      "The absolute mode should always return the (unsigned-byte 16) pointed to
  