Changeset 13621


Ignore:
Timestamp:
10/03/11 06:33:12 (10 years ago)
Author:
Mark Evenson
Message:

Continue to refine runnable names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/threads-jss.lisp

    r13617 r13621  
    102102(defun process-incoming ()
    103103  (flet ((reject-input (file invalid)
    104            (warn (format nil "~A is ~A" file invalid))))
     104           (warn (format nil "~A is ~A" file invalid)))
     105         (process (file)
     106           nil))
     107
    105108  (let ((incoming (directory (merge-pathnames *incoming* "*"))))
    106109    (unless incoming
     
    113116        (setf table
    114117              (handler-case
    115                   (load-table file)
     118                  (process file)
    116119                (t (e)
    117120                  (log "Failed to process ~A because ~A" file e)
Note: See TracChangeset for help on using the changeset viewer.