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