(aif (find-class-type name)
(or (c-type-class it) (error "Class `~A' is incomplete" name))
(error "Type `~A' not known" name)))
(aif (find-class-type name)
(or (c-type-class it) (error "Class `~A' is incomplete" name))
(error "Type `~A' not known" name)))