Changeset 13621

Timestamp:

10/03/11 06:33:12 (12 years ago)

Author:

Mark Evenson

Message:

Continue to refine runnable names.

File:

• trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp

@@ -102 +102 @@
 (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)
+           nil))
+
   (let ((incoming (directory (merge-pathnames *incoming* "*"))))
     (unless incoming
@@ -113 +116 @@
         (setf table
               (handler-case 
-                  (load-table file)
+                  (process file)
                 (t (e) 
                   (log "Failed to process ~A because ~A" file e)