ちょっとCommon Lispをいじりたい時に
#!/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)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment