ちょっとCommon Lispをいじりたい時に

lisp.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

#|
$ ros build lisp.ros
$ ./lisp hoge
|#

(defpackage :portable-cl
  (:use :cl))
(in-package :portable-cl)

(ql:quickload :alexandria)
(use-package :alexandria)

(defmacro while (test &body body)
  `(do ()
       ((not ,test))
     ,@body))

(defun main (file-name &rest argv)
  (declare (ignorable argv))
  (with-open-file (f file-name :direction :input)
    (let (s)
      (while (setq s (read f nil)) (eval s))))
  (terpri))