typing error in prick.functions

2026-03-07 23:49:00 +00:00
parent a6af885f41
commit 50e4509204
1 changed files with 1 additions and 1 deletions
--- a/prick_functions.lisp
+++ b/prick_functions.lisp
@@ -53,7 +53,7 @@ If END is not given, return interval [0, START)."

 i.e. (remove-at-indices indices (l-1...l-m)) => (l_x where x is not in indices)."
  (declare (type list indices)
-           (type lst sequence))
+           (type sequence lst))
  (loop :for i :from 0 :to (1- (length lst))
        :for item :in (coerce lst 'list)
        :if (not (member i indices))