anchor.diff:    (if (listp exprs)
         (every #'listp exprs)
         nil))
  -
   
   
   ;;Returning string-name as a string. Be careful.
  
positive.code: 					  (with-output-to-string (s *text*)
  					    ,@body)
  					  (free-temp-register params)
  					  output)))
    )
  
  (defprocedure '+
      (format s "add ~{~a~^,  ~} ~%" (cons output params) ))
  
negative.code: 		 (read stream nil 'eof)))
  	  ((eql line 'eof))
  	(push line sexps)))
      (reverse sexps)))
  
  ;;Checks if both arguments are present
  (unless (= 2 (length *args*))
  