[ 2drop make-inline ]
3tri ;
-GENERIC# reader-quot 1 ( class slot-spec -- quot )
+GENERIC#: reader-quot 1 ( class slot-spec -- quot )
M: object reader-quot
nip [
\ unless ,
] [ ] make ;
-GENERIC# writer-quot 1 ( class slot-spec -- quot )
+GENERIC#: writer-quot 1 ( class slot-spec -- quot )
M: object writer-quot
nip