anchor.diff:                       nil
                        (cdr name-and-options))))
       (let ((conc-name        (get-option :conc-name      options))
  -          (constructors     (get-option :constructor    options :list))
  +          (constructors     (get-option :constructor    options :list t))
             (copier           (get-option :copier         options))
             (predicate        (get-option :predicate      options))
             (print-function   (get-option :print-function options))
  
positive.code:           (include          (get-option :include        options))
            (initial-offset   (get-option :initial-offset options))
            (structure-type-p (get-option :type           options))
            (structure-type   (get-option :type           options)))
        (when (and print-object print-function)
          (error 'simple-program-error
                 :format-control "Cannot have :print-object and :print-function options."))
  
negative.code:                 print-function print-object
                  structure-type-p structure-type
                  ;; --
                  documentation slots slot-names accessors namedp)))))
  
  (defun generate-class-structure (name conc-name constructors copier
                                   include initial-offset predicate
  