- (when (string= (pathname-type base-path) "proto")
- ;; The user asked to import a .proto file
- ;; If there's no .lisp file or an older .lisp file, or no
- ;; .proto-imports file or an older .proto-imports file parse
- ;; the .proto file now
- ;; If we did not parse the .proto file, process the generated
- ;; .proto-imports file now.
- (cond ((not proto-date)
- (warn "Could not find the .proto file to be imported: ~A" proto-file))
- ((or (not (and lisp-date imports-date))
- (< lisp-date proto-date)
- (< imports-date proto-date))
- (parse-protobuf-file proto-file lisp-file imports-file)
- (setq lisp-date (file-write-date lisp-file))
- (setq imports-date (file-write-date imports-file)))
- (t
- (process-imports-from-file imports-file))))
+ ;; The user asked to import a .proto file
+ ;; If there's no .lisp file or an older .lisp file, or no
+ ;; .proto-imports file or an older .proto-imports file parse
+ ;; the .proto file now.
+ ;; If we did not parse the .proto file, process the generated
+ ;; .proto-imports file now.
+ (cond ((not proto-date)
+ (warn "Could not find the .proto file to be imported: ~A" proto-file))
+ ((or (not (and lisp-date imports-date))
+ (< lisp-date proto-date)
+ (< imports-date proto-date))
+ (parse-protobuf-file proto-file lisp-file imports-file)
+ (setq lisp-date (file-write-date lisp-file))
+ (setq imports-date (file-write-date imports-file)))
+ (t
+ (process-imports-from-file imports-file)))