Update terminal-read-str for better mem handling

bearlibterminal.asd

@@ -7,8 +7,7 @@
   :serial t
   :pathname "src"
   :depends-on ("cl-autowrap"
-               "cl-plus-c"
-               "trivial-garbage")
+               "cl-plus-c")
   :components ((:module :autowrap-spec
                 :pathname "spec"
                 :components

src/bearlibterminal-internal.lisp

@@ -2,11 +2,6 @@
 
 (in-package #:bearlibterminal-internal)
 
-(defun foreign-collect (wrapped-ptr &optional (free-fun #'cffi:foreign-free))
-  (let ((ptr (autowrap:ptr wrapped-ptr)))
-    (tg:finalize wrapped-ptr (lambda () (funcall free-fun ptr)))
-    wrapped-ptr))
-
 (defun terminal-print (x y string)
   (terminal-print8 x y string))
 
@@ -17,9 +12,11 @@
   (terminal-measure8 string))
 
 (defun terminal-read-str (x y max)
-  (let ((input (foreign-collect (cffi:foreign-alloc :char :initial-element 0 :count max))))
-    (terminal-read-str8 x y input max)
-    (cffi:foreign-string-to-lisp input)))
+  (let ((input-buffer (cffi:foreign-alloc :char :initial-element 0 :count max)))
+    (terminal-read-str8 x y input-buffer max)
+    (let ((input-string (cffi:foreign-string-to-lisp input-buffer)))
+      (cffi:foreign-free input-buffer)
+      input-string)))
 
 (defun terminal-get (key default)
   (terminal-get8 key default))