home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / CONTRIB / LISP / LIB.L < prev    next >
Lisp/Scheme  |  1994-10-25  |  328b  |  19 lines
  1. { Reads all example files - gri 12 Aug 1994 }
  2.  
  3. (setq readFiles
  4.    (lambda x
  5.       (cond
  6.          ((atom x))
  7.          (t (readFile (car x)) (eval (cons 'readFiles (cdr x))))
  8.       )
  9.    )
  10. )
  11.  
  12.  
  13. (readFiles
  14.    "/u/gri/Sather/Lisp/sum.L"
  15.    "/u/gri/Sather/Lisp/fact.L"
  16.    "/u/gri/Sather/Lisp/hanoi.L"
  17.    "/u/gri/Sather/Lisp/acker.L"
  18. )
  19.