Plaster

text
#! /bin/sh SCRIPT='(progn (format t "This is ~A ~A~%" (lisp-implementation-type) (lisp-implementation-version)) (defun one (object) (declare (optimize (safety 3))) (aref object 0)) (defun two (object) (declare (optimize (safety 3))) (setf (aref object 0) 345)) (format t "(one 234): ~S~%" (multiple-value-list (ignore-errors (one 234)))) (format t "(two 234): ~S~%" (multiple-value-list (ignore-errors (two 234)))))' for l in sbcl abcl ccl ecl clisp cmucl; do docker run -i -t --rm clfoundation/$l cl "$SCRIPT" done # CL-Launch doesn't have support for Clasp, so we need to use clasp's CLI # directly. docker run -i -t --rm clfoundation/clasp --eval "$SCRIPT" --quit

Annotations