mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(lisp/klatre): fix inline declaration for chunk-list functions

Browse source 
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>
This commit is contained in:
sterni 2021-08-13 11:53:32 +02:00
parent 80ecce37b4
commit 17a75dfc42
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/klatre/klatre.lisp
View file

@ -41,7 +41,7 @@
(defun chunk-list (size list &key (start 0) end) (defun chunk-list (size list &key (start 0) end)
"Returns successive chunks of list of size SIZE, starting at START and ending "Returns successive chunks of list of size SIZE, starting at START and ending
at END." at END."
(declare (inline check-list/bounded check-list/simple)) (declare (inline chunk-list/bounded chunk-list/unbounded))
(check-type size (integer 1)) (check-type size (integer 1))
(let ((list (nthcdr start list))) (let ((list (nthcdr start list)))
(when list (when list