src/code/cross-io.lisp

   1 ;;;; cross-compiler-only versions of I/O-related stuff
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "SB!FASL")
  13
  14 ;;;; fast-read operations
  15 ;;;;
  16 ;;;; (Portable versions of these are needed at cross-compile time because
  17 ;;;; genesis implements some of its cold fops by cloning ordinary fop
  18 ;;;; implementations, and the ordinary fop implementations are defined in terms
  19 ;;;; of fast-read operations.)
  20
  21 (defmacro prepare-for-fast-read-byte (stream &body forms)
  22   `(let ((%frc-stream% ,stream))
  23      ,@forms))
  24
  25 (defmacro fast-read-byte (&optional (eof-error-p t) (eof-value nil) any-type)
  26   (declare (ignore any-type))
  27   `(read-byte %frc-stream% ,eof-error-p ,eof-value))
  28
  29 (defmacro done-with-fast-read-byte ()
  30   `(values))