t-cool

;; CL-PDF Hello World

;;
;; Use ASDF to load the CL-PDF library
;;
(asdf:operate 'asdf:load-op 'cl-pdf)

;;
;; Function to generate a Hello World pdf file.
;; On calling this function, you should see a pdf file

t-cool

;; *** REPL ***
(defun game-repl ()
  (let ((cmd (game-read)))
    (unless (eq (car cmd) 'quit)
    (game-print (game-eval cmd))
    (game-repl))))

;; 入力に対して()を補い第二引数以降をシンボルとする
;; ex. walk east far => (WALK 'EAST 'FAR)
(defun game-read ()