tests/pure.lisp

   1 ;;;; Process files named by standard input, requiring success.
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "CL-USER")
  13
  14 (loop
  15   (let ((filename (read nil)))
  16
  17     (unless filename
  18       (return))
  19
  20     ;; The file should work compiled.
  21     (load (compile-file filename))
  22
  23     ;; The file should work interpreted too.
  24     (load filename)))