Macro: WITH-CLASS-SLOTS

Documentation

Execute BODY as if in a with-slots form containig _all_ the slots of (find-clas CLASS-NAME). This macro, which is something of an ugly hack, inspects the class named by CLASS-NAME at macro expansion time. Should the class CLASS-NAME change form containing WITH-CLASS-SLOTS must be recompiled. Should the class CLASS-NAME not be available at macro expansion time WITH-CLASS-SLOTS will fail.

Source

(defmacro with-class-slots ((object class-name &key except) &body body)
  "Execute BODY as if in a with-slots form containig _all_ the
  slots of (find-clas CLASS-NAME). This macro, which is something
  of an ugly hack, inspects the class named by CLASS-NAME at
  macro expansion time. Should the class CLASS-NAME change form
  containing WITH-CLASS-SLOTS must be recompiled. Should the
  class CLASS-NAME not be available at macro expansion time
  WITH-CLASS-SLOTS will fail."
  (declare (ignore object class-name except body))
  (error "Not yet implemented."))