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

View File

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

View File

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

View File

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