anchor.diff:              (3 (format stream "(~(~s~) 12)~%" instruction))   
               (4 (format stream "(~(~s~) r2 r3)~%" instruction))
               (5 (format stream "(~(~s~) r2)~%" instruction))   
  -            (6 (format stream "(~(~s)~)~%" instruction)))))))
  +            (6 (format stream "(~(~s~))~%" instruction))
  +            (7 (format stream "(~(~s~) f2 f3)~%" instruction))
  +            (8 (format stream "(~(~s~) f2 f3 f4)~%" instruction))
  +            (9 (format stream "(~(~s~) f2 f3 12)~%" instruction))
  +            (10 (format stream "(~(~s~) r2 f3)~%" instruction))
  +)))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Implementing the mips (r5900 assembler here)
  
positive.code: ;;; Loots of testing / hacking around currently
  ;;;
  
  (defmacro make-ee-registers-hash ()
    (let ((hash (make-hash-table :test #'eq)))
      (loop for i from 0 to 31 collecting (setf (gethash (intern (format nil "R~d" i)) hash) i)) hash))
  
  (defparameter *ee-registers* (make-ee-registers-hash)) 
  (defparameter *fpu-registers* nil) 
  (defparameter *register-type-lut* '(rs *ee-registers* rt *ee-registers* rd *ee-registers*
                                      fs *fpu-registers* ft *fpu-registers* fd *fpu-registers*))
  
  
negative.code: 
  (make-ee-instructions (make-encoding :spec 1 :inst 16 :rs 21 :imm 0 :type 2 :func #'inst-type2)
                        '((teqi #b01100) (tgei  #b01000) (tgeiu #b01001)
                          (tlti #b01010) (tltiu #b01011) (tnei  #b01110)))
  
  (make-ee-instructions (make-encoding :spec #b011100 :fixed #b001000 :inst 6 :rs 16 :rt 11 :type 4 :func #'inst-type4)
                        '((pext5  #b11110) (ppac5 #b11111)))
  