anchor.diff:  					  (with-output-to-string (s *text*)
   					    ,@body)
   					  (free-temp-register params)
  -					  output)))
  -  )
  +					  output))))
   
   (defprocedure '+
       (format s "add ~{~a~^,  ~} ~%" (cons output params) ))
  
positive.code: ;;Print out the compiled code to standard output and file
  (let ((stream (open (second *args*) :direction :output)))
    (format stream ".data~%")
    (format stream "~a" *data*)
    (format stream ".text~%.globl main~%main:~%")
    (format stream "~a" *text*)
    (format t ".data~%")
    (format t "~(~a~)" *data*)
    (format t ".text~%.globl main~%main:~%")
  
negative.code:   (if (listp exprs)
        (every #'listp exprs)
        nil))
  
  
  ;;Returning string-name as a string. Be careful.
  