Handle direct slots in :AROUND mehods.
Removed writer (SETF C-DIRECT-SLOTS).