anchor.diff:           (push initarg seen-initargs)))
     `(list ,@(loop
                 for (initarg form) on initargs by #'cddr
  -              collect `(list ',initarg ',form #'(lambda () ,form)))))
  +              collect `(list ',initarg ',form #'(lambda ()
  +                                                  (declare (sys.int::lambda-name (default-initarg ,class-name ,initarg)))
  +                                                  ,form)))))
   
   )
   
  
positive.code:     (t
       `(',(first option) ',(rest option)))))
  
  (defun canonicalize-defclass-default-initargs (initargs)
    (check-plist initargs)
    (let ((seen-initargs '()))
      (loop
  
negative.code:          (sys.int::%compiler-defclass ',name))
         (ensure-class ',name
                       :direct-superclasses ',direct-superclasses
                       :direct-slots (list ,@(loop
                                                for slot in direct-slots
                                                collect (canonicalize-defclass-direct-slot name slot)))
                       ,@(loop
                            for option in options
                            append (canonicalize-defclass-option name option))))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
  