Plaster
New
List
Login
text
default
anonymous
2021.07.12 14:22:49
#! /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
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2021.07.12 14:23:11
This is SBCL 2.1.6 (one 234): (NIL #<TYPE-ERROR expected-type: VECTOR datum: 234>) (two 234): (NIL #<TYPE-ERROR expected-type: VECTOR datum: 234>) NIL VM settings: Max. Heap Size (Estimated): 7.79G Using VM: OpenJDK 64-Bit Server VM This is Armed Bear Common Lisp 1.8.0 (one 234): (NIL #<TYPE-ERROR {48643AF7}>) (two 234): (NIL #<TYPE-ERROR {EDD18F5}>) NIL This is Clozure Common Lisp Version 1.12 LinuxX8664 (one 234): (NIL #<TYPE-ERROR #x30200085EF2D>) (two 234): (NIL #<TYPE-ERROR #x302000852D3D>) NIL This is ECL 21.2.1 (one 234): (NIL #<a SIMPLE-TYPE-ERROR 0x55de344a0300>) (two 234): (NIL #<a SIMPLE-TYPE-ERROR 0x55de344a0280>) NIL This is CLISP 2.49.92 (2018-02-18) (built on 8b44a77f9106 [172.17.0.4]) (one 234): (NIL #<SIMPLE-TYPE-ERROR #x00007FD03C333026>) (two 234): (NIL #<SIMPLE-TYPE-ERROR #x00007FD03C33D656>) NIL WARNING: Couldn't re-execute CMUCL with the proper personality flags(maybe /proc isn't mounted?). Trying to continue anyway. This is CMU Common Lisp 21d (21D Unicode) (one 234): (NIL #<TYPE-ERROR {604D203D}>) (two 234): (NIL #<TYPE-ERROR {604DFA4D}>) NIL Starting cclasp-boehm-0.4.2-3852-gb14e329f4-cst ... loading image... This is clasp cclasp-boehm-0.4.2-3852-gb14e329f4-cst (one 234): (NIL #<TYPE-ERROR>) (two 234): (NIL #<TYPE-ERROR>)
Raw
Repaste
Edit