master: Exclude 0 from fd-stream-element-size
stassats via Sbcl-commits <[email protected]> Tue, 28 Jul 2026 08:39:32 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 32b3f5f79e3511c6d12ac982899eac52d7547554 (commit)
from 09782c9c16ae055ffa457ad5237a6142161db185 (commit)
- Log -----------------------------------------------------------------
commit 32b3f5f79e3511c6d12ac982899eac52d7547554
Author: Stas Boukarev <[email protected]>
Date: Thu Jul 23 01:12:43 2026 +0300
Exclude 0 from fd-stream-element-size
---
src/code/fd-stream.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index a744bb95d..f133a622b 100644
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -126,7 +126,7 @@
(original nil :type (or simple-string null))
(delete-original nil) ; for :if-exists :rename-and-delete
;;; the number of bytes per element
- (element-size 1 :type index)
+ (element-size 1 :type (and (integer 1) index))
;; the type of element being transfered
(element-type 'base-char)
;; coarse characterization of the element type. see description of
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL