eigenhombre / cl-oju Goto Github PK

View Code? Open in Web Editor NEW

18.0 18.0 2.0 163 KB

Some Clojure-ish thingies for Common Lisp

License: MIT License

Common Lisp 88.36% Shell 5.95% Dockerfile 4.85% Makefile 0.84%

clojure common-lisp lisp

cl-oju's Introduction

Hello!

I’m currently working on personal tech projects, my painting/drawing practice, and software development for the IceCube Neutrino Observatory. See the Now Page on my Website for more info.
How to reach me: my Website.
Fun fact: I've spent about six months at the Geographic South Pole over ten trips.

cl-oju's People

Contributors

Stargazers

Watchers

Forkers

azimut chunsj

cl-oju's Issues

Don't namespace-qualify all the things in the unit tests

Remove cl-oju:: prefix everywhere and fix the necessary requires

Add ECL to CI build

Clean up and simplify testing

... allow for easier testing at the REPL

`group-by` tests fail on ECL

This is in Docker on my Mac

#16 14.01 CL-OJU-TESTS::GROUP-BY-TEST.An error occurred during initialization:
#16 14.01 The assertion (EQUAL
#16 14.01                (CL-OJU:GROUP-BY
#16 14.01                 (LAMBDA (CL-OJU-TESTS::X) (NTH 5 CL-OJU-TESTS::X))
#16 14.01                 '((1 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (2 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")
#16 14.01                   (3 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (4 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")
#16 14.01                   (5 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (6 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")))
#16 14.01                '(("x"
#16 14.01                   ((5 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")
#16 14.01                    (3 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")
#16 14.01                    (1 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")))
#16 14.01                  ("y"
#16 14.01                   ((6 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y")
#16 14.01                    (4 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y")
#16 14.01                    (2 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y"))))) failed.
#16 14.01 make: *** [Makefile:7: test-ecl] Error 1

group-by tests fail on ECL

This is in Docker on my Mac

#16 14.01 CL-OJU-TESTS::GROUP-BY-TEST.An error occurred during initialization:
#16 14.01 The assertion (EQUAL
#16 14.01                (CL-OJU:GROUP-BY
#16 14.01                 (LAMBDA (CL-OJU-TESTS::X) (NTH 5 CL-OJU-TESTS::X))
#16 14.01                 '((1 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (2 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")
#16 14.01                   (3 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (4 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")
#16 14.01                   (5 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "x")
#16 14.01                   (6 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                    CL-OJU-TESTS::_ "y")))
#16 14.01                '(("x"
#16 14.01                   ((5 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")
#16 14.01                    (3 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")
#16 14.01                    (1 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "x")))
#16 14.01                  ("y"
#16 14.01                   ((6 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y")
#16 14.01                    (4 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y")
#16 14.01                    (2 CL-OJU-TESTS::_ CL-OJU-TESTS::_ CL-OJU-TESTS::_
#16 14.01                     CL-OJU-TESTS::_ "y"))))) failed.
#16 14.01 make: *** [Makefile:7: test-ecl] Error 1

add `not=`

I seem to want this one every day.

Generic Map?

Thoughts on adding a generic map similar to map from clojure? I've seen some call it fmap (the haskell naming) and figure it would be a pretty easy addition.

usage

(fmap #'1+ '(1 2 3 4))

Add `if-not` and `when-not`.

Review MVR checklist

From https://gist.github.com/eigenhombre/204400c786f9dba3a8d3193d3ce1542a:

LICENSE file
Automated build via Docker and GitHub Actions
Build badge
Artwork
Versioned
Minimum snippet / example
Link to API and/or help output
Project available in public package manager (want Quicklisp, issue filed there; but, Ultralisp works)
Track outstanding TODOs in Issues

Fix `sort-by` to work with conses (lists)

sort-by should work like Clojure's. That means implementing comparisons a little differently.