mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 03:40:31 -07:00
Code Issues Projects Releases Packages Wiki Activity

Remove redundant definition of COPY-FILE in encodings/tools.lisp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-27 23:36:26 +02:00
parent 74cf32017b
commit 7a2f1feae6
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
contrib/encodings/tools.lisp
View file

@ -164,16 +164,6 @@
(write-byte (length mapping-array) s)
(write-sequence mapping-array s))))
(defun copy-file (in out)
(let ((buffer (make-array 8192 :element-type '(unsigned-byte 8))))
(format t "~%;;; Copying ~A to ~A" in out)
(with-open-file (sin in :direction :input :element-type '(unsigned-byte 8))
(with-open-file (sout out :direction :output :element-type '(unsigned-byte 8)
:if-exists :supersede :if-does-not-exist :create)
(loop for nbytes = (read-sequence buffer sin)
until (zerop nbytes)
do (write-sequence buffer sout :end nbytes))))))
(defun all-valid-unicode-chars (mapping)
(cond ((consp mapping)
(loop for sublist on mapping