CMUCL commit: intl-branch src/code (macros.lisp)

[Raymond Toy]

    Date: Monday, February 8, 2010 @ 21:03:14
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: macros.lisp

Set the texdomain for defvars and defparameters.


-------------+
 macros.lisp |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)


Index: src/code/macros.lisp
diff -u src/code/macros.lisp:1.113.10.1 src/code/macros.lisp:1.113.10.2
--- src/code/macros.lisp:1.113.10.1	Mon Feb  8 12:15:48 2010
+++ src/code/macros.lisp	Mon Feb  8 21:03:13 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/macros.lisp,v 1.113.10.1 2010-02-08 17:15:48 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/macros.lisp,v 1.113.10.2 2010-02-09 02:03:13 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -430,7 +430,9 @@
 	 `((unless (boundp ',var)
 	     (setq ,var ,val))))
     ,@(when docp
-	`((setf (documentation ',var 'variable) ',doc)))
+	`((setf (documentation ',var 'variable) ',doc)
+	  (eval-when (:load-toplevel :execute)
+	   (setf (c::info variable textdomain ',var) ,intl::*default-domain*))))
     (set-defvar-source-location ',var (c::source-location))
     ',var))
 
@@ -443,7 +445,9 @@
     (declaim (special ,var))
     (setq ,var ,val)
     ,@(when docp
-	`((setf (documentation ',var 'variable) ',doc)))
+	`((setf (documentation ',var 'variable) ',doc)
+	  (eval-when (:load-toplevel :execute)
+	   (setf (c::info variable textdomain ',var) ,intl::*default-domain*))))
     (set-defvar-source-location ',var (c::source-location))
     ',var))