1.0.22.9: SB-INTROSPECT regression from 1.0.22.8
[sbcl/tcr.git] / tests / pure.lisp
blobba80ac333acefc68362e66d6f8e61531263e135a
1 ;;;; Process files named by standard input, requiring success.
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
6 ;;;; While most of SBCL is derived from the CMU CL system, the test
7 ;;;; files (like this one) were written from scratch after the fork
8 ;;;; from CMU CL.
9 ;;;;
10 ;;;; This software is in the public domain and is provided with
11 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
12 ;;;; more information.
14 (in-package "CL-USER")
16 (loop
17 (let ((filename (read nil)))
19 (unless filename
20 (return))
22 ;; The file should work compiled.
23 (load (compile-file filename))
25 ;; The file should work interpreted too.
26 (load filename)))