CMUCL commit: intl-branch src (3 files)

[Raymond Toy]

    Date: Tuesday, February 9, 2010 @ 09:53:42
  Author: rtoy
    Path: /project/cmucl/cvsroot/src
     Tag: intl-branch

   Added: code/intl-tramp.lisp
Modified: tools/worldbuild.lisp tools/worldcom.lisp

Need a stub for FIND-DOMAIN during worldbuild.  (Should we put the
stub in some other file instead of having a new file that contains
just one function returning NIL?)

tools/worldbuild.lisp:
o Load intl-tramp

tools/worldcom.lisp:
o Build intl-tramp

code/intl-tramp.lisp:
o Define stub for FIND-DOMAIN.


-----------------------+
 code/intl-tramp.lisp  |   20 ++++++++++++++++++++
 tools/worldbuild.lisp |    5 +++--
 tools/worldcom.lisp   |    3 ++-
 3 files changed, 25 insertions(+), 3 deletions(-)


Index: src/code/intl-tramp.lisp
diff -u /dev/null src/code/intl-tramp.lisp:1.1.2.1
--- /dev/null	Tue Feb  9 09:53:42 2010
+++ src/code/intl-tramp.lisp	Tue Feb  9 09:53:42 2010
@@ -0,0 +1,20 @@
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;;
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/Attic/intl-tramp.lisp,v 1.1.2.1 2010-02-09 14:53:42 rtoy Exp $")
+
+;;;
+;;; **********************************************************************
+;;;
+;;; This is a stub for building CMUCL. We need FIND-DOMAIN to be
+;;; defined during worldbuild.  The real version will get loaded in
+;;; intl.lisp during worldload.
+
+(in-package "INTL")
+
+(defun find-domain (domain locale &optional (locale-dir *locale-directories*))
+  (declare (ignore domain locale locale-dir))
+  nil)
Index: src/tools/worldbuild.lisp
diff -u src/tools/worldbuild.lisp:1.55.10.1 src/tools/worldbuild.lisp:1.55.10.2
--- src/tools/worldbuild.lisp:1.55.10.1	Sun Feb  7 21:49:49 2010
+++ src/tools/worldbuild.lisp	Tue Feb  9 09:53:42 2010
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/tools/worldbuild.lisp,v 1.55.10.1 2010-02-08 02:49:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/tools/worldbuild.lisp,v 1.55.10.2 2010-02-09 14:53:42 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -184,7 +184,8 @@
     "target:code/debug"
 
     ,@(when (c:backend-featurep :mp)
-	'("target:code/multi-proc"))
+	    '("target:code/multi-proc"))
+    "target:code/intl-tramp"
     ))
 
 (setf *genesis-core-name* "target:lisp/kernel.core")
Index: src/tools/worldcom.lisp
diff -u src/tools/worldcom.lisp:1.102.10.1 src/tools/worldcom.lisp:1.102.10.2
--- src/tools/worldcom.lisp:1.102.10.1	Sun Feb  7 21:49:49 2010
+++ src/tools/worldcom.lisp	Tue Feb  9 09:53:42 2010
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/tools/worldcom.lisp,v 1.102.10.1 2010-02-08 02:49:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/tools/worldcom.lisp,v 1.102.10.2 2010-02-09 14:53:42 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -318,6 +318,7 @@
   (comf "target:code/macros")
   #-no-runtime (comf "target:code/macros" :byte-compile t))
 
+(comf "target:code/intl-tramp")
 (comf "target:code/intl")
 
 ); let *byte-compile-top-level*