(or (and (boundp '*module-type-map*)
(gethash value *module-type-map*))
(find-simple-c-type value)
- (error "Unknown type `~A'." value)))
+ (error "Unknown type `~A'" value)))
;;;--------------------------------------------------------------------------
;;; Property sets.