CMUCL commit: intl-branch src (code/misc.lisp pcl/cmucl-documentation.lisp)

[Raymond Toy]

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

Modified: code/misc.lisp pcl/cmucl-documentation.lisp

Remove debugging prints.


------------------------------+
 code/misc.lisp               |    5 +++--
 pcl/cmucl-documentation.lisp |    9 ++++++++-
 2 files changed, 11 insertions(+), 3 deletions(-)


Index: src/code/misc.lisp
diff -u src/code/misc.lisp:1.38.8.1 src/code/misc.lisp:1.38.8.2
--- src/code/misc.lisp:1.38.8.1	Mon Feb  8 11:41:41 2010
+++ src/code/misc.lisp	Mon Feb  8 21:41:23 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/misc.lisp,v 1.38.8.1 2010-02-08 16:41:41 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.38.8.2 2010-02-09 02:41:23 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -98,7 +98,8 @@
   #-no-docstrings
   (case doc-type
     (variable
-     (when intl::*default-domain*
+     #+nil
+     (when string
        (%primitive print "Set variable text domain")
        (%primitive print (symbol-name name))
        (%primitive print intl::*default-domain*))
Index: src/pcl/cmucl-documentation.lisp
diff -u src/pcl/cmucl-documentation.lisp:1.16.32.2 src/pcl/cmucl-documentation.lisp:1.16.32.3
--- src/pcl/cmucl-documentation.lisp:1.16.32.2	Mon Feb  8 17:18:42 2010
+++ src/pcl/cmucl-documentation.lisp	Mon Feb  8 21:41:23 2010
@@ -4,7 +4,7 @@
 ;;; the public domain, and is provided 'as is'.
 
 (file-comment
-  "$Header: /project/cmucl/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.16.32.2 2010-02-08 22:18:42 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.16.32.3 2010-02-09 02:41:23 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -46,12 +46,14 @@
     (simple-program-error "Invalid function name ~s" x))
   (if (eq 'setf (cadr x))
       (progn
+	#+(or)
 	(when new-value
 	  (format t "Setting function ~S domain to ~A~%"
 		(cadr x) intl::*default-domain*))
 	(setf (info setf textdomain (cadr x)) intl::*default-domain*)
 	(setf (info setf documentation (cadr x)) new-value))
       (progn
+	#+(or)
 	(when new-value
 	  (format t "Setting function ~S domain to ~A~%"
 		(cadr x) intl::*default-domain*))
@@ -60,24 +62,28 @@
   new-value)
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'function)))
+  #+(or)
   (when new-value
     (format t "Setting function ~S domain to ~A~%" x intl::*default-domain*))
   (setf (info function textdomain x) intl::*default-domain*)
   (setf (info function documentation x) new-value))
 
 (defmethod (setf documentation) (new-value (x function) (doc-type (eql 'function)))
+  #+(or)
   (when new-value
     (format t "Setting function ~S domain to ~A~%" x intl::*default-domain*))
   (setf (info function textdomain x) intl::*default-domain*)
   (setf (info function documentation x) new-value))
 
 (defmethod (setf documentation) (new-value (x function) (doc-type (eql 't)))
+  #+(or)
   (when new-value
     (format t "Setting function ~S domain to ~A~%" x intl::*default-domain*))
   (setf (info function textdomain x) intl::*default-domain*)
   (setf (info function documentation x) new-value))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'setf)))
+  #+(or)
   (when new-value
     (format t "Setting setf function ~S domain to ~A~%" x intl::*default-domain*))
   (setf (info setf textdomain x) intl::*default-domain*)
@@ -181,6 +187,7 @@
   (values (info variable documentation x)))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'variable)))
+  #+(or)
   (format t "Setting variable ~S domain to ~A~%" x intl::*default-domain*)
   (setf (info variable textdomain x) intl::*default-domain*)
   (setf (info variable documentation x) new-value))