X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=byte-stream.lisp;h=05059a023739cc45006fee7ce5f0c27f1d691ebd;hp=e3036074a00034224864fd7b3dfcef8767a98ff8;hb=HEAD;hpb=b7f3a2b6318514a93a08c67254eb145e1a3a29e2 diff --git a/byte-stream.lisp b/byte-stream.lisp index e303607..05059a0 100644 --- a/byte-stream.lisp +++ b/byte-stream.lisp @@ -1,4 +1,4 @@ -;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: kmrcl -*- +;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; @@ -7,8 +7,6 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: June 2003 ;;;; -;;;; $Id$ -;;;; ;;;; Works for CMUCL, SBCL, and AllergoCL only ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2003 by Kevin M. Rosenberg @@ -21,7 +19,7 @@ (in-package #:kmrcl) -;; Intial CMUCL version by OnShored. Ported to SBCL by Kevin Rosenberg +;; Intial CMUCL version by OnShored. Ported to AllegroCL, SBCL by Kevin Rosenberg #+sbcl (eval-when (:compile-toplevel :load-toplevel :execute) @@ -96,12 +94,12 @@ Make-Byte-Array-Output-Stream since the last call to this function." #+sbcl (eval-when (:compile-toplevel :load-toplevel :execute) (sb-ext:without-package-locks - (defvar *system-copy-fn* (if (fboundp (intern "COPY-SYSTEM-AREA" "SB-KERNEL")) - (intern "COPY-SYSTEM-AREA" "SB-KERNEL") - (intern "COPY-SYSTEM-UB8-AREA" "SB-KERNEL"))) - (defconstant +system-copy-multiplier+ (if (fboundp (intern "COPY-FROM-SYSTEM-AREA" "SB-KERNEL")) - sb-vm:n-byte-bits - 1)))) + (sb-ext:without-package-locks + (defvar *system-copy-fn* (intern "SYSTEM-AREA-UB8-COPY" "SB-KERNEL")) + (defconstant +system-copy-multiplier+ + (if (fboundp (intern "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL")) + sb-vm:n-byte-bits + 1))))) #+(or cmu sbcl) (progn @@ -266,5 +264,3 @@ Make-Byte-Array-Output-Stream since the last call to this function." (end (length buffer))) (excl:make-buffer-input-stream buffer start end :octets)) ) ;; progn - -