with-open-fileを何個も入れ子で書くのがめんどくさかったので ;;; nlet (Schemeのnamed-letと同じ) (defmacro nlet (tag var-vals &body body) `(labels ((,tag ,(mapcar #'car var-vals) ,@body)) (declare (optimize (speed 3))) ; for tail recursion op…