git.fiddlerwoaroof.com
Browse code

Merge remote-tracking branch 'origin/master'

Edward Langley authored on 22/10/2023 18:19:08
Showing 2 changed files
... ...
@@ -20,13 +20,19 @@ jobs:
20 20
 
21 21
     steps:
22 22
       # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
23
-      - uses: actions/checkout@v2
23
+      - uses: actions/checkout@v3
24 24
 
25
-      - uses: cachix/install-nix-action@v19
25
+      - uses: cachix/install-nix-action@v22
26 26
         with:
27 27
           extra_nix_config: |
28 28
             access-tokens = github.com=${{ secrets.GITHUB_TOKEN }}
29 29
 
30
+      - uses: cachix/cachix-action@v12
31
+        with:
32
+          name: data-lens
33
+          authToken: '${{ secrets.CACHIX_AUTH_TOKEN }}'
34
+          extraPullNames: nix-community
35
+
30 36
       # Runs a set of commands using the runners shell
31 37
       - name: setup deps
32 38
         run: |
... ...
@@ -58,9 +64,13 @@ jobs:
58 64
         run: |
59 65
           export PATH="$HOME/.nix-profile/bin:$PATH"
60 66
           cd "$GITHUB_WORKSPACE"
67
+          ln -s "$GITHUB_WORKSPACE" "$HOME/quicklisp/local-projects"
61 68
           sbcl --disable-debugger --no-userinit \
62 69
                --load "$HOME/quicklisp/setup.lisp" \
63 70
                --eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \
64
-               --eval "(handler-case (asdf:test-system :data-lens) (error () (uiop:quit 42)))" \
65
-               --eval "(handler-case (asdf:test-system :data-lens/transducers) (error () (uiop:quit 43)))" \
71
+               --eval "(handler-case (ql:quickload :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 42)))" \
72
+               --eval "(handler-case (ql:quickload :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 43)))" \
73
+               --eval "(handler-case (ql:quickload :data-lens/test) (error (c) (format t \"~a\" c) (uiop:quit 44)))" \
74
+               --eval "(handler-case (asdf:test-system :data-lens) (error (c) (format t \"~a\" c) (uiop:quit 45)))" \
75
+               --eval "(handler-case (asdf:test-system :data-lens/transducers) (error (c) (format t \"~a\" c) (uiop:quit 46)))" \
66 76
                --quit
... ...
@@ -32,14 +32,6 @@
32 32
   :components ((:module "t"
33 33
                 :components ((:file "lens")))))
34 34
 
35
-(asdf:defsystem #:data-lens/beta/transducers
36
-  :description #.(format nil "~@{~a~^ ~}"
37
-                         "A collection of transducers to reduce stream-manipulation overhead")
38
-  :author "Edward Langley <el-cl@elangley.org>"
39
-  :license "Apache v2"
40
-  :depends-on (:data-lens/transducers)
41
-  :in-order-to ((test-op (test-op :data-lens/transducers))))
42
-
43 35
 (asdf:defsystem #:data-lens/transducers
44 36
   :description #.(format nil "~@{~a~^ ~}"
45 37
                          "A collection of transducers to reduce stream-manipulation overhead")
... ...
@@ -55,6 +47,14 @@
55 47
                (:file "transducers")
56 48
                (:file "lazy-sequence")))
57 49
 
50
+(asdf:defsystem #:data-lens/beta/transducers
51
+  :description #.(format nil "~@{~a~^ ~}"
52
+                         "A collection of transducers to reduce stream-manipulation overhead")
53
+  :author "Edward Langley <el-cl@elangley.org>"
54
+  :license "Apache v2"
55
+  :depends-on (:data-lens/transducers)
56
+  :in-order-to ((test-op (test-op :data-lens/transducers))))
57
+
58 58
 (asdf:defsystem #:data-lens/transducers/test
59 59
   :description "tests for the transducers"
60 60
   :author "Edward Langley <el-cl@elangley.org>"