Commit 4a717a96 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Continue to refine runnable names.

parent 4951aaf7
......@@ -101,7 +101,10 @@
(defun process-incoming ()
(flet ((reject-input (file invalid)
(warn (format nil "~A is ~A" file invalid))))
(warn (format nil "~A is ~A" file invalid)))
(process (file)
(let ((incoming (directory (merge-pathnames *incoming* "*"))))
(unless incoming
(return-from process-incoming))
......@@ -112,7 +115,7 @@
(log "Analyzing ~A." file)
(setf table
(load-table file)
(process file)
(t (e)
(log "Failed to process ~A because ~A" file e)
(setf error e))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment