mc #6864(2008/07/28 01:11 GMT) [ Common Lisp ] Rating1/1=1.00
1 2 3 4 5 6 7 8 9
(defpackage :doukaku-185 (:use :cl :series)) (in-package :doukaku-185) (defun remove-comment (file) (let ((*readtable* (copy-readtable))) (setf (readtable-case *readtable*) :preserve) (iterate ((line (scan-file file #'read))) (pprint line) (terpri))))
Rating1/1=1.00-0+
[ reply ]
mc
#6864()
[
Common Lisp
]
Rating1/1=1.00
一応、文字の大小位は保持するようにしてみました。
(defpackage :doukaku-185 (:use :cl :series)) (in-package :doukaku-185) (defun remove-comment (file) (let ((*readtable* (copy-readtable))) (setf (readtable-case *readtable*) :preserve) (iterate ((line (scan-file file #'read))) (pprint line) (terpri))))Rating1/1=1.00-0+
[ reply ]