anchor.diff:  		  (convert-sequence (cddr form) environment))))
   	      ((or (and (not (or (member :compile-toplevel situations)
   				 (member 'compile situations)))
  -			(or (member :load-time-toplevel situations)
  +			(or (member :load-toplevel situations)
   			    (member 'load situations))
   			(or (member :execute situations)
   			    (member 'eval situations))
   			(not *compile-time-too*))
   		   (and (not (or (member :compile-toplevel situations)
   				 (member 'compile situations)))
  -			(or (member :load-time-toplevel situations)
  +			(or (member :load-toplevel situations)
   			    (member 'load situations))
   			(not (or (member :execute situations)
   				 (member 'eval situations)))))
  
positive.code: 	    (convert nil environment))
  	(cond ((or (and (or (member :compile-toplevel situations)
  			    (member 'compile situations))
  			(or (member :load-time-toplevel situations)
  			    (member 'load situations)))
  		   (and (not (or (member :compile-toplevel situations)
  				 (member 'compile situations)))
  			(or (member :load-time-toplevel situations)
  			    (member 'load situations))
  			(or (member :execute situations)
  			    (member 'eval situations))
  
negative.code: 		  (convert-sequence (cddr form) environment))))
  	      ((or (and (or (member :compile-toplevel situations)
  			    (member 'compile situations))
  			(not (or (member :load-toplevel situations)
  				 (member 'load situations))))
  		   (and (not (or (member :compile-toplevel situations)
  				 (member 'compile situations)))
  			(not (or (member :load-toplevel situations)
  				 (member 'load situations)))
  			(or (member :execute situations)
  			    (member 'eval situations))
  