Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
ちょっと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
You can’t perform that action at this time.