- (or
- (find-most-specific-known-type (ref-type-number gvalue))
- ;; This will signal an error if the type hierarchy is unknown
- (type-from-number (ref-type-number gvalue) t))))
+ (let ((type-number (ref-type-number gvalue)))
+ (unless (zerop type-number)
+ (or
+ (find-most-specific-known-type type-number)
+ ;; This will signal an error if the type hierarchy is unknown
+ (type-from-number type-number t))))))