gistfile1.cl

(defun ttt-print (board)
  "Pretty prints a given board."
  (format t "~%  1 2 3 <- cols~%~%")
  (format t "1 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%  -+-+-~%"
	  (pop board) (pop board) (pop board))
  (format t "2 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%  -+-+-~%"
	  (pop board) (pop board) (pop board))
  (format t "3 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%"
	  (pop board) (pop board) (pop board))
  (format t "^~% \\_ rows~%"))