OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optimized buffer code a bit.

Browse Source
This commit is contained in:
Pierre R. Mai
2001-02-07 13:24:31 +00:00
parent 7d628b92da
commit 88ec83c086
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/main/buffer.cl
View File

@ -13,7 +13,7 @@
;;;; ;;;;
;;;; ;;;;
(defvar *default-io-buffer-size* 4096 (defvar *default-io-buffer-size* 16384
"Default size of newly created I/O buffers. This can be tuned to "Default size of newly created I/O buffers. This can be tuned to
server needs.") server needs.")
@ -41,5 +41,6 @@ re-use."
(defmacro with-io-buffer ((var) &body body) (defmacro with-io-buffer ((var) &body body)
`(let ((,var (get-io-buffer))) `(let ((,var (get-io-buffer)))
(declare (type simple-string ,var))
(unwind-protect (progn ,@body) (unwind-protect (progn ,@body)
(release-io-buffer ,var)))) (release-io-buffer ,var))))