.local/bin/sbcl-container: Init.

.local/bin/sbcl-container

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+## TODO: Set up a container without separate script or sly-connect?
+port=4006
+[ -n "$1" ] && port=$1
+
+guix environment -N -C -m ~/.package-lists/guix-common-lisp-manifest.scm -- \
+		 sbcl --eval "(require :asdf)" \
+		 --eval '(dolist (p (list "" "sly/contrib/" "sly/slynk/")) (push (pathname (format nil "~a/share/emacs/site-lisp/~a" (uiop:getenv "GUIX_ENVIRONMENT") p)) asdf:*central-registry*))' \
+		 --eval "(asdf:load-system :slynk)" \
+		 --eval "(slynk:create-server :port $port)" \
+		 --eval "(asdf:load-system :cmd)"