diff -r 517c65b51e6b -r 2e7d93b892a5 lisp/lib/cli/tests/pkg.lisp
--- a/lisp/lib/cli/tests/pkg.lisp	Tue Oct 01 21:52:17 2024 -0400
+++ b/lisp/lib/cli/tests/pkg.lisp	Tue Oct 01 22:29:08 2024 -0400
@@ -7,202 +7,9 @@
   (:use :cl :std :rt :cli :cli/shell :cli/progress :cli/spark :cli/repl :cli/ansi :cli/prompt :cli/clap :cli/tools/sbcl :dat/sxp))
 
 (in-package :cli/tests)
-(declaim (optimize (debug 3) (safety 3)))
 (defsuite :cli)
 (in-suite :cli)
 
-(defun ansi-t01 ()
-  (erase)
-    (cursor-position 0 0)
-    (princ "0")
-    (cursor-position 2 2)
-    (princ "1")
-    (cursor-position 5 15)
-    (princ "test")
-    (cursor-position 10 15)
-    (force-output)
-  (with-input-from-string (in (format nil "test~%~%"))
-    (let ((a (read-line in)))
-      (cursor-position 12 15)
-      (princ a)
-      (force-output))))
-
-(defun ansi-t02 ()
-  (print "normal")
-  (.sgr 1)
-  (print "bold")
-  (.sgr 4)
-  (print "bold underline")
-  (.sgr 7)
-  (print "bold underline reverse")
-  (.sgr 22)
-  (print "underline reverse")
-  (.sgr 24)
-  (print "reverse")
-  (.sgr 27)
-  (print "normal")
-  (.sgr 1 4 7)
-  (print "bold underline reverse")
-  (.sgr 0)
-  (print "normal")
-  (force-output))
-
-(defun ansi-t03 ()
-  "Display the 256 color palette."
-  (clear)
-  (loop for i from 0 to 255 do
-           (.sgr 48 5 i)
-           (princ #\space))
-  (terpri)
-  (.sgr 0)
-  (loop for i from 0 to 255 do
-           (.sgr 38 5 i)
-           (princ "X"))
-  (.sgr 0)
-  (force-output)
-  ;; (sleep 3)
-  (.ris)
-  (force-output))
-
-(defun ansi-t04 ()
-  "Hide and show the cursor."
-  (princ "Cursor visible:")
-  (force-output)
-  ;; (sleep 2)
-  (terpri)
-  (princ "Cursor invisible:")
-  (hide-cursor)
-  (force-output)
-  ;; (sleep 2)
-  (terpri)
-  (princ "Cursor visible:")
-  (show-cursor)
-  (force-output)
-  ;; (sleep 2)
-  )
-
-(defun ansi-t05 ()
-  "Switch to and back from the alternate screen buffer."
-  (princ "Normal screen buffer. ")
-  (force-output)
-  ;; (sleep 2)
-  (save-cursor-position)
-  (use-alternate-screen-buffer)
-  (clear)
-  (princ "Alternate screen buffer.")
-  (force-output)
-  ;; (sleep 2)
-  (use-normal-screen-buffer)
-  (restore-cursor-position)
-  (princ "Back to Normal screen buffer.")
-  (force-output)
-  ;; (sleep 1)
-  )
-
-(defun ansi-t06 ()
-  "Set individual termios flags to enable raw and disable echo mode.
-
-Enabling raw mode allows read-char to return immediately after a key is pressed.
-
-In the default cooked mode, the entry has to be confirmed by pressing enter."
-  (set-tty-mode t :ignbrk nil
-                  :brkint nil
-                  :parmrk nil
-                  :istrip nil
-                  :inlcr  nil
-                  :igncr  nil
-                  :icrnl  nil
-                  :ixon   nil
-                  :opost  nil
-                  :echo   nil
-                  :echonl nil
-                  :icanon nil
-                  :isig   nil
-                  :iexten nil
-                  :csize  nil
-                  :parenb nil
-                  :vmin 1
-                  :vtime 0)
-  (erase)
-  (cursor-position 1 1)
-  (force-output)
-  (let ((a (read-char)))
-    (cursor-position 10 5)
-    (princ a)
-    (force-output))
-
-  (set-tty-mode t :echo t
-                  :brkint t
-                  :ignpar t
-                  :istrip t
-                  :icrnl t
-                  :ixon t
-                  :opost t
-                  :isig t
-                  :icanon t
-                  :veol 0))
-
-(defun ansi-t07 ()
-  "Use combination modes that consist of several individual flags.
-
-Cooked and raw are opposite modes. Enabling cooked disbles raw and vice versa."
-  (set-tty-mode t :cooked nil)
-  (erase)
-  (cursor-position 1 1)
-  (force-output)
-  (let ((a (read-char)))
-    (cursor-position 3 1)
-    (princ a)
-    (force-output))
-  (set-tty-mode t :raw nil))
-
-(defun ansi-t08 ()
-  "Why doesnt calling the stty utility work?"
-  (uiop:run-program "stty raw -echo" :ignore-error-status t)
-  (erase)
-  (cursor-position 1 1)
-  (force-output)
-  (let ((a (read-char)))
-    (cursor-position 2 1)
-    (princ a)
-    (force-output))
-  (uiop:run-program "stty -raw echo" :ignore-error-status t))
-
-(defun ansi-t09 ()
-  "Query terminal size with ANSI escape sequences."
-  ;; Put the terminal into raw mode so we can read the "user input"
-  ;; of the reply char by char
-  ;; Turn off the echo or the sequence will be displayed
-  (set-tty-mode t :cooked nil :echo nil)
-  (save-cursor-position)
-  ;; Go to the bottom right corner of the terminal by attempting
-  ;; to go to some high value of row and column
-  (cursor-position 999 999)
-  (let (chars)
-    ;; The terminal returns an escape sequence to the standard input
-    (device-status-report)
-    (force-output)
-    ;; The reply isnt immediately available, the terminal does need
-    ;; some time to answer
-    (sleep 0.1)
-    ;; The reply has to be read as if the user typed an escape sequence
-    (loop for i = (read-char-no-hang *standard-input* nil)
-          until (null i)
-          do (push i chars))
-    ;; Put the terminal back into its initial cooked state
-    (set-tty-mode t :raw nil :echo t)
-    (restore-cursor-position)
-    ;; Return the read sequence as a list of characters.
-    (nreverse chars)))
-
-(deftest ansi ()
-  (with-input-from-string (in (format nil "~%~%"))
-    (ansi-t01)
-    (ansi-t02)
-    (ansi-t03)
-    (ansi-t04)
-    (ansi-t05)))
-
 ;; TODO: needs to be compiled outside scope of test - contender for
 ;; fixture API
 (defprompt tpfoo :prompt "testing:")