diff --git a/code/fd-stream-comp.lisp b/code/fd-stream-comp.lisp new file mode 100644 index 0000000000000000000000000000000000000000..4d4df57116a7a4e8daf23cea56646326ab94bcc5 --- /dev/null +++ b/code/fd-stream-comp.lisp @@ -0,0 +1,29 @@ +;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: LISP -*- +;;; +;;; ********************************************************************** +;;; This has been placed in the public domain. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream-comp.lisp,v 1.1 2010/07/20 21:34:29 rtoy Rel $") +;;; +;;; ********************************************************************** +;;; +;;; Precompile builtin external-formats. + +(in-package "LISP") + +(intl:textdomain "cmucl") + +;; The external format :iso8859-1 is builtin so we want all of the +;; basic methods to be compiled so that they don't have to be compiled +;; at runtime. There are issues if we don't do this. +;; +;; These are needed for both unicode and non-unicode Lisps. +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cin+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cout+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-sout+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-os+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-so+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-en+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-de+) + diff --git a/code/fd-stream-extfmt.lisp b/code/fd-stream-extfmt.lisp index 5b8edb62f64cf45a243d5ea42dd1c29cf0b08f07..6f27ce37dbd8f74122993a55280f5d66fea04d62 100644 --- a/code/fd-stream-extfmt.lisp +++ b/code/fd-stream-extfmt.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.9 2010/07/02 02:50:35 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.10 2010/07/20 21:34:29 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -119,12 +119,5 @@ extfmt)) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cin+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cout+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-sout+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-os+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-so+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-en+) -(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-de+) (setf lisp::*enable-stream-buffer-p* t) diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index 659fffcb2224a86f678d5d39d4dc503b5f8baffd..c7248a3e0627be4cdc1a2689962668a467298597 100644 --- a/tools/worldcom.lisp +++ b/tools/worldcom.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.103 2010/03/19 15:19:04 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.104 2010/07/20 21:34:30 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -246,6 +246,7 @@ (comf "target:code/fd-stream") (when (c:backend-featurep :unicode) (comf "target:code/fd-stream-extfmt")) +(comf "target:code/fd-stream-comp") (comf "target:code/pathname") #-no-runtime (comf "target:code/pathname" :byte-compile t) (comf "target:code/filesys") diff --git a/tools/worldload.lisp b/tools/worldload.lisp index b715c2b60ae92a2125406f2993edc7b9dee83116..fbe3eb365b3de9f30f61bee6ef46715b910e2908 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -6,7 +6,7 @@ ;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.111 2010/03/19 15:19:04 rtoy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.112 2010/07/20 21:34:30 rtoy Rel $ ;;; ;;; ********************************************************************** ;;; @@ -164,6 +164,8 @@ #+(and unicode (not (or unicode-bootstrap no-compiler runtime))) (maybe-byte-load "code:fd-stream-extfmt") +(maybe-byte-load "code:fd-stream-comp") + (maybe-byte-load "target:code/intl")