diff -r 2e7d93b892a5 -r 90417ae14b21 lisp/lib/io/pkg.lisp
--- a/lisp/lib/io/pkg.lisp	Tue Oct 01 22:29:08 2024 -0400
+++ b/lisp/lib/io/pkg.lisp	Tue Oct 01 23:34:01 2024 -0400
@@ -16,6 +16,27 @@
   (:use :cl :std/condition)
   (:export :io-error))
 
+(defpackage :io/fast
+  (:use :cl :std :io/proto)
+  (:export
+   #:fast-read-byte #:fast-write-byte
+   #:fast-read-sequence #:fast-write-sequence
+   #:with-fast-input #:with-fast-output
+   #:write8 #:writeu8
+   #:write8-le #:writeu8-le #:write8-be #:writeu8-be
+   #:write16-le #:writeu16-le #:write16-be #:writeu16-be
+   #:write24-le #:writeu24-le #:write24-be #:writeu24-be
+   #:write32-le #:writeu32-le #:write32-be #:writeu32-be
+   #:write64-le #:writeu64-le #:write64-be #:writeu64-be
+   #:write128-le #:writeu128-le #:write128-be #:writeu128-be
+   #:read8 #:readu8
+   #:read8-le #:readu8-le #:read8-be #:readu8-be
+   #:read16-le #:readu16-le #:read16-be #:readu16-be
+   #:read32-le #:readu32-le #:read32-be #:readu32-be
+   #:read64-le #:readu64-le #:read64-be #:readu64-be
+   #:read128-le #:readu128-le #:read128-be #:readu128-be
+   #:fast-output-stream #:fast-input-stream))
+
 (defpackage :io/ring
   (:use :cl :uring :io/proto)
   (:import-from :sb-alien :addr)