Merge branch 'master' of git://repo.or.cz/sbcl
[sbcl/attila.git] / tests / custom-userinit.lisp
blob38c71b61bf5a22eb1938776733ecf892dcf949dd
1 ;;;; loaded by init.test.sh
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 (write-line "/loading custom userinit")
16 (defun userinit-quit (x)
17 (sb-ext:quit :unix-status x))