- fixed append.

src/tui-utils.lisp

@@ -311,7 +311,9 @@ latter has a length equals to `total-size'"))
   (let ((res     ())
         (scanner regexp))
     (labels ((append-to-res (data)
-               (setf res (reverse (push data res))))
+               (reversef res)
+               (push data res)
+               (setf res (reverse res)))
              (re-split (data)
                (when (string-not-empty-p data)
                  (multiple-value-bind (start-re end-re)