kyle
/
kutils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add note that codex is used for documentation.

This commit is contained in:
Kyle Isom 2025-04-12 12:56:56 -07:00
parent 5dbe825934
commit e9ccc51a08
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
README.txt
View File

@ -53,3 +53,13 @@ Miscellanea
* mkkw * mkkw
* zip * zip
* defclass! * defclass!
Documentation
=============
Documentation is generated with codex [1]:
CL-USER> (ql:quickload :codex) ;; if not installed
(:CODEX)
CL-USER> (codex:document :kutils)
NIL

1
kutils.asd
View File

@ -11,4 +11,3 @@
(:file "kutils") (:file "kutils")
(:file "kutils-hash-tables") (:file "kutils-hash-tables")
(:file "macros"))) (:file "macros")))

8
kutils.lisp
View File

@ -105,7 +105,7 @@ vector. Otherwise, attempt to map it into a vector."
((atom arg) ((atom arg)
(let ((v (new-vector))) (let ((v (new-vector)))
(vector-push-extend arg v) (vector-push-extend arg v)
v)) v))
(t (mapv #'identity arg)))) (t (mapv #'identity arg))))
(defun extend-vector (v) (defun extend-vector (v)
@ -175,3 +175,9 @@ those that do not satisfy @c(pred)."
((listp seq) (partition-list pred seq)) ((listp seq) (partition-list pred seq))
((vectorp seq) (partition-vector pred seq)) ((vectorp seq) (partition-vector pred seq))
(t nil))) (t nil)))
(defun in-range (number low high)
"Returns T if LOW >= NUMBER <= HIGH."
(and
(<= number high)
(>= number low)))