#!/usr/bin/env clisp

;; http://clisp.cons.org/impnotes.html#quickstart-unix

(defun mkstr (&rest args)
  (with-output-to-string (s)
    (dolist (a args) (princ a s))))

(defun main ()
  (princ
   (mkstr "*load-truename*: " *load-truename* #\Newline
          "*load-pathname*: " *load-pathname* #\Newline
          "ext:*args*: " ext:*args* #\Newline))

  (princ "Type in your name: ")
  (format t "Your name was ~A~%" (read-line)))

(main)