@@ -98,6 +98,10 @@
(format t "Invalid input: ~a ~%" ,error-string)
(values 0 e))))
+;; Util screen clearer
+(defun cls()
+ (format t "~A[H~@*~A[J" #\escape))
+
;; Entry point
(defun main ()
(format t "~%")
