久しぶりにデモを見た。プログラム精神がくすぐられるね。って、今日は全然進んでないけど。 気付けば、c64を入れていたり、syleraの不具合が直ったり。細々としたことをしてた。 こういうことを書くと日記らしいけど、twitterの履歴に残っているので、あま…

(defun nar-dir (dir) (dolist (file (directory dir :absolute t)) (let ((ext (pathname-type file))) (if (member ext '("zip" "lzh" "tar" "gz") :test 'equal) (nar file))))) (defun nar (file) (extract-archive file (merge-pathnames (pathname-nam…