Merge remote-tracking branch 'origin/master'

This commit is contained in:
Edward Langley
2023-10-22 11:19:08 -07:00
2 changed files with 22 additions and 12 deletions

View File

@ -20,13 +20,19 @@ jobs:
steps: steps:
# Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
- uses: actions/checkout@v2 - uses: actions/checkout@v3
- uses: cachix/install-nix-action@v19 - uses: cachix/install-nix-action@v22
with: with:
extra_nix_config: | extra_nix_config: |
access-tokens = github.com=${{ secrets.GITHUB_TOKEN }} access-tokens = github.com=${{ secrets.GITHUB_TOKEN }}
- uses: cachix/cachix-action@v12
with:
name: data-lens
authToken: '${{ secrets.CACHIX_AUTH_TOKEN }}'
extraPullNames: nix-community
# Runs a set of commands using the runners shell # Runs a set of commands using the runners shell
- name: setup deps - name: setup deps
run: | run: |
@ -58,9 +64,13 @@ jobs:
run: | run: |
export PATH="$HOME/.nix-profile/bin:$PATH" export PATH="$HOME/.nix-profile/bin:$PATH"
cd "$GITHUB_WORKSPACE" cd "$GITHUB_WORKSPACE"
ln -s "$GITHUB_WORKSPACE" "$HOME/quicklisp/local-projects"
sbcl --disable-debugger --no-userinit \ sbcl --disable-debugger --no-userinit \
--load "$HOME/quicklisp/setup.lisp" \ --load "$HOME/quicklisp/setup.lisp" \
--eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \ --eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \
--eval "(handler-case (asdf:test-system :data-lens) (error () (uiop:quit 42)))" \ --eval "(handler-case (ql:quickload :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 42)))" \
--eval "(handler-case (asdf:test-system :data-lens/transducers) (error () (uiop:quit 43)))" \ --eval "(handler-case (ql:quickload :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 43)))" \
--eval "(handler-case (ql:quickload :data-lens/test) (error (c) (format t \"~a\" c) (uiop:quit 44)))" \
--eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 45)))" \
--eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 46)))" \
--quit --quit

View File

@ -32,14 +32,6 @@
:components ((:module "t" :components ((:module "t"
:components ((:file "lens"))))) :components ((:file "lens")))))
(asdf:defsystem #:data-lens/beta/transducers
:description #.(format nil "~@{~a~^ ~}"
"A collection of transducers to reduce stream-manipulation overhead")
:author "Edward Langley <el-cl@elangley.org>"
:license "Apache v2"
:depends-on (:data-lens/transducers)
:in-order-to ((test-op (test-op :data-lens/transducers))))
(asdf:defsystem #:data-lens/transducers (asdf:defsystem #:data-lens/transducers
:description #.(format nil "~@{~a~^ ~}" :description #.(format nil "~@{~a~^ ~}"
"A collection of transducers to reduce stream-manipulation overhead") "A collection of transducers to reduce stream-manipulation overhead")
@ -55,6 +47,14 @@
(:file "transducers") (:file "transducers")
(:file "lazy-sequence"))) (:file "lazy-sequence")))
(asdf:defsystem #:data-lens/beta/transducers
:description #.(format nil "~@{~a~^ ~}"
"A collection of transducers to reduce stream-manipulation overhead")
:author "Edward Langley <el-cl@elangley.org>"
:license "Apache v2"
:depends-on (:data-lens/transducers)
:in-order-to ((test-op (test-op :data-lens/transducers))))
(asdf:defsystem #:data-lens/transducers/test (asdf:defsystem #:data-lens/transducers/test
:description "tests for the transducers" :description "tests for the transducers"
:author "Edward Langley <el-cl@elangley.org>" :author "Edward Langley <el-cl@elangley.org>"