(in-package :cl-user)
(defparameter *loaded* :yes)
EOF
-sbcl --noinform --noprint --sysinit /dev/null --userinit /dev/null <<EOF
+${SBCL:-sbcl} <<EOF
(in-package :cl-user)
(setf (logical-pathname-translations "TEST")
(list (list "**;*.*.*" "$testdir/**/*.*")))