about summary refs log tree commit diff
path: root/lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2021-08-13T09·53+0200
committersterni <sternenseemann@systemli.org>2021-08-14T14·46+0000
commit17a75dfc42f15d897937f5fb245d1c33eb185a82 (patch)
tree1d7425f4cf84c8027b296bde3f1827e00527aec6 /lisp
parent80ecce37b4494097b17b03b1c797d74c3ff5f1b1 (diff)
fix(lisp/klatre): fix inline declaration for chunk-list functions r/2730
Found this typo because CCL is really particular about everything
related to declare.

Change-Id: I6d4615c1df7c9d45722e85fa82ebdd094273205d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3347
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
Diffstat (limited to 'lisp')
-rw-r--r--lisp/klatre/klatre.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp
index 7fb70463a632..57ccde70e46b 100644
--- a/lisp/klatre/klatre.lisp
+++ b/lisp/klatre/klatre.lisp
@@ -41,7 +41,7 @@
 (defun chunk-list (size list &key (start 0) end)
   "Returns successive chunks of list of size SIZE, starting at START and ending
 at END."
-  (declare (inline check-list/bounded check-list/simple))
+  (declare (inline chunk-list/bounded chunk-list/unbounded))
   (check-type size (integer 1))
   (let ((list (nthcdr start list)))
     (when list