anchor.diff:  ;;List storing all the registers
   (defvar *register-list* '())
   
  -;Creates a list with all the registers
  +;;Creates a list with all the registers
   (dolist  (part *mnemonics*)
     (if (cdr part)
         (dotimes (x (cdr part))
  
positive.code: ;;Setting up stuff with all the registers and shit
  (defparameter *number-registers* 12)
  
  ;;contains name of the register, consed with a number if subscript goes from 0 - n-1
  (defparameter *mnemonics*
    '((zero)
  
negative.code:       (push  (make-register :name (symbol-name (car part)))
  	     *register-list*)))
  (setf *register-list* (reverse *register-list*))
  ;;(format t "~%All registers loaded~%")
  
  (defun get-trap-code (function)
    "Returns the trap code for syscalls"
    (let ((trap-code 0)
  	(syscall (list 'print_int 
  		       'print_float
  		       'print_double 
  		       'print_string 
  		       'read_int 
  		       'read_float 
  		       'read_double 
  		       'read_string 
  		       'sbrk 
  		       'exit 
  		       'print_char 
  		       'read_char
  		       'file_open
  		       'file_read 
  		       'file_write 
  		       'file_close )))
      (dolist (sys syscall trap-code)
        (incf trap-code)
        (when (equal function sys)
  