synchroscope (part 1)

This commit is contained in:
nik gaffney 2023-12-31 17:32:23 +01:00
parent fc71f5eae5
commit 153f07c8fa
Signed by: nik
GPG key ID: 989F5E6EDB478160

View file

@ -75,10 +75,11 @@ jobs:
run: | run: |
ros -e '(format t "~a:~a on ~a~%...~%~%" (lisp-implementation-type) (lisp-implementation-version) (machine-type))' ros -e '(format t "~a:~a on ~a~%...~%~%" (lisp-implementation-type) (lisp-implementation-version) (machine-type))'
ros -e '(format t " fixnum bits:~a~%" (integer-length most-positive-fixnum))' ros -e '(format t " fixnum bits:~a~%" (integer-length most-positive-fixnum))'
ros -e "(ql:quickload 'fiveam)"
ros -e "(ql:quickload 'trivial-features)" -e '(format t "features = ~s~%" *features*)' ros -e "(ql:quickload 'trivial-features)" -e '(format t "features = ~s~%" *features*)'
- name: update ql dist if we have one cached - name: update ql dist if we have one cached
run: ros -e "(ql:update-all-dists :prompt nil)" run: ros -e "(ql:update-all-dists :prompt nil)"
- name: load code and run tests - name: load code and run tests
run: | run: |
ros -e '(handler-bind (#+asdf3.2(asdf:bad-SYSTEM-NAME (function MUFFLE-WARNING))) (handler-case (ql:quickload :osc) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 123))))' -e '(osc:run-tests)' ros -e '(handler-bind (#+asdf3.2(asdf:bad-SYSTEM-NAME (function MUFFLE-WARNING))) (handler-case (ql:quickload :osc) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 123))))' -e '(asdf:test-system :osc)'