From 7bad074650949dc5427711b93ff615d9c17308d9 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Thu, 2 Nov 2006 13:24:00 +0000 Subject: [PATCH] 0.9.18.25: Support u-b 64 / s-b 64 streams with native endianity on 64-bit platforms. --- src/code/fd-stream.lisp | 18 ++++++++++++++++++ version.lisp-expr | 4 ++-- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 9bfe050..a602e80 100644 --- 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 --- 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" -- 1.7.10.4