CMUCL commit: intl-branch src (8 files)

Raymond Toy rtoy at common-lisp.net
Wed Feb 10 03:42:11 CET 2010


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

Modified: code/seq.lisp code/serve-event.lisp code/setf-funs.lisp
          code/sharpm.lisp code/signal.lisp code/sort.lisp
          i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po

Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.


-------------------------------------+
 code/seq.lisp                       |  118 +++---
 code/serve-event.lisp               |   36 -
 code/setf-funs.lisp                 |    4 
 code/sharpm.lisp                    |   56 +-
 code/signal.lisp                    |   32 -
 code/sort.lisp                      |   12 
 i18n/locale/cmucl.pot               |  650 ++++++++++++++++++++++++++++++++++
 i18n/locale/ko/LC_MESSAGES/cmucl.po |  650 ++++++++++++++++++++++++++++++++++
 8 files changed, 1429 insertions(+), 129 deletions(-)


Index: src/code/seq.lisp
diff -u src/code/seq.lisp:1.55.10.1 src/code/seq.lisp:1.55.10.2
--- src/code/seq.lisp:1.55.10.1	Mon Feb  8 12:15:49 2010
+++ src/code/seq.lisp	Tue Feb  9 21:42:11 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/seq.lisp,v 1.55.10.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/seq.lisp,v 1.55.10.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -49,16 +49,16 @@
 	   ,array-form)))
 
 (defmacro elt-slice (sequences n)
-  "Returns a list of the Nth element of each of the sequences.  Used by MAP
+  _N"Returns a list of the Nth element of each of the sequences.  Used by MAP
    and friends."
   `(mapcar #'(lambda (seq) (elt seq ,n)) ,sequences))
 
 (defmacro make-sequence-like (sequence length)
-  "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
+  _N"Returns a sequence of the same type as SEQUENCE and the given LENGTH."
   `(make-sequence-of-type (type-of ,sequence) ,length))
 
 (defmacro type-specifier-atom (type)
-  "Returns the broad class of which TYPE is a specific subclass."
+  _N"Returns the broad class of which TYPE is a specific subclass."
   `(if (atom ,type) ,type (car ,type)))
 
 ) ; eval-when
@@ -81,7 +81,7 @@
 		  :datum type
 		  :expected-type '(or vector cons)
 		  :format-control
-		  "NIL output type invalid for this sequence function."
+		  _"NIL output type invalid for this sequence function."
 		  :format-arguments ())))
       ((or (union-type-p type)
 	   (and (member-type-p type)
@@ -89,7 +89,7 @@
        (error 'simple-type-error
 	      :datum type
 	      :exptected-type 'sequence
-	      :format-control "~S is too hairy for sequence functions."
+	      :format-control _"~S is too hairy for sequence functions."
 	      :format-arguments (list seq-type)))
       ((dolist (seq-type '(list string simple-vector bit-vector))
 	 (when (csubtypep type (specifier-type seq-type))
@@ -101,14 +101,14 @@
 	      :datum type
 	      :expected-type 'sequence
 	      :format-control
-	      "~S is a bad type specifier for sequence functions."
+	      _"~S is a bad type specifier for sequence functions."
 	      :format-arguments (list seq-type))))))
 
 (define-condition index-too-large-error (type-error)
   ()
   (:report
    (lambda(condition stream)
-     (format stream "Error in ~S: ~S: Index too large."
+     (format stream _"Error in ~S: ~S: Index too large."
 	     (condition-function-name condition)
 	     (type-error-datum condition)))))
 
@@ -123,7 +123,7 @@
 			      '(integer (0) (0))))))
 
 (defun make-sequence-of-type (type length)
-  "Returns a sequence of the given TYPE and LENGTH."
+  _N"Returns a sequence of the given TYPE and LENGTH."
   (declare (fixnum length))
   (case (type-specifier-atom type)
     (list (make-list length))
@@ -139,7 +139,7 @@
      (make-sequence-of-type (result-type-or-lose type) length))))
   
 (defun elt (sequence index)
-  "Returns the element of SEQUENCE specified by INDEX."
+  _N"Returns the element of SEQUENCE specified by INDEX."
   (etypecase sequence
     (list
      (do ((count index (1- count))
@@ -155,7 +155,7 @@
      (aref sequence index))))
 
 (defun %setelt (sequence index newval)
-  "Store NEWVAL as the component of SEQUENCE specified by INDEX."
+  _N"Store NEWVAL as the component of SEQUENCE specified by INDEX."
   (etypecase sequence
     (list
      (do ((count index (1- count))
@@ -172,7 +172,7 @@
 
 
 (defun length (sequence)
-  "Returns an integer that is the length of SEQUENCE."
+  _N"Returns an integer that is the length of SEQUENCE."
   (etypecase sequence
     (vector (length (truly-the vector sequence)))
     (list (length (truly-the list sequence)))))
@@ -195,7 +195,7 @@
 	 ;; (SATISFIES IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P), but we
 	 ;; aren't really using it.
 	 :expected-type 'sequence
-	 :format-control "~S is a bad type specifier for sequences"
+	 :format-control _"~S is a bad type specifier for sequences"
 	 :format-arguments (list type-spec)))
 
 (defun sequence-length-error (type-spec length)
@@ -208,13 +208,13 @@
 			      ((cons-type-p type-spec)
 			       `(integer 1))
 			      (t
-			       (error "Shouldn't happen!  Weird type")))
-	 :format-control "The length of ~S does not match the specified ~
+			       (error _"Shouldn't happen!  Weird type")))
+	 :format-control _"The length of ~S does not match the specified ~
                           length of ~S."
 	 :format-arguments (list (type-specifier type-spec) length)))
 	 
 (defun make-sequence (type length &key (initial-element NIL iep))
-  "Returns a sequence of the given Type and Length, with elements initialized
+  _N"Returns a sequence of the given Type and Length, with elements initialized
   to :Initial-Element."
   (declare (fixnum length))
   (flet ((check-seq-len (spec-type length)
@@ -259,7 +259,7 @@
 			  :datum (type-specifier type)
 			  :expected-type (type-specifier type)
 			  :format-control
-			  "The length of ~S does not match the specified ~
+			  _"The length of ~S does not match the specified ~
                            length  of ~S."
 			  :format-arguments
 			  (list (type-specifier type) length)))
@@ -271,7 +271,7 @@
 	(t (error 'simple-type-error
 		  :datum type
 		  :expected-type 'sequence
-		  :format-control "~S is a bad type specifier for sequences."
+		  :format-control _"~S is a bad type specifier for sequences."
 		  :format-arguments (list (type-specifier type))))))))
 
 
@@ -312,7 +312,7 @@
 ;;; in the body of the function, and this is actually done in the support
 ;;; routines for other reasons (see above).
 (defun subseq (sequence start &optional end)
-  "Returns a copy of a subsequence of SEQUENCE starting with element number 
+  _N"Returns a copy of a subsequence of SEQUENCE starting with element number 
    START and continuing to the end of SEQUENCE or the optional END."
   (seq-dispatch sequence
 		(list-subseq* sequence start end)
@@ -345,7 +345,7 @@
 )
 
 (defun copy-seq (sequence)
-  "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
+  _N"Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
   (seq-dispatch sequence
 		(list-copy-seq* sequence)
 		(vector-copy-seq* sequence)))
@@ -397,7 +397,7 @@
 ;;; in the body of the function, and this is actually done in the support
 ;;; routines for other reasons (see above).
 (defun fill (sequence item &key (start 0) end)
-  "Replace the specified elements of SEQUENCE with ITEM."
+  _N"Replace the specified elements of SEQUENCE with ITEM."
   (seq-dispatch sequence
 		(list-fill* sequence item start end)
 		(vector-fill* sequence item start end)))
@@ -519,7 +519,7 @@
 		((:end1 target-end))
 		((:start2 source-start) 0)
 		((:end2 source-end)))
