new file mode 100644

@@ -0,0 +1,17 @@

+FROM bitnami/minideb:buster

+

+COPY setup /setup

+RUN /setup/apt

+

+WORKDIR /root

+ARG version=master

+ENV version=$version

+

+RUN /setup/checkout

+

+RUN /setup/build

+

+COPY sbclrc /root/.sbclrc

+RUN /usr/local/bin/sbcl --eval '(ensure-directories-exist (translate-logical-pathname #p"SYS:SITE;"))' --quit

+

+ENTRYPOINT ["/usr/local/bin/sbcl"]

new file mode 100644

@@ -0,0 +1,49 @@

+(defpackage :fwoar.repl-utils

+  (:use :cl)

+  (:export clone github))

+

+(in-package :cl-user)

+

+(eval-when (:compile-toplevel :load-toplevel :execute)

+  (load "~/quicklisp/setup.lisp"))

+

+(eval-when (:compile-toplevel :load-toplevel :execute)

+  (ql:quickload :legit)

+  (shadow 'load))

+

+(defun load (pathspec &rest args)

+  (restart-case (apply #'cl:load pathspec args)

+    (retry () (apply #'load pathspec args))))

+

+(defun home-relative-pathname (pathname)

+  (merge-pathnames pathname

+                   (user-homedir-pathname)))

+

+(pushnew (list "SYS:SITE;**;*.*.*"

+               (home-relative-pathname 

+                 (make-pathname :directory '(:relative ".sbcl" "site" :wild-inferiors) 

+                                :name :wild 

+                                :type :wild)))

+         (logical-pathname-translations "SYS")

+         :test #'equal)

+

+(setf (logical-pathname-translations "QL")

+      `(("QL:LOCAL-PROJECTS;**;*.*.*" ,(home-relative-pathname #p"quicklisp/local-projects/**/*.*"))

+        ("QL:SOFTWARE;**;*.*.*" ,(home-relative-pathname #p"quicklisp/local-projects/**/*.*"))))

+

+(mapcar (lambda (_) 

+          (load-logical-pathname-translations 

+            (pathname-name _)))

+        (directory #p"SYS:SITE;*.translations"))

+

+(defun fwoar.repl-utils:clone (repo name)

+  (legit:clone repo

+               (translate-logical-pathname (make-pathname :host "QL"

+                                                          :directory  (list :absolute

+                                                                            "LOCAL-PROJECTS"

+                                                                            name)))))

+

+(defun fwoar.repl-utils:github (user repo)

+  (fwoar.repl-utils:clone (format nil "https://github.com/~a/~a"

+                                  user repo)

+                          repo))

new file mode 100755

@@ -0,0 +1,8 @@

+#!/usr/bin/env bash

+

+set -eu -o pipefail

+

+echo 'deb-src http://mirrors.kernel.org/debian/ buster main contrib' > /etc/apt/sources.list.d/src.list

+apt-get update -y

+apt-get dist-upgrade -y

+apt-get install -y sbcl git wget

new file mode 100755

@@ -0,0 +1,19 @@

+#!/usr/bin/env bash

+set -eu -o pipefail

+

+cd /sbcl-build

+

+apt-get build-dep -y sbcl

+./make.sh --fancy --prefix=/usr/local/ --with-sb-linkable-runtime --with-sb-dynamic-core --arch=x86-64

+./install.sh

+

+cd /root

+

+wget https://beta.quicklisp.org/quicklisp.lisp -Oquicklisp.lisp

+/usr/local/bin/sbcl --load quicklisp.lisp --eval '(quicklisp-quickstart:install)' --quit

+rm quicklisp.lisp

+

+rm -rf /sbcl-build

+

+/setup/cleanup

+

new file mode 100755

@@ -0,0 +1,7 @@

+#!/usr/bin/env bash

+set -eu -o pipefail

+

+git clone git://git.code.sf.net/p/sbcl/sbcl /sbcl-build

+   

+cd /sbcl-build

+git checkout "${version}"

new file mode 100755

@@ -0,0 +1,7 @@

+#!/usr/bin/env bash

+set -eu -o pipefail

+

+apt-get purge -y sbcl

+apt-get install -y apt-rdepends

+apt-get purge --autoremove -y $(apt-rdepends --build-depends --follow=DEPENDS sbcl | awk '$1 == "Build-Depends:" {print $2}'  | tr '\n' ' ' 2>/dev/null) apt-rdepends

+apt-get autoremove -y