Use fukamachi/sbcl image.

Author: fukamachi

Dockerfile

@@ -1,4 +1,4 @@
-FROM clfoundation/sbcl:slim
+FROM fukamachi/sbcl
 ARG DIST_VERSION
 ARG BUILD_DATE
 ARG VCS_REF
@@ -20,16 +20,11 @@ RUN set -x; \
 
 WORKDIR /app
 
-ADD https://beta.quicklisp.org/quicklisp.lisp /root/quicklisp.lisp
-
 RUN set -x; \
-  sbcl --load /root/quicklisp.lisp \
-    --eval '(quicklisp-quickstart:install)' \
+  sbcl \
     --eval '(ql:uninstall-dist "quicklisp")' \
     --eval "(ql-dist:install-dist \"http://beta.quicklisp.org/dist/quicklisp/${DIST_VERSION}/distinfo.txt\" :prompt nil)" \
     --quit && \
-  echo '#-quicklisp (load #P"/root/quicklisp/setup.lisp")' > /root/.sbclrc && \
-  sbcl --eval '(mapc (function ql-dist:ensure-installed) (ql-dist:provided-releases t))' --quit && \
-  rm /root/quicklisp.lisp
+  sbcl --eval '(mapc (lambda (release) (ignore-errors (handler-bind ((error (function uiop:print-condition-backtrace))) (ql-dist:ensure-installed release)))) (ql-dist:provided-releases t))' --quit
 
 ENTRYPOINT ["/bin/bash"]

scripts/dist.lisp

@@ -1,7 +1,7 @@
 #!/usr/local/bin/sbcl --script
 
 (require 'asdf)
-(load (merge-pathnames #P"quicklisp/setup.lisp" (user-homedir-pathname)))
+(load (merge-pathnames #P".roswell/lisp/quicklisp/setup.lisp" (user-homedir-pathname)))
 
 (defun bucket-dist-url (dist path)
   (format nil "~A/~A/~A~A"

scripts/readme.lisp

@@ -1,6 +1,6 @@
 #!/usr/local/bin/sbcl --script
 
-(load (merge-pathnames #P"quicklisp/setup.lisp" (user-homedir-pathname)))
+(load (merge-pathnames #P".roswell/lisp/quicklisp/setup.lisp" (user-homedir-pathname)))
 
 (defun readme-file-p (path)
   (check-type path pathname)

scripts/release.lisp

@@ -1,7 +1,7 @@
 #!/usr/local/bin/sbcl --script
 
 (require 'asdf)
-(load (merge-pathnames #P"quicklisp/setup.lisp" (user-homedir-pathname)))
+(load (merge-pathnames #P".roswell/lisp/quicklisp/setup.lisp" (user-homedir-pathname)))
 (load (merge-pathnames #P"../lib/asdf-types.lisp" *load-pathname*))
 (load (merge-pathnames #P"../lib/dependencies.lisp" *load-pathname*))