anchor.diff:  	     (list slotdef)
   	   (destructuring-bind
   	       (name &key reader writer accessor &allow-other-keys) slotdef
  -	     (delete nil (list name reader (export-fname writer) accessor)))))
  +	     (delete nil (list (when export-slots-p name) reader (export-fname writer) accessor)))))
        slotdefs))))
   
   (defexport defclass (class superclasses &optional slotdefs &rest options)
  
positive.code: (defpackage "AUTOEXPORT"
    (:use "COMMON-LISP")
    (:export "LIST-AUTOEXPORTED-SYMBOLS" "LIST-AUTOEXPORTED-SYMBOLS-IN-FILE"
  	   "DEFEXPORT" "EXPORT-FROM-FILE" "INTERNAL"))
  
  (in-package "AUTOEXPORT")
  
  
negative.code:   (declare (ignore rest))
    name)
  
  (defun export-defclass-form (class slotdefs &optional (export-slots-p t))
    (cons
     class
     (apply #'nconc
  