(atypecase (gethash name *module-type-map*)
(null nil)
(c-class-type it)
- (t (error "Type `~A' (~A) is not a class" name it))))
+ (t (error "Type `~A' is not a class" name))))
(export 'make-class-type)
(defun make-class-type (name &optional qualifiers)