ytakenaka #359(2007/07/08 18:00 GMT) [ Common Lisp ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9
(defun erase-comment-out-line (infile outfile) (with-open-file (in infile :direction :input) (with-open-file (out outfile :direction :output :if-exists :supersede) (do ((line (read-line in nil 'eof) (read-line in nil 'eof))) ((eql line 'eof) 'Done) (unless (equal (schar line 0) #\#) (write-line line out))))))
Rating0/0=0.00-0+
[ reply ]
ytakenaka
#359()
[
Common Lisp
]
Rating0/0=0.00
(defun erase-comment-out-line (infile outfile) (with-open-file (in infile :direction :input) (with-open-file (out outfile :direction :output :if-exists :supersede) (do ((line (read-line in nil 'eof) (read-line in nil 'eof))) ((eql line 'eof) 'Done) (unless (equal (schar line 0) #\#) (write-line line out))))))Rating0/0=0.00-0+
[ reply ]