[armedbear-cvs] r13621 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Sun Oct  2 23:33:12 2011
New Revision: 13621

Log:
Continue to refine runnable names.

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

Modified: trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp	Sun Oct  2 23:32:58 2011	(r13620)
+++ trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp	Sun Oct  2 23:33:12 2011	(r13621)
@@ -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)
+           nil))
+
   (let ((incoming (directory (merge-pathnames *incoming* "*"))))
     (unless incoming
       (return-from process-incoming))
@@ -112,7 +115,7 @@
         (log "Analyzing ~A." file)
         (setf table
               (handler-case 
-                  (load-table file)
+                  (process file)
                 (t (e) 
                   (log "Failed to process ~A because ~A" file e)
                   (setf error e))))