(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)
(export 'find-sod-class)
(defun find-sod-class (name)
"Return the `sod-class' object with the given NAME."
- (aif (find-class-type name)
- (or (c-type-class it) (error "Class `~A' is incomplete" name))
- (error "Type `~A' not known" name)))
+ (acond ((find-class-type name)
+ (or (c-type-class it)
+ (error "Class `~A' is incomplete" name)))
+ ((find-simple-c-type name)
+ (error "Type `~A' is not a class" name))
+ (t
+ (error "Type `~A' not known" name))))
(export 'record-sod-class)
(defun record-sod-class (class)