Compare commits

...

2 Enmetoj

Author SHA1 Message Date
Jaidyn Ann fe50e2bcf8 Re-add erroneously removed function 2024-05-27 23:33:44 -05:00
Jaidyn Ann 58aedf06c0 Update README
Tweaking line-breaks, and mentioning the tests.
2024-05-27 23:33:35 -05:00
2 changed files with 23 additions and 3 deletions

View File

@ -54,9 +54,12 @@ $ xxd castlevania.nes | grep -A4 "18e80"
## Installation ## Installation
Making a binary requires [an implementation](https://common-lisp.net/implementations) of Common Lisp installed: [Steel Bank Common Lisp](https://sbcl.org/) is our implementation-of-choice. Its available on most operating systems under the package name `sbcl`. Making a binary requires [an implementation](https://common-lisp.net/implementations) of Common Lisp installed:
[Steel Bank Common Lisp](https://sbcl.org/) is our implementation-of-choice. Its available on
most operating systems under the package name `sbcl`.
You also need the library-manager [Quicklisp](https://quicklisp.org), which can [be installed](https://www.quicklisp.org/beta/#installation) quite easily, including via our [Makefile](Makefile). You also need the library-manager [Quicklisp](https://quicklisp.org), which can [be installed](https://www.quicklisp.org/beta/#installation)
quite easily, including via our [Makefile](Makefile).
To install Quicklisp, build a binary, and install it, simply: To install Quicklisp, build a binary, and install it, simply:
@ -68,6 +71,19 @@ $ sudo cp eksd /usr/local/bin/eksd
Bam, you've made and installed a binary! Cool! Bam, you've made and installed a binary! Cool!
### Tests
eksds tests can be run from a REPL using `ASDF:TEST-SYSTEM`, or from the
Makefile target “test”.
```
* (asdf:test-system :eksd)
* (asdf:test-system :eksd/unix)
```
```
`$ make test
```
## Misc ## Misc
* License is the GNU GPLv3 ([COPYING.txt](COPYING.txt)) * License is the GNU GPLv3 ([COPYING.txt](COPYING.txt))

View File

@ -283,6 +283,10 @@
;; list → list ;; list → list
(defun de-tail (list) (defun de-tail (list)
"Remove the last element from a list." "Return a list sans its last element."
(reverse (cdr (reverse list)))) (reverse (cdr (reverse list))))
;; list → object
(defun tail (list)
"Return the last element of a list."
(car (last list)))