10 lines
361 B
Common Lisp
10 lines
361 B
Common Lisp
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
|
(ql:quickload :croatoan :silent t)
|
|
(handler-case
|
|
(croatoan:with-screen (scr)
|
|
(format t "Screen height: ~s~%" (croatoan:height scr))
|
|
(format t "Screen width: ~s~%" (croatoan:width scr))
|
|
(finish-output))
|
|
(error (c) (format t "Croatoan Error: ~a~%" c)))
|
|
(uiop:quit 0)
|