anchor.diff:  
   ; info about how to encode the function
   
  -(defstruct encoding inst (spec 0) rd rs rt imm (fixed 0) fs ft fd func)
  +(defstruct encoding inst (spec 0) rd rs rt imm (fixed 0) fs ft fd (type 0) func)
   
   ;;
   ;; encode instruction
  
positive.code: 
  ;;; List over all ee - instructions
  
  (defun make-ee-instructions (enc opcode-list) 
  	(loop for i in opcode-list do 
  		(setf (gethash (first i) *mips-instructions*) (list (second i) enc))))
  
  ;;; instruction encoding
  
  
negative.code: 													 :element-type '(unsigned-byte 8))
  		(loop for i in instructions do
  			(encode-ee-instruction stream i))))
  ;;
  ;;
  ;;
  
  (defun gen-rand-inst () 
  	 (with-open-file (stream "c:/temp/code.txt" :direction :output :if-exists :overwrite)
  		 (loop for i from 0 to 100 do
  		 		(let* ((randnum (random 180))
  		 				   (instruction (aref *instruction-vector* randnum))
  							 (instruction-info (gethash instruction *mips-instructions*)))
  					(case (encoding-type instruction-info) 
  						(0 (format t "( ~S~% r2 r3 12 )" instruction))   
  						(1 (format t "( ~S~% r2 r3 r4 )" instruction))   
  						(2 (format t "( ~S~% r2 12 )" instruction))   
  						(3 (format t "( ~S~% 12 )" instruction))   
  						(4 (format t "( ~S~% r2 r3 )" instruction))
  						(5 (format t "( ~S~% r2 )" instruction))   
  						(6 (format t "( ~S~% )" instruction)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Implementing the mips (r5900 assembler here)
  