1.0.23.21: Stack allocated conses for MIPS.
[sbcl.git] / tests / custom-userinit.lisp
1 ;;;; loaded by init.test.sh
2
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.
13
14 (write-line "/loading custom userinit")
15
16 (defun userinit-quit (x)
17   (sb-ext:quit :unix-status x))