From: Nikodemus S. <de...@us...> - 2006-08-28 16:57:01
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv17301/tests Added Files: custom-sysinit.lisp custom-userinit.lisp init.test.sh Log Message: 0.9.16.3: initfile refactoring * Move all related logic to PROCESS-INIT-FILE. * Enable customization of default user- and sysinit file via SB-IMPL::*SYSINIT-PATHNAME-FUNCTION* and SB-IMPL::*USERNIT-PATHNAME-FUNCTION*. * Fixes -- and makes testable without root access -- the bug regarding loading of the default sysinit file, reported by Leonid Slobodov. * A few missing #!+sb-doc's in toplevel.lisp. --- NEW FILE: custom-sysinit.lisp --- ;;;; loaded by init.test.sh ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. ;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. (write-line "/loading custom sysinit") (defun sysinit-21 () 21) --- NEW FILE: custom-userinit.lisp --- ;;;; loaded by init.test.sh ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. ;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. (write-line "/loading custom userinit") (defun userinit-quit (x) (sb-ext:quit :unix-status x)) --- NEW FILE: init.test.sh --- #!/bin/sh # tests related to loading init files # This software is part of the SBCL system. See the README file for # more information. # # While most of SBCL is derived from the CMU CL system, the test # files (like this one) were written from scratch after the fork # from CMU CL. # # This software is in the public domain and is provided with # absolutely no warranty. See the COPYING and CREDITS files for # more information. tmpcore="init-test-sh-$$.core" rm -f $tmpcore $SBCL <<EOF (defun custom-userinit-pathname () "$SBCL_PWD/custom-userinit.lisp") (defun custom-sysinit-pathname () "$SBCL_PWD/custom-sysinit.lisp") (setf sb-impl::*userinit-pathname-function* 'custom-userinit-pathname sb-impl::*sysinit-pathname-function* 'custom-sysinit-pathname) (save-lisp-and-die "$tmpcore") EOF $SBCL_ALLOWING_CORE --core "$tmpcore" --disable-debugger <<EOF (userinit-quit (sysinit-21)) EOF if [ $? = 21 ]; then echo "/Default userinit and sysinit loading worked, good" else echo "failure loading user/sysinit files: $?" exit 1 fi rm -f $tmpcore echo "/returning success from init.test.sh" exit 104 |