From 5b47a21cf818608883c875d0819bb40099d8e4f8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Fri, 4 Nov 2022 00:42:08 -0300
Subject: Fix bugged type decl

---
 str.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'str.lisp')

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