Skip to content

Instantly share code, notes, and snippets.

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