anchor.diff:   `(progn
   		(defun ,name (stream instruction arguments enc)
   			(let ((code 0))
  +				(pprint enc)
   				,(when (first inst-layout)
   					;; Generate the let for all the registers
   					`(let ,(loop for i in (first inst-layout) for c from 1 collecting 
  
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: 
  ;; diffrent type of ee instructions
  
  (def-inst-type inst-type0 ((rs rt) #x0000ffff)) 
  (def-inst-type inst-type1 ((rd rt rs))) 
  (def-inst-type inst-type2 ((rs) #x0000ffff)) 
  (def-inst-type inst-type3 (() #x0000ffff)) 
  