diff --git a/src/stdlib.lisp b/src/stdlib.lisp index 0d125c1..c39df9c 100644 --- a/src/stdlib.lisp +++ b/src/stdlib.lisp @@ -97,6 +97,8 @@ (eq! acc digits) (eq! acc (+ (* base (prev acc)) digits)))) +;; WTF + ;; byte decomposition constraint (defpurefun (byte-decomposition ct acc bytes) (base-X-decomposition ct 256 acc bytes))