From 5b47a21cf818608883c875d0819bb40099d8e4f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Fri, 4 Nov 2022 00:42:08 -0300 Subject: Fix bugged type decl --- str.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/str.lisp b/str.lisp index cbd6fe3..a8b2a7f 100644 --- a/str.lisp +++ b/str.lisp @@ -20,7 +20,7 @@ (queue:add result (subseq input start next))))) (queue:to-list (split-rec (queue:new) 0))) -(declaim (ftype (function ((cons char)) (values simple-string) &optional)) from-list) +(declaim (ftype (function ((cons character)) (values simple-string &optional)) from-list)) (defun from-list (lst) (let ((str (make-string (length lst))) (i 0)) -- cgit v1.2.3