/[cmucl]/src/code/fd-stream-comp.lisp
ViewVC logotype

Contents of /src/code/fd-stream-comp.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Tue Jul 20 21:34:29 2010 UTC (3 years, 9 months ago) by rtoy
Branch: MAIN
CVS Tags: GIT-CONVERSION, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, cross-sol-x86-merged, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, release-20b-pre1, release-20b-pre2, cross-sparc-branch-base, snapshot-2010-08, RELEASE_20b, cross-sol-x86-2010-12-20, HEAD
Branch point for: cross-sol-x86-branch, cross-sparc-branch, RELEASE-20B-BRANCH
Need to precompile the ef slots for both unicode and non-unicode
builds.  (This was broken in the 2010-04 snapshot.)

code/fd-stream-comp.lisp:
o Precompile ef slots there for ISO8859-1.

code/fd-stream-extfmts.lisp:
o Remove the precompile stuff.

tools/worldcom.lisp:
o Compile fd-stream-comp.

tools/worldload.lisp:
o Load fd-stream-comp.
1 rtoy 1.1 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: LISP -*-
2     ;;;
3     ;;; **********************************************************************
4     ;;; This has been placed in the public domain.
5     ;;;
6     (ext:file-comment
7     "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/fd-stream-comp.lisp,v 1.1 2010/07/20 21:34:29 rtoy Rel $")
8     ;;;
9     ;;; **********************************************************************
10     ;;;
11     ;;; Precompile builtin external-formats.
12    
13     (in-package "LISP")
14    
15     (intl:textdomain "cmucl")
16    
17     ;; The external format :iso8859-1 is builtin so we want all of the
18     ;; basic methods to be compiled so that they don't have to be compiled
19     ;; at runtime. There are issues if we don't do this.
20     ;;
21     ;; These are needed for both unicode and non-unicode Lisps.
22     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cin+)
23     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cout+)
24     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-sout+)
25     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-os+)
26     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-so+)
27     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-en+)
28     (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-de+)
29    

  ViewVC Help
Powered by ViewVC 1.1.5