0.9.18.25:

        Support u-b 64 / s-b 64 streams with native endianity on 64-bit
        platforms.

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 9bfe050..a602e80 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -450,6 +450,24 @@
                            (fd-stream-obuf-tail stream))
         byte))
 
+#+#.(cl:if (cl:= sb!vm:n-word-bits 64) '(and) '(or))
+(progn
+  (def-output-routines ("OUTPUT-UNSIGNED-LONG-LONG-~A-BUFFERED"
+                        8
+                        nil
+                        (:none (unsigned-byte 64))
+                        (:full (unsigned-byte 64)))
+    (setf (sap-ref-64 (fd-stream-obuf-sap stream) (fd-stream-obuf-tail stream))
+          byte))
+  (def-output-routines ("OUTPUT-SIGNED-LONG-LONG-~A-BUFFERED"
+                        8
+                        nil
+                        (:none (signed-byte 64))
+                        (:full (signed-byte 64)))
+    (setf (signed-sap-ref-64 (fd-stream-obuf-sap stream)
+                             (fd-stream-obuf-tail stream))
+          byte)))
+
 ;;; Do the actual output. If there is space to buffer the string,
 ;;; buffer it. If the string would normally fit in the buffer, but
 ;;; doesn't because of other stuff in the buffer, flush the old noise

diff --git a/version.lisp-expr b/version.lisp-expr
index 8680cdb..3be8885 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -1,4 +1,4 @@
-';;; This is the master value for LISP-IMPLEMENTATION-VERSION. It's
+;;; This is the master value for LISP-IMPLEMENTATION-VERSION. It's
 ;;; separated into its own file here so that it's easy for
 ;;; text-munging make-ish or cvs-ish scripts to find and tweak it. For
 ;;; the convenience of such scripts, only a simple subset of Lisp
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.24"
+"0.9.18.25"