-  "The target sequence is destructively modified by copying successive
+  _N"The target sequence is destructively modified by copying successive
    elements into it from the source sequence."
   (let ((target-end (or target-end (length target-sequence)))
 	(source-end (or source-end (length source-sequence))))
@@ -555,7 +555,7 @@
 )
 
 (defun reverse (sequence)
-  "Returns a new sequence containing the same elements but in reverse order."
+  _N"Returns a new sequence containing the same elements but in reverse order."
   (seq-dispatch sequence
 		(list-reverse* sequence)
 		(vector-reverse* sequence)
@@ -603,7 +603,7 @@
   (vector-nreverse sequence))
 
 (defun nreverse (sequence)
-  "Returns a sequence of the same elements in reverse order; the argument
+  _N"Returns a sequence of the same elements in reverse order; the argument
    is destroyed."
   (seq-dispatch sequence
 		(list-nreverse* sequence)
@@ -667,7 +667,7 @@
 )
 
 (defun concatenate (output-type-spec &rest sequences)
-  "Returns a new sequence of all the argument sequences concatenated together
+  _N"Returns a new sequence of all the argument sequences concatenated together
   which shares no structure with the original argument sequences of the
   specified OUTPUT-TYPE-SPEC."
   (case (type-specifier-atom output-type-spec)
@@ -800,7 +800,7 @@
       result)))
 
 (defun map (output-type-spec function first-sequence &rest more-sequences)
-  "FUNCTION must take as many arguments as there are sequences provided.  The 
+  _N"FUNCTION must take as many arguments as there are sequences provided.  The 
    result is a sequence such that element i is the result of applying FUNCTION
    to element i of each of the argument sequences."
   (let ((sequences (cons first-sequence more-sequences)))
@@ -877,27 +877,27 @@
 ) ; eval-when
 
 (defquantifier some
-  "PREDICATE is applied to the elements with index 0 of the sequences, then 
+  _N"PREDICATE is applied to the elements with index 0 of the sequences, then 
    possibly to those with index 1, and so on.  SOME returns the first 
    non-() value encountered, or () if the end of a sequence is reached."
   nil t result)
 
 (defquantifier every
-  "PREDICATE is applied to the elements with index 0 of the sequences, then
+  _N"PREDICATE is applied to the elements with index 0 of the sequences, then
    possibly to those with index 1, and so on.  EVERY returns () as soon
    as any invocation of PREDICATE returns (), or T if every invocation
    is non-()."
   t nil nil)
 
 (defquantifier notany
-  "PREDICATE is applied to the elements with index 0 of the sequences, then 
+  _N"PREDICATE is applied to the elements with index 0 of the sequences, then 
    possibly to those with index 1, and so on.  NOTANY returns () as soon
    as any invocation of PREDICATE returns a non-() value, or T if the end
    of a sequence is reached."
   t t nil)
 
 (defquantifier notevery
-  "PREDICATE is applied to the elements with index 0 of the sequences, then
+  _N"PREDICATE is applied to the elements with index 0 of the sequences, then
    possibly to those with index 1, and so on.  NOTEVERY returns T as soon
    as any invocation of PREDICATE returns (), or () if every invocation
    is non-()."
@@ -954,7 +954,7 @@
 
 (defun reduce (function sequence &key key from-end (start 0)
 			end (initial-value nil ivp))
-  "The specified Sequence is ``reduced'' using the given Function.
+  _N"The specified Sequence is ``reduced'' using the given Function.
   See manual for details."
   (declare (type index start))
   (let ((start start)
@@ -985,12 +985,12 @@
 ;;; Coerce:
 
 (defun coerce (object output-type-spec)
-  "Coerces the Object to an object of type Output-Type-Spec."
+  _N"Coerces the Object to an object of type Output-Type-Spec."
   (labels ((coerce-error ()
 	     (error 'simple-type-error
 		    :expected-type output-type-spec
 		    :datum object
-		    :format-control "~S can't be converted to type ~S."
+		    :format-control _"~S can't be converted to type ~S."
 		    :format-arguments (list object output-type-spec)))
 	   (check-seq-len (type length)
 	     (unless (valid-sequence-and-length-p type length)
@@ -1273,7 +1273,7 @@
 
 (defun delete (item sequence &key from-end (test #'eql) test-not (start 0)
 		end count key)
-  "Returns a sequence formed by destructively removing the specified Item from
+  _N"Returns a sequence formed by destructively removing the specified Item from
   the given Sequence."
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1310,7 +1310,7 @@
 )
 
 (defun delete-if (predicate sequence &key from-end (start 0) key end count)
-  "Returns a sequence formed by destructively removing the elements satisfying
+  _N"Returns a sequence formed by destructively removing the elements satisfying
   the specified Predicate from the given Sequence."
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1347,7 +1347,7 @@
 )
 
 (defun delete-if-not (predicate sequence &key from-end (start 0) end key count)
-  "Returns a sequence formed by destructively removing the elements not
+  _N"Returns a sequence formed by destructively removing the elements not
   satisfying the specified Predicate from the given Sequence."
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1496,7 +1496,7 @@
 
 (defun remove (item sequence &key from-end (test #'eql) test-not (start 0)
 		end count key)
-  "Returns a copy of SEQUENCE with elements satisfying the test (default is
+  _N"Returns a copy of SEQUENCE with elements satisfying the test (default is
    EQL) with ITEM removed."
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1513,7 +1513,7 @@
 		      (normal-mumble-remove)))))
 
 (defun remove-if (predicate sequence &key from-end (start 0) end count key)
-  "Returns a copy of sequence with elements such that predicate(element)
+  _N"Returns a copy of sequence with elements such that predicate(element)
    is non-null are removed"
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1530,7 +1530,7 @@
 		      (if-mumble-remove)))))
 
 (defun remove-if-not (predicate sequence &key from-end (start 0) end count key)
-  "Returns a copy of sequence with elements such that predicate(element)
+  _N"Returns a copy of sequence with elements such that predicate(element)
    is null are removed"
   (declare (fixnum start))
   (let* ((length (length sequence))
@@ -1639,7 +1639,7 @@
 
 (defun remove-duplicates (sequence &key (test #'eql) test-not (start 0)
 					from-end end key)
-  "The elements of Sequence are compared pairwise, and if any two match,
+  _N"The elements of Sequence are compared pairwise, and if any two match,
    the one occuring earlier is discarded, unless FROM-END is true, in
    which case the one later in the sequence is discarded.  The resulting
    sequence is returned.
@@ -1720,7 +1720,7 @@
 
 (defun delete-duplicates (sequence &key (test #'eql) test-not (start 0)
 					from-end end key)
-  "The elements of Sequence are examined, and if any two match, one is
+  _N"The elements of Sequence are examined, and if any two match, one is
    discarded.  The resulting sequence, which may be formed by destroying the
    given sequence, is returned.
 
@@ -1828,7 +1828,7 @@
 
 (defun substitute (new old sequence &key from-end (test #'eql) test-not
 		   (start 0) count end key)
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
   except that all elements equal to Old are replaced with New.  See manual
   for details."
   (declare (fixnum start))
@@ -1843,7 +1843,7 @@
 ;;; Substitute-If:
 
 (defun substitute-if (new test sequence &key from-end (start 0) end count key)
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
   except that all elements satisfying the Test are replaced with New.  See
   manual for details."
   (declare (fixnum start))
@@ -1861,7 +1861,7 @@
 
 (defun substitute-if-not (new test sequence &key from-end (start 0)
 			   end count key)
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
   except that all elements not satisfying the Test are replaced with New.
   See manual for details."
   (declare (fixnum start))
@@ -1880,7 +1880,7 @@
 
 (defun nsubstitute (new old sequence &key from-end (test #'eql) test-not 
 		     end count key (start 0))
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
   except that all elements equal to Old are replaced with New.  The Sequence
   may be destroyed.  See manual for details."
   (declare (fixnum start))
@@ -1929,7 +1929,7 @@
 ;;; NSubstitute-If:
 
 (defun nsubstitute-if (new test sequence &key from-end (start 0) end count key)
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
    except that all elements satisfying the Test are replaced with New.  The
    Sequence may be destroyed.  See manual for details."
   (declare (fixnum start))
@@ -1972,7 +1972,7 @@
 
 (defun nsubstitute-if-not (new test sequence &key from-end (start 0)
 			       end count key)
-  "Returns a sequence of the same kind as Sequence with the same elements
+  _N"Returns a sequence of the same kind as Sequence with the same elements
    except that all elements not satisfying the Test are replaced with New.
    The Sequence may be destroyed.  See manual for details."
   (declare (fixnum start))
@@ -2140,7 +2140,7 @@
 ;;; routines for other reasons (see below).
 (defun position (item sequence &key from-end (test #'eql) test-not (start 0)
 		  end key)
-  "Returns the zero-origin index of the first element in SEQUENCE
+  _N"Returns the zero-origin index of the first element in SEQUENCE
    satisfying the test (default is EQL) with the given ITEM"
   (seq-dispatch sequence
     (list-position* item sequence from-end test test-not start end key)
@@ -2176,7 +2176,7 @@
 )
 
 (defun position-if (test sequence &key from-end (start 0) key end)
-  "Returns the zero-origin index of the first element satisfying test(el)"
+  _N"Returns the zero-origin index of the first element satisfying test(el)"
   (declare (fixnum start))
   (let ((end (or end (length sequence))))
     (declare (type index end))
@@ -2198,7 +2198,7 @@
 )
 
 (defun position-if-not (test sequence &key from-end (start 0) key end)
-  "Returns the zero-origin index of the first element not satisfying test(el)"
+  _N"Returns the zero-origin index of the first element not satisfying test(el)"
   (declare (fixnum start))
   (let ((end (or end (length sequence))))
     (declare (type index end))
@@ -2225,7 +2225,7 @@
 ;;; routines for other reasons (see above).
 (defun find (item sequence &key from-end (test #'eql) test-not (start 0)
 	       end key)
-  "Returns the first element in SEQUENCE satisfying the test (default
+  _N"Returns the first element in SEQUENCE satisfying the test (default
    is EQL) with the given ITEM"
   (declare (fixnum start))
   (seq-dispatch sequence
@@ -2259,7 +2259,7 @@
 )
 
 (defun find-if (test sequence &key from-end (start 0) end key)
-  "Returns the first element in SEQUENCE satisfying the test."
+  _N"Returns the first element in SEQUENCE satisfying the test."
   (declare (fixnum start))
   (let ((end (or end (length sequence))))
     (declare (type index end))
@@ -2281,7 +2281,7 @@
 )
 
 (defun find-if-not (test sequence &key from-end (start 0) end key)
-  "Returns the first element in SEQUENCE not satisfying the test."
+  _N"Returns the first element in SEQUENCE not satisfying the test."
   (declare (fixnum start))
   (let ((end (or end (length sequence))))
     (declare (type index end))
@@ -2323,13 +2323,13 @@
 
 (defun count (item sequence &key from-end (test #'eql test-p) (test-not nil test-not-p)
 		   (start 0) end key)
-  "Returns the number of elements in SEQUENCE satisfying a test with ITEM,
+  _N"Returns the number of elements in SEQUENCE satisfying a test with ITEM,
    which defaults to EQL."
   (declare (fixnum start))
   (when (and test-p test-not-p)
     ;; ANSI Common Lisp has left the behavior in this situation unspecified.
     ;; (CLHS 17.2.1)
-    (error ":TEST and :TEST-NOT are both present."))
+    (error _":TEST and :TEST-NOT are both present."))
   (let* ((length (length sequence))
 	 (end (or end length)))
     (declare (type index end))
@@ -2350,7 +2350,7 @@
 ;;; Count-if:
 
 (defun count-if (test sequence &key from-end (start 0) end key)
-  "Returns the number of elements in SEQUENCE satisfying TEST(el)."
+  _N"Returns the number of elements in SEQUENCE satisfying TEST(el)."
   (declare (fixnum start))
   (let* ((length (length sequence))
 	 (end (or end length)))
@@ -2364,7 +2364,7 @@
 		      (vector-count-if nil nil test sequence)))))
 
 (defun count-if-not (test sequence &key from-end (start 0) end key)
-  "Returns the number of elements in SEQUENCE satisfying TEST(el)."
+  _N"Returns the number of elements in SEQUENCE satisfying TEST(el)."
   (declare (fixnum start))
   (let* ((length (length sequence))
 	 (end (or end length)))
@@ -2457,7 +2457,7 @@
 
 (defun mismatch (sequence1 sequence2 &key from-end (test #'eql) test-not 
 			   (start1 0) end1 (start2 0) end2 key)
-  "The specified subsequences of Sequence1 and Sequence2 are compared
+  _N"The specified subsequences of Sequence1 and Sequence2 are compared
    element-wise.  If they are of equal length and match in every element, the
    result is NIL.  Otherwise, the result is a non-negative integer, the index
    within Sequence1 of the leftmost position at which they fail to match; or,
@@ -2576,7 +2576,7 @@
 
 (defun search (sequence1 sequence2 &key from-end (test #'eql) test-not 
 		(start1 0) end1 (start2 0) end2 key)
-  "A search is conducted using EQL for the first subsequence of sequence2 
+  _N"A search is conducted using EQL for the first subsequence of sequence2 
    which element-wise matches sequence1.  If there is such a subsequence in 
    sequence2, the index of the its leftmost element is returned; 
    otherwise () is returned."
Index: src/code/serve-event.lisp
diff -u src/code/serve-event.lisp:1.28.12.1 src/code/serve-event.lisp:1.28.12.2
--- src/code/serve-event.lisp:1.28.12.1	Mon Feb  8 12:15:49 2010
+++ src/code/serve-event.lisp	Tue Feb  9 21:42:11 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/serve-event.lisp,v 1.28.12.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/serve-event.lisp,v 1.28.12.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -57,7 +57,7 @@
   default-handler)
 
 (setf (documentation 'make-object-set 'function)
-      "Make an object set for use by a RPC/xevent server.  Name is for
+      _"Make an object set for use by a RPC/xevent server.  Name is for
       descriptive purposes only.")
 
 ;;; Default-Default-Handler  --  Internal
@@ -65,7 +65,7 @@
 ;;;    If no such operation defined, signal an error.
 ;;;
 (defun default-default-handler (object)
-  (error "You lose, object: ~S" object))
+  (error _"You lose, object: ~S" object))
 
 
 ;;; MAP-XWINDOW and MAP-PORT return as multiple values the object and
@@ -125,7 +125,7 @@
 ;;;    Look up the handler function for a given message ID.
 ;;;
 (defun object-set-operation (object-set message-id)
-  "Return the handler function in Object-Set for the operation specified by
+  _N"Return the handler function in Object-Set for the operation specified by
    Message-ID, if none, NIL is returned."
   (check-type object-set object-set)
   (check-type message-id fixnum)
@@ -141,7 +141,7 @@
   (setf (gethash message-id (object-set-table object-set)) new-value))
 ;;;
 (defsetf object-set-operation %set-object-set-operation
-  "Sets the handler function for an object set operation.")
+  _N"Sets the handler function for an object set operation.")
 
 
 
@@ -163,26 +163,26 @@
 
 (defun %print-handler (handler stream depth)
   (declare (ignore depth))
-  (format stream "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
+  (format stream _"#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
 	  (handler-direction handler)
 	  (handler-bogus handler)
 	  (handler-descriptor handler)
 	  (handler-function handler)))
 
 (defvar *descriptor-handlers* nil
-  "List of all the currently active handlers for file descriptors")
+  _N"List of all the currently active handlers for file descriptors")
 
 ;;; ADD-FD-HANDLER -- public
 ;;;
 ;;;   Add a new handler to *descriptor-handlers*.
 ;;;
 (defun add-fd-handler (fd direction function)
-  "Arange to call FUNCTION whenever FD is usable. DIRECTION should be
+  _N"Arange to call FUNCTION whenever FD is usable. DIRECTION should be
   either :INPUT or :OUTPUT. The value returned should be passed to
   SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
   (assert (member direction '(:input :output))
 	  (direction)
-	  "Invalid direction ~S, must be either :INPUT or :OUTPUT" direction)
+	  _"Invalid direction ~S, must be either :INPUT or :OUTPUT" direction)
   (let ((handler (make-handler direction fd function)))
     (push handler *descriptor-handlers*)
     handler))
@@ -192,7 +192,7 @@
 ;;;   Remove an old handler from *descriptor-handlers*.
 ;;;
 (defun remove-fd-handler (handler)
-  "Removes HANDLER from the list of active handlers."
+  _N"Removes HANDLER from the list of active handlers."
   (setf *descriptor-handlers*
 	(delete handler *descriptor-handlers*
 		:test #'eq)))
@@ -202,7 +202,7 @@
 ;;;   Search *descriptor-handlers* for any reference to fd, and nuke 'em.
 ;;; 
 (defun invalidate-descriptor (fd)
-  "Remove any handers refering to FD. This should only be used when attempting
+  _N"Remove any handers refering to FD. This should only be used when attempting
   to recover from a detected inconsistency."
   (setf *descriptor-handlers*
 	(delete fd *descriptor-handlers*
@@ -213,7 +213,7 @@
 ;;; Add the handler to *descriptor-handlers* for the duration of BODY.
 ;;;
 (defmacro with-fd-handler ((fd direction function) &rest body)
-  "Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.
+  _N"Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.
    DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor to
    use, and FUNCTION is the function to call whenever FD is usable."
   (let ((handler (gensym)))
@@ -269,7 +269,7 @@
        (declare (type index q) (single-float r))
        (values q (the (values index t) (truncate (* r 1f6))))))
     (t
-     (error "Timeout is not a real number or NIL: ~S" timeout))))
+     (error _"Timeout is not a real number or NIL: ~S" timeout))))
 
 
 ;;; WAIT-UNTIL-FD-USABLE -- Public.
@@ -280,7 +280,7 @@
 ;;; the meantime.
 ;;;
 (defun wait-until-fd-usable (fd direction &optional timeout)
-  "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or
+  _N"Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or
   :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before giving
   up."
   (declare (type (or real null) timeout))
@@ -327,7 +327,7 @@
 
 
 (defvar *display-event-handlers* nil
-  "This is an alist mapping displays to user functions to be called when
+  _N"This is an alist mapping displays to user functions to be called when
    SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify
    this directly; use EXT:ENABLE-CLX-EVENT-HANDLING.  A given display
    should be represented here only once.")
@@ -338,7 +338,7 @@
 ;;; pending events are processed before returning.
 ;;;
 (defun serve-all-events (&optional timeout)
-  "SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If
+  _N"SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If
   SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with timeout
   0 until all events have been served.  SERVE-ALL-EVENTS returns T if
   SERVE-EVENT did something and NIL if not."
@@ -353,7 +353,7 @@
 ;;;   Serve a single event.
 ;;;
 (defun serve-event (&optional timeout)
-  "Receive on all ports and Xevents and dispatch to the appropriate handler
+  _N"Receive on all ports and Xevents and dispatch to the appropriate handler
   function.  If timeout is specified, server will wait the specified time (in
   seconds) and then return, otherwise it will wait until something happens.
   Server returns T if something happened and NIL otherwise."
@@ -383,7 +383,7 @@
 				  (flush-display-events d))))
 	  (unless (funcall (cdr d/h) d)
 	    (disable-clx-event-handling d)
-	    (error "Event-listen was true, but handler didn't handle: ~%~S"
+	    (error _"Event-listen was true, but handler didn't handle: ~%~S"
 		   d/h)))
 	(return-from handle-queued-clx-event t)))))
 
Index: src/code/setf-funs.lisp
diff -u src/code/setf-funs.lisp:1.6.54.1 src/code/setf-funs.lisp:1.6.54.2
--- src/code/setf-funs.lisp:1.6.54.1	Mon Feb  8 12:15:49 2010
+++ src/code/setf-funs.lisp	Tue Feb  9 21:42:11 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/setf-funs.lisp,v 1.6.54.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/setf-funs.lisp,v 1.6.54.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -32,7 +32,7 @@
 			    (cons res args)))
 	 (setf (,name ,@(rest arglist)) ,(first arglist))))
      (t
-      (warn "Hairy setf expander for function ~S." name)
+      (warn _"Hairy setf expander for function ~S." name)
       nil))))
        
 
Index: src/code/sharpm.lisp
diff -u src/code/sharpm.lisp:1.27.24.1 src/code/sharpm.lisp:1.27.24.2
--- src/code/sharpm.lisp:1.27.24.1	Mon Feb  8 12:15:49 2010
+++ src/code/sharpm.lisp	Tue Feb  9 21:42:11 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/sharpm.lisp,v 1.27.24.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/sharpm.lisp,v 1.27.24.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -26,7 +26,7 @@
 
 (defun ignore-numarg (sub-char numarg)
   (when numarg
-    (warn "Numeric argument ignored in #~D~A." numarg sub-char)))
+    (warn _"Numeric argument ignored in #~D~A." numarg sub-char)))
 
 (defun sharp-backslash (stream backslash numarg)
   (ignore-numarg backslash numarg)
@@ -37,7 +37,7 @@
 	   (char charstring 0))
 	  ((name-char charstring))
 	  (t
-	   (%reader-error stream "Unrecognized character name: ~S"
+	   (%reader-error stream _"Unrecognized character name: ~S"
 			  charstring)))))
 
 
@@ -53,7 +53,7 @@
     ;; error if so.  Do we need to check for other kinds of badly
     ;; formed lists?
     (when (cdr (last list))
-      (%reader-error stream "Ill-formed vector: #~S" list))
+      (%reader-error stream _"Ill-formed vector: #~S" list))
     (let ((listlength (length list)))
       (declare (list list)
 	       (fixnum listlength))
@@ -63,7 +63,7 @@
 		 (cond ((> listlength (the fixnum length))
 			(%reader-error
 			 stream
-			 "Vector longer than specified length: #~S~S"
+			 _"Vector longer than specified length: #~S~S"
 			 length list))
 		       (t
 			(fill (the simple-vector
@@ -82,11 +82,11 @@
     (declare (simple-string bstring))
     (cond (*read-suppress* nil)
 	  (escape-appearedp
-	   (%reader-error stream "Escape character appeared after #*"))
+	   (%reader-error stream _"Escape character appeared after #*"))
 	  ((and numarg (zerop (length bstring)) (not (zerop numarg)))
 	   (%reader-error
 	    stream
-	    "You have to give a little bit for non-zero #* bit-vectors."))
+	    _"You have to give a little bit for non-zero #* bit-vectors."))
 	  ((or (null numarg) (>= (the fixnum numarg) (length bstring)))
 	   (let* ((len1 (length bstring))
 		  (last1 (1- len1))
@@ -105,12 +105,12 @@
 			   (t
 			    (%reader-error
 			     stream
-			     "Illegal element given for bit-vector: ~S"
+			     _"Illegal element given for bit-vector: ~S"
 			     char)))))
 	     bvec))
 	  (t
 	   (%reader-error stream
-			 "Bit vector is longer than specified length #~A*~A"
+			 _"Bit vector is longer than specified length #~A*~A"
 			 numarg bstring)))))
 
 
@@ -122,7 +122,7 @@
     (cond
      (*read-suppress* nil)
      (colon
-      (%reader-error stream "Symbol following #: contains a package marker: ~S"
+      (%reader-error stream _"Symbol following #: contains a package marker: ~S"
 		     token))
      (t
       (make-symbol token)))))
@@ -130,7 +130,7 @@
 ;;;; #. handling.
 
 (defvar *read-eval* t
-  "If false, then the #. read macro is disabled.")
+  _N"If false, then the #. read macro is disabled.")
 
 (defun sharp-dot (stream sub-char numarg)
   (ignore-numarg sub-char numarg)
@@ -138,7 +138,7 @@
     (unless *read-suppress*
       (unless *read-eval*
 	(%reader-error stream
-		      "Attempt to read #. while *READ-EVAL* is bound to NIL."))
+		      _"Attempt to read #. while *READ-EVAL* is bound to NIL."))
       (eval token))))
 
 
@@ -149,14 +149,14 @@
 	 (read-extended-token stream)
 	 nil)
 	((not radix)
-	 (%reader-error stream "Radix missing in #R."))
+	 (%reader-error stream _"Radix missing in #R."))
 	((not (<= 2 radix 36))
-	 (%reader-error stream "Illegal radix for #R: ~D." radix))
+	 (%reader-error stream _"Illegal radix for #R: ~D." radix))
 	(t
 	 (let ((res (let ((*read-base* radix))
 		      (read stream t nil t))))
 	   (unless (typep res 'rational)
-	     (%reader-error stream "#~A (base ~D) value is not a rational: ~S."
+	     (%reader-error stream _"#~A (base ~D) value is not a rational: ~S."
 			   sub-char radix res))
 	   res))))
 
@@ -196,7 +196,7 @@
 			  (setq zero-axis axis))
 			 (zero-axis
 			  (%reader-error stream
-					 "#~DA axis ~D is empty, but axis ~
+					 _"#~DA axis ~D is empty, but axis ~
 				          ~D is non-empty."
 					 dimensions zero-axis axis))
 			 (t
@@ -216,21 +216,21 @@
     (return-from sharp-S nil))
   (let ((body (if (char= (read-char stream t) #\( )
 		  (read-list stream nil)
-		  (%reader-error stream "Non-list following #S"))))
+		  (%reader-error stream _"Non-list following #S"))))
     (unless (listp body)
-      (%reader-error stream "Non-list following #S: ~S" body))
+      (%reader-error stream _"Non-list following #S: ~S" body))
     (unless (symbolp (car body))
-      (%reader-error stream "Structure type is not a symbol: ~S" (car body)))
+      (%reader-error stream _"Structure type is not a symbol: ~S" (car body)))
     (let ((class (kernel::find-class (car body) nil)))
       (unless (typep class 'kernel::structure-class)
-	(%reader-error stream "~S is not a defined structure type."
+	(%reader-error stream _"~S is not a defined structure type."
 		       (car body)))
       (let ((def-con (dd-default-constructor
 		      (layout-info
 		       (%class-layout class)))))
 	(unless def-con
 	  (%reader-error
-	   stream "The ~S structure does not have a default constructor."
+	   stream _"The ~S structure does not have a default constructor."
 	   (car body)))
 	(apply (fdefinition def-con) (rest body))))))
 
@@ -313,16 +313,16 @@
   (declare (ignore ignore))
   (when *read-suppress* (return-from sharp-equal (values)))
   (unless label
-    (%reader-error stream "Missing label for #=." label))
+    (%reader-error stream _"Missing label for #=." label))
   (maybe-create-tables)
   (when (or (nth-value 1 (gethash label *sharp-equal-final-table*))
 	    (nth-value 1 (gethash label *sharp-equal-temp-table*)))
-    (%reader-error stream "Multiply defined label: #~D=" label))
+    (%reader-error stream _"Multiply defined label: #~D=" label))
   (let* ((tag (gensym)))
     (setf (gethash label *sharp-equal-temp-table*) tag)
     (let ((obj (read stream t nil t)))
       (when (eq obj tag)
-	(%reader-error stream "Have to tag something more than just #~D#."
+	(%reader-error stream _"Have to tag something more than just #~D#."
 		       label))
       (setf (gethash tag *sharp-equal-repl-table*) obj)
       (let ((*sharp-equal-circle-table* (make-hash-table :test #'eq :size 20)))
@@ -333,7 +333,7 @@
   (declare (ignore ignore))
   (when *read-suppress* (return-from sharp-sharp nil))
   (unless label
-    (%reader-error stream "Missing label for ##." label))
+    (%reader-error stream _"Missing label for ##." label))
 
   (maybe-create-tables)
   ;; Don't read ANSI "2.4.8.15 Sharpsign Equal-Sign" and worry that it requires
@@ -347,7 +347,7 @@
 	    (gethash label *sharp-equal-temp-table*)
 	  (if successp
 	      temporary-tag
-	      (%reader-error stream "reference to undefined label #~D#" label))))))
+	      (%reader-error stream _"reference to undefined label #~D#" label))))))
 
 ;;;; #+/-
 
@@ -381,7 +381,7 @@
     (when *read-suppress* (return-from sharp-c nil))
     (if (and (listp cnum) (= (length cnum) 2))
 	(complex (car cnum) (cadr cnum))
-	(%reader-error stream "Illegal complex number format: #C~S" cnum))))
+	(%reader-error stream _"Illegal complex number format: #C~S" cnum))))
 
 (defun sharp-vertical-bar (stream sub-char numarg)
   (ignore-numarg sub-char numarg)
@@ -417,7 +417,7 @@
 
 (defun sharp-illegal (stream sub-char ignore)
   (declare (ignore ignore))
-  (%reader-error stream "Illegal sharp character ~S" sub-char))
+  (%reader-error stream _"Illegal sharp character ~S" sub-char))
 
 (defun sharp-P (stream sub-char numarg)
   (ignore-numarg sub-char numarg)
Index: src/code/signal.lisp
diff -u src/code/signal.lisp:1.36.38.1 src/code/signal.lisp:1.36.38.2
--- src/code/signal.lisp:1.36.38.1	Mon Feb  8 12:15:49 2010
+++ src/code/signal.lisp	Tue Feb  9 21:42:11 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/signal.lisp,v 1.36.38.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/signal.lisp,v 1.36.38.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -50,7 +50,7 @@
   (%description nil :type string))  ; Documentation
 
 (defvar *unix-signals* nil
-  "A list of unix signal structures.")
+  _N"A list of unix signal structures.")
 
 
 (eval-when (compile eval)
@@ -74,21 +74,21 @@
 			     (symbol #'unix-signal-%name)
 			     (number #'unix-signal-%number)))))
     (unless signal
-      (error "~S is not a valid signal name or number." arg))
+      (error _"~S is not a valid signal name or number." arg))
     signal))
 
 (defun unix-signal-name (signal)
-  "Return the name of the signal as a string.  Signal should be a valid
+  _N"Return the name of the signal as a string.  Signal should be a valid
   signal number or a keyword of the standard UNIX signal name."
   (symbol-name (unix-signal-%name (unix-signal-or-lose signal))))
 
 (defun unix-signal-description (signal)
-  "Return a string describing signal.  Signal should be a valid signal
+  _N"Return a string describing signal.  Signal should be a valid signal
   number or a keyword of the standard UNIX signal name."
   (unix-signal-%description (unix-signal-or-lose signal)))
 
 (defun unix-signal-number (signal)
-  "Return the number of the given signal.  Signal should be a valid
+  _N"Return the number of the given signal.  Signal should be a valid
   signal number or a keyword of the standard UNIX signal name."
   (unix-signal-%number (unix-signal-or-lose signal)))
 
