From d43c3985f12fd62000d349f12e74ecc1f14c6556 Mon Sep 17 00:00:00 2001 From: Toshihiro Matsui Date: Sat, 16 Jun 2018 17:13:30 +0900 Subject: [PATCH] Since unix:write has been changed to have the offset arg, write-buffer is changed accordingly. --- lisp/l/stream.l | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/l/stream.l b/lisp/l/stream.l index ae73f01f8..5801c82b7 100644 --- a/lisp/l/stream.l +++ b/lisp/l/stream.l @@ -608,7 +608,7 @@ (defun write-buffer (fname buf &optional (len (length buf))) (with-open-file (f fname :direction :output) - (unix:write f buf len))) + (unix:write f buf 0 len))) ;; unix:write changed to accept the third arg=offset. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;