- removed file descripto leak in '%mkstemp';

- specialized method sequence-empry-p for complex string.

src/filesystem-utils.lisp

@@ -366,9 +366,9 @@
         home)))
 
 (defun %mkstemp (prefix suffix)
-  (multiple-value-bind (x path)
+  (multiple-value-bind (fd path)
       (nix:mkstemps prefix suffix)
-    (declare (ignore x))
+    (nix:close fd)
     path))
 
 (defparameter *temporary-files-created* ())

src/tui-utils.lisp

@@ -388,6 +388,9 @@ latter has a length equals to `total-size'"))
 
 (defgeneric apply-coloring (from to))
 
+(defmethod misc:sequence-empty-p ((object complex-string))
+  (misc:sequence-empty-p (complex-char-array object)))
+
 (defmethod apply-coloring ((from complex-string) (to string))
   (with-accessors ((complex-char-array-from complex-char-array)) from
     (if (misc:sequence-empty-p complex-char-array-from)