perl の while(<>)みたいなのは、 Common Lisp でどうやるんかなぁ。 こんな感じかな。 ;;; (defun cat-file ( file ) "write each line of that file" (with-open-file (s file :direction :input) (loop for line = (read-line s nil s) until (eq line s)…

いつもより40分もおそく目をさましてしまいました。 でも、会社には遅刻しませんけどね。