.local/bin/portable-sbcl-script-test: Init.

.local/bin/portable-sbcl-script-test

@@ -0,0 +1,27 @@
+#!/bin/sh
+#|
+SYSTEMS="sbcl-alexandria sbcl-cl-str"
+
+name="$(basename "$0")"
+root="$HOME/.guix-temp-profiles/$name/$name"
+guix_checkout="/var/guix/profiles/per-user/$USER/current-guix"
+
+mtime () { ## TODO: Portable version?
+	stat --printf=%Y "$1"
+}
+
+if [ ! -e "$root" ] || \
+		 [ $(mtime "$guix_checkout") -gt $(mtime "$root") ]; then
+	echo build
+	mkdir -p "$(dirname "$root")"
+	exec guix environment --root="$root" --ad-hoc sbcl $SYSTEMS lisp-repl-core-dumper -- \
+			 lisp-repl-core-dumper sbcl --script "$0" "$@"
+else
+	exec "$root"/bin/lisp-repl-core-dumper sbcl --script "$0" "$@"
+fi
+
+|#
+;; (require :asdf) ; No need if using lisp-repl-core-dumper.
+(asdf:load-system :alexandria)
+(format t "Args ~s!~%" (uiop:command-line-arguments))
+(format t "Hello ~a!~%" (alexandria:iota 1))