anchor.diff:  (defprocedure 'read-integer
       (format s "li $v0 , 5 ~%")
     (format s "syscall~%")
  -  (format s "move ~a , $v0~%" output)
  -  )
  +  (format s "move ~a , $v0~%" output))
   
   (setf (gethash 'print-string *procedures*) (lambda (params)
   					     (with-output-to-string (s *text*)
   					       (format s "la $a0 , ~a~%" (first params) )
   					       (format s "li $v0 , 4~%")
  -					       (format s "syscall~%")
  -					       )
  -					     ))
  -
  +					       (format s "syscall~%"))))
   
   
   (defun get-trap-code (function)
  
positive.code: 		 (read stream nil 'eof)))
  	  ((eql line 'eof))
  	(push line sexps)))
      (reverse sexps)
      )
    )
  
  ;;Checks if both arguments are present
  (unless (= 2 (length *args*))
  
negative.code:   "Find if the variable exists in the environment "
    (dolist (frame *env*)
      (when (assoc expr frame)
        (return t))))
  
  (defun get-register-for-var (var)
    (dolist (frame *env*)
  