CL-USER> (defclass shit-metaclass ()
           ((default-initargs :initarg :direct-default-initargs)
            (direct-slots :initarg :direct-slots)
            (direct-superclasses :initarg :direct-superclasses)
            (documentation :initarg :documentation)
            (name :initarg :name)))
#<STANDARD-CLASS COMMON-LISP-USER::SHIT-METACLASS>
CL-USER> (defclass shit-class () () (:metaclass shit-metaclass))

Invalid initialization arguments:
  SB-PCL::SAFE-P, SB-PCL::SOURCE
in call for class #<STANDARD-CLASS COMMON-LISP-USER::SHIT-METACLASS>.
   [Condition of type SB-PCL::INITARG-ERROR]
See also:
  Common Lisp Hyperspec, 7.1.2 [:section]