anchor.diff:    (declare (ignore args))
     (export-fname fname))
     
  -(defexport defmethod (name &rest rest)
  -  (declare (ignore rest))
  -  name)
  +;; (defexport defmethod (name &rest rest)
  +;;   (declare (ignore rest))
  +;;   name)
   
   (defexport progn (&rest body)
     (apply #'nconc (map 'list #'list-autoexported-symbols body)))
  
positive.code: 			(read-file in))))))))
  	(read-file in)))))
    
  (defmacro export-from-file (file)
    `(export ',(list-autoexported-symbols-in-file file)))
  
  
  ;;;; Exporting standard forms
  
  
negative.code:   (declare (ignore rest))
    name)
  
  (defun export-defclass-form (class slotdefs &optional (export-slots-p t))
    (cons
     class
     (apply #'nconc
  