[slime-cvs] CVS update: slime/swank.lisp slime/swank-allegro.lisp

[Marco Baringer]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv20138

Modified Files:
	swank.lisp swank-allegro.lisp 
Log Message:
It's -> Its

Date: Thu Sep 16 13:40:40 2004
Author: mbaringer

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.237 slime/swank.lisp:1.238
--- slime/swank.lisp:1.237	Wed Sep 15 19:29:39 2004
+++ slime/swank.lisp	Thu Sep 16 13:40:39 2004
@@ -2531,12 +2531,12 @@
   (values "An array."
           `("Dimensions: " (:value ,(array-dimensions array))
             (:newline)
-            "It's element type is: " (:value ,(array-element-type array))
+            "Its element type is: " (:value ,(array-element-type array))
             (:newline)
             "Total size: " (:value ,(array-total-size array))
             (:newline)
             ,@(if (array-has-fill-pointer-p array)
-                  `("It's fill-pointer is " (:value ,(fill-pointer array)))
+                  `("Its fill-pointer is " (:value ,(fill-pointer array)))
                   `("No fill pointer."))
             (:newline)
             ,(if (adjustable-array-p array)
@@ -2583,7 +2583,7 @@
                    " " (:action ,(format nil "[remove name ~S (does not affect class object)]" symbol)
                                 (lambda () (setf (find-class symbol) nil)))))))
     (values "A symbol."
-            `("It's name is: " (:value ,(symbol-name symbol))
+            `("Its name is: " (:value ,(symbol-name symbol))
               (:newline)
               ;; check to see whether it is a global variable, a
               ;; constant, or a symbol macro.
@@ -2612,8 +2612,7 @@
                      (when (documentation symbol 'function)
                        `("Documentation:" (:newline) ,(documentation symbol 'function) (:newline)))
                      (when (compiler-macro-function symbol)
-                       `("It also names the compiler macro: " (:value ,(compiler-macro-function symbol))))
-                     `((:newline))
+                       `("It also names the compiler macro: " (:value ,(compiler-macro-function symbol)) (:newline)))
                      (when (documentation symbol 'compiler-macro)
                        `("Documentation:" (:newline) ,(documentation symbol 'compiler-macro) (:newline))))
                     `("It has no function value." (:newline)))
@@ -2636,7 +2635,7 @@
   (declare (ignore inspector))
   (values "A function."
           `("Name: " (:value ,(function-name f)) (:newline)
-            "It's argument list is: " ,(princ-to-string (arglist f))
+            "Its argument list is: " ,(princ-to-string (arglist f))
             (:newline)
             ,@(when (documentation f t)
                 `("Documentation:" (:newline) ,(documentation f t) (:newline))))))
@@ -2669,10 +2668,10 @@
   (declare (ignore inspector))
   (values "A generic function."
           `("Name: " (:value ,(swank-mop:generic-function-name gf)) (:newline)
-            "It's argument list is: " ,(princ-to-string (swank-mop:generic-function-lambda-list gf)) (:newline)
+            "Its argument list is: " ,(princ-to-string (swank-mop:generic-function-lambda-list gf)) (:newline)
             "Documentation: " (:newline)
             ,(princ-to-string (documentation gf t)) (:newline)
-            "It's method class is: " (:value ,(swank-mop:generic-function-method-class gf)) (:newline)
+            "Its method class is: " (:value ,(swank-mop:generic-function-method-class gf)) (:newline)
             "It uses " (:value ,(swank-mop:generic-function-method-combination gf)) " method combination." (:newline)
             "Methods: " (:newline)
             ,@(loop


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.57 slime/swank-allegro.lisp:1.58
--- slime/swank-allegro.lisp:1.57	Tue Sep 14 23:24:58 2004
+++ slime/swank-allegro.lisp	Thu Sep 16 13:40:39 2004
@@ -441,7 +441,7 @@
 (defmethod inspect-for-emacs ((f function) (inspector acl-inspector))
   (values "A function."
           `("Name: " (:value ,(function-name f)) (:newline)
-            "It's argument list is: " ,(princ-to-string (arglist f)) (:newline)
+            "Its argument list is: " ,(princ-to-string (arglist f)) (:newline)
             "Documentation:" (:newline)
             ;; AllegroCL doesn't support (documentation <function-obj> t)
             ;; so we get the symbol and then its doc