CMUCL commit: intl-branch src (2 files)

[Raymond Toy]

    Date: Monday, February 8, 2010 @ 11:28:20
  Author: rtoy
    Path: /project/cmucl/cvsroot/src
     Tag: intl-branch

Modified: bootfiles/20a/boot-2010-02-1.lisp compiler/globaldb.lisp

Add new info-types to hold the textdomain for documentation.  This is
needed so that we know what textdomain to use for docstrings for
variables, functions, etc.

bootfiles/20a/boot-2010-02-1.lisp:
o Bootstrap new info-types.

compiler/globaldb.lisp:
o Define new info-types.


-----------------------------------+
 bootfiles/20a/boot-2010-02-1.lisp |   10 ++++++++++
 compiler/globaldb.lisp            |   12 ++++++++++--
 2 files changed, 20 insertions(+), 2 deletions(-)


Index: src/bootfiles/20a/boot-2010-02-1.lisp
diff -u src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.1 src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.2
--- src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.1	Sun Feb  7 21:49:48 2010
+++ src/bootfiles/20a/boot-2010-02-1.lisp	Mon Feb  8 11:28:20 2010
@@ -9,3 +9,13 @@
   (compile-from-stream s))
 
 (intl::install)
+
+
+(in-package "C")
+;; The textdomain for the documentation
+(define-info-type function textdomain (or string null) nil)
+(define-info-type variable textdomain (or string null) nil)
+(define-info-type type textdomain (or string null) nil)
+(define-info-type typed-structure textdomain (or string null) nil)
+(define-info-type setf textdomain (or string null) nil)
+
Index: src/compiler/globaldb.lisp
diff -u src/compiler/globaldb.lisp:1.53 src/compiler/globaldb.lisp:1.53.22.1
--- src/compiler/globaldb.lisp:1.53	Wed Feb 27 12:08:33 2008
+++ src/compiler/globaldb.lisp	Mon Feb  8 11:28:20 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/globaldb.lisp,v 1.53 2008-02-27 17:08:33 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/globaldb.lisp,v 1.53.22.1 2010-02-08 16:28:20 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -30,6 +30,7 @@
 (in-package "C")
 (use-package "EXTENSIONS")
 (use-package "SYSTEM")
+(intl:textdomain "cmucl")
 
 (in-package "EXTENSIONS")
 (export '(info clear-info define-info-class define-info-type
@@ -1171,7 +1172,14 @@
 ;;;
 (define-info-class source-location)
 (define-info-type source-location defvar (or form-numbers null) nil)
-		   
+
+;; The textdomain for the documentation
+(define-info-type function textdomain (or string null) nil)
+(define-info-type variable textdomain (or string null) nil)
+(define-info-type type textdomain (or string null) nil)
+(define-info-type typed-structure textdomain (or string null) nil)
+(define-info-type setf textdomain (or string null) nil)
+
 ); defun other-info-init
 
 (declaim (freeze-type info-env))