- (block import-one
- (let* ((import (pathname import))
- (import-name (pathname-name import))
- (proto-file (do-process-import import import-name))
- (imported (find-schema proto-file)))
- (when imported
- (appendf (proto-imported-schemas schema) (list imported)))
- (return-from import-one)))))
+ (let* ((proto-file (do-process-import (pathname import)))
+ (imported (find-schema proto-file)))
+ (when imported
+ (appendf (proto-imported-schemas schema) (list imported))))))