@@ -156,7 +156,7 @@
 ;;; SIGMASK -- Public
 ;;;
 (defmacro sigmask (&rest signals)
-  "Returns a mask given a set of signals."
+  _N"Returns a mask given a set of signals."
   (apply #'logior
 	 (mapcar #'(lambda (signal)
 		     (ash 1 (1- (unix-signal-number signal))))
@@ -172,7 +172,7 @@
   (signal c-call:int))
 
 (defun unix-kill (pid signal)
-  "Unix-kill sends the signal signal to the process with process 
+  _N"Unix-kill sends the signal signal to the process with process 
    id pid.  Signal should be a valid signal number or a keyword of the
    standard UNIX signal name."
   (if (minusp (real-unix-kill pid (unix-signal-number signal)))
@@ -186,7 +186,7 @@
   (signal c-call:int))
 
 (defun unix-killpg (pgrp signal)
-  "Unix-killpg sends the signal signal to the all the process in process
+  _N"Unix-killpg sends the signal signal to the all the process in process
   group PGRP.  Signal should be a valid signal number or a keyword of
   the standard UNIX signal name."
   (if (minusp (real-unix-killpg pgrp (unix-signal-number signal)))
@@ -194,21 +194,21 @@
       t))
 
 (alien:def-alien-routine ("sigblock" unix-sigblock) c-call:unsigned-long
-  "Unix-sigblock cause the signals specified in mask to be
+  _N"Unix-sigblock cause the signals specified in mask to be
    added to the set of signals currently being blocked from
    delivery.  The macro sigmask is provided to create masks."
   (mask c-call:unsigned-long))
 
 
 (alien:def-alien-routine ("sigpause" unix-sigpause) c-call:void
-  "Unix-sigpause sets the set of masked signals to its argument
+  _N"Unix-sigpause sets the set of masked signals to its argument
    and then waits for a signal to arrive, restoring the previous
    mask upon its return."
   (mask c-call:unsigned-long))
 
 
 (alien:def-alien-routine ("sigsetmask" unix-sigsetmask) c-call:unsigned-long
-  "Unix-sigsetmask sets the current set of masked signals (those
+  _N"Unix-sigsetmask sets the current set of masked signals (those
    being blocked from delivery) to the argument.  The macro sigmask
    can be used to create the mask.  The previous value of the signal
    mask is returned."
@@ -282,7 +282,7 @@
   (throw 'lisp::top-level-catcher nil))
 
 (defun signal-init ()
-  "Enable all the default signals that Lisp knows how to deal with."
+  _N"Enable all the default signals that Lisp knows how to deal with."
   (unless (member "-monitor" lisp::lisp-command-line-list :test #'string=)
     (enable-interrupt :sigint #'sigint-handler))
   (enable-interrupt :sigquit #'sigquit-handler)
@@ -342,7 +342,7 @@
 ;;; WITHOUT-INTERRUPTS  --  puiblic
 ;;; 
 (defmacro without-interrupts (&body body)
-  "Execute BODY in a context impervious to interrupts."
+  _N"Execute BODY in a context impervious to interrupts."
   (let ((name (gensym)))
     `(flet ((,name () , at body))
        (if *interrupts-enabled*
@@ -356,7 +356,7 @@
 ;;; WITH-INTERRUPTS  --  puiblic
 ;;;
 (defmacro with-interrupts (&body body)
-  "Allow interrupts while executing BODY.  As interrupts are normally allowed,
+  _N"Allow interrupts while executing BODY.  As interrupts are normally allowed,
   this is only useful inside a WITHOUT-INTERRUPTS."
   (let ((name (gensym)))
     `(flet ((,name () , at body))
@@ -395,7 +395,7 @@
 ;;;; WITH-ENABLED-INTERRUPTS
 
 (defmacro with-enabled-interrupts (interrupt-list &body body)
-  "With-enabled-interrupts ({(interrupt function)}*) {form}*
+  _N"With-enabled-interrupts ({(interrupt function)}*) {form}*
    Establish function as a handler for the Unix signal interrupt which
    should be a number between 1 and 31 inclusive."
   (let ((il (gensym))
Index: src/code/sort.lisp
diff -u src/code/sort.lisp:1.10.52.1 src/code/sort.lisp:1.10.52.2
--- src/code/sort.lisp:1.10.52.1	Mon Feb  8 12:15:49 2010
+++ src/code/sort.lisp	Tue Feb  9 21:42:11 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/sort.lisp,v 1.10.52.1 2010-02-08 17:15:49 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/sort.lisp,v 1.10.52.2 2010-02-10 02:42:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -26,7 +26,7 @@
 
 
 (defun sort (sequence predicate &key key)
-  "Destructively sorts sequence.  Predicate should returns non-Nil if
+  _N"Destructively sorts sequence.  Predicate should returns non-Nil if
    Arg1 is to precede Arg2."
   (typecase sequence
     (simple-vector
@@ -43,7 +43,7 @@
      (error 'simple-type-error
 	    :datum sequence
 	    :expected-type 'sequence
-	    :format-control "~S is not a sequence."
+	    :format-control _"~S is not a sequence."
 	    :format-arguments (list sequence)))))
 
 
@@ -133,7 +133,7 @@
 ;;;; Stable Sorting
 
 (defun stable-sort (sequence predicate &key key)
-  "Destructively sorts sequence.  Predicate should returns non-Nil if
+  _N"Destructively sorts sequence.  Predicate should returns non-Nil if
    Arg1 is to precede Arg2."
   (typecase sequence
     (simple-vector
@@ -146,7 +146,7 @@
      (error 'simple-type-error
 	    :datum sequence
 	    :expected-type 'sequence
-	    :format-control "~S is not a sequence."
+	    :format-control _"~S is not a sequence."
 	    :format-arguments (list sequence)))))
 
 
@@ -424,7 +424,7 @@
 ) ; eval-when
 
 (defun merge (result-type sequence1 sequence2 predicate &key key)
-  "The sequences Sequence1 and Sequence2 are destructively merged into
+  _N"The sequences Sequence1 and Sequence2 are destructively merged into
    a sequence of type Result-Type using the Predicate to order the elements."
   (cond ((or (eq result-type 'list)
 	     (subtypep result-type 'list))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.12 src/i18n/locale/cmucl.pot:1.1.2.13
--- src/i18n/locale/cmucl.pot:1.1.2.12	Tue Feb  9 21:22:10 2010
+++ src/i18n/locale/cmucl.pot	Tue Feb  9 21:42:11 2010
@@ -2015,6 +2015,340 @@
 msgid "Computes a hash code for S-EXPR and returns it as an integer."
 msgstr ""
 
+#: target:code/seq.lisp
+msgid ""
+"Returns a list of the Nth element of each of the sequences.  Used by MAP\n"
+"   and friends."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the broad class of which TYPE is a specific subclass."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "NIL output type invalid for this sequence function."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is too hairy for sequence functions."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequence functions."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Error in ~S: ~S: Index too large."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the given TYPE and LENGTH."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the element of SEQUENCE specified by INDEX."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns an integer that is the length of SEQUENCE."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Shouldn't happen!  Weird type"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                          length of ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the given Type and Length, with elements initialized\n"
+"  to :Initial-Element."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                           length  of ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of a subsequence of SEQUENCE starting with element number \n"
+"   START and continuing to the end of SEQUENCE or the optional END."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Replace the specified elements of SEQUENCE with ITEM."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The target sequence is destructively modified by copying successive\n"
+"   elements into it from the source sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a new sequence containing the same elements but in reverse order."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same elements in reverse order; the argument\n"
+"   is destroyed."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a new sequence of all the argument sequences concatenated together\n"
+"  which shares no structure with the original argument sequences of the\n"
+"  specified OUTPUT-TYPE-SPEC."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"FUNCTION must take as many arguments as there are sequences provided.  The \n"
+"   result is a sequence such that element i is the result of applying "
+"FUNCTION\n"
+"   to element i of each of the argument sequences."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then \n"
+"   possibly to those with index 1, and so on.  SOME returns the first \n"
+"   non-() value encountered, or () if the end of a sequence is reached."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then\n"
+"   possibly to those with index 1, and so on.  EVERY returns () as soon\n"
+"   as any invocation of PREDICATE returns (), or T if every invocation\n"
+"   is non-()."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then \n"
+"   possibly to those with index 1, and so on.  NOTANY returns () as soon\n"
+"   as any invocation of PREDICATE returns a non-() value, or T if the end\n"
+"   of a sequence is reached."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then\n"
+"   possibly to those with index 1, and so on.  NOTEVERY returns T as soon\n"
+"   as any invocation of PREDICATE returns (), or () if every invocation\n"
+"   is non-()."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The specified Sequence is ``reduced'' using the given Function.\n"
+"  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Coerces the Object to an object of type Output-Type-Spec."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S can't be converted to type ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the specified Item from\n"
+"  the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the elements satisfying\n"
+"  the specified Predicate from the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the elements not\n"
+"  satisfying the specified Predicate from the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
+"   EQL) with ITEM removed."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is non-null are removed"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is null are removed"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The elements of Sequence are compared pairwise, and if any two match,\n"
+"   the one occuring earlier is discarded, unless FROM-END is true, in\n"
+"   which case the one later in the sequence is discarded.  The resulting\n"
+"   sequence is returned.\n"
+"\n"
+"   The :TEST-NOT argument is deprecated."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The elements of Sequence are examined, and if any two match, one is\n"
+"   discarded.  The resulting sequence, which may be formed by destroying "
+"the\n"
+"   given sequence, is returned.\n"
+"\n"
+"   The :TEST-NOT argument is deprecated."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements equal to Old are replaced with New.  See manual\n"
+"  for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements satisfying the Test are replaced with New.  See\n"
+"  manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements not satisfying the Test are replaced with New.\n"
+"  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements equal to Old are replaced with New.  The Sequence"
+"\n"
+"  may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"   except that all elements satisfying the Test are replaced with New.  The\n"
+"   Sequence may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"   except that all elements not satisfying the Test are replaced with New.\n"
+"   The Sequence may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the zero-origin index of the first element in SEQUENCE\n"
+"   satisfying the test (default is EQL) with the given ITEM"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the zero-origin index of the first element satisfying test(el)"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the zero-origin index of the first element not satisfying test(el)"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the first element in SEQUENCE satisfying the test (default\n"
+"   is EQL) with the given ITEM"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE satisfying the test."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE not satisfying the test."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
+"   which defaults to EQL."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ":TEST and :TEST-NOT are both present."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The specified subsequences of Sequence1 and Sequence2 are compared\n"
+"   element-wise.  If they are of equal length and match in every element, "
+"the\n"
+"   result is NIL.  Otherwise, the result is a non-negative integer, the "
+"index\n"
+"   within Sequence1 of the leftmost position at which they fail to match; "
+"or,\n"
+"   if one is shorter than and a matching prefix of the other, the index "
+"within\n"
+"   Sequence1 beyond the last position tested is returned.  If a non-Nil\n"
+"   :From-End keyword argument is given, then one plus the index of the\n"
+"   rightmost position in which the sequences differ is returned."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"A search is conducted using EQL for the first subsequence of sequence2 \n"
+"   which element-wise matches sequence1.  If there is such a subsequence in "
+"\n"
+"   sequence2, the index of the its leftmost element is returned; \n"
+"   otherwise () is returned."
+msgstr ""
+
 #: target:code/mipsstrops.lisp
 msgid ""
 "Compares the substrings specified by String1 and String2 and returns\n"
@@ -5540,6 +5874,115 @@
 msgid "There's junk in this string: ~S."
 msgstr ""
 
+#: target:code/sharpm.lisp
+msgid "Numeric argument ignored in #~D~A."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Unrecognized character name: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Ill-formed vector: #~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Vector longer than specified length: #~S~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Escape character appeared after #*"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "You have to give a little bit for non-zero #* bit-vectors."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal element given for bit-vector: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Bit vector is longer than specified length #~A*~A"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Symbol following #: contains a package marker: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "If false, then the #. read macro is disabled."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Attempt to read #. while *READ-EVAL* is bound to NIL."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Radix missing in #R."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal radix for #R: ~D."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "#~A (base ~D) value is not a rational: ~S."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "#~DA axis ~D is empty, but axis ~\n"
+"				          ~D is non-empty."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Structure type is not a symbol: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "~S is not a defined structure type."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "The ~S structure does not have a default constructor."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Missing label for #=."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Multiply defined label: #~D="
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Have to tag something more than just #~D#."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Missing label for ##."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "reference to undefined label #~D#"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal complex number format: #C~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal sharp character ~S"
+msgstr ""
+
 #: target:code/backq.lisp
 msgid "How deep we are into backquotes"
 msgstr ""
@@ -5581,6 +6024,105 @@
 msgid "### illegal dotted backquote form ###"
 msgstr ""
 
+#: target:code/serve-event.lisp
+msgid ""
+"Make an object set for use by a RPC/xevent server.  Name is for\n"
+"      descriptive purposes only."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "You lose, object: ~S"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Return the handler function in Object-Set for the operation specified by\n"
+"   Message-ID, if none, NIL is returned."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Sets the handler function for an object set operation."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "List of all the currently active handlers for file descriptors"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n"
+"  either :INPUT or :OUTPUT. The value returned should be passed to\n"
+"  SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Removes HANDLER from the list of active handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Remove any handers refering to FD. This should only be used when attempting\n"
+"  to recover from a detected inconsistency."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n"
+"   DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor "
+"to\n"
+"   use, and FUNCTION is the function to call whenever FD is usable."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Timeout is not a real number or NIL: ~S"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n"
+"  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before "
+"giving\n"
+"  up."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"This is an alist mapping displays to user functions to be called when\n"
+"   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify\n"
+"   this directly; use EXT:ENABLE-CLX-EVENT-HANDLING.  A given display\n"
+"   should be represented here only once."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If\n"
+"  SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with "
+"timeout\n"
+"  0 until all events have been served.  SERVE-ALL-EVENTS returns T if\n"
+"  SERVE-EVENT did something and NIL if not."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Receive on all ports and Xevents and dispatch to the appropriate handler\n"
+"  function.  If timeout is specified, server will wait the specified time "
+"(in\n"
+"  seconds) and then return, otherwise it will wait until something happens.\n"
+"  Server returns T if something happened and NIL otherwise."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Event-listen was true, but handler didn't handle: ~%~S"
+msgstr ""
+
 #: target:code/extfmts.lisp
 msgid "Attempting unimplemented external-format I/O."
 msgstr ""
@@ -6704,6 +7246,93 @@
 msgid "Returns all of the elements of List, in order, as values."
 msgstr ""
 
+#: target:code/signal.lisp
+msgid "A list of unix signal structures."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "~S is not a valid signal name or number."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return the name of the signal as a string.  Signal should be a valid\n"
+"  signal number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return a string describing signal.  Signal should be a valid signal\n"
+"  number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return the number of the given signal.  Signal should be a valid\n"
+"  signal number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Returns a mask given a set of signals."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-kill sends the signal signal to the process with process \n"
+"   id pid.  Signal should be a valid signal number or a keyword of the\n"
+"   standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-killpg sends the signal signal to the all the process in process\n"
+"  group PGRP.  Signal should be a valid signal number or a keyword of\n"
+"  the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigblock cause the signals specified in mask to be\n"
+"   added to the set of signals currently being blocked from\n"
+"   delivery.  The macro sigmask is provided to create masks."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigpause sets the set of masked signals to its argument\n"
+"   and then waits for a signal to arrive, restoring the previous\n"
+"   mask upon its return."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigsetmask sets the current set of masked signals (those\n"
+"   being blocked from delivery) to the argument.  The macro sigmask\n"
+"   can be used to create the mask.  The previous value of the signal\n"
+"   mask is returned."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Enable all the default signals that Lisp knows how to deal with."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Execute BODY in a context impervious to interrupts."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Allow interrupts while executing BODY.  As interrupts are normally allowed,\n"
+"  this is only useful inside a WITHOUT-INTERRUPTS."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"With-enabled-interrupts ({(interrupt function)}*) {form}*\n"
+"   Establish function as a handler for the Unix signal interrupt which\n"
+"   should be a number between 1 and 31 inclusive."
+msgstr ""
+
 #: target:code/interr.lisp
 msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
 msgstr ""
@@ -7698,6 +8327,23 @@
 "   functions."
 msgstr ""
 
+#: target:code/sort.lisp
+msgid ""
+"Destructively sorts sequence.  Predicate should returns non-Nil if\n"
+"   Arg1 is to precede Arg2."
+msgstr ""
+
+#: target:code/sort.lisp
+msgid "~S is not a sequence."
+msgstr ""
+
+#: target:code/sort.lisp
+msgid ""
+"The sequences Sequence1 and Sequence2 are destructively merged into\n"
+"   a sequence of type Result-Type using the Predicate to order the "
+"elements."
+msgstr ""
+
 #: target:code/final.lisp
 msgid ""
 "Arrange for FUNCTION to be called when there are no more references to\n"
@@ -8929,6 +9575,10 @@
 "  process then NIL is return immediately without processing the body."
 msgstr ""
 
+#: target:code/setf-funs.lisp
+msgid "Hairy setf expander for function ~S."
+msgstr ""
+
 #: target:code/defstruct.lisp
 msgid ""
 "Controls compiling DEFSTRUCT :print-function and :print-method\n"
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.12 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.13
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.12	Tue Feb  9 21:22:10 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po	Tue Feb  9 21:42:11 2010
@@ -2015,6 +2015,340 @@
 msgid "Computes a hash code for S-EXPR and returns it as an integer."
 msgstr ""
 
+#: target:code/seq.lisp
+msgid ""
+"Returns a list of the Nth element of each of the sequences.  Used by MAP\n"
+"   and friends."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the broad class of which TYPE is a specific subclass."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "NIL output type invalid for this sequence function."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is too hairy for sequence functions."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequence functions."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Error in ~S: ~S: Index too large."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the given TYPE and LENGTH."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the element of SEQUENCE specified by INDEX."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns an integer that is the length of SEQUENCE."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Shouldn't happen!  Weird type"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                          length of ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the given Type and Length, with elements initialized\n"
+"  to :Initial-Element."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                           length  of ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of a subsequence of SEQUENCE starting with element number \n"
+"   START and continuing to the end of SEQUENCE or the optional END."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Replace the specified elements of SEQUENCE with ITEM."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The target sequence is destructively modified by copying successive\n"
+"   elements into it from the source sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a new sequence containing the same elements but in reverse order."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same elements in reverse order; the argument\n"
+"   is destroyed."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a new sequence of all the argument sequences concatenated together\n"
+"  which shares no structure with the original argument sequences of the\n"
+"  specified OUTPUT-TYPE-SPEC."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"FUNCTION must take as many arguments as there are sequences provided.  The \n"
+"   result is a sequence such that element i is the result of applying "
+"FUNCTION\n"
+"   to element i of each of the argument sequences."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then \n"
+"   possibly to those with index 1, and so on.  SOME returns the first \n"
+"   non-() value encountered, or () if the end of a sequence is reached."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then\n"
+"   possibly to those with index 1, and so on.  EVERY returns () as soon\n"
+"   as any invocation of PREDICATE returns (), or T if every invocation\n"
+"   is non-()."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then \n"
+"   possibly to those with index 1, and so on.  NOTANY returns () as soon\n"
+"   as any invocation of PREDICATE returns a non-() value, or T if the end\n"
+"   of a sequence is reached."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"PREDICATE is applied to the elements with index 0 of the sequences, then\n"
+"   possibly to those with index 1, and so on.  NOTEVERY returns T as soon\n"
+"   as any invocation of PREDICATE returns (), or () if every invocation\n"
+"   is non-()."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The specified Sequence is ``reduced'' using the given Function.\n"
+"  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Coerces the Object to an object of type Output-Type-Spec."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "~S can't be converted to type ~S."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the specified Item from\n"
+"  the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the elements satisfying\n"
+"  the specified Predicate from the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the elements not\n"
+"  satisfying the specified Predicate from the given Sequence."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
+"   EQL) with ITEM removed."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is non-null are removed"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is null are removed"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The elements of Sequence are compared pairwise, and if any two match,\n"
+"   the one occuring earlier is discarded, unless FROM-END is true, in\n"
+"   which case the one later in the sequence is discarded.  The resulting\n"
+"   sequence is returned.\n"
+"\n"
+"   The :TEST-NOT argument is deprecated."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The elements of Sequence are examined, and if any two match, one is\n"
+"   discarded.  The resulting sequence, which may be formed by destroying "
+"the\n"
+"   given sequence, is returned.\n"
+"\n"
+"   The :TEST-NOT argument is deprecated."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements equal to Old are replaced with New.  See manual\n"
+"  for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements satisfying the Test are replaced with New.  See\n"
+"  manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements not satisfying the Test are replaced with New.\n"
+"  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"  except that all elements equal to Old are replaced with New.  The "
+"Sequence\n"
+"  may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"   except that all elements satisfying the Test are replaced with New.  The\n"
+"   Sequence may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same kind as Sequence with the same elements\n"
+"   except that all elements not satisfying the Test are replaced with New.\n"
+"   The Sequence may be destroyed.  See manual for details."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the zero-origin index of the first element in SEQUENCE\n"
+"   satisfying the test (default is EQL) with the given ITEM"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the zero-origin index of the first element satisfying test(el)"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the zero-origin index of the first element not satisfying test(el)"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the first element in SEQUENCE satisfying the test (default\n"
+"   is EQL) with the given ITEM"
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE satisfying the test."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE not satisfying the test."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
+"   which defaults to EQL."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ":TEST and :TEST-NOT are both present."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"The specified subsequences of Sequence1 and Sequence2 are compared\n"
+"   element-wise.  If they are of equal length and match in every element, "
+"the\n"
+"   result is NIL.  Otherwise, the result is a non-negative integer, the "
+"index\n"
+"   within Sequence1 of the leftmost position at which they fail to match; "
+"or,\n"
+"   if one is shorter than and a matching prefix of the other, the index "
+"within\n"
+"   Sequence1 beyond the last position tested is returned.  If a non-Nil\n"
+"   :From-End keyword argument is given, then one plus the index of the\n"
+"   rightmost position in which the sequences differ is returned."
+msgstr ""
+
+#: target:code/seq.lisp
+msgid ""
+"A search is conducted using EQL for the first subsequence of sequence2 \n"
+"   which element-wise matches sequence1.  If there is such a subsequence "
+"in \n"
+"   sequence2, the index of the its leftmost element is returned; \n"
+"   otherwise () is returned."
+msgstr ""
+
 #: target:code/mipsstrops.lisp
 msgid ""
 "Compares the substrings specified by String1 and String2 and returns\n"
@@ -5553,6 +5887,116 @@
 msgid "There's junk in this string: ~S."
 msgstr ""
 
+#: target:code/sharpm.lisp
+msgid "Numeric argument ignored in #~D~A."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Unrecognized character name: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Ill-formed vector: #~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Vector longer than specified length: #~S~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Escape character appeared after #*"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "You have to give a little bit for non-zero #* bit-vectors."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal element given for bit-vector: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Bit vector is longer than specified length #~A*~A"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Symbol following #: contains a package marker: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "If false, then the #. read macro is disabled."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Attempt to read #. while *READ-EVAL* is bound to NIL."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Radix missing in #R."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal radix for #R: ~D."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "#~A (base ~D) value is not a rational: ~S."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid ""
+"#~DA axis ~D is empty, but axis ~\n"
+"\t\t\t\t          ~D is non-empty."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Structure type is not a symbol: ~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "~S is not a defined structure type."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "The ~S structure does not have a default constructor."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Missing label for #=."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Multiply defined label: #~D="
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Have to tag something more than just #~D#."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Missing label for ##."
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "reference to undefined label #~D#"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal complex number format: #C~S"
+msgstr ""
+
+#: target:code/sharpm.lisp
+msgid "Illegal sharp character ~S"
+msgstr ""
+
 #: target:code/backq.lisp
 msgid "How deep we are into backquotes"
 msgstr ""
@@ -5594,6 +6038,105 @@
 msgid "### illegal dotted backquote form ###"
 msgstr ""
 
+#: target:code/serve-event.lisp
+msgid ""
+"Make an object set for use by a RPC/xevent server.  Name is for\n"
+"      descriptive purposes only."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "You lose, object: ~S"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Return the handler function in Object-Set for the operation specified by\n"
+"   Message-ID, if none, NIL is returned."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Sets the handler function for an object set operation."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "List of all the currently active handlers for file descriptors"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n"
+"  either :INPUT or :OUTPUT. The value returned should be passed to\n"
+"  SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Removes HANDLER from the list of active handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Remove any handers refering to FD. This should only be used when attempting\n"
+"  to recover from a detected inconsistency."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n"
+"   DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor "
+"to\n"
+"   use, and FUNCTION is the function to call whenever FD is usable."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Timeout is not a real number or NIL: ~S"
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n"
+"  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before "
+"giving\n"
+"  up."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"This is an alist mapping displays to user functions to be called when\n"
+"   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify\n"
+"   this directly; use EXT:ENABLE-CLX-EVENT-HANDLING.  A given display\n"
+"   should be represented here only once."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If\n"
+"  SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with "
+"timeout\n"
+"  0 until all events have been served.  SERVE-ALL-EVENTS returns T if\n"
+"  SERVE-EVENT did something and NIL if not."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid ""
+"Receive on all ports and Xevents and dispatch to the appropriate handler\n"
+"  function.  If timeout is specified, server will wait the specified time "
+"(in\n"
+"  seconds) and then return, otherwise it will wait until something happens.\n"
+"  Server returns T if something happened and NIL otherwise."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Event-listen was true, but handler didn't handle: ~%~S"
+msgstr ""
+
 #: target:code/extfmts.lisp
 msgid "Attempting unimplemented external-format I/O."
 msgstr ""
@@ -6720,6 +7263,93 @@
 msgid "Returns all of the elements of List, in order, as values."
 msgstr ""
 
+#: target:code/signal.lisp
+msgid "A list of unix signal structures."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "~S is not a valid signal name or number."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return the name of the signal as a string.  Signal should be a valid\n"
+"  signal number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return a string describing signal.  Signal should be a valid signal\n"
+"  number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Return the number of the given signal.  Signal should be a valid\n"
+"  signal number or a keyword of the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Returns a mask given a set of signals."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-kill sends the signal signal to the process with process \n"
+"   id pid.  Signal should be a valid signal number or a keyword of the\n"
+"   standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-killpg sends the signal signal to the all the process in process\n"
+"  group PGRP.  Signal should be a valid signal number or a keyword of\n"
+"  the standard UNIX signal name."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigblock cause the signals specified in mask to be\n"
+"   added to the set of signals currently being blocked from\n"
+"   delivery.  The macro sigmask is provided to create masks."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigpause sets the set of masked signals to its argument\n"
+"   and then waits for a signal to arrive, restoring the previous\n"
+"   mask upon its return."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Unix-sigsetmask sets the current set of masked signals (those\n"
+"   being blocked from delivery) to the argument.  The macro sigmask\n"
+"   can be used to create the mask.  The previous value of the signal\n"
+"   mask is returned."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Enable all the default signals that Lisp knows how to deal with."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid "Execute BODY in a context impervious to interrupts."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"Allow interrupts while executing BODY.  As interrupts are normally allowed,\n"
+"  this is only useful inside a WITHOUT-INTERRUPTS."
+msgstr ""
+
+#: target:code/signal.lisp
+msgid ""
+"With-enabled-interrupts ({(interrupt function)}*) {form}*\n"
+"   Establish function as a handler for the Unix signal interrupt which\n"
+"   should be a number between 1 and 31 inclusive."
+msgstr ""
+
 #: target:code/interr.lisp
 msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
 msgstr ""
@@ -7714,6 +8344,22 @@
 "   functions."
 msgstr ""
 
+#: target:code/sort.lisp
+msgid ""
+"Destructively sorts sequence.  Predicate should returns non-Nil if\n"
+"   Arg1 is to precede Arg2."
+msgstr ""
+
+#: target:code/sort.lisp
+msgid "~S is not a sequence."
+msgstr ""
+
+#: target:code/sort.lisp
+msgid ""
+"The sequences Sequence1 and Sequence2 are destructively merged into\n"
+"   a sequence of type Result-Type using the Predicate to order the elements."
+msgstr ""
+
 #: target:code/final.lisp
 msgid ""
 "Arrange for FUNCTION to be called when there are no more references to\n"
@@ -8947,6 +9593,10 @@
 "  process then NIL is return immediately without processing the body."
 msgstr ""
 
+#: target:code/setf-funs.lisp
+msgid "Hairy setf expander for function ~S."
+msgstr ""
+
 #: target:code/defstruct.lisp
 msgid ""
 "Controls compiling DEFSTRUCT :print-function and :print-method\n"



More information about the cmucl-commit mailing list