diff --git a/bootfiles/20a/boot-2010-02-1.lisp b/bootfiles/20a/boot-2010-02-1.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..8a7e8514a28e248801ae88e2b8af87e2635331a0
--- /dev/null
+++ b/bootfiles/20a/boot-2010-02-1.lisp
@@ -0,0 +1,114 @@
+;; Bootstrap file for adding support for localization.
+
+(setf lisp::*enable-package-locked-errors* nil)
+
+(defvar lisp::*environment-list-initialized* nil)
+
+(defpackage "INTL"
+  (:use "COMMON-LISP")
+  (:export "SETLOCALE" "TEXTDOMAIN" "GETTEXT" "DGETTEXT" "NGETTEXT" "DNGETTEXT"
+           "*TRANSLATABLE-DUMP-STREAM*" "READ-TRANSLATABLE-STRING"
+	   "*LOCALE-DIRECTORIES*"))
+
+(with-open-file (s "target:code/intl.lisp")
+  (compile-from-stream s))
+
+(intl::install)
+
+
+(in-package "C")
+;; The textdomain for the documentation
+(define-info-type function textdomain (or string null) nil)
+(define-info-type variable textdomain (or string null) nil)
+(define-info-type type textdomain (or string null) nil)
+(define-info-type typed-structure textdomain (or string null) nil)
+(define-info-type setf textdomain (or string null) nil)
+
+;;;
+;;; Like DEFSTRUCT, but silently clobber old definitions.
+;;;
+(defmacro defstruct! (name &rest stuff)
+  `(handler-bind ((error (lambda (c)
+                           (declare (ignore c))
+                           (invoke-restart 'kernel::clobber-it))))
+     (defstruct ,name ,@stuff)))
+
+
+(defstruct! (template
+	    (:print-function %print-template)
+	    (:pure t))
+  ;;
+  ;; The symbol name of this VOP.  This is used when printing the VOP and is
+  ;; also used to provide a handle for definition and translation.
+  (name nil :type symbol)
+  ;;
+  ;; A Function-Type describing the arg/result type restrictions.  We compute
+  ;; this from the Primitive-Type restrictions to make life easier for IR1
+  ;; phases that need to anticipate LTN's template selection.
+  (type (required-argument) :type function-type)
+  ;;
+  ;; Lists of restrictions on the argument and result types.  A restriction may
+  ;; take several forms:
+  ;; -- The restriction * is no restriction at all.
+  ;; -- A restriction (:OR <primitive-type>*) means that the operand must have
+  ;;    one of the specified primitive types.
+  ;; -- A restriction (:CONSTANT <predicate> <type-spec>) means that the
+  ;;    argument (not a result) must be a compile-time constant that satisfies
+  ;;    the specified predicate function.  In this case, the constant value
+  ;;    will be passed as an info argument rather than as a normal argument.
+  ;;    <type-spec> is a Lisp type specifier for the type tested by the
+  ;;    predicate, used when we want to represent the type constraint as a Lisp
+  ;;    function type. 
+  ;;
+  ;; If Result-Types is :Conditional, then this is an IF-xxx style conditional
+  ;; that yeilds its result as a control transfer.  The emit function takes two
+  ;; info arguments: the target label and a boolean flag indicating whether to
+  ;; negate the sense of the test.
+  (arg-types nil :type list)
+  (result-types nil :type (or list (member :conditional)))
+  ;;
+  ;; The primitive type restriction applied to each extra argument or result
+  ;; following the fixed operands.  If NIL, no extra args/results are allowed.
+  ;; Otherwise, either * or a (:OR ...) list as described for the
+  ;; {ARG,RESULT}-TYPES.
+  (more-args-type nil :type (or (member nil *) cons))
+  (more-results-type nil :type (or (member nil *) cons))
+  ;;
+  ;; If true, this is a function that is called with no arguments to see if
+  ;; this template can be emitted.  This is used to conditionally compile for
+  ;; different target hardware configuarations (e.g. FP hardware.)
+  (guard nil :type (or function null))
+  ;;
+  ;; The policy under which this template is the best translation.  Note that
+  ;; LTN might use this template under other policies if it can't figure our
+  ;; anything better to do.
+  (policy (required-argument) :type policies)
+  ;;
+  ;; The base cost for this template, given optimistic assumptions such as no
+  ;; operand loading, etc.
+  (cost (required-argument) :type index)
+  ;;
+  ;; If true, then a short noun-like phrase describing what this VOP "does",
+  ;; i.e. the implementation strategy.  This is for use in efficiency notes.
+  (note nil :type (or string null))
+  ;;
+  ;; The number of trailing arguments to VOP or %Primitive that we bundle into
+  ;; a list and pass into the emit function.  This provides a way to pass
+  ;; uninterpreted stuff directly to the code generator.
+  (info-arg-count 0 :type index)
+  ;;
+  ;; A function that emits the VOPs for this template.  Arguments:
+  ;;  1] Node for source context.
+  ;;  2] IR2-Block that we place the VOP in.
+  ;;  3] This structure.
+  ;;  4] Head of argument TN-Ref list.
+  ;;  5] Head of result TN-Ref list.
+  ;;  6] If Info-Arg-Count is non-zero, then a list of the magic arguments.
+  ;;
+  ;; Two values are returned: the first and last VOP emitted.  This vop
+  ;; sequence must be linked into the VOP Next/Prev chain for the block.  At
+  ;; least one VOP is always emitted.
+  (emit-function (required-argument) :type function)
+  ;;
+  ;; The text domain for the note.
+  (note-domain intl::*default-domain* :type (or string null)))
\ No newline at end of file
diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index bfd853c43433f9a2b60fc0e439338768bf550736..23cc672de19ac2f08f4beb2eef1e978f6ba3365c 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.66 2009/06/11 16:03:56 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.67 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 (use-package "EXT")
 (use-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (export '(alien * array struct union enum function integer signed unsigned
 	  boolean values single-float double-float long-float
 	  system-area-pointer def-alien-type def-alien-variable sap-alien
@@ -184,7 +186,7 @@
 
 (defun alien-type-class-or-lose (name)
   (or (gethash name *alien-type-classes*)
-      (error "No alien type class ~S" name)))
+      (error _"No alien type class ~S" name)))
 
 (defun create-alien-type-class-if-necessary (name include)
   (let ((old (gethash name *alien-type-classes*))
@@ -210,7 +212,7 @@
 
 (defun method-slot (method)
   (cdr (or (assoc method method-slot-alist)
-	   (error "No method ~S" method))))
+	   (error _"No method ~S" method))))
 
 ); eval-when
 
@@ -273,7 +275,7 @@
       `(funcall (do ((class (alien-type-class-or-lose (alien-type-class ,type))
 			    (alien-type-class-include class)))
 		    ((null class)
-		     (error "Method ~S not defined for ~S"
+		     (error _"Method ~S not defined for ~S"
 			    ',method (alien-type-class ,type)))
 		  (let ((fn (,slot class)))
 		    (when fn
@@ -321,7 +323,7 @@
 ;;; PARSE-ALIEN-TYPE -- public
 ;;;
 (defun parse-alien-type (type)
-  "Parse the list structure TYPE as an alien type specifier and return
+  _N"Parse the list structure TYPE as an alien type specifier and return
    the resultant alien-type structure."
   (if (boundp '*new-auxiliary-types*)
       (%parse-alien-type type)
@@ -332,19 +334,19 @@
   (if (consp type)
       (let ((translator (info alien-type translator (car type))))
 	(unless translator
-	  (error "Unknown alien type: ~S" type))
+	  (error _"Unknown alien type: ~S" type))
 	(funcall translator type))
       (case (info alien-type kind type)
 	(:primitive
 	 (let ((translator (info alien-type translator type)))
 	   (unless translator
-	     (error "No translator for primitive alien type ~S?" type))
+	     (error _"No translator for primitive alien type ~S?" type))
 	   (funcall translator (list type))))
 	(:defined
 	 (or (info alien-type definition type)
-	     (error "Definition missing for alien type ~S?" type)))
+	     (error _"Definition missing for alien type ~S?" type)))
 	(:unknown
-	 (error "Unknown alien type: ~S" type)))))
+	 (error _"Unknown alien type: ~S" type)))))
 
 (defun auxiliary-alien-type (kind name)
   (flet ((aux-defn-matches (x)
@@ -366,9 +368,9 @@
   (flet ((aux-defn-matches (x)
 	   (and (eq (first x) kind) (eq (second x) name))))
     (when (find-if #'aux-defn-matches *new-auxiliary-types*)
-      (error "Attempt to multiple define ~A ~S." kind name))
+      (error _"Attempt to multiple define ~A ~S." kind name))
     (when (find-if #'aux-defn-matches *auxiliary-type-definitions*)
-      (error "Attempt to shadow definition of ~A ~S." kind name)))
+      (error _"Attempt to shadow definition of ~A ~S." kind name)))
   (push (list kind name defn) *new-auxiliary-types*)
   defn)
 
@@ -385,7 +387,7 @@
 	       (info alien-type union name))
 	      (:enum
 	       (info alien-type enum name)))
-	(error "Attempt to shadow definition of ~A ~S." kind name)))))
+	(error _"Attempt to shadow definition of ~A ~S." kind name)))))
 
 ;;; *record-type-already-unparsed* -- internal
 ;;;
@@ -398,7 +400,7 @@
 ;;; UNPARSE-ALIEN-TYPE -- public.
 ;;; 
 (defun unparse-alien-type (type)
-  "Convert the alien-type structure TYPE back into a list specification of
+  _N"Convert the alien-type structure TYPE back into a list specification of
    the type."
   (declare (type alien-type type))
   (let ((*record-types-already-unparsed* nil))
@@ -445,7 +447,7 @@
 
 
 (defmacro def-alien-type (name type)
-  "Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for
+  _N"Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for
    STRUCT and UNION types, in which case the name is taken from the type
    specifier."
   (with-auxiliary-alien-types
@@ -462,7 +464,7 @@
       (macrolet ((frob (kind)
 		   `(let ((old (info alien-type ,kind name)))
 		      (unless (or (null old) (alien-type-= old defn))
-			(warn "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
+			(warn _"Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
 			      kind name defn old))
 		      (setf (info alien-type ,kind name) defn))))
 	(ecase kind
@@ -473,11 +475,11 @@
 (defun %def-alien-type (name new)
   (ecase (info alien-type kind name)
     (:primitive
-     (error "~S is a built-in alien type." name))
+     (error _"~S is a built-in alien type." name))
     (:defined
      (let ((old (info alien-type definition name)))
        (unless (or (null old) (alien-type-= new old))
-	 (warn "Redefining ~S to be:~%  ~S,~%was~%  ~S" name
+	 (warn _"Redefining ~S to be:~%  ~S,~%was~%  ~S" name
 	       (unparse-alien-type new) (unparse-alien-type old)))))
     (:unknown))
   (setf (info alien-type definition name) new)
@@ -489,14 +491,14 @@
 ;;;; Interfaces to the different methods
 
 (defun alien-type-= (type1 type2)
-  "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
+  _N"Return T iff TYPE1 and TYPE2 describe equivalent alien types."
   (or (eq type1 type2)
       (and (eq (alien-type-class type1)
 	       (alien-type-class type2))
 	   (invoke-alien-type-method :type= type1 type2))))
 
 (defun alien-subtype-p (type1 type2)
-  "Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the
+  _N"Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the
    only supported subtype relationships are that any pointer type is a
    subtype of (* t), and any array type's first dimension will match 
    (array <eltype> nil ...).  Otherwise, the two types have to be
@@ -505,7 +507,7 @@
       (invoke-alien-type-method :subtypep type1 type2)))
 
 (defun alien-typep (object type)
-  "Return T iff OBJECT is an alien of type TYPE."
+  _N"Return T iff OBJECT is an alien of type TYPE."
   (let ((lisp-rep-type (compute-lisp-rep-type type)))
     (if lisp-rep-type
 	(typep object lisp-rep-type)
@@ -586,27 +588,27 @@
 
 (def-alien-type-method (root :naturalize-gen) (type alien)
   (declare (ignore alien))
-  (error "Cannot represent ~S typed aliens." type))
+  (error _"Cannot represent ~S typed aliens." type))
 
 (def-alien-type-method (root :deport-gen) (type object)
   (declare (ignore object))
-  (error "Cannot represent ~S typed aliens." type))
+  (error _"Cannot represent ~S typed aliens." type))
 
 (def-alien-type-method (root :extract-gen) (type sap offset)
   (declare (ignore sap offset))
-  (error "Cannot represent ~S typed aliens." type))
+  (error _"Cannot represent ~S typed aliens." type))
 
 (def-alien-type-method (root :deposit-gen) (type sap offset value)
   `(setf ,(invoke-alien-type-method :extract-gen type sap offset) ,value))
 
 (def-alien-type-method (root :arg-tn) (type state)
   (declare (ignore state))
-  (error "Cannot pass aliens of type ~S as arguments to call-out"
+  (error _"Cannot pass aliens of type ~S as arguments to call-out"
 	 (unparse-alien-type type)))
 
 (def-alien-type-method (root :result-tn) (type state)
   (declare (ignore state))
-  (error "Cannot return aliens of type ~S from call-out"
+  (error _"Cannot return aliens of type ~S from call-out"
 	 (unparse-alien-type type)))
 
 
@@ -683,7 +685,7 @@
 	    (64 'sap-ref-64)))))
     (if ref-fun
 	`(,ref-fun ,sap (/ ,offset vm:byte-bits))
-	(error "Cannot extract ~D bit integers."
+	(error _"Cannot extract ~D bit integers."
 	       (alien-integer-type-bits type)))))
 
 
@@ -729,7 +731,7 @@
 		 (auxiliary-alien-type :enum name)
 	       (when old-p
 		 (unless (alien-type-= result old)
-		   (warn "Redefining alien enum ~S" name)))
+		   (warn _"Redefining alien enum ~S" name)))
 	       ;; I (rtoy) am not 100% sure about this.  But compare
 	       ;; what this does with what PARSE-ALIEN-RECORD-TYPE
 	       ;; does.  So, if we've seen this type before and it's
@@ -752,14 +754,14 @@
 	     (result found)
 	     (auxiliary-alien-type :enum name)
 	   (unless found
-	     (error "Unknown enum type: ~S" name))
+	     (error _"Unknown enum type: ~S" name))
 	   result))
 	(t
-	 (error "Empty enum type: ~S" type))))
+	 (error _"Empty enum type: ~S" type))))
 
 (defun parse-enum (name elements)
   (when (null elements)
-    (error "An enumeration must contain at least one element."))
+    (error _"An enumeration must contain at least one element."))
   (let ((min nil)
 	(max nil)
 	(from-alist ())
@@ -773,15 +775,15 @@
 	      (values el (1+ prev)))
 	(setf prev val)
 	(unless (keywordp sym)
-	  (error "Enumeration element ~S is not a keyword." sym))
+	  (error _"Enumeration element ~S is not a keyword." sym))
 	(unless (integerp val)
-	  (error "Element value ~S is not an integer." val))
+	  (error _"Element value ~S is not an integer." val))
 	(unless (and max (> max val)) (setq max val))
 	(unless (and min (< min val)) (setq min val))
 	(when (rassoc val from-alist)
-	  (error "Element value ~S used more than once." val))
+	  (error _"Element value ~S used more than once." val))
 	(when (assoc sym from-alist :test #'eq)
-	  (error "Enumeration element ~S used more than once." sym))
+	  (error _"Enumeration element ~S used more than once." sym))
 	(push (cons sym val) from-alist)))
     (let* ((signed (minusp min))
 	   (min-bits (if signed
@@ -789,7 +791,7 @@
 				  (integer-length max)))
 			 (integer-length max))))
       (when (> min-bits 32)
-	(error "Can't represent enums needing more than 32 bits."))
+	(error _"Can't represent enums needing more than 32 bits."))
       (setf from-alist (sort from-alist #'< :key #'cdr))
       (cond
        ;;
@@ -1020,7 +1022,7 @@
 (def-alien-type-method (mem-block :deposit-gen) (type sap offset value)
   (let ((bits (alien-mem-block-type-bits type)))
     (unless bits
-      (error "Cannot deposit aliens of type ~S (unknown size)." type))
+      (error _"Cannot deposit aliens of type ~S (unknown size)." type))
     `(kernel:system-area-copy ,value 0 ,sap ,offset ',bits)))
 
 
@@ -1033,12 +1035,12 @@
 (def-alien-type-translator array (ele-type &rest dims)
   (when dims
     (unless (typep (first dims) '(or kernel:index null))
-      (error "First dimension is not a non-negative fixnum or NIL: ~S"
+      (error _"First dimension is not a non-negative fixnum or NIL: ~S"
 	     (first dims)))
     (let ((loser (find-if-not #'(lambda (x) (typep x 'kernel:index))
 			      (rest dims))))
       (when loser
-	(error "Dimension is not a non-negative fixnum: ~S" loser))))
+	(error _"Dimension is not a non-negative fixnum: ~S" loser))))
 
   (let ((type (parse-alien-type ele-type)))
     (make-alien-array-type
@@ -1147,10 +1149,10 @@
 					 :name var)))
 	  (push parsed-field parsed-fields)
 	  (when (null bits)
-	    (error "Unknown size: ~S"
+	    (error _"Unknown size: ~S"
 		   (unparse-alien-type field-type)))
 	  (when (null alignment)
-	    (error "Unknown alignment: ~S"
+	    (error _"Unknown alignment: ~S"
 		   (unparse-alien-type field-type)))
 	  (setf overall-alignment (max overall-alignment alignment))
 	  (ecase (alien-record-type-kind result)
@@ -1197,10 +1199,10 @@
 		     (alien-record-field-type field2))))
 
 (defvar *match-history* nil
-  "A hash table used to detect cycles while comparing record types.")
+  _N"A hash table used to detect cycles while comparing record types.")
 
 (defun in-match-history-or (type1 type2 alternative)
-  "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.
+  _N"Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.
 If so return true; otherwise call ALTERNATIVE."
   (cond (*match-history*
 	 (let ((list (gethash type1 *match-history*)))
@@ -1268,7 +1270,7 @@ If so return true; otherwise call ALTERNATIVE."
 
 (def-alien-type-translator values (&rest values)
   (unless *values-type-okay*
-    (error "Cannot use values types here."))
+    (error _"Cannot use values types here."))
   (let ((*values-type-okay* nil))
     (make-alien-values-type
      :values (mapcar #'parse-alien-type values))))
@@ -1366,13 +1368,13 @@ If so return true; otherwise call ALTERNATIVE."
      (values name (guess-alien-name-from-lisp-name name)))
     (list
      (unless (= (length name) 2)
-       (error "Badly formed alien name."))
+       (error _"Badly formed alien name."))
      (values (cadr name) (car name)))))
 
 ;;; DEF-ALIEN-VARIABLE -- public
 ;;;
 (defmacro def-alien-variable (name type)
-  "Define NAME as an external alien variable of type TYPE.  NAME should be
+  _N"Define NAME as an external alien variable of type TYPE.  NAME should be
    a list of a string holding the alien name and a symbol to use as the Lisp
    name.  If NAME is just a symbol or string, then the other name is guessed
    from the one supplied."
@@ -1404,7 +1406,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;; EXTERN-ALIEN -- public.
 ;;; 
 (defmacro extern-alien (name type)
-  "Access the alien variable named NAME, assuming it is of type TYPE.  This
+  _N"Access the alien variable named NAME, assuming it is of type TYPE.  This
    is SETFable."
   (let* ((alien-name (etypecase name
 		       (symbol (guess-alien-name-from-lisp-name name))
@@ -1421,7 +1423,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;; WITH-ALIEN -- public.
 ;;;
 (defmacro with-alien (bindings &body body)
-  "Establish some local alien variables.  Each BINDING is of the form:
+  _N"Establish some local alien variables.  Each BINDING is of the form:
      VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]
    ALLOCATION should be one of:
      :LOCAL (the default)
@@ -1520,17 +1522,17 @@ If so return true; otherwise call ALTERNATIVE."
 
 (declaim (inline null-alien))
 (defun null-alien (x)
-  "Return true if X (which must be an Alien pointer) is null, false otherwise."
+  _N"Return true if X (which must be an Alien pointer) is null, false otherwise."
   (zerop (sap-int (alien-sap x))))
 
   
 (defmacro sap-alien (sap type)
-  "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not
+  _N"Convert the System-Area-Pointer SAP to an Alien of the specified Type (not
    evaluated.)  Type must be pointer-like."
   (let ((alien-type (parse-alien-type type)))
     (if (eq (compute-alien-rep-type alien-type) 'system-area-pointer)
 	`(%sap-alien ,sap ',alien-type)
-	(error "Cannot make aliens of type ~S out of SAPs" type))))
+	(error _"Cannot make aliens of type ~S out of SAPs" type))))
 
 (defun %sap-alien (sap type)
   (declare (type system-area-pointer sap)
@@ -1538,7 +1540,7 @@ If so return true; otherwise call ALTERNATIVE."
   (make-alien-value :sap sap :type type))
 
 (defun alien-sap (alien)
-  "Return a System-Area-Pointer pointing to Alien's data."
+  _N"Return a System-Area-Pointer pointing to Alien's data."
   (declare (type alien-value alien))
   (alien-value-sap alien))
 
@@ -1549,7 +1551,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;; MAKE-ALIEN -- public.
 ;;; 
 (defmacro make-alien (type &optional size)
-  "Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE
+  _N"Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE
    is supplied, how it is interpreted depends on TYPE.  If TYPE is an array
    type, SIZE is used as the first dimension for the allocated array.  If TYPE
    is not an array, then SIZE is the number of elements to allocate.  The
@@ -1564,7 +1566,7 @@ If so return true; otherwise call ALTERNATIVE."
 	       (size
 		(unless dims
 		  (error
-		   "Cannot override the size of zero-dimensional arrays."))
+		   _"Cannot override the size of zero-dimensional arrays."))
 		(when (constantp size)
 		  (setf alien-type (copy-alien-array-type alien-type))
 		  (setf (alien-array-type-dimensions alien-type)
@@ -1579,9 +1581,9 @@ If so return true; otherwise call ALTERNATIVE."
       (let ((bits (alien-type-bits element-type))
 	    (alignment (alien-type-alignment element-type)))
 	(unless bits
-	  (error "Size of ~S unknown." (unparse-alien-type element-type)))
+	  (error _"Size of ~S unknown." (unparse-alien-type element-type)))
 	(unless alignment
-	  (error "Alignment of ~S unknown." (unparse-alien-type element-type)))
+	  (error _"Alignment of ~S unknown." (unparse-alien-type element-type)))
 	`(%sap-alien (%make-alien (* ,(align-offset bits alignment)
 				     ,size-expr))
 		     ',(make-alien-pointer-type :to alien-type))))))
@@ -1601,7 +1603,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;;
 (declaim (inline free-alien))
 (defun free-alien (alien)
-  "Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated
+  _N"Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated
    by MAKE-ALIEN or ``malloc''."
   (alien-funcall (extern-alien "free" (function (values) system-area-pointer))
 		 (alien-sap alien))
@@ -1619,7 +1621,7 @@ If so return true; otherwise call ALTERNATIVE."
 	   (type symbol slot))
   (or (find slot (alien-record-type-fields type)
 	    :key #'alien-record-field-name)
-      (error "No slot named ~S in ~S" slot type)))
+      (error _"No slot named ~S in ~S" slot type)))
 
 ;;; SLOT -- public
 ;;;
@@ -1627,7 +1629,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;; alien is actually a pointer, then deref it first.
 ;;; 
 (defun slot (alien slot)
-  "Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
+  _N"Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
   (declare (type alien-value alien)
 	   (type symbol slot)
 	   (optimize (inhibit-warnings 3)))
@@ -1699,7 +1701,7 @@ If so return true; otherwise call ALTERNATIVE."
     (etypecase type
       (alien-pointer-type
        (when (cdr indices)
-	 (error "Too many indices when derefing ~S: ~D"
+	 (error _"Too many indices when derefing ~S: ~D"
 		type
 		(length indices)))
        (let ((element-type (alien-pointer-type-to type)))
@@ -1711,7 +1713,7 @@ If so return true; otherwise call ALTERNATIVE."
 		     0))))
       (alien-array-type
        (unless (= (length indices) (length (alien-array-type-dimensions type)))
-	 (error "Incorrect number of indices when derefing ~S: ~D"
+	 (error _"Incorrect number of indices when derefing ~S: ~D"
 		type (length indices)))
        (labels ((frob (dims indices offset)
 		  (if (null dims)
@@ -1733,7 +1735,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;; Dereference the alien and return the results.
 ;;; 
 (defun deref (alien &rest indices)
-  "De-reference an Alien pointer or array.  If an array, the indices are used
+  _N"De-reference an Alien pointer or array.  If an array, the indices are used
    as the indices of the array element to access.  If a pointer, one index can
    optionally be specified, giving the equivalent of C pointer arithmetic."
   (declare (type alien-value alien)
@@ -1833,7 +1835,7 @@ If so return true; otherwise call ALTERNATIVE."
 	(info (if (and (consp info)
 		       (eq (car info) 'quote))
 		  (second info)
-		  (error "Something is wrong; local-alien-info not found: ~S"
+		  (error _"Something is wrong; local-alien-info not found: ~S"
 			 whole))))
     (values nil
 	    nil
@@ -1852,7 +1854,7 @@ If so return true; otherwise call ALTERNATIVE."
 (defun %local-alien-addr (info alien)
   (declare (type local-alien-info info))
   (unless (local-alien-info-force-to-memory-p info)
-    (error "~S isn't forced to memory.  Something went wrong." alien))
+    (error _"~S isn't forced to memory.  Something went wrong." alien))
   alien)
 
 (defun dispose-local-alien (info alien)
@@ -1864,7 +1866,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;;; The ADDR macro.
 
 (defmacro addr (expr &environment env)
-  "Return an Alien pointer to the data addressed by Expr, which must be a call
+  _N"Return an Alien pointer to the data addressed by Expr, which must be a call
    to SLOT or DEREF, or a reference to an Alien variable."
   (let ((form (macroexpand expr env)))
     (or (typecase form
@@ -1883,7 +1885,7 @@ If so return true; otherwise call ALTERNATIVE."
 			    (eq (car info-arg) 'quote)
 			    (second info-arg)))))
 		(unless (local-alien-info-p info)
-		  (error "Something is wrong, local-alien-info not found: ~S"
+		  (error _"Something is wrong, local-alien-info not found: ~S"
 			 form))
 		(setf (local-alien-info-force-to-memory-p info) t))
 	      (cons '%local-alien-addr (cdr form)))))
@@ -1891,13 +1893,13 @@ If so return true; otherwise call ALTERNATIVE."
 	   (let ((kind (info variable kind form)))
 	     (when (eq kind :alien)
 	       `(%heap-alien-addr ',(info variable alien-info form))))))
-	(error "~S is not a valid L-value" form))))
+	(error _"~S is not a valid L-value" form))))
 
 
 ;;;; The CAST macro.
 
 (defmacro cast (alien type)
-  "Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both types
+  _N"Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both types
    must be Alien array, pointer or function types."
   `(%cast ,alien ',(parse-alien-type type)))
 
@@ -1914,15 +1916,15 @@ If so return true; otherwise call ALTERNATIVE."
 		(alien-array-type-p alien-type)
 		(alien-function-type-p alien-type))
 	    (naturalize (alien-value-sap alien) target-type)
-	    (error "~S cannot be cast." alien)))
-      (error "Cannot cast to alien type ~S" (unparse-alien-type target-type))))
+	    (error _"~S cannot be cast." alien)))
+      (error _"Cannot cast to alien type ~S" (unparse-alien-type target-type))))
 
 
 
 ;;;; The ALIEN-SIZE macro.
 
 (defmacro alien-size (type &optional (units :bits))
-  "Return the size of the alien type TYPE.  UNITS specifies the units to
+  _N"Return the size of the alien type TYPE.  UNITS specifies the units to
    use and can be either :BITS, :BYTES, or :WORDS."
   (let* ((alien-type (parse-alien-type type))
 	 (bits (alien-type-bits alien-type)))
@@ -1932,7 +1934,7 @@ If so return true; otherwise call ALTERNATIVE."
 			   (:bits 1)
 			   (:bytes vm:byte-bits)
 			   (:words vm:word-bits))))
-	(error "Unknown size for alien type ~S."
+	(error _"Unknown size for alien type ~S."
 	       (unparse-alien-type alien-type)))))
 
 
@@ -1968,7 +1970,7 @@ If so return true; otherwise call ALTERNATIVE."
 ;;;; alien-funcall, def-alien-function
 
 (defun alien-funcall (alien &rest args)
-  "Call the foreign function ALIEN with the specified arguments.  ALIEN's
+  _N"Call the foreign function ALIEN with the specified arguments.  ALIEN's
    type specifies the argument and result types."
   (declare (type alien-value alien))
   (let ((type (alien-value-type alien)))
@@ -1978,7 +1980,7 @@ If so return true; otherwise call ALTERNATIVE."
       (alien-function-type
        (unless (= (length (alien-function-type-arg-types type))
 		  (length args))
-	 (error "Wrong number of arguments for ~S~%Expected ~D, got ~D."
+	 (error _"Wrong number of arguments for ~S~%Expected ~D, got ~D."
 		type
 		(length (alien-function-type-arg-types type))
 		(length args)))
@@ -1994,10 +1996,10 @@ If so return true; otherwise call ALTERNATIVE."
 	   (setf (alien-function-type-stub type) stub))
 	 (apply stub alien args)))
       (t
-       (error "~S is not an alien function." alien)))))
+       (error _"~S is not an alien function." alien)))))
 
 (defmacro def-alien-routine (name result-type &rest args)
-  "Def-Alien-Routine Name Result-Type
+  _N"Def-Alien-Routine Name Result-Type
                     {(Arg-Name Arg-Type [Style])}*
 
   Define a foreign interface function for the routine with the specified Name,
@@ -2041,12 +2043,12 @@ If so return true; otherwise call ALTERNATIVE."
 	    (docs arg)
 	    (destructuring-bind (name type &optional (style :in)) arg
 	      (unless (member style '(:in :copy :out :in-out))
-		(error "Bogus argument style ~S in ~S." style arg))
+		(error _"Bogus argument style ~S in ~S." style arg))
 	      (unless (eq style :out)
 		(lisp-args name))
 	      (when (and (member style '(:out :in-out))
 			 (typep (parse-alien-type type) 'alien-pointer-type))
-		(error "Can't use :out or :in-out on pointer-like type:~%  ~S"
+		(error _"Can't use :out or :in-out on pointer-like type:~%  ~S"
 		       type))
 	      (cond ((eq style :in)
 		     (arg-types type)
@@ -2155,7 +2157,7 @@ If so return true; otherwise call ALTERNATIVE."
 
 (defstruct (callback
 	     (:constructor make-callback (trampoline lisp-fn function-type)))
-  "A callback consists of a piece assembly code -- the trampoline --
+  _N"A callback consists of a piece assembly code -- the trampoline --
 and a lisp function.  We store the function type (including return
 type and arg types), so we can detect incompatible redefinitions."
   (trampoline (required-argument) :type system-area-pointer)
@@ -2165,7 +2167,7 @@ type and arg types), so we can detect incompatible redefinitions."
 (declaim (type (vector callback) *callbacks*))
 (defvar *callbacks* (make-array 10 :element-type 'callback
 				:fill-pointer 0 :adjustable t)
-  "Vector of all callbacks.")
+  _N"Vector of all callbacks.")
 
 (defun call-callback (index sp-fixnum ret-addr)
   (declare (type fixnum index sp-fixnum ret-addr)
@@ -2227,7 +2229,7 @@ type and arg types), so we can detect incompatible redefinitions."
 	   (len (* page-size (ceiling length page-size))))
       (unless (unix::unix-mprotect code-base len
 				   (logior unix:prot_exec unix:prot_read unix:prot_write))
-	(warn "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
+	(warn _"Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
 	      len length code-base code)))
     (new-assem:segment-map-output segment
       (lambda (sap length)
@@ -2240,7 +2242,7 @@ type and arg types), so we can detect incompatible redefinitions."
   (callback-trampoline (symbol-value symbol)))
 
 (defmacro callback (name)
-  "Return the trampoline pointer for the callback NAME."
+  _N"Return the trampoline pointer for the callback NAME."
   `(symbol-trampoline ',name))
 
 ;; Convenience macro to make it easy to call callbacks.
@@ -2269,11 +2271,11 @@ type and arg types), so we can detect incompatible redefinitions."
 			  (setf (callback-function-type callback) fn-type)
 			  callback)
 			 (t
-			  (let ((e (format nil "~
+			  (let ((e (format nil _"~
 Attempt to redefine callback with incompatible return type.
    Old type was: ~A 
     New type is: ~A" old-type fn-type))
-				(c (format nil "~
+				(c (format nil _"~
 Create new trampoline (old trampoline calls old lisp function).")))
 			    (cerror c e)
 			    (register-new-callback))))))
@@ -2288,7 +2290,7 @@ Create new trampoline (old trampoline calls old lisp function).")))
     (typecase type
       ((or integer$ single$ double$ pointer$ sap$)
        (ceiling (word-aligned-bits type) vm:byte-bits))
-      (t (error "Unsupported argument type: ~A" spec)))))
+      (t (error _"Unsupported argument type: ~A" spec)))))
 
 (defun parse-return-type (spec)
   (let ((*values-type-okay* t))
@@ -2309,10 +2311,10 @@ Create new trampoline (old trampoline calls old lisp function).")))
 	 (store `(unsigned ,(word-aligned-bits type))))
 	((or single$ double$ pointer$ sap$)
 	 (store spec))
-	(t (error "Unsupported return type: ~A" spec))))))
+	(t (error _"Unsupported return type: ~A" spec))))))
 
 (defmacro def-callback (name (return-type &rest arg-specs) &parse-body (body decls doc))
-  "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)
+  _N"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)
      {doc-string} {decls}* {FORM}*)
 
 Define a function which can be called by foreign code.  The pointer
diff --git a/code/alpha-vm.lisp b/code/alpha-vm.lisp
index c1660cf6d2167eb2aea4fb57af1082be5bd57250..251e5ddfd6b441839a395247e50d8dfa4a136293 100644
--- a/code/alpha-vm.lisp
+++ b/code/alpha-vm.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alpha-vm.lisp,v 1.5 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alpha-vm.lisp,v 1.6 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alpha-vm.lisp,v 1.5 2009/06/11 16:03:57 rtoy Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alpha-vm.lisp,v 1.6 2010/03/19 15:18:58 rtoy Exp $
 ;;;
 ;;; This file contains the Alpha specific runtime stuff.
 ;;;
@@ -19,6 +19,8 @@
 (use-package "C-CALL")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
@@ -60,11 +62,11 @@
 ;;;; MACHINE-TYPE and MACHINE-VERSION
 
 (defun machine-type ()
-  "Returns a string describing the type of the local machine."
+  _N"Returns a string describing the type of the local machine."
   "DECstation")
 
 (defun machine-version ()
-  "Returns a string describing the version of the local machine."
+  _N"Returns a string describing the version of the local machine."
   "DECstation")
 
 
@@ -73,7 +75,7 @@
 ;;;
 (defun fixup-code-object (code offset value kind)
   (unless (zerop (rem offset word-bytes))
-    (error "Unaligned instruction?  offset=#x~X." offset))
+    (error _"Unaligned instruction?  offset=#x~X." offset))
   (system:without-gcing
    (let ((sap (truly-the system-area-pointer
 			 (%primitive c::code-instructions code))))
@@ -225,7 +227,7 @@
 	      value
 	      (let ((value (system:alternate-get-global-address name)))
 		(when (zerop value)
-		  (error "Unknown foreign symbol: ~S" name))
+		  (error _"Unknown foreign symbol: ~S" name))
 		value))))))
 
 
diff --git a/code/amd64-vm.lisp b/code/amd64-vm.lisp
index 86a42b7bf0383efc9596b143c7105f4c8b7b5905..6ccb7d72173d7589596c3c3d7c340fa61e6b786f 100644
--- a/code/amd64-vm.lisp
+++ b/code/amd64-vm.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/amd64-vm.lisp,v 1.4 2009/10/10 03:00:03 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/amd64-vm.lisp,v 1.5 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,6 +24,8 @@
 (use-package "UNIX")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
@@ -172,13 +174,13 @@
 
 #-cross-compiler
 (defun machine-type ()
-  "Returns a string describing the type of the local machine."
+  _N"Returns a string describing the type of the local machine."
   "AMD x86-64")
 
 
 #-cross-compiler
 (defun machine-version ()
-  "Returns a string describing the version of the local machine."
+  _N"Returns a string describing the version of the local machine."
   "AMD x86-64")
 
 
@@ -228,7 +230,7 @@
 	    (ncode-words (kernel:code-header-ref code 1))
 	    (code-end-addr (+ code-start-addr (* ncode-words 8))))
        (unless (member kind '(:absolute :relative))
-	 (error "Unknown code-object-fixup kind ~s." kind))
+	 (error _"Unknown code-object-fixup kind ~s." kind))
        (ecase kind
 	 (:absolute
 	  ;; Word at sap + offset contains a value to be replaced by
@@ -468,7 +470,7 @@
 	      value
 	      (let ((value (system:alternate-get-global-address name)))
 		(when (zerop value)
-		  (error "Unknown foreign symbol: ~S" name))
+		  (error _"Unknown foreign symbol: ~S" name))
 		value))))))
 
 
@@ -537,36 +539,36 @@
 (defun %instance-set-conditional (object slot test-value new-value)
   (declare (type instance object)
 	   (type index slot))
-  "Atomically compare object's slot value to test-value and if EQ store
+  _N"Atomically compare object's slot value to test-value and if EQ store
    new-value in the slot. The original value of the slot is returned."
   (%instance-set-conditional object slot test-value new-value))
 
 (defun set-symbol-value-conditional (symbol test-value new-value)
   (declare (type symbol symbol))
-  "Atomically compare symbol's value to test-value and if EQ store
+  _N"Atomically compare symbol's value to test-value and if EQ store
   new-value in symbol's value slot and return the original value."
   (set-symbol-value-conditional symbol test-value new-value))
 
 (defun rplaca-conditional (cons test-value new-value)
   (declare (type cons cons))
-  "Atomically compare the car of CONS to test-value and if EQ store
+  _N"Atomically compare the car of CONS to test-value and if EQ store
   new-value its car and return the original value."
   (rplaca-conditional cons test-value new-value))
 
 (defun rplacd-conditional (cons test-value new-value)
   (declare (type cons cons))
-  "Atomically compare the cdr of CONS to test-value and if EQ store
+  _N"Atomically compare the cdr of CONS to test-value and if EQ store
   new-value its cdr and return the original value."
   (rplacd-conditional cons test-value new-value))
 
 (defun data-vector-set-conditional (vector index test-value new-value)
   (declare (type simple-vector vector))
-  "Atomically compare an element of vector to test-value and if EQ store
+  _N"Atomically compare an element of vector to test-value and if EQ store
   new-value the element and return the original value."
   (data-vector-set-conditional vector index test-value new-value))
 
 (defmacro atomic-push-symbol-value (val symbol)
-  "Thread safe push of val onto the list in the symbol global value."
+  _N"Thread safe push of val onto the list in the symbol global value."
   (ext:once-only ((n-val val))
     (let ((new-list (gensym))
 	  (old-list (gensym)))
@@ -580,7 +582,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-pop-symbol-value (symbol)
-  "Thread safe pop from the list in the symbol global value."
+  _N"Thread safe pop from the list in the symbol global value."
   (let ((new-list (gensym))
 	(old-list (gensym)))
     `(loop
@@ -592,7 +594,7 @@
 	  (return (car ,old-list)))))))
 
 (defmacro atomic-pusha (val cons)
-  "Thread safe push of val onto the list in the car of cons."
+  _N"Thread safe push of val onto the list in the car of cons."
   (once-only ((n-val val)
 	      (n-cons cons))
     (let ((new-list (gensym))
@@ -606,7 +608,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-pushd (val cons)
-  "Thread safe push of val onto the list in the cdr of cons."
+  _N"Thread safe push of val onto the list in the cdr of cons."
   (once-only ((n-val val)
 	      (n-cons cons))
     (let ((new-list (gensym))
@@ -620,7 +622,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-push-vector (val vect index)
-  "Thread safe push of val onto the list in the vector element."
+  _N"Thread safe push of val onto the list in the vector element."
   (once-only ((n-val val)
 	      (n-vect vect)
 	      (n-index index))
diff --git a/code/array.lisp b/code/array.lisp
index 6fc40acac07e7481c684fd03d02731e3d27c57f3..a6752f5b0fc51639cbd5c62b9651b8980fb82e5d 100644
--- a/code/array.lisp
+++ b/code/array.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.51 2010/01/28 15:02:13 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.52 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (export '(array-rank-limit array-dimension-limit array-total-size-limit
 	  make-array vector aref array-element-type array-rank
 	  array-dimension array-dimensions array-in-bounds-p
@@ -32,13 +34,13 @@
 		 array-displacement))
 
 (defconstant array-rank-limit 65529
-  "The exclusive upper bound on the rank of an array.")
+  _N"The exclusive upper bound on the rank of an array.")
 
 (defconstant array-dimension-limit most-positive-fixnum
-  "The exclusive upper bound any given dimension of an array.")
+  _N"The exclusive upper bound any given dimension of an array.")
 
 (defconstant array-total-size-limit most-positive-fixnum
-  "The exclusive upper bound on the total number of elements in an array.")
+  _N"The exclusive upper bound on the total number of elements in an array.")
 
 
 
@@ -86,12 +88,12 @@
   (let* ((size (array-total-size array))
 	 (end (cond (end
 		     (unless (<= end size)
-		       (error "End ~D is greater than total size ~D."
+		       (error _"End ~D is greater than total size ~D."
 			      end size))
 		     end)
 		    (t size))))
     (when (> start end)
-      (error "Start ~D is greater than end ~D." start end))
+      (error _"Start ~D is greater than end ~D." start end))
     (do ((data array (%array-data-vector data))
 	 (cumulative-offset 0
 			    (+ cumulative-offset
@@ -159,7 +161,7 @@
     (t #.vm:complex-vector-type)))
 
 (defvar *static-vectors* nil
-  "List of weak-pointers to static vectors.  Needed for GCing static vectors")
+  _N"List of weak-pointers to static vectors.  Needed for GCing static vectors")
 
 (defun make-static-vector (length element-type)
   (multiple-value-bind (type bits)
@@ -179,7 +181,7 @@
 		      #.vm:simple-array-double-float-type
 		      #.vm:simple-array-complex-single-float-type
 		      #.vm:simple-array-complex-double-float-type))
-      (error "Cannot make a static array of element type ~S" element-type))
+      (error _"Cannot make a static array of element type ~S" element-type))
     ;; Malloc space for the vector.  We need enough space for the data
     ;; itself, and then 2 words for the vector header (header word and
     ;; length).  Use calloc to make sure the area is initialized to
@@ -196,7 +198,7 @@
 	 ;; Malloc should return double-word (8 byte) alignment.
 	 (assert (zerop (logand 7 (sys:sap-int pointer))))
 	 (when (zerop (sys:sap-int pointer))
-	   (error "Failed to allocate space for static array of length ~S of type ~S"
+	   (error _"Failed to allocate space for static array of length ~S of type ~S"
 		  length element-type))
 
 	 ;; Fill in the vector header word and length word.  Set the data
@@ -217,7 +219,7 @@
                               adjustable fill-pointer
 			      displaced-to displaced-index-offset
 		              allocation)
-  "Creates an array of the specified Dimensions and properties.  See the
+  _N"Creates an array of the specified Dimensions and properties.  See the
   manual for details.
 
   :Element-type
@@ -249,11 +251,11 @@
 		      (null displaced-to))))
     (declare (fixnum array-rank))
     (when (and displaced-index-offset (null displaced-to))
-      (error "Can't specify :displaced-index-offset without :displaced-to"))
+      (error _"Can't specify :displaced-index-offset without :displaced-to"))
     (when (and adjustable static-array-p)
-      (error "Cannot make an adjustable static array"))
+      (error _"Cannot make an adjustable static array"))
     (when (and displaced-to static-array-p)
-      (error "Cannot make a displaced array static"))
+      (error _"Cannot make a displaced array static"))
     (if (and simple (= array-rank 1))
 	;; It's a (simple-array * (*))
 	(multiple-value-bind (type bits)
@@ -276,10 +278,10 @@
 	      (fill array initial-element))
 	    (when initial-contents-p
 	      (when initial-element-p
-		(error "Cannot specify both :initial-element and ~
+		(error _"Cannot specify both :initial-element and ~
 		:initial-contents"))
 	      (unless (= length (length initial-contents))
-		(error "~D elements in the initial-contents, but the ~
+		(error _"~D elements in the initial-contents, but the ~
 		vector length is ~D."
 		       (length initial-contents)
 		       length))
@@ -301,7 +303,7 @@
 		       array-rank)))
 	  (cond (fill-pointer
 		 (unless (= array-rank 1)
-		   (error "Only vectors can have fill pointers."))
+		   (error _"Only vectors can have fill pointers."))
 		 (let ((length (car dimensions)))
 		   (declare (fixnum length))
 		   (setf (%array-fill-pointer array)
@@ -311,7 +313,7 @@
 			    (unless (and (fixnump fill-pointer)
 					 (>= fill-pointer 0)
 					 (<= fill-pointer length))
-				    (error "Invalid fill-pointer ~D"
+				    (error _"Invalid fill-pointer ~D"
 					   fill-pointer))
 			    fill-pointer))))
 		 (setf (%array-fill-pointer-p array) t))
@@ -322,7 +324,7 @@
 	  (setf (%array-data-vector array) data)
 	  (cond (displaced-to
 		 (when (or initial-element-p initial-contents-p)
-		   (error "Neither :initial-element nor :initial-contents ~
+		   (error _"Neither :initial-element nor :initial-contents ~
 		   can be specified along with :displaced-to"))
 		 ;; The CLHS entry for MAKE-ARRAY says that if the
 		 ;; actual array element types are not type equivalent
@@ -332,13 +334,13 @@
 					(array-element-type displaced-to))
 			      (subtypep (array-element-type displaced-to)
 					(upgraded-array-element-type element-type)))
-		   (error "One can't displace an array of type ~S into ~
+		   (error _"One can't displace an array of type ~S into ~
                            another of type ~S."
 			  element-type (array-element-type displaced-to)))
 		 (let ((offset (or displaced-index-offset 0)))
 		   (when (> (+ offset total-size)
 			    (array-total-size displaced-to))
-		     (error "~S doesn't have enough elements." displaced-to))
+		     (error _"~S doesn't have enough elements." displaced-to))
 		   (setf (%array-displacement array) offset)
 		   (setf (%array-displaced-p array) t)))
 		(t
@@ -360,7 +362,7 @@
 (defun free-static-vector (vector)
   (sys:without-gcing
    (let ((addr (logandc1 vm:lowtag-mask (kernel:get-lisp-obj-address vector))))
-     (format t "~&Freeing foreign vector at #x~X~%" addr)
+     (format t _"~&Freeing foreign vector at #x~X~%" addr)
      (alien:alien-funcall
       (alien:extern-alien "free"
 			  (function c-call:void
@@ -376,7 +378,7 @@
   ;; gencgc.c.
   (when *static-vectors*
     (let ((*print-array* nil))
-      (format t "Finalizing static vectors ~S~%" *static-vectors*))
+      (format t _"Finalizing static vectors ~S~%" *static-vectors*))
     (setf *static-vectors*
 	  (delete-if
 	   #'(lambda (wp)
@@ -384,19 +386,19 @@
 		 (when vector
 		   (let* ((sap (sys:vector-sap vector))
 			  (header (sys:sap-ref-32 sap (* -2 vm:word-bytes))))
-		     (format t "static vector ~A.  header = ~X~%"
+		     (format t _"static vector ~A.  header = ~X~%"
 			     vector header)
 		     (cond ((logbitp 31 header)
 			    ;; Clear mark
 			    (setf (sys:sap-ref-32 sap (* -2 vm:word-bytes))
 				  (logand header #x7fffffff))
 			    (let ((*print-array* nil))
-			      (format t "  static vector ~A in use~%" vector))
+			      (format t _"  static vector ~A in use~%" vector))
 			    nil)
 			   (t
 			    ;; Mark was clear so free the vector
 			    (let ((*print-array* nil))
-			      (format t "  Free static vector ~A~%" vector))
+			      (format t _"  Free static vector ~A~%" vector))
 			    (sys:without-interrupts
 			      (setf (weak-pointer-value wp) nil)
 			      (free-static-vector vector))
@@ -416,7 +418,7 @@
 			       initial-element initial-element-p
 			       &optional static-array-p)
   (when (and initial-contents-p initial-element-p)
-    (error "Cannot supply both :initial-contents and :initial-element to
+    (error _"Cannot supply both :initial-contents and :initial-element to
             either make-array or adjust-array."))
   (let ((data (if static-array-p
 		  (make-static-vector total-size element-type)
@@ -429,7 +431,7 @@
     (cond (initial-element-p
 	   (unless (and (simple-vector-p data) static-array-p)
 	     (unless (typep initial-element element-type)
-	       (error "~S cannot be used to initialize an array of type ~S."
+	       (error _"~S cannot be used to initialize an array of type ~S."
 		      initial-element element-type))
 	     (fill (the vector data) initial-element)))
 	  (initial-contents-p
@@ -445,12 +447,14 @@
 		      (incf index))
 		     (t
 		      (unless (typep contents 'sequence)
-			(error "Malformed :initial-contents.  ~S is not a ~
-			        sequence, but ~D more layer~:P needed."
-			       contents
-			       (- (length dimensions) axis)))
+			(error (intl:ngettext "Malformed :initial-contents.  ~S is not a ~
+			                       sequence, but ~D more layer needed."
+					      "Malformed :initial-contents.  ~S is not a ~
+			                       sequence, but ~D more layers needed."
+					      (- (length dimensions) axis))
+			       contents))
 		      (unless (= (length contents) (car dims))
-			(error "Malformed :initial-contents.  Dimension of ~
+			(error _"Malformed :initial-contents.  Dimension of ~
 			        axis ~D is ~D, but ~S is ~D long."
 			       axis (car dims) contents (length contents)))
 		      (if (listp contents)
@@ -462,7 +466,7 @@
 
 
 (defun vector (&rest objects)
-  "Constructs a simple-vector from the given objects."
+  _N"Constructs a simple-vector from the given objects."
   (coerce (the list objects) 'simple-vector))
 
 
@@ -545,7 +549,7 @@
 	   (list subscripts))
   (let ((rank (array-rank array)))
     (unless (= rank (length subscripts))
-      (simple-program-error "Wrong number of subscripts, ~D, for array of rank ~D"
+      (simple-program-error _"Wrong number of subscripts, ~D, for array of rank ~D"
 	     (length subscripts) rank))
     (if (array-header-p array)
 	(do ((subs (nreverse subscripts) (cdr subs))
@@ -559,7 +563,7 @@
 	    (declare (fixnum index dim))
 	    (unless (< -1 index dim)
 	      (if invalid-index-error-p
-		  (error "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
+		  (error _"Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
 			 index axis array)
 		  (return-from %array-row-major-index nil)))
 	    (incf result (* chunk-size index))
@@ -567,12 +571,12 @@
 	(let ((index (first subscripts)))
 	  (unless (< -1 index (length (the (simple-array * (*)) array)))
 	    (if invalid-index-error-p
-		(error "Invalid index ~D in ~S" index array)
+		(error _"Invalid index ~D in ~S" index array)
 		(return-from %array-row-major-index nil)))
 	  index))))
 
 (defun array-in-bounds-p (array &rest subscripts)
-  "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
+  _N"Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
   (if (%array-row-major-index array subscripts nil)
       t))
 
@@ -580,7 +584,7 @@
   (%array-row-major-index array subscripts))
 
 (defun aref (array &rest subscripts)
-  "Returns the element of the Array specified by the Subscripts."
+  _N"Returns the element of the Array specified by the Subscripts."
   (row-major-aref array (%array-row-major-index array subscripts)))
 
 (defun %aset (array &rest stuff)
@@ -596,7 +600,7 @@
 	new-value))
 
 (defun row-major-aref (array index)
-  "Returns the element of array corressponding to the row-major index.  This is
+  _N"Returns the element of array corressponding to the row-major index.  This is
    SETF'able."
   (declare (optimize (safety 1)))
   (row-major-aref array index))
@@ -607,7 +611,7 @@
   (setf (row-major-aref array index) new-value))
 
 (defun svref (simple-vector index)
-  "Returns the Index'th element of the given Simple-Vector."
+  _N"Returns the Index'th element of the given Simple-Vector."
   (declare (optimize (safety 1)))
   (aref simple-vector index))
 
@@ -617,7 +621,7 @@
 
 
 (defun bit (bit-array &rest subscripts)
-  "Returns the bit from the Bit-Array at the specified Subscripts."
+  _N"Returns the bit from the Bit-Array at the specified Subscripts."
   (declare (type (array bit) bit-array) (optimize (safety 1)))
   (row-major-aref bit-array (%array-row-major-index bit-array subscripts)))
 
@@ -638,7 +642,7 @@
 	new-value))
 
 (defun sbit (simple-bit-array &rest subscripts)
-  "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
+  _N"Returns the bit from the Simple-Bit-Array at the specified Subscripts."
   (declare (type (simple-array bit) simple-bit-array) (optimize (safety 1)))
   (row-major-aref simple-bit-array
 		  (%array-row-major-index simple-bit-array subscripts)))
@@ -662,7 +666,7 @@
 ;;;; Random array properties.
 
 (defun array-element-type (array)
-  "Returns the type of the elements of the array"
+  _N"Returns the type of the elements of the array"
   (let ((type (get-type array)))
     (macrolet ((pick-element-type (&rest stuff)
 		 `(cond ,@(mapcar #'(lambda (stuff)
@@ -713,26 +717,28 @@
 
 
 (defun array-rank (array)
-  "Returns the number of dimensions of the Array."
+  _N"Returns the number of dimensions of the Array."
   (if (array-header-p array)
       (%array-rank array)
       1))
 
 (defun array-dimension (array axis-number)
-  "Returns length of dimension Axis-Number of the Array."
+  _N"Returns length of dimension Axis-Number of the Array."
   (declare (array array) (type index axis-number))
   (cond ((not (array-header-p array))
 	 (unless (= axis-number 0)
-	   (simple-program-error "Vector axis is not zero: ~S" axis-number))
+	   (simple-program-error _"Vector axis is not zero: ~S" axis-number))
 	 (length (the (simple-array * (*)) array)))
 	((>= axis-number (%array-rank array))
-	 (simple-program-error "~D is too big; ~S only has ~D dimension~:P"
-		axis-number array (%array-rank array)))
+	 (simple-program-error (intl:ngettext "~D is too big; ~S only has ~D dimension"
+					      "~D is too big; ~S only has ~D dimensions"
+					      (%array-rank array))
+			       axis-number array))
 	(t
 	 (%array-dimension array axis-number))))
 
 (defun array-dimensions (array)
-  "Returns a list whose elements are the dimensions of the array"
+  _N"Returns a list whose elements are the dimensions of the array"
   (declare (array array))
   (if (array-header-p array)
       (do ((results nil (cons (array-dimension array index) results))
@@ -741,14 +747,14 @@
       (list (array-dimension array 0))))
 
 (defun array-total-size (array)
-  "Returns the total number of elements in the Array."
+  _N"Returns the total number of elements in the Array."
   (declare (array array))
   (if (array-header-p array)
       (%array-available-elements array)
       (length (the vector array))))
 
 (defun array-displacement (array)
-  "Returns values of :displaced-to and :displaced-index-offset options to
+  _N"Returns values of :displaced-to and :displaced-index-offset options to
    make-array, or the defaults nil and 0 if not a displaced array."
   (declare (array array))
   (if (and (array-header-p array) (%array-displaced-p array))
@@ -757,7 +763,7 @@
       (values nil 0)))
 
 (defun adjustable-array-p (array)
-  "Returns T if (adjust-array array...) would return an array identical
+  _N"Returns T if (adjust-array array...) would return an array identical
    to the argument, this happens for complex arrays."
   (declare (array array))
   (not (typep array 'simple-array)))
@@ -766,12 +772,12 @@
 ;;;; Fill pointer frobbing stuff.
 
 (defun array-has-fill-pointer-p (array)
-  "Returns T if the given Array has a fill pointer, or Nil otherwise."
+  _N"Returns T if the given Array has a fill pointer, or Nil otherwise."
   (declare (array array))
   (and (array-header-p array) (%array-fill-pointer-p array)))
 
 (defun fill-pointer (vector)
-  "Returns the Fill-Pointer of the given Vector."
+  _N"Returns the Fill-Pointer of the given Vector."
   (declare (vector vector))
   (if (and (array-header-p vector) (%array-fill-pointer-p vector))
       (%array-fill-pointer vector)
@@ -779,7 +785,7 @@
 	     :datum vector
 	     :expected-type '(and vector (satisfies array-has-fill-pointer-p))
 	     :format-control
-	     "~S is not an array with a fill-pointer."
+	     _"~S is not an array with a fill-pointer."
 	     :format-arguments (list vector))))
 
 (defun %set-fill-pointer (vector new)
@@ -787,17 +793,17 @@
   (if (and (array-header-p vector) (%array-fill-pointer-p vector))
       (if (> new (%array-available-elements vector))
 	(simple-program-error
-         "New fill pointer, ~S, is larger than the length of the vector."
+         _"New fill pointer, ~S, is larger than the length of the vector."
          new)
 	(setf (%array-fill-pointer vector) new))
       (error 'simple-type-error
 	     :datum vector
 	     :expected-type '(and vector (satisfies array-has-fill-pointer-p))
-	     :format-control "~S is not an array with a fill-pointer."
+	     :format-control _"~S is not an array with a fill-pointer."
 	     :format-arguments (list vector))))
 
 (defun vector-push (new-el array)
-  "Attempts to set the element of Array designated by the fill pointer
+  _N"Attempts to set the element of Array designated by the fill pointer
    to New-El and increment fill pointer by one.  If the fill pointer is
    too large, Nil is returned, otherwise the index of the pushed element is 
    returned."
@@ -815,7 +821,7 @@
 				  (extension (if (zerop (length array))
 						 1
 						 (length array))))
-  "Like Vector-Push except that if the fill pointer gets too large, the
+  _N"Like Vector-Push except that if the fill pointer gets too large, the
    Array is extended rather than Nil being returned."
   (declare (vector array) (fixnum extension))
   (let ((fill-pointer (fill-pointer array)))
@@ -827,14 +833,14 @@
     fill-pointer))
 
 (defun vector-pop (array)
-  "Attempts to decrease the fill-pointer by 1 and return the element
+  _N"Attempts to decrease the fill-pointer by 1 and return the element
    pointer to by the new fill pointer.  If the original value of the fill
    pointer is 0, an error occurs."
   (declare (vector array))
   (let ((fill-pointer (fill-pointer array)))
     (declare (fixnum fill-pointer))
     (if (zerop fill-pointer)
-	(simple-program-error "Nothing left to pop.")
+	(simple-program-error _"Nothing left to pop.")
 	(aref array
 	      (setf (%array-fill-pointer array)
 		    (1- fill-pointer))))))
@@ -848,24 +854,24 @@
 			   (initial-contents nil initial-contents-p)
                            fill-pointer
 			   displaced-to displaced-index-offset)
-  "Adjusts the Array's dimensions to the given Dimensions and stuff."
+  _N"Adjusts the Array's dimensions to the given Dimensions and stuff."
   (let ((dimensions (if (listp dimensions) dimensions (list dimensions))))
     (cond ((/= (the fixnum (length (the list dimensions)))
 	       (the fixnum (array-rank array)))
-	   (simple-program-error "Number of dimensions not equal to rank of array."))
+	   (simple-program-error _"Number of dimensions not equal to rank of array."))
 	  ((not (subtypep element-type (array-element-type array)))
-	   (simple-program-error "New element type, ~S, is incompatible with old."
+	   (simple-program-error _"New element type, ~S, is incompatible with old."
 				 element-type))
 	  ((static-array-p array)
-	   (simple-program-error "Static arrays are not adjustable.")))
+	   (simple-program-error _"Static arrays are not adjustable.")))
     (let ((array-rank (length (the list dimensions))))
       (declare (fixnum array-rank))
       (when (and fill-pointer (> array-rank 1))
-	(simple-program-error "Multidimensional arrays can't have fill pointers."))
+	(simple-program-error _"Multidimensional arrays can't have fill pointers."))
       (cond (initial-contents-p
 	     ;; Array former contents replaced by initial-contents.
 	     (if (or initial-element-p displaced-to)
-		 (simple-program-error "Initial contents may not be specified with ~
+		 (simple-program-error _"Initial contents may not be specified with ~
 		 the :initial-element or :displaced-to option."))
 	     (let* ((array-size (apply #'* dimensions))
 		    (array-data (data-vector-from-inits
@@ -886,10 +892,10 @@
 	    (displaced-to
 	     ;; No initial-contents supplied is already established.
 	     (when initial-element
-	       (simple-program-error "The :initial-element option may not be specified ~
+	       (simple-program-error _"The :initial-element option may not be specified ~
 	       with :displaced-to."))
 	     (unless (subtypep element-type (array-element-type displaced-to))
-	       (simple-program-error "One can't displace an array of type ~S into another of ~
+	       (simple-program-error _"One can't displace an array of type ~S into another of ~
 	               type ~S."
 		      element-type (array-element-type displaced-to)))
 	     (let ((displacement (or displaced-index-offset 0))
@@ -897,7 +903,7 @@
 	       (declare (fixnum displacement array-size))
 	       (if (< (the fixnum (array-total-size displaced-to))
 		      (the fixnum (+ displacement array-size)))
-		   (simple-program-error "The :displaced-to array is too small."))
+		   (simple-program-error _"The :displaced-to array is too small."))
 	       (if (adjustable-array-p array)
 		   ;; None of the original contents appear in adjusted array.
 		   (set-array-header array displaced-to array-size
@@ -977,13 +983,13 @@
 	 (when (array-has-fill-pointer-p old-array)
 	   (when (> (%array-fill-pointer old-array) new-array-size)
 	     (simple-program-error
-                    "Cannot adjust-array an array (~S) to a size (~S) that is ~
+                    _"Cannot adjust-array an array (~S) to a size (~S) that is ~
 	            smaller than it's fill pointer (~S)."
 		    old-array new-array-size (fill-pointer old-array)))
 	   (%array-fill-pointer old-array)))
 	((not (array-has-fill-pointer-p old-array))
 	 (simple-program-error
-          "Cannot supply a non-NIL value (~S) for :fill-pointer ~
+          _"Cannot supply a non-NIL value (~S) for :fill-pointer ~
 	   in adjust-array unless the array (~S) was originally ~
  	   created with a fill pointer."
           fill-pointer
@@ -991,18 +997,18 @@
 	((numberp fill-pointer)
 	 (when (> fill-pointer new-array-size)
 	   (simple-program-error
-            "Cannot supply a value for :fill-pointer (~S) that is larger ~
+            _"Cannot supply a value for :fill-pointer (~S) that is larger ~
 	     than the new length of the vector (~S)."
             fill-pointer new-array-size))
 	 fill-pointer)
 	((eq fill-pointer t)
 	 new-array-size)
 	(t
-	 (simple-program-error "Bogus value for :fill-pointer in adjust-array: ~S"
+	 (simple-program-error _"Bogus value for :fill-pointer in adjust-array: ~S"
                                fill-pointer))))
 
 (defun shrink-vector (vector new-size)
-  "Destructively alters the Vector, changing its length to New-Size, which
+  _N"Destructively alters the Vector, changing its length to New-Size, which
    must be less than or equal to its current size."
   (declare (vector vector))
   (unless (array-header-p vector)
@@ -1051,7 +1057,7 @@
 
 (defun set-array-header (array data length fill-pointer displacement dimensions
 			 &optional displacedp)
-  "Fills in array header with provided information.  Returns array."
+  _N"Fills in array header with provided information.  Returns array."
   (setf (%array-data-vector array) data)
   (setf (%array-available-elements array) length)
   (cond (fill-pointer
@@ -1085,7 +1091,7 @@
 	  (make-array length :initial-element t)))
   (when initial-element-p
     (unless (typep initial-element element-type)
-      (simple-program-error "~S cannot be used to initialize an array of type ~S."
+      (simple-program-error _"~S cannot be used to initialize an array of type ~S."
 	     initial-element element-type))
     (fill (the simple-vector *zap-array-data-temp*) initial-element
 	  :end length))
@@ -1180,44 +1186,46 @@
     (t
      (unless (bit-array-same-dimensions-p bit-array-1
 					  result-bit-array)
-       (simple-program-error "~S and ~S do not have the same dimensions."
+       (simple-program-error _"~S and ~S do not have the same dimensions."
 	      bit-array-1 result-bit-array))
      result-bit-array)))
 
 (defmacro def-bit-array-op (name function)
-  `(defun ,name (bit-array-1 bit-array-2 &optional result-bit-array)
-     ,(format nil
-	      "Perform a bit-wise ~A on the elements of BIT-ARRAY-1 and ~
-	      BIT-ARRAY-2,~%  putting the results in RESULT-BIT-ARRAY.  ~
-	      If RESULT-BIT-ARRAY is T,~%  BIT-ARRAY-1 is used.  If ~
-	      RESULT-BIT-ARRAY is NIL or omitted, a new array is~%  created.  ~
-	      All the arrays must have the same rank and dimensions."
-	      (symbol-name function))
-     (declare (type (array bit) bit-array-1 bit-array-2)
-	      (type (or (array bit) (member t nil)) result-bit-array))
-     (unless (bit-array-same-dimensions-p bit-array-1 bit-array-2)
-       (simple-program-error "~S and ~S do not have the same dimensions."
-	      bit-array-1 bit-array-2))
-     (let ((result-bit-array (pick-result-array result-bit-array bit-array-1)))
-       (if (and (simple-bit-vector-p bit-array-1)
-		(simple-bit-vector-p bit-array-2)
-		(simple-bit-vector-p result-bit-array))
-	   (locally (declare (optimize (speed 3) (safety 0)))
-	     (,name bit-array-1 bit-array-2 result-bit-array))
-	   (with-array-data ((data1 bit-array-1) (start1) (end1))
-	     (declare (ignore end1))
-	     (with-array-data ((data2 bit-array-2) (start2) (end2))
-	       (declare (ignore end2))
-	       (with-array-data ((data3 result-bit-array) (start3) (end3))
-		 (do ((index-1 start1 (1+ index-1))
-		      (index-2 start2 (1+ index-2))
-		      (index-3 start3 (1+ index-3)))
-		     ((>= index-3 end3) result-bit-array)
-		   (declare (type index index-1 index-2 index-3))
-		   (setf (sbit data3 index-3)
-			 (logand (,function (sbit data1 index-1)
-					    (sbit data2 index-2))
-				 1))))))))))
+  (let ((docstring (format nil
+			   "Perform a bit-wise ~A on the elements of BIT-ARRAY-1 and ~
+			    BIT-ARRAY-2,~%  putting the results in RESULT-BIT-ARRAY.  ~
+			    If RESULT-BIT-ARRAY is T,~%  BIT-ARRAY-1 is used.  If ~
+			    RESULT-BIT-ARRAY is NIL or omitted, a new array is~%  created.  ~
+			    All the arrays must have the same rank and dimensions."
+			   (symbol-name function))))
+    (intl::note-translatable intl::*default-domain* docstring)
+    `(defun ,name (bit-array-1 bit-array-2 &optional result-bit-array)
+       ,docstring
+       (declare (type (array bit) bit-array-1 bit-array-2)
+		(type (or (array bit) (member t nil)) result-bit-array))
+       (unless (bit-array-same-dimensions-p bit-array-1 bit-array-2)
+	 (simple-program-error _"~S and ~S do not have the same dimensions."
+			       bit-array-1 bit-array-2))
+       (let ((result-bit-array (pick-result-array result-bit-array bit-array-1)))
+	 (if (and (simple-bit-vector-p bit-array-1)
+		  (simple-bit-vector-p bit-array-2)
+		  (simple-bit-vector-p result-bit-array))
+	     (locally (declare (optimize (speed 3) (safety 0)))
+	       (,name bit-array-1 bit-array-2 result-bit-array))
+	     (with-array-data ((data1 bit-array-1) (start1) (end1))
+	       (declare (ignore end1))
+	       (with-array-data ((data2 bit-array-2) (start2) (end2))
+		 (declare (ignore end2))
+		 (with-array-data ((data3 result-bit-array) (start3) (end3))
+		   (do ((index-1 start1 (1+ index-1))
+			(index-2 start2 (1+ index-2))
+			(index-3 start3 (1+ index-3)))
+		       ((>= index-3 end3) result-bit-array)
+		     (declare (type index index-1 index-2 index-3))
+		     (setf (sbit data3 index-3)
+			   (logand (,function (sbit data1 index-1)
+					      (sbit data2 index-2))
+				   1)))))))))))
 
 (def-bit-array-op bit-and logand)
 (def-bit-array-op bit-ior logior)
@@ -1231,7 +1239,7 @@
 (def-bit-array-op bit-orc2 logorc2)
 
 (defun bit-not (bit-array &optional result-bit-array)
-  "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,
+  _N"Performs a bit-wise logical NOT on the elements of BIT-ARRAY,
   putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,
   BIT-ARRAY is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array is
   created.  Both arrays must have the same rank and dimensions."
diff --git a/code/backq.lisp b/code/backq.lisp
index cb4148c2b592ac24f5acf6b3b8672833b5e7ce7a..7eaa4772dc4aa38168e8151a37505cd1a14a6796 100644
--- a/code/backq.lisp
+++ b/code/backq.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/backq.lisp,v 1.14 2008/03/03 15:54:12 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/backq.lisp,v 1.15 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 
 ;;; The flags passed back by BACKQUOTIFY can be interpreted as follows:
 ;;;
@@ -43,7 +45,7 @@
 ;;;<hair> involves starting over again pretending you had read ".,a)" instead
 ;;; of ",@a)"
 
-(defvar *backquote-count* 0  "How deep we are into backquotes")
+(defvar *backquote-count* 0  _N"How deep we are into backquotes")
 (defvar *bq-comma-flag* '(|,|))
 (defvar *bq-at-flag* '(|,@|))
 (defvar *bq-dot-flag* '(|,.|))
@@ -59,9 +61,9 @@
     (multiple-value-bind (flag thing)
 			 (backquotify stream (read stream t nil t))
       (if (eq flag *bq-at-flag*)
-	  (%reader-error stream ",@ after backquote in ~S" thing))
+	  (%reader-error stream _",@ after backquote in ~S" thing))
       (if (eq flag *bq-dot-flag*)
-	  (%reader-error stream ",. after backquote in ~S" thing))
+	  (%reader-error stream _",. after backquote in ~S" thing))
       (values (backquotify-1 flag thing) 'list))))
 
 (defun comma-macro (stream ignore)
@@ -69,7 +71,7 @@
   (unless (> *backquote-count* 0)
     (when *read-suppress*
       (return-from comma-macro nil))
-    (%reader-error stream "Comma not inside a backquote."))
+    (%reader-error stream _"Comma not inside a backquote."))
   (let ((c (read-char stream))
 	(*backquote-count* (1- *backquote-count*)))
     (values
@@ -110,9 +112,9 @@
 	     (multiple-value-bind (dflag d) (backquotify stream (cdr code))
 	       (if (eq dflag *bq-at-flag*)
 		   ;; get the errors later.
-		   (%reader-error stream ",@ after dot in ~S" code))
+		   (%reader-error stream _",@ after dot in ~S" code))
 	       (if (eq dflag *bq-dot-flag*)
-		   (%reader-error stream ",. after dot in ~S" code))
+		   (%reader-error stream _",. after dot in ~S" code))
 	       (cond
 		((eq aflag *bq-at-flag*)
 		 (if (null dflag)
@@ -236,7 +238,7 @@
     ))
 
 (defun backq-unparse (form &optional splicing)
-  "Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,
+  _N"Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,
   BACKQ-APPEND, etc. produced by the backquote reader macro, will return a
   corresponding backquote input form.  In this form, `,' `,@' and `,.' are
   represented by lists whose cars are BACKQ-COMMA, BACKQ-COMMA-AT, and
@@ -248,7 +250,7 @@
    ((atom form)
     (backq-unparse-expr form splicing))
    ((not (null (cdr (last form))))
-    "### illegal dotted backquote form ###")
+    _"### illegal dotted backquote form ###")
    (t
     (case (car form)
       (backq-list
diff --git a/code/bignum.lisp b/code/bignum.lisp
index fcb6738e71709dd0d871e7a4e202db503e6179e8..b0efc060945768a7c096799349a24d976caf6234 100644
--- a/code/bignum.lisp
+++ b/code/bignum.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.47 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.48 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 (in-package "BIGNUM")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 ;;; These symbols define the interface to the number code.
 
 (export '(add-bignums multiply-bignums negate-bignum subtract-bignum
@@ -570,7 +572,7 @@
 ;; This might need some tuning
 (declaim (fixnum *karatsuba-classical-cutoff*))
 (defparameter *karatsuba-classical-cutoff* 10
-  "When the bignum pieces are smaller than this many words, we use the
+  _N"When the bignum pieces are smaller than this many words, we use the
 classical multiplication algorithm instead of recursing all the way
 down to individual words.")
 
@@ -915,7 +917,7 @@ down to individual words.")
     (%normalize-bignum res len-res)))
 
 (defparameter *min-karatsuba-bits* 512
-  "Use Karatsuba if the bignums have at least this many bits")
+  _N"Use Karatsuba if the bignums have at least this many bits")
 
 (defun multiply-bignums (a b)
   (declare (type bignum-type a b))
@@ -1135,7 +1137,7 @@ down to individual words.")
 ;;; Could do freelisting someday.
 ;;;
 (defmacro with-bignum-buffers (specs &body body)
-  "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
+  _N"WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
   (ext:collect ((binds)
 		(inits))
     (dolist (spec specs)
@@ -1385,7 +1387,7 @@ down to individual words.")
   (declare (type bignum-index len-a len-b) (type bignum-type a))
   (do ((i 0 (1+ i))
        (end (min len-a len-b)))
-      ((= i end) (error "Unexpected zero bignums?"))
+      ((= i end) (error _"Unexpected zero bignums?"))
     (declare (type bignum-index i end))
     (let ((or-digits (%logior (%bignum-ref a i) (%bignum-ref b i))))
       (unless (zerop or-digits)
@@ -1732,7 +1734,7 @@ down to individual words.")
     (let* ((bignum-len (or bignum-len (%bignum-length bignum)))
 	   (res-len (+ digits bignum-len 1)))
       (when (> res-len maximum-bignum-length)
-	(error "Can't represent result of left shift."))
+	(error _"Can't represent result of left shift."))
       (if (zerop n-bits)
 	  (bignum-ashift-left-digits bignum bignum-len digits)
 	  (bignum-ashift-left-unaligned bignum digits n-bits res-len)))))
@@ -1959,7 +1961,7 @@ down to individual words.")
 		 (when (> exp max)
 		   (error 'simple-type-error
 			  :datum x
-                          :format-control "Too large to be represented as a ~S:~%  ~S"
+                          :format-control _"Too large to be represented as a ~S:~%  ~S"
 			  :format-arguments (list format x)
                           :expected-type format))
 		 exp)))
diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 9d2396bc01569b4fdc60ebc9428f3f7285d25950..022e49de972fb5e1f1ee5d111077b6b41518aa73 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.25 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.26 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 
 (in-package "VM")
 
+(intl:textdomain "cmucl")
 
 
 ;;;; Constants and Types.
@@ -24,10 +25,10 @@
 (eval-when (compile load eval)
 
 (defconstant unit-bits vm:word-bits
-  "The number of bits to process at a time.")
+  _N"The number of bits to process at a time.")
 
 (defconstant max-bits (1- (ash 1 vm:word-bits))
-  "The maximum number of bits that can be dealt with during a single call.")
+  _N"The maximum number of bits that can be dealt with during a single call.")
 
 
 (deftype unit ()
@@ -78,7 +79,7 @@
       (:little-endian little-endian))))
 
 (defun shift-towards-start (number count)
-  "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing
+  _N"Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing
   bits from the ``start.''  On big-endian machines this is a left-shift and
   on little-endian machines this is a right-shift.  Note: only the low 5/6 bits
   of count are significant."
@@ -92,7 +93,7 @@
 	 (ash number (- count))))))
 
 (defun shift-towards-end (number count)
-  "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing
+  _N"Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing
   bits from the ``end.''  On big-endian machines this is a right-shift and
   on little-endian machines this is a left-shift."
   (declare (type unit number) (fixnum count))
@@ -106,20 +107,20 @@
 
 (declaim (inline start-mask end-mask fix-sap-and-offset))
 (defun start-mask (count)
-  "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for
+  _N"Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for
   the remaining ``end'' bits.  Only the lower 5 bits of COUNT are significant."
   (declare (fixnum count))
   (shift-towards-start (1- (ash 1 unit-bits)) (- count)))
 
 (defun end-mask (count)
-  "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for
+  _N"Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for
   the remaining ``start'' bits.  Only the lower 5 bits of COUNT are
   significant."
   (declare (fixnum count))
   (shift-towards-end (1- (ash 1 unit-bits)) (- count)))
 
 (defun fix-sap-and-offset (sap offset)
-  "Align the SAP to a word boundry, and update the offset accordingly."
+  _N"Align the SAP to a word boundry, and update the offset accordingly."
   (declare (type system-area-pointer sap)
 	   (type index offset)
 	   (values system-area-pointer index))
@@ -156,7 +157,7 @@
 
 (declaim (inline do-constant-bit-bash))
 (defun do-constant-bit-bash (dst dst-offset length value dst-ref-fn dst-set-fn)
-  "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
+  _N"Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
   (declare (type offset dst-offset) (type unit value)
 	   (type function dst-ref-fn dst-set-fn))
   (multiple-value-bind (dst-word-offset dst-bit-offset)
diff --git a/code/bsd-os.lisp b/code/bsd-os.lisp
index cdc55fb6fb81b59f5bdbacc19062a4088c524575..cff25b1d0c613b9f62fc4039ef90222291a8ae10 100644
--- a/code/bsd-os.lisp
+++ b/code/bsd-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.13 2009/10/10 03:00:03 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.14 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,9 @@
 
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+
+(intl:textdomain "cmucl-bsd-os")
+
 (export '(get-system-info get-page-size os-init))
 
 (register-lisp-feature :bsd)
@@ -45,10 +48,10 @@
 		      #+Darwin "Darwin"
 		      #-(or freebsd NetBSD OpenBSD Darwin) "BSD")
 
-(defvar *software-version* nil "Version string for supporting software")
+(defvar *software-version* nil _N"Version string for supporting software")
 
 (defun software-version ()
-  "Returns a string describing version of the supporting software."
+  _N"Returns a string describing version of the supporting software."
   (unless *software-version*
     (setf *software-version*
 	  (string-trim '(#\newline)
@@ -76,7 +79,7 @@
 		       (unix:unix-getrusage unix:rusage_self)
     (declare (ignore maxrss ixrss idrss isrss minflt))
     (unless err?
-      (error "Unix system call getrusage failed: ~A."
+      (error _"Unix system call getrusage failed: ~A."
 	     (unix:get-unix-error-msg utime)))
     
     (values utime stime majflt)))
@@ -90,5 +93,5 @@
   (multiple-value-bind (val err)
       (unix:unix-getpagesize)
     (unless val
-      (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
+      (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
     val))
diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp
index 0e4c53d508d4d8fbc3dadf64b3cbc7ffee57913a..eb7e4952611cd6ca341442d1aa450290e6ec2030 100644
--- a/code/byte-interp.lisp
+++ b/code/byte-interp.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.46 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.47 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,9 @@
 (in-package "C")
 
 (in-package "KERNEL")
+
+(intl:textdomain "cmucl")
+
 (export '(byte-function byte-function-name initialize-byte-compiled-function
 			byte-closure byte-closure-function
 			byte-closure-data byte-function-or-closure
@@ -188,11 +191,11 @@
 ;;;; The stack.
 
 (defvar *eval-stack* (make-array 100)
-  "This is the interpreter's evaluation stack.")
+  _N"This is the interpreter's evaluation stack.")
 (declaim (type simple-vector *eval-stack*))
 
 (defvar *eval-stack-top* 0
-  "This is the next free element of the interpreter's evaluation stack.")
+  _N"This is the next free element of the interpreter's evaluation stack.")
 (declaim (type index *eval-stack-top*))
 
 (defmacro current-stack-pointer () '*eval-stack-top*)
@@ -447,7 +450,7 @@
 					   `(push-eval-stack ,res))
 				       results)))
 			`(push-eval-stack ,func))))
-	      `(error "Unknown inline function, id=~D" ,base)))
+	      `(error _"Unknown inline function, id=~D" ,base)))
 	`(if (zerop (logand byte ,(ash 1 bit)))
 	     ,(build-dispatch (1- bit) base)
 	     ,(build-dispatch (1- bit) (+ base (ash 1 bit)))))))
@@ -472,7 +475,7 @@
   `(let ((x ,x))
      (unless (boundp x)
        (with-debugger-info (component pc fp)
-	 (error "Unbound variable: ~S" x)))
+	 (error _"Unbound variable: ~S" x)))
      (symbol-value x)))
 
 (defmacro %byte-car (x)
@@ -480,7 +483,7 @@
      (unless (listp x)
        (with-debugger-info (component pc fp)
 	 (error 'simple-type-error :datum x :expected-type 'list
-		:format-control "Non-list argument to CAR: ~S"
+		:format-control _"Non-list argument to CAR: ~S"
 		:format-arguments (list x))))
      (car x)))
 
@@ -489,7 +492,7 @@
      (unless (listp x)
        (with-debugger-info (component pc fp)
 	 (error 'simple-type-error :datum x :expected-type 'list
-		:format-control "Non-list argument to CDR: ~S"
+		:format-control _"Non-list argument to CDR: ~S"
 		:format-arguments (list x))))
      (cdr x)))
 
@@ -586,7 +589,7 @@
 ;;;
 (defun undefined-xop (component old-pc pc fp)
   (declare (ignore component old-pc pc fp))
-  (error "Undefined XOP."))
+  (error _"Undefined XOP."))
 
 ;;; *BYTE-XOPS* -- Simple vector of the XOP functions.
 ;;; 
@@ -1374,7 +1377,7 @@
 	  ((typep xep 'simple-byte-function)
 	   (unless (eql (simple-byte-function-num-args xep) num-args)
 	     (with-debugger-info (old-component ret-pc old-fp)
-	       (simple-program-error "Wrong number of arguments.")))
+	       (simple-program-error _"Wrong number of arguments.")))
 	   (simple-byte-function-entry-point xep))
 	  (t
 	   (let ((min (hairy-byte-function-min-args xep))
@@ -1382,12 +1385,12 @@
 	     (cond
 	      ((< num-args min)
 	       (with-debugger-info (old-component ret-pc old-fp)
-		 (simple-program-error "Not enough arguments.")))
+		 (simple-program-error _"Not enough arguments.")))
 	      ((<= num-args max)
 	       (nth (- num-args min) (hairy-byte-function-entry-points xep)))
 	      ((null (hairy-byte-function-more-args-entry-point xep))
 	       (with-debugger-info (old-component ret-pc old-fp)
-		 (simple-program-error "Too many arguments.")))
+		 (simple-program-error _"Too many arguments.")))
 	      (t
 	       (let* ((more-args-supplied (- num-args max))
 		      (sp (current-stack-pointer))
@@ -1414,7 +1417,7 @@
 		  (t
 		   (unless (evenp more-args-supplied)
 		     (with-debugger-info (old-component ret-pc old-fp)
-		       (simple-program-error "Odd number of keyword arguments.")))
+		       (simple-program-error _"Odd number of keyword arguments.")))
 		   ;;
 		   ;; If there are keyword args we need to leave the
 		   ;; defaulted and supplied-p values where the more args
@@ -1477,7 +1480,7 @@
 					  (incf target))))))))
 		       (when (and bogus-key-p (not allow))
 			 (with-debugger-info (old-component ret-pc old-fp)
-			   (simple-program-error "Unknown keyword: ~S"
+			   (simple-program-error _"Unknown keyword: ~S"
 						 bogus-key))))
 		     (setf (current-stack-pointer) new-sp)))))
 	       (hairy-byte-function-more-args-entry-point xep))))))))
@@ -1512,7 +1515,7 @@
 	      (values-list results))))))
       (t
        ;; ### Function end breakpoint?
-       (error "function-end breakpoints not supported.")))))
+       (error _"function-end breakpoints not supported.")))))
 
 (defun do-local-return (old-component fp num-results)
   (declare (type stack-pointer fp) (type index num-results))
diff --git a/code/c-call.lisp b/code/c-call.lisp
index 426994a7fa998500deaa3cbc68dd0aa87bcc0661..3ddd8e5d6bc8ed06fd37c157fd784d7b2ca603f9 100644
--- a/code/c-call.lisp
+++ b/code/c-call.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/c-call.lisp,v 1.18 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/c-call.lisp,v 1.19 2010/03/19 15:18:58 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 (use-package "ALIEN-INTERNALS")
 (use-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (export '(char short int long long-long unsigned-char unsigned-short unsigned-int
 	  unsigned-long unsigned-long-long float double c-string void))
 	       
diff --git a/code/char.lisp b/code/char.lisp
index 01212a3492a9a8ad3406b0cbe264b0b49b5e152a..afdf00bf9c59147fe3206cad1b7275e1809282c2 100644
--- a/code/char.lisp
+++ b/code/char.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.18 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.19 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,6 +24,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (export '(char-code-limit standard-char-p graphic-char-p 
 	  alpha-char-p upper-case-p lower-case-p both-case-p digit-char-p
 	  alphanumericp char= char/= char< char> char<= char>= char-equal
@@ -45,14 +47,14 @@
 (defconstant char-code-limit
   #-unicode 256
   #+unicode 65536
-  "The upper exclusive bound on values produced by CHAR-CODE.")
+  _N"The upper exclusive bound on values produced by CHAR-CODE.")
 
 (deftype char-code ()
   `(integer 0 (,char-code-limit)))
 
 (defconstant codepoint-limit
   #x110000
-  "The upper exclusive bound on the value of a Unicode codepoint")
+  _N"The upper exclusive bound on the value of a Unicode codepoint")
 
 ;;; The range of a Unicode code point
 (deftype codepoint ()
@@ -67,7 +69,7 @@
 		   (dolist (name names)
 		     (results (cons name (code-char ccode))))))
 	       `(defparameter char-name-alist ',(results)
-  "This is the alist of (character-name . character) for characters with
+  _N"This is the alist of (character-name . character) for characters with
   long names.  The first name in this list for a given character is used
   on typeout and is the preferred form for input."))))
   ;; Note: the char-name listed here should be what string-capitalize
@@ -112,25 +114,25 @@
 ;;;; Accessor functions:
 
 (defun char-code (char)
-  "Returns the integer code of CHAR."
+  _N"Returns the integer code of CHAR."
   (etypecase char
     (base-char (char-code (truly-the base-char char)))))
 
 
 (defun char-int (char)
-  "Returns the integer code of CHAR.  This is the same as char-code, as
+  _N"Returns the integer code of CHAR.  This is the same as char-code, as
    CMU Common Lisp does not implement character bits or fonts."
   (char-code char))
 
 
 (defun code-char (code)
-  "Returns the character with the code CODE."
+  _N"Returns the character with the code CODE."
   (declare (type char-code code))
   (code-char code))
 
 
 (defun character (object)
-  "Coerces its argument into a character object if possible.  Accepts
+  _N"Coerces its argument into a character object if possible.  Accepts
   characters, strings and symbols of length 1."
   (flet ((do-error (control args)
 	   (error 'simple-type-error
@@ -144,16 +146,16 @@
       (string (if (= 1 (length (the string object)))
 		  (char object 0)
 		  (do-error
-		   "String is not of length one: ~S" (list object))))
+		   _"String is not of length one: ~S" (list object))))
       (symbol (if (= 1 (length (symbol-name object)))
 		  (schar (symbol-name object) 0)
 		  (do-error
-		   "Symbol name is not of length one: ~S" (list object))))
-      (t (do-error "~S cannot be coerced to a character." (list object))))))
+		   _"Symbol name is not of length one: ~S" (list object))))
+      (t (do-error _"~S cannot be coerced to a character." (list object))))))
 
 
 (defun char-name (char)
-  "Given a character object, char-name returns the name for that
+  _N"Given a character object, char-name returns the name for that
   object (a symbol)."
   (let ((name (car (rassoc char char-name-alist))))
     (if name
@@ -169,7 +171,7 @@
 	      (format nil "U+~4,'0X" code))))))
 
 (defun name-char (name)
-  "Given an argument acceptable to string, name-char returns a character
+  _N"Given an argument acceptable to string, name-char returns a character
   object whose name is that symbol, if one exists, otherwise NIL."
   (if (and (stringp name) (> (length name) 2) (string-equal name "U+" :end1 2))
       (code-char (parse-integer name :radix 16 :start 1))
@@ -186,7 +188,7 @@
 ;;;; Predicates:
 
 (defun standard-char-p (char)
-  "The argument must be a character object.  Standard-char-p returns T if the
+  _N"The argument must be a character object.  Standard-char-p returns T if the
    argument is a standard character -- one of the 95 ASCII printing characters
    or <return>."
   (declare (character char))
@@ -196,12 +198,12 @@
 	     (= n 10)))))
 
 (defun %standard-char-p (thing)
-  "Return T if and only if THING is a standard-char.  Differs from
+  _N"Return T if and only if THING is a standard-char.  Differs from
   standard-char-p in that THING doesn't have to be a character."
   (and (characterp thing) (standard-char-p thing)))
 
 (defun graphic-char-p (char)
-  "The argument must be a character object.  Graphic-char-p returns T if the
+  _N"The argument must be a character object.  Graphic-char-p returns T if the
   argument is a printing character, otherwise returns NIL."
   (declare (character char))
   (and (typep char 'base-char)
@@ -213,7 +215,7 @@
 
 
 (defun alpha-char-p (char)
-  "The argument must be a character object.  Alpha-char-p returns T if the
+  _N"The argument must be a character object.  Alpha-char-p returns T if the
   argument is an alphabetic character; otherwise NIL."
   (declare (character char))
   (let ((m (char-code char)))
@@ -225,7 +227,7 @@
 
 
 (defun upper-case-p (char)
-  "The argument must be a character object; upper-case-p returns T if the
+  _N"The argument must be a character object; upper-case-p returns T if the
   argument is an upper-case character, NIL otherwise."
   (declare (character char))
   (let ((m (char-code char)))
@@ -236,7 +238,7 @@
 
 
 (defun lower-case-p (char)
-  "The argument must be a character object; lower-case-p returns T if the 
+  _N"The argument must be a character object; lower-case-p returns T if the 
   argument is a lower-case character, NIL otherwise."
   (declare (character char))
   (let ((m (char-code char)))
@@ -246,7 +248,7 @@
 	     (= (unicode-category m) +unicode-category-lower+)))))
 
 (defun title-case-p (char)
-  "The argument must be a character object; title-case-p returns T if the
+  _N"The argument must be a character object; title-case-p returns T if the
   argument is a title-case character, NIL otherwise."
   (declare (character char))
   (let ((m (char-code char)))
@@ -257,7 +259,7 @@
 
 
 (defun both-case-p (char)
-  "The argument must be a character object.  Both-case-p returns T if the
+  _N"The argument must be a character object.  Both-case-p returns T if the
   argument is an alphabetic character and if the character exists in
   both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
   (declare (character char))
@@ -271,7 +273,7 @@
 
 
 (defun digit-char-p (char &optional (radix 10.))
-  "If char is a digit in the specified radix, returns the fixnum for
+  _N"If char is a digit in the specified radix, returns the fixnum for
   which that digit stands, else returns NIL.  Radix defaults to 10
   (decimal)."
   (declare (character char) (type (integer 2 36) radix))
@@ -291,7 +293,7 @@
 
 
 (defun alphanumericp (char)
-  "Given a character-object argument, alphanumericp returns T if the
+  _N"Given a character-object argument, alphanumericp returns T if the
   argument is either numeric or alphabetic."
   (declare (character char))
   (let ((m (char-code char)))
@@ -304,14 +306,14 @@
 
 
 (defun char= (character &rest more-characters)
-  "Returns T if all of its arguments are the same character."
+  _N"Returns T if all of its arguments are the same character."
   (do ((clist more-characters (cdr clist)))
       ((atom clist) T)
     (unless (eq (car clist) character) (return nil))))
 
 
 (defun char/= (character &rest more-characters)
-  "Returns T if no two of its arguments are the same character."
+  _N"Returns T if no two of its arguments are the same character."
   (do* ((head character (car list))
 	(list more-characters (cdr list)))
        ((atom list) T)
@@ -322,7 +324,7 @@
 
 
 (defun char< (character &rest more-characters)
-  "Returns T if its arguments are in strictly increasing alphabetic order."
+  _N"Returns T if its arguments are in strictly increasing alphabetic order."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
        ((atom list) T)
@@ -332,7 +334,7 @@
 
 
 (defun char> (character &rest more-characters)
-  "Returns T if its arguments are in strictly decreasing alphabetic order."
+  _N"Returns T if its arguments are in strictly decreasing alphabetic order."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
        ((atom list) T)
@@ -342,7 +344,7 @@
 
 
 (defun char<= (character &rest more-characters)
-  "Returns T if its arguments are in strictly non-decreasing alphabetic order."
+  _N"Returns T if its arguments are in strictly non-decreasing alphabetic order."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
        ((atom list) T)
@@ -352,7 +354,7 @@
 
 
 (defun char>= (character &rest more-characters)
-  "Returns T if its arguments are in strictly non-increasing alphabetic order."
+  _N"Returns T if its arguments are in strictly non-increasing alphabetic order."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
        ((atom list) T)
@@ -377,7 +379,7 @@
 
 
 (defun char-equal (character &rest more-characters)
-  "Returns T if all of its arguments are the same character.
+  _N"Returns T if all of its arguments are the same character.
    Case is ignored."
   (do ((clist more-characters (cdr clist)))
       ((atom clist) T)
@@ -387,7 +389,7 @@
 
 
 (defun char-not-equal (character &rest more-characters)
-  "Returns T if no two of its arguments are the same character.
+  _N"Returns T if no two of its arguments are the same character.
    Case is ignored."
   (do* ((head character (car list))
 	(list more-characters (cdr list)))
@@ -401,7 +403,7 @@
 
 
 (defun char-lessp (character &rest more-characters)
-  "Returns T if its arguments are in strictly increasing alphabetic order.
+  _N"Returns T if its arguments are in strictly increasing alphabetic order.
    Case is ignored."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
@@ -412,7 +414,7 @@
 
 
 (defun char-greaterp (character &rest more-characters)
-  "Returns T if its arguments are in strictly decreasing alphabetic order.
+  _N"Returns T if its arguments are in strictly decreasing alphabetic order.
    Case is ignored."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
@@ -423,7 +425,7 @@
 
 
 (defun char-not-greaterp (character &rest more-characters)
-  "Returns T if its arguments are in strictly non-decreasing alphabetic order.
+  _N"Returns T if its arguments are in strictly non-decreasing alphabetic order.
    Case is ignored."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
@@ -434,7 +436,7 @@
 
 
 (defun char-not-lessp (character &rest more-characters)
-  "Returns T if its arguments are in strictly non-increasing alphabetic order.
+  _N"Returns T if its arguments are in strictly non-increasing alphabetic order.
    Case is ignored."
   (do* ((c character (car list))
 	(list more-characters (cdr list)))
@@ -449,7 +451,7 @@
 ;;;; Miscellaneous functions:
 
 (defun char-upcase (char)
-  "Returns CHAR converted to upper-case if that is possible."
+  _N"Returns CHAR converted to upper-case if that is possible."
   (declare (character char))
   #-(and unicode (not unicode-bootstrap))
   (if (lower-case-p char)
@@ -462,7 +464,7 @@
 	  (t char))))
 
 (defun char-titlecase (char)
-  "Returns CHAR converted to title-case if that is possible."
+  _N"Returns CHAR converted to title-case if that is possible."
   (declare (character char))
   #-(and unicode (not unicode-bootstrap))
   (if (lower-case-p char)
@@ -475,7 +477,7 @@
 	  (t char))))
 
 (defun char-downcase (char)
-  "Returns CHAR converted to lower-case if that is possible."
+  _N"Returns CHAR converted to lower-case if that is possible."
   (declare (character char))
   #-(and unicode (not unicode-bootstrap))
   (if (upper-case-p char)
@@ -488,7 +490,7 @@
 	  (t char))))
 
 (defun digit-char (weight &optional (radix 10))
-  "All arguments must be integers.  Returns a character object that
+  _N"All arguments must be integers.  Returns a character object that
   represents a digit of the given weight in the specified radix.  Returns
   NIL if no such character exists."
   (declare (type (integer 2 36) radix) (type unsigned-byte weight))
diff --git a/code/class.lisp b/code/class.lisp
index 973509a26e48e103490c25306af723f0ce677f05..62362b63817c029cf0f5c9412fda1dd829a2c700 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.62 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.63 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (export '(layout layout-hash layout-hash-length layout-hash-max
 	  initialize-layout-hash layout-class layout-invalid
 	  layout-inherits layout-inheritance-depth layout-length
@@ -93,7 +95,7 @@
 		    (lambda (s stream d)
 		      (declare (ignore d))
 		      (print-unreadable-object (s stream :identity t)
-			(format stream "Layout for ~S~@[, Invalid=~S~]"
+			(format stream _"Layout for ~S~@[, Invalid=~S~]"
 				(class-proper-name (layout-class s))
 				(layout-invalid s)))))
 		   (:make-load-form-fun :ignore-it)
@@ -165,7 +167,7 @@
   (setf (%instance-ref layout (1+ i)) new-value))
 
 (defconstant layout-hash-max (ash most-positive-fixnum -3)
-  "The inclusive upper bound on LAYOUT-HASH values.")
+  _N"The inclusive upper bound on LAYOUT-HASH values.")
 
 (defvar *layout-hash-seed* nil)
 
@@ -209,7 +211,7 @@
 	  (unless (eql depth -1)
 	    (let ((old-layout (svref inherits depth)))
 	      (unless (or (eql old-layout 0) (eq old-layout layout))
-		(error "Layout depth conflict: ~S~%  ~
+		(error _"Layout depth conflict: ~S~%  ~
 		        (~S collides at ~S with ~S)~%"
 		       layouts layout depth old-layout)))
 	    (setf (svref inherits depth) layout))))
@@ -287,14 +289,14 @@
   (let ((name (%class-name class)))
     (unless (and name (eq (find-class name nil) class))
       (error
-       "Can't use anonymous or undefined class as constant:~%  ~S"
+       _"Can't use anonymous or undefined class as constant:~%  ~S"
        class))
     `(find-class ',name)))
 ;;;
 (defun %print-class (s stream d)
   (declare (ignore d))
   (print-unreadable-object (s stream :identity t :type t)
-    (format stream "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
+    (format stream _"~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
 	    (%class-name s) (%class-state s))))
 
 
@@ -388,7 +390,7 @@
 ;;; FIND-CLASS  --  Public
 ;;;
 (defun find-class (name &optional (errorp t) environment)
-  "Return the class with the specified Name.  If ERRORP is false, then NIL is
+  _N"Return the class with the specified Name.  If ERRORP is false, then NIL is
    returned when no such class exists."
   (declare (type symbol name) (ignore environment))
   (let ((res (class-cell-class (find-class-cell name))))
@@ -397,7 +399,7 @@
 	(error 'simple-type-error
 	       :datum name
 	       :expected-type t		; Not really
-	       :format-control "Class not yet defined:~%  ~S"
+	       :format-control _"Class not yet defined:~%  ~S"
 	       :format-arguments (list name)))))
 ;;;
 (defun (setf find-class) (new-value name &optional (errorp t) environment)
@@ -407,7 +409,7 @@
      ;; Clear info db if name names a class
      (ecase (info type kind name)
        (:primitive
-	(error "Illegal to redefine standard type ~S." name))
+	(error _"Illegal to redefine standard type ~S." name))
        (:defined)
        ((nil))
        (:instance
@@ -422,12 +424,12 @@
 	(let ((old (class-of (find-class name)))
 	      (new (class-of new-value)))
 	  (unless (eq old new)
-	    (warn "Changing meta-class of ~S from ~S to ~S."
+	    (warn _"Changing meta-class of ~S from ~S to ~S."
 		  name (%class-name old) (%class-name new)))))
        (:primitive
-	(error "Illegal to redefine standard type ~S." name))
+	(error _"Illegal to redefine standard type ~S." name))
        (:defined
-	(warn "Redefining DEFTYPE type to be a class: ~S."
+	(warn _"Redefining DEFTYPE type to be a class: ~S."
 	      name)
 	(setf (info type expander name) nil)))
      
@@ -1018,7 +1020,7 @@
 ;;;
 (declaim (inline class-of))
 (defun class-of (object)
-  "Return the class of the supplied object, which may be any Lisp object, not
+  _N"Return the class of the supplied object, which may be any Lisp object, not
    just a CLOS STANDARD-OBJECT."
   (layout-class (layout-of object)))
 
@@ -1033,7 +1035,7 @@
 (defun modify-class (class)
   (clear-type-caches)
   (when (member (%class-state class) '(:read-only :frozen))
-    (warn "Modifing ~(~A~) class ~S; making it writable."
+    (warn _"Modifing ~(~A~) class ~S; making it writable."
 	  (%class-state class) (%class-name class))
     (setf (%class-state class) nil)))
 
@@ -1107,7 +1109,7 @@
 				     (make-hash-table :test #'eq)))))
 	  (when (and (eq (%class-state super) :sealed)
 		     (not (gethash class subclasses)))
-	    (warn "Subclassing sealed class ~S; unsealing it."
+	    (warn _"Subclassing sealed class ~S; unsealing it."
 		  (%class-name super))
 	    (setf (%class-state super) :read-only))
 	  (setf (gethash class subclasses)
@@ -1137,7 +1139,7 @@
 	      (newi (layout-inherits new)))
 	  (or (when (mismatch oldi newi :key #'layout-proper-name)
 		(warn
-		 "Change in superclasses of class ~S:~%  ~
+		 _"Change in superclasses of class ~S:~%  ~
 		  ~A superclasses: ~S~%  ~
 		  ~A superclasses: ~S"
 		 name
@@ -1147,7 +1149,7 @@
 	      (let ((diff (mismatch oldi newi)))
 		(when diff
 		  (warn
-		   "In class ~S:~%  ~
+		   _"In class ~S:~%  ~
 		    ~:(~A~) definition of superclass ~S incompatible with~%  ~
 		    ~A definition."
 		   name old-context (layout-proper-name (svref oldi diff))
@@ -1156,7 +1158,7 @@
 	(let ((old-len (layout-length old))
 	      (new-len (layout-length new)))
 	  (unless (= old-len new-len)
-	    (warn "Change in instance length of class ~S:~%  ~
+	    (warn _"Change in instance length of class ~S:~%  ~
 		   ~A length: ~D~%  ~
 		   ~A length: ~D"
 		  name
@@ -1165,7 +1167,7 @@
 	    t))
 	(when (/= (layout-inheritance-depth old)
 		  (layout-inheritance-depth new))
-	  (warn "Change in the inheritance structure of class ~S~%  ~
+	  (warn _"Change in the inheritance structure of class ~S~%  ~
 		 between the ~A definition and the ~A definition."
 		name old-context new-context)
 	  t))))
@@ -1204,18 +1206,20 @@
 	  #-bootstrap-dynamic-extent
 	  ((redefine-layout-warning old "current" res "compile time")
 	   (restart-case
-	       (error "Loading a reference to class ~S when the compile~
+	       (error _"Loading a reference to class ~S when the compile~
 		       ~%  time definition was incompatible with the current ~
 		       one."
 		      name)
 	     (continue ()
-	       :report "Invalidate current definition."
-	       (warn "New definition of ~S must be loaded eventually." name)
+	       :report (lambda (stream)
+			 (write-string _"Invalidate current definition." stream))
+	       (warn _"New definition of ~S must be loaded eventually." name)
 	       (invalidate-layout old)
 	       (setf (gethash name *forward-referenced-layouts*) res))
 	     (clobber-it ()
-	       :report "Smash current layout, preserving old code."
-	       (warn "Any old ~S instances will be in a bad way.~@
+	       :report (lambda (stream)
+			 (write-string _"Smash current layout, preserving old code." stream))
+	       (warn _"Any old ~S instances will be in a bad way.~@
 		      I hope you know what you're doing..."
 		     name)
 	       (setf (layout-inherits old) inherits)
@@ -1223,8 +1227,9 @@
 	       (setf (layout-length old) length)
 	       old)
 	     (use-current ()
-	       :report "Ignore the incompatibility, leave class alone."
-	       (warn "Assuming the current definition of ~S is correct, and~@
+	       :report (lambda (stream)
+			 (write-string _"Ignore the incompatibility, leave class alone." stream))
+	       (warn _"Assuming the current definition of ~S is correct, and~@
 		      that the loaded code doesn't care about the ~
 		      incompatibility."
 		     name)
@@ -1275,7 +1280,7 @@
        (cond ((endp free-objs)
 	      (do-hash (obj info obj-info)
 		(unless (zerop (first info))
-		  (error "Topological sort failed due to constraint on ~S."
+		  (error _"Topological sort failed due to constraint on ~S."
 			 obj)))
 	      (return (nreverse result)))
 	     ((endp (rest free-objs))
@@ -1336,7 +1341,7 @@
 	    ((eq (%class-layout class) layout)
 	     (remhash name *forward-referenced-layouts*))
 	    (t
-	     (warn "Something strange with forward layout for ~S:~%  ~S"
+	     (warn _"Something strange with forward layout for ~S:~%  ~S"
 		   name layout))))))
 
 (emit-cold-load-defuns "CLASS")
diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp
index 4aa5119eebad813d56f649ab79aaa80c7a21a5a5..4866cda9327efbf351d4a048d392db0fab8c381b 100644
--- a/code/clx-ext.lisp
+++ b/code/clx-ext.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.21 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.22 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 
 (in-package "EXTENSIONS")
 
+(intl:textdomain "cmucl")
+
 (export '(open-clx-display with-clx-event-handling enable-clx-event-handling
 	  disable-clx-event-handling object-set-event-handler
 	  default-clx-event-handler
@@ -41,7 +43,7 @@
 ;;; New version to interface with "telent-clx".
 #+(and)
 (defun open-clx-display (&optional display-name)
-  "Open a connection to DISPLAY-NAME if supplied, or to the appropriate
+  _N"Open a connection to DISPLAY-NAME if supplied, or to the appropriate
 default display as given by GET-DEFAULT-DISPLAY otherwise."
   (destructuring-bind (host display screen protocol)
       (xlib::get-default-display display-name)
@@ -55,7 +57,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 (defun open-clx-display (&optional (string (cdr (assoc :display
 						       *environment-list*
 						       :test #'eq))))
-  "Parses the display specifier STRING, including display and screen numbers.
+  _N"Parses the display specifier STRING, including display and screen numbers.
    STRING defaults to the value of the  DISPLAY environment variable.  If STRING
    is non-nil, and any fields are missing in the specification, this signals an
    error.  If you specify a screen, then this sets XLIB:DISPLAY-DEFAULT-SCREEN
@@ -70,14 +72,14 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
       (declare (simple-string string))
       (let ((colon (position #\: string :test #'char=)))
 	(cond ((null colon)
-	       (error "Missing display number in DISPLAY environment variable."))
+	       (error _"Missing display number in DISPLAY environment variable."))
 	      (t
 	       (unless (zerop colon) (setf host-name (subseq string 0 colon)))
 	       (let* ((start (1+ colon))
 		      (first-dot (position #\. string
 					   :test #'char= :start start)))
 		 (cond ((= start (or first-dot length))
-			(error "Badly formed display number in DISPLAY ~
+			(error _"Badly formed display number in DISPLAY ~
 				environment variable."))
 		       ((null first-dot)
 			(setf display-num (parse-integer string :start start)))
@@ -88,7 +90,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 			       (second-dot (position #\. string :test #'char=
 						     :start start)))
 			  (cond ((= start (or second-dot length))
-				 (error "Badly formed screen number in ~
+				 (error _"Badly formed screen number in ~
 					 DISPLAY environment variable."))
 				(t
 				 (setf screen-num
@@ -100,7 +102,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 		 (num-screens (length screens)))
 	    (when (>= screen-num num-screens)
 	      (xlib:close-display display)
-	      (error "No such screen number (~D)." screen-num))
+	      (error _"No such screen number (~D)." screen-num))
 	    (setf (xlib:display-default-screen display)
 		  (elt screens screen-num))))
 	(values display (xlib:display-default-screen display))))))
@@ -110,7 +112,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 
 (defun carefully-add-font-paths (display font-pathnames
 					 &optional (operation :append))
-  "Adds the list of font pathnames, Font-Pathnames, to the font path of
+  _N"Adds the list of font pathnames, Font-Pathnames, to the font path of
   the server Display but does so carefully by checking to make sure that
   the font pathnames are not already on the server's font path.  If any
   of the font pathnames are on the server's font path, they will remain
@@ -137,13 +139,13 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Enabling and disabling event handling through SYSTEM:SERVE-EVENT.
 
 (defvar *clx-fds-to-displays* (make-hash-table :test #'eql)
-  "This is a hash table that maps CLX file descriptors to CLX display
+  _N"This is a hash table that maps CLX file descriptors to CLX display
    structures.  For every CLX file descriptor know to SYSTEM:SERVE-EVENT,
    there must be a mapping from that file descriptor to its CLX display
    structure when events are handled via SYSTEM:SERVE-EVENT.")
 
 (defmacro with-clx-event-handling ((display handler) &rest body)
-  "Evaluates body in a context where events are handled for the display
+  _N"Evaluates body in a context where events are handled for the display
    by calling handler on the display.  This destroys any previously established
    handler for display."
   `(unwind-protect
@@ -160,7 +162,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;; *clx-fds-to-displays*, so the user's handler can be called on the display.
 ;;;
 (defun enable-clx-event-handling (display handler)
-  "After calling this, when SYSTEM:SERVE-EVENT notices input on display's
+  _N"After calling this, when SYSTEM:SERVE-EVENT notices input on display's
    connection to the X11 server, handler is called on the display.  Handler
    is invoked in a dynamic context with an error handler bound that will
    flush all events from the display and return.  By returning, it declines
@@ -197,20 +199,20 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 			     (fd-stream-fd
 			      (xlib::display-input-stream
 			       (car d/h))))))
-      (error "File descriptor ~S not associated with any CLX display.~%~
+      (error _"File descriptor ~S not associated with any CLX display.~%~
                 It has been removed from system:serve-event's knowledge."
 	     file-descriptor))
     (let ((handler (cdr (assoc display *display-event-handlers*))))
       (unless handler
 	(flush-display-events display)
-	(error "Display ~S not associated with any event handler." display))
+	(error _"Display ~S not associated with any event handler." display))
       (handler-bind ((error #'(lambda (condx)
 				(declare (ignore condx))
 				(flush-display-events display))))
 	(funcall handler display)))))
 
 (defun disable-clx-event-handling (display)
-  "Undoes the effect of EXT:ENABLE-CLX-EVENT-HANDLING."
+  _N"Undoes the effect of EXT:ENABLE-CLX-EVENT-HANDLING."
   (setf *display-event-handlers*
 	(delete display *display-event-handlers* :key #'car))
   (let ((fd (fd-stream-fd (xlib::display-input-stream display))))
@@ -234,7 +236,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 (declaim (declaration values))
 
 (defun object-set-event-handler (display)
-  "This display event handler uses object sets to map event windows cross
+  _N"This display event handler uses object sets to map event windows cross
    event types to handlers.  It uses XLIB:EVENT-CASE to bind all the slots
    of each event, calling the handlers on all these values in addition to
    the event key and send-event-p.  Describe EXT:SERVE-MUMBLE, where mumble
@@ -253,12 +255,12 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 		  (unless object
 		    (cond ((not (typep event-window 'xlib:window))
 			   (xlib:discard-current-event display)
-			   (warn "Discarding ~S event on non-window ~S."
+			   (warn _"Discarding ~S event on non-window ~S."
 				 ,event-key event-window)
 			   (return-from object-set-event-handler nil))
 			  (t
 			   (flush-display-events display)
-			   (error "~S not a known X window.~%~
+			   (error _"~S not a known X window.~%~
 			           Received event ~S."
 				  event-window ,event-key))))
 		  (handler-bind ((error #'(lambda (condx)
@@ -306,7 +308,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 	(:FOCUS-OUT (event-window mode kind send-event-p)
 	 (dispatch :focus-out event-window mode kind send-event-p))
 	(:KEYMAP-NOTIFY ()
-	 (warn "Ignoring keymap notify event.")
+	 (warn _"Ignoring keymap notify event.")
 	 (when *object-set-event-handler-print*
 	   (print :keymap-notify) (force-output))
 	 (setf result t))
@@ -363,7 +365,7 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 	 (dispatch :colormap-notify event-window colormap new-p installed-p
 		   send-event-p))
 	(:MAPPING-NOTIFY (request)
-	 (warn "Ignoring mapping notify event -- ~S." request)
+	 (warn _"Ignoring mapping notify event -- ~S." request)
 	 (when *object-set-event-handler-print*
 	   (print :mapping-notify) (force-output))
 	 (setf result t))
@@ -374,11 +376,11 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 (defun default-clx-event-handler (object event-key event-window &rest ignore)
   (declare (ignore ignore))
   (flush-display-events *process-clx-event-display*)
-  (error "No handler for event type ~S on ~S in ~S."
+  (error _"No handler for event type ~S on ~S in ~S."
 	 event-key object (lisp::map-xwindow event-window)))
 
 (defun flush-display-events (display)
-  "Dumps all the events in display's event queue including the current one
+  _N"Dumps all the events in display's event queue including the current one
    in case this is called from within XLIB:EVENT-CASE, etc."
   (xlib:discard-current-event display)
   (xlib:event-case (display :discard-p t :timeout 0)
@@ -389,28 +391,28 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Key and button service.
 
 (defun serve-key-press (object-set fun)
-  "Associate a method in the object-set with :key-press events.  The method
+  _N"Associate a method in the object-set with :key-press events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, code, and
    send-event-p."
   (setf (gethash :key-press (lisp::object-set-table object-set)) fun))
 
 (defun serve-key-release (object-set fun)
-  "Associate a method in the object-set with :key-release events.  The method
+  _N"Associate a method in the object-set with :key-release events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, code, and
    send-event-p."
   (setf (gethash :key-release (lisp::object-set-table object-set)) fun))
 
 (defun serve-button-press (object-set fun)
-  "Associate a method in the object-set with :button-press events.  The method
+  _N"Associate a method in the object-set with :button-press events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, code, and
    send-event-p."
   (setf (gethash :button-press (lisp::object-set-table object-set)) fun))
 
 (defun serve-button-release (object-set fun)
-  "Associate a method in the object-set with :button-release events.  The
+  _N"Associate a method in the object-set with :button-release events.  The
    method is called on the object the event occurred, event key, event window,
    root, child, same-screen-p, x, y, root-x, root-y, state, time, code, and
    send-event-p."
@@ -421,21 +423,21 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Mouse service.
 
 (defun serve-motion-notify (object-set fun)
-  "Associate a method in the object-set with :motion-notify events.  The method
+  _N"Associate a method in the object-set with :motion-notify events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, hint-p, and
    send-event-p."
   (setf (gethash :motion-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-enter-notify (object-set fun)
-  "Associate a method in the object-set with :enter-notify events.  The method
+  _N"Associate a method in the object-set with :enter-notify events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, mode, kind,
    and send-event-p."
   (setf (gethash :enter-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-leave-notify (object-set fun)
-  "Associate a method in the object-set with :leave-notify events.  The method
+  _N"Associate a method in the object-set with :leave-notify events.  The method
    is called on the object the event occurred, event key, event window, root,
    child, same-screen-p, x, y, root-x, root-y, state, time, mode, kind,
    and send-event-p."
@@ -446,13 +448,13 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Keyboard service.
 
 (defun serve-focus-in (object-set fun)
-  "Associate a method in the object-set with :focus-in events.  The method
+  _N"Associate a method in the object-set with :focus-in events.  The method
    is called on the object the event occurred, event key, event window, mode,
    kind, and send-event-p."
   (setf (gethash :focus-in (lisp::object-set-table object-set)) fun))
 
 (defun serve-focus-out (object-set fun) 
-  "Associate a method in the object-set with :focus-out events.  The method
+  _N"Associate a method in the object-set with :focus-out events.  The method
    is called on the object the event occurred, event key, event window, mode,
    kind, and send-event-p."
   (setf (gethash :focus-out (lisp::object-set-table object-set)) fun))
@@ -462,19 +464,19 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Exposure service.
 
 (defun serve-exposure (object-set fun)
-  "Associate a method in the object-set with :exposure events.  The method
+  _N"Associate a method in the object-set with :exposure events.  The method
    is called on the object the event occurred, event key, event window, x, y,
    width, height, count, and send-event-p."
   (setf (gethash :exposure (lisp::object-set-table object-set)) fun))
 
 (defun serve-graphics-exposure (object-set fun)
-  "Associate a method in the object-set with :graphics-exposure events.  The
+  _N"Associate a method in the object-set with :graphics-exposure events.  The
    method is called on the object the event occurred, event key, event window,
    x, y, width, height, count, major, minor, and send-event-p."
   (setf (gethash :graphics-exposure (lisp::object-set-table object-set)) fun))
 
 (defun serve-no-exposure (object-set fun)
-  "Associate a method in the object-set with :no-exposure events.  The method
+  _N"Associate a method in the object-set with :no-exposure events.  The method
    is called on the object the event occurred, event key, event window, major,
    minor, and send-event-p."
   (setf (gethash :no-exposure (lisp::object-set-table object-set)) fun))
@@ -484,82 +486,82 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Structure service.
 
 (defun serve-visibility-notify (object-set fun)
-  "Associate a method in the object-set with :visibility-notify events.  The
+  _N"Associate a method in the object-set with :visibility-notify events.  The
    method is called on the object the event occurred, event key, event window,
    state, and send-event-p."
   (setf (gethash :visibility-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-create-notify (object-set fun)
-  "Associate a method in the object-set with :create-notify events.  The
+  _N"Associate a method in the object-set with :create-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, x, y, width, height, border-width, override-redirect-p, and
    send-event-p."
   (setf (gethash :create-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-destroy-notify (object-set fun)
-  "Associate a method in the object-set with :destroy-notify events.  The
+  _N"Associate a method in the object-set with :destroy-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, and send-event-p."
   (setf (gethash :destroy-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-unmap-notify (object-set fun)
-  "Associate a method in the object-set with :unmap-notify events.  The
+  _N"Associate a method in the object-set with :unmap-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, configure-p, and send-event-p."
   (setf (gethash :unmap-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-map-notify (object-set fun)
-  "Associate a method in the object-set with :map-notify events.  The
+  _N"Associate a method in the object-set with :map-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, override-redirect-p, and send-event-p."
   (setf (gethash :map-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-map-request (object-set fun)
-  "Associate a method in the object-set with :map-request events.  The
+  _N"Associate a method in the object-set with :map-request events.  The
    method is called on the object the event occurred, event key, event window,
    window, and send-event-p."
   (setf (gethash :map-request (lisp::object-set-table object-set)) fun))
 
 (defun serve-reparent-notify (object-set fun)
-  "Associate a method in the object-set with :reparent-notify events.  The
+  _N"Associate a method in the object-set with :reparent-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, parent, x, y, override-redirect-p, and send-event-p."
   (setf (gethash :reparent-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-configure-notify (object-set fun)
-  "Associate a method in the object-set with :configure-notify events.  The
+  _N"Associate a method in the object-set with :configure-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, x, y, width, height, border-width, above-sibling,
    override-redirect-p, and send-event-p."
   (setf (gethash :configure-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-gravity-notify (object-set fun)
-  "Associate a method in the object-set with :gravity-notify events.  The
+  _N"Associate a method in the object-set with :gravity-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, x, y, and send-event-p."
   (setf (gethash :gravity-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-resize-request (object-set fun)
-  "Associate a method in the object-set with :resize-request events.  The
+  _N"Associate a method in the object-set with :resize-request events.  The
    method is called on the object the event occurred, event key, event window,
    width, height, and send-event-p."
   (setf (gethash :resize-request (lisp::object-set-table object-set)) fun))
 
 (defun serve-configure-request (object-set fun)
-  "Associate a method in the object-set with :configure-request events.  The
+  _N"Associate a method in the object-set with :configure-request events.  The
    method is called on the object the event occurred, event key, event window,
    window, x, y, width, height, border-width, stack-mode, above-sibling,
    value-mask, and send-event-p."
   (setf (gethash :configure-request (lisp::object-set-table object-set)) fun))
 
 (defun serve-circulate-notify (object-set fun)
-  "Associate a method in the object-set with :circulate-notify events.  The
+  _N"Associate a method in the object-set with :circulate-notify events.  The
    method is called on the object the event occurred, event key, event window,
    window, place, and send-event-p."
   (setf (gethash :circulate-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-circulate-request (object-set fun)
-  "Associate a method in the object-set with :circulate-request events.  The
+  _N"Associate a method in the object-set with :circulate-request events.  The
    method is called on the object the event occurred, event key, event window,
    window, place, and send-event-p."
   (setf (gethash :circulate-request (lisp::object-set-table object-set)) fun))
@@ -569,37 +571,37 @@ default display as given by GET-DEFAULT-DISPLAY otherwise."
 ;;;; Misc. service.
 
 (defun serve-property-notify (object-set fun)
-  "Associate a method in the object-set with :property-notify events.  The
+  _N"Associate a method in the object-set with :property-notify events.  The
    method is called on the object the event occurred, event key, event window,
    atom, state, time, and send-event-p."
   (setf (gethash :property-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-selection-clear (object-set fun)
-  "Associate a method in the object-set with :selection-clear events.  The
+  _N"Associate a method in the object-set with :selection-clear events.  The
    method is called on the object the event occurred, event key, event window,
    selection, time, and send-event-p."
   (setf (gethash :selection-clear (lisp::object-set-table object-set)) fun))
 
 (defun serve-selection-request (object-set fun)
-  "Associate a method in the object-set with :selection-request events.  The
+  _N"Associate a method in the object-set with :selection-request events.  The
    method is called on the object the event occurred, event key, event window,
    requestor, selection, target, property, time, and send-event-p."
   (setf (gethash :selection-request (lisp::object-set-table object-set)) fun))
 
 (defun serve-selection-notify (object-set fun)
-  "Associate a method in the object-set with :selection-notify events.  The
+  _N"Associate a method in the object-set with :selection-notify events.  The
    method is called on the object the event occurred, event key, event window,
    selection, target, property, time, and send-event-p."
   (setf (gethash :selection-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-colormap-notify (object-set fun)
-  "Associate a method in the object-set with :colormap-notify events.  The
+  _N"Associate a method in the object-set with :colormap-notify events.  The
    method is called on the object the event occurred, event key, event window,
    colormap, new-p, installed-p, and send-event-p."
   (setf (gethash :colormap-notify (lisp::object-set-table object-set)) fun))
 
 (defun serve-client-message (object-set fun)
-  "Associate a method in the object-set with :client-message events.  The
+  _N"Associate a method in the object-set with :client-message events.  The
    method is called on the object the event occurred, event key, event window,
    format, data, and send-event-p."
   (setf (gethash :client-message (lisp::object-set-table object-set)) fun))
diff --git a/code/commandline.lisp b/code/commandline.lisp
index e77d58670633750c1bf04333118955fcfe26691f..5162ead61245f81353fcf9fb95f5c53491159235 100644
--- a/code/commandline.lisp
+++ b/code/commandline.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.17 2009/01/06 01:11:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.18 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,9 @@
 ;;;
 
 (in-package "EXTENSIONS")
+
+(intl:textdomain "cmucl")
+
 (export '(*command-line-application-arguments* *command-line-words* *command-line-switches*
 	  *command-switch-demons* *command-line-utility-name*
 	  *command-line-strings* *batch-mode*
@@ -22,26 +25,26 @@
 	  defswitch cmd-switch-arg get-command-line-switch))
 
 (defvar *command-line-application-arguments* ()
-  "A list of all the command line arguments after --")
+  _N"A list of all the command line arguments after --")
 
 (defvar *command-line-switches* ()
-  "A list of cmd-switch's representing the arguments used to invoke
+  _N"A list of cmd-switch's representing the arguments used to invoke
   this process.")
 
 (defvar *command-line-utility-name* ""
-  "The string name that was used to invoke this process.")
+  _N"The string name that was used to invoke this process.")
 
 (defvar *command-line-words* ()
-  "A list of words between the utility name and the first switch.")
+  _N"A list of words between the utility name and the first switch.")
 
 (defvar *command-line-strings* ()
-  "A list of strings obtained from the command line that invoked this process.")
+  _N"A list of strings obtained from the command line that invoked this process.")
 
 (defvar *command-switch-demons* ()
-  "An Alist of (\"argument-name\" . demon-function)")
+  _N"An Alist of (\"argument-name\" . demon-function)")
 
 (defvar *batch-mode* nil
-  "When True runs lisp with its input coming from standard-input.
+  _N"When True runs lisp with its input coming from standard-input.
    If an error is detected returns error code 1, otherwise 0.")
 
 (defstruct (command-line-switch (:conc-name cmd-switch-)
@@ -125,7 +128,7 @@
 	    (setq str (pop cmd-strings))))))))
 
 (defun get-command-line-switch (sname)
-  "Accepts the name of a switch as a string and returns the value of the
+  _N"Accepts the name of a switch as a string and returns the value of the
    switch.  If no value was specified, then any following words are returned.
    If there are no following words, then t is returned.  If the switch was not
    specified, then nil is returned."
@@ -143,7 +146,7 @@
 ;;;; Defining Switches and invoking demons.
 
 (defvar *complain-about-illegal-switches* t
-  "When set, invoking switch demons complains about illegal switches that have
+  _N"When set, invoking switch demons complains about illegal switches that have
    not been defined with DEFSWITCH.")
 
 ;;; This is a list of legal switch names.  DEFSWITCH sets this, and
@@ -164,11 +167,11 @@
       (cond (demon (funcall demon switch))
 	    ((or (member name *legal-cmd-line-switches* :test #'string-equal)
 		 (not *complain-about-illegal-switches*)))
-	    (t (warn "~S is an illegal switch" switch)))
+	    (t (warn _"~S is an illegal switch" switch)))
       (lisp::finish-standard-output-streams))))
 
 (defmacro defswitch (name &optional function)
-  "Associates function with the switch name in *command-switch-demons*.  Name
+  _N"Associates function with the switch name in *command-switch-demons*.  Name
    is a simple-string that does not begin with a hyphen, unless the switch name
    really does begin with one.  Function is optional, but defining the switch
    is necessary to keep invoking switch demons from complaining about illegal
@@ -178,7 +181,7 @@
     `(let ((,gname ,name)
 	   (,gfunction ,function))
        (check-type ,gname simple-string)
-       (check-type ,gfunction (or symbol function) "a symbol or function")
+       (check-type ,gfunction (or symbol function) _"a symbol or function")
        (push ,gname *legal-cmd-line-switches*)
        (when ,gfunction
 	 (push (cons ,gname ,gfunction) *command-switch-demons*)))))
diff --git a/code/cprofile.lisp b/code/cprofile.lisp
index a3e8ef8ae2d0829cbda3ad81e3882abf15f45176..f6f7e5827c97eae2436943524e80ad726f3ebe88 100644
--- a/code/cprofile.lisp
+++ b/code/cprofile.lisp
@@ -5,13 +5,15 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/cprofile.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/cprofile.lisp,v 1.3 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; This file contains run-time support for collecting dynamic profiling
 ;;; information from code instrumented by the compiler.
 ;;; 
+(intl:textdomain "cmucl")
+
 (defpackage "CPROFILE"
   (:use "C" "DI" "KERNEL" "EXTENSIONS" "LISP" "SYSTEM"))
 (in-package "C")
@@ -20,7 +22,7 @@
 
 (eval-when (compile)
   (when *collect-dynamic-statistics*
-    (error "You don't want to compile this file with profiling.")))
+    (error _"You don't want to compile this file with profiling.")))
 
 
 ;;; Represents a single high-cost code object we've pulled out of memory.
@@ -61,7 +63,7 @@
 	     (lambda (s stream d)
 	       (declare (ignore d))
 	       (print-unreadable-object (s stream :type t :identity t)
-		 (format stream "~A, top ~D, cost ~S" (selection-name s)
+		 (format stream _"~A, top ~D, cost ~S" (selection-name s)
 			 (length (selection-elements s))
 			 (selection-total-cost s))))))
   ;;
@@ -76,7 +78,7 @@
 
 
 (defconstant count-me-cost-fudge 3d0
-  "Our guess is to how many cycles in each block are really due to
+  _N"Our guess is to how many cycles in each block are really due to
    profiling.")
 
 ;;; SAVE-SELECT-RESULT  --  Internal
@@ -131,7 +133,7 @@
 ;;; CLEAR-PROFILE-INFO  --  Public
 ;;;
 (defun clear-profile-info (&optional (spaces '(:dynamic)))
-  "Clear all profiling counts.  Call this before running your test."
+  _N"Clear all profiling counts.  Call this before running your test."
   (declare (inline vm::map-allocated-objects)
 	   (optimize (speed 3) (safety 0)))
   (without-gcing
@@ -198,7 +200,7 @@
 
     (loop
       (unless res
-	(error "No profilable code objects found."))
+	(error _"No profilable code objects found."))
       (unless (minusp (selection-elt-cost (first res))) (return))
       (pop res))
 
@@ -225,8 +227,8 @@
 	    repeat top-n do
 	(format t "~,2E: ~S~%" cost name)
 	(incf total cost))
-      (format t "~,2E: Total~%" total)
-      (format t "~,2E: Other~%" (- (selection-total-cost selection) total))))
+      (format t _"~,2E: Total~%" total)
+      (format t _"~,2E: Other~%" (- (selection-total-cost selection) total))))
 
   (values))
 
@@ -279,7 +281,7 @@
 ;;;
 (defun function-cycles (name selection &key (top-n 15) (combine t))
   (declare (type selection selection))
-  "Print detailed information about the costs associated with a particular
+  _N"Print detailed information about the costs associated with a particular
    function in a SELECTION of dynamic statistics.  All functions with names
    EQUAL to the specified name are reported.  If Combine is true, then
    all blocks with the same source location are combined into a single entry in
@@ -321,7 +323,7 @@
 
     (let ((locs (stable-sort (locs) #'>= :key #'second)))
       (dolist (loc (subseq locs 0 (min (length locs) top-n)))
-	(format t "~%~,2E cycles, ~[not run, ~;~:; ~:*~D repeats, ~]~
+	(format t _"~%~,2E cycles, ~[not run, ~;~:; ~:*~D repeats, ~]~
 		   ~S:~%    "
 		(second loc)
 		(truncate (third loc))
@@ -398,16 +400,16 @@
       (unless (string= package-name (second e))
 	(setf package-name (second e))
 	(when (> other cost)
-	  (format t " ~10:D: Other~&" other))
+	  (format t _" ~10:D: Other~&" other))
 	(setf i 0)
 	(setf other 0)
 	(when (> (third e) cost)
-	  (format t "Package: ~A~&" package-name)))
+	  (format t _"Package: ~A~&" package-name)))
       (cond ((< i top-n)
 	     (when (> (third e) cost)
-	       (format t " ~10:D: ~S~&" (third e) (first e))))
+	       (format t _" ~10:D: ~S~&" (third e) (first e))))
 	    (t
 	     (incf other (third e))))
       (incf i))
     (when (> other cost)
-      (format t " ~10:D: Other~&" other))))
+      (format t _" ~10:D: Other~&" other))))
diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index 18b7bbe61f394dd01447fe1380b016ea3099c3f5..12c84f1bdef32dd9694e9f689dd23a92eaef7a04 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-info.lisp,v 1.29 2010/01/22 13:36:06 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-info.lisp,v 1.30 2010/03/19 15:18:58 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 ;;;
 (in-package "C")
 
+(intl:textdomain "cmucl")
+
 (export '(make-sc-offset sc-offset-scn sc-offset-offset
 	  read-var-integer write-var-integer
 	  read-var-string write-var-string
diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index fd9e7b801c3d907ef534e83a713852efd6e81833..24658e900b91e07b266f5f597a9738fce69134f4 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.137 2009/10/10 03:00:03 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.138 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 
 (in-package "DEBUG-INTERNALS")
 
+(intl:textdomain "cmucl")
 
 ;;; The compiler's debug-source structure is almost exactly what we want, so
 ;;; just get these symbols and export them.
@@ -95,28 +96,28 @@
 (define-condition debug-condition (serious-condition)
   ()
   (:documentation
-   "All debug-conditions inherit from this type.  These are serious conditions
+   _N"All debug-conditions inherit from this type.  These are serious conditions
     that must be handled, but they are not programmer errors."))
 
 (define-condition no-debug-info (debug-condition)
   ()
-  (:documentation "There is absolutely no debugging information available.")
+  (:documentation _N"There is absolutely no debugging information available.")
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
 	     (fresh-line stream)
-	     (write-line "No debugging information available." stream))))
+	     (write-line _"No debugging information available." stream))))
 
 (define-condition no-debug-function-returns (debug-condition)
   ((debug-function :reader no-debug-function-returns-debug-function
 		   :initarg :debug-function))
   (:documentation
-   "The system could not return values from a frame with debug-function since
+   _"The system could not return values from a frame with debug-function since
     it lacked information about returning values.")
   (:report (lambda (condition stream)
 	     (let ((fun (debug-function-function
 			 (no-debug-function-returns-debug-function condition))))
 	       (format stream
-		       "~&Cannot return values from ~:[frame~;~:*~S~] since ~
+		       _"~&Cannot return values from ~:[frame~;~:*~S~] since ~
 			the debug information lacks details about returning ~
 			values here."
 		       fun)))))
@@ -124,27 +125,27 @@
 (define-condition no-debug-blocks (debug-condition)
   ((debug-function :reader no-debug-blocks-debug-function
 		   :initarg :debug-function))
-  (:documentation "The debug-function has no debug-block information.")
+  (:documentation _N"The debug-function has no debug-block information.")
   (:report (lambda (condition stream)
-	     (format stream "~&~S has no debug-block information."
+	     (format stream _"~&~S has no debug-block information."
 		     (no-debug-blocks-debug-function condition)))))
 
 (define-condition no-debug-variables (debug-condition)
   ((debug-function :reader no-debug-variables-debug-function
 		   :initarg :debug-function))
-  (:documentation "The debug-function has no debug-variable information.")
+  (:documentation _N"The debug-function has no debug-variable information.")
   (:report (lambda (condition stream)
-	     (format stream "~&~S has no debug-variable information."
+	     (format stream _"~&~S has no debug-variable information."
 		     (no-debug-variables-debug-function condition)))))
 
 (define-condition lambda-list-unavailable (debug-condition)
   ((debug-function :reader lambda-list-unavailable-debug-function
 		   :initarg :debug-function))
   (:documentation
-   "The debug-function has no lambda-list since argument debug-variables are
+   _N"The debug-function has no lambda-list since argument debug-variables are
     unavailable.")
   (:report (lambda (condition stream)
-	     (format stream "~&~S has no lambda-list information available."
+	     (format stream _"~&~S has no lambda-list information available."
 		     (lambda-list-unavailable-debug-function condition)))))
 
 (define-condition invalid-value (debug-condition)
@@ -152,7 +153,7 @@
 		   :initarg :debug-variable)
    (frame :reader invalid-value-frame :initarg :frame))
   (:report (lambda (condition stream)
-	     (format stream "~&~S has :invalid or :unknown value in ~S."
+	     (format stream _"~&~S has :invalid or :unknown value in ~S."
 		     (invalid-value-debug-variable condition)
 		     (invalid-value-frame condition)))))
 
@@ -160,7 +161,7 @@
   ((name :reader ambiguous-variable-name-name :initarg :name)
    (frame :reader ambiguous-variable-name-frame :initarg :frame))
   (:report (lambda (condition stream)
-	     (format stream "~&~S names more than one valid variable in ~S."
+	     (format stream _"~&~S names more than one valid variable in ~S."
 		     (ambiguous-variable-name-name condition)
 		     (ambiguous-variable-name-frame condition)))))
 
@@ -177,20 +178,20 @@
 
 (define-condition debug-error (error) ()
   (:documentation
-   "All programmer errors from using the interface for building debugging
+   _N"All programmer errors from using the interface for building debugging
     tools inherit from this type."))
 
 (define-condition unhandled-condition (debug-error)
   ((condition :reader unhandled-condition-condition :initarg :condition))
   (:report (lambda (condition stream)
-	     (format stream "~&Unhandled debug-condition:~%~A"
+	     (format stream _"~&Unhandled debug-condition:~%~A"
 		     (unhandled-condition-condition condition)))))
 
 (define-condition unknown-code-location (debug-error)
   ((code-location :reader unknown-code-location-code-location
 		  :initarg :code-location))
   (:report (lambda (condition stream)
-	     (format stream "~&Invalid use of an unknown code-location -- ~S."
+	     (format stream _"~&Invalid use of an unknown code-location -- ~S."
 		     (unknown-code-location-code-location condition)))))
 
 (define-condition unknown-debug-variable (debug-error)
@@ -199,7 +200,7 @@
    (debug-function :reader unknown-debug-variable-debug-function
 		   :initarg :debug-function))
   (:report (lambda (condition stream)
-	     (format stream "~&~S not in ~S."
+	     (format stream _"~&~S not in ~S."
 		     (unknown-debug-variable-debug-variable condition)
 		     (unknown-debug-variable-debug-function condition)))))
 
@@ -208,7 +209,7 @@
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
 	     (fresh-line stream)
-	     (write-string "Invalid control stack pointer." stream))))
+	     (write-string _"Invalid control stack pointer." stream))))
 
 (define-condition frame-function-mismatch (debug-error)
   ((code-location :reader frame-function-mismatch-code-location
@@ -217,7 +218,7 @@
    (form :reader frame-function-mismatch-form :initarg :form))
   (:report (lambda (condition stream)
 	     (format stream
-		     "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
+		     _"~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
 		     (frame-function-mismatch-code-location condition)
 		     (frame-function-mismatch-frame condition)
 		     (frame-function-mismatch-form condition)))))
@@ -277,15 +278,15 @@
 	  (debug-variable-id obj)))
 
 (setf (documentation 'debug-variable-name 'function)
-  "Returns the name of the debug-variable.  The name is the name of the symbol
+  _N"Returns the name of the debug-variable.  The name is the name of the symbol
    used as an identifier when writing the code.")
 
 (setf (documentation 'debug-variable-package 'function)
-  "Returns the package name of the debug-variable.  This is the package name of
+  _N"Returns the package name of the debug-variable.  This is the package name of
    the symbol used as an identifier when writing the code.")
 
 (setf (documentation 'debug-variable-id 'function)
-  "Returns the integer that makes debug-variable's name and package name unique
+  _N"Returns the integer that makes debug-variable's name and package name unique
    with respect to other debug-variable's in the same function.")
 
 
@@ -344,14 +345,14 @@
   (number 0 :type index))
 
 (setf (documentation 'frame-up 'function)
-  "Returns the frame immediately above frame on the stack.  When frame is
+  _N"Returns the frame immediately above frame on the stack.  When frame is
    the top of the stack, this returns nil.")
 
 (setf (documentation 'frame-debug-function 'function)
-  "Returns the debug-function for the function whose call frame represents.")
+  _N"Returns the debug-function for the function whose call frame represents.")
 
 (setf (documentation 'frame-code-location 'function)
-  "Returns the code-location where the frame's debug-function will continue
+  _N"Returns the code-location where the frame's debug-function will continue
    running when program execution returns to this frame.  If someone
    interrupted this frame, the result could be an unknown code-location.")
 
@@ -377,7 +378,7 @@
 
 (defun print-compiled-frame (obj str n)
   (declare (ignore n))
-  (format str "#<Compiled-Frame ~S~:[~;, interrupted~]>"
+  (format str _"#<Compiled-Frame ~S~:[~;, interrupted~]>"
 	  (debug-function-name (frame-debug-function obj))
 	  (compiled-frame-escaped obj)))
 
@@ -431,7 +432,7 @@
 
 (defun print-debug-function (obj str n)
   (declare (ignore n))
-  (format str "#<~A-Debug-Function ~S>"
+  (format str _"#<~A-Debug-Function ~S>"
 	  (etypecase obj
 	    (compiled-debug-function "Compiled")
 	    (interpreted-debug-function "Interpreted")
@@ -523,11 +524,11 @@
 	  (debug-block-function-name obj)))
 
 (setf (documentation 'debug-block-successors 'function)
-  "Returns the list of possible code-locations where execution may continue
+  _N"Returns the list of possible code-locations where execution may continue
    when the basic-block represented by debug-block completes its execution.")
 
 (setf (documentation 'debug-block-elsewhere-p 'function)
-  "Returns whether debug-block represents elsewhere code.")
+  _N"Returns whether debug-block represents elsewhere code.")
 
 
 (defstruct (compiled-debug-block (:include debug-block)
@@ -683,14 +684,14 @@
 	      (debug-function (breakpoint-kind obj))))))
 
 (setf (documentation 'breakpoint-hook-function 'function)
-  "Returns the breakpoint's function the system calls when execution encounters
+  _N"Returns the breakpoint's function the system calls when execution encounters
    the breakpoint, and it is active.  This is SETF'able.")
 
 (setf (documentation 'breakpoint-what 'function)
-  "Returns the breakpoint's what specification.")
+  _N"Returns the breakpoint's what specification.")
 
 (setf (documentation 'breakpoint-kind 'function)
-  "Returns the breakpoint's kind specification.")
+  _N"Returns the breakpoint's kind specification.")
 
 ;;;
 ;;; Code-locations.
@@ -735,7 +736,7 @@
 	  (debug-function-name (code-location-debug-function obj))))
 
 (setf (documentation 'code-location-debug-function 'function)
-  "Returns the debug-function representing information about the function
+  _N"Returns the debug-function representing information about the function
    corresponding to the code-location.")
 
 
@@ -775,7 +776,7 @@
 (declaim (inline debug-source-root-number))
 ;;;
 (defun debug-source-root-number (debug-source)
-  "Returns the number of top-level forms processed by the compiler before
+  _N"Returns the number of top-level forms processed by the compiler before
    compiling this source.  If this source is uncompiled, this is zero.  This
    may be zero even if the source is compiled since the first form in the first
    file compiled in one compilation, for example, must have a root number of
@@ -783,34 +784,34 @@
   (c::debug-source-source-root debug-source))
 
 (setf (documentation 'c::debug-source-from 'function)
-  "Returns an indication of the type of source.  The following are the possible
+  _N"Returns an indication of the type of source.  The following are the possible
    values:
       :file    from a file (obtained by COMPILE-FILE if compiled).
       :lisp    from Lisp (obtained by COMPILE if compiled).
       :stream  from a non-file stream.")
 
 (setf (documentation 'c::debug-source-name 'function)
-  "Returns the actual source in some sense represented by debug-source, which
+  _N"Returns the actual source in some sense represented by debug-source, which
    is related to DEBUG-SOURCE-FROM:
       :file    the pathname of the file.
       :lisp    a lambda-expression.
       :stream  some descriptive string that's otherwise useless.")
 
 (setf (documentation 'c::debug-source-created 'function)
-  "Returns the universal time someone created the source.  This may be nil if
+  _N"Returns the universal time someone created the source.  This may be nil if
    it is unavailable.")
 
 (setf (documentation 'c::debug-source-compiled 'function)
-  "Returns the time someone compiled the source.  This is nil if the source
+  _N"Returns the time someone compiled the source.  This is nil if the source
    is uncompiled.")
 
 (setf (documentation 'c::debug-source-start-positions 'function)
-  "This function returns the file position of each top-level form as an array
+  _N"This function returns the file position of each top-level form as an array
    if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or :stream,
    this returns nil.")
 
 (setf (documentation 'c::debug-source-p 'function)
-  "Returns whether object is a debug-source.")
+  _N"Returns whether object is a debug-source.")
 
 
 
@@ -993,7 +994,7 @@
 ;;; TOP-FRAME -- Public.
 ;;;
 (defun top-frame ()
-  "Returns the top frame of the control stack as it was before calling this
+  _N"Returns the top frame of the control stack as it was before calling this
    function."
   (multiple-value-bind (fp pc)
       (kernel:%caller-frame-and-pc)
@@ -1006,7 +1007,7 @@
 ;;; FLUSH-FRAMES-ABOVE -- public.
 ;;; 
 (defun flush-frames-above (frame)
-  "Flush all of the frames above FRAME, and renumber all the frames below
+  _N"Flush all of the frames above FRAME, and renumber all the frames below
    FRAME."
   (setf (frame-up frame) nil)
   (do ((number 0 (1+ number))
@@ -1020,7 +1021,7 @@
 ;;; COMPUTE-CALLING-FRAME.
 ;;;
 (defun frame-down (frame)
-  "Returns the frame immediately below frame on the stack.  When frame is
+  _N"Returns the frame immediately below frame on the stack.  When frame is
    the bottom of the stack, this returns nil."
   (let ((down (frame-%down frame)))
     (if (eq down :unparsed)
@@ -1132,7 +1133,7 @@
 
 
 (defvar *debugging-interpreter* nil
-  "When set, the debugger foregoes making interpreted-frames, so you can
+  _N"When set, the debugger foregoes making interpreted-frames, so you can
    debug the functions that manifest the interpreter.")
 
 ;;; POSSIBLY-AN-INTERPRETED-FRAME -- Internal.
@@ -1154,7 +1155,7 @@
 	       (let ((vars (di:ambiguous-debug-variables
 			    (di:frame-debug-function frame) name)))
 		 (when (or (null vars) (> (length vars) 1))
-		   (error "Zero or more than one ~A variable in ~
+		   (error _"Zero or more than one ~A variable in ~
 			   EVAL::INTERNAL-APPLY-LOOP?"
 			  (string-downcase name)))
 		 (if (eq (debug-variable-validity (car vars) location)
@@ -1181,7 +1182,7 @@
 
 #+(or sparc (and x86 darwin) (and (or x86 amd64) linux))
 (defun find-foreign-function-name (address)
-  "Return a string describing the foreign function near ADDRESS"
+  _N"Return a string describing the foreign function near ADDRESS"
   (let ((addr (sys:sap-int address)))
     (alien:with-alien ((info (alien:struct dl-info
 					   (filename c-call:c-string)
@@ -1193,7 +1194,7 @@
 			       :extern "dladdr"))
       (let ((err (alien:alien-funcall dladdr addr (alien:addr info))))
 	(cond ((zerop err)
-	       "Foreign function call land")
+	       _"Foreign function call land")
 	      (t
 	       (format nil "~A+#x~x [#x~X] ~A"
 		       (alien:slot info 'symbol)
@@ -1205,10 +1206,10 @@
 #-(or sparc (and x86 darwin) (and (or x86 amd64) linux))
 (defun find-foreign-function-name (ra)
   (declare (ignore ra))
-  "Foreign function call land")
+  _N"Foreign function call land")
 
 (defun assembly-routines-p (component)
-  "Return t if COMPONENT contains code from assembly routines."
+  _N"Return t if COMPONENT contains code from assembly routines."
   (let ((start (sap-int (kernel:code-instructions component))))
     (maphash (lambda (_ addr)
 	       (declare (ignore _))
@@ -1217,7 +1218,7 @@
 	     lisp::*assembler-routines*)))
 
 (defun find-assembly-routine-name (component pc)
-  "Return the name of the assembly routine at offset PC in COMPONENT.
+  _N"Return the name of the assembly routine at offset PC in COMPONENT.
 The result is a symbol or nil if the routine cannot be found."
   (let* ((start (sap-int (kernel:code-instructions component)))
 	 (end (+ start (* (kernel::%code-code-size component) 
@@ -1294,7 +1295,7 @@ The result is a symbol or nil if the routine cannot be found."
 			      (debug-function-from-pc code pc-offset)
 			    (no-debug-info ()
 			      (make-bogus-debug-function
-			       (format nil "no debug info: ~A:~A"
+			       (format nil _"no debug info: ~A:~A"
 				       code pc-offset))))))))
 	    (make-compiled-frame caller up-frame d-fun
 				 (code-location-from-pc d-fun pc-offset
@@ -1452,7 +1453,7 @@ The result is a symbol or nil if the routine cannot be found."
 
 #-(or gengc x86 amd64)
 (defun find-pc-from-assembly-fun (code scp)
-  "find the PC"
+  _N"find the PC"
   (let ((return-machine-address
 	 #-ppc
 	  (- (vm:sigcontext-register scp vm::lra-offset)
@@ -1758,7 +1759,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; FRAME-CATCHES -- Public.
 ;;;
 (defun frame-catches (frame)
-  "Returns an a-list mapping catch tags to code-locations.  These are
+  _N"Returns an a-list mapping catch tags to code-locations.  These are
    code-locations at which execution would continue with frame as the top
    frame if someone threw to the corresponding tag."
   (let ((catch
@@ -1841,7 +1842,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defmacro do-debug-function-blocks ((block-var debug-function &optional result)
 				    &body body)
-  "Executes the forms in a context with block-var bound to each debug-block in
+  _N"Executes the forms in a context with block-var bound to each debug-block in
    debug-function successively.  Result is an optional form to execute for
    return values, and DO-DEBUG-FUNCTION-BLOCKS returns nil if there is no
    result form.  This signals a no-debug-blocks condition when the
@@ -1858,7 +1859,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defmacro do-debug-function-variables ((var debug-function &optional result)
 				       &body body)
-  "Executes body in a context with var bound to each debug-variable in
+  _N"Executes body in a context with var bound to each debug-variable in
    debug-function.  This returns the value of executing result (defaults to
    nil).  This may iterate over only some of debug-function's variables or none
    depending on debug policy; for example, possibly the compilation only
@@ -1876,7 +1877,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-FUNCTION-FUNCTION -- Public.
 ;;;
 (defun debug-function-function (debug-function)
-  "Returns the Common Lisp function associated with the debug-function.  This
+  _N"Returns the Common Lisp function associated with the debug-function.  This
    returns nil if the function is unavailable or is non-existent as a user
    callable function object."
   (let ((cached-value (debug-function-%function debug-function)))
@@ -1909,7 +1910,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-FUNCTION-NAME -- Public.
 ;;;
 (defun debug-function-name (debug-function)
-  "Returns the name of the function represented by debug-function.  This may
+  _N"Returns the name of the function represented by debug-function.  This may
    be a string or a cons; do not assume it is a symbol."
   (etypecase debug-function
     (compiled-debug-function
@@ -1926,7 +1927,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; If LOCAL-NAME is given, try to return the debug function for the
 ;;; local function (labels or flet).
 (defun function-debug-function (fun &key local-name)
-  "Returns a debug-function that represents debug information for function."
+  _N"Returns a debug-function that represents debug information for function."
   (case (get-type fun)
     (#.vm:closure-header-type
      (function-debug-function (%closure-function fun)))
@@ -1966,7 +1967,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-FUNCTION-KIND -- Public.
 ;;;
 (defun debug-function-kind (debug-function)
-  "Returns the kind of the function which is one of :optional, :external,
+  _N"Returns the kind of the function which is one of :optional, :external,
    :top-level, :cleanup, nil."
   (etypecase debug-function
     (compiled-debug-function
@@ -1980,13 +1981,13 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-VARIABLE-INFO-AVAILABLE -- Public.
 ;;;
 (defun debug-variable-info-available (debug-function)
-  "Returns whether there is any variable information for debug-function."
+  _N"Returns whether there is any variable information for debug-function."
   (not (not (debug-function-debug-variables debug-function))))
 
 ;;; DEBUG-FUNCTION-SYMBOL-VARIABLES -- Public.
 ;;;
 (defun debug-function-symbol-variables (debug-function symbol)
-  "Returns a list of debug-variables in debug-function having the same name
+  _N"Returns a list of debug-variables in debug-function having the same name
    and package as symbol.  If symbol is uninterned, then this returns a list of
    debug-variables without package names and with the same name as symbol.  The
    result of this function is limited to the availability of variable
@@ -2007,7 +2008,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; AMBIGUOUS-DEBUG-VARIABLES -- Public.
 ;;;
 (defun ambiguous-debug-variables (debug-function name-prefix-string)
-   "Returns a list of debug-variables in debug-function whose names contain
+   _N"Returns a list of debug-variables in debug-function whose names contain
     name-prefix-string as an intial substring.  The result of this function is
     limited to the availability of variable information in debug-function; for
     example, possibly debug-function only knows about its arguments."
@@ -2057,7 +2058,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-FUNCTION-LAMBDA-LIST -- Public.
 ;;;
 (defun debug-function-lambda-list (debug-function)
-  "Returns a list representing the lambda-list for debug-function.  The list
+  _N"Returns a list representing the lambda-list for debug-function.  The list
    has the following structure:
       (required-var1 required-var2
        ...
@@ -2259,7 +2260,7 @@ The result is a symbol or nil if the routine cannot be found."
   (let ((ele (aref args i)))
     (cond ((not (symbolp ele)) (svref vars ele))
 	  ((eq ele 'c::deleted) :deleted)
-	  (t (error "Malformed arguments description.")))))
+	  (t (error _"Malformed arguments description.")))))
 
 ;;; COMPILED-DEBUG-FUNCTION-DEBUG-INFO -- Internal.
 ;;;
@@ -2691,7 +2692,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; :unsure part to get the HANDLER-CASE into another function.
 ;;;
 (defun code-location-unknown-p (basic-code-location)
-  "Returns whether basic-code-location is unknown.  It returns nil when the
+  _N"Returns whether basic-code-location is unknown.  It returns nil when the
    code-location is known."
   (ecase (code-location-%unknown-p basic-code-location)
     ((t) t)
@@ -2704,7 +2705,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; CODE-LOCATION-DEBUG-BLOCK -- Public.
 ;;;
 (defun code-location-debug-block (basic-code-location)
-  "Returns the debug-block containing code-location if it is available.  Some
+  _N"Returns the debug-block containing code-location if it is available.  Some
    debug policies inhibit debug-block information, and if none is available,
    then this signals a no-debug-blocks condition."
   (let ((block (code-location-%debug-block basic-code-location)))
@@ -2772,7 +2773,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; CODE-LOCATION-DEBUG-SOURCE -- Public.
 ;;;
 (defun code-location-debug-source (code-location)
-  "Returns the code-location's debug-source."
+  _N"Returns the code-location's debug-source."
   (etypecase code-location
     (compiled-code-location
      (let* ((info (compiled-debug-function-debug-info
@@ -2804,7 +2805,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; CODE-LOCATION-TOP-LEVEL-FORM-OFFSET -- Public.
 ;;;
 (defun code-location-top-level-form-offset (code-location)
-  "Returns the number of top-level forms before the one containing
+  _N"Returns the number of top-level forms before the one containing
    code-location as seen by the compiler in some compilation unit.  A
    compilation unit is not necessarily a single file, see the section on
    debug-sources."
@@ -2817,7 +2818,7 @@ The result is a symbol or nil if the routine cannot be found."
 	      (unless (fill-in-code-location code-location)
 		;; This check should be unnecessary.  We're missing debug info
 		;; the compiler should have dumped.
-		(error "Unknown code location?  It should be known."))
+		(error _"Unknown code location?  It should be known."))
 	      (code-location-%tlf-offset code-location))
 	     (interpreted-code-location
 	      (setf (code-location-%tlf-offset code-location)
@@ -2829,7 +2830,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; CODE-LOCATION-FORM-NUMBER -- Public.
 ;;;
 (defun code-location-form-number (code-location)
-  "Returns the number of the form corresponding to code-location.  The form
+  _N"Returns the number of the form corresponding to code-location.  The form
    number is derived by a walking the subforms of a top-level form in
    depth-first order."
   (when (code-location-unknown-p code-location)
@@ -2841,7 +2842,7 @@ The result is a symbol or nil if the routine cannot be found."
 	      (unless (fill-in-code-location code-location)
 		;; This check should be unnecessary.  We're missing debug info
 		;; the compiler should have dumped.
-		(error "Unknown code location?  It should be known."))
+		(error _"Unknown code location?  It should be known."))
 	      (code-location-%form-number code-location))
 	     (interpreted-code-location
 	      (setf (code-location-%form-number code-location)
@@ -2853,7 +2854,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; CODE-LOCATION-KIND -- Public
 ;;; 
 (defun code-location-kind (code-location)
-  "Return the kind of CODE-LOCATION, one of:
+  _N"Return the kind of CODE-LOCATION, one of:
      :interpreted, :unknown-return, :known-return, :internal-error,
      :non-local-exit, :block-start, :call-site, :single-value-return,
      :non-local-entry"
@@ -2866,7 +2867,7 @@ The result is a symbol or nil if the routine cannot be found."
              ((not (fill-in-code-location code-location))
               ;; This check should be unnecessary.  We're missing
               ;; debug info the compiler should have dumped.
-              (error "Unknown code location?  It should be known."))
+              (error _"Unknown code location?  It should be known."))
              (t
               (compiled-code-location-kind code-location)))))
     (interpreted-code-location
@@ -2886,14 +2887,14 @@ The result is a symbol or nil if the routine cannot be found."
 	       (unless (fill-in-code-location code-location)
 		 ;; This check should be unnecessary.  We're missing debug info
 		 ;; the compiler should have dumped.
-		 (error "Unknown code location?  It should be known."))
+		 (error _"Unknown code location?  It should be known."))
 	       (compiled-code-location-%live-set code-location))
 	      (t live-set)))))
 
 ;;; CODE-LOCATION= -- Public.
 ;;;
 (defun code-location= (obj1 obj2)
-  "Returns whether obj1 and obj2 are the same place in the code."
+  _N"Returns whether obj1 and obj2 are the same place in the code."
   (etypecase obj1
     (compiled-code-location
      (etypecase obj2
@@ -2954,7 +2955,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defmacro do-debug-block-locations ((code-var debug-block &optional return)
 				    &body body)
-  "Executes forms in a context with code-var bound to each code-location in
+  _N"Executes forms in a context with code-var bound to each code-location in
    debug-block.  This returns the value of executing result (defaults to nil)."
   (let ((code-locations (gensym))
 	(i (gensym)))
@@ -2967,14 +2968,14 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-BLOCK-FUNCTION-NAME -- Internal.
 ;;;
 (defun debug-block-function-name (debug-block)
-  "Returns the name of the function represented by debug-function.  This may
+  _N"Returns the name of the function represented by debug-function.  This may
    be a string or a cons; do not assume it is a symbol."
   (etypecase debug-block
     (compiled-debug-block
      (let ((code-locs (compiled-debug-block-code-locations debug-block)))
        (declare (simple-vector code-locs))
        (if (zerop (length code-locs))
-	   "??? Can't get name of debug-block's function."
+	   _"??? Can't get name of debug-block's function."
 	   (debug-function-name
 	    (code-location-debug-function (svref code-locs 0))))))
     (interpreted-debug-block
@@ -3015,7 +3016,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-VARIABLE-SYMBOL -- Public.
 ;;;
 (defun debug-variable-symbol (debug-var)
-  "Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named
+  _N"Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named
    by DEBUG-VARIABLE-PACKAGE."
   (let ((package (debug-variable-package debug-var)))
     (if package
@@ -3025,7 +3026,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-VARIABLE-VALID-VALUE -- Public.
 ;;;
 (defun debug-variable-valid-value (debug-var frame)
-  "Returns the value stored for debug-variable in frame.  If the value is not
+  _N"Returns the value stored for debug-variable in frame.  If the value is not
    :valid, then this signals an invalid-value error."
   (unless (eq (debug-variable-validity debug-var (frame-code-location frame))
 	      :valid)
@@ -3035,7 +3036,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-VARIABLE-VALUE -- Public.
 ;;;
 (defun debug-variable-value (debug-var frame)
-  "Returns the value stored for debug-variable in frame.  The value may be
+  _N"Returns the value stored for debug-variable in frame.  The value may be
    invalid.  This is SETF'able."
   (etypecase debug-var
     (compiled-debug-variable
@@ -3124,9 +3125,9 @@ The result is a symbol or nil if the routine cannot be found."
        (with-escaped-value (val)
 	 val))
       (#.vm:non-descriptor-reg-sc-number
-       (error "Local non-descriptor register access?"))
+       (error _"Local non-descriptor register access?"))
       (#.vm:interior-reg-sc-number
-       (error "Local interior register access?"))
+       (error _"Local interior register access?"))
       (#.vm:single-reg-sc-number
        (escaped-float-value single-float))
       (#.vm:double-reg-sc-number
@@ -3545,7 +3546,7 @@ The result is a symbol or nil if the routine cannot be found."
       (#.vm:unsigned-reg-sc-number
        (set-escaped-value value))
       (#.vm:non-descriptor-reg-sc-number
-       (error "Local non-descriptor register access?"))
+       (error _"Local non-descriptor register access?"))
       (#.vm:interior-reg-sc-number
        (error "Local interior register access?"))
       (#.vm:single-reg-sc-number
@@ -3762,7 +3763,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; in the code-location.
 ;;;
 (defun debug-variable-validity (debug-var basic-code-loc)
-  "Returns three values reflecting the validity of debug-variable's value
+  _N"Returns three values reflecting the validity of debug-variable's value
    at basic-code-location:
       :valid    The value is known to be available.
       :invalid  The value is known to be unavailable.
@@ -3849,7 +3850,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; is the top-level-form number.
 ;;;
 (defun form-number-translations (form tlf-number)
-  "This returns a table mapping form numbers to source-paths.  A source-path
+  _N"This returns a table mapping form numbers to source-paths.  A source-path
    indicates a descent into the top-level-form form, going directly to the
    subform corressponding to the form number."
   (clrhash *form-number-circularity-table*)
@@ -3884,7 +3885,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; SOURCE-PATH-CONTEXT  --  Public.
 ;;;
 (defun source-path-context (form path context)
-  "Form is a top-level form, and path is a source-path into it.  This returns
+  _N"Form is a top-level form, and path is a source-path into it.  This returns
    the form indicated by the source-path.  Context is the number of enclosing
    forms to return instead of directly returning the source-path form.  When
    context is non-zero, the form returned contains a marker, #:****HERE****,
@@ -3897,7 +3898,7 @@ The result is a symbol or nil if the routine cannot be found."
     (dotimes (i (- (length path) context))
       (let ((index (first path)))
 	(unless (and (listp form) (< index (length form)))
-	  (error "Source path no longer exists."))
+	  (error _"Source path no longer exists."))
 	(setq form (elt form index))
 	(setq path (rest path))))
     ;;
@@ -3928,7 +3929,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; accesses that variable from the frame argument.
 ;;;
 (defun preprocess-for-eval (form loc)
-  "Return a function of one argument that evaluates form in the lexical
+  _N"Return a function of one argument that evaluates form in the lexical
    context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a
    no-debug-variables condition when the loc's debug-function has no
    debug-variable information available.  The returned function takes the frame
@@ -3945,7 +3946,7 @@ The result is a symbol or nil if the routine cannot be found."
       ;;; however, might still be useful.
       #+nil
       (debug-signal 'no-debug-variables :debug-function fun)
-      (warn "~&~S has no debug-variable information." fun))
+      (warn _"~&~S has no debug-variable information." fun))
     (ext:collect ((binds) (symbol-macros) (special-binds))
       (do-debug-function-variables (var fun)
 	(let ((validity (debug-variable-validity var loc)))
@@ -3991,7 +3992,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defun eval-in-frame (frame form)
   (declare (type frame frame))
-  "Evaluate Form in the lexical context of Frame's current code location,
+  _N"Evaluate Form in the lexical context of Frame's current code location,
    returning the results of the evaluation."
   (funcall (preprocess-for-eval form (frame-code-location frame)) frame))
 
@@ -4000,7 +4001,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 ;;; helper function, used also by debug:debug-return.
 (defun find-debug-tag-for-frame (frame)
-  "Find and return the debug catch tag for a given frame, if it exists."
+  _N"Find and return the debug catch tag for a given frame, if it exists."
   (assoc-if #'(lambda (x)
 		(and (symbolp x)
 		     (not (symbol-package x))
@@ -4012,7 +4013,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defun return-from-frame (frame form)
   (declare (type frame frame))
-  "Evaluate Form in the lexical context of Frame's current code location,
+  _N"Evaluate Form in the lexical context of Frame's current code location,
    returning from the current frame the results of the evaluation."
   (let ((tag (find-debug-tag-for-frame frame)))
     (when tag (throw (car tag) (eval-in-frame frame form)))))
@@ -4027,7 +4028,7 @@ The result is a symbol or nil if the routine cannot be found."
 
 (defun make-breakpoint (hook-function what
 			&key (kind :code-location) info function-end-cookie)
-  "This creates and returns a breakpoint.  When program execution encounters
+  _N"This creates and returns a breakpoint.  When program execution encounters
    the breakpoint, the system calls hook-function.  Hook-function takes the
    current frame for the function in which the program is running and the
    breakpoint object.
@@ -4053,13 +4054,13 @@ The result is a symbol or nil if the routine cannot be found."
   (etypecase what
     (code-location
      (when (code-location-unknown-p what)
-       (error "Cannot make a breakpoint at an unknown code location -- ~S."
+       (error _"Cannot make a breakpoint at an unknown code location -- ~S."
 	      what))
      (assert (eq kind :code-location))
      (let ((bpt (%make-breakpoint hook-function what kind info)))
        (etypecase what
 	 (interpreted-code-location
-	  (error "Breakpoints in interpreted code are currently unsupported."))
+	  (error _"Breakpoints in interpreted code are currently unsupported."))
 	 (compiled-code-location
 	  ;; This slot is filled in due to calling CODE-LOCATION-UNKNOWN-P.
 	  (when (eq (compiled-code-location-kind what) :unknown-return)
@@ -4090,10 +4091,10 @@ The result is a symbol or nil if the routine cannot be found."
 		   (setf (breakpoint-cookie-fun bpt) function-end-cookie)
 		   bpt))
 		(t
-		 (error ":FUNCTION-END breakpoints are currently unsupported ~
+		 (error _":FUNCTION-END breakpoints are currently unsupported ~
 		       for the known return convention.")))))))
     (interpreted-debug-function
-     (error ":function-end breakpoints are currently unsupported ~
+     (error _":function-end breakpoints are currently unsupported ~
 	     for interpreted-debug-functions."))))
 
 (defun can-set-function-end-breakpoint-p (what)
@@ -4174,7 +4175,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; FUNCTION-END-COOKIE-VALID-P -- Public.
 ;;;
 (defun function-end-cookie-valid-p (frame cookie)
-  "This takes a function-end-cookie and a frame, and it returns whether the
+  _N"This takes a function-end-cookie and a frame, and it returns whether the
    cookie is still valid.  A cookie becomes invalid when the frame that
    established the cookie has exited.  Sometimes cookie holders are unaware
    of cookie invalidation because their :function-end breakpoint hooks didn't
@@ -4203,18 +4204,18 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; ACTIVATE-BREAKPOINT -- Public.
 ;;;
 (defun activate-breakpoint (breakpoint)
-  "This causes the system to invoke the breakpoint's hook-function until the
+  _N"This causes the system to invoke the breakpoint's hook-function until the
    next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system invokes
    breakpoint hook functions in the opposite order that you activate them."
   (when (eq (breakpoint-status breakpoint) :deleted)
-    (error "Cannot activate a deleted breakpoint -- ~S." breakpoint))
+    (error _"Cannot activate a deleted breakpoint -- ~S." breakpoint))
   (unless (eq (breakpoint-status breakpoint) :active)
     (ecase (breakpoint-kind breakpoint)
       (:code-location
        (let ((loc (breakpoint-what breakpoint)))
 	 (etypecase loc
 	   (interpreted-code-location
-	    (error "Breakpoints in interpreted code are currently unsupported."))
+	    (error _"Breakpoints in interpreted code are currently unsupported."))
 	   (compiled-code-location
 	    (activate-compiled-code-location-breakpoint breakpoint)
 	    (let ((other (breakpoint-unknown-return-partner breakpoint)))
@@ -4225,7 +4226,7 @@ The result is a symbol or nil if the routine cannot be found."
 	 (compiled-debug-function
 	  (activate-compiled-function-start-breakpoint breakpoint))
 	 (interpreted-debug-function
-	  (error "I don't know how you made this, but they're unsupported -- ~S"
+	  (error _"I don't know how you made this, but they're unsupported -- ~S"
 		 (breakpoint-what breakpoint)))))
       (:function-end
        (etypecase (breakpoint-what breakpoint)
@@ -4236,7 +4237,7 @@ The result is a symbol or nil if the routine cannot be found."
 	      (activate-compiled-function-start-breakpoint starter)))
 	  (setf (breakpoint-status breakpoint) :active))
 	 (interpreted-debug-function
-	  (error "I don't know how you made this, but they're unsupported -- ~S"
+	  (error _"I don't know how you made this, but they're unsupported -- ~S"
 		 (breakpoint-what breakpoint)))))))
   breakpoint)
 
@@ -4294,14 +4295,14 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEACTIVATE-BREAKPOINT -- Public.
 ;;;
 (defun deactivate-breakpoint (breakpoint)
-  "This stops the system from invoking the breakpoint's hook-function."
+  _N"This stops the system from invoking the breakpoint's hook-function."
   (when (eq (breakpoint-status breakpoint) :active)
     (system:without-interrupts
      (let ((loc (breakpoint-what breakpoint)))
        (etypecase loc
 	 ((or interpreted-code-location interpreted-debug-function)
 	  (error
-	   "Breakpoints in interpreted code are currently unsupported."))
+	   _"Breakpoints in interpreted code are currently unsupported."))
 	 ((or compiled-code-location compiled-debug-function)
 	  (deactivate-compiled-breakpoint breakpoint)
 	  (let ((other (breakpoint-unknown-return-partner breakpoint)))
@@ -4338,7 +4339,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; BREAKPOINT-INFO -- Public.
 ;;;
 (defun breakpoint-info (breakpoint)
-  "This returns the user maintained info associated with breakpoint.  This
+  _N"This returns the user maintained info associated with breakpoint.  This
    is SETF'able."
   (breakpoint-%info breakpoint))
 ;;;
@@ -4357,7 +4358,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; BREAKPOINT-ACTIVE-P -- Public.
 ;;;
 (defun breakpoint-active-p (breakpoint)
-  "This returns whether breakpoint is currently active."
+  _N"This returns whether breakpoint is currently active."
   (ecase (breakpoint-status breakpoint)
     (:active t)
     ((:inactive :deleted) nil)))
@@ -4365,7 +4366,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DELETE-BREAKPOINT -- Public.
 ;;;
 (defun delete-breakpoint (breakpoint)
-  "This frees system storage and removes computational overhead associated with
+  _N"This frees system storage and removes computational overhead associated with
    breakpoint.  After calling this, breakpoint is completely impotent and can
    never become active again."
   (let ((status (breakpoint-status breakpoint)))
@@ -4469,7 +4470,7 @@ The result is a symbol or nil if the routine cannot be found."
 (defun handle-breakpoint (offset component signal-context)
   (let ((data (breakpoint-data component offset nil)))
     (unless data
-      (error "Unknown breakpoint in ~S at offset ~S."
+      (error _"Unknown breakpoint in ~S at offset ~S."
 	      (debug-function-name (debug-function-from-pc component offset))
 	      offset))
     (let ((breakpoints (breakpoint-data-breakpoints data)))
@@ -4493,7 +4494,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;;
 (defun handle-breakpoint-aux (breakpoints data offset component signal-context)
   (unless breakpoints
-    (error "Breakpoint that nobody wants?"))
+    (error _"Breakpoint that nobody wants?"))
   (unless (member data *executing-breakpoint-hooks*)
     (let ((*executing-breakpoint-hooks* (cons data
 					      *executing-breakpoint-hooks*)))
@@ -4515,7 +4516,7 @@ The result is a symbol or nil if the routine cannot be found."
 				    (breakpoint-data-instruction data))
       ; Under HPUX we can't sigreturn so bp-do-disp-i has to return.
       #-(or hpux irix x86 amd64)
-      (error "BREAKPOINT-DO-DISPLACED-INST returned?"))))
+      (error _"BREAKPOINT-DO-DISPLACED-INST returned?"))))
 
 (defun invoke-breakpoint-hooks (breakpoints component offset)
   (let* ((debug-fun (debug-function-from-pc component offset))
@@ -4537,7 +4538,7 @@ The result is a symbol or nil if the routine cannot be found."
 (defun handle-function-end-breakpoint (offset component sigcontext)
   (let ((data (breakpoint-data component offset nil)))
     (unless data
-      (error "Unknown breakpoint in ~S at offset ~S."
+      (error _"Unknown breakpoint in ~S at offset ~S."
 	      (debug-function-name (debug-function-from-pc component offset))
 	      offset))
     (let ((breakpoints (breakpoint-data-breakpoints data)))
@@ -4626,7 +4627,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; MAKE-BOGUS-LRA -- Interface.
 ;;;
 (defun make-bogus-lra (real-lra &optional known-return-p)
-  "Make a bogus LRA object that signals a breakpoint trap when returned to.  If
+  _N"Make a bogus LRA object that signals a breakpoint trap when returned to.  If
    the breakpoint trap handler returns, REAL-LRA is returned to.  Three values
    are returned: the bogus LRA object, the code component it is part of, and
    the PC offset for the trap instruction."
@@ -4692,7 +4693,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; SET-BREAKPOINT-FOR-EDITOR -- Internal Interface.
 ;;;
 (defun set-breakpoint-for-editor (package name-str path)
-  "The editor calls this remotely in the slave to set breakpoints.  Package is
+  _N"The editor calls this remotely in the slave to set breakpoints.  Package is
    the string name of a package or nil, and name-str is a string representing a
    function name (for example, \"foo\" or \"(setf foo)\").  After finding
    package, this READs name-str with *package* bound appropriately.  Path is
@@ -4710,7 +4711,7 @@ The result is a symbol or nil if the routine cannot be found."
        (let* ((bpt (di:make-breakpoint
 		    #'(lambda (frame bpt)
 			(declare (ignore frame bpt))
-			(break "Editor installed breakpoint."))
+			(break _"Editor installed breakpoint."))
 		    debug-fun :kind path))
 	      (remote-bpt (wire:make-remote-object bpt)))
 	 (activate-breakpoint bpt)
@@ -4723,7 +4724,7 @@ The result is a symbol or nil if the routine cannot be found."
 	   debug-fun #|name|# path))
 	 (interpreted-debug-function
 	  (error
-	   "We don't currently support breakpoints in interpreted code.")))))))
+	   _"We don't currently support breakpoints in interpreted code.")))))))
 
 (defun compiled-debug-function-set-breakpoint-for-editor (debug-fun #|name|# path)
   (let* ((source-paths (generate-component-source-paths
@@ -4760,7 +4761,7 @@ The result is a symbol or nil if the routine cannot be found."
 	   (let* ((bpt (make-breakpoint
 			#'(lambda (frame bpt)
 			    (declare (ignore frame bpt))
-			    (break "Editor installed breakpoint."))
+			    (break _"Editor installed breakpoint."))
 			(wire:remote-object-value (caar matches))))
 		  (remote-bpt (wire:make-remote-object bpt)))
 	     (activate-breakpoint bpt)
@@ -4921,7 +4922,7 @@ The result is a symbol or nil if the routine cannot be found."
       (:file
        (cond
 	((not (probe-file name))
-	 (format t "~%Cannot set breakpoints for editor when source file no ~
+	 (format t _"~%Cannot set breakpoints for editor when source file no ~
 		    longer exists:~%  ~A."
 		 (namestring name)))
 	(t
@@ -4929,7 +4930,7 @@ The result is a symbol or nil if the routine cannot be found."
 				     (debug-source-root-number d-source)))
 		(char-offset
 		 (aref (or (debug-source-start-positions d-source)
-			   (error "Cannot set breakpoints for editor when ~
+			   (error _"Cannot set breakpoints for editor when ~
 				   there is no start positions map."))
 		       local-tlf-offset)))
 	   (with-open-file (f name)
@@ -4938,7 +4939,7 @@ The result is a symbol or nil if the routine cannot be found."
 	       (file-position f char-offset))
 	      (t
 	       (format t
-		       "~%While setting a breakpoint for the editor, noticed ~
+		       _"~%While setting a breakpoint for the editor, noticed ~
 			source file has been modified since compilation:~%  ~A~@
 			Using form offset instead of character position.~%"
 		       (namestring name))
@@ -4950,16 +4951,16 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; SET-LOCATION-BREAKPOINT-FOR-EDITOR -- Internal Interface.
 ;;;
 (defun set-location-breakpoint-for-editor (remote-obj-loc)
-  "The editor calls this in the slave with a remote-object representing a
+  _N"The editor calls this in the slave with a remote-object representing a
    code-location to set a breakpoint."
   (let ((loc (wire:remote-object-value remote-obj-loc)))
     (etypecase loc
       (interpreted-code-location
-       (error "Breakpoints in interpreted code are currently unsupported."))
+       (error _"Breakpoints in interpreted code are currently unsupported."))
       (compiled-code-location
        (let* ((bpt (make-breakpoint #'(lambda (frame bpt)
 					(declare (ignore frame bpt))
-					(break "Editor installed breakpoint."))
+					(break _"Editor installed breakpoint."))
 				    loc))
 	      (remote-bpt (wire:make-remote-object bpt)))
 	 (activate-breakpoint bpt)
@@ -4973,7 +4974,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DELETE-BREAKPOINT-FOR-EDITOR -- Internal Interface.
 ;;;
 (defun delete-breakpoint-for-editor (remote-obj-bpt)
-  "The editor calls this remotely in the slave to delete a breakpoint."
+  _N"The editor calls this remotely in the slave to delete a breakpoint."
   (delete-breakpoint (wire:remote-object-value remote-obj-bpt))
   (wire:forget-remote-translation remote-obj-bpt))
 
@@ -4989,7 +4990,7 @@ The result is a symbol or nil if the routine cannot be found."
 ;;; DEBUG-FUNCTION-START-LOCATION -- Public.
 ;;;
 (defun debug-function-start-location (debug-fun)
-  "This returns a code-location before the body of a function and after all
+  _N"This returns a code-location before the body of a function and after all
    the arguments are in place.  If this cannot determine that location due to
    a lack of debug information, it returns nil."
   (etypecase debug-fun
@@ -5015,7 +5016,7 @@ The result is a symbol or nil if the routine cannot be found."
     (do-debug-function-blocks (block debug-fun)
       (do-debug-block-locations (loc block)
 	(fill-in-code-location loc)
-	(format t "~S code location at ~D"
+	(format t _"~S code location at ~D"
 		(compiled-code-location-kind loc)
 		(compiled-code-location-pc loc))
 	(debug::print-code-location-source-form loc 0)
diff --git a/code/debug-vm.lisp b/code/debug-vm.lisp
index 46c38cc5ea5549e2374a1732cf8afb7df4fedfa7..1e50266058f2af68847e3296e6c940b5da916dd5 100644
--- a/code/debug-vm.lisp
+++ b/code/debug-vm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-vm.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-vm.lisp,v 1.3 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 
 (in-package "VM")
 
+(intl:textdomain "cmucl")
+
 (export '(make-bogus-lra))
 
 (defconstant bogus-lra-constants 2)
@@ -26,7 +28,7 @@
 ;;; MAKE-BOGUS-LRA -- Interface.
 ;;;
 (defun make-bogus-lra (real-lra &optional known-return-p)
-  "Make a bogus LRA object that signals a breakpoint trap when returned to.  If
+  _N"Make a bogus LRA object that signals a breakpoint trap when returned to.  If
    the breakpoint trap handler returns to the fake component, the fake code
    template returns to real-lra.  This returns three values: the bogus LRA
    object, the code component it points to, and the pc-offset for the trap
diff --git a/code/debug.lisp b/code/debug.lisp
index 923d424874bf5b756aa7d31a834b72bfd60afb5b..57942ad6abeffde4b4d9b47e1c24e56594620ffd 100644
--- a/code/debug.lisp
+++ b/code/debug.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.69 2010/02/19 14:59:36 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.70 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 
 (in-package "DEBUG")
 
+(intl:textdomain "cmucl")
+
 (export '(internal-debug *in-the-debugger* backtrace *flush-debug-errors*
 	  *debug-print-level* *debug-print-length* *debug-prompt*
 	  *default-print-frame-call-verbosity*
@@ -42,24 +44,24 @@
 ;;;; Variables, parameters, and constants.
 
 (defparameter *debug-print-level* 3
-  "*PRINT-LEVEL* is bound to this value when debug prints a function call.  If
+  _N"*PRINT-LEVEL* is bound to this value when debug prints a function call.  If
   null, use *PRINT-LEVEL*")
 
 (defparameter *debug-print-length* 5
-  "*PRINT-LENGTH* is bound to this value when debug prints a function call.  If
+  _N"*PRINT-LENGTH* is bound to this value when debug prints a function call.  If
   null, use *PRINT-LENGTH*.")
 
 (defparameter *default-print-frame-call-verbosity* 1
-  "default value for the verbose argument to print-frame-call.  If set to >= 2, source will be printed for all frames")
+  _N"default value for the verbose argument to print-frame-call.  If set to >= 2, source will be printed for all frames")
 
 (defvar *in-the-debugger* nil
-  "This is T while in the debugger.")
+  _N"This is T while in the debugger.")
 
 (defvar *debug-command-level* 0
-  "Pushes and pops/exits inside the debugger change this.")
+  _N"Pushes and pops/exits inside the debugger change this.")
 
 (defvar *stack-top-hint* nil
-  "If this is bound before the debugger is invoked, it is used as the stack
+  _N"If this is bound before the debugger is invoked, it is used as the stack
    top by the debugger.")
 (defvar *stack-top* nil)
 (defvar *real-stack-top* nil)
@@ -79,11 +81,11 @@
     (force-output)))
 
 (defparameter *debug-prompt* #'debug-prompt
-  "This is a function of no arguments that prints the debugger prompt
+  _N"This is a function of no arguments that prints the debugger prompt
    on *debug-io*.")
 
 (defconstant debug-help-string
-"
+_N"
 The prompt is right square brackets, the number indicating how many
   recursive command loops you are in.
 Debug commands do not affect * and friends, but evaluation in the debug loop
@@ -145,11 +147,11 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;; Breakpoint state:
 
 (defvar *only-block-start-locations* nil
-  "When true, the LIST-LOCATIONS command only displays block start locations.
+  _N"When true, the LIST-LOCATIONS command only displays block start locations.
    Otherwise, all locations are displayed.")
 
 (defvar *print-location-kind* nil
-  "If true, list the code location type in the LIST-LOCATIONS command.")
+  _N"If true, list the code location type in the LIST-LOCATIONS command.")
 
 ;;; A list of the types of code-locations that should not be stepped to and
 ;;; should not be listed when listing breakpoints.
@@ -284,7 +286,7 @@ See the CMU Common Lisp User's Manual for more information.
 		      (return loc))))
 	(cond ((and (not (di:debug-block-elsewhere-p block))
 		    start)
-	       (format t "~%Unknown location: using block start.~%")
+	       (format t _"~%Unknown location: using block start.~%")
 	       start)
 	      (t
 	       loc)))
@@ -357,14 +359,14 @@ See the CMU Common Lisp User's Manual for more information.
     (case (di:breakpoint-kind (breakpoint-info-breakpoint breakpoint-info))
       (:code-location 
        (print-code-location-source-form place 0)
-       (format t "~&~S: ~S in ~S"
+       (format t _"~&~S: ~S in ~S"
 	       bp-number loc-number (di:debug-function-name
 				      (di:code-location-debug-function place))))
       (:function-start
-       (format t "~&~S: FUNCTION-START in ~S" bp-number
+       (format t _"~&~S: FUNCTION-START in ~S" bp-number
 	       (di:debug-function-name place)))
       (:function-end
-       (format t "~&~S: FUNCTION-END in ~S" bp-number
+       (format t _"~&~S: FUNCTION-END in ~S" bp-number
 	       (di:debug-function-name place))))))
 
 
@@ -402,7 +404,7 @@ See the CMU Common Lisp User's Manual for more information.
 	       (build-string 
 		(with-output-to-string (*standard-output*)
 		  (when function-end-cookie 
-		    (format t "~%Return values: ~S" return-vals))
+		    (format t _"~%Return values: ~S" return-vals))
 		  (when condition
 		    (when (breakpoint-info-print bp-hit-info)
 		      (format t "~%")
@@ -416,11 +418,11 @@ See the CMU Common Lisp User's Manual for more information.
 	(setf condition (funcall (breakpoint-info-condition bp-hit-info)
 				 current-frame)))
       (cond ((and bp-hit-info step-hit-info (= 1 *number-of-steps*))
-	     (build-string (format nil "~&*Step (to a breakpoint)*"))
+	     (build-string (format nil _"~&*Step (to a breakpoint)*"))
 	     (print-common-info)
 	     (break string))
 	    ((and bp-hit-info step-hit-info break)
-	     (build-string (format nil "~&*Step (to a breakpoint)*"))
+	     (build-string (format nil _"~&*Step (to a breakpoint)*"))
 	     (print-common-info)
 	     (break string))
 	    ((and bp-hit-info step-hit-info)
@@ -429,20 +431,20 @@ See the CMU Common Lisp User's Manual for more information.
 	     (decf *number-of-steps*)
 	     (set-step-breakpoint current-frame))
 	    ((and step-hit-info (= 1 *number-of-steps*))
-	     (build-string "*Step*")
+	     (build-string _"*Step*")
 	     (break (make-condition 'step-condition :format-control string)))
 	    (step-hit-info
 	     (decf *number-of-steps*)
 	     (set-step-breakpoint current-frame))
 	    (bp-hit-info
 	     (when break
-	       (build-string (format nil "~&*Breakpoint hit*")))
+	       (build-string (format nil _"~&*Breakpoint hit*")))
 	     (print-common-info)
 	     (if break
 		 (break string)
 		 (format t "~A" string)))
 	    (t
-	     (break "Error in main-hook-function: unknown breakpoint"))))))
+	     (break _"Error in main-hook-function: unknown breakpoint"))))))
 
 
 
@@ -455,7 +457,7 @@ See the CMU Common Lisp User's Manual for more information.
   (cond
    ((di:debug-block-elsewhere-p (di:code-location-debug-block
 				 (di:frame-code-location frame)))
-    (format t "Cannot step, in elsewhere code~%"))
+    (format t _"Cannot step, in elsewhere code~%"))
    (t
     (let* ((code-location (di:frame-code-location frame))
 	   (next-code-locations (next-code-locations code-location)))
@@ -487,13 +489,13 @@ See the CMU Common Lisp User's Manual for more information.
     (handler-case
 	(setq function (compile nil function))
       (error (c)
-	(error "Currently only compiled code can be stepped.~%~
+	(error _"Currently only compiled code can be stepped.~%~
                 Trying to compile the passed form resulted in ~
                 the following error:~%  ~A" c))))
   (let ((*print-length* *debug-print-length*)
 	(*print-level* *debug-print-level*))
-    (format *debug-io* "~2&Stepping the form~%  ~S~%" form)
-    (format *debug-io* "~&using the debugger.  Type HELP for help.~2%"))
+    (format *debug-io* _"~2&Stepping the form~%  ~S~%" form)
+    (format *debug-io* _"~&using the debugger.  Type HELP for help.~2%"))
   (let* ((debug-function (di:function-debug-function function))
 	 (bp (di:make-breakpoint #'main-hook-function debug-function
 				 :kind :function-start)))
@@ -505,7 +507,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;; STEP -- Public.
 ;;;
 (defmacro step (form)
-  "STEP implements a debugging paradigm wherein the programmer is allowed
+  _N"STEP implements a debugging paradigm wherein the programmer is allowed
    to step through the evaluation of a form.  We use the debugger's stepping
    facility to step through an anonymous function containing only form.
 
@@ -522,7 +524,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;
 (defun backtrace (&optional (count most-positive-fixnum)
 			    (*standard-output* *debug-io*))
-  "Show a listing of the call stack going down from the current frame.  In the
+  _N"Show a listing of the call stack going down from the current frame.  In the
    debugger, the current frame is indicated by the prompt.  Count is how many
    frames to show."
   (let ((*print-length* (or *debug-print-length* *print-length*))
@@ -609,11 +611,11 @@ See the CMU Common Lisp User's Manual for more information.
 					       (second ele) frame))
 				     results))
 		       (return))
-		     (push (make-unprintable-object "unavaliable-rest-arg")
+		     (push (make-unprintable-object _"unavaliable-rest-arg")
 			   results)))))
       (di:lambda-list-unavailable
        ()
-       (push (make-unprintable-object "lambda-list-unavailable") results)))
+       (push (make-unprintable-object _"lambda-list-unavailable") results)))
     (prin1 (mapcar #'ensure-printable-object (nreverse results)))
     (when (di:debug-function-kind d-fun)
       (write-char #\[)
@@ -628,14 +630,14 @@ See the CMU Common Lisp User's Manual for more information.
     (error (cond)
       (declare (ignore cond))
       (make-unprintable-object
-       (format nil "error printing object {~X}"
+       (format nil _"error printing object {~X}"
 	       (kernel:get-lisp-obj-address object))))))
 
 (defun frame-call-arg (var location frame)
   (lambda-var-dispatch var location
-    (make-unprintable-object "unused-arg")
+    (make-unprintable-object _"unused-arg")
     (di:debug-variable-value var frame)
-    (make-unprintable-object "unavailable-arg")))
+    (make-unprintable-object _"unavailable-arg")))
 
 
 ;;; PRINT-FRAME-CALL -- Interface
@@ -666,10 +668,10 @@ See the CMU Common Lisp User's Manual for more information.
       (handler-case
 	  (progn
 	    (di:code-location-debug-block loc)
-	    (format t "~%Source: ")
+	    (format t _"~%Source: ")
 	    (print-code-location-source-form loc 0))
 	(di:debug-condition (ignore) ignore)
-	(error (cond) (format t "Error finding source: ~A" cond))))))
+	(error (cond) (format t _"Error finding source: ~A" cond))))))
 
 ;;; SAFE-CONDITION-MESSAGE  --  Internal
 ;;;
@@ -682,14 +684,14 @@ See the CMU Common Lisp User's Manual for more information.
     (error (cond)
       ;; Beware of recursive errors in printing, so only use the condition
       ;; if it is printable itself:
-      (format nil "Unable to display error condition~@[: ~A~]"
+      (format nil _"Unable to display error condition~@[: ~A~]"
 	      (ignore-errors (princ-to-string cond))))))
 
 
 ;;;; Invoke-debugger.
 
 (defvar *debugger-hook* nil
-  "This is either nil or a function of two arguments, a condition and the value
+  _N"This is either nil or a function of two arguments, a condition and the value
    of *debugger-hook*.  This function can either handle the condition or return
    which causes the standard debugger to execute.  The system passes the value
    of this variable to the function because it binds *debugger-hook* to nil
@@ -705,7 +707,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;    Print condition and invoke the TTY debugger.
 ;;;
 (defun invoke-tty-debugger (condition)
-  (format *error-output* "~2&~A~%   [Condition of type ~S]~2&"
+  (format *error-output* _"~2&~A~%   [Condition of type ~S]~2&"
 	  (safe-condition-message *debug-condition*)
           (type-of *debug-condition*))
   (unless (typep condition 'step-condition)
@@ -727,7 +729,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;; INVOKE-DEBUGGER -- Public.
 ;;;
 (defun invoke-debugger (condition)
-  "The CMU Common Lisp debugger.  Type h for help."
+  _N"The CMU Common Lisp debugger.  Type h for help."
   (when *debugger-hook*
     (let ((hook *debugger-hook*)
 	  (*debugger-hook* nil))
@@ -754,7 +756,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;
 (defun show-restarts (restarts &optional (s *error-output*))
   (when restarts
-    (format s "~&Restarts:~%")
+    (format s _"~&Restarts:~%")
     (let ((count 0)
 	  (names-used '(nil))
 	  (max-name-len 0))
@@ -789,7 +791,7 @@ See the CMU Common Lisp User's Manual for more information.
 	(*read-suppress* nil))
     (unless (typep *debug-condition* 'step-condition)
       (clear-input *debug-io*)
-      (format *debug-io* "~2&Debug  (type H for help)~2%"))
+      (format *debug-io* _"~2&Debug  (type H for help)~2%"))
     #-mp (debug-loop)
     #+mp (mp:without-scheduling (debug-loop))))
 
@@ -798,15 +800,15 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;; Debug-loop.
 
 (defvar *flush-debug-errors* t
-  "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while
+  _N"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while
    executing in the debugger.  The 'flush' command toggles this.")
 
 (defvar *debug-readtable* nil
-  "When non-NIL, becomes the system *READTABLE* in the debugger
+  _N"When non-NIL, becomes the system *READTABLE* in the debugger
    read-eval-print loop")
 
 (defvar *debug-print-current-frame* t
-  "When non-NIL, print the current frame when entering the debugger.")
+  _N"When non-NIL, print the current frame when entering the debugger.")
 
 (defun maybe-handle-dead-input-stream (condition)
   ;; Scenario: "xon <remote-box> cmucl -edit"
@@ -852,13 +854,13 @@ See the CMU Common Lisp User's Manual for more information.
 				    (when *flush-debug-errors*
 				      (clear-input *debug-io*)
 				      (princ condition)
-				      (format t "~&Error flushed ...")
+				      (format t _"~&Error flushed ...")
 				      (throw 'debug-loop-catcher nil)))))
 	    ;; Must bind level for restart function created by
 	    ;; WITH-SIMPLE-RESTART.
 	    (let ((level *debug-command-level*)
 		  (restart-commands (make-restart-commands)))
-	      (with-simple-restart (abort "Return to debug level ~D." level)
+	      (with-simple-restart (abort _"Return to debug level ~D." level)
 		(funcall *debug-prompt*)
 		(let ((input (ext:get-stream-command *debug-io*)))
 		  (cond (input
@@ -867,9 +869,9 @@ See the CMU Common Lisp User's Manual for more information.
 					 restart-commands)))
 			   (cond
 			    ((not cmd-fun)
-			     (error "Unknown stream-command -- ~S." input))
+			     (error _"Unknown stream-command -- ~S." input))
 			    ((consp cmd-fun)
-			     (error "Ambiguous debugger command: ~S." cmd-fun))
+			     (error _"Ambiguous debugger command: ~S." cmd-fun))
 			    (t
 			     (apply cmd-fun (ext:stream-command-args input))))))
 			(t
@@ -878,7 +880,7 @@ See the CMU Common Lisp User's Manual for more information.
 			   (cond ((not cmd-fun)
 				  (debug-eval-print exp))
 				 ((consp cmd-fun)
-				  (format t "~&Your command, ~S, is ambiguous:~%"
+				  (format t _"~&Your command, ~S, is ambiguous:~%"
 					  exp)
 				  (dolist (ele cmd-fun)
 				    (format t "   ~A~%" ele)))
@@ -886,7 +888,7 @@ See the CMU Common Lisp User's Manual for more information.
 				  (funcall cmd-fun)))))))))))))))
 
 (defvar *auto-eval-in-frame* t
-  "When set (the default), evaluations in the debugger's command loop occur
+  _N"When set (the default), evaluations in the debugger's command loop occur
    relative to the current frame's environment without the need of debugger
    forms that explicitly control this kind of evaluation.")
 
@@ -911,7 +913,7 @@ See the CMU Common Lisp User's Manual for more information.
     (unless (boundp '*)
       (setq * nil)
       (fresh-line)
-      (princ "Setting * to NIL -- was unbound marker."))))
+      (princ _"Setting * to NIL -- was unbound marker."))))
 
 
 
@@ -939,7 +941,7 @@ See the CMU Common Lisp User's Manual for more information.
 			       temp)))
      (declare (list vars))
      (cond ((null vars)
-	    (error "No known valid variables match ~S." name))
+	    (error _"No known valid variables match ~S." name))
 	   ((= (length vars) 1)
 	    ,(ecase ref-or-set
 	       (:ref
@@ -977,7 +979,7 @@ See the CMU Common Lisp User's Manual for more information.
 			  (string= (di:debug-variable-name v)
 				   (di:debug-variable-name (car vars))))
 		      (cdr vars)))
-		(error "Specification ambiguous:~%~{   ~A~%~}"
+		(error _"Specification ambiguous:~%~{   ~A~%~}"
 		       (mapcar #'di:debug-variable-name
 			       (delete-duplicates
 				vars :test #'string=
@@ -986,7 +988,7 @@ See the CMU Common Lisp User's Manual for more information.
 	       (id-supplied
 		(let ((v (find id vars :key #'di:debug-variable-id)))
 		  (unless v
-		    (error "Invalid variable ID, ~D, should have been one of ~S."
+		    (error _"Invalid variable ID, ~D, should have been one of ~S."
 			   id (mapcar #'di:debug-variable-id vars)))
 		  ,(ecase ref-or-set
 		     (:ref
@@ -995,7 +997,7 @@ See the CMU Common Lisp User's Manual for more information.
 		      `(setf (di:debug-variable-value v *current-frame*)
 			     ,value-var)))))
 	       (t
-		(error "Specify variable ID to disambiguate ~S.  Use one of ~S."
+		(error _"Specify variable ID to disambiguate ~S.  Use one of ~S."
 		       name (mapcar #'di:debug-variable-id vars)))))))))
 
 ) ;EVAL-WHEN
@@ -1003,7 +1005,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;; VAR -- Public.
 ;;;
 (defun var (name &optional (id 0 id-supplied))
-  "Returns a variable's value if possible.  Name is a simple-string or symbol.
+  _N"Returns a variable's value if possible.  Name is a simple-string or symbol.
    If it is a simple-string, it is an initial substring of the variable's name.
    If name is a symbol, it has the same name and package as the variable whose
    value this function returns.  If the symbol is uninterned, then the variable
@@ -1028,7 +1030,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;; ARG -- Public.
 ;;;
 (defun arg (n)
-  "Returns the n'th argument's value if possible.  Argument zero is the first
+  _N"Returns the n'th argument's value if possible.  Argument zero is the first
    argument in a frame's default printed representation.  Count keyword/value
    pairs as separate arguments."
   (multiple-value-bind
@@ -1036,12 +1038,12 @@ See the CMU Common Lisp User's Manual for more information.
       (nth-arg n (handler-case (di:debug-function-lambda-list
 				(di:frame-debug-function *current-frame*))
 		   (di:lambda-list-unavailable ()
-		     (error "No argument values are available."))))
+		     (error _"No argument values are available."))))
     (if lambda-var-p
 	(lambda-var-dispatch var (di:frame-code-location *current-frame*)
-	  (error "Unused arguments have no values.")
+	  (error _"Unused arguments have no values.")
 	  (di:debug-variable-value var *current-frame*)
-	  (error "Invalid argument value."))
+	  (error _"Invalid argument value."))
 	var)))
 
 ;;; NTH-ARG -- Internal.
@@ -1053,7 +1055,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;
 (defun nth-arg (count args)
   (let ((n count))
-    (dolist (ele args (error "Argument specification out of range -- ~S." n))
+    (dolist (ele args (error _"Argument specification out of range -- ~S." n))
       (lambda-list-element-dispatch ele
 	:required ((if (zerop n) (return (values ele t))))
 	:optional ((if (zerop n) (return (values (second ele) t))))
@@ -1065,15 +1067,15 @@ See the CMU Common Lisp User's Manual for more information.
 	:rest ((let ((var (second ele)))
 		 (lambda-var-dispatch var
 				      (di:frame-code-location *current-frame*)
-		   (error "Unused rest-arg before n'th argument.")
+		   (error _"Unused rest-arg before n'th argument.")
 		   (dolist (value
 			    (di:debug-variable-value var *current-frame*)
-			    (error "Argument specification out of range -- ~S."
+			    (error _"Argument specification out of range -- ~S."
 				   n))
 		     (if (zerop n)
 			 (return-from nth-arg (values value nil))
 			 (decf n)))
-		   (error "Invalid rest-arg before n'th argument.")))))
+		   (error _"Invalid rest-arg before n'th argument.")))))
       (decf n))))
 
 
@@ -1095,7 +1097,7 @@ See the CMU Common Lisp User's Manual for more information.
 	       (remove ,name *debug-commands* :key #'car :test #'string=)))
        (defun ,fun-name ,args
 	 (unless *in-the-debugger*
-	   (error "Invoking debugger command while outside the debugger."))
+	   (error _"Invoking debugger command while outside the debugger."))
 	 ,@body)
        (push (cons ,name #',fun-name) *debug-commands*)
        ',fun-name)))
@@ -1104,7 +1106,7 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;
 (defun def-debug-command-alias (new-name existing-name)
   (let ((pair (assoc existing-name *debug-commands* :test #'string=)))
-    (unless pair (error "Unknown debug command name -- ~S" existing-name))
+    (unless pair (error _"Unknown debug command name -- ~S" existing-name))
     (push (cons new-name (cdr pair)) *debug-commands*))
   new-name)
 
@@ -1196,7 +1198,7 @@ See the CMU Common Lisp User's Manual for more information.
 	   (setf *current-frame* next)
 	   (print-frame-call next))
 	  (t
-	   (format t "~&Top of stack.")))))
+	   (format t _"~&Top of stack.")))))
   
 (def-debug-command "DOWN" ()
   (let ((next (di:frame-down *current-frame*)))
@@ -1204,7 +1206,7 @@ See the CMU Common Lisp User's Manual for more information.
 	   (setf *current-frame* next)
 	   (print-frame-call next))
 	  (t
-	   (format t "~&Bottom of stack.")))))
+	   (format t _"~&Bottom of stack.")))))
 
 (def-debug-command-alias "D" "DOWN")
 
@@ -1226,10 +1228,10 @@ See the CMU Common Lisp User's Manual for more information.
 (def-debug-command-alias "B" "BOTTOM")
 
 (def-debug-command "FRAME" (&optional
-			    (n (read-prompting-maybe "Frame number: ")))
+			    (n (read-prompting-maybe _"Frame number: ")))
   (let ((current (di:frame-number *current-frame*)))
     (cond ((= n current)
-	   (princ "You are here."))
+	   (princ _"You are here."))
 	  ((> n current)
 	   (print-frame-call
 	    (setf *current-frame*
@@ -1237,7 +1239,7 @@ See the CMU Common Lisp User's Manual for more information.
 		       (lead (di:frame-down *current-frame*)
 			     (di:frame-down lead)))
 		      ((null lead)
-		       (princ "Bottom of stack encountered.")
+		       (princ _"Bottom of stack encountered.")
 		       prev)
 		    (when (= n (di:frame-number prev))
 		      (return prev))))))
@@ -1248,7 +1250,7 @@ See the CMU Common Lisp User's Manual for more information.
 		       (lead (di:frame-up *current-frame*)
 			     (di:frame-up lead)))
 		      ((null lead)
-		       (princ "Top of stack encountered.")
+		       (princ _"Top of stack encountered.")
 		       prev)
 		    (when (= n (di:frame-number prev))
 		      (return prev)))))))))
@@ -1259,12 +1261,12 @@ See the CMU Common Lisp User's Manual for more information.
 ;; allows us to return an arbitrary value from any frame
 (def-debug-command "DEBUG-RETURN" (&optional
 				   (return (read-prompting-maybe
-					    "debug-return: ")))
+					    _"debug-return: ")))
   (unless (di:return-from-frame *current-frame* return)
     ;; the "unless" here is for aesthetical purposes only. If all goes
     ;; well with return-from-frame, the code after it will never get
     ;; reached anyway.
-    (format t "~@<can't find a tag for this frame ~
+    (format t _"~@<can't find a tag for this frame ~
                    ~2I~_(hint: try increasing the DEBUG optimization quality ~
                    and recompiling)~:@>")))
 
@@ -1280,13 +1282,13 @@ See the CMU Common Lisp User's Manual for more information.
 
 (def-debug-command "GO" ()
   (continue *debug-condition*)
-  (error "No restart named continue."))
+  (error _"No restart named continue."))
 
 (def-debug-command "RESTART" ()
   (let ((num (read-if-available :prompt)))
     (when (eq num :prompt)
       (show-restarts *debug-restarts*)
-      (write-string "Restart: ")
+      (write-string _"Restart: ")
       (force-output)
       (setf num (read *standard-input*)))
     (let ((restart (typecase num
@@ -1298,11 +1300,11 @@ See the CMU Common Lisp User's Manual for more information.
 				      (string= (symbol-name sym1)
 					       (symbol-name sym2)))))
 		     (t
-		      (format t "~S is invalid as a restart name.~%" num)
+		      (format t _"~S is invalid as a restart name.~%" num)
 		      (return-from restart-debug-command nil)))))
       (if restart
 	  (invoke-restart-interactively restart)
-	  (princ "No such restart.")))))
+	  (princ _"No such restart.")))))
 
 
 ;;;
@@ -1310,27 +1312,28 @@ See the CMU Common Lisp User's Manual for more information.
 ;;;
  
 (defvar *help-line-scroll-count* 20
-  "This controls how many lines the debugger's help command prints before
+  _N"This controls how many lines the debugger's help command prints before
    printing a prompting line to continue with output.")
 
 (def-debug-command "HELP" ()
-  (let* ((end -1)
-	 (len (length debug-help-string))
+  (let* ((translated (intl:dgettext "cmucl" debug-help-string))
+	 (end -1)
+	 (len (length translated))
 	 (len-1 (1- len)))
     (loop
       (let ((start (1+ end))
 	    (count *help-line-scroll-count*))
 	(loop
-	  (setf end (position #\newline debug-help-string :start (1+ end)))
+	  (setf end (position #\newline translated :start (1+ end)))
 	  (cond ((or (not end) (= end len-1))
 		 (setf end len)
 		 (return))
 		((or (zerop (decf count)) (= end len))
 		 (return))))
-	(write-string debug-help-string *standard-output*
+	(write-string translated *standard-output*
 		      :start start :end end))
       (when (= end len) (return))
-      (format t "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: ")
+      (format t _"~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: ")
       (force-output)
       (let ((res (read-line)))
 	(when (or (string= res "q") (string= res "Q"))
@@ -1380,14 +1383,14 @@ See the CMU Common Lisp User's Manual for more information.
 
 	  (cond
 	   ((not any-p)
-	    (format t "No local variables ~@[starting with ~A ~]~
+	    (format t _"No local variables ~@[starting with ~A ~]~
 	               in function."
 		    prefix))
 	   ((not any-valid-p)
-	    (format t "All variables ~@[starting with ~A ~]currently ~
+	    (format t _"All variables ~@[starting with ~A ~]currently ~
 	               have invalid values."
 		    prefix))))
-	(write-line "No variable information available."))))
+	(write-line _"No variable information available."))))
 
 (def-debug-command-alias "L" "LIST-LOCALS")
 
@@ -1472,7 +1475,7 @@ See the CMU Common Lisp User's Manual for more information.
 			      (di:debug-source-root-number d-source)))
 	 (char-offset
 	  (aref (or (di:debug-source-start-positions d-source)
-		    (error "No start positions map."))
+		    (error _"No start positions map."))
 		local-tlf-offset))
 	 (name (di:debug-source-name d-source)))
     (unless (eq d-source *cached-debug-source*)
@@ -1485,8 +1488,8 @@ See the CMU Common Lisp User's Manual for more information.
 	      (open name :if-does-not-exist nil
 		    :external-format (or (c::debug-source-info d-source) :default)))
 	(unless *cached-source-stream*
-	  (error "Source file no longer exists:~%  ~A." (namestring name)))
-	(format t "~%; File: ~A~%" (namestring name)))
+	  (error _"Source file no longer exists:~%  ~A." (namestring name)))
+	(format t _"~%; File: ~A~%" (namestring name)))
 
 	(setq *cached-debug-source*
 	      (if (= (di:debug-source-created d-source) (file-write-date name))
@@ -1496,7 +1499,7 @@ See the CMU Common Lisp User's Manual for more information.
      ((eq *cached-debug-source* d-source)
       (file-position *cached-source-stream* char-offset))
      (t
-      (format t "~%; File has been modified since compilation:~%;   ~A~@
+      (format t _"~%; File has been modified since compilation:~%;   ~A~@
 		 ; Using form offset instead of character position.~%"
 	      (namestring name))
       (file-position *cached-source-stream* 0)
@@ -1530,7 +1533,7 @@ See the CMU Common Lisp User's Manual for more information.
     (multiple-value-bind (translations form)
 			 (get-top-level-form location)
       (unless (< form-num (length translations))
-	(error "Source path no longer exists."))
+	(error _"Source path no longer exists."))
       (prin1 (di:source-path-context form
 				     (svref translations form-num)
 				     context)))))
@@ -1545,7 +1548,7 @@ See the CMU Common Lisp User's Manual for more information.
   (setf *number-of-steps* (read-if-available 1))
   (set-step-breakpoint *current-frame*)
   (continue *debug-condition*)
-  (error "Couldn't continue."))
+  (error _"Couldn't continue."))
   
 ;;; Lists possible breakpoint locations, which are active, and where go will
 ;;; continue.  Sets *possible-breakpoints* to the code-locations which can then
@@ -1567,9 +1570,9 @@ See the CMU Common Lisp User's Manual for more information.
 		 (di:debug-function-start-location
 		  *default-breakpoint-debug-function*) continue-at)))
       (when (or active here)
-	(format t "::FUNCTION-START ")
-	(when active (format t " *Active*"))
-	(when here (format t " *Continue here*"))))
+	(format t _"::FUNCTION-START ")
+	(when active (format t _" *Active*"))
+	(when here (format t _" *Continue here*"))))
     
     (let ((prev-location nil)
 	  (prev-num 0)
@@ -1584,9 +1587,9 @@ See the CMU Common Lisp User's Manual for more information.
 		 (when *print-location-kind*
 		   (format t "~S " (di:code-location-kind prev-location)))
 		 (when (location-in-list prev-location *breakpoints*)
-		   (format t " *Active*"))
+		   (format t _" *Active*"))
 		 (when (di:code-location= prev-location continue-at)
-		   (format t " *Continue here*")))))
+		   (format t _" *Continue here*")))))
 	
 	(dolist (code-location *possible-breakpoints*)
 	  (when (or *print-location-kind*
@@ -1608,13 +1611,13 @@ See the CMU Common Lisp User's Manual for more information.
 
     (when (location-in-list *default-breakpoint-debug-function* *breakpoints*
 			    :function-end)
-      (format t "~&::FUNCTION-END *Active* "))))
+      (format t _"~&::FUNCTION-END *Active* "))))
 
 (def-debug-command-alias "LL" "LIST-LOCATIONS")
     
 ;;; set breakpoint at # given
 (def-debug-command "BREAKPOINT" ()
-  (let ((index (read-prompting-maybe "Location number, :start, or :end: "))
+  (let ((index (read-prompting-maybe _"Location number, :start, or :end: "))
 	(break t)
 	(condition t)
 	(print nil)
@@ -1699,10 +1702,10 @@ See the CMU Common Lisp User's Manual for more information.
 	(when old-bp-info
 	  (di:deactivate-breakpoint (breakpoint-info-breakpoint old-bp-info))
 	  (setf *breakpoints* (remove old-bp-info *breakpoints*))
-	  (format t "Note: previous breakpoint removed.~%"))
+	  (format t _"Note: previous breakpoint removed.~%"))
 	(push new-bp-info *breakpoints*))
       (print-breakpoint-info (first *breakpoints*))
-      (format t "~&Added."))))
+      (format t _"~&Added."))))
 
 (def-debug-command-alias "BP" "BREAKPOINT")
 
@@ -1724,13 +1727,13 @@ See the CMU Common Lisp User's Manual for more information.
     (cond (bp-info
 	   (di:delete-breakpoint (breakpoint-info-breakpoint bp-info))
 	   (setf *breakpoints* (remove bp-info *breakpoints*))
-	   (format t "Breakpoint ~S removed.~%" index))
-	  (index (format t "Breakpoint doesn't exist."))
+	   (format t _"Breakpoint ~S removed.~%" index))
+	  (index (format t _"Breakpoint doesn't exist."))
 	  (t
 	   (dolist (ele *breakpoints*)
 	     (di:delete-breakpoint (breakpoint-info-breakpoint ele)))
 	   (setf *breakpoints* nil)
-	   (format t "All breakpoints deleted.~%")))))
+	   (format t _"All breakpoints deleted.~%")))))
 
 (def-debug-command-alias "DBP" "DELETE-BREAKPOINT")
 
@@ -1741,8 +1744,8 @@ See the CMU Common Lisp User's Manual for more information.
 
 (def-debug-command "FLUSH-ERRORS" ()
   (if (setf *flush-debug-errors* (not *flush-debug-errors*))
-      (write-line "Errors now flushed.")
-      (write-line "Errors now create nested debug levels.")))
+      (write-line _"Errors now flushed.")
+      (write-line _"Errors now create nested debug levels.")))
 
 
 (def-debug-command "DESCRIBE" ()
@@ -1751,7 +1754,7 @@ See the CMU Common Lisp User's Manual for more information.
 	 (function (di:debug-function-function debug-fun)))
     (if function
 	(describe function)
-	(format t "Can't figure out the function for this frame."))))
+	(format t _"Can't figure out the function for this frame."))))
 
 
 ;;;
@@ -1760,7 +1763,7 @@ See the CMU Common Lisp User's Manual for more information.
 
 (def-debug-command "EDIT-SOURCE" ()
   (unless (ed::ts-stream-p *terminal-io*)
-    (error "The debugger's EDIT-SOURCE command only works in slave Lisps ~
+    (error _"The debugger's EDIT-SOURCE command only works in slave Lisps ~
 	    connected to a Hemlock editor."))
   (let* ((wire (ed::ts-stream-wire *terminal-io*))
 	 (location (maybe-block-start-location
@@ -1773,7 +1776,7 @@ See the CMU Common Lisp User's Manual for more information.
 	      (local-tlf-offset (- tlf-offset
 				   (di:debug-source-root-number d-source)))
 	      (char-offset (aref (or (di:debug-source-start-positions d-source)
-				     (error "No start positions map."))
+				     (error _"No start positions map."))
 				 local-tlf-offset)))
 	 (wire:remote wire
 	   (ed::edit-source-location (namestring name)
diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index c62d432bf99af7b57d3bd78702114fb3312a2cb2..1df70fe1853601786a8f1057ed6296ab7052912f 100644
--- a/code/defmacro.lisp
+++ b/code/defmacro.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.37 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.38 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 
 ;;;; Some variable definitions.
 
@@ -20,16 +22,16 @@
 ;;; in DEFMACRO are the reason this isn't as easy as it sounds.
 ;;;
 (defvar *arg-tests* ()
-  "A list of tests that do argument counting at expansion time.")
+  _N"A list of tests that do argument counting at expansion time.")
 
 (defvar *system-lets* ()
-  "Let bindings that are done to make lambda-list parsing possible.")
+  _N"Let bindings that are done to make lambda-list parsing possible.")
 
 (defvar *user-lets* ()
-  "Let bindings that the user has explicitly supplied.")
+  _N"Let bindings that the user has explicitly supplied.")
 
 (defvar *default-default* nil
-  "Unsupplied optional and keyword arguments get this value defaultly.")
+  _N"Unsupplied optional and keyword arguments get this value defaultly.")
 
 ;; Temps that we introduce and might not reference.
 (defvar *ignorable-vars*)
@@ -48,7 +50,7 @@
 				   ((:environment env-arg-name))
 				   ((:default-default *default-default*))
 				   (error-fun 'error))
-  "Returns as multiple-values a parsed body, any local-declarations that
+  _N"Returns as multiple-values a parsed body, any local-declarations that
    should be made where this body is inserted, and a doc-string if there is
    one."
   (multiple-value-bind (body declarations documentation)
@@ -125,7 +127,7 @@
 	rest-name restp allow-other-keys-p env-arg-used)
     (when (and (member '&whole lambda-list)
 	       (not (eq (car lambda-list) '&whole)))
-      (simple-program-error "&Whole must appear first in ~S lambda-list."
+      (simple-program-error _"&Whole must appear first in ~S lambda-list."
                             error-kind))
     (do ((rest-of-args lambda-list (cdr rest-of-args)))
 	((null rest-of-args))
@@ -164,11 +166,11 @@
 		      (defmacro-error "&WHOLE" error-kind name))))
 	      ((eq var '&environment)
 	       (cond (env-illegal
-		      (simple-program-error "&environment not valid with ~S."
+		      (simple-program-error _"&environment not valid with ~S."
                                             error-kind))
 		     ((not top-level)
 		      (simple-program-error
-		       "&environment only valid at top level of lambda-list.")))
+		       _"&environment only valid at top level of lambda-list.")))
 	       (cond ((and (cdr rest-of-args) (symbolp (cadr rest-of-args)))
 		      (setf rest-of-args (cdr rest-of-args))
 		      (append-let-binding (car rest-of-args) env-arg-name nil)
@@ -185,7 +187,7 @@
 	       (unless (and (cdr rest-of-args)
 			    (consp (cadr rest-of-args))
 			    (symbolp (caadr rest-of-args)))
-		 (simple-program-error "Invalid ~a" '&parse-body))
+		 (simple-program-error _"Invalid ~a" '&parse-body))
 		(setf rest-of-args (cdr rest-of-args))
 		(setf restp t)
 		(let ((body-name (caar rest-of-args))
@@ -254,8 +256,8 @@
 		  (incf maximum))
 		 (:optionals
 		  (when (> (length var) 3)
-		    (cerror "Ignore extra noise."
-			    "More than variable, initform, and suppliedp ~
+		    (cerror _"Ignore extra noise."
+			    _"More than variable, initform, and suppliedp ~
 			    in &optional binding - ~S"
 			    var))
 		  (push-optional-binding (car var) (cadr var) (caddr var)
@@ -305,7 +307,7 @@
 		 (:auxs
 		  (push-let-binding var nil nil))))
 	      (t
-	       (simple-program-error "Non-symbol in lambda-list - ~S." var)))))
+	       (simple-program-error _"Non-symbol in lambda-list - ~S." var)))))
     (push `(unless (list-length-bounded-p (the list ,(if top-level
 							 `(cdr ,arg-list-name)
 							 arg-list-name))
@@ -403,15 +405,15 @@
 	((symbolp value-var)
 	 (push-let-binding value-var path nil supplied-var init-form))
 	(t
-	 (simple-program-error "Illegal optional variable name: ~S"
+	 (simple-program-error _"Illegal optional variable name: ~S"
 	                       value-var))))
 
 (defun make-keyword (symbol)
-  "Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
+  _N"Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
   (intern (symbol-name symbol) *keyword-package*))
 
 (defun defmacro-error (problem kind name)
-  (simple-program-error "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
+  (simple-program-error _"Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
                         problem kind name))
 
 
@@ -428,11 +430,11 @@
 (defun print-defmacro-ll-bind-error-intro (condition stream)
   (if (null (defmacro-lambda-list-bind-error-name condition))
       (format stream
-	      "Error while parsing arguments to ~A in ~S:~%"
+	      _"Error while parsing arguments to ~A in ~S:~%"
 	      (defmacro-lambda-list-bind-error-kind condition)
 	      (condition-function-name condition))
       (format stream
-	      "Error while parsing arguments to ~A ~S:~%"
+	      _"Error while parsing arguments to ~A ~S:~%"
 	      (defmacro-lambda-list-bind-error-kind condition)
 	      (defmacro-lambda-list-bind-error-name condition))))
 
@@ -445,7 +447,7 @@
    (lambda (condition stream)
      (print-defmacro-ll-bind-error-intro condition stream)
      (format stream
-	     "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
+	     _"Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
 	     (defmacro-bogus-sublist-error-object condition)
 	     (defmacro-bogus-sublist-error-lambda-list condition)))))
 
@@ -459,22 +461,22 @@
    (lambda (condition stream)
      (print-defmacro-ll-bind-error-intro condition stream)
      (format stream
-	     "Invalid number of elements in:~%  ~:S~%~
+	     _"Invalid number of elements in:~%  ~:S~%~
 	     to satisfy lambda-list:~%  ~:S~%"
 	     (defmacro-ll-arg-count-error-argument condition)
 	     (defmacro-ll-arg-count-error-lambda-list condition))
      (cond ((null (defmacro-ll-arg-count-error-maximum condition))
-	    (format stream "Expected at least ~D"
+	    (format stream _"Expected at least ~D"
 		    (defmacro-ll-arg-count-error-minimum condition)))
 	   ((= (defmacro-ll-arg-count-error-minimum condition)
 	       (defmacro-ll-arg-count-error-maximum condition))
-	    (format stream "Expected exactly ~D"
+	    (format stream _"Expected exactly ~D"
 		    (defmacro-ll-arg-count-error-minimum condition)))
 	   (t
-	    (format stream "Expected between ~D and ~D"
+	    (format stream _"Expected between ~D and ~D"
 		    (defmacro-ll-arg-count-error-minimum condition)
 		    (defmacro-ll-arg-count-error-maximum condition))))
-     (format stream ", but got ~D."
+     (format stream _", but got ~D."
 	     (length (defmacro-ll-arg-count-error-argument condition))))))
 
 
diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index 5e3befc41c0225ed61766e3a0e786d7cfdb1e8ef..1ae46f41ceeac635b8915cb5d20443efb02d55cd 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.98 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.99 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,9 @@
 ;;; Written by Rob MacLachlan, William Lott and Skef Wholey.
 ;;;
 (in-package "LISP")
+
+(intl:textdomain "cmucl")
+
 (export '(defstruct copy-structure structure-object))
 (in-package "KERNEL")
 (export '(default-structure-print make-structure-load-form 
@@ -35,27 +38,27 @@
 
 
 (defparameter *ANSI-defstruct-options-p* nil
-  "Controls compiling DEFSTRUCT :print-function and :print-method
+  _N"Controls compiling DEFSTRUCT :print-function and :print-method
    options according to ANSI spec. MUST be NIL to compile CMUCL & PCL")
 
 ;;;; Structure frobbing primitives.
 
 (defun %make-instance (length)
-  "Allocate a new instance with LENGTH data slots."
+  _N"Allocate a new instance with LENGTH data slots."
   (declare (type index length))
   (%make-instance length))
 
 (defun %instance-length (instance)
-  "Given an instance, return its length."
+  _N"Given an instance, return its length."
   (declare (type instance instance))
   (%instance-length instance))
 
 (defun %instance-ref (instance index)
-  "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
+  _N"Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
   (%instance-ref instance index))
 
 (defun %instance-set (instance index new-value)
-  "Set the INDEXth slot of INSTANCE to NEW-VALUE."
+  _N"Set the INDEXth slot of INSTANCE to NEW-VALUE."
   (setf (%instance-ref instance index) new-value))
 
 (defun %raw-ref-single (vec index)
@@ -319,9 +322,9 @@
 (defun compiler-layout-or-lose (name)
   (let ((res (info type compiler-layout name)))
     (cond ((not res)
-	   (error "Class not yet defined or was undefined: ~S" name))
+	   (error _"Class not yet defined or was undefined: ~S" name))
 	  ((not (typep (layout-info res) 'defstruct-description))
-	   (error "Class is not a structure class: ~S" name))
+	   (error _"Class is not a structure class: ~S" name))
 	  (t res))))
 
 (defun dd-maybe-make-print-method (defstruct)
@@ -415,7 +418,7 @@
 ;;; DEFSTRUCT  --  Public
 ;;;
 (defmacro defstruct (name-and-options &rest slot-descriptions)
-  "DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}
+  _N"DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}
    Define the structure type Name.  Instances are created by MAKE-<name>, which
    takes keyword arguments allowing initial slot values to the specified.
    A SETF'able function <name>-<slot> is defined for each slot to read&write
@@ -455,18 +458,21 @@
       (restart-case
 	  (error 'lisp::package-locked-error
 		 :package pkg
-		 :format-control "defining structure ~A"
+		 :format-control _"defining structure ~A"
 		 :format-arguments (list name))
 	(continue ()
-	  :report "Ignore the lock and continue")
+	  :report (lambda (stream)
+		    (write-string _"Ignore the lock and continue" stream)))
 	(unlock-package ()
-	  :report "Disable package's definition lock then continue"
+	  :report (lambda (stream)
+		    (write-string _"Disable package's definition lock then continue" stream))
 	  (setf (ext:package-definition-lock pkg) nil))
         (unlock-all ()
-          :report "Unlock all packages, then continue"
+          :report (lambda (stream)
+		    (write-string _"Unlock all packages, then continue" stream))
           (lisp::unlock-all-packages))))
     (when (info declaration recognized name)
-      (error "Defstruct already names a declaration: ~S." name))
+      (error _"Defstruct already names a declaration: ~S." name))
     (when (stringp (car slot-descriptions))
       (setf (dd-doc defstruct) (pop slot-descriptions)))
     (dolist (slot slot-descriptions)
@@ -524,7 +530,7 @@
 	 (setf (dd-predicate defstruct) pred)))
       (:include
        (when (dd-include defstruct)
-	 (error "Can't have more than one :INCLUDE option."))
+	 (error _"Can't have more than one :INCLUDE option."))
        (setf (dd-include defstruct) args))
       (:alternate-metaclass
        (setf (dd-alternate-metaclass defstruct) args))
@@ -547,9 +553,9 @@
 		  (setf (dd-element-type defstruct) vtype)
 		  (setf (dd-type defstruct) 'vector)))
 	       (t
-		(error "~S is a bad :TYPE for Defstruct." type)))))
+		(error _"~S is a bad :TYPE for Defstruct." type)))))
       (:named
-       (error "The Defstruct option :NAMED takes no arguments."))
+       (error _"The Defstruct option :NAMED takes no arguments."))
       (:initial-offset
        (destructuring-bind (offset) args
 	 (setf (dd-offset defstruct) offset)))
@@ -559,7 +565,7 @@
       (:pure
        (destructuring-bind (fun) args
 	 (setf (dd-pure defstruct) fun)))
-      (t (error "Unknown DEFSTRUCT option~%  ~S" option)))))
+      (t (error _"Unknown DEFSTRUCT option~%  ~S" option)))))
 
 #+ORIGINAL
 (defun parse-1-option (option defstruct)
@@ -587,7 +593,7 @@
 	 (setf (dd-predicate defstruct) pred)))
       (:include
        (when (dd-include defstruct)
-	 (error "Can't have more than one :INCLUDE option."))
+	 (error _"Can't have more than one :INCLUDE option."))
        (setf (dd-include defstruct) args))
       (:alternate-metaclass
        (setf (dd-alternate-metaclass defstruct) args))
@@ -607,9 +613,9 @@
 		  (setf (dd-element-type defstruct) vtype)
 		  (setf (dd-type defstruct) 'vector)))
 	       (t
-		(error "~S is a bad :TYPE for Defstruct." type)))))
+		(error _"~S is a bad :TYPE for Defstruct." type)))))
       (:named
-       (error "The Defstruct option :NAMED takes no arguments."))
+       (error _"The Defstruct option :NAMED takes no arguments."))
       (:initial-offset
        (destructuring-bind (offset) args
 	 (setf (dd-offset defstruct) offset)))
@@ -619,7 +625,7 @@
       (:pure
        (destructuring-bind (fun) args
 	 (setf (dd-pure defstruct) fun)))
-      (t (error "Unknown DEFSTRUCT option~%  ~S" option)))))
+      (t (error _"Unknown DEFSTRUCT option~%  ~S" option)))))
 
 
 ;;; PARSE-NAME-AND-OPTIONS  --  Internal
@@ -638,20 +644,20 @@
 				:conc-name))
 	       (parse-1-option (list option) defstruct))
 	      (t
-	       (error "Unrecognized DEFSTRUCT option: ~S" option))))
+	       (error _"Unrecognized DEFSTRUCT option: ~S" option))))
 
       (case (dd-type defstruct)
 	(structure
 	 (when (dd-offset defstruct)
-	   (error "Can't specify :OFFSET unless :TYPE is specified."))
+	   (error _"Can't specify :OFFSET unless :TYPE is specified."))
 	 (unless (dd-include defstruct)
 	   (incf (dd-length defstruct))))
 	(funcallable-structure)
 	(t
 	 (when (dd-print-function defstruct)
-	   (warn "Silly to specify :PRINT-FUNCTION with :TYPE."))
+	   (warn _"Silly to specify :PRINT-FUNCTION with :TYPE."))
 	 (when (dd-make-load-form-fun defstruct)
-	   (warn "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."))
+	   (warn _"Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."))
 	 (when (dd-named defstruct) (incf (dd-length defstruct)))
 	 (let ((offset (dd-offset defstruct)))
 	   (when offset (incf (dd-length defstruct) offset)))))
@@ -682,13 +688,13 @@
 	       (values name default default-p type type-p read-only ro-p)))
 	    (t
 	     (when (keywordp spec)
-	       (warn "Keyword slot name indicates probable syntax ~
+	       (warn _"Keyword slot name indicates probable syntax ~
 		      error in DEFSTRUCT -- ~S."
 		     spec))
 	     spec))
     (when (find name (dd-slots defstruct) :test #'string= :key #'dsd-%name)
       (error 'simple-program-error
-	     :format-control "Duplicate slot name ~S."
+	     :format-control _"Duplicate slot name ~S."
 	     :format-arguments (list name)))
     (setf (dsd-name islot) name)
     (setf (dd-slots defstruct) (nconc (dd-slots defstruct) (list islot)))
@@ -704,7 +710,7 @@
       (if read-only
 	  (setf (dsd-read-only islot) t)
 	  (when (dsd-read-only islot)
-	    (error "Slot ~S must be read-only in subtype ~S." name
+	    (error _"Slot ~S must be read-only in subtype ~S." name
 		   (dsd-name islot)))))
     islot))
 
@@ -774,7 +780,7 @@
       (unless (and (eq type (dd-type included-structure))
 		   (type= (specifier-type (dd-element-type included-structure))
 			  (specifier-type (dd-element-type defstruct))))
-	(error ":TYPE option mismatch between structures ~S and ~S."
+	(error _":TYPE option mismatch between structures ~S and ~S."
 	       (dd-name defstruct) included-name))
       
       (incf (dd-length defstruct) (dd-length included-structure))
@@ -824,7 +830,7 @@
 
 (defun typed-structure-info-or-lose (name)
   (or (info typed-structure info name)
-      (error ":TYPE'd defstruct ~S not found for inclusion." name)))
+      (error _":TYPE'd defstruct ~S not found for inclusion." name)))
 
 ;;; %GET-COMPILER-LAYOUT  --  Internal
 ;;;
@@ -1099,7 +1105,7 @@
 
     (when no-constructors
       (when (or defaults boas)
-	(error "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."))
+	(error _"(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."))
       (return-from define-constructors ()))
 
     (unless (or defaults boas)
@@ -1259,7 +1265,7 @@
 		((not (= (cdr inherited) index))
 		 (warn 'simple-style-warning
 		       :format-control
-		       "~@<Non-overwritten accessor ~S does not access ~
+		       _"~@<Non-overwritten accessor ~S does not access ~
                         slot with name ~S (accessing an inherited slot ~
                         instead).~:@>"
 		       :format-arguments (list aname (dsd-%name slot))))))
@@ -1331,7 +1337,7 @@
 (defun typep-to-layout (obj layout &optional no-error)
   (declare (type layout layout) (optimize (speed 3) (safety 0)))
   (when (layout-invalid layout)
-    (error "Obsolete structure accessor function called."))
+    (error _"Obsolete structure accessor function called."))
   (and (%instancep obj)
        (let ((depth (layout-inheritance-depth layout))
 	     (obj-layout (%instance-layout obj)))
@@ -1363,7 +1369,7 @@
 	      (error 'simple-type-error
 		     :datum structure
 		     :expected-type class
-		     :format-control "Structure for accessor ~S is not a ~S:~% ~S"
+		     :format-control _"Structure for accessor ~S is not a ~S:~% ~S"
 		     :format-arguments (list (dsd-accessor dsd)
 					     (%class-name class)
 					     structure)))
@@ -1374,7 +1380,7 @@
 	      (error 'simple-type-error
 		     :datum structure
 		     :expected-type class
-		     :format-control "Structure for accessor ~S is not a ~S:~% ~S"
+		     :format-control _"Structure for accessor ~S is not a ~S:~% ~S"
 		     :format-arguments (list (dsd-accessor dsd) class
 					     structure)))
 	    (%instance-ref structure (dsd-index dsd))))))
@@ -1388,7 +1394,7 @@
 	      (error 'simple-type-error
 		     :datum structure
 		     :expected-type class
-		     :format-control "Structure for setter ~S is not a ~S:~% ~S"
+		     :format-control _"Structure for setter ~S is not a ~S:~% ~S"
 		     :format-arguments (list `(setf ,(dsd-accessor dsd))
 					     (%class-name class)
 					     structure)))
@@ -1396,7 +1402,7 @@
 	      (error 'simple-type-error
 		     :datum new-value
 		     :expected-type (dsd-type dsd)
-		     :format-control "New-Value for setter ~S is not a ~S:~% ~S."
+		     :format-control _"New-Value for setter ~S is not a ~S:~% ~S."
 		     :format-arguments (list `(setf ,(dsd-accessor dsd))
 					     (dsd-type dsd)
 					     new-value)))
@@ -1407,7 +1413,7 @@
 	      (error 'simple-type-error
 		     :datum structure
 		     :expected-type class
-		     :format-control "Structure for setter ~S is not a ~S:~% ~S"
+		     :format-control _"Structure for setter ~S is not a ~S:~% ~S"
 		     :format-arguments (list `(setf ,(dsd-accessor dsd))
 					     (%class-name class)
 					     structure)))
@@ -1415,7 +1421,7 @@
 	      (error 'simple-type-error
 		     :datum new-value
 		     :expected-type (dsd-type dsd)
-		     :format-control "New-Value for setter ~S is not a ~S:~% ~S."
+		     :format-control _"New-Value for setter ~S is not a ~S:~% ~S."
 		     :format-arguments (list `(setf ,(dsd-accessor dsd))
 					     (dsd-type dsd)
 					     new-value)))
@@ -1485,7 +1491,7 @@
 		    (error 'simple-type-error
 			   :datum structure
 			   :expected-type class
-			   :format-control "Structure for copier is not a ~S:~% ~S"
+			   :format-control _"Structure for copier is not a ~S:~% ~S"
 			   :format-arguments (list class structure)))
 		  (copy-structure structure))))
 
@@ -1556,7 +1562,7 @@
 	     (setf (layout-info old-layout) info)
 	     (values class old-layout nil))
 	    (t
-	     (warn "Shouldn't happen!  Some strange thing in LAYOUT-INFO:~
+	     (warn _"Shouldn't happen!  Some strange thing in LAYOUT-INFO:~
 		    ~%  ~S"
 		   old-layout)
 	     (values class new-layout old-layout)))))))))
@@ -1603,7 +1609,7 @@
 			 (compare-slots old new)
       (when (or moved retyped deleted)
 	(warn 
-	 "Incompatibly redefining slots of structure class ~S~@
+	 _"Incompatibly redefining slots of structure class ~S~@
 	  Make sure any uses of affected accessors are recompiled:~@
 	  ~@[  These slots were moved to new positions:~%    ~S~%~]~
 	  ~@[  These slots have new incompatible types:~%    ~S~%~]~
@@ -1629,16 +1635,20 @@
   (declare (type class class) (type layout old-layout new-layout))
   (let ((name (class-proper-name class)))
     (restart-case
-	(error "Redefining class ~S incompatibly with the current ~
+	(error _"Redefining class ~S incompatibly with the current ~
 		definition."
 	       name)
       (continue ()
-	:report "Invalidate already loaded code and instances, use new definition."
-	(warn "Previously loaded ~S accessors will no longer work." name)
+	:report (lambda (stream)
+		  (write-string _"Invalidate already loaded code and instances, use new definition."
+				stream))
+	(warn _"Previously loaded ~S accessors will no longer work." name)
 	(register-layout new-layout))
       (clobber-it ()
-	:report "Assume redefinition is compatible, allow old code and instances."
-	(warn "Any old ~S instances will be in a bad way.~@
+	:report (lambda (stream)
+		  (write-string "Assume redefinition is compatible, allow old code and instances."
+				stream))
+	(warn _"Any old ~S instances will be in a bad way.~@
 	       I hope you know what you're doing..."
 	      name)
 	(register-layout new-layout :invalidate nil
@@ -1749,7 +1759,7 @@
 	    (undefine-structure class)
 	    (subs (class-proper-name class)))
 	  (when (subs)
-	    (warn "Removing old subclasses of ~S:~%  ~S"
+	    (warn _"Removing old subclasses of ~S:~%  ~S"
 		  (%class-name class) (subs))))))
      (t
       (unless (eq (%class-layout class) layout)
@@ -1793,7 +1803,7 @@
 	       (unless (= (cdr inherited) (dsd-index slot))
 		 (warn 'simple-style-warning
 		       :format-control
-		       "~@<Non-overwritten accessor ~S does not access ~
+		       _"~@<Non-overwritten accessor ~S does not access ~
                         slot with name ~S (accessing an inherited slot ~
                         instead).~:@>"
 		       :format-arguments (list aname (dsd-%name slot)))))
@@ -1818,14 +1828,14 @@
 ;;;    Copy any old kind of structure.
 ;;;
 (defun copy-structure (structure)
-  "Return a copy of Structure with the same (EQL) slot values."
+  _N"Return a copy of Structure with the same (EQL) slot values."
   (declare (type structure-object structure) (optimize (speed 3) (safety 0)))
   (let* ((len (%instance-length structure))
 	 (res (%make-instance len))
 	 (layout (%instance-layout structure)))
     (declare (type index len))
     (when (layout-invalid layout)
-      (error "Copying an obsolete structure:~%  ~S" structure))
+      (error _"Copying an obsolete structure:~%  ~S" structure))
     
     (dotimes (i len)
       (declare (type index i))
@@ -1918,7 +1928,7 @@
       ((member :just-dump-it-normally :ignore-it)
        fun)
       (null
-       (error "Structures of type ~S cannot be dumped as constants."
+       (error _"Structures of type ~S cannot be dumped as constants."
 	      (%class-name class)))
       (function
        (funcall fun structure))
diff --git a/code/describe.lisp b/code/describe.lisp
index 31992039f89c2f9407f11a9a897f2f30750fdb37..6e313a155e817c34e1a77f96a344fe461e877b28 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.54 2010/01/30 23:36:29 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.55 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,9 @@
 ;;;
 
 (in-package "LISP")
+
+(intl:textdomain "cmucl")
+
 (export '(describe))
 
 (in-package "EXT")
@@ -33,39 +36,39 @@
 ;;;; DESCRIBE public switches.
 
 (defvar *describe-level* 2
-  "Depth of recursive descriptions allowed.")
+  _N"Depth of recursive descriptions allowed.")
 
 (defvar *describe-verbose* nil
-  "If non-nil, descriptions may provide interpretations of information and
+  _N"If non-nil, descriptions may provide interpretations of information and
   pointers to additional information.  Normally nil.")
 
 (defvar *describe-print-level* 2
-  "*print-level* gets bound to this inside describe.  If null, use
+  _N"*print-level* gets bound to this inside describe.  If null, use
   *print-level*")
 
 (defvar *describe-print-length* 5
-  "*print-length* gets bound to this inside describe.  If null, use
+  _N"*print-length* gets bound to this inside describe.  If null, use
   *print-length*.")
 
 (defvar *describe-indentation* 3
-  "Number of spaces that sets off each line of a recursive description.")
+  _N"Number of spaces that sets off each line of a recursive description.")
 
 (defvar *in-describe* nil
-  "Used to tell whether we are doing a recursive describe.")
+  _N"Used to tell whether we are doing a recursive describe.")
 (defvar *current-describe-level* 0
-  "Used to implement recursive description cutoff.  Don't touch.")
+  _N"Used to implement recursive description cutoff.  Don't touch.")
 (defvar *describe-output* nil
-  "An output stream used by Describe for indenting and stuff.")
+  _N"An output stream used by Describe for indenting and stuff.")
 (defvar *described-objects* nil
-  "List of all objects describe within the current top-level call to describe.")
+  _N"List of all objects describe within the current top-level call to describe.")
 (defvar *current-describe-object* nil
-  "The last object passed to describe.")
+  _N"The last object passed to describe.")
 
 ;;; DESCRIBE sets up the output stream and calls DESCRIBE-AUX, which does the
 ;;; hard stuff.
 ;;;
 (defun describe (x &optional stream)
-  "Prints a description of the object X."
+  _N"Prints a description of the object X."
   (declare (type (or stream (member t nil)) stream))
   (unless *describe-output*
     (setq *describe-output* (make-indenting-stream *standard-output*)))
@@ -97,7 +100,7 @@
 (defun describe-aux (x)
   (when (or (not (integerp *describe-level*))
 	    (minusp *describe-level*))
-    (error "*describe-level* should be a nonnegative integer - ~A."
+    (error _"*describe-level* should be a nonnegative integer - ~A."
 	   *describe-level*))
   (when (or (>= *current-describe-level* *describe-level*)
 	    (member x *described-objects*))
@@ -137,14 +140,14 @@
 ;;;; Miscellaneous DESCRIBE methods:
 	  
 (defun default-describe (x)
-  (format t "~&~S is a ~S." x (type-of x)))
+  (format t _"~&~S is a ~S." x (type-of x)))
 
 (defun describe-character (x)
-  (format t "~&~S is a ~S." x (type-of x))
-  (format t "~&Its code is #x~4,'0x." (char-code x))
-  (format t "~&Its name is ~A." (char-name x))
+  (format t _"~&~S is a ~S." x (type-of x))
+  (format t _"~&Its code is #x~4,'0x." (char-code x))
+  (format t _"~&Its name is ~A." (char-name x))
   (when (surrogatep x)
-    (format t "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
+    (format t _"~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
 	    (surrogatep x :low))))
 
 (defun describe-instance (x &optional (kind :structure))
@@ -153,7 +156,7 @@
 	 (fresh-line *standard-output*)
 	 (describe-object x *standard-output*))
 	(t
-	 (format t "~&~S is a ~(~A~) of type ~A." x kind (type-of x))
+	 (format t _"~&~S is a ~(~A~) of type ~A." x kind (type-of x))
 	 (dolist (slot (cddr (inspect::describe-parts x)))
 	   (format t "~%~A: ~S." (car slot) (cdr slot))))))
 
@@ -161,47 +164,47 @@
   (let ((rank (array-rank x))
 	(element-type (array-element-type x)))
     (cond ((= rank 1)
-	   (format t "~&~S is a ~:[~;displaced ~]vector of length ~D." x
+	   (format t _"~&~S is a ~:[~;displaced ~]vector of length ~D." x
 		   (and (array-header-p x) (%array-displaced-p x))
 		   (array-dimension x 0))
 	   (if (array-has-fill-pointer-p x)
-	       (format t "~&It has a fill pointer, currently ~d"
+	       (format t _"~&It has a fill pointer, currently ~d"
 		       (fill-pointer x))
-	       (format t "~&It has no fill pointer.")))
+	       (format t _"~&It has no fill pointer.")))
 	  (t
-	   (format t "~&~S is ~:[an~;a displaced~] array of rank ~A"
+	   (format t _"~&~S is ~:[an~;a displaced~] array of rank ~A"
 		   x (%array-displaced-p x) rank)
-	   (format t "~%Its dimensions are ~S." (array-dimensions x))))
+	   (format t _"~%Its dimensions are ~S." (array-dimensions x))))
     (unless (eq t element-type)
-      (format t "~&Its element type is specialized to ~S." element-type))
+      (format t _"~&Its element type is specialized to ~S." element-type))
     (when (adjustable-array-p x)
-      (format t "~&It is adjustable."))
+      (format t _"~&It is adjustable."))
     (when (static-array-p x)
-      (format t "~&It is static."))))
+      (format t _"~&It is static."))))
 
 (defun describe-fixnum (x)
   (cond ((not (or *describe-verbose* (zerop *current-describe-level*))))
 	((primep x)
-	 (format t "~&It is a prime number."))
+	 (format t _"~&It is a prime number."))
 	(t
-	 (format t "~&It is a composite number."))))
+	 (format t _"~&It is a composite number."))))
 
 #+double-double
 (defun describe-double-double-float (x)
-  (format t "~&~S is a ~S." x (type-of x))
-  (format t "~&Its components are ~S and ~S."
+  (format t _"~&~S is a ~S." x (type-of x))
+  (format t _"~&Its components are ~S and ~S."
 	  (kernel:double-double-hi x) (kernel:double-double-lo x)))
 
 (defun describe-hash-table (x)
-  (format t "~&~S is an ~A hash table." x (hash-table-test x))
-  (format t "~&Its size is ~D buckets." (length (hash-table-table x)))
-  (format t "~&Its rehash-size is ~S." (hash-table-rehash-size x))
-  (format t "~&Its rehash-threshold is ~S."
+  (format t _"~&~S is an ~A hash table." x (hash-table-test x))
+  (format t _"~&Its size is ~D buckets." (length (hash-table-table x)))
+  (format t _"~&Its rehash-size is ~S." (hash-table-rehash-size x))
+  (format t _"~&Its rehash-threshold is ~S."
 	  (hash-table-rehash-threshold x))
-  (format t "~&It currently holds ~d entries."
+  (format t _"~&It currently holds ~d entries."
 	  (hash-table-number-entries x))
   (when (hash-table-weak-p x)
-    (format t "~&It is weak ~A table." (hash-table-weak-p x))))
+    (format t _"~&It is weak ~A table." (hash-table-weak-p x))))
 
 (defun describe-package (x)
   (describe-instance x)
@@ -211,7 +214,7 @@
 	 (external (package-external-symbols x))
 	 (external-count (- (package-hashtable-size external)
 			    (package-hashtable-free external))))
-    (format t "~&~d symbols total: ~d internal and ~d external."
+    (format t _"~&~d symbols total: ~d internal and ~d external."
 	     (+ internal-count external-count) internal-count external-count)))
 
 
@@ -222,10 +225,22 @@
 ;;;
 (defun desc-doc (name kind kind-doc)
   (when (and name (typep name '(or symbol cons)))
-    (let ((doc (documentation name kind)))
+    (let ((doc (documentation name kind))
+	  (domain (case kind
+		    (variable
+		     (info variable textdomain name))
+		    (function
+		     (info function textdomain name))
+		    (structure
+		     (info typed-structure textdomain name))
+		    (type
+		     (info type textdomain name))
+		    (setf
+		     (info setf textdomain name)))))
       (when doc
-	(format t "~&~@(~A documentation:~)~&  ~A"
-		(or kind-doc kind) doc)))))
+	(format t _"~&~@(~A documentation:~)~&  ~A"
+		(or kind-doc kind)
+		(dgettext domain doc))))))
 
 
 ;;; DESCRIBE-FUNCTION-NAME  --  Internal
@@ -244,13 +259,13 @@
 		    (info function where-from name))
 	    (values type-spec :defined))
       (when (consp type)
-	(format t "~&Its ~(~A~) argument types are:~%  ~S"
+	(format t _"~&Its ~(~A~) argument types are:~%  ~S"
 		where (second type))
-	(format t "~&Its result type is:~%  ~S" (third type)))))
+	(format t _"~&Its result type is:~%  ~S" (third type)))))
       
   (let ((inlinep (info function inlinep name)))
     (when inlinep
-      (format t "~&It is currently declared ~(~A~);~
+      (format t _"~&It is currently declared ~(~A~);~
 		 ~:[no~;~] expansion is available."
 	      inlinep (info function inline-expansion name)))))
 
@@ -265,9 +280,9 @@
   (multiple-value-bind (exp closure-p dname)
 		       (eval:interpreted-function-lambda-expression x)
     (let ((args (eval:interpreted-function-arglist x)))
-      (format t "~&~@(~@[~A ~]arguments:~%~)" kind)
+      (format t _"~&~@(~@[~A ~]arguments:~%~)" kind)
       (cond ((not args)
-	     (write-string "  There are no arguments."))
+	     (write-string _"  There are no arguments."))
 	    (t
 	     (write-string "  ")
 	     (indenting-further *standard-output* 2
@@ -281,13 +296,13 @@
 	 (type-specifier (eval:interpreted-function-type x)))))
     
     (when closure-p
-      (format t "~&Its closure environment is:")
+      (format t _"~&Its closure environment is:")
       (indenting-further *standard-output* 2
 	(let ((clos (eval:interpreted-function-closure x)))
 	  (dotimes (i (length clos))
 	    (format t "~&~D: ~S" i (svref clos i))))))
     
-    (format t "~&Its definition is:~%  ~S" exp)))
+    (format t _"~&Its definition is:~%  ~S" exp)))
 
 
 ;;; PRINT-COMPILED-FROM  --  Internal
@@ -298,7 +313,7 @@
   (let ((info (kernel:%code-debug-info code-obj)))
     (when info
       (let ((sources (c::debug-info-source info)))
-	(format t "~&On ~A it was compiled from:"
+	(format t _"~&On ~A it was compiled from:"
 		(format-universal-time nil
 				       (c::debug-source-compiled
 					(first sources))))
@@ -306,11 +321,11 @@
 	  (let ((name (c::debug-source-name source)))
 	    (ecase (c::debug-source-from source)
 	      (:file
-	       (format t "~&~A~%  Created: " (namestring name))
+	       (format t _"~&~A~%  Created: " (namestring name))
 	       (ext:format-universal-time t (c::debug-source-created source))
 	       (let ((comment (c::debug-source-comment source)))
 		 (when comment
-		   (format t "~&  Comment: ~A" comment))))
+		   (format t _"~&  Comment: ~A" comment))))
 	      (:stream (format t "~&~S" name))
 	      (:lisp (format t "~&~S" name)))))))))
 
@@ -322,11 +337,11 @@
 ;;;
 (defun describe-function-compiled (x kind name)
   (let ((args (%function-arglist x)))
-    (format t "~&~@(~@[~A ~]arguments:~%~)" kind)
+    (format t _"~&~@(~@[~A ~]arguments:~%~)" kind)
     (cond ((not args)
-	   (format t "  There is no argument information available."))
+	   (format t _"  There is no argument information available."))
 	  ((string= args "()")
-	   (write-string "  There are no arguments."))
+	   (write-string _"  There are no arguments."))
 	  (t
 	   (write-string "  ")
 	   (indenting-further *standard-output* 2
@@ -360,14 +375,14 @@
   (declare (type function x) (type (member :macro :function nil) kind))
   (fresh-line)
   (ecase kind
-    (:macro (format t "Macro-function: ~S" x))
-    (:function (format t "Function: ~S" x))
+    (:macro (format t _"Macro-function: ~S" x))
+    (:function (format t _"Function: ~S" x))
     ((nil)
-     (format t "~S is a function." x)))
+     (format t _"~S is a function." x)))
   (case (get-type x)
     (#.vm:closure-header-type
      (describe-function-compiled (%closure-function x) kind name)
-     (format t "~&Its closure environment is:")
+     (format t _"~&Its closure environment is:")
      (indenting-further *standard-output* 8)
      (dotimes (i (- (get-closure-length x) (1- vm:closure-info-offset)))
 	      (format t "~&~D: ~S" i (%closure-index-ref x i))))
@@ -380,7 +395,7 @@
        (kernel:byte-closure
 	(describe-function-byte-compiled (byte-closure-function x)
 					 kind name)
-	(format t "~&Its closure environment is:")
+	(format t _"~&Its closure environment is:")
 	(indenting-further *standard-output* 8)
 	(let ((data (byte-closure-data x)))
 	  (dotimes (i (length data))
@@ -390,7 +405,7 @@
        (t
 	 (describe-instance x :funcallable-instance))))
     (t
-     (format t "~&It is an unknown type of function."))))
+     (format t _"~&It is an unknown type of function."))))
 
 
 (defun describe-symbol (x)
@@ -399,40 +414,40 @@
 	(multiple-value-bind (symbol status)
 			     (find-symbol (symbol-name x) package)
 	  (declare (ignore symbol))
-	  (format t "~&~A is an ~A symbol in the ~A package." x
+	  (format t _"~&~A is an ~A symbol in the ~A package." x
 		  (string-downcase (symbol-name status))
 		  (package-name (symbol-package x))))
-	(format t "~&~A is an uninterned symbol." x)))
+	(format t _"~&~A is an uninterned symbol." x)))
   ;;
   ;; Describe the value cell.
   (let* ((kind (info variable kind x))
 	 (wot (ecase kind
-		(:special "special variable")
-		(:constant "constant")
-		(:global "undefined variable")
-		(:macro "symbol macro")
+		(:special _"special variable")
+		(:constant _"constant")
+		(:global _"undefined variable")
+		(:macro _"symbol macro")
 		(:alien nil))))
     (cond
      ((eq kind :alien)
       (let ((info (info variable alien-info x)))
-	(format t "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
+	(format t _"~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
 		(sap-int (eval (alien::heap-alien-info-sap-form info)))
 		(alien-internals:unparse-alien-type
 		 (alien::heap-alien-info-type info)))
-	(format t "~@<Its current value is ~3I~:_~S.~:>"
+	(format t _"~@<Its current value is ~3I~:_~S.~:>"
 		(eval x))))
      ((eq kind :macro)
       (let ((expansion (info variable macro-expansion x)))
-	(format t "~&It is a ~A with expansion: ~S." wot expansion)))
+	(format t _"~&It is a ~A with expansion: ~S." wot expansion)))
      ((boundp x)
       (let ((value (symbol-value x)))
-	(format t "~&It is a ~A; its value is ~S." wot value)
+	(format t _"~&It is a ~A; its value is ~S." wot value)
 	(describe value)))
      ((not (eq kind :global))
-      (format t "~&It is a ~A; no current value." wot)))
+      (format t _"~&It is a ~A; no current value." wot)))
 
     (when (eq (info variable where-from x) :declared)
-      (format t "~&Its declared type is ~S."
+      (format t _"~&Its declared type is ~S."
 	      (type-specifier (info variable type x))))
 
     (desc-doc x 'variable kind))
@@ -441,39 +456,39 @@
   (cond ((macro-function x)
 	 (describe-function (macro-function x) :macro x))
 	((special-operator-p x)
-	 (desc-doc x 'function "Special form"))
+	 (desc-doc x 'function _"Special form"))
 	((fboundp x)
 	 (describe-function (fdefinition x) :function x)))
   ;;
   ;; Print other documentation.
-  (desc-doc x 'structure "Structure")
-  (desc-doc x 'type "Type")
-  (desc-doc x 'setf "Setf macro")
+  (desc-doc x 'structure _"Structure")
+  (desc-doc x 'type _"Type")
+  (desc-doc x 'setf _"Setf macro")
   (dolist (assoc (info random-documentation stuff x))
-    (format t "~&Documentation on the ~(~A~):~%~A" (car assoc) (cdr assoc)))
+    (format t _"~&Documentation on the ~(~A~):~%~A" (car assoc) (cdr assoc)))
   ;;
   ;; Print Class information
   (let ((class (kernel::find-class x nil)))
     (when class
-      (format t "~&It names a class ~A." class)
+      (format t _"~&It names a class ~A." class)
       (describe class)
       (let ((pcl-class (%class-pcl-class class)))
 	(when pcl-class
-	  (format t "~&It names a PCL class ~A." pcl-class)
+	  (format t _"~&It names a PCL class ~A." pcl-class)
 	  (describe pcl-class)))))
   ;;
   ;; Print out information about any types named by the symbol
   (when (eq (info type kind x) :defined)
-    (format t "~&It names a type specifier."))
+    (format t _"~&It names a type specifier."))
   ;;
   ;; Print out properties, possibly ignoring implementation details.
   (do ((plist (symbol-plist X) (cddr plist)))
       ((null plist) ())
     (unless (member (car plist) *implementation-properties*)
-      (format t "~&Its ~S property is ~S." (car plist) (cadr plist))
+      (format t _"~&Its ~S property is ~S." (car plist) (cadr plist))
       (describe (cadr plist))))
 
   ;; Describe where it was defined.
   (let ((locn (info :source-location :defvar x)))
     (when locn
-      (format t "~&It is defined in:~&~A" (c::file-source-location-pathname locn)))))
+      (format t _"~&It is defined in:~&~A" (c::file-source-location-pathname locn)))))
diff --git a/code/dfixnum.lisp b/code/dfixnum.lisp
index aa05b30c0a81a40626913e15e0e150d76ac3f991..70c54e5c0b58ac4d93b21fb7fcf4af268bdeb6c6 100644
--- a/code/dfixnum.lisp
+++ b/code/dfixnum.lisp
@@ -5,7 +5,7 @@
 ;;; and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dfixnum.lisp,v 1.3 2003/02/12 18:35:29 cracauer Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dfixnum.lisp,v 1.4 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,6 +23,8 @@
 ;;;
 ;;; Compatibility: Runs in any valid Common Lisp.
 
+(intl:textdomain "cmucl")
+
 (defpackage "DFIXNUM"
   (:export
 
@@ -59,7 +61,7 @@
   (l 0 :type dfparttype))
 
 (defun dfixnum-inc-df (v i)
-  "increments dfixnum v by dfixnum i"
+  _N"increments dfixnum v by dfixnum i"
   (declare (type dfixnum v) (type dfixnum i))
   (let ((low (+ (dfixnum-l v) (dfixnum-l i))))
     (if (> low dfmax)
@@ -69,7 +71,7 @@
       (setf (dfixnum-l v) low)))
   (let ((high (+ (dfixnum-h v) (dfixnum-h i))))
     (when (> high dfmax)
-      (error "dfixnum became too big ~a + ~a" v i))
+      (error _"dfixnum became too big ~a + ~a" v i))
     (setf (dfixnum-h v) high))
   v)
 
@@ -79,10 +81,10 @@
   (setf (dfixnum-l v) (dfixnum-l i)))
 
 (defun dfixnum-inc-hf (v i)
-  "increments dfixnum v by i (max half fixnum)"
+  _N"increments dfixnum v by i (max half fixnum)"
   (declare (type dfixnum v) (type fixnum i))
   (when (> i dfmax)
-      (error "not a half-fixnum: ~a" i))
+      (error _"not a half-fixnum: ~a" i))
   (let ((low (+ (dfixnum-l v) i)))
     (if (> low dfmax)
 	(progn
@@ -90,11 +92,11 @@
 	  (incf (dfixnum-h v)))
       (setf (dfixnum-l v) (the dfparttype low))))
   (when (> (+ (dfixnum-h v) i) dfmax)
-    (error "dfixnum became too big ~a + ~a" v i))
+    (error _"dfixnum became too big ~a + ~a" v i))
   v)
 
 (defun dfixnum-dec-df (v i)
-  "decrement dfixnum v by dfixnum i"
+  _N"decrement dfixnum v by dfixnum i"
   (declare (type dfixnum v) (type dfixnum i))
   (let ((low (- (dfixnum-l v) (dfixnum-l i)))
 	(high (- (dfixnum-h v) (dfixnum-h i))))
@@ -103,13 +105,13 @@
 	(decf high)
 	(setf low (+ low dfmax)))
     (when (< high 0)
-      (error "dfixnum became negative ~a - ~a (~a/~a)" v i low high))
+      (error _"dfixnum became negative ~a - ~a (~a/~a)" v i low high))
     (setf (dfixnum-h v) high)
     (setf (dfixnum-l v) low))
   v)
 
 (defun dfixnum-dec-hf (v i)
-  "decrement dfixnum v by half-fixnum i"
+  _N"decrement dfixnum v by half-fixnum i"
   (declare (type dfixnum v) (type (integer 0 #.dfmax) i))
   (let ((low (- (dfixnum-l v) i))
 	(high (dfixnum-h v)))
@@ -118,13 +120,13 @@
 	(decf high)
 	(setf low (+ low dfmax)))
     (when (< high 0)
-      (error "dfixnum became negative ~a - ~a (~a/~a)" v i low high))
+      (error _"dfixnum became negative ~a - ~a (~a/~a)" v i low high))
     (setf (dfixnum-h v) high)
     (setf (dfixnum-l v) low))
   v)
 
 (defun dfixnum-inc-integer (df i)
-  "increments dfixnum by an interger which may be bigger than fixnum.
+  _N"increments dfixnum by an interger which may be bigger than fixnum.
    May cons"
   (declare (type dfixnum df) (integer i) (optimize (ext:inhibit-warnings 3)))
   (let ((carry (+ (dfixnum-l df) (mod i dfmax))))
@@ -143,7 +145,7 @@
   (setf (dfixnum-l df) (mod i dfmax)))
 
 (defun dfixnum-make-from-number (i)
-  "returns a new dfixnum from number i"
+  _N"returns a new dfixnum from number i"
   (declare (type number i) (optimize (ext:inhibit-warnings 3)))
   (let ((df (make-dfixnum)))
     (declare (type dfixnum df))
@@ -188,7 +190,7 @@
      (setf ,l (dfixnum-l ,dfnum))))
 
 (defmacro dfixnum-inc-pair (vh vl ih il)
-  "increments a pair of halffixnums by another pair"
+  _N"increments a pair of halffixnums by another pair"
   `(progn
      (let ((low (+ ,vl ,il)))
        (if (> low dfmax)
@@ -198,14 +200,14 @@
 	 (setf ,vl low)))
      (let ((high (+ ,vh ,ih)))
        (when (> high dfmax)
-	 (error "dfixnum became too big ~a/~a + ~a/~a" ,vh ,vl ,ih ,il))
+	 (error _"dfixnum became too big ~a/~a + ~a/~a" ,vh ,vl ,ih ,il))
        (setf ,vh high))))
 
 (defun dfixnum-pair-integer (h l)
   (+ (* h dfmax) l))
 
 (defmacro dfixnum-dec-pair (vh vl ih il)
-  "decrement dfixnum pair by another pair"
+  _N"decrement dfixnum pair by another pair"
   `(let ((low (- ,vl ,il))
 	 (high (- ,vh ,ih)))
      (declare (type fixnum low high))
@@ -213,7 +215,7 @@
        (decf high)
        (setf low (+ low dfmax)))
      (when (< high 0)
-       (error "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+       (error _"dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
 	      ,vh ,vl ,ih ,il low high))
      (setf ,vh high)
      (setf ,vl low)))
diff --git a/code/dyncount.lisp b/code/dyncount.lisp
index d801e9ba54cd171111f2123e9aec8fc593d2cd78..af64f695775ab9c3860d2bea9131647ea3f09298 100644
--- a/code/dyncount.lisp
+++ b/code/dyncount.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dyncount.lisp,v 1.7 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dyncount.lisp,v 1.8 2010/03/19 15:18:58 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 ;;; 
 (in-package "C")
 
+(intl:textdomain "cmucl")
+
 #|
 Put *count-adjustments* back into VOP costs, and verify them.
 Make sure multi-cycle instruction costs are plausible.
diff --git a/code/env-access.lisp b/code/env-access.lisp
index f0f2097ada5d266d202c355d868620a7efca2cb2..8b303717b80a941bcd68cd3d2fae3942bca11c45 100644
--- a/code/env-access.lisp
+++ b/code/env-access.lisp
@@ -6,7 +6,7 @@
 ;;;
 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/env-access.lisp,v 1.5 2008/07/21 21:04:17 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/env-access.lisp,v 1.6 2010/03/19 15:18:58 rtoy Exp $")
 
 ;;;
 ;;; **********************************************************************
@@ -17,6 +17,8 @@
 
 (in-package "EXT")
 
+(intl:textdomain "cmucl")
+
 (export '(variable-information
 	  function-information
 	  declaration-information
@@ -26,7 +28,7 @@
 (in-package "C")
 
 (defun variable-information (var &optional env)
-  "Returns information about the symbol VAR in the lexical environment ENV.
+  _N"Returns information about the symbol VAR in the lexical environment ENV.
 Three values are returned:
   1) Type or binding of VAR.
      NIL           No definition or binding
@@ -74,7 +76,7 @@ Three values are returned:
 			   (info variable type var)))))))))
 
 (defun declaration-information (declaration-name &optional env)
-  "Returns information about declarations named by the symbol DECLARATION-NAME.
+  _N"Returns information about declarations named by the symbol DECLARATION-NAME.
 Supported DECLARATION-NAMES are
   1) OPTIMIZE
      A list whose entries are of the form (QUALITY VALUE) is returned,
@@ -121,10 +123,10 @@ Supported DECLARATION-NAMES are
 		    (when (equal class "DECLARATION")
 		      (push name decls))))
 		decls))))
-      (t (error "Unsupported declaration ~S." declaration-name)))))
+      (t (error _"Unsupported declaration ~S." declaration-name)))))
 
 (defun parse-macro (name lambda-list body &optional env)
-  "Process a macro in the same way that DEFMACRO or MACROLET would.
+  _N"Process a macro in the same way that DEFMACRO or MACROLET would.
 Three values are returned:
   1) A lambda-expression that accepts two arguments
   2) A form
@@ -141,7 +143,7 @@ Three values are returned:
          ,body))))
 
 (defun function-information (function &optional env)
-  "Returns information about the function name FUNCTION in the lexical environment ENV.
+  _N"Returns information about the function name FUNCTION in the lexical environment ENV.
 Three values are returned:
   1) Type of definition or binding:
      NIL          No apparent definition
@@ -217,7 +219,7 @@ Three values are returned:
   `(quote ,env))
 
 (defun augment-environment (env &key variable symbol-macro function macro declare)
-  "Return a new environment containing information in ENV that is augmented
+  _N"Return a new environment containing information in ENV that is augmented
 by the specified parameters:
   :VARIABLE     a list of symbols visible as bound variables in the new
                 environemnt
diff --git a/code/error.lisp b/code/error.lisp
index 7ba478d5bcf74a1bc5fa75e0df6a128d99ac0a5f..a15d0fb1cda95489310067f13c238d1e47a3a5ef 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.88 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.89 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 (use-package "EXTENSIONS")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (in-package "KERNEL")
 (export '(layout-invalid condition-function-name simple-control-error
 	  simple-file-error simple-program-error simple-parse-error
@@ -69,7 +71,7 @@
 			      &body forms)
   (let ((temp (member '&rest names)))
     (unless (= (length temp) 2)
-      (simple-program-error "&rest keyword is ~:[missing~;misplaced~]." temp))
+      (simple-program-error _"&rest keyword is ~:[missing~;misplaced~]." temp))
     (let ((key-vars (ldiff names temp))
           (key-var (or keywords-var (gensym)))
           (rest-var (cadr temp)))
@@ -99,7 +101,7 @@
 (defvar *condition-restarts* ())
 
 (defun compute-restarts (&optional condition)
-  "Return a list of all the currently active restarts ordered from most
+  _N"Return a list of all the currently active restarts ordered from most
    recently established to less recently established.  If Condition is
    specified, then only restarts associated with Condition (or with no
    condition) will be returned."
@@ -134,7 +136,7 @@
   (test-function #'(lambda (cond) (declare (ignore cond)) t)))
 
 (setf (documentation 'restart-name 'function)
-      "Returns the name of the given restart object.")
+      _N"Returns the name of the given restart object.")
 
 (defun restart-report (restart stream)
   (funcall (or (restart-report-function restart)
@@ -145,7 +147,7 @@
            stream))
 
 (defmacro with-condition-restarts (condition-form restarts-form &body body)
-  "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*
+  _N"WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*
    Evaluates the Forms in a dynamic environment where the restarts in the list
    Restarts-Form are associated with the condition returned by Condition-Form.
    This allows FIND-RESTART, etc., to recognize restarts that are not related
@@ -160,7 +162,7 @@
        ,@body)))
 
 (defmacro restart-bind (bindings &body forms)
-  "Executes forms in a dynamic context where the given restart bindings are
+  _N"Executes forms in a dynamic context where the given restart bindings are
    in effect.  Users probably want to use RESTART-CASE.  When clauses contain
    the same restart name, FIND-RESTART will find the first such clause."
   `(let ((*restart-clusters*
@@ -169,7 +171,7 @@
 			       (unless (or (car binding)
 					   (member :report-function
 						   binding :test #'eq))
-				 (warn "Unnamed restart does not have a ~
+				 (warn _"Unnamed restart does not have a ~
 					report function -- ~S"
 				       binding))
 			       `(make-restart
@@ -181,7 +183,7 @@
      ,@forms))
 
 (defun find-restart (name &optional condition)
-  "Returns the first restart named name.  If name is a restart, it is returned
+  _N"Returns the first restart named name.  If name is a restart, it is returned
    if it is currently active.  If no such restart is found, nil is returned.
    It is an error to supply nil as a name.  If Condition is specified and not
    NIL, then only restarts associated with that condition (or with no
@@ -192,24 +194,24 @@
 	   (compute-restarts condition)))
 
 (defun invoke-restart (restart &rest values)
-  "Calls the function associated with the given restart, passing any given
+  _N"Calls the function associated with the given restart, passing any given
    arguments.  If the argument restart is not a restart or a currently active
    non-nil restart name, then a control-error is signalled."
   (let ((real-restart (find-restart restart)))
     (unless real-restart
       (error 'simple-control-error
-	     :format-control "Restart ~S is not active."
+	     :format-control _"Restart ~S is not active."
 	     :format-arguments (list restart)))
     (apply (restart-function real-restart) values)))
 
 (defun invoke-restart-interactively (restart)
-  "Calls the function associated with the given restart, prompting for any
+  _N"Calls the function associated with the given restart, prompting for any
    necessary arguments.  If the argument restart is not a restart or a
    currently active non-nil restart name, then a control-error is signalled."
   (let ((real-restart (find-restart restart)))
     (unless real-restart
       (error 'simple-control-error
-	     :format-control "Restart ~S is not active."
+	     :format-control _"Restart ~S is not active."
 	     :format-arguments (list restart)))
     (%invoke-restart-interactively real-restart)))
 
@@ -270,7 +272,7 @@
 ); eval-when (compile load eval)
 
 (defmacro restart-case (expression &body clauses &environment env)
-  "(RESTART-CASE form
+  _N"(RESTART-CASE form
    {(case-name arg-list {keyword value}* body)}*)
    The form is evaluated in a dynamic context where the clauses have special
    meanings as points to which control may be transferred (see INVOKE-RESTART).
@@ -343,7 +345,7 @@
 (defmacro with-simple-restart ((restart-name format-string
 					     &rest format-arguments)
 			       &body forms)
-  "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)
+  _N"(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)
    body)
    If restart-name is not invoked, then all values returned by forms are
    returned.  If control is transferred to this restart, it immediately
@@ -431,7 +433,7 @@
 
 (setf (condition-class-report (kernel::find-class 'condition))
       #'(lambda (cond stream)
-	  (format stream "Condition ~S was signalled." (type-of cond))))
+	  (format stream _"Condition ~S was signalled." (type-of cond))))
 
 (eval-when (compile load eval)
 
@@ -472,7 +474,7 @@
   (if *print-escape*
       (print-unreadable-object (s stream :identity t :type t))
       (dolist (class (condition-class-cpl (kernel::class-of s))
-		     (error "No REPORT?  Shouldn't happen!"))
+		     (error _"No REPORT?  Shouldn't happen!"))
 	(let ((report (condition-class-report class)))
 	  (when report
 	    (return (funcall report s stream)))))))
@@ -499,7 +501,7 @@
 	  (if (functionp initform)
 	      (funcall initform)
 	      initform))
-	(error "Condition slot is not bound: ~S"
+	(error _"Condition slot is not bound: ~S"
 	       (condition-slot-name slot)))))
 
 (defun find-slot (classes name)
@@ -529,7 +531,7 @@
 	  (let ((actual-initargs (condition-actual-initargs condition))
 		(slot (find-slot (condition-class-cpl class) name)))
 	    (unless slot
-	      (error "Slot ~S of ~S missing." name condition))
+	      (error _"Slot ~S of ~S missing." name condition))
 	    ;;
 	    ;; Loop over actual initargs because the order of
 	    ;; actual initargs determines how slots are initialized.
@@ -546,7 +548,7 @@
 
 
 (defun make-condition (thing &rest args)
-  "Make an instance of a condition object using the specified initargs."
+  _N"Make an instance of a condition object using the specified initargs."
   ;; Note: ANSI specifies no exceptional situations in this function.
   ;; signalling simple-type-error would not be wrong.
   (let* ((thing (if (symbolp thing)
@@ -562,13 +564,13 @@
 		   (error 'simple-type-error
 			  :datum thing
 			  :expected-type 'condition-class
-			  :format-control "~S is not a condition class."
+			  :format-control _"~S is not a condition class."
 			  :format-arguments (list thing)))
 		  (t
 		   (error 'simple-type-error
 			  :datum thing
 			  :expected-type 'condition-class
-			  :format-control "Bad thing for class arg:~%  ~S"
+			  :format-control _"Bad thing for class arg:~%  ~S"
 			  :format-arguments (list thing)))))
 	 (res (make-condition-object args)))
     (setf (%instance-layout res) (%class-layout class))
@@ -697,7 +699,7 @@
 
 (defun %define-condition (name slots documentation report default-initargs)
   (when (info declaration recognized name)
-    (error "Condition already names a declaration: ~S." name))
+    (error _"Condition already names a declaration: ~S." name))
   (let ((class (kernel::find-class name)))
     (setf (slot-class-print-function class) #'%print-condition)
     (setf (condition-class-slots class) slots)
@@ -744,7 +746,7 @@
 
 (defmacro define-condition (name (&rest parent-types) (&rest slot-specs)
 				 &body options)
-  "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*
+  _N"DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*
    Define NAME as a condition type.  This new type inherits slots and its
    report function from the specified PARENT-TYPEs.  A slot spec is either
    a symbol denoting the name of the slot, or a list of the form:
@@ -780,7 +782,7 @@
 	      (all-writers nil append))
       (dolist (spec slot-specs)
 	(when (keywordp spec)
-	  (warn "Keyword slot name indicates probable syntax error:~%  ~S"
+	  (warn _"Keyword slot name indicates probable syntax error:~%  ~S"
 		spec))
 	(let* ((spec (if (consp spec) spec (list spec)))
 	       (slot-name (first spec))
@@ -794,7 +796,7 @@
 	    (do ((options (rest spec) (cddr options)))
 		((null options))
 	      (unless (and (consp options) (consp (cdr options)))
-		(simple-program-error "Malformed condition slot spec:~%  ~S."
+		(simple-program-error _"Malformed condition slot spec:~%  ~S."
                                       spec))
 	      (let ((arg (second options)))
 		(case (first options)
@@ -805,7 +807,7 @@
 		   (writers `(setf ,arg)))
 		  (:initform
 		   (when initform-p
-		     (simple-program-error "More than one :INITFORM in:~%  ~S"
+		     (simple-program-error _"More than one :INITFORM in:~%  ~S"
                                            spec))
 		   (setq initform-p t)
 		   (setq initform arg))
@@ -815,14 +817,14 @@
 		  (:documentation
 		   (when documentation
 		     (simple-program-error
-		      "More than one slot :DOCUMENTATION in~%  ~s" spec))
+		      _"More than one slot :DOCUMENTATION in~%  ~s" spec))
 		   (unless (stringp arg)
 		     (simple-program-error
-		      "Slot :DOCUMENTATION is not a string in~%  ~s" spec))
+		      _"Slot :DOCUMENTATION is not a string in~%  ~s" spec))
 		   (setq documentation arg))
 		  (:type)
 		  (t
-		   (simple-program-error "Unknown slot option:~%  ~S"
+		   (simple-program-error _"Unknown slot option:~%  ~S"
                                          (first options))))))
 
 	    (push (list slot-name (readers) (writers)) slot-name/accessors)
@@ -842,7 +844,7 @@
       
       (dolist (option options)
 	(unless (consp option)
-	  (simple-program-error "Bad option:~%  ~S" option))
+	  (simple-program-error _"Bad option:~%  ~S" option))
 	(case (first option)
 	  (:documentation (setq documentation (second option)))
 	  (:report
@@ -865,7 +867,7 @@
 				`#'(lambda () ,val))
 			    default-initargs)))))
 	  (t
-	   (simple-program-error "Unknown option: ~S" (first option)))))
+	   (simple-program-error _"Unknown option: ~S" (first option)))))
 
       `(progn
 	 (eval-when (compile load eval)
@@ -898,13 +900,13 @@
 (defvar *handler-clusters* nil)
 
 (defmacro handler-bind (bindings &body forms)
-  "(HANDLER-BIND ( {(type handler)}* )  body)
+  _N"(HANDLER-BIND ( {(type handler)}* )  body)
    Executes body in a dynamic context where the given handler bindings are
    in effect.  Each handler must take the condition being signalled as an
    argument.  The bindings are searched first to last in the event of a
    signalled condition."
   (unless (every #'(lambda (x) (and (listp x) (= (length x) 2))) bindings)
-    (simple-program-error "Ill-formed handler bindings."))
+    (simple-program-error _"Ill-formed handler bindings."))
   `(let ((*handler-clusters*
 	  (cons (list ,@(mapcar #'(lambda (x) `(cons ',(car x) ,(cadr x)))
 				bindings))
@@ -940,7 +942,7 @@
 (define-condition simple-style-warning (simple-condition style-warning) ())
 
 (defun print-simple-error (condition stream)
-  (format stream "~&~@<Error in function ~S:  ~3i~:_~?~:>"
+  (format stream _"~&~@<Error in function ~S:  ~3i~:_~?~:>"
 	  (condition-function-name condition)
 	  (simple-condition-format-control condition)
 	  (simple-condition-format-arguments condition)))
@@ -957,21 +959,21 @@
   ()
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
-	     (format stream "Control stack overflow"))))
+	     (format stream _"Control stack overflow"))))
 
 #+heap-overflow-check
 (define-condition heap-overflow (storage-condition)
   ()
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
-	     (format stream "Heap (dynamic space) overflow"))))
+	     (format stream _"Heap (dynamic space) overflow"))))
 
 (define-condition type-error (error)
   ((datum :reader type-error-datum :initarg :datum)
    (expected-type :reader type-error-expected-type :initarg :expected-type))
   (:report
    (lambda (condition stream)
-     (format stream "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
+     (format stream _"~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
 	     (condition-function-name condition)
 	     (type-error-datum condition)
 	     (type-error-expected-type condition)))))
@@ -982,7 +984,7 @@
   ()
   (:report
    (lambda (condition stream)
-     (format stream "Layout-invalid error in ~S:~@
+     (format stream _"Layout-invalid error in ~S:~@
 		     Type test of class ~S was passed obsolete instance:~%  ~S"
 	     (condition-function-name condition)
 	     (kernel:class-proper-name (type-error-expected-type condition))
@@ -993,7 +995,7 @@
    (possibilities :reader case-failure-possibilities :initarg :possibilities))
   (:report
     (lambda (condition stream)
-      (format stream "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
+      (format stream _"~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
 	      (type-error-datum condition)
 	      (case-failure-name condition)
 	      (case-failure-possibilities condition)))))
@@ -1056,7 +1058,7 @@
 (define-condition end-of-file (stream-error) ()
   (:report
    (lambda (condition stream)
-     (format stream "End-of-File on ~S"
+     (format stream _"End-of-File on ~S"
 	     (stream-error-stream condition)))))
 
 (define-condition file-error (error)
@@ -1071,7 +1073,7 @@
 (define-condition simple-file-error (simple-condition file-error) ()
   (:report
    (lambda (condition stream)
-     (format stream "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
+     (format stream _"~&~@<File-error in function ~S:  ~3i~:_~?~:>"
 	     (condition-function-name condition)
 	     (simple-condition-format-control condition)
 	     (simple-condition-format-arguments condition)))))
@@ -1086,7 +1088,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-	     "Error in ~S:  the variable ~S is unbound."
+	     _"Error in ~S:  the variable ~S is unbound."
 	     (condition-function-name condition)
 	     (cell-error-name condition)))))
   
@@ -1094,7 +1096,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-	     "Error in ~S:  the function ~S is undefined."
+	     _"Error in ~S:  the function ~S is undefined."
 	     (condition-function-name condition)
 	     (cell-error-name condition)))))
 
@@ -1104,7 +1106,7 @@
 (define-condition constant-modified (reference-condition warning)
   ((function-name :initarg :function-name :reader constant-modified-function-name))
   (:report (lambda (c s)
-             (format s "~@<Destructive function ~S called on ~
+             (format s _"~@<Destructive function ~S called on ~
                          constant data.~@:>"
                      (constant-modified-function-name c))
 	     (print-references (reference-condition-references c) s)))
@@ -1115,10 +1117,10 @@
 	      :initform nil)
    (operands :reader arithmetic-error-operands :initarg :operands))
   (:report (lambda (condition stream)
-	     (format stream "Arithmetic error ~S signalled."
+	     (format stream _"Arithmetic error ~S signalled."
 		     (type-of condition))
 	     (when (arithmetic-error-operation condition)
-	       (format stream "~%Operation was ~S, operands ~S."
+	       (format stream _"~%Operation was ~S, operands ~S."
 		       (arithmetic-error-operation condition)
 		       (arithmetic-error-operands condition))))))
 
@@ -1141,7 +1143,7 @@
 ;;; in closing over tags.  The previous version sets up unique run-time tags.
 ;;;
 (defmacro handler-case (form &rest cases)
-  "(HANDLER-CASE form
+  _N"(HANDLER-CASE form
    { (type ([var]) body) }* )
    Executes form in a context with handlers established for the condition
    types.  A peculiar property allows type to be :no-error.  If such a clause
@@ -1193,7 +1195,7 @@
 		     annotated-cases))))))))
 
 (defmacro ignore-errors (&rest forms)
-  "Executes forms after establishing a handler for all error conditions that
+  _N"Executes forms after establishing a handler for all error conditions that
    returns from this form nil and the condition signalled."
   `(handler-case (progn ,@forms)
      (error (condition) (values nil condition))))
@@ -1203,21 +1205,23 @@
 ;;;; Restart definitions.
 
 (define-condition abort-failure (control-error) ()
-  (:report
-   "Found an \"abort\" restart that failed to transfer control dynamically."))
+  (:report (lambda (condition stream)
+	     (declare (ignore condition))
+	     (write-string _"Found an \"abort\" restart that failed to transfer control dynamically."
+			   stream))))
 
 ;;; ABORT signals an error in case there was a restart named abort that did
 ;;; not tranfer control dynamically.  This could happen with RESTART-BIND.
 ;;;
 (defun abort (&optional condition)
-  "Transfers control to a restart named abort, signalling a control-error if
+  _N"Transfers control to a restart named abort, signalling a control-error if
    none exists."
   (invoke-restart (find-restart 'abort condition))
   (error 'abort-failure))
 
 
 (defun muffle-warning (&optional condition)
-  "Transfers control to a restart named muffle-warning, signalling a
+  _N"Transfers control to a restart named muffle-warning, signalling a
    control-error if none exists."
   (invoke-restart (find-restart 'muffle-warning condition)))
 
@@ -1233,12 +1237,12 @@
 	 (invoke-restart restart ,@args)))))
 
 (define-nil-returning-restart continue ()
-  "Transfer control to a restart named continue, returning nil if none exists.")
+  _N"Transfer control to a restart named continue, returning nil if none exists.")
 
 (define-nil-returning-restart store-value (value)
-  "Transfer control and value to a restart named store-value, returning nil if
+  _N"Transfer control and value to a restart named store-value, returning nil if
    none exists.")
 
 (define-nil-returning-restart use-value (value)
-  "Transfer control and value to a restart named use-value, returning nil if
+  _N"Transfer control and value to a restart named use-value, returning nil if
    none exists.")
diff --git a/code/eval.lisp b/code/eval.lisp
index ec2201ae9efede46b20795556d2caa0deef7303e..a4764024d445c5e625499641f8fdcc56c076589f 100644
--- a/code/eval.lisp
+++ b/code/eval.lisp
@@ -5,11 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.46 2010/03/12 11:00:33 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.47 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 (in-package "LISP")
+
+(intl:textdomain "cmucl")
+
 (export '(eval constantp quote proclaim
 	  eval-when progn prog1 prog2 let let*
 	  do do* dotimes dolist progv and or cond if the
@@ -62,20 +65,20 @@
 (defconstant lambda-list-keywords
   '(&optional &rest &key &aux &body &whole &allow-other-keys &environment
     &parse-body c:&more)
-  "Keywords that you can put in a lambda-list, supposing you should want
+  _N"Keywords that you can put in a lambda-list, supposing you should want
   to do such a thing.")
 
 (defconstant call-arguments-limit most-positive-fixnum
-  "The exclusive upper bound on the number of arguments which may be passed
+  _N"The exclusive upper bound on the number of arguments which may be passed
   to a function, including rest args.")
 
 (defconstant lambda-parameters-limit most-positive-fixnum
-  "The exclusive upper bound on the number of parameters which may be specifed
+  _N"The exclusive upper bound on the number of parameters which may be specifed
   in a given lambda list.  This is actually the limit on required and optional
   parameters.  With &key and &aux you can get more.")
 
 (defconstant multiple-values-limit most-positive-fixnum
-  "The exclusive upper bound on the number of multiple-values that you can
+  _N"The exclusive upper bound on the number of multiple-values that you can
   have.")
 
 
@@ -137,7 +140,7 @@
 (declaim (type (member :warn t nil) *top-level-auto-declare*))
 
 (defvar *top-level-auto-declare* :warn
-  "This variable controls whether assignments to unknown variables at top-level
+  _N"This variable controls whether assignments to unknown variables at top-level
    (or in any other call to EVAL of SETQ) will implicitly declare the variable
    SPECIAL.  These values are meaningful:
      :WARN  -- Print a warning, but declare the variable special (the default.)
@@ -150,7 +153,7 @@
 ;;;    Pick off a few easy cases, and call INTERNAL-EVAL for the rest.
 ;;;
 (defun eval (original-exp)
-  "Evaluates its single arg in a null lexical environment, returns the
+  _N"Evaluates its single arg in a null lexical environment, returns the
   result or results."
   (declare (optimize (safety 1)))
   (let ((exp (macroexpand original-exp)))
@@ -170,7 +173,7 @@
 	   (function
 	    (unless (= args 1)
 	      (error 'simple-program-error
-		     :format-control "Wrong number of args to FUNCTION:~% ~S."
+		     :format-control _"Wrong number of args to FUNCTION:~% ~S."
 		     :format-arguments (list exp)))
 	    (let ((name (second exp)))
 	      (cond ((consp name)
@@ -181,27 +184,27 @@
 		     (error 'simple-type-error
 			    :datum name
 			    :expected-type '(not (satisfies macro-function))
-			    :format-control "~S is a macro."
+			    :format-control _"~S is a macro."
 			    :format-arguments (list name)))
 		    ((special-operator-p name)
 		     (error 'simple-type-error
 			    :datum name
 			    :expected-type '(not
 					     (satisfies special-operator-p))
-			    :format-control "~S is a special operator."
+			    :format-control _"~S is a special operator."
 			    :format-arguments (list name)))
 		    (t
 		     (fdefinition name)))))
 	   (quote
 	    (unless (= args 1)
 	      (error 'simple-program-error
-		     :format-control "Wrong number of args to QUOTE:~% ~S."
+		     :format-control _"Wrong number of args to QUOTE:~% ~S."
 		     :format-arguments (list exp)))
 	    (second exp))
 	   (setq
 	    (unless (evenp args)
 	      (error 'simple-program-error
-		     :format-control "Odd number of args to SETQ:~% ~S."
+		     :format-control _"Odd number of args to SETQ:~% ~S."
 		     :format-arguments (list exp)))
 	    (unless (zerop args)
 	      (do ((name (cdr exp) (cddr name)))
@@ -218,7 +221,7 @@
 		    (:global
 		     (case *top-level-auto-declare*
 		       (:warn
-			(warn "Declaring ~S special." symbol))
+			(warn _"Declaring ~S special." symbol))
 		       ((t))
 		       ((nil)
 			(return (eval:internal-eval original-exp))))
@@ -240,7 +243,7 @@
 			  situations)))
 		(when (or (not (listp situations))
 			  bad-situations)
-		  (warn "Bad Eval-When situation list: ~S." bad-situations))))
+		  (warn _"Bad Eval-When situation list: ~S." bad-situations))))
 	    (if (and (> args 0)
 		     (or (member 'eval (second exp))
 			 (member :execute (second exp))))
@@ -266,13 +269,13 @@
 (declaim (notinline eval:internal-eval))
 (defun eval:internal-eval (form &optional quietly env)
   (declare (ignore quietly env))
-  (error "Attempt to evaluation a complex expression:~%     ~S~@
+  (error _"Attempt to evaluation a complex expression:~%     ~S~@
 	  This expression must be compiled, but the compiler is not loaded."
 	 form))
 ;;;
 (declaim (notinline eval:make-interpreted-function))
 (defun eval:make-interpreted-function (x)
-  (error "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~
+  (error _"EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~
 	  ~%     ~S~%"
 	 x))
 
@@ -283,7 +286,7 @@
 ;;; compiled with COMPILE.  If that fails, check for an inline expansion.
 ;;;
 (defun function-lambda-expression (fun)
-  "Given a function, return three values:
+  _N"Given a function, return three values:
    1] A lambda expression that could be used to define the function, or NIL if
       the definition isn't available.
    2] NIL if the function was definitely defined in a null lexical environment,
@@ -328,12 +331,12 @@
 ;;;; Syntactic environment access:
 
 (defun special-operator-p (symbol)
-  "If the symbol globally names a special form, returns T, otherwise NIL."
+  _N"If the symbol globally names a special form, returns T, otherwise NIL."
   (declare (symbol symbol))
   (eq (info function kind symbol) :special-form))
 
 (defvar *macroexpand-hook* 'funcall
-  "The value of this variable must be a function that can take three
+  _N"The value of this variable must be a function that can take three
   arguments, a macro expander function, the macro form to be expanded,
   and the lexical environment to expand in.  The function should
   return the expanded form.  This function is called by MACROEXPAND-1
@@ -353,7 +356,7 @@
 ;;; it again.
 ;;; 
 (defun invoke-macroexpand-hook (fun form env)
-  "Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to
+  _N"Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to
    a function."
   (unless (functionp *macroexpand-hook*)
     (setf *macroexpand-hook*
@@ -361,7 +364,7 @@
   (funcall *macroexpand-hook* fun form env))
 
 (defun macro-function (symbol &optional env)
-  "If SYMBOL names a macro in ENV, returns the expansion function,
+  _N"If SYMBOL names a macro in ENV, returns the expansion function,
    else returns NIL.  If ENV is unspecified or NIL, use the global
    environment only."
   (declare (symbol symbol))
@@ -385,7 +388,7 @@
   (declare (symbol symbol) (type function function))
 
   (when (eq (info function kind symbol) :special-form)
-    (error "~S names a special form." symbol))
+    (error _"~S names a special form." symbol))
 
   (setf (info function kind symbol) :macro)
   (setf (info function macro-function symbol) function)
@@ -393,7 +396,7 @@
 	#'(lambda (&rest args) (declare (ignore args))
 	    (error 'simple-undefined-function
 		   :name symbol
-		   :format-control "Cannot funcall macro functions.")))
+		   :format-control _"Cannot funcall macro functions.")))
   function)
 
 ;;; Macroexpand-1  --  Public
@@ -401,7 +404,7 @@
 ;;;    The Env is a LEXENV or NIL (the null environment.)
 ;;;
 (defun macroexpand-1 (form &optional env)
-  "If form is a macro (or symbol macro), expands it once.  Returns two values,
+  _N"If form is a macro (or symbol macro), expands it once.  Returns two values,
    the expanded form and a T-or-NIL flag indicating whether the form was, in
    fact, a macro.  Env is the lexical environment to expand in, which defaults
    to the null environment."
@@ -425,7 +428,7 @@
 	 (values form nil))))
 
 (defun macroexpand (form &optional env)
-  "Repetitively call MACROEXPAND-1 until the form can no longer be expanded.
+  _N"Repetitively call MACROEXPAND-1 until the form can no longer be expanded.
    Returns the final resultant form, and T if it was expanded.  ENV is the
    lexical environment to expand in, or NIL (the default) for the null
    environment."
@@ -439,7 +442,7 @@
     (frob form nil)))
 
 (defun compiler-macro-function (name &optional env)
-  "If NAME names a compiler-macro, returns the expansion function,
+  _N"If NAME names a compiler-macro, returns the expansion function,
    else returns NIL.  Note: if the name is shadowed in ENV by a local
    definition, or declared NOTINLINE, NIL is returned.  Can be
    set with SETF."
@@ -458,7 +461,7 @@
   (declare (type (or symbol list) name)
 	   (type (or function null) function))
   (when (eq (info function kind name) :special-form)
-    (error "~S names a special form." name))
+    (error _"~S names a special form." name))
   (setf (info function compiler-macro-function name) function)
   function)
 
@@ -467,7 +470,7 @@
 ;;; trying to debug his compiler macros.
 
 (defun compiler-macroexpand-1 (form &optional env)
-  "If FORM is a function call for which a compiler-macro has been defined,
+  _N"If FORM is a function call for which a compiler-macro has been defined,
    invoke the expander function using *macroexpand-hook* and return the
    results and T.  Otherwise, return the original form and NIL."
   (let ((fun (and (consp form) (compiler-macro-function (car form) env))))
@@ -477,7 +480,7 @@
 	(values form nil))))
 
 (defun compiler-macroexpand (form &optional env)
-  "Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be
+  _N"Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be
    expanded.  ENV is the lexical environment to expand in, or NIL (the
    default) for the null environment."
   (labels ((frob (form expanded)
@@ -490,7 +493,7 @@
     (frob form env)))
 
 (defun constantp (object &optional environment)
-  "True of any Lisp object that has a constant value: types that eval to
+  _N"True of any Lisp object that has a constant value: types that eval to
   themselves, keywords, constants, and list whose car is QUOTE."
   (declare (ignore environment))
   (typecase object
@@ -507,7 +510,7 @@
 ;;; Function invocation:
 
 (defun apply (function arg &rest args)
-  "Applies FUNCTION to a list of arguments produced by evaluating ARGS in
+  _N"Applies FUNCTION to a list of arguments produced by evaluating ARGS in
   the manner of LIST*.  That is, a list is made of the values of all but the
   last argument, appended to the value of the last argument, which must be a
   list."
@@ -523,7 +526,7 @@
 
 
 (defun funcall (function &rest arguments)
-  "Calls Function with the given Arguments."
+  _N"Calls Function with the given Arguments."
   (apply function arguments))
 
 
@@ -531,9 +534,9 @@
 ;;; Multiple-Value forms:
 
 (defun values (&rest values)
-  "Returns all of its arguments, in order, as values."
+  _N"Returns all of its arguments, in order, as values."
   (values-list values))
 
 (defun values-list (list)
-  "Returns all of the elements of List, in order, as values."
+  _N"Returns all of the elements of List, in order, as values."
   (values-list list))
diff --git a/code/exports.lisp b/code/exports.lisp
index 9f13e7e49eb3c051abd52bfcf6f0eece1386ccdf..0d719df6d6f1e416b8e33b084cbf5b907c31d3ea 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.293 2010/02/07 04:28:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.294 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,8 @@
 
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (if (find-package "PCL")
     (rename-package "PCL" "PCL" 'nil)
     (make-package "PCL" :nicknames 'nil :use nil))
@@ -588,8 +590,14 @@
    "WRITE-SEQUENCE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P"
    "ZEROP"))
 
+(defpackage "INTL"
+  (:use "COMMON-LISP")
+  (:export "SETLOCALE" "TEXTDOMAIN" "GETTEXT" "DGETTEXT" "NGETTEXT" "DNGETTEXT"
+           "*TRANSLATABLE-DUMP-STREAM*" "READ-TRANSLATABLE-STRING"
+	   "*LOCALE-DIRECTORIES*"))
+
 (defpackage "LISP"
-  (:use "COMMON-LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "DEBUG" "BIGNUM")
+  (:use "COMMON-LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "DEBUG" "BIGNUM" "INTL")
   (:shadowing-import-from
    "COMMON-LISP" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" "STRUCTURE-CLASS"
    "CLASS-OF" "FIND-CLASS")
diff --git a/code/extensions.lisp b/code/extensions.lisp
index 00eee3aa6d8ef66aeb939e2d1c7d224152c796c5..8fd07d13ab49f8c397a2447e8bc736cee74e52b4 100644
--- a/code/extensions.lisp
+++ b/code/extensions.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extensions.lisp,v 1.28 2003/10/05 11:41:22 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extensions.lisp,v 1.29 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;; **********************************************************************
 (in-package "EXTENSIONS")
 
+(intl:textdomain "cmucl")
+
 (export '(letf* letf dovector deletef indenting-further file-comment
 		read-char-no-edit listen-skip-whitespace concat-pnames
 		iterate once-only collect do-anonymous undefined-value
@@ -38,20 +40,20 @@
 ;;;
 (declaim (ftype (function () nil) required-argument))
 (defun required-argument ()
-  "This function can be used as the default value for keyword arguments that
+  _N"This function can be used as the default value for keyword arguments that
   must be always be supplied.  Since it is known by the compiler to never
   return, it will avoid any compile-time type warnings that would result from a
   default value inconsistent with the declared type.  When this function is
   called, it signals an error indicating that a required keyword argument was
   not supplied.  This function is also useful for DEFSTRUCT slot defaults
   corresponding to required arguments."
-  (error "A required keyword argument was not supplied."))
+  (error _"A required keyword argument was not supplied."))
 
 
 ;;; FILE-COMMENT  --  Public
 ;;;
 (defmacro file-comment (string)
-  "FILE-COMMENT String
+  _N"FILE-COMMENT String
   When COMPILE-FILE sees this form at top-level, it places the constant string
   in the run-time source location information.  DESCRIBE will print the file
   comment for the file that a function was defined in.  The string is also
@@ -68,7 +70,7 @@
 
   
 (defun listen-skip-whitespace (&optional (stream *standard-input*))
-  "See listen.  Any whitespace in the input stream will be flushed."
+  _N"See listen.  Any whitespace in the input stream will be flushed."
   (do ((char (read-char-no-hang stream nil nil nil)
 	     (read-char-no-hang stream nil nil nil)))
       ((null char) nil)
@@ -79,7 +81,7 @@
 ;;; These macros waste time as opposed to space.
 
 (defmacro letf* (bindings &body body &environment env)
-  "Does what one might expect, saving the old values and setting the generalized
+  _N"Does what one might expect, saving the old values and setting the generalized
   variables to the new values in sequence.  Unwind-protects and get-setf-method
   are used to preserve the semantics one might expect in analogy to let*,
   and the once-only evaluation of subforms."
@@ -101,7 +103,7 @@
 
 
 (defmacro letf (bindings &body body &environment env)
-  "Like letf*, but evaluates all the implicit subforms and new values of all
+  _N"Like letf*, but evaluates all the implicit subforms and new values of all
   the implied setfs before altering any values.  However, the store forms
   (see get-setf-method) must still be evaluated in sequence.  Uses unwind-
   protects to protect the environment."
@@ -149,7 +151,7 @@
 ;;; the indentation of a stream.
 
 (defmacro indenting-further (stream more &rest body)
-  "Causes the output of the indenting Stream to indent More spaces.  More is
+  _N"Causes the output of the indenting Stream to indent More spaces.  More is
   evaluated twice."
   `(unwind-protect
      (progn
@@ -173,7 +175,7 @@
 
 
 (defmacro dovector ((elt vector &optional default) &rest forms)
-  "Just like dolist, but with one-dimensional arrays."
+  _N"Just like dolist, but with one-dimensional arrays."
   (let ((index (gensym))
 	(length (gensym))
 	(vec (gensym)))
@@ -199,7 +201,7 @@
 ;;;    The ultimate iteration macro...
 ;;;
 (defmacro iterate (name binds &body body)
-  "Iterate Name ({(Var Initial-Value)}*) Declaration* Form*
+  _N"Iterate Name ({(Var Initial-Value)}*) Declaration* Form*
   This is syntactic sugar for Labels.  It creates a local function Name with
   the specified Vars as its arguments and the Declarations and Forms as its
   body.  This function is then called with the Initial-Values, and the result
@@ -207,7 +209,7 @@
   (dolist (x binds)
     (unless (and (listp x)
 		 (= (length x) 2))
-      (error "Malformed iterate variable spec: ~S." x)))
+      (error _"Malformed iterate variable spec: ~S." x)))
   
   `(labels ((,name ,(mapcar #'first binds) ,@body))
      (,name ,@(mapcar #'second binds))))
@@ -251,7 +253,7 @@
 ;;;    The ultimate collection macro...
 ;;;
 (defmacro collect (collections &body body)
-  "Collect ({(Name [Initial-Value] [Function])}*) {Form}*
+  _N"Collect ({(Name [Initial-Value] [Function])}*) {Form}*
   Collect some values somehow.  Each of the collections specifies a bunch of
   things which collected during the evaluation of the body of the form.  The
   name of the collection is used to define a local macro, a la MACROLET.
@@ -274,7 +276,7 @@
 	(binds ()))
     (dolist (spec collections)
       (unless (<= 1 (length spec) 3)
-	(error "Malformed collection specifier: ~S." spec))
+	(error _"Malformed collection specifier: ~S." spec))
       (let ((n-value (gensym))
 	    (name (first spec))
 	    (default (second spec))
@@ -303,7 +305,7 @@
 ;;; forms are only evaluated once.
 ;;;
 (defmacro once-only (specs &body body)
-  "Once-Only ({(Var Value-Expression)}*) Form*
+  _N"Once-Only ({(Var Value-Expression)}*) Form*
   Create a Let* which evaluates each Value-Expression, binding a temporary
   variable to the result, and wrapping the Let* around the result of the
   evaluation of Body.  Within the body, each Var is bound to the corresponding
@@ -315,7 +317,7 @@
 	`(progn ,@body)
 	(let ((spec (first specs)))
 	  (when (/= (length spec) 2)
-	    (error "Malformed Once-Only binding spec: ~S." spec))
+	    (error _"Malformed Once-Only binding spec: ~S." spec))
 	  (let ((name (first spec))
 		(exp-temp (gensym)))
 	    `(let ((,exp-temp ,(second spec))
@@ -336,20 +338,20 @@
 	 (l2 (gensym)))
     ;; Check for illegal old-style do.
     (when (or (not (listp varlist)) (atom endlist))
-      (error "Ill-formed ~S -- possibly illegal old style DO?" name))
+      (error _"Ill-formed ~S -- possibly illegal old style DO?" name))
     ;; Parse the varlist to get inits and steps.
     (dolist (v varlist)
       (cond ((symbolp v) (push v inits))
 	    ((listp v)
 	     (unless (symbolp (first v))
-	       (error "~S step variable is not a symbol: ~S" name (first v)))
+	       (error _"~S step variable is not a symbol: ~S" name (first v)))
 	     (case (length v)
 	       (1 (push (first v) inits))
 	       (2 (push v inits))
 	       (3 (push (list (first v) (second v)) inits)
 		  (setq steps (list* (third v) (first v) steps)))
-	       (t (error "~S is an illegal form for a ~S varlist." v name))))
-	    (t (error "~S is an illegal form for a ~S varlist." v name))))
+	       (t (error _"~S is an illegal form for a ~S varlist." v name))))
+	    (t (error _"~S is an illegal form for a ~S varlist." v name))))
     ;; And finally construct the new form.
     `(block ,BLOCK
        (,bind ,(nreverse inits)
@@ -365,7 +367,7 @@
 
 
 (defmacro do-anonymous (varlist endlist &parse-body (body decls))
-  "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
+  _N"DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
   Like DO, but has no implicit NIL block.  Each Var is initialized in parallel
   to the value of the specified Init form.  On subsequent iterations, the Vars
   are assigned the value of the Step form (if any) in paralell.  The Test is
@@ -377,7 +379,7 @@
 
 (defmacro do-hash ((key-var value-var table &optional result)
 		   &parse-body (body decls))
-  "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*
+  _N"DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*
    Iterate over the entries in a hash-table."
   (let ((gen (gensym))
 	(n-more (gensym)))
@@ -403,7 +405,7 @@
 (defmacro define-hash-cache (name args &key hash-function hash-bits default
 				  (init-form 'progn)
 				  (values 1))
-  "DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*
+  _N"DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*
   Define a hash cache that associates some number of argument values to a
   result value.  The Test-Function paired with each Arg-Name is used to compare
   the value for that arg in a cache entry with a supplied arg.  The
@@ -456,7 +458,7 @@
 	 (n-cache (gensym)))
 
     (unless (= (length default-values) values)
-      (error "Number of default values ~S differs from :VALUES ~D."
+      (error _"Number of default values ~S differs from :VALUES ~D."
 	     default values))
 
     (collect ((inlines)
@@ -474,7 +476,7 @@
       (let ((n 0))
 	(dolist (arg args)
 	  (unless (= (length arg) 2)
-	    (error "Bad arg spec: ~S." arg))
+	    (error _"Bad arg spec: ~S." arg))
 	  (let ((arg-name (first arg))
 		(test (second arg)))
 	    (arg-vars arg-name)
@@ -577,7 +579,7 @@
 (defmacro defun-cached ((name &rest options &key (values 1) default
 			      &allow-other-keys)
 			args &parse-body (body decls doc))
-  "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*
+  _N"DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*
   Some syntactic sugar for defining a function whose values are cached by
   DEFINE-HASH-CACHE."
   (let ((default-values (if (and (consp default) (eq (car default) 'values))
@@ -607,6 +609,6 @@
 ;;; CACHE-HASH-EQ  -- Public
 ;;;
 (defmacro cache-hash-eq (x)
-  "Return an EQ hash of X.  The value of this hash for any given object can (of
+  _N"Return an EQ hash of X.  The value of this hash for any given object can (of
   course) change at arbitary times."
   `(lisp::pointer-hash ,x))
diff --git a/code/extfmts.lisp b/code/extfmts.lisp
index 96075df7aa135afbc1fabf9188f7d9cc95ead966..ebbe7d15cba4a4f2574aa0635ff4bd2f44479ed4 100644
--- a/code/extfmts.lisp
+++ b/code/extfmts.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.22 2010/03/12 10:39:37 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.23 2010/03/19 15:18:58 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 
 (in-package "STREAM")
 
+(intl:textdomain "cmucl")
+
 (export '(string-to-octets octets-to-string *default-external-format*
 	  string-encode string-decode set-system-external-format
 	  +replacement-character-code+))
@@ -44,7 +46,7 @@
   (:report
     (lambda (condition stream)
       (declare (ignore condition))
-      (format stream "Attempting unimplemented external-format I/O."))))
+      (format stream _"Attempting unimplemented external-format I/O."))))
 
 (defun %efni (a b c d)
   (declare (ignore a b c d))
@@ -187,7 +189,7 @@
 				       &optional octets-to-code code-to-octets
 				       flush-state copy-state)
   (when (and (oddp (length args)) (not (= (length args) 1)))
-    (warn "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT." args))
+    (warn _"Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT." args))
   (let* ((tmp (gensym))
 	 (min (if (evenp (length args))
 		  (or (getf args :min) (getf args :size) 1)
@@ -329,12 +331,12 @@
 	     (value (read stm nil stm) (read stm nil stm)))
 	    ((or (eq alias stm) (eq value stm))
 	     (unless (eq alias stm)
-	       (warn "External-format aliases file ends early.")))
+	       (warn _"External-format aliases file ends early.")))
 	  (if (and (keywordp alias) (or (keywordp value)
 					(and (consp value)
 					     (every #'keywordp value))))
 	      (setf (gethash alias *external-format-aliases*) value)
-	      (warn "Bad entry in external-format aliases file: ~S => ~S."
+	      (warn _"Bad entry in external-format aliases file: ~S => ~S."
 		    alias value)))))))
 
 (defun %find-external-format (name)
@@ -355,7 +357,7 @@
        (cnt 0 (1+ cnt)))
       ((or (null tmp) (= cnt 50))
        (unless (null tmp)
-         (error "External-format aliasing depth exceeded.")))
+         (error _"External-format aliasing depth exceeded.")))
     (setq name tmp))
 
   (or (gethash name *external-formats*)
@@ -376,9 +378,9 @@
 
 (defun %compose-external-formats (a b)
   (when (ef-composingp a)
-    (error "~S is a Composing-External-Format." (ef-name a)))
+    (error _"~S is a Composing-External-Format." (ef-name a)))
   (unless (ef-composingp b)
-    (error "~S is not a Composing-External-Format." (ef-name b)))
+    (error _"~S is not a Composing-External-Format." (ef-name b)))
   (make-external-format
    (%composed-ef-name (ef-name a) (ef-name b))
    (make-efx
@@ -410,7 +412,7 @@
     (return-from find-external-format name))
 
   (or (if (consp name) (every #'keywordp name) (keywordp name))
-      (error "~S is not a valid external format name." name))
+      (error _"~S is not a valid external format name." name))
 
   (when (eq name :default)
     (setq name *default-external-format*))
@@ -421,7 +423,7 @@
   (flet ((not-found ()
 	   (when (equal *default-external-format* name)
 	     (setq *default-external-format* :iso8859-1))
-	   (if error-p (error "External format ~S not found." name) nil)))
+	   (if error-p (error _"External format ~S not found." name) nil)))
     (if (consp name)
 	(let ((efs (mapcar #'%find-external-format name)))
 	  (if (member nil efs)
@@ -508,7 +510,7 @@
   (:report
     (lambda (condition stream)
       (declare (ignore condition))
-      (format stream "Attempting I/O through void external-format."))))
+      (format stream _"Attempting I/O through void external-format."))))
 
 (define-external-format :void (:size 0) ()
   (octets-to-code (state input unput)
@@ -681,7 +683,7 @@
 
 (defun string-to-octets (string &key (start 0) end (external-format :default)
 				     (buffer nil bufferp))
-  "Convert String to octets using the specified External-format.  The
+  _N"Convert String to octets using the specified External-format.  The
    string is bounded by Start (defaulting to 0) and End (defaulting to
    the end of the string.  If Buffer is given, the octets are stored
    there.  If not, a new buffer is created."
@@ -721,7 +723,7 @@
 				     (string nil stringp)
 			             (s-start 0) (s-end nil s-end-p)
 			             (state nil))
-  "Octets-to-string converts an array of octets in Octets to a string
+  _N"Octets-to-string converts an array of octets in Octets to a string
   according to the specified External-format.  The array of octets is
   bounded by Start (defaulting ot 0) and End (defaulting to the end of
   the array.  If String is not given, a new string is created.  If
@@ -771,7 +773,7 @@
 			     (code-char b)))))))
 
 (defun string-encode (string external-format &optional (start 0) end)
-  "Encode the given String using External-Format and return a new
+  _N"Encode the given String using External-Format and return a new
   string.  The characters of the new string are the octets of the
   encoded result, with each octet converted to a character via
   code-char.  This is the inverse to String-Decode"
@@ -804,7 +806,7 @@
 	finally (return (values result (1+ pos))))))
 
 (defun string-decode (string external-format &optional (start 0) end)
-  "Decode String using the given External-Format and return the new
+  _N"Decode String using the given External-Format and return the new
   string.  The input string is treated as if it were an array of
   octets, where the char-code of each character is the octet.  This is
   the inverse of String-Encode."
@@ -818,7 +820,7 @@
 
 
 (defun set-system-external-format (terminal &optional filenames)
-  "Change the external format of the standard streams to Terminal.
+  _N"Change the external format of the standard streams to Terminal.
   The standard streams are sys::*stdin*, sys::*stdout*, and
   sys::*stderr*, which are normally the input and/or output streams
   for *standard-input* and *standard-output*.  Also sets sys::*tty*
@@ -826,7 +828,7 @@
   optional argument Filenames is gvien, then the filename encoding is
   set to the specified format."
   (unless (find-external-format terminal)
-    (error "Can't find external-format ~S." terminal))
+    (error _"Can't find external-format ~S." terminal))
   (setf (stream-external-format sys:*stdin*) terminal
 	(stream-external-format sys:*stdout*) terminal
 	(stream-external-format sys:*stderr*) terminal)
@@ -834,11 +836,11 @@
     (setf (stream-external-format sys:*tty*) terminal))
   (when filenames
     (unless (find-external-format filenames)
-      (error "Can't find external-format ~S." filenames))
+      (error _"Can't find external-format ~S." filenames))
     (when (and unix::*filename-encoding*
 	       (not (eq unix::*filename-encoding* filenames)))
-      (cerror "Change it anyway."
-	      "The external-format for encoding filenames is already set.")
+      (cerror _"Change it anyway."
+	      _"The external-format for encoding filenames is already set.")
       (setq unix::*filename-encoding* filenames)))
   t)
 
diff --git a/code/fd-stream-extfmt.lisp b/code/fd-stream-extfmt.lisp
index b252f377515fb83cd3d1089575debde492166fbf..02b1e696f9492a4db2c541c271afdaa42716d2a6 100644
--- a/code/fd-stream-extfmt.lisp
+++ b/code/fd-stream-extfmt.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.6 2010/01/23 18:02:04 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.7 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 ;; an fd-sout that works with external-formats; needs slots in fd-stream
 (defun fd-sout (stream thing start end)
   (let ((start (or start 0))
@@ -49,16 +51,16 @@
   (declare (type stream stream))
   (stream-dispatch stream
     ;; simple-stream
-    (error "Loading simple-streams should redefine this")
+    (error _"Loading simple-streams should redefine this")
     ;; lisp-stream
     (typecase stream
       (fd-stream (%set-fd-stream-external-format stream extfmt))
       (synonym-stream (setf (stream-external-format
 			     (symbol-value (synonym-stream-symbol stream)))
 			  extfmt))
-      (t (error "Don't know how to set external-format for ~S." stream)))
+      (t (error _"Don't know how to set external-format for ~S." stream)))
     ;; fundamental-stream
-    (error "Setting external-format on Gray streams not supported."))
+    (error _"Setting external-format on Gray streams not supported."))
   extfmt)
 
 (defun %set-fd-stream-external-format (stream extfmt &optional (updatep t))
@@ -119,5 +121,8 @@
 (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-cout+)
 (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-sout+)
 (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-os+)
+(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-so+)
+(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-en+)
+(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-de+)
 
 (setf lisp::*enable-stream-buffer-p* t)
diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp
index 5faf5c98bb6e4f451b6f8c0f3a3022e9b3a12e1d..ceb0db70034b100b58b311109593d341dd83755f 100644
--- a/code/fd-stream.lisp
+++ b/code/fd-stream.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.97 2010/01/25 13:58:01 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.98 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,8 @@
 
 (in-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (export '(fd-stream fd-stream-p fd-stream-fd make-fd-stream
           io-timeout beep *beep-function* output-raw-bytes
 	  *tty* *stdin* *stdout* *stderr*
@@ -38,17 +40,17 @@
 ;;;; Buffer manipulation routines.
 
 (defvar *available-buffers* ()
-  "List of available buffers.  Each buffer is an sap pointing to
+  _N"List of available buffers.  Each buffer is an sap pointing to
   bytes-per-buffer of memory.")
 
 (defvar lisp::*enable-stream-buffer-p* nil)
 
 (defconstant bytes-per-buffer (* 4 1024)
-  "Number of bytes per buffer.")
+  _N"Number of bytes per buffer.")
 
 ;; This limit is rather arbitrary
 (defconstant max-stream-element-size 1024
-  "The maximum supported byte size for a stream element-type.")
+  _N"The maximum supported byte size for a stream element-type.")
 
 ;;; NEXT-AVAILABLE-BUFFER -- Internal.
 ;;;
@@ -286,7 +288,7 @@
   (:report
    (lambda (condition stream)
      (declare (stream stream))
-     (format stream "Timeout ~(~A~)ing ~S."
+     (format stream _"Timeout ~(~A~)ing ~S."
 	     (io-timeout-direction condition)
 	     (stream-error-stream condition)))))
 
@@ -294,7 +296,7 @@
 ;;;; Output routines and related noise.
 
 (defvar *output-routines* ()
-  "List of all available output routines. Each element is a list of the
+  _N"List of all available output routines. Each element is a list of the
   element-type output, the kind of buffering, the function name, and the number
   of bytes per element.")
 
@@ -320,8 +322,8 @@
 			 length)
       (cond ((not count)
 	     (if (= errno unix:ewouldblock)
-		 (error "Write would have blocked, but SERVER told us to go.")
-		 (error "While writing ~S: ~A"
+		 (error _"Write would have blocked, but SERVER told us to go.")
+		 (error _"While writing ~S: ~A"
 			stream (unix:get-unix-error-msg errno))))
 	    ((eql count length) ; Hot damn, it worked.
 	     (when reuse-sap
@@ -591,7 +593,7 @@
 ;;; send it directly (after flushing the buffer, of course).
 ;;;
 (defun output-raw-bytes (stream thing &optional start end)
-  "Output THING to stream.  THING can be any kind of vector or a sap.  If THING
+  _N"Output THING to stream.  THING can be any kind of vector or a sap.  If THING
   is a SAP, END must be supplied (as length won't work)."
   (let ((start (or start 0))
 	(end (or end (length (the (simple-array * (*)) thing)))))
@@ -609,8 +611,8 @@
 	   (bytes (- end start))
 	   (newtail (+ tail bytes)))
       (cond ((minusp bytes) ; Error case
-	     (cerror "Just go on as if nothing happened..."
-		     "~S called with :END before :START!"
+	     (cerror _"Just go on as if nothing happened..."
+		     _"~S called with :END before :START!"
 		     'output-raw-bytes))
 	    ((zerop bytes)) ; Easy case
 	    ((<= bytes space)
@@ -823,7 +825,7 @@
 ;;;; Input routines and related noise.
 
 (defvar *input-routines* ()
-  "List of all available input routines. Each element is a list of the
+  _N"List of all available input routines. Each element is a list of the
   element-type input, the function name, and the number of bytes per element.")
 
 ;;; DO-INPUT -- internal
@@ -890,7 +892,7 @@
 			   :format-arguments (list (unix:get-unix-error-msg errno))
 			   :errno errno))
 		   (t
-		    (error "Error reading ~S: ~A"
+		    (error _"Error reading ~S: ~A"
 			   stream
 			   (unix:get-unix-error-msg errno)))))
 	    ((zerop count)
@@ -1280,7 +1282,7 @@
 				  now-needed)
 		(declare (type (or index null) count))
 		(unless count
-		  (error "Error reading ~S: ~A" stream
+		  (error _"Error reading ~S: ~A" stream
 			 (unix:get-unix-error-msg err)))
 		(decf now-needed count)
 		(if eof-error-p
@@ -1300,7 +1302,7 @@
 		(unix:unix-read (fd-stream-fd stream) sap len)
 	      (declare (type (or index null) count))
 	      (unless count
-		(error "Error reading ~S: ~A" stream
+		(error _"Error reading ~S: ~A" stream
 		       (unix:get-unix-error-msg err)))
 	      (when (and eof-error-p (zerop count))
 		(error 'end-of-file :stream stream))
@@ -1366,7 +1368,7 @@
 	  (routine type size)
 	  (pick-input-routine target-type)
 	(unless routine
-	  (error "Could not find any input routine for ~S" target-type))
+	  (error _"Could not find any input routine for ~S" target-type))
 	(setf (fd-stream-ibuf-sap stream) (next-available-buffer))
 	(setf (fd-stream-ibuf-length stream) bytes-per-buffer)
 	(setf (fd-stream-ibuf-tail stream) 0)
@@ -1424,7 +1426,7 @@
 	  (routine type size)
 	  (pick-output-routine target-type (fd-stream-buffering stream))
 	(unless routine
-	  (error "Could not find any output routine for ~S buffered ~S."
+	  (error _"Could not find any output routine for ~S buffered ~S."
 		 (fd-stream-buffering stream)
 		 target-type))
 	(setf (fd-stream-obuf-sap stream) (next-available-buffer))
@@ -1447,7 +1449,7 @@
 
     (when (and input-size output-size
 	       (not (eql input-size output-size)))
-      (error "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+      (error _"Element sizes for input (~S:~S) and output (~S:~S) differ?"
 	     input-type input-size
 	     output-type output-size))
     (setf (fd-stream-element-size stream)
@@ -1465,7 +1467,7 @@
 		((subtypep output-type input-type)
 		 output-type)
 		(t
-		 (error "Input type (~S) and output type (~S) are unrelated?"
+		 (error _"Input type (~S) and output type (~S) are unrelated?"
 			input-type
 			output-type))))))
 
@@ -1481,8 +1483,8 @@
     (multiple-value-bind (okay err)
 	(unix:unix-rename original filename)
       (unless okay
-	  (cerror "Go on as if nothing bad happened."
-		  "Could not restore ~S to its original contents: ~A"
+	  (cerror _"Go on as if nothing bad happened."
+		  _"Could not restore ~S to its original contents: ~A"
 		  filename (unix:get-unix-error-msg err))))))
 
 ;;; DELETE-ORIGINAL -- internal
@@ -1616,7 +1618,7 @@
        (error 'simple-type-error
 	      :datum stream
 	      :expected-type 'file-stream
-	      :format-control "~s is not a stream associated with a file."
+	      :format-control _"~s is not a stream associated with a file."
 	      :format-arguments (list stream)))
      (multiple-value-bind
 	 (okay dev ino mode nlink uid gid rdev size
@@ -1626,7 +1628,7 @@
 			atime mtime ctime blksize blocks))
        (unless okay
 	 (error 'simple-file-error
-                :format-control "Error fstating ~S: ~A"
+                :format-control _"Error fstating ~S: ~A"
 		:format-arguments (list stream (unix:get-unix-error-msg dev))))
        (if (zerop mode)
 	   nil
@@ -1687,7 +1689,7 @@
 		 nil)
 		(t
 		 (system:with-interrupts
-		   (error "Error lseek'ing ~S: ~A"
+		   (error _"Error lseek'ing ~S: ~A"
 			  stream
 			  (unix:get-unix-error-msg errno)))))))
       (let ((offset 0)
@@ -1723,7 +1725,7 @@
 	       (setf offset (* newpos (fd-stream-element-size stream))
 		     origin unix:l_set))
 	      (t
-	       (error "Invalid position given to file-position: ~S" newpos)))
+	       (error _"Invalid position given to file-position: ~S" newpos)))
 	(multiple-value-bind
 	    (posn errno)
 	    (unix:unix-lseek (fd-stream-fd stream) offset origin)
@@ -1732,7 +1734,7 @@
 		((eq errno unix:espipe)
 		 nil)
 		(t
-		 (error "Error lseek'ing ~S: ~A"
+		 (error _"Error lseek'ing ~S: ~A"
 			stream
 			(unix:get-unix-error-msg errno))))))))
 
@@ -1756,6 +1758,12 @@
 		       delete-original
 		       pathname
 		       input-buffer-p
+		       ;; DO NOT translate these!  It causes an
+		       ;; infinite loop.  We need to open a file for
+		       ;; the translations, but if you translate
+		       ;; these, then we need to do a lookup which
+		       ;; wants to open the mo file which calls this
+		       ;; to name which causes a lookup ....
 		       (name (if file
 				 (format nil "file ~S" file)
 				 (format nil "descriptor ~D" fd)))
@@ -1764,7 +1772,7 @@
 		       binary-stream-p)
   (declare (type index fd) (type (or index null) timeout)
 	   (type (member :none :line :full) buffering))
-  "Create a stream for the given unix file descriptor.
+  _N"Create a stream for the given unix file descriptor.
   If input is non-nil, allow input operations.
   If output is non-nil, allow output operations.
   If neither input nor output are specified, default to allowing input.
@@ -1777,7 +1785,7 @@
   (cond ((not (or input-p output-p))
 	 (setf input t))
 	((not (or input output))
-	 (error "File descriptor must be opened either for input or output.")))
+	 (error _"File descriptor must be opened either for input or output.")))
   (let ((stream (if binary-stream-p
 		    (%make-binary-text-stream :fd fd
 					      :name name
@@ -1812,7 +1820,7 @@
       (finalize stream
 		#'(lambda ()
 		    (unix:unix-close fd)
-		    (format *terminal-io* "** Closed ~A~%" name)
+		    (format *terminal-io* _"** Closed ~A~%" name)
 		    (when original
 		      (revert-file file original)))))
     stream))
@@ -1823,7 +1831,7 @@
 ;;; Pick a name to use for the backup file.
 ;;;
 (defvar *backup-extension* ".BAK"
-  "This is a string that OPEN tacks on the end of a file namestring to produce
+  _N"This is a string that OPEN tacks on the end of a file namestring to produce
    a name for the :if-exists :rename-and-delete and :rename options.  Also,
    this can be a function that takes a namestring and returns a complete
    namestring.")
@@ -1876,12 +1884,12 @@
 (defun assure-one-of (item list what)
   (unless (member item list)
     (loop
-      (cerror "Enter new value for ~*~S"
-	      "~S is invalid for ~S. Must be one of~{ ~S~}"
+      (cerror _"Enter new value for ~*~S"
+	      _"~S is invalid for ~S. Must be one of~{ ~S~}"
 	      item
 	      what
 	      list)
-      (format (the stream *query-io*) "Enter new value for ~S: " what)
+      (format (the stream *query-io*) _"Enter new value for ~S: " what)
       (force-output *query-io*)
       (setf item (read *query-io*))
       (when (member item list)
@@ -1896,14 +1904,14 @@
 ;;;
 (defun do-old-rename (namestring original)
   (unless (unix:unix-access namestring unix:w_ok)
-    (cerror "Try to rename it anyway." "File ~S is not writable." namestring))
+    (cerror _"Try to rename it anyway." _"File ~S is not writable." namestring))
   (multiple-value-bind
       (okay err)
       (unix:unix-rename namestring original)
     (cond (okay t)
 	  (t
-	   (cerror "Use :SUPERSEDE instead."
-		   "Could not rename ~S to ~S: ~A."
+	   (cerror _"Use :SUPERSEDE instead."
+		   _"Could not rename ~S to ~S: ~A."
 		   namestring
 		   original
 		   (unix:get-unix-error-msg err))
@@ -1984,7 +1992,7 @@
                              (error 'simple-file-error
                                  :pathname pathname
                                  :format-control
-                                 "Cannot open ~S for output: Is a directory."
+                                 _"Cannot open ~S for output: Is a directory."
                                  :format-arguments (list name)))
                            (setf mode (logand orig-mode #o777))
                            t)
@@ -1993,7 +2001,7 @@
                           (t
                            (error 'simple-file-error
                                   :pathname pathname
-                                  :format-control "Cannot find ~S: ~A"
+                                  :format-control _"Cannot find ~S: ~A"
                                   :format-arguments
                                     (list name
                                       (unix:get-unix-error-msg err/dev)))))))))
@@ -2023,44 +2031,44 @@
                   ((eql errno unix:enoent)
                    (case if-does-not-exist
                      (:error
-                       (cerror "Return NIL."
+                       (cerror _"Return NIL."
                                'simple-file-error
                                :pathname pathname
-                               :format-control "Error opening ~S, ~A."
+                               :format-control _"Error opening ~S, ~A."
                                :format-arguments
                                    (list pathname
                                          (unix:get-unix-error-msg errno))))
                      (:create
-                       (cerror "Return NIL."
+                       (cerror _"Return NIL."
                                'simple-file-error
                                :pathname pathname
                                :format-control
-                                   "Error creating ~S, path does not exist."
+                                   _"Error creating ~S, path does not exist."
                                :format-arguments (list pathname))))
                    (return nil))
                   ((eql errno unix:eexist)
                    (unless (eq nil if-exists)
-                     (cerror "Return NIL."
+                     (cerror _"Return NIL."
                              'simple-file-error
                              :pathname pathname
-                             :format-control "Error opening ~S, ~A."
+                             :format-control _"Error opening ~S, ~A."
                              :format-arguments
                                  (list pathname
                                        (unix:get-unix-error-msg errno))))
                    (return nil))
                   ((eql errno unix:eacces)
-                   (cerror "Try again."
+                   (cerror _"Try again."
                            'simple-file-error
                            :pathname pathname
-                           :format-control "Error opening ~S, ~A."
+                           :format-control _"Error opening ~S, ~A."
                            :format-arguments
                                (list pathname
                                      (unix:get-unix-error-msg errno))))
                   (t
-                   (cerror "Return NIL."
+                   (cerror _"Return NIL."
                            'simple-file-error
                            :pathname pathname
-                           :format-control "Error opening ~S, ~A."
+                           :format-control _"Error opening ~S, ~A."
                            :format-arguments
                                (list pathname
                                      (unix:get-unix-error-msg errno)))
@@ -2125,7 +2133,7 @@
 		      (direction direction)
 		      (if-does-not-exist if-does-not-exist)
 		      (if-exists if-exists))
-  "Return a stream which reads from or writes to Filename.
+  _N"Return a stream which reads from or writes to Filename.
   Defined keywords:
    :direction - one of :input, :output, :io, or :probe
    :element-type - Type of object to read or write, default BASE-CHAR
@@ -2182,8 +2190,8 @@
 	   (apply #'open-fd-stream filespec options))
 	  ((subtypep class 'stream:simple-stream)
 	   (when element-type-given
-             (cerror "Do it anyway."
-		     "Can't create simple-streams with an element-type."))
+             (cerror _"Do it anyway."
+		     _"Can't create simple-streams with an element-type."))
            (when (and (eq class 'stream:file-simple-stream) mapped)
              (setq class 'stream:mapped-file-simple-stream)
              (setf (getf options :class) 'stream:mapped-file-simple-stream))
@@ -2200,18 +2208,18 @@
 	     (when stream
 	       (make-instance class :lisp-stream stream))))
 	  (t
-	   (error "Unable to open streams of class ~S." class)))))
+	   (error _"Unable to open streams of class ~S." class)))))
 
 ;;;; Initialization.
 
 (defvar *tty* nil
-  "The stream connected to the controlling terminal or NIL if there is none.")
+  _N"The stream connected to the controlling terminal or NIL if there is none.")
 (defvar *stdin* nil
-  "The stream connected to the standard input (file descriptor 0).")
+  _N"The stream connected to the standard input (file descriptor 0).")
 (defvar *stdout* nil
-  "The stream connected to the standard output (file descriptor 1).")
+  _N"The stream connected to the standard output (file descriptor 1).")
 (defvar *stderr* nil
-  "The stream connected to the standard error output (file descriptor 2).")
+  _N"The stream connected to the standard error output (file descriptor 2).")
 
 ;;; STREAM-INIT -- internal interface
 ;;;
@@ -2263,7 +2271,7 @@
   (finish-output stream))
 
 (defvar *beep-function* #'default-beep-function
-  "This is called in BEEP to feep the user.  It takes a stream.")
+  _N"This is called in BEEP to feep the user.  It takes a stream.")
 
 (defun beep (&optional (stream *terminal-io*))
   (funcall *beep-function* stream))
@@ -2325,7 +2333,7 @@
 (defun file-string-length (stream object)
   (declare (type (or string character) object)
 	   (type (or file-stream broadcast-stream stream:simple-stream) stream))
-  "Return the delta in Stream's FILE-POSITION that would be caused by writing
+  _N"Return the delta in Stream's FILE-POSITION that would be caused by writing
    Object to Stream.  Non-trivial only in implementations that support
    international character sets."
   (typecase stream
diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index 6854c5df5e9cafdd30beb36554c6c4c97668037d..98b336e39a66cf11c297db750086ea37a93110ed 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.26 2005/05/11 12:15:05 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.27 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,8 @@
 
 (in-package "EXTENSIONS")
 
+(intl:textdomain "cmucl")
+
 (export '(encapsulate unencapsulate encapsulated-p
 	  basic-definition argument-list *setf-fdefinition-hook*
 	  define-function-name-syntax valid-function-name-p))
@@ -50,7 +52,7 @@
 	      (acons name syntax-checker *valid-function-names*)))))
 
 (defmacro define-function-name-syntax (name (var) &body body)
-  "Define (NAME ...) to be a valid function name whose syntax is checked
+  _N"Define (NAME ...) to be a valid function name whose syntax is checked
   by BODY.  In BODY, VAR is bound to an actual function name of the
   form (NAME ...) to check.  BODY should return two values.
   First value true means the function name is valid.  Second value
@@ -62,7 +64,7 @@
        (%define-function-name-syntax ',name #',syntax-checker))))
 
 (defun valid-function-name-p (name)
-  "First value is true if NAME has valid function name syntax.
+  _N"First value is true if NAME has valid function name syntax.
   Second value is the name, a symbol, to use as a block name in DEFUNs
   and in similar situations."
   (typecase name
@@ -155,7 +157,7 @@
 ;;; FDEFINITION-OBJECT -- internal interface.
 ;;;
 (defun fdefinition-object (name create)
-  "Return the fdefn object for NAME.  If it doesn't already exist and CREATE
+  _N"Return the fdefn object for NAME.  If it doesn't already exist and CREATE
    is non-NIL, create a new (unbound) one."
   (declare (values (or fdefn null)))
   (multiple-value-bind (valid-name-p fname)
@@ -164,7 +166,7 @@
       (error 'simple-type-error
 	     :datum fname
 	     :expected-type '(satisfies valid-function-name-p)
-	     :format-control "Invalid function name: ~S"
+	     :format-control _"Invalid function name: ~S"
 	     :format-arguments (list name))))
   (let ((fdefn (info function definition name)))
     (if (and (null fdefn) create)
@@ -173,7 +175,7 @@
 
 (declaim (inline fdefn-or-lose))
 (defun fdefn-or-lose (name)
-  "Return the FDEFN of NAME.  Signal an error if there is none
+  _N"Return the FDEFN of NAME.  Signal an error if there is none
    or if it's function is null."
   (let ((fdefn (fdefinition-object name nil)))
     (unless (and fdefn (fdefn-function fdefn))
@@ -185,7 +187,7 @@
 ;;; The compiler emits calls to this when someone tries to funcall a symbol.
 ;;;
 (defun %coerce-to-function (name)
-  "Returns the definition for name, including any encapsulations.  Settable
+  _N"Returns the definition for name, including any encapsulations.  Settable
    with SETF."
   (fdefn-function (fdefn-or-lose name)))
 
@@ -208,7 +210,7 @@
 ;;;; FDEFINITION.
 
 (defun fdefinition (function-name)
-  "Return FUNCTION-NAME's global function definition.
+  _N"Return FUNCTION-NAME's global function definition.
    If FUNCTION-NAME is fwrapped, return the primary function definition
    stored in the innermost fwrapper."
   (let* ((fdefn (fdefn-or-lose function-name))
@@ -218,11 +220,11 @@
 	  (fdefn-function fdefn))))
 
 (defvar *setf-fdefinition-hook* nil
-  "This holds functions that (SETF FDEFINITION) invokes before storing the
+  _N"This holds functions that (SETF FDEFINITION) invokes before storing the
    new value.  These functions take the function name and the new value.")
 
 (defun %set-fdefinition (function-name new-value)
-  "Set FUNCTION-NAME's global function definition to NEW-VALUE.
+  _N"Set FUNCTION-NAME's global function definition to NEW-VALUE.
    If FUNCTION-NAME is fwrapped, set the primary function stored
    in the innermost fwrapper."
   (declare (type function new-value) (optimize (safety 1)))
@@ -242,12 +244,12 @@
 ;;;; FBOUNDP and FMAKUNBOUND.
 
 (defun fboundp (name)
-  "Return true if name has a global function definition."
+  _N"Return true if name has a global function definition."
   (let ((fdefn (fdefinition-object name nil)))
     (and fdefn (fdefn-function fdefn) t)))
 
 (defun fmakunbound (name)
-  "Make Name have no global function definition."
+  _N"Make Name have no global function definition."
   (let ((fdefn (fdefinition-object name nil)))
     (when fdefn
       (fdefn-makunbound fdefn)))
diff --git a/code/filesys.lisp b/code/filesys.lisp
index 590c7995c74f94b2131881af7587f55015fd74f3..536834814438f6072b37d9819a491332dfafe27d 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.107 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.108 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (export '(truename probe-file user-homedir-pathname directory
           rename-file delete-file file-write-date file-author))
 
@@ -70,7 +72,7 @@
 ;;;
 
 (defun remove-backslashes (namestr start end)
-  "Remove any occurrences of \\ from the string because we've already
+  _N"Remove any occurrences of \\ from the string because we've already
    checked for whatever may have been backslashed."
   (declare (type simple-base-string namestr)
 	   (type index start end))
@@ -92,13 +94,13 @@
 		      (incf dst)))))))
     (when quoted
       (error 'namestring-parse-error
-	     :complaint "Backslash in bad place."
+	     :complaint _"Backslash in bad place."
 	     :namestring namestr
 	     :offset (1- end)))
     (shrink-vector result dst)))
 
 (defvar *ignore-wildcards* nil
-  "If non-NIL, Unix shell-style wildcards are ignored when parsing
+  _N"If non-NIL, Unix shell-style wildcards are ignored when parsing
   pathname namestrings.  They are also ignored when computing
   namestrings for pathname objects.  Thus, *, ?, etc. are not
   wildcards when parsing a namestring, and are not escaped when
@@ -150,7 +152,7 @@
 			      (position #\] namestr :start index :end end)))
 			 (unless close-bracket
 			   (error 'namestring-parse-error
-				  :complaint "``['' with no corresponding ``]''"
+				  :complaint _"``['' with no corresponding ``]''"
 				  :namestring namestr
 				  :offset index))
 			 (pattern (list :character-set
@@ -320,7 +322,7 @@
 		     ;; same, we can't allow the creation of one when
 		     ;; the other is defined.
 		     (when (find-logical-host search-list nil)
-		       (error "~A already names a logical host" search-list))
+		       (error _"~A already names a logical host" search-list))
 		     (setf absolute t)
 		     (setf (car first) new-start))
 		   search-list)))))
@@ -457,7 +459,7 @@
 	       (strings (second piece))
 	       (strings "]"))
 	      (t
-	       (error "Invalid pattern piece: ~S" piece))))))
+	       (error _"Invalid pattern piece: ~S" piece))))))
        (apply #'concatenate
 	      'simple-string
 	      (strings))))))
@@ -483,14 +485,14 @@
 	  ((member :up)
 	   (pieces "../"))
 	  ((member :back)
-	   (error ":BACK cannot be represented in namestrings."))
+	   (error _":BACK cannot be represented in namestrings."))
 	  ((member :wild-inferiors)
 	   (pieces "**/"))
 	  ((or simple-string pattern (eql :wild))
 	   (pieces (unparse-unix-piece dir))
 	   (pieces "/"))
 	  (t
-	   (error "Invalid directory component: ~S" dir)))))
+	   (error _"Invalid directory component: ~S" dir)))))
     (apply #'concatenate 'simple-string (pieces))))
 
 (defun unparse-unix-directory (pathname)
@@ -514,33 +516,33 @@
       (when name
 	(when (stringp name)
 	  (when (find #\/ name)
-	    (error "Cannot specify a directory separator in a pathname name: ~S" name))
+	    (error _"Cannot specify a directory separator in a pathname name: ~S" name))
 	  (when (and (not type-supplied)
 		     (find #\. name :start 1))
 	    ;; A single leading dot is ok.
-	    (error "Cannot specify a dot in a pathname name without a pathname type: ~S" name))
+	    (error _"Cannot specify a dot in a pathname name without a pathname type: ~S" name))
 	  (when (or (and (string= ".." name)
 			 (not type-supplied))
 		    (and (string= "." name)
 			 (not type-supplied)))
 	    ;; Can't have a name of ".." or "." without a type.
-	    (error "Invalid value for a pathname name: ~S" name)))
+	    (error _"Invalid value for a pathname name: ~S" name)))
 	(strings (unparse-unix-piece name)))
       (when type-supplied
 	(unless name
-	  (error "Cannot specify the type without a file: ~S" pathname))
+	  (error _"Cannot specify the type without a file: ~S" pathname))
 	(when (stringp type)
 	  (when (find #\/ type)
-	    (error "Cannot specify a directory separator in a pathname type: ~S" type))
+	    (error _"Cannot specify a directory separator in a pathname type: ~S" type))
 	  (when (find #\. type)
-	    (error "Cannot specify a dot in a pathname type: ~S" type)))
+	    (error _"Cannot specify a dot in a pathname type: ~S" type)))
 	(strings ".")
 	(strings (unparse-unix-piece type)))
       (when (and (not (member version '(nil :newest :unspecific)))
 		 (not name))
 	;; We don't want version without a name, because when we try
 	;; to read #p".~*~" back, the name is "", not NIL.
-	(error "Cannot specify a version without a file: ~S" pathname))
+	(error _"Cannot specify a version without a file: ~S" pathname))
       (when version-supplied
 	(strings (if (eq version :wild)
 		     (if logical-p ".*" ".~*~")
@@ -557,7 +559,7 @@
 (defun unparse-unix-enough (pathname defaults)
   (declare (type pathname pathname defaults))
   (flet ((lose ()
-	   (error "~S cannot be represented relative to ~S"
+	   (error _"~S cannot be represented relative to ~S"
 		  pathname defaults)))
     ;; Only the first path in a search-list is considered.
     (enumerate-search-list (pathname pathname)
@@ -672,7 +674,7 @@
 (defun %enumerate-matches (pathname verify-existance follow-links function)
   (when (pathname-type pathname)
     (unless (pathname-name pathname)
-      (error "Cannot supply a type without a name:~%  ~S" pathname)))
+      (error _"Cannot supply a type without a name:~%  ~S" pathname)))
   (let ((directory (pathname-directory pathname)))
     (if directory
 	(ecase (car directory)
@@ -852,7 +854,7 @@
 ;;;; UNIX-NAMESTRING -- public
 ;;; 
 (defun unix-namestring (pathname &optional (for-input t) executable-only)
-  "Convert PATHNAME into a string that can be used with UNIX system calls.
+  _N"Convert PATHNAME into a string that can be used with UNIX system calls.
    Search-lists and wild-cards are expanded. If optional argument
    FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.
    If optional argument EXECUTABLE-ONLY is true, NIL is returned
@@ -876,7 +878,7 @@
 	(when names
 	  (when (cdr names)
 	    (error 'simple-file-error
-		   :format-control "~S is ambiguous:~{~%  ~A~}"
+		   :format-control _"~S is ambiguous:~{~%  ~A~}"
 		   :format-arguments (list pathname names)))
 	  (return (car names))))))))
 
@@ -888,18 +890,18 @@
 ;;; Another silly file function trivially different from another function.
 ;;;
 (defun truename (pathname)
-  "Return the pathname for the actual file described by the pathname
+  _N"Return the pathname for the actual file described by the pathname
   An error of type file-error is signalled if no such file exists,
   or the pathname is wild."
   (if (wild-pathname-p pathname)
       (error 'simple-file-error
-	     :format-control "Bad place for a wild pathname."
+	     :format-control _"Bad place for a wild pathname."
 	     :pathname pathname)
       (let ((result (probe-file pathname)))
 	(unless result
 	  (error 'simple-file-error
 		 :pathname pathname
-		 :format-control "The file ~S does not exist."
+		 :format-control _"The file ~S does not exist."
 		 :format-arguments (list (namestring pathname))))
 	result)))
 
@@ -908,12 +910,12 @@
 ;;; If PATHNAME exists, return its truename, otherwise NIL.
 ;;;
 (defun probe-file (pathname)
-  "Return a pathname which is the truename of the file if it exists, NIL
+  _N"Return a pathname which is the truename of the file if it exists, NIL
   otherwise. An error of type file-error is signalled if pathname is wild."
   (if (wild-pathname-p pathname)
       (error 'simple-file-error 
 	     :pathname pathname
-	     :format-control "Bad place for a wild pathname.")
+	     :format-control _"Bad place for a wild pathname.")
       (let ((namestring (unix-namestring (merge-pathnames pathname) t)))
 	(when (and namestring (unix:unix-file-kind namestring))
 	  (let ((truename (unix:unix-resolve-links
@@ -929,7 +931,7 @@
 ;;; Rename-File  --  Public
 ;;;
 (defun rename-file (file new-name)
-  "Rename File to have the specified New-Name.  If file is a stream open to a
+  _N"Rename File to have the specified New-Name.  If file is a stream open to a
   file, then the associated file is renamed."
   (let* ((original (truename file))
 	 (original-namestring (unix-namestring original t))
@@ -938,7 +940,7 @@
     (unless new-namestring
       (error 'simple-file-error
 	     :pathname new-name
-	     :format-control "~S can't be created."
+	     :format-control _"~S can't be created."
 	     :format-arguments (list new-name)))
     (multiple-value-bind (res error)
 			 (unix:unix-rename original-namestring
@@ -946,7 +948,7 @@
       (unless res
 	(error 'simple-file-error
 	       :pathname new-name
-	       :format-control "Failed to rename ~A to ~A: ~A"
+	       :format-control _"Failed to rename ~A to ~A: ~A"
 	       :format-arguments (list original new-name
 				       (unix:get-unix-error-msg error))))
       (when (streamp file)
@@ -958,7 +960,7 @@
 ;;;    Delete the file, Man.
 ;;;
 (defun delete-file (file)
-  "Delete the specified file."
+  _N"Delete the specified file."
   (let ((namestring (unix-namestring file t)))
     (when (streamp file)
       ;; Close the file, but don't try to revert or anything.  We want
@@ -967,14 +969,14 @@
     (unless namestring
       (error 'simple-file-error
 	     :pathname file
-	     :format-control "~S doesn't exist."
+	     :format-control _"~S doesn't exist."
 	     :format-arguments (list file)))
 
     (multiple-value-bind (res err) (unix:unix-unlink namestring)
       (unless res
 	(error 'simple-file-error
 	       :pathname namestring
-	       :format-control "Could not delete ~A: ~A."
+	       :format-control _"Could not delete ~A: ~A."
 	       :format-arguments (list namestring
 				       (unix:get-unix-error-msg err))))))
   t)
@@ -984,7 +986,7 @@
 ;;;    Purge old file versions
 ;;;
 (defun purge-backup-files (pathname &optional (keep 0))
-  "Delete old versions of files matching the given Pathname,
+  _N"Delete old versions of files matching the given Pathname,
 optionally keeping some of the most recent old versions."
   (declare (type (or pathname string stream) pathname)
 	   (type (integer 0 *) keep))
@@ -1019,7 +1021,7 @@ optionally keeping some of the most recent old versions."
 ;;;    Return Home:, which is set up for us at initialization time.
 ;;;
 (defun user-homedir-pathname (&optional host)
-  "Returns the home directory of the logged in user as a pathname.
+  _N"Returns the home directory of the logged in user as a pathname.
   This is obtained from the logical name \"home:\"."
   (declare (ignore host))
   #p"home:")
@@ -1027,12 +1029,12 @@ optionally keeping some of the most recent old versions."
 ;;; File-Write-Date  --  Public
 ;;;
 (defun file-write-date (file)
-  "Return file's creation date, or NIL if it doesn't exist.
+  _N"Return file's creation date, or NIL if it doesn't exist.
  An error of type file-error is signalled if file is a wild pathname"
   (if (wild-pathname-p file)
       (error 'simple-file-error 
 	     :pathname file
-	     :format-control "Bad place for a wild pathname.")
+	     :format-control _"Bad place for a wild pathname.")
       (let ((name (unix-namestring file t)))
 	(when name
 	  (multiple-value-bind
@@ -1045,18 +1047,18 @@ optionally keeping some of the most recent old versions."
 ;;; File-Author  --  Public
 ;;;
 (defun file-author (file)
-  "Returns the file author as a string, or nil if the author cannot be
+  _N"Returns the file author as a string, or nil if the author cannot be
  determined.  Signals an error of type file-error if file doesn't exist,
  or file is a wild pathname."
   (if (wild-pathname-p file)
       (error 'simple-file-error
 	     :pathname file
-	     :format-control "Bad place for a wild pathname.")
+	     :format-control _"Bad place for a wild pathname.")
       (let ((name (unix-namestring (pathname file) t)))
 	(unless name
 	  (error 'simple-file-error
 		 :pathname file
-		 :format-control "~S doesn't exist."
+		 :format-control _"~S doesn't exist."
 		 :format-arguments (list file)))
 	(multiple-value-bind (winp dev ino mode nlink uid)
 			     (unix:unix-stat name)
@@ -1073,7 +1075,7 @@ optionally keeping some of the most recent old versions."
 ;;;
 (defun directory (pathname &key (all t) (check-for-subdirs t)
 		  (truenamep t) (follow-links t))
-  "Returns a list of pathnames, one for each file that matches the given
+  _N"Returns a list of pathnames, one for each file that matches the given
    pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  This
    never includes Unix dot and dot-dot in the result.  If :TRUENAMEP is NIL,
    then symbolic links in the result are not expanded, which is not the
@@ -1122,7 +1124,7 @@ optionally keeping some of the most recent old versions."
 ;;; PRINT-DIRECTORY is exported from the EXTENSIONS package.
 ;;; 
 (defun print-directory (pathname &optional stream &key all verbose return-list)
-  "Like Directory, but prints a terse, multi-column directory listing
+  _N"Like Directory, but prints a terse, multi-column directory listing
    instead of returning a list of pathnames.  When :all is supplied and
    non-nil, then Unix dot files are included too (as ls -a).  When :verbose
    is supplied and non-nil, then a long listing of miscellaneous
@@ -1137,7 +1139,7 @@ optionally keeping some of the most recent old versions."
   (let ((contents (directory pathname :all all :check-for-subdirs nil
 			     :truenamep nil))
 	(result nil))
-    (format t "Directory of ~A:~%" (namestring pathname))
+    (format t _"Directory of ~A:~%" (namestring pathname))
     (dolist (file contents)
       (let* ((namestring (unix-namestring file))
 	     (tail (subseq namestring
@@ -1186,7 +1188,7 @@ optionally keeping some of the most recent old versions."
 			   (decode-universal-time-for-files mtime year)
 			   tail
 			   (= (logand mode unix:s-ifmt) unix:s-ifdir))))
-		(t (format t "Couldn't stat ~A -- ~A.~%"
+		(t (format t _"Couldn't stat ~A -- ~A.~%"
 			   tail
 			   (unix:get-unix-error-msg dev-or-err))))
 	  (when return-list
@@ -1241,7 +1243,7 @@ optionally keeping some of the most recent old versions."
 	   (cols (max (truncate width col-width) 1))
 	   (lines (ceiling cnt cols)))
       (declare (fixnum cols lines))
-      (format t "Directory of ~A:~%" (namestring pathname))
+      (format t _"Directory of ~A:~%" (namestring pathname))
       (dotimes (i lines)
 	(declare (fixnum i))
 	(dotimes (j cols)
@@ -1329,7 +1331,7 @@ optionally keeping some of the most recent old versions."
 ;;;
 (defun ambiguous-files (pathname
 			&optional (defaults *default-pathname-defaults*))
-  "Return a list of all files which are possible completions of Pathname.
+  _N"Return a list of all files which are possible completions of Pathname.
    We look in the directory specified by Defaults as well as looking down
    the search list."
   (directory (complete-file-directory-arg pathname defaults)
@@ -1344,7 +1346,7 @@ optionally keeping some of the most recent old versions."
 ;;;   can be written by the current task.
 ;;;
 (defun file-writable (name)
-  "File-writable accepts a pathname and returns T if the current
+  _N"File-writable accepts a pathname and returns T if the current
   process can write it, and NIL otherwise."
   (let ((name (unix-namestring name nil)))
     (cond ((null name)
@@ -1379,7 +1381,7 @@ optionally keeping some of the most recent old versions."
 ;;; Default-Directory  --  Public
 ;;;
 (defun default-directory ()
-  "Returns the pathname for the default directory.  This is the place where
+  _N"Returns the pathname for the default directory.  This is the place where
   a file will be written if no directory is specified.  This may be changed
   with setf."
   (multiple-value-bind (gr dir-or-error)
@@ -1409,7 +1411,7 @@ optionally keeping some of the most recent old versions."
 ;;; Seems like maybe it's fixed by changes made by Ray Toy to avoid heap corruption.
 #- (and)
 (defun default-directory ()
-  "Returns the pathname for the default directory.  This is the place where
+  _N"Returns the pathname for the default directory.  This is the place where
   a file will be written if no directory is specified.  This may be changed
   with setf."
   (multiple-value-bind (gr dir-or-error)
@@ -1430,7 +1432,7 @@ optionally keeping some of the most recent old versions."
   (let ((namestring (unix-namestring new-val t)))
     (unless namestring
       (error 'simple-file-error
-             :format-control "~S doesn't exist."
+             :format-control _"~S doesn't exist."
              :format-arguments (list new-val)))
     (multiple-value-bind (gr error)
 			 (unix:unix-chdir namestring)
@@ -1453,7 +1455,7 @@ optionally keeping some of the most recent old versions."
 ;;; Ensure-Directories-Exist  --  Public
 ;;;
 (defun ensure-directories-exist (pathspec &key verbose (mode #o777))
-  "Tests whether the directories containing the specified file
+  _N"Tests whether the directories containing the specified file
   actually exist, and attempts to create them if they do not.
   Portable programs should avoid using the :MODE keyword argument."
   (let* ((pathname (pathname pathspec))
@@ -1463,7 +1465,7 @@ optionally keeping some of the most recent old versions."
 	 (created-p nil))
     (when (wild-pathname-p pathname)
       (error 'simple-file-error
-	     :format-control "Bad place for a wild pathname."
+	     :format-control _"Bad place for a wild pathname."
 	     :pathname pathspec))
     (enumerate-search-list (pathname pathname)
        (let ((dir (pathname-directory pathname)))
@@ -1478,13 +1480,13 @@ optionally keeping some of the most recent old versions."
 			   (unless (probe-file newpath)
 			     (let ((namestring (namestring newpath)))
 			       (when verbose
-				 (format *standard-output* "~&Creating directory: ~A~%"
+				 (format *standard-output* _"~&Creating directory: ~A~%"
 					 namestring))
 			       (unix:unix-mkdir namestring mode)
 			       (unless (probe-file namestring)
 				 (error 'simple-file-error
 					:pathname pathspec
-					:format-control "Can't create directory ~A."
+					:format-control _"Can't create directory ~A."
 					:format-arguments (list namestring)))
 			       (setf created-p t)))
 			 (retry () :report "Try to create the directory again"
diff --git a/code/final.lisp b/code/final.lisp
index e5f209f099d1c32603183d4d429694a6dd841edd..d5db797b2a5ed5b32c2f53fa6cdb9818503d8c18 100644
--- a/code/final.lisp
+++ b/code/final.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/final.lisp,v 1.3 2009/11/21 12:58:44 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/final.lisp,v 1.4 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,12 +15,14 @@
 
 (in-package "EXTENSIONS")
 
+(intl:textdomain "cmucl")
+
 (export '(finalize cancel-finalization))
 
 (defvar *objects-pending-finalization* nil)
 
 (defun finalize (object function)
-  "Arrange for FUNCTION to be called when there are no more references to
+  _N"Arrange for FUNCTION to be called when there are no more references to
    OBJECT.  FUNCTION takes no arguments."
   (declare (type function function))
   (system:without-gcing
@@ -29,7 +31,7 @@
   object)
 
 (defun cancel-finalization (object)
-  "Cancel any finalization registers for OBJECT."
+  _N"Cancel any finalization registers for OBJECT."
   (when object
     ;; We check to make sure object isn't nil because if there are any
     ;; broken weak pointers, their value will show up as nil.  Therefore,
diff --git a/code/float-trap.lisp b/code/float-trap.lisp
index e2816022f95142e1f1b6189ba2800e5949c708f5..124e5d126c02461c48a6054798fbbea156a58333 100644
--- a/code/float-trap.lisp
+++ b/code/float-trap.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.35 2009/07/06 13:29:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.36 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;; Author: Rob MacLachlan
 ;;; 
 (in-package "VM")
+(intl:textdomain "cmucl")
+
 (export '(current-float-trap floating-point-modes sigfpe-handler))
 (in-package "EXTENSIONS")
 (export '(set-floating-point-modes get-floating-point-modes
@@ -40,7 +42,7 @@
   (reduce #'logior
 	  (mapcar #'(lambda (x)
 		      (or (cdr (assoc x float-trap-alist))
-			  (error "Unknown float trap kind: ~S." x)))
+			  (error _"Unknown float trap kind: ~S." x)))
 		  names)))
 
 (defconstant rounding-mode-alist
@@ -124,7 +126,7 @@
 				      (current-exceptions nil current-x-p)
 				      (accrued-exceptions nil accrued-x-p)
 				      (fast-mode nil fast-mode-p))
-  "This function sets options controlling the floating-point hardware.  If a
+  _N"This function sets options controlling the floating-point hardware.  If a
   keyword is not supplied, then the current value is preserved.  Possible
   keywords:
 
@@ -157,7 +159,7 @@
     (when round-p
       (setf (ldb float-rounding-mode modes)
 	    (or (cdr (assoc rounding-mode rounding-mode-alist))
-		(error "Unknown rounding mode: ~S." rounding-mode))))
+		(error _"Unknown rounding mode: ~S." rounding-mode))))
     (when current-x-p
       (setf (ldb float-exceptions-byte modes)
 	    (float-trap-mask current-exceptions))
@@ -185,7 +187,7 @@
 ;;; GET-FLOATING-POINT-MODES  --  Public
 ;;;
 (defun get-floating-point-modes ()
-  "This function returns a list representing the state of the floating point
+  _N"This function returns a list representing the state of the floating point
   modes.  The list is in the same format as the keyword arguments to
   SET-FLOATING-POINT-MODES, i.e. 
       (apply #'set-floating-point-modes (get-floating-point-modes))
@@ -212,7 +214,7 @@
 ;;; CURRENT-FLOAT-TRAP  --  Interface
 ;;;
 (defmacro current-float-trap (&rest traps)
-  "Current-Float-Trap Trap-Name*
+  _N"Current-Float-Trap Trap-Name*
   Return true if any of the named traps are currently trapped, false
   otherwise."
   `(not (zerop (logand ,(dpb (float-trap-mask traps) float-traps-byte 0)
@@ -288,12 +290,12 @@
 		    :operation fop
 		    :operands operands))
 	    (t
-	     (error "SIGFPE with no exceptions currently enabled?"))))))
+	     (error _"SIGFPE with no exceptions currently enabled?"))))))
 
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public
 ;;;
 (defmacro with-float-traps-masked (traps &body body)
-  "Execute BODY with the floating point exceptions listed in TRAPS
+  _N"Execute BODY with the floating point exceptions listed in TRAPS
   masked (disabled).  TRAPS should be a list of possible exceptions
   which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and
   :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective
diff --git a/code/float.lisp b/code/float.lisp
index 64349029b9ed82c6f960e97133fc68a4fcf7f486..19ce751344204dfd405e8b15680f9ac2fe36d219 100644
--- a/code/float.lisp
+++ b/code/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float.lisp,v 1.45 2010/02/05 23:57:21 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float.lisp,v 1.46 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;; Long-float support by Douglas Crosher, 1998.
 ;;; 
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
+
 (export '(%unary-truncate %unary-round %unary-ftruncate
 	  %unary-ftruncate/single-float %unary-ftruncate/double-float))
 
@@ -244,7 +246,7 @@
 ;;; FLOAT-DENORMALIZED-P  --  Public
 ;;;
 (defun float-denormalized-p (x)
-  "Return true if the float X is denormalized."
+  _N"Return true if the float X is denormalized."
   (number-dispatch ((x float))
     ((single-float)
      (and (zerop (ldb vm:single-float-exponent-byte (single-float-bits x)))
@@ -288,7 +290,7 @@
 		  ((double-double-float)
 		   ,double-double)))))
 
-  (frob float-infinity-p "Return true if the float X is an infinity (+ or -)."
+  (frob float-infinity-p _N"Return true if the float X is an infinity (+ or -)."
     (zerop (ldb vm:single-float-significand-byte bits))
     (and (zerop (ldb vm:double-float-significand-byte hi))
 	 (zerop lo))
@@ -298,7 +300,7 @@
     #+double-double
     (float-infinity-p (double-double-hi x)))
 
-  (frob float-nan-p "Return true if the float X is a NaN (Not a Number)."
+  (frob float-nan-p _N"Return true if the float X is a NaN (Not a Number)."
     (not (zerop (ldb vm:single-float-significand-byte bits)))
     (or (not (zerop (ldb vm:double-float-significand-byte hi)))
 	(not (zerop lo)))
@@ -309,7 +311,7 @@
     (float-nan-p (double-double-hi x)))
 
   (frob float-trapping-nan-p
-    "Return true if the float X is a trapping NaN (Not a Number)."
+    _N"Return true if the float X is a trapping NaN (Not a Number)."
     (zerop (logand (ldb vm:single-float-significand-byte bits)
 		   vm:single-float-trapping-nan-bit))
     (zerop (logand (ldb vm:double-float-significand-byte hi)
@@ -329,7 +331,7 @@
 ;;;
 (declaim (maybe-inline float-precision))
 (defun float-precision (f)
-  "Returns a non-negative number of significant digits in it's float argument.
+  _N"Returns a non-negative number of significant digits in it's float argument.
   Will be less than FLOAT-DIGITS if denormalized or zero."
   (macrolet ((frob (digits bias decode)
 	       `(cond ((zerop f) 0)
@@ -380,7 +382,7 @@
 
 #+nil
 (defun float-sign (float1 &optional (float2 (float 1 float1)))
-  "Returns a floating-point number that has the same sign as
+  _N"Returns a floating-point number that has the same sign as
    float1 and, if float2 is given, has the same absolute value
    as float2."
   (declare (float float1 float2))
@@ -396,7 +398,7 @@
      (abs float2)))
 
 (defun float-sign (float1 &optional float2)
-  "Returns a floating-point number that has the same sign as
+  _N"Returns a floating-point number that has the same sign as
    float1 and, if float2 is given, has the same absolute value
    as float2."
   (declare (float float1)
@@ -431,7 +433,7 @@
 (declaim (inline float-digits float-radix))
 
 (defun float-digits (f)
-  "Returns a non-negative number of radix-b digits used in the
+  _N"Returns a non-negative number of radix-b digits used in the
    representation of it's argument.  See Common Lisp: The Language
    by Guy Steele for more details."
   (number-dispatch ((f float))
@@ -443,7 +445,7 @@
     ((double-double-float) vm:double-double-float-digits)))
 
 (defun float-radix (f)
-  "Returns (as an integer) the radix b of its floating-point
+  _N"Returns (as an integer) the radix b of its floating-point
    argument."
   (number-dispatch ((f float))
     ((float) 2)))
@@ -490,7 +492,7 @@
 	 (biased (- exp vm:single-float-bias vm:single-float-digits)))
     (declare (fixnum biased))
     (unless (<= exp vm:single-float-normal-exponent-max)
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((and (zerop exp) (zerop sig))
 	   (values 0 biased sign))
 	  ((< exp vm:single-float-normal-exponent-min)
@@ -550,7 +552,7 @@
 	 (biased (- exp vm:double-float-bias vm:double-float-digits)))
     (declare (fixnum biased))
     (unless (<= exp vm:double-float-normal-exponent-max)
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((and (zerop exp) (zerop sig) (zerop lo))
 	   (values 0 biased sign))
 	  ((< exp vm:double-float-normal-exponent-min)
@@ -631,7 +633,7 @@
 	 (biased (- exp vm:long-float-bias vm:long-float-digits)))
     (declare (fixnum biased))
     (unless (<= exp vm:long-float-normal-exponent-max)
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((and (zerop exp) (zerop hi) (zerop lo))
 	   (values 0 biased sign))
 	  ((< exp vm:long-float-normal-exponent-min)
@@ -645,7 +647,7 @@
 ;;;    Dispatch to the correct type-specific i-d-f function.
 ;;;
 (defun integer-decode-float (x)
-  "Returns three values:
+  _N"Returns three values:
    1) an integer representation of the significand.
    2) the exponent for the power of 2 that the significand must be multiplied
       by to get the actual value.  This differs from the DECODE-FLOAT exponent
@@ -696,7 +698,7 @@
 	 (biased (truly-the single-float-exponent
 			    (- exp vm:single-float-bias))))
     (unless (<= exp vm:single-float-normal-exponent-max) 
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((zerop x)
 	   (values 0.0f0 biased sign))
 	  ((< exp vm:single-float-normal-exponent-min)
@@ -740,7 +742,7 @@
 	 (biased (truly-the double-float-exponent
 			    (- exp vm:double-float-bias))))
     (unless (<= exp vm:double-float-normal-exponent-max)
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((zerop x)
 	   (values 0.0d0 biased sign))
 	  ((< exp vm:double-float-normal-exponent-min)
@@ -777,7 +779,7 @@
 	 (sign (if (minusp exp-bits) -1l0 1l0))
 	 (biased (truly-the long-float-exponent (- exp vm:long-float-bias))))
     (unless (<= exp vm:long-float-normal-exponent-max)
-      (error "Can't decode NAN or infinity: ~S." x))
+      (error _"Can't decode NAN or infinity: ~S." x))
     (cond ((zerop x)
 	   (values 0.0l0 biased sign))
 	  ((< exp vm:long-float-normal-exponent-min)
@@ -806,7 +808,7 @@
 ;;;    Dispatch to the appropriate type-specific function.
 ;;;
 (defun decode-float (f)
-  "Returns three values:
+  _N"Returns three values:
    1) a floating-point number representing the significand.  This is always
       between 0.5 (inclusive) and 1.0 (exclusive).
    2) an integer representing the exponent.
@@ -958,7 +960,7 @@
 ;;;    Dispatch to the correct type-specific scale-float function.
 ;;;
 (defun scale-float (f ex)
-  "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss
+  _N"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss
   of precision or overflow."
   (number-dispatch ((f float))
     ((single-float)
@@ -976,7 +978,7 @@
 ;;;; Converting to/from floats:
 
 (defun float (number &optional (other () otherp))
-  "Converts any REAL to a float.  If OTHER is not provided, it returns a
+  _N"Converts any REAL to a float.  If OTHER is not provided, it returns a
   SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the
   result is the same float format as OTHER."
   (if otherp
@@ -1493,7 +1495,7 @@ rounding modes & do ieee round-to-integer.
 ) ; not x87
 
 (defun rational (x)
-  "RATIONAL produces a rational number for any real numeric argument.  This is
+  _N"RATIONAL produces a rational number for any real numeric argument.  This is
   more efficient than RATIONALIZE, but it assumes that floating-point is
   completely accurate, giving a result that isn't as pretty."
   (number-dispatch ((x real))
@@ -1514,7 +1516,7 @@ rounding modes & do ieee round-to-integer.
 
 #+nil
 (defun rationalize (x)
-  "Converts any REAL to a RATIONAL.  Floats are converted to a simple rational
+  _N"Converts any REAL to a RATIONAL.  Floats are converted to a simple rational
   representation exploiting the assumption that floats are only accurate to
   their precision.  RATIONALIZE (and also RATIONAL) preserve the invariant:
       (= x (float (rationalize x) x))"
@@ -1613,7 +1615,7 @@ rounding modes & do ieee round-to-integer.
 ;;;   p[i]*q[i-1]-p[i-1]*q[i] = (-1)^i.
 ;;;
 (defun rationalize (x)
-  "Converts any REAL to a RATIONAL.  Floats are converted to a simple rational
+  _N"Converts any REAL to a RATIONAL.  Floats are converted to a simple rational
   representation exploiting the assumption that floats are only accurate to
   their precision.  RATIONALIZE (and also RATIONAL) preserve the invariant:
       (= x (float (rationalize x) x))"
diff --git a/code/foreign-linkage.lisp b/code/foreign-linkage.lisp
index 3b655af22e28f114d57827bb1f5fcd44dd914943..940eded3132d1ddce5add1863b9918fc03ea94a8 100644
--- a/code/foreign-linkage.lisp
+++ b/code/foreign-linkage.lisp
@@ -1,5 +1,7 @@
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (sys:register-lisp-runtime-feature :linkage-table)
 
 ;;; This gets created by genesis and lives in the static area.
@@ -52,7 +54,7 @@
 							  c-call:long))
 					 entry-num)))
 	(when (zerop result)
-	  (error "~A is not defined as a foreign symbol"
+	  (error _"~A is not defined as a foreign symbol"
 		 symbol-name))))
     (setf (gethash symbol-name linkage-hash) entry-num)
     entry-num))
diff --git a/code/foreign.lisp b/code/foreign.lisp
index 1bea2d48dd572c608d38571c5cd72fae5a19bf16..ad3572ce7b023e1a57234ad84ba66e8f7ae6298a 100644
--- a/code/foreign.lisp
+++ b/code/foreign.lisp
@@ -5,12 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.57 2009/10/10 03:00:03 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.58 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 (in-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (in-package "ALIEN")
 (export '(load-foreign))
 (in-package "SYSTEM")
@@ -44,7 +46,7 @@
 		 (unix:unix-close fd)
 		 (return name))
 		((not (= errno unix:eexist))
-		 (error "Could not create temporary file ~S: ~A"
+		 (error _"Could not create temporary file ~S: ~A"
 			name (unix:get-unix-error-msg errno)))
 		
 		((= code (char-code #\Z))
@@ -73,7 +75,7 @@
 	 (addr (int-sap *foreign-segment-free-pointer*))
 	 (new-ptr (+ *foreign-segment-free-pointer* memory-needed)))
     (when (> new-ptr (+ foreign-segment-start foreign-segment-size))
-      (error "Not enough memory left."))
+      (error _"Not enough memory left."))
     (setf *foreign-segment-free-pointer* new-ptr)
     (allocate-system-memory-at addr memory-needed)
     addr))
@@ -165,13 +167,13 @@
   (make-array 4 :element-type '(unsigned-byte 8)
 	        :initial-contents '(127 69 76 70))) ; 0x7f-E-L-F
 (defun elf-p (h)
-  "Make sure the header starts with the ELF magic value."
+  _N"Make sure the header starts with the ELF magic value."
   (dotimes (i 4 t)
     (unless (= (alien:deref h i) (aref +elf-magic+ i))
       (return nil))))
 
 (defun elf-osabi (h)
-  "Return the `osabi' field in the padding of the ELF file."
+  _N"Return the `osabi' field in the padding of the ELF file."
   (alien:deref h ei-osabi))
 
 (defun elf-osabi-name (id)
@@ -194,7 +196,7 @@
     (t (format nil "Unknown ABI (~D)" id))))
 
 (defun elf-executable-p (n)
-  "Given a file type number, determine whether the file is executable."
+  _N"Given a file type number, determine whether the file is executable."
   (= n et-executable))
 
 (defun file-shared-library-p (pathname)
@@ -258,7 +260,7 @@
 (defconstant fat-header-magic #xcafebabe)
 
 (defun mach-o-p (h)
-  "Make sure the header starts with the mach-o magic value."
+  _N"Make sure the header starts with the mach-o magic value."
   (eql (alien:slot h 'magic) mh-magic))
 
 ;;; Read an unsigned 32-bit big-endian number from STREAM.
@@ -355,29 +357,29 @@
   exit 0
   ||#
 
-  (format t ";;; Loading object file...~%")
+  (format t _";;; Loading object file...~%")
   (multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
     (unless fd
-      (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+      (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
     (unwind-protect
 	(alien:with-alien ((header eheader))
 	  (unix:unix-read fd
 			  (alien:alien-sap header)
 			  (alien:alien-size eheader :bytes))
 	  (unless (elf-p (alien:slot header 'elf-ident))
-	    (error (format nil "~A is not an ELF file." name)))
+	    (error (format nil _"~A is not an ELF file." name)))
 
 	  (let ((osabi (elf-osabi (alien:slot header 'elf-ident)))
 		(expected-osabi #+NetBSD elfosabi-netbsd
 				#+FreeBSD elfosabi-freebsd))
 	    (unless (= osabi expected-osabi)
-	      (error "~A is not a ~A executable, it's a ~A executable."
+	      (error _"~A is not a ~A executable, it's a ~A executable."
 		     name
 		     (elf-osabi-name expected-osabi)
 		     (elf-osabi-name osabi))))
 
 	  (unless (elf-executable-p (alien:slot header 'elf-type))
-	    (error (format nil "~A is not executable." name)))
+	    (error (format nil _"~A is not executable." name)))
 	  
 	  (alien:with-alien ((program-header pheader))
 	    (unix:unix-read fd
@@ -392,9 +394,9 @@
       (unix:unix-close fd))))
 
 (defun parse-symbol-table (name)
-  "Parse symbol table file created by load-foreign script.  Modified
+  _N"Parse symbol table file created by load-foreign script.  Modified
 to skip undefined symbols which don't have an address."
-  (format t ";;; Parsing symbol table...~%")
+  (format t _";;; Parsing symbol table...~%")
   (let ((symbol-table (make-hash-table :test #'equal)))
     (with-open-file (file name)
       (loop
@@ -421,10 +423,10 @@ to skip undefined symbols which don't have an address."
 ;;; expected results. It is probably good enough for now.
 #+(or (and FreeBSD (not ELF)) (and sparc (not svr4)))
 (defun load-object-file (name)
-  (format t ";;; Loading object file...~%")
+  (format t _";;; Loading object file...~%")
   (multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
     (unless fd
-      (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+      (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
     (unwind-protect
 	(alien:with-alien ((header exec))
 	  (unix:unix-read fd
@@ -524,10 +526,10 @@ to skip undefined symbols which don't have an address."
 
 #+hppa
 (defun load-object-file (name)
-  (format t ";;; Loading object file...~%")
+  (format t _";;; Loading object file...~%")
   (multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
     (unless fd
-      (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+      (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
     (unwind-protect
         (alien:with-alien ((header (alien:struct som_exec_auxhdr)))
           (unix:unix-lseek fd (alien:alien-size (alien:struct header) :bytes)
@@ -566,7 +568,7 @@ to skip undefined symbols which don't have an address."
 #-(or linux bsd solaris irix)
 (progn
 (defun parse-symbol-table (name)
-  (format t ";;; Parsing symbol table...~%")
+  (format t _";;; Parsing symbol table...~%")
   (let ((symbol-table (make-hash-table :test #'equal)))
     (with-open-file (file name)
       (loop
@@ -593,7 +595,7 @@ to skip undefined symbols which don't have an address."
 			    #+hpux "library:cmucl.orig")
 			   (env ext:*environment-list*)
 		     	   (verbose *load-verbose*))
-  "Load-foreign loads a list of C object files into a running Lisp.  The files
+  _N"Load-foreign loads a list of C object files into a running Lisp.  The files
   argument should be a single file or a list of files.  The files may be
   specified as namestrings or as pathnames.  The libraries argument should be a
   list of library files as would be specified to ld.  They will be searched in
@@ -608,7 +610,7 @@ to skip undefined symbols which don't have an address."
 	(files (if (atom files) (list files) files)))
 
     (when verbose
-      (format t ";;; Running library:load-foreign.csh...~%")
+      (format t _";;; Running library:load-foreign.csh...~%")
       (force-output))
     #+hpux
     (dolist (f files)
@@ -617,11 +619,11 @@ to skip undefined symbols which don't have an address."
                   (or (eql sysid cpu-pa-risc1-0)
 		      (and (>= sysid cpu-pa-risc1-1)
 			   (<= sysid cpu-pa-risc-max))))
-	  (error "Object file is wrong format, so can't load-foreign:~
+	  (error _"Object file is wrong format, so can't load-foreign:~
 		  ~%  ~S"
 		 f))
 	(unless (eql (read-byte stream) reloc-magic)
-	  (error "Object file is not relocatable, so can't load-foreign:~
+	  (error _"Object file is not relocatable, so can't load-foreign:~
 		  ~%  ~S"
 		 f))))
 
@@ -650,10 +652,10 @@ to skip undefined symbols which don't have an address."
 		 :output error-output
 		 :error :output)))
       (unless proc
-	(error "Could not run library:load-foreign.csh"))
+	(error _"Could not run library:load-foreign.csh"))
       (unless (zerop (ext:process-exit-code proc))
 	(system:serve-all-events 0)
-	(error "library:load-foreign.csh failed:~%~A"
+	(error _"library:load-foreign.csh failed:~%~A"
 	       (get-output-stream-string error-output)))
       (load-object-file output-file)
       (parse-symbol-table symbol-table-file)
@@ -663,7 +665,7 @@ to skip undefined symbols which don't have an address."
 	(when old-file
 	  (unix:unix-unlink old-file)))))
   (when verbose
-    (format t ";;; Done.~%")
+    (format t _";;; Done.~%")
     (force-output)))
 
 
@@ -681,15 +683,15 @@ to skip undefined symbols which don't have an address."
 (progn
 
 (defconstant rtld-lazy 1
-  "Lazy function call binding")
+  _N"Lazy function call binding")
 (defconstant rtld-now 2
-  "Immediate function call binding")
+  _N"Immediate function call binding")
 #+(and linux glibc2)
 (defconstant rtld-binding-mask #x3
-  "Mask of binding time value")
+  _N"Mask of binding time value")
 
 (defconstant rtld-global #-irix #x100 #+irix 4
-  "If set the symbols of the loaded object and its dependencies are
+  _N"If set the symbols of the loaded object and its dependencies are
    made visible as if the object were linked directly into the program")
 
 (defvar *global-table* nil)
@@ -726,7 +728,7 @@ to skip undefined symbols which don't have an address."
     (setf *global-table* (acons (int-sap 0) nil nil))
     (setf *global-table* (acons (dlopen nil rtld-lazy) nil nil))
     (when (zerop (system:sap-int (caar *global-table*)))
-      (error "Can't open global symbol table: ~S" (dlerror)))))
+      (error _"Can't open global symbol table: ~S" (dlerror)))))
 
 (defun convert-object-file-path (path)
   ;; Convert path to something that dlopen might like, which means
@@ -755,11 +757,11 @@ to skip undefined symbols which don't have an address."
 	     ;; which isn't very informative.
 	     (when (zerop (sap-int sap))
 	       (return-from load-object-file
-		 (values nil (format nil  "Can't open object ~S: ~S" file err-string))))
+		 (values nil (format nil  _"Can't open object ~S: ~S" file err-string))))
 	     (dlclose sap)
 	     (return-from load-object-file
 	       (values nil
-		       (format nil "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+		       (format nil _"LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
 			       file err-string)))))
 	  ((and recordp (null (assoc sap *global-table* :test #'sap=)))
 	   (setf *global-table* (acons sap file *global-table*)))
@@ -791,22 +793,25 @@ to skip undefined symbols which don't have an address."
 				     (logior rtld-now rtld-global))))
 		(cond ((zerop (sap-int new-sap))
 		       ;; We're going down
-		       (error "Couldn't open library ~S: ~S" lib-path (dlerror)))
+		       (error _"Couldn't open library ~S: ~S" lib-path (dlerror)))
 		      (t
-		       (format t "Reloaded library ~S~%" lib-path)
+		       (format t _"Reloaded library ~S~%" lib-path)
 		       (force-output)))
 
 		(setf (car lib-entry) new-sap)
 		(return))
 	    (continue ()
-	      :report "Ignore library and continue"
+	      :report (lambda (stream)
+			(write-string _"Ignore library and continue" stream))
 	      (return))
 	    (try-again ()
-	      :report "Try reloading again"
+	      :report (lambda (stream)
+			(write-string _"Try reloading again" stream))
 	      )
 	    (new-library ()
-	      :report "Choose new library path"
-	      (format *query-io* "Enter new library path: ")
+	      :report (lambda (stream)
+			(write-string _"Choose new library path" stream))
+	      (format *query-io* _"Enter new library path: ")
 	      (setf lib-path (read))))))
   (alien:alien-funcall (alien:extern-alien "os_resolve_data_linkage"
                                            (alien:function c-call:void))))
@@ -827,7 +832,7 @@ to skip undefined symbols which don't have an address."
 			   (base-file nil)
 			   (env ext:*environment-list*)
 		           (verbose *load-verbose*))
-  "Load C object files into the running Lisp. The FILES argument
+  _N"Load C object files into the running Lisp. The FILES argument
 should be a single file or a list of files. The files may be specified
 as namestrings or as pathnames. The LIBRARIES argument should be a
 list of library files as would be specified to ld. They will be
@@ -844,12 +849,12 @@ environment passed to Lisp."
   ;; dlopen(), do that instead of using the linker
   (when (atom files)
     (when verbose
-      (format t ";;; Opening as shared library ~A ...~%" files))
+      (format t _";;; Opening as shared library ~A ...~%" files))
     (multiple-value-bind (ok error-string)
 	(load-object-file files)
       (cond (ok
 	     (when verbose
-	       (format t ";;; Done.~%")
+	       (format t _";;; Done.~%")
 	       (force-output))
 	     (return-from load-foreign))
 	    (error-string
@@ -859,7 +864,7 @@ environment passed to Lisp."
     ;; If we get here, we couldn't open the file as a shared library.
     ;; Try again assuming it's an object file.
     (when verbose
-      (format t ";;; Trying as object file ~A...~%" files)))
+      (format t _";;; Trying as object file ~A...~%" files)))
   
   
   (let ((output-file (pick-temporary-file-name
@@ -867,7 +872,7 @@ environment passed to Lisp."
 	(error-output (make-string-output-stream)))
  
     (when verbose
-      (format t ";;; Running ~A...~%" *dso-linker*)
+      (format t _";;; Running ~A...~%" *dso-linker*)
       (force-output))
     
     (let ((proc (ext:run-program
@@ -888,7 +893,7 @@ environment passed to Lisp."
 				   (error 'simple-file-error
 					  :pathname name
 					  :format-control
-					  "File does not exist: ~A."
+					  _"File does not exist: ~A."
 					  :format-arguments
 					  (list name))))
 			   (if (atom files)
@@ -911,15 +916,15 @@ environment passed to Lisp."
 		 :output error-output
 		 :error :output)))
       (unless proc
-	(error "Could not run ~A" *dso-linker*))
+	(error _"Could not run ~A" *dso-linker*))
       (unless (zerop (ext:process-exit-code proc))
 	(system:serve-all-events 0)
-	(error "~A failed:~%~A" *dso-linker*
+	(error _"~A failed:~%~A" *dso-linker*
 	       (get-output-stream-string error-output)))
       (load-object-file output-file nil)
       (unix:unix-unlink output-file))
     (when verbose
-      (format t ";;; Done.~%")
+      (format t _";;; Done.~%")
       (force-output))))
 
 #+linkage-table
diff --git a/code/format-time.lisp b/code/format-time.lisp
index da70b40143af6c7e0243b0985b3348395ddc61dc..afe0a980dcb3c5736a8e075dd22cf68855acfa5c 100644
--- a/code/format-time.lisp
+++ b/code/format-time.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format-time.lisp,v 1.9 2009/06/11 16:03:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format-time.lisp,v 1.10 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 
@@ -18,6 +18,8 @@
 
 (in-package :extensions)
 
+(intl:textdomain "cmucl")
+
 (export '(format-universal-time format-decoded-time))
 
 (defconstant abbrev-weekday-table
@@ -63,7 +65,7 @@
 					  (print-meridian t)
 					  (print-timezone t)
 					  (print-weekday t))
-  "Format-Universal-Time formats a string containing the time and date
+  _N"Format-Universal-Time formats a string containing the time and date
    given by universal-time in a common manner.  The destination is any
    destination which can be accepted by the Format function.  The
    timezone keyword is an integer specifying hours west of Greenwich.
@@ -76,14 +78,14 @@
    the date (the default).  The print- keywords, if nil, inhibit the
    printing of the obvious part of the time/date."
   (unless (valid-destination-p destination)
-    (error "~A: Not a valid format destination." destination))
+    (error _"~A: Not a valid format destination." destination))
   (unless (integerp universal-time)
-    (error "~A: Universal-Time should be an integer." universal-time))
+    (error _"~A: Universal-Time should be an integer." universal-time))
   (when timezone
     (unless (and (rationalp timezone) (<= -24 timezone 24))
-      (error "~A: Timezone should be a rational between -24 and 24." timezone))
+      (error _"~A: Timezone should be a rational between -24 and 24." timezone))
     (unless (zerop (rem timezone 1/3600))
-      (error "~A: Timezone is not a second (1/3600) multiple." timezone)))
+      (error _"~A: Timezone is not a second (1/3600) multiple." timezone)))
 
   (multiple-value-bind (secs mins hours day month year dow dst tz)
 		       (if timezone
@@ -99,7 +101,7 @@
 	     (:government "~2,'0D ~:@(~A~) ~2,'0D")	;;  DD MON YY
 	     (:iso8601 "~4,'0D-~2,'0D-~2,'0D")          ;;  YYYY-MM-DD
 	     (t
-	      (error "~A: Unrecognized :style keyword value." style))))
+	      (error _"~A: Unrecognized :style keyword value." style))))
 	  (time-args
 	   (case style
 	     ((:rfc1123 :iso8601) (list mins hours))
@@ -218,7 +220,7 @@
 					  (print-meridian t)
 					  (print-timezone t)
 					  (print-weekday t))
-  "Format-Decoded-Time formats a string containing decoded-time
+  _N"Format-Decoded-Time formats a string containing decoded-time
    expressed in a humanly-readable manner.  The destination is any
    destination which can be accepted by the Format function.  The
    timezone keyword is an integer specifying hours west of Greenwich.
@@ -229,22 +231,22 @@
    keywords, if nil, inhibit the printing of certain semi-obvious
    parts of the string."
   (unless (valid-destination-p destination)
-    (error "~A: Not a valid format destination." destination))
+    (error _"~A: Not a valid format destination." destination))
   (unless (and (integerp seconds) (<= 0 seconds 59))
-    (error "~A: Seconds should be an integer between 0 and 59." seconds))
+    (error _"~A: Seconds should be an integer between 0 and 59." seconds))
   (unless (and (integerp minutes) (<= 0 minutes 59))
-    (error "~A: Minutes should be an integer between 0 and 59." minutes))
+    (error _"~A: Minutes should be an integer between 0 and 59." minutes))
   (unless (and (integerp hours) (<= 0 hours 23))
-    (error "~A: Hours should be an integer between 0 and 23." hours))
+    (error _"~A: Hours should be an integer between 0 and 23." hours))
   (unless (and (integerp day) (<= 1 day 31))
-    (error "~A: Day should be an integer between 1 and 31." day))
+    (error _"~A: Day should be an integer between 1 and 31." day))
   (unless (and (integerp month) (<= 1 month 12))
-    (error "~A: Month should be an integer between 1 and 12." month))
+    (error _"~A: Month should be an integer between 1 and 12." month))
   (unless (and (integerp year) (plusp year))
-    (error "~A: Hours should be an non-negative integer." year))
+    (error _"~A: Hours should be an non-negative integer." year))
   (when timezone
     (unless (and (integerp timezone) (<= 0 timezone 32))
-      (error "~A: Timezone should be an integer between 0 and 32."
+      (error _"~A: Timezone should be an integer between 0 and 32."
 	     timezone)))
   (format-universal-time destination
    (encode-universal-time seconds minutes hours day month year)
diff --git a/code/format.lisp b/code/format.lisp
index 25b75ee6b1c73e100ade0a5094491097fa2d72db..4e72c6ab1f4bc2648ca411b22a4914a542b2b69e 100644
--- a/code/format.lisp
+++ b/code/format.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.93 2009/08/09 03:54:41 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.94 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,8 @@
 (use-package "EXT")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (in-package "LISP")
 (export '(format formatter))
 
@@ -48,7 +50,7 @@
 
 (defun %print-format-error (condition stream)
   (cl:format stream
-	     "~:[~;Error in format: ~]~
+	     _"~:[~;Error in format: ~]~
 	      ~?~@[~%  ~A~%  ~V@T^~]"
 	     (format-error-print-banner condition)
 	     (format-error-complaint condition)
@@ -124,7 +126,7 @@
 	  (setf index (format-directive-end directive)))))
     (when (and pprint (plusp justification-semi))
       (error 'format-error
-	     :complaint "A justification directive cannot be in the same format string~%~
+	     :complaint _"A justification directive cannot be in the same format string~%~
                          as ~~W, ~~I, ~~:T, or a logical-block directive."
 	     :control-string string
 	     :offset 0))
@@ -136,7 +138,7 @@
     (flet ((get-char ()
 	     (if (= posn end)
 		 (error 'format-error
-			:complaint "String ended before directive was found."
+			:complaint _"String ended before directive was found."
 			:control-string string
 			:offset start)
 		 (schar string posn))))
@@ -183,14 +185,14 @@
 		((char= char #\:)
 		 (if colonp
 		     (error 'format-error
-			    :complaint "Too many colons supplied."
+			    :complaint _"Too many colons supplied."
 			    :control-string string
 			    :offset posn)
 		     (setf colonp t)))
 		((char= char #\@)
 		 (if atsignp
 		     (error 'format-error
-			    :complaint "Too many at-signs supplied."
+			    :complaint _"Too many at-signs supplied."
 			    :control-string string
 			    :offset posn)
 		     (setf atsignp t)))
@@ -203,7 +205,7 @@
 	    (if closing-slash
 		(setf posn closing-slash)
 		(error 'format-error
-		       :complaint "No matching closing slash."
+		       :complaint _"No matching closing slash."
 		       :control-string string
 		       :offset posn))))
 	(make-format-directive
@@ -265,7 +267,7 @@
 ;;;; FORMAT
 
 (defun format (destination control-string &rest format-arguments)
-  "Provides various facilities for formatting output.
+  _N"Provides various facilities for formatting output.
   CONTROL-STRING contains a string to be output, possibly with embedded
   directives, which are flagged with the escape character \"~\".  Directives
   generally expand into additional text to be output, usually consuming one
@@ -335,7 +337,7 @@
 		      (1- (format-directive-end directive))))
 		 (unless function
 		   (error 'format-error
-			  :complaint "Unknown format directive."))
+			  :complaint _"Unknown format directive."))
 		 (multiple-value-bind
 		     (new-directives new-args)
 		     (funcall function stream directive
@@ -362,7 +364,7 @@
 	  (push `(,(car arg)
 		  (error
 		   'format-error
-		   :complaint "Required argument missing"
+		   :complaint _"Required argument missing"
 		   :control-string ,control-string
 		   :offset ,(cdr arg)))
 		args))
@@ -412,7 +414,7 @@
        (if expander
 	   (funcall expander directive more-directives)
 	   (error 'format-error
-		  :complaint "Unknown directive."))))
+		  :complaint _"Unknown directive."))))
     (simple-string
      (values `(write-string ,directive stream)
 	     more-directives))))
@@ -438,7 +440,7 @@
   `(if args
        (pop args)
        (error 'format-error
-	      :complaint "No more arguments."
+	      :complaint _"No more arguments."
 	      :control-string ,string
 	      :offset ,offset)))
 
@@ -446,7 +448,7 @@
   `(progn
      (when (null args)
        (error 'format-error
-	      :complaint "No more arguments."
+	      :complaint _"No more arguments."
 	      :control-string ,string
 	      :offset ,offset))
      (pprint-pop)
@@ -463,7 +465,7 @@
   `(progn
      (when (null args)
        (error 'format-error
-	      :complaint "No more arguments."
+	      :complaint _"No more arguments."
 	      ,@(when offset
 		  `(:offset ,offset))))
      (when *logical-block-popper*
@@ -535,14 +537,14 @@
 		       ,@(if ,params
 			     (error 'format-error
 				    :complaint
-			    "Too many parameters, expected no more than ~D"
+				    _"Too many parameters, expected no more than ~D"
 				    :arguments (list ,(length specs))
 				    :offset (caar ,params)))
 		       ,,@body)))
 	`(progn
 	   (when ,params
 	     (error 'format-error
-		    :complaint "Too many parameters, expected no more than 0"
+		    :complaint _"Too many parameters, expected no more than 0"
 		    :offset (caar ,params)))
 	   ,@body))))
 
@@ -597,7 +599,7 @@
 	 (when ,params
 	   (error 'format-error
 		  :complaint
-		  "Too many parameters, expected no more than ~D"
+		  _"Too many parameters, expected no more than ~D"
 		  :arguments (list ,(length specs))
 		  :offset (caar ,params)))
 	 ,@body))))
@@ -1376,12 +1378,12 @@
 (defconstant ordinal-ones
   #(nil "first" "second" "third" "fourth"
 	"fifth" "sixth" "seventh" "eighth" "ninth")
-  "Table of ordinal ones-place digits in English")
+  _N"Table of ordinal ones-place digits in English")
 
 (defconstant ordinal-tens 
   #(nil "tenth" "twentieth" "thirtieth" "fortieth"
 	"fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth")
-  "Table of ordinal tens-place digits in English")
+  _N"Table of ordinal tens-place digits in English")
 
 (defun format-print-small-cardinal (stream n)
   (multiple-value-bind 
@@ -1458,7 +1460,7 @@
 
 (defun format-print-old-roman (stream n)
   (unless (< 0 n 5000)
-    (error "Number too large to print in old Roman numerals: ~:D" n))
+    (error _"Number too large to print in old Roman numerals: ~:D" n))
   (do ((char-list '(#\D #\C #\L #\X #\V #\I) (cdr char-list))
        (val-list '(500 100 50 10 5 1) (cdr val-list))
        (cur-char #\M (car char-list))
@@ -1471,7 +1473,7 @@
 
 (defun format-print-roman (stream n)
   (unless (< 0 n 4000)
-    (error "Number too large to print in Roman numerals: ~:D" n))
+    (error _"Number too large to print in Roman numerals: ~:D" n))
   (do ((char-list '(#\D #\C #\L #\X #\V #\I) (cdr char-list))
        (val-list '(500 100 50 10 5 1) (cdr val-list))
        (sub-chars '(#\C #\X #\X #\I #\I) (cdr sub-chars))
@@ -1502,7 +1504,7 @@
 		(*orig-args-available*
 		 `(if (eq orig-args args)
 		      (error 'format-error
-			     :complaint "No previous argument."
+			     :complaint _"No previous argument."
 			     :offset ,(1- end))
 		      (do ((arg-ptr orig-args (cdr arg-ptr)))
 			  ((eq (cdr arg-ptr) args)
@@ -1510,7 +1512,7 @@
 		(*only-simple-args*
 		 (unless *simple-args*
 		   (error 'format-error
-			  :complaint "No previous argument."))
+			  :complaint _"No previous argument."))
 		 (caar *simple-args*))
 		(t
 		 (throw 'need-orig-args nil)))))
@@ -1542,7 +1544,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (expand-bind-defaults ((w nil) (d nil) (k nil) (ovf nil) (pad #\space)) params
     `(format-fixed stream ,(expand-next-arg) ,w ,d ,k ,ovf ,pad ,atsignp)))
 
@@ -1550,7 +1552,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (interpret-bind-defaults ((w nil) (d nil) (k nil) (ovf nil) (pad #\space))
 			   params
     (format-fixed stream (next-arg) w d k ovf pad atsignp)))
@@ -1620,7 +1622,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (expand-bind-defaults
       ((w nil) (d nil) (e nil) (k 1) (ovf nil) (pad #\space) (mark nil))
       params
@@ -1631,7 +1633,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (interpret-bind-defaults
       ((w nil) (d nil) (e nil) (k 1) (ovf nil) (pad #\space) (mark nil))
       params
@@ -1856,7 +1858,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (expand-bind-defaults
       ((w nil) (d nil) (e nil) (k nil) (ovf nil) (pad #\space) (mark nil))
       params
@@ -1866,7 +1868,7 @@
   (when colonp
     (error 'format-error
 	   :complaint
-	   "Cannot specify the colon modifier with this directive."))
+	   _"Cannot specify the colon modifier with this directive."))
   (interpret-bind-defaults
       ((w nil) (d nil) (e nil) (k nil) (ovf nil) (pad #\space) (mark nil))
       params
@@ -1973,7 +1975,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (if params
       (expand-bind-defaults ((count 1)) params
 	`(dotimes (i ,count)
@@ -1984,7 +1986,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (interpret-bind-defaults ((count 1)) params
     (dotimes (i count)
       (terpri stream))))
@@ -1993,7 +1995,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (if params
       (expand-bind-defaults ((count 1)) params
 	`(progn
@@ -2006,7 +2008,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (interpret-bind-defaults ((count 1)) params
     (fresh-line stream)
     (dotimes (i (1- count))
@@ -2016,7 +2018,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (if params
       (expand-bind-defaults ((count 1)) params
 	`(dotimes (i ,count)
@@ -2027,7 +2029,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (interpret-bind-defaults ((count 1)) params
     (dotimes (i count)
       (write-char #\page stream))))
@@ -2036,7 +2038,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (if params
       (expand-bind-defaults ((count 1)) params
 	`(dotimes (i ,count)
@@ -2047,7 +2049,7 @@
   (when (or colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify either colon or atsign for this directive."))
+	   _"Cannot specify either colon or atsign for this directive."))
   (interpret-bind-defaults ((count 1)) params
     (dotimes (i count)
       (write-char #\~ stream))))
@@ -2056,7 +2058,7 @@
   (when (and colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify both colon and atsign for this directive."))
+	   _"Cannot specify both colon and atsign for this directive."))
   (values (expand-bind-defaults () params
 	    (if atsignp
 		'(write-char #\newline stream)
@@ -2073,7 +2075,7 @@
   (when (and colonp atsignp)
     (error 'format-error
 	   :complaint
-	   "Cannot specify both colon and atsign for this directive."))
+	   _"Cannot specify both colon and atsign for this directive."))
   (interpret-bind-defaults () params
     (when atsignp
       (write-char #\newline stream)))
@@ -2165,14 +2167,14 @@
 (def-format-directive #\I (colonp atsignp params)
   (when atsignp
     (error 'format-error
-	   :complaint "Cannot specify the at-sign modifier."))
+	   :complaint _"Cannot specify the at-sign modifier."))
   (expand-bind-defaults ((n 0)) params
     `(pprint-indent ,(if colonp :current :block) ,n stream)))
 
 (def-format-interpreter #\I (colonp atsignp params)
   (when atsignp
     (error 'format-error
-	   :complaint "Cannot specify the at-sign modifier."))
+	   :complaint _"Cannot specify the at-sign modifier."))
   (interpret-bind-defaults ((n 0)) params
     (pprint-indent (if colonp :current :block) n stream)))
 
@@ -2183,14 +2185,14 @@
   (if atsignp
       (if colonp
 	  (error 'format-error
-		 :complaint "Cannot specify both colon and at-sign.")
+		 :complaint _"Cannot specify both colon and at-sign.")
 	  (expand-bind-defaults ((posn 0)) params
 	    (unless *orig-args-available*
 	      (throw 'need-orig-args nil))
 	    `(if (<= 0 ,posn (length orig-args))
 		 (setf args (nthcdr ,posn orig-args))
 		 (error 'format-error
-			:complaint "Index ~D out of bounds.  Should have been ~
+			:complaint _"Index ~D out of bounds.  Should have been ~
 				    between 0 and ~D."
 			:arguments (list ,posn (length orig-args))
 			:offset ,(1- end)))))
@@ -2206,7 +2208,7 @@
 			(setf args (nthcdr new-posn orig-args))
 			(error 'format-error
 			       :complaint
-			       "Index ~D out of bounds.  Should have been ~
+			       _"Index ~D out of bounds.  Should have been ~
 				between 0 and ~D."
 			       :arguments
 			       (list new-posn (length orig-args))
@@ -2222,12 +2224,12 @@
   (if atsignp
       (if colonp
 	  (error 'format-error
-		 :complaint "Cannot specify both colon and at-sign.")
+		 :complaint _"Cannot specify both colon and at-sign.")
 	  (interpret-bind-defaults ((posn 0)) params
 	    (if (<= 0 posn (length orig-args))
 		(setf args (nthcdr posn orig-args))
 		(error 'format-error
-		       :complaint "Index ~D out of bounds.  Should have been ~
+		       :complaint _"Index ~D out of bounds.  Should have been ~
 				   between 0 and ~D."
 		       :arguments (list posn (length orig-args))))))
       (if colonp
@@ -2240,7 +2242,7 @@
 		       (setf args (nthcdr new-posn orig-args))
 		       (error 'format-error
 			      :complaint
-			      "Index ~D out of bounds.  Should have been ~
+			      _"Index ~D out of bounds.  Should have been ~
 			       between 0 and ~D."
 			      :arguments
 			      (list new-posn (length orig-args))))))))
@@ -2254,14 +2256,14 @@
 (def-format-directive #\? (colonp atsignp params string end)
   (when colonp
     (error 'format-error
-	   :complaint "Cannot specify the colon modifier."))
+	   :complaint _"Cannot specify the colon modifier."))
   (expand-bind-defaults () params
     `(handler-bind
 	 ((format-error
 	   #'(lambda (condition)
 	       (error 'format-error
 		      :complaint
-		      "~A~%while processing indirect format string:"
+		      _"~A~%while processing indirect format string:"
 		      :arguments (list condition)
 		      :print-banner nil
 		      :control-string ,string
@@ -2275,14 +2277,14 @@
 (def-format-interpreter #\? (colonp atsignp params string end)
   (when colonp
     (error 'format-error
-	   :complaint "Cannot specify the colon modifier."))
+	   :complaint _"Cannot specify the colon modifier."))
   (interpret-bind-defaults () params
     (handler-bind
 	((format-error
 	  #'(lambda (condition)
 	      (error 'format-error
 		     :complaint
-		     "~A~%while processing indirect format string:"
+		     _"~A~%while processing indirect format string:"
 		     :arguments (list condition)
 		     :print-banner nil
 		     :control-string string
@@ -2298,7 +2300,7 @@
   (let ((close (find-directive directives #\) nil)))
     (unless close
       (error 'format-error
-	     :complaint "No corresponding close paren."))
+	     :complaint _"No corresponding close paren."))
     (let* ((posn (position close directives))
 	   (before (subseq directives 0 posn))
 	   (after (nthcdr (1+ posn) directives)))
@@ -2319,7 +2321,7 @@
   (let ((close (find-directive directives #\) nil)))
     (unless close
       (error 'format-error
-	     :complaint "No corresponding close paren."))
+	     :complaint _"No corresponding close paren."))
     (interpret-bind-defaults () params
       (let* ((posn (position close directives))
 	     (before (subseq directives 0 posn))
@@ -2337,11 +2339,11 @@
 
 (def-complex-format-directive #\) ()
   (error 'format-error
-	 :complaint "No corresponding open paren."))
+	 :complaint _"No corresponding open paren."))
 
 (def-complex-format-interpreter #\) ()
   (error 'format-error
-	 :complaint "No corresponding open paren."))
+	 :complaint _"No corresponding open paren."))
 
 
 ;;;; Conditionals
@@ -2354,7 +2356,7 @@
       (let ((close-or-semi (find-directive remaining #\] t)))
 	(unless close-or-semi
 	  (error 'format-error
-		 :complaint "No corresponding close bracket."))
+		 :complaint _"No corresponding close bracket."))
 	(let ((posn (position close-or-semi remaining)))
 	  (push (subseq remaining 0 posn) sublists)
 	  (setf remaining (nthcdr (1+ posn) remaining))
@@ -2373,11 +2375,11 @@
 	 (if colonp
 	     (error 'format-error
 		    :complaint
-		    "Cannot specify both the colon and at-sign modifiers.")
+		    _"Cannot specify both the colon and at-sign modifiers.")
 	     (if (cdr sublists)
 		 (error 'format-error
 			:complaint
-			"Can only specify one section")
+			_"Can only specify one section")
 		 (expand-bind-defaults () params
 		   (expand-maybe-conditional (car sublists)))))
 	 (if colonp
@@ -2387,7 +2389,7 @@
 						  (cadr sublists)))
 		 (error 'format-error
 			:complaint
-			"Must specify exactly two sections."))
+			_"Must specify exactly two sections."))
 	     (expand-bind-defaults ((index nil)) params
 	       (setf *only-simple-args* nil)
 	       (let ((clauses nil)
@@ -2481,11 +2483,11 @@
 	      (if colonp
 		  (error 'format-error
 			 :complaint
-		     "Cannot specify both the colon and at-sign modifiers.")
+		     _"Cannot specify both the colon and at-sign modifiers.")
 		  (if (cdr sublists)
 		      (error 'format-error
 			     :complaint
-			     "Can only specify one section")
+			     _"Can only specify one section")
 		      (interpret-bind-defaults () params
 			(let ((prev-args args)
 			      (arg (next-arg)))
@@ -2505,7 +2507,7 @@
 						      orig-args args)))
 		      (error 'format-error
 			     :complaint
-			     "Must specify exactly two sections."))
+			     _"Must specify exactly two sections."))
 		  (interpret-bind-defaults ((index (next-arg))) params
 		    (let* ((default (and last-semi-with-colon-p
 					 (pop sublists)))
@@ -2521,22 +2523,22 @@
 (def-complex-format-directive #\; ()
   (error 'format-error
 	 :complaint
-	 "~~; not contained within either ~~[...~~] or ~~<...~~>."))
+	 _"~~; not contained within either ~~[...~~] or ~~<...~~>."))
 
 (def-complex-format-interpreter #\; ()
   (error 'format-error
 	 :complaint
-	 "~~; not contained within either ~~[...~~] or ~~<...~~>."))
+	 _"~~; not contained within either ~~[...~~] or ~~<...~~>."))
 
 (def-complex-format-interpreter #\] ()
   (error 'format-error
 	 :complaint
-	 "No corresponding open bracket."))
+	 _"No corresponding open bracket."))
 
 (def-complex-format-directive #\] ()
   (error 'format-error
 	 :complaint
-	 "No corresponding open bracket."))
+	 _"No corresponding open bracket."))
 
 
 ;;;; Up-and-out.
@@ -2546,10 +2548,10 @@
 (def-format-directive #\^ (colonp atsignp params)
   (when atsignp
     (error 'format-error
-	   :complaint "Cannot specify the at-sign modifier."))
+	   :complaint _"Cannot specify the at-sign modifier."))
   (when (and colonp (not *up-up-and-out-allowed*))
     (error 'format-error
-	   :complaint "Attempt to use ~~:^ outside a ~~:{...~~} construct."))
+	   :complaint _"Attempt to use ~~:^ outside a ~~:{...~~} construct."))
   ;; See the #\^ interpreter below for what happens here.
   `(when ,(case (length params)
 	    (0 (if colonp
@@ -2583,10 +2585,10 @@
 (def-format-interpreter #\^ (colonp atsignp params)
   (when atsignp
     (error 'format-error
-	   :complaint "Cannot specify the at-sign modifier."))
+	   :complaint _"Cannot specify the at-sign modifier."))
   (when (and colonp (not *up-up-and-out-allowed*))
     (error 'format-error
-	   :complaint "Attempt to use ~~:^ outside a ~~:{...~~} construct."))
+	   :complaint _"Attempt to use ~~:^ outside a ~~:{...~~} construct."))
   ;; This is messy because, as I understand it, and as tested by
   ;; ansi-tests, a NIL parameter is the same as not given.  Thus for 2
   ;; args, if the second is nil, we have to pretend that only 1 was
@@ -2629,7 +2631,7 @@
     (unless close
       (error 'format-error
 	     :complaint
-	     "No corresponding close brace."))
+	     _"No corresponding close brace."))
     (let* ((closed-with-colon (format-directive-colonp close))
 	   (posn (position close directives)))
       (labels
@@ -2641,7 +2643,7 @@
 			     #'(lambda (condition)
 				 (error 'format-error
 					:complaint
-			"~A~%while processing indirect format string:"
+					_"~A~%while processing indirect format string:"
 					:arguments (list condition)
 					:print-banner nil
 					:control-string ,string
@@ -2708,7 +2710,7 @@
     (unless close
       (error 'format-error
 	     :complaint
-	     "No corresponding close brace."))
+	     _"No corresponding close brace."))
     (interpret-bind-defaults ((max-count nil)) params
       (let* ((closed-with-colon (format-directive-colonp close))
 	     (posn (position close directives))
@@ -2724,7 +2726,7 @@
 			 #'(lambda (condition)
 			     (error 'format-error
 				    :complaint
-			    "~A~%while processing indirect format string:"
+				    _"~A~%while processing indirect format string:"
 				    :arguments (list condition)
 				    :print-banner nil
 				    :control-string string
@@ -2761,11 +2763,11 @@
 
 (def-complex-format-directive #\} ()
   (error 'format-error
-	 :complaint "No corresponding open brace."))
+	 :complaint _"No corresponding open brace."))
 
 (def-complex-format-interpreter #\} ()
   (error 'format-error
-	 :complaint "No corresponding open brace."))
+	 :complaint _"No corresponding open brace."))
 
 
 
@@ -2807,7 +2809,9 @@
 	     ;; ANSI specifies that "an error is signalled" in this
 	     ;; situation.
 	     (error 'format-error
-		    :complaint "~D illegal directive~:P found inside justification block"
+		    :complaint (intl:ngettext "~D illegal directive found inside justification block"
+					      "~D illegal directives found inside justification block"
+					      count)
 		    :arguments (list count)))
 	   (expand-format-justification segments colonp atsignp
 				      first-semi params)))
@@ -2834,7 +2838,10 @@
 		  ;; ANSI specifies that "an error is signalled" in this
 		  ;; situation.
 		  (error 'format-error
-			 :complaint "~D illegal directive~:P found inside justification block"
+			 :complaint (intl:ngettext
+				     "~D illegal directive found inside justification block"
+				     "~D illegal directives found inside justification block"
+				     count)
 			 :arguments (list count)))
 		(interpret-format-justification stream orig-args args
 						segments colonp atsignp
@@ -2850,7 +2857,7 @@
 	(let ((close-or-semi (find-directive remaining #\> t)))
 	  (unless close-or-semi
 	    (error 'format-error
-		   :complaint "No corresponding close bracket."))
+		   :complaint _"No corresponding close bracket."))
 	  (let ((posn (position close-or-semi remaining)))
 	    (segments (subseq remaining 0 posn))
 	    (setf remaining (nthcdr (1+ posn) remaining)))
@@ -2984,7 +2991,7 @@
        (segments colonp first-semi close params string end)
   (when params
     (error 'format-error
-	   :complaint "No parameters can be supplied with ~~<...~~:>."
+	   :complaint _"No parameters can be supplied with ~~<...~~:>."
 	   :offset (caar params)))
   (multiple-value-bind
       (prefix insides suffix)
@@ -2995,7 +3002,7 @@
 		   (if directive
 		       (error 'format-error
 			      :complaint
-			      "Cannot include format directives inside the ~
+			      _"Cannot include format directives inside the ~
 			       ~:[suffix~;prefix~] segment of ~~<...~~:>"
 			      :arguments (list prefix-p)
 			      :offset (1- (format-directive-end directive)))
@@ -3010,7 +3017,7 @@
 		     (extract-string (caddr segments) nil)))
 	  (t
 	   (error 'format-error
-		  :complaint "Too many segments for ~~<...~~:>.")))))
+		  :complaint _"Too many segments for ~~<...~~:>.")))))
     (when (format-directive-atsignp close)
       (setf insides
 	    (add-fill-style-newlines insides
@@ -3105,7 +3112,7 @@
 
 (def-complex-format-directive #\> ()
   (error 'format-error
-	 :complaint "No corresponding open bracket."))
+	 :complaint _"No corresponding open bracket."))
 
 
 ;;;; User-defined method.
@@ -3142,7 +3149,7 @@
 			 :from-end t)))
     (unless slash
       (error 'format-error
-	     :complaint "Malformed ~~/ directive."))
+	     :complaint _"Malformed ~~/ directive."))
     (let* ((name (string-upcase (let ((foo string))
 				  ;; Hack alert: This is to keep the compiler
 				  ;; quiet about deleting code inside the
@@ -3156,7 +3163,7 @@
 	   (package (find-package package-name)))
       (unless package
 	(error 'format-error
-	       :complaint "No package named ~S"
+	       :complaint _"No package named ~S"
 	       :arguments (list package-name)))
       (intern (cond
                 ((and second-colon (= second-colon (1+ first-colon)))
diff --git a/code/fwrappers.lisp b/code/fwrappers.lisp
index c113aaa9656ea03c6a0e0632ae06b9e28e7a75fa..8d713a2e2c3ae66faeff552755e0e3cde01d12c8 100644
--- a/code/fwrappers.lisp
+++ b/code/fwrappers.lisp
@@ -27,10 +27,12 @@
 ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 ;;; DAMAGE.
 
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fwrappers.lisp,v 1.5 2004/01/09 04:34:17 toy Rel $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fwrappers.lisp,v 1.6 2010/03/19 15:18:59 rtoy Exp $")
 
 (in-package :fwrappers)
 
+(intl:textdomain "cmucl")
+
 (defstruct (fwrapper
 	     (:alternate-metaclass kernel:funcallable-instance
 				   kernel:funcallable-structure-class
@@ -38,7 +40,7 @@
 	     (:type kernel:funcallable-structure)
 	     (:constructor make-fwrapper (constructor type user-data))
 	     (:print-function print-fwrapper))
-  "A funcallable instance used to implement fwrappers.
+  _N"A funcallable instance used to implement fwrappers.
    The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.
    This function returns an instance closure closing over an 
    fwrapper object, which is installed as the funcallable-instance
@@ -49,14 +51,14 @@
   (user-data	nil		:type t))
 
 (defun print-fwrapper (fwrapper stream depth)
-  "Print-function for struct FWRAPPER."
+  _N"Print-function for struct FWRAPPER."
   (declare (ignore depth))
   (print-unreadable-object (fwrapper stream :type t :identity t)
     (format stream "~s" (fwrapper-type fwrapper))))
 
 (declaim (inline fwrapper-or-nil))
 (defun fwrapper-or-nil (fun)
-  "Return FUN if it is an fwrapper or nil if it isn't."
+  _N"Return FUN if it is an fwrapper or nil if it isn't."
   (and (functionp fun)
        ;; Necessary for cold-load reasons.
        (= (get-type fun) vm:funcallable-instance-header-type)
@@ -64,7 +66,7 @@
        fun))
 
 (defmacro do-fwrappers ((var fdefn &optional result) &body body)
-  "Evaluate BODY with VAR bound to consecutive fwrappers of
+  _N"Evaluate BODY with VAR bound to consecutive fwrappers of
    FDEFN.  Return RESULT at the end."
   `(loop for ,var = (fwrapper-or-nil (fdefn-function ,fdefn))
 	 then (fwrapper-or-nil (fwrapper-next ,var))
@@ -73,13 +75,13 @@
 
 (declaim (inline last-fwrapper))
 (defun last-fwrapper (fdefn)
-  "Return tha last encapsulation of FDEFN or NIL if none."
+  _N"Return tha last encapsulation of FDEFN or NIL if none."
   (do-fwrappers (f fdefn)
     (when (null (fwrapper-or-nil (fwrapper-next f)))
       (return f))))
 
 (defun push-fwrapper (f function-name)
-  "Prepend encapsulation F to the definition of FUNCTION-NAME.
+  _N"Prepend encapsulation F to the definition of FUNCTION-NAME.
    Signal an error if FUNCTION-NAME is an undefined function."
   (declare (type fwrapper f))
   (let ((fdefn (fdefn-or-lose function-name)))
@@ -87,19 +89,19 @@
     (setf (fdefn-function fdefn) f)))
 
 (defun delete-fwrapper (f function-name)
-  "Remove fwrapper F from the definition of FUNCTION-NAME."
+  _N"Remove fwrapper F from the definition of FUNCTION-NAME."
   (set-fwrappers function-name
 		 (delete f (list-fwrappers function-name))))
 
 (defun list-fwrappers (function-name)
-  "Return a list of all fwrappers of FUNCTION-NAME, ordered
+  _N"Return a list of all fwrappers of FUNCTION-NAME, ordered
    from outermost to innermost."
   (collect ((result))
     (do-fwrappers (f (fdefn-or-lose function-name) (result))
       (result f))))
 
 (defun set-fwrappers (function-name fwrappers)
-  "Set FUNCTION-NAMES's fwrappers to elements of the list
+  _N"Set FUNCTION-NAMES's fwrappers to elements of the list
    FWRAPPERS, which is assumed to be ordered from outermost to
    innermost.  FWRAPPERS null means remove all fwrappers."
   (let ((fdefn (fdefn-or-lose function-name))
@@ -109,7 +111,7 @@
       (push-fwrapper f function-name))))
 
 (defun fwrap (function-name constructor &key type user-data)
-  "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,
+  _N"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,
    created by calling CONSTRUCTOR.  CONSTRUCTOR is a function
    defined with DEFINE-FWRAPPER, or the name of such a function.
    Return the fwrapper created.  USER-DATA is arbitrary data to be
@@ -121,7 +123,7 @@
     (push-fwrapper f function-name)))
 
 (defun funwrap (function-name &key (type nil type-p) test)
-  "Remove fwrappers from the function named FUNCTION-NAME.
+  _N"Remove fwrappers from the function named FUNCTION-NAME.
    If TYPE is supplied, remove fwrappers whose type is equal to TYPE.
    If TEST is supplied, remove fwrappers satisfying TEST.
    If both are not specified, remove all fwrappers."
@@ -134,13 +136,13 @@
       (set-fwrappers function-name (new)))))
 
 (defun update-fwrapper (f)
-  "Update the funcallable instance function of fwrapper F from its
+  _N"Update the funcallable instance function of fwrapper F from its
    constructor."
   (setf (kernel:funcallable-instance-function f)
 	(funcall (fwrapper-constructor f) f)))
 
 (defun update-fwrappers (function-name &key (type nil type-p) test)
-  "Update fwrapper function definitions of FUNCTION-NAME.
+  _N"Update fwrapper function definitions of FUNCTION-NAME.
    If TYPE is supplied, update fwrappers whose type is equal to TYPE.
    If TEST is supplied, update fwrappers satisfying TEST."
   (do-fwrappers (f (fdefn-or-lose function-name))
@@ -149,7 +151,7 @@
 	(update-fwrapper f)))))
 
 (defun find-fwrapper (function-name &key (type nil type-p) test)
-  "Find an fwrapper of FUNCTION-NAME.
+  _N"Find an fwrapper of FUNCTION-NAME.
    If TYPE is supplied, find an fwrapper whose type is equal to TYPE.
    If TEST is supplied, find an fwrapper satisfying TEST."
   (do-fwrappers (f (fdefn-or-lose function-name))
@@ -158,7 +160,7 @@
 	(return f)))))
 
 (defmacro define-fwrapper (name lambda-list &body body &environment env)
-  "Like DEFUN, but define a function wrapper.
+  _N"Like DEFUN, but define a function wrapper.
    In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently
    executing fwrapper.  FWRAPPERS:CALL-NEXT-FUNCTION can be used
    in BODY to call the next fwrapper or the primary function.  When
@@ -169,12 +171,12 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun expand-define-fwrapper (name lambda-list body env)
-    "Return the expansion of a DEFINE-FWRAPPER."
+    _N"Return the expansion of a DEFINE-FWRAPPER."
     (multiple-value-bind (required optional restp rest keyp keys allowp
 				   aux morep)
 	(kernel:parse-lambda-list lambda-list)
       (when morep
-	(error "&MORE not supported in fwrapper lambda lists"))
+	(error _"&MORE not supported in fwrapper lambda lists"))
       (multiple-value-bind (body declarations documentation)
 	  (system:parse-body body env t)
 	(multiple-value-bind (lambda-list call-next)
@@ -215,7 +217,7 @@
 		     ,@body))))))))
 
   (defun uses-vars-p (body optionals keys rest env)
-    "First value is true if BODY refers to any of the variables in
+    _N"First value is true if BODY refers to any of the variables in
      OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST
      returns.  Second value is true if BODY refers to REST."
     (collect ((vars))
@@ -249,22 +251,22 @@
 ;;;
 
 (define-fwrapper encapsulation-fwrapper (&rest args)
-  "Fwrapper for old-style encapsulations."
+  _N"Fwrapper for old-style encapsulations."
   (let ((basic-definition (fwrapper-next fwrapper))
 	(argument-list args))
     (declare (special basic-definition argument-list))
     (eval (fwrapper-user-data fwrapper))))
 
 (defun encapsulate (name type body)
-  "This function is deprecated; use fwrappers instead."
+  _N"This function is deprecated; use fwrappers instead."
   (fwrap name #'encapsulation-fwrapper :type type :user-data body))
 
 (defun unencapsulate (name type)
-  "This function is deprecated; use fwrappers instead."
+  _N"This function is deprecated; use fwrappers instead."
   (funwrap name :type type))
 
 (defun encapsulated-p (name type)
-  "This function is deprecated; use fwrappers instead."
+  _N"This function is deprecated; use fwrappers instead."
   (not (null (find-fwrapper name :type type))))
 
 ;;; end of file
diff --git a/code/gc.lisp b/code/gc.lisp
index 410e42a2187abffa5bacf45c0b43ea5a751a47d2..f52a3af7b054921f9b9d8c8b88cf853fe8fa0dc5 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.42 2005/01/31 18:02:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.43 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;; 
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(*before-gc-hooks* *after-gc-hooks* gc gc-on gc-off
 	  *bytes-consed-between-gcs* *gc-verbose* *gc-inhibit-hook*
 	  *gc-notify-before* *gc-notify-after* get-bytes-consed
@@ -103,7 +105,7 @@
 	  ((= start (dynamic-1-space-start))
 	   1)
 	  (t
-	   (error "Oh no.  The current dynamic space is missing!")))))
+	   (error _"Oh no.  The current dynamic space is missing!")))))
 
 
 ;;;; Room.
@@ -112,18 +114,18 @@
   (flet ((megabytes (bytes)
 	   ;; Convert bytes to nearest megabyte
 	   (ceiling bytes (* 1024 1024))))
-    (format t "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
+    (format t _"Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
 	    (dynamic-usage) (megabytes (dynamic-space-size)))
-    (format t "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
+    (format t _"Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
 	    (read-only-space-usage) (megabytes (read-only-space-size)))
-    (format t "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
+    (format t _"Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
 	    (static-space-usage) (megabytes (static-space-size)))
-    (format t "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+    (format t _"Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 	    (control-stack-usage) (megabytes (control-stack-size)))
-    (format t "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+    (format t _"Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 	    (binding-stack-usage) (megabytes (binding-stack-size)))
-    (format t "The current dynamic space is ~D.~%" (current-dynamic-space))
-    (format t "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
+    (format t _"The current dynamic space is ~D.~%" (current-dynamic-space))
+    (format t _"Garbage collection is currently ~:[enabled~;DISABLED~].~%"
 	    *gc-inhibit*)))
 
 (defun room-intermediate-info ()
@@ -141,7 +143,7 @@
 
 
 (defun room (&optional (verbosity :default))
-  "Prints to *STANDARD-OUTPUT* information about the state of internal
+  _N"Prints to *STANDARD-OUTPUT* information about the state of internal
   storage and its management.  The optional argument controls the
   verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of
   information.  If it is NIL, ROOM prints out a minimal amount of
@@ -158,7 +160,7 @@
 	(:default
 	 (room-intermediate-info))
 	(t
-	 (error "No way man!  The optional argument to ROOM must be T, NIL, ~
+	 (error _"No way man!  The optional argument to ROOM must be T, NIL, ~
 		 or :DEFAULT.~%What do you think you are doing?")))
       (room-minimal-info))
   (values))
@@ -183,7 +185,7 @@
   (cond ((null *last-bytes-in-use*)
 	 (pushnew
 	  #'(lambda ()
-	      (print "resetting GC counters")
+	      (print _"resetting GC counters")
 	      (force-output)
 	      (setf *last-bytes-in-use* nil)
 	      (setf *total-bytes-consed* (dfixnum:make-dfixnum)))
@@ -207,7 +209,7 @@
 
 #-(or cgc gencgc)
 (defun get-bytes-consed-dfixnum ()
-  "Returns the number of bytes consed since the first time this function
+  _N"Returns the number of bytes consed since the first time this function
   was called.  The first time it is called, it returns zero."
   (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
   (cond ((null *last-bytes-in-use*)
@@ -221,7 +223,7 @@
   *total-bytes-consed*)
 
 (defun get-bytes-consed ()
-  "Returns the number of bytes consed since the first time this function
+  _N"Returns the number of bytes consed since the first time this function
   was called.  The first time it is called, it returns zero."
   (dfixnum:dfixnum-integer (get-bytes-consed-dfixnum)))
     
@@ -237,14 +239,14 @@
 ;;; will be triggered.
 ;;; 
 (defparameter *bytes-consed-between-gcs* default-bytes-consed-between-gcs
-  "This number specifies the minimum number of bytes of dynamic space
+  _N"This number specifies the minimum number of bytes of dynamic space
    that must be consed before the next gc will occur.")
 ;;;
 (declaim (type index *bytes-consed-between-gcs*))
 
 ;;; Public
 (defvar *gc-run-time* 0
-  "The total CPU time spend doing garbage collection (as reported by
+  _N"The total CPU time spend doing garbage collection (as reported by
    GET-INTERNAL-RUN-TIME.)")
 
 (declaim (type index *gc-run-time*))
@@ -302,11 +304,11 @@
 ;;; after garbage collection occurs.
 ;;;
 (defvar *before-gc-hooks* nil
-  "A list of functions that are called before garbage collection occurs.
+  _N"A list of functions that are called before garbage collection occurs.
   The functions should take no arguments.")
 ;;; 
 (defvar *after-gc-hooks* nil
-  "A list of functions that are called after garbage collection occurs.
+  _N"A list of functions that are called after garbage collection occurs.
   The functions should take no arguments.")
 
 ;;;
@@ -319,7 +321,7 @@
 ;;; Presumably someone will call GC-ON later to collect the garbage.
 ;;;
 (defvar *gc-inhibit-hook* nil
-  "Should be bound to a function or NIL.  If it is a function, this
+  _N"Should be bound to a function or NIL.  If it is a function, this
   function should take one argument, the current amount of dynamic
   usage.  The function should return NIL if garbage collection should
   continue and non-NIL if it should be inhibited.  Use with caution.")
@@ -330,7 +332,7 @@
 ;;; *GC-VERBOSE*
 ;;;
 (defvar *gc-verbose* t
-  "When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and
+  _N"When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and
   *GC-NOTIFY-AFTER* to be called before and after a garbage collection
   occurs respectively.  If :BEEP, causes the default notify functions to beep
   annoyingly.")
@@ -339,26 +341,26 @@
 (defun default-gc-notify-before (bytes-in-use)
   (when (eq *gc-verbose* :beep)
     (system:beep *standard-output*))
-  (format t "~&; [GC threshold exceeded with ~:D bytes in use.  ~
+  (format t _"~&; [GC threshold exceeded with ~:D bytes in use.  ~
              Commencing GC.]~%" bytes-in-use)
   (finish-output))
 ;;;
 (defparameter *gc-notify-before* #'default-gc-notify-before
-  "This function bound to this variable is invoked before GC'ing (unless
+  _N"This function bound to this variable is invoked before GC'ing (unless
   *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in
   bytes).  It should notify the user that the system is going to GC.")
 
 (defun default-gc-notify-after (bytes-retained bytes-freed new-trigger)
-  (format t "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
+  (format t _"~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
 	  bytes-retained bytes-freed)
-  (format t "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
+  (format t _"~&; [GC will next occur when at least ~:D bytes are in use.]~%"
 	  new-trigger)
   (when (eq *gc-verbose* :beep)
     (system:beep *standard-output*))
   (finish-output))
 ;;;
 (defparameter *gc-notify-after* #'default-gc-notify-after
-  "The function bound to this variable is invoked after GC'ing (unless
+  _N"The function bound to this variable is invoked after GC'ing (unless
   *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now
   free, the number of bytes freed by the GC, and the new GC trigger
   threshold.  The function should notify the user that the system has
@@ -379,7 +381,7 @@
   (let ((words (ash (+ (current-dynamic-space-start) bytes) -2)))
     (unless (and (fixnump words) (plusp words))
       (clear-auto-gc-trigger)
-      (warn "Attempt to set GC trigger to something bogus: ~S" bytes))
+      (warn _"Attempt to set GC trigger to something bogus: ~S" bytes))
     (setf rt::*internal-gc-trigger* words)))
 
 #-ibmrt
@@ -409,7 +411,7 @@
 (defmacro carefully-funcall (function &rest args)
   `(handler-case (funcall ,function ,@args)
      (error (cond)
-       (warn "(FUNCALL ~S~{ ~S~}) lost:~%~A" ',function ',args cond)
+       (warn _"(FUNCALL ~S~{ ~S~}) lost:~%~A" ',function ',args cond)
        nil)))
 
 ;;;
@@ -431,7 +433,7 @@
 	;; The noise w/ symbol-value above is to keep the compiler from
 	;; optimizing the test away because of the type declaim for
 	;; *bytes-consed-between-gcs*.
-	(warn "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~
+	(warn _"The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~
 	       integer.  Resetting it to ~D." *bytes-consed-between-gcs*
 	       default-bytes-consed-between-gcs)
 	(setf *bytes-consed-between-gcs* default-bytes-consed-between-gcs))
@@ -462,7 +464,7 @@
 		#+nil
 		(when verbose-p
 		  (format
-		   t "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+		   t _"~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
 		   *last-bytes-in-use*
 		   post-gc-dyn-usage
 		   gen
@@ -507,14 +509,14 @@
 ;;; 
 #-gencgc
 (defun gc (&optional (verbose-p *gc-verbose*))
-  "Initiates a garbage collection.  The optional argument, VERBOSE-P,
+  _N"Initiates a garbage collection.  The optional argument, VERBOSE-P,
   which defaults to the value of the variable *GC-VERBOSE* controls
   whether or not GC statistics are printed."
   (sub-gc :verbose-p verbose-p :force-p t))
 ;;;
 #+gencgc
 (defun gc (&key (verbose *gc-verbose*) (gen 0) (full nil))
-  "Initiates a garbage collection.  The keyword :VERBOSE, which
+  _N"Initiates a garbage collection.  The keyword :VERBOSE, which
    defaults to the value of the variable *GC-VERBOSE* controls whether or
    not GC statistics are printed. The keyword :GEN defaults to 0, and
    controls the number of generations to garbage collect."
@@ -524,7 +526,7 @@
 ;;;; Auxiliary Functions.
 
 (defun bytes-consed-between-gcs ()
-  "Return the amount of memory that will be allocated before the next garbage
+  _N"Return the amount of memory that will be allocated before the next garbage
    collection is initiated.  This can be set with SETF."
   *bytes-consed-between-gcs*)
 ;;;
@@ -546,14 +548,14 @@
 
 
 (defun gc-on ()
-  "Enables the garbage collector."
+  _N"Enables the garbage collector."
   (setq *gc-inhibit* nil)
   (when *need-to-collect-garbage*
     (sub-gc))
   nil)
 
 (defun gc-off ()
-  "Disables the garbage collector."
+  _N"Disables the garbage collector."
   (setq *gc-inhibit* t)
   nil)
 
@@ -582,7 +584,7 @@
     (min-av-mem-age c-call:double)))
 
 (defun gencgc-stats (generation)
-  "Return some GC statistics for the specified GENERATION.  The
+  _N"Return some GC statistics for the specified GENERATION.  The
   statistics are the number of bytes allocated in this generation; the
   gc-trigger; the number of bytes consed between GCs; the number of
   GCs that have occurred; the trigger age; the cumulative number of
diff --git a/code/gengc.lisp b/code/gengc.lisp
index 88a0232000f8b7788912aae5c60ee34b3697d911..bde12b75d013b6bbebde7cb91f649d464380cee0 100644
--- a/code/gengc.lisp
+++ b/code/gengc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gengc.lisp,v 1.5 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gengc.lisp,v 1.6 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;; 
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(*before-gc-hooks* *after-gc-hooks* gc purify
 	  *gc-verbose* *gc-notify-before* *gc-notify-after*))
 
diff --git a/code/globals.lisp b/code/globals.lisp
index 8df897c19509142da7345e96519fea26c5e838ae..29e55d4240564cd580d276a92ff0aa9cec8a6ff5 100644
--- a/code/globals.lisp
+++ b/code/globals.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.19 2006/01/17 22:32:08 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.20 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 
 (declaim (special *keyword-package* *lisp-package* *package* *query-io*
 		  *terminal-io* *error-output* *trace-output* *debug-io*
diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index c95c20f4f5018151217f404f5c81aee254814688..01be25c636eb9adcfa27d7061b6c196743533464 100644
--- a/code/hash-new.lisp
+++ b/code/hash-new.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.51 2009/08/09 03:54:42 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.52 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;;
 (in-package :lisp)
 
+(intl:textdomain "cmucl")
+
 (export '(hash-table hash-table-p make-hash-table
 	  gethash remhash maphash clrhash
 	  hash-table-count with-hash-table-iterator
@@ -39,7 +41,7 @@
 	    (:constructor %make-hash-table)
 	    (:print-function %print-hash-table)
 	    (:make-load-form-fun make-hash-table-load-form))
-  "Structure used to implement hash tables."
+  _N"Structure used to implement hash tables."
   ;;
   ;; The type of hash table this is.  Only used for printing and as part of
   ;; the exported interface.
@@ -171,7 +173,7 @@
 
 (defun almost-primify (num)
   (declare (type index num))
-  "Almost-Primify returns an almost prime number greater than or equal
+  _N"Almost-Primify returns an almost prime number greater than or equal
    to NUM."
   (if (= (rem num 2) 0)
       (setq num (+ 1 num)))
@@ -192,7 +194,7 @@
 ;;; DEFINE-HASH-TABLE-TEST -- Public.
 ;;;
 (defun define-hash-table-test (name test-fun hash-fun)
-  "Define a new kind of hash table test."
+  _N"Define a new kind of hash table test."
   (declare (type symbol name)
 	   (type function test-fun hash-fun))
   (setf *hash-table-tests*
@@ -207,7 +209,7 @@
 ;;; 
 (defun make-hash-table (&key (test 'eql) (size 65) (rehash-size 1.5)
 			     (rehash-threshold 1.0) (weak-p nil))
-  "Creates and returns a new hash table.  The keywords are as follows:
+  _N"Creates and returns a new hash table.  The keywords are as follows:
      :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,
        and EQUALP are currently supported.
      :SIZE -- A hint as to how many elements will be put in this hash
@@ -252,7 +254,7 @@
 	      (t
 	       (dolist (info *hash-table-tests*
 			     (error 'simple-program-error
-                                    :format-control "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+                                    :format-control _"Unknown :TEST for MAKE-HASH-TABLE: ~S"
 				    :format-arguments (list test)))
 		 (destructuring-bind
 		  (test-name test-fun hash-fun)
@@ -270,7 +272,7 @@
 	(declare (type index size+1 scaled-size length))
 	#-gencgc
 	(when weak-p
-	  (format *debug-io* ";; Creating unsupported weak-p hash table~%"))
+	  (format *debug-io* _";; Creating unsupported weak-p hash table~%"))
 	#+gencgc
 	(when (and (member weak-p '(t :key :key-and-value :key-or-value))
 		   (not (member test '(eq eql))))
@@ -280,7 +282,7 @@
 	  ;;
 	  ;; XXX: Either fix GC to work with other tests, or change
 	  ;; this warning into an error.
-	  (error "Cannot make a weak ~A hashtable with test: ~S" weak-p test))
+	  (error _"Cannot make a weak ~A hashtable with test: ~S" weak-p test))
 	(let* ((index-vector
 		(make-array length :element-type '(unsigned-byte 32)
 			    :initial-element 0))
@@ -318,29 +320,29 @@
 
 (declaim (inline hash-table-count))
 (defun hash-table-count (hash-table)
-  "Returns the number of entries in the given HASH-TABLE."
+  _N"Returns the number of entries in the given HASH-TABLE."
   (declare (type hash-table hash-table)
 	   (values index))
   (hash-table-number-entries hash-table))
 
 (setf (documentation 'hash-table-rehash-size 'function)
-      "Return the rehash-size HASH-TABLE was created with.")
+      _N"Return the rehash-size HASH-TABLE was created with.")
 
 (setf (documentation 'hash-table-rehash-threshold 'function)
-      "Return the rehash-threshold HASH-TABLE was created with.")
+      _N"Return the rehash-threshold HASH-TABLE was created with.")
 
 (declaim (inline hash-table-size))
 (defun hash-table-size (hash-table)
-  "Return a size that can be used with MAKE-HASH-TABLE to create a hash
+  _N"Return a size that can be used with MAKE-HASH-TABLE to create a hash
    table that can hold however many entries HASH-TABLE can hold without
    having to be grown."
   (hash-table-rehash-trigger hash-table))
 
 (setf (documentation 'hash-table-test 'function)
-      "Return the test HASH-TABLE was created with.")
+      _N"Return the test HASH-TABLE was created with.")
 
 (setf (documentation 'hash-table-weak-p 'function)
-      "Return T if HASH-TABLE will not keep entries for keys that would
+      _N"Return T if HASH-TABLE will not keep entries for keys that would
    otherwise be garbage, and NIL if it will.")
 
 
@@ -528,7 +530,7 @@
 ;;; GETHASH -- Public.
 ;;; 
 (defun gethash (key hash-table &optional default)
-  "Finds the entry in HASH-TABLE whose key is KEY and returns the associated
+  _N"Finds the entry in HASH-TABLE whose key is KEY and returns the associated
    value and T as multiple values, or returns DEFAULT and NIL if there is no
    such entry.  Entries can be added using SETF."
   (declare (type hash-table hash-table)
@@ -655,7 +657,7 @@
 ;;; REMHASH -- public.
 ;;; 
 (defun remhash (key hash-table)
-  "Remove the entry in HASH-TABLE associated with KEY.  Returns T if there
+  _N"Remove the entry in HASH-TABLE associated with KEY.  Returns T if there
    was such an entry, and NIL if not."
   (declare (type hash-table hash-table)
 	   (values (member t nil)))
@@ -750,7 +752,7 @@
 ;;; CLRHASH -- public.
 ;;; 
 (defun clrhash (hash-table)
-  "This removes all the entries from HASH-TABLE and returns the hash table
+  _N"This removes all the entries from HASH-TABLE and returns the hash table
    itself."
   (let* ((kv-vector (hash-table-table hash-table))
 	 (kv-length (length kv-vector))
@@ -788,7 +790,7 @@
 ;;; CLOBBER-HASH -- public.
 ;;; 
 (defun clobber-hash (hash-table)
-  "This removes all the entries from HASH-TABLE and returns the hash table
+  _N"This removes all the entries from HASH-TABLE and returns the hash table
    itself, shrinking the size to free memory."
   (let* ((old-kv-vector (hash-table-table hash-table))
 	 (old-index-vector (hash-table-index-vector hash-table))
@@ -836,7 +838,7 @@
 
 (declaim (maybe-inline maphash))
 (defun maphash (map-function hash-table)
-  "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value
+  _N"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value
    of the entry; returns NIL."
   (declare (type (or function symbol) map-function)
 	   (type hash-table hash-table))
@@ -860,7 +862,7 @@
 	  (funcall fun key value))))))
 
 (defmacro with-hash-table-iterator ((function hash-table) &body body)
-  "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)
+  _N"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)
    provides a method of manually looping over the elements of a hash-table.
    FUNCTION is bound to a generator-macro that, within the scope of the
    invocation, returns one or three values. The first value tells whether
@@ -970,7 +972,7 @@
 	((funcallable-instance-p instance)
 	 (%funcallable-instance-info instance 2))
 	(t
-	 (error "What kind of instance is this?"))))
+	 (error _"What kind of instance is this?"))))
 
 ;; End pcl/low.lisp
 
@@ -1059,7 +1061,7 @@
     (t 42)))
 
 (defun sxhash (s-expr)
-  "Computes a hash code for S-EXPR and returns it as an integer."
+  _N"Computes a hash code for S-EXPR and returns it as an integer."
   (internal-sxhash s-expr 0))
 
 
diff --git a/code/hash.lisp b/code/hash.lisp
index a3e28e568f04b2556e396861b7b7a0dbf9b2e7a3..9167712f306844d3acc0c0994fb309a6ee9b420d 100644
--- a/code/hash.lisp
+++ b/code/hash.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.44 2009/06/11 16:03:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.45 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package :lisp)
 
+(intl:textdomain "cmucl")
+
 (export '(hash-table hash-table-p make-hash-table
 	  gethash remhash maphash clrhash
 	  hash-table-count with-hash-table-iterator
diff --git a/code/hppa-vm.lisp b/code/hppa-vm.lisp
index 967cd163368fd07c9a6346719cc99371e3345e17..df900b14608f44f5773644208f57471279eecef6 100644
--- a/code/hppa-vm.lisp
+++ b/code/hppa-vm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hppa-vm.lisp,v 1.7 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hppa-vm.lisp,v 1.8 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 (use-package "C-CALL")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
diff --git a/code/hpux-os.lisp b/code/hpux-os.lisp
index cbdd1d237167ec79e9f471713ae21a7721df0a6f..06ff99c280681c2f3847b68968175a0399a13b3d 100644
--- a/code/hpux-os.lisp
+++ b/code/hpux-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hpux-os.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hpux-os.lisp,v 1.3 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,8 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(get-system-info get-page-size os-init))
 
 (pushnew :hpux *features*)
diff --git a/code/internet.lisp b/code/internet.lisp
index 3d9f8e9708bae32d069f92578d527673b897e768..93f630571c3f71091bb43680ec186dbaec84f7ed 100644
--- a/code/internet.lisp
+++ b/code/internet.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.57 2009/06/11 16:03:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.58 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,8 @@
 (use-package "ALIEN")
 (use-package "C-CALL")
 
+(intl:textdomain "cmucl")
+
 (export '(htonl ntohl htons ntohs lookup-host-entry host-entry
 	  host-entry-name host-entry-aliases host-entry-addr-list
 	  host-entry-addr ip-string bind-inet-socket
@@ -84,15 +86,15 @@
 (defvar *internet-protocols*
   '((:stream    6 #.sock-stream)
     (:datagram 17 #.sock-dgram))
-  "AList of socket kinds and protocol values.")
+  _N"AList of socket kinds and protocol values.")
 
 (defun internet-protocol (kind)
   (when (eq kind :data-gram) ; Sep-2000. Remove someday.
-    (warn "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM")
+    (warn _"Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM")
     (setq kind :datagram))
   (let ((entry (assoc kind *internet-protocols*)))
     (unless entry
-      (error "Invalid kind (~S) for internet domain sockets." kind))
+      (error _"Invalid kind (~S) for internet domain sockets." kind))
     (values (cadr entry)
 	    (caddr entry))))
 
@@ -205,7 +207,7 @@ struct in_addr {
 (def-alien-routine ("os_get_h_errno" get-h-errno) int)
 
 (defun lookup-host-entry (host)
-  "Return a host-entry for the given host. The host may be an address
+  _N"Return a host-entry for the given host. The host may be an address
   string or an IP address in host order."
   (declare (type (or host-entry string (unsigned-byte 32)) host)
 	   (optimize (inhibit-warnings 3)))
@@ -265,7 +267,7 @@ struct in_addr {
     (let ((socket (unix:unix-socket af-unix type 0)))
       (when (minusp socket)
 	(error 'socket-error
-	       :format-control "Error creating socket: ~A"
+	       :format-control _"Error creating socket: ~A"
 	       :format-arguments (list (unix:get-unix-error-msg))
 	       :errno (unix:unix-errno)))
       socket)))
@@ -294,7 +296,7 @@ struct in_addr {
 				       (alien-size unix-sockaddr :bytes)))
 	(unix:unix-close socket)
 	(error 'socket-error
-	       :format-control "Error connecting socket to [~A]: ~A"
+	       :format-control _"Error connecting socket to [~A]: ~A"
 	       :format-arguments (list path (unix:get-unix-error-msg))
 	       :errno (unix:unix-errno)))
       socket)))
@@ -324,13 +326,13 @@ struct in_addr {
 				    (+ (alien-size inet-sockaddr :bytes)
 				       (length path))))
 	(unix:unix-close socket)
-	(error "Error binding socket to path ~a: ~a"
+	(error _"Error binding socket to path ~a: ~a"
 	       path
 	       (unix:get-unix-error-msg))))
     (when (eq kind :stream)
       (when (minusp (unix:unix-listen socket backlog))
 	(unix:unix-close socket)
-	(error "Error listening to socket: ~A" (unix:get-unix-error-msg))))
+	(error _"Error listening to socket: ~A" (unix:get-unix-error-msg))))
     socket))
 
 (defun accept-unix-connection (unconnected)
@@ -341,14 +343,14 @@ struct in_addr {
 				       (alien-sap sockaddr)
 				       (alien-size unix-sockaddr :bytes))))
       (when (minusp connected)
-	(error "Error accepting a connection: ~A" (unix:get-unix-error-msg)))
+	(error _"Error accepting a connection: ~A" (unix:get-unix-error-msg)))
       (values connected (slot sockaddr 'path)))))
 
 (defun bind-inet-socket (socket host port)
-  "bind Socket to (local) Host and Port"
+  _N"bind Socket to (local) Host and Port"
   (let ((addr (if (stringp host)
 		  (host-entry-addr (or (lookup-host-entry host)
-				       (error "Unknown host: ~S." host)))
+				       (error _"Unknown host: ~S." host)))
 		  host)))
     (with-alien ((sockaddr inet-sockaddr))
       (setf (slot sockaddr 'family) af-inet)
@@ -360,7 +362,7 @@ struct in_addr {
 	(let ((errno (unix:unix-errno)))
 	  (unix:unix-close socket)
 	  (error 'socket-error
-		 :format-control "Error binding socket to port ~A: ~A"
+		 :format-control _"Error binding socket to port ~A: ~A"
 		 :format-arguments (list port
 					 (unix:get-unix-error-msg))
 		 :errno errno))))))
@@ -378,10 +380,10 @@ struct in_addr {
 
 (defun connect-to-inet-socket (host port &optional (kind :stream)
 			       &key local-host local-port)
-  "The host may be an address string or an IP address in host order."
+  _N"The host may be an address string or an IP address in host order."
   (let* ((addr (if (stringp host)
 		   (host-entry-addr (or (lookup-host-entry host)
-					(error "Unknown host: ~S." host)))
+					(error _"Unknown host: ~S." host)))
 		   host))
 	 (socket (create-inet-socket kind)))
     ;; bind to local-host/local-port if given
@@ -399,7 +401,7 @@ struct in_addr {
               (errmsg (unix:get-unix-error-msg)))
           (unix:unix-close socket)
           (error 'socket-error
-                 :format-control "Error connecting socket to [~A:~A]: ~A"
+                 :format-control _"Error connecting socket to [~A:~A]: ~A"
                  :format-arguments (list (if (stringp host)
                                              host
 					     (ip-string addr))
@@ -440,10 +442,10 @@ struct in_addr {
 ;; cause errno set to the real reason for the failure.
 
 (defun connect-to-inet-socket/non-blocking (host port &optional (kind :stream))
-   "The host may be an address string or an IP address in host order."
+  _N"The host may be an address string or an IP address in host order."
    (let ((addr (if (stringp host)
                  (host-entry-addr (or (lookup-host-entry host)
-                                      (error "Unknown host: ~S." host)))
+                                      (error _"Unknown host: ~S." host)))
                  host))
          (socket (create-inet-socket kind)))
      (labels ((set-blocking (socket)
@@ -463,7 +465,7 @@ struct in_addr {
                           (ldb (byte 8 24) naddr))))
               (connect-error (addr reason errno)
                 (error 'socket-error
-                       :format-control "Error connecting socket to [~A:~A]: ~A"
+                       :format-control _"Error connecting socket to [~A:~A]: ~A"
                        :format-arguments (list addr port reason)
                        :errno errno)))
        (set-blocking socket)
@@ -509,7 +511,7 @@ struct in_addr {
 (defconstant so-reuseaddr #+linux 2 #+(or solaris bsd hpux irix) 4)
 
 (defun get-socket-option (socket level optname)
-  "Get an integer value socket option."
+  _N"Get an integer value socket option."
   (declare (type unix:unix-fd socket)
 	   (type (signed-byte 32) level optname))
   (with-alien ((optval signed))
@@ -519,7 +521,7 @@ struct in_addr {
 	(values optval 0))))
 
 (defun set-socket-option (socket level optname optval)
-  "Set an integer value socket option."
+  _N"Set an integer value socket option."
   (declare (type unix:unix-fd socket)
 	   (type (signed-byte 32) level optname optval))
   (with-alien ((optval signed optval))
@@ -538,7 +540,7 @@ struct in_addr {
         (addr (if (stringp host)
 		  (host-entry-addr (or (lookup-host-entry host)
 				       (error 'socket-error
-					      :format-control "Unknown host: ~S."
+					      :format-control _"Unknown host: ~S."
 					      :format-arguments (list host)
                                               :errno (unix:unix-errno))))
 		  host)))
@@ -546,7 +548,7 @@ struct in_addr {
       (multiple-value-bind (optval errno)
 	  (set-socket-option socket sol-socket so-reuseaddr 1)
 	(or optval (error 'socket-error
-			  :format-control "Error ~S setting socket option on socket ~D."
+			  :format-control _"Error ~S setting socket option on socket ~D."
 			  :format-arguments (list (unix:get-unix-error-msg errno)
 						  socket)
 			  :errno errno))))
@@ -560,7 +562,7 @@ struct in_addr {
 	(let ((errno (unix:unix-errno)))
 	  (unix:unix-close socket)
 	  (error 'socket-error
-		 :format-control "Error binding socket to port ~A: ~A"
+		 :format-control _"Error binding socket to port ~A: ~A"
 		 :format-arguments (list port
 					 (unix:get-unix-error-msg))
 		 :errno errno))))
@@ -569,7 +571,7 @@ struct in_addr {
 	(let ((errno (unix:unix-errno)))
 	  (unix:unix-close socket)
 	  (error 'socket-error
-		 :format-control "Error listening to socket: ~A"
+		 :format-control _"Error listening to socket: ~A"
 		 :format-arguments (list (unix:get-unix-error-msg))
 		 :errno errno))))
     socket))
@@ -584,7 +586,7 @@ struct in_addr {
       (let ((errno (unix:unix-errno)))
 	(when (minusp connected)
 	  (error 'socket-error
-		 :format-control "Error accepting a connection: ~A"
+		 :format-control _"Error accepting a connection: ~A"
 		 :format-arguments (list (unix:get-unix-error-msg))
 		 :errno errno))
 	(values connected (ntohl (slot sockaddr 'addr)))))))
@@ -594,19 +596,19 @@ struct in_addr {
 		       (unix:unix-close socket)
     (unless ok
       (error 'socket-error
-	     :format-control "Error closing socket: ~A"
+	     :format-control _"Error closing socket: ~A"
 	     :format-arguments (list (unix:get-unix-error-msg err))
 	     :errno (unix:unix-errno))))
   (undefined-value))
 
 (defun get-peer-host-and-port (fd)
-  "Return the peer host address and port in host order."
+  _N"Return the peer host address and port in host order."
   (with-alien ((sockaddr inet-sockaddr)
 	       (length (alien:array unsigned 1)))
     (setf (deref length 0) (alien-size inet-sockaddr :bytes))
     (when (minusp (unix:unix-getpeername fd (alien-sap sockaddr)
 					 (alien-sap length)))
-      (error "Error ~s getting peer host and port on FD ~d."
+      (error _"Error ~s getting peer host and port on FD ~d."
 	     (unix:get-unix-error-msg (unix:unix-errno)) fd))
     (values (ext:ntohl (slot sockaddr 'addr))
 	    (ext:ntohs (slot sockaddr 'port)))))
@@ -617,7 +619,7 @@ struct in_addr {
     (setf (deref length 0) (alien-size inet-sockaddr :bytes))
     (when (minusp (unix:unix-getsockname fd (alien-sap sockaddr)
 					 (alien-sap length)))
-      (error "Error ~s getting socket host and port on FD ~d."
+      (error _"Error ~s getting socket host and port on FD ~d."
 	     (unix:get-unix-error-msg (unix:unix-errno)) fd))
     (values (ext:ntohl (slot sockaddr 'addr))
 	    (ext:ntohs (slot sockaddr 'port)))))
@@ -644,8 +646,8 @@ struct in_addr {
     (dolist (handlers *oob-handlers*)
       (declare (list handlers))
       (cond ((minusp (unix:unix-recv (car handlers) buffer 1 msg-oob))
-	     (cerror "Ignore it"
-		     "Error recving oob data on ~A: ~A"
+	     (cerror _"Ignore it"
+		     _"Error recving oob data on ~A: ~A"
 		     (car handlers)
 		     (unix:get-unix-error-msg)))
 	    (t
@@ -659,13 +661,13 @@ struct in_addr {
 		   (funcall (cdr handler))
 		   (setf handled t)))
 	       (unless handled
-		 (cerror "Ignore it"
-			 "No oob handler defined for ~S on ~A"
+		 (cerror _"Ignore it"
+			 _"No oob handler defined for ~S on ~A"
 			 char
 			 (car handlers)))))))
     (unless handled
-      (cerror "Ignore it"
-	      "Got a SIGURG, but couldn't find any out-of-band data.")))
+      (cerror _"Ignore it"
+	      _"Got a SIGURG, but couldn't find any out-of-band data.")))
   (undefined-value))
 
 ;;; ADD-OOB-HANDLER -- public
@@ -677,7 +679,7 @@ struct in_addr {
 ;;; will be delivered.)
 
 (defun add-oob-handler (fd char handler)
-  "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+  _N"Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
   (declare (integer fd)
 	   (base-char char))
   (let ((handlers (assoc fd *oob-handlers*)))
@@ -704,7 +706,7 @@ struct in_addr {
 ;;; descriptor.
 
 (defun remove-oob-handler (fd char)
-  "Remove any handlers for CHAR on FD."
+  _N"Remove any handlers for CHAR on FD."
   (declare (integer fd)
 	   (base-char char))
   (let ((handlers (assoc fd *oob-handlers*)))
@@ -727,7 +729,7 @@ struct in_addr {
 ;;;   Delete the entry for the given file descriptor.
 
 (defun remove-all-oob-handlers (fd)
-  "Remove all handlers for FD."
+  _N"Remove all handlers for FD."
   (declare (integer fd))
   (setf *oob-handlers*
 	(delete fd *oob-handlers*
@@ -745,13 +747,13 @@ struct in_addr {
   (let ((buffer (make-string 1 :initial-element char)))
     (declare (simple-string buffer))
     (when (minusp (unix:unix-send fd buffer 1 msg-oob))
-      (error "Error sending ~S OOB to across ~A: ~A"
+      (error _"Error sending ~S OOB to across ~A: ~A"
 	     char
 	     fd
 	     (unix:get-unix-error-msg)))))
 
 (defun inet-recvfrom (fd buffer size &key (flags 0))
-  "A packaging of the unix recvfrom call.  Returns three values:
+  _N"A packaging of the unix recvfrom call.  Returns three values:
 bytecount, source address as integer, and source port.  bytecount
 can of course be negative, to indicate faults."
   #+mp (mp:process-wait-until-fd-usable fd :input)
@@ -762,7 +764,7 @@ can of course be negative, to indicate faults."
       (values bytecount (ntohl (slot sockaddr 'addr)) (ntohs (slot sockaddr 'port))))))
 
 (defun inet-sendto (fd buffer size addr port &key (flags 0))
-  "A packaging of the unix sendto call.  Return value like sendto"
+  _N"A packaging of the unix sendto call.  Return value like sendto"
     (with-alien ((sockaddr inet-sockaddr))
       (setf (slot sockaddr 'family) af-inet)
       (setf (slot sockaddr 'port) (htons port))
@@ -779,10 +781,10 @@ can of course be negative, to indicate faults."
 (defconstant shut-rdwr 2)
 
 (defun inet-shutdown (fd level)
-  "A packaging of the unix shutdown call.  An error is signaled if shutdown fails." 
+  _N"A packaging of the unix shutdown call.  An error is signaled if shutdown fails." 
   (when (minusp (unix:unix-shutdown fd level))
     (error 'socket-error
-	   :format-control "Error on shutdown of socket: ~A"
+	   :format-control _"Error on shutdown of socket: ~A"
 	   :format-arguments (list (unix:get-unix-error-msg))
 	   :errno (unix:unix-errno))))
 
@@ -792,12 +794,12 @@ can of course be negative, to indicate faults."
 ;;;   Returns a stream connected to the specified Port on the given Host.
 (defun open-network-stream (host port &key (buffering :line) timeout
 					   (external-format '(:latin-1 :crlf)))
-  "Return a network stream.  HOST may be an address string or an integer
+  _N"Return a network stream.  HOST may be an address string or an integer
 IP address."
   (let (hostent hostaddr)
     (cond ((stringp host)
            (setf hostent (or (lookup-host-entry host)
-                             (error "Unknown host: ~S." host)))
+                             (error _"Unknown host: ~S." host)))
            (setf host (host-entry-addr hostent))
            (setf hostaddr (format nil "~A:~D"
                                   (host-entry-name hostent)
@@ -809,7 +811,7 @@ IP address."
                                   (ldb (byte 8 8) host)
                                   (ldb (byte 8 0) host)
                                   port)))
-          (t (error "Unknown host format: ~S." host)))
+          (t (error _"Unknown host format: ~S." host)))
    (sys:make-fd-stream
     (let ((socket (create-inet-socket :stream)))
       (alien:with-alien ((sockaddr inet-sockaddr))
@@ -821,12 +823,12 @@ IP address."
 					 (alien:alien-size inet-sockaddr
 							   :bytes)))
 	  (unix:unix-close socket)
-	  (error "Error connecting socket to [~A]: ~A"
+	  (error _"Error connecting socket to [~A]: ~A"
 		 hostaddr
 		 (unix:get-unix-error-msg)))
 	socket))
     :input t :output t :buffering buffering :timeout timeout
-    :name (format nil "network connection to ~A" hostaddr)
+    :name (format nil _"network connection to ~A" hostaddr)
     :external-format external-format
     :auto-close t)))
 
@@ -844,12 +846,12 @@ IP address."
                                       (alien-sap sockaddr)
                                       (alien-size inet-sockaddr :bytes))))
         (when (minusp socket)
-          (error "Error accepting a connection: ~A" (unix:get-unix-error-msg)))
+          (error _"Error accepting a connection: ~A" (unix:get-unix-error-msg)))
        (sys:make-fd-stream
 	socket :input t :output t :buffering buffering :timeout timeout
 	:name (let ((host (ntohl (slot sockaddr 'addr)))
 		    (port (ntohs (slot sockaddr 'port))))
-		(format nil "network connection from ~D.~D.~D.~D:~D"
+		(format nil _"network connection from ~D.~D.~D.~D:~D"
 			(ldb (byte 8 24) host)
 			(ldb (byte 8 16) host)
 			(ldb (byte 8 8) host)
diff --git a/code/interr.lisp b/code/interr.lisp
index 02a014abdfc6c11090017f76ea3a84dc7debf145..67b9e0f0dfacba5bd90b9fa2ac6dc6021443fadf 100644
--- a/code/interr.lisp
+++ b/code/interr.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.47 2007/08/17 14:02:12 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.48 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 
 (in-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (export '(infinite-error-protect find-caller-name *maximum-error-depth*
 	  #+stack-checking red-zone-hit #+stack-checking yellow-zone-hit
           #+heap-overflow-check dynamic-space-overflow-error-hit
@@ -48,7 +50,7 @@
 	 (macrolet ((set-value (var value)
 		      (let ((pos (position var ',required)))
 			(unless pos
-			  (error "~S isn't one of the required args."
+			  (error _"~S isn't one of the required args."
 				 var))
 			`(let ((,',temp ,value))
 			   (di::sub-set-debug-var-slot
@@ -80,7 +82,7 @@
 
 
 (deferr unknown-error (&rest args)
-  (error "Unknown error:~{ ~S~})" args))
+  (error _"Unknown error:~{ ~S~})" args))
 
 (deferr object-not-function-error (object)
   (error 'type-error
@@ -244,7 +246,7 @@
 (deferr invalid-argument-count-error (nargs)
   (error 'simple-program-error
 	 :function-name name
-	 :format-control "Invalid number of arguments: ~S"
+	 :format-control _"Invalid number of arguments: ~S"
 	 :format-arguments (list nargs)))
 
 (deferr bogus-argument-to-values-list-error (list)
@@ -252,7 +254,7 @@
 	 :function-name name
 	 :datum list
 	 :expected-type 'list
-	 :format-control "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
+	 :format-control _"Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
 	 :format-arguments (list list)))
 
 (deferr unbound-symbol-error (symbol)
@@ -274,19 +276,19 @@
   (error 'simple-control-error
 	 :function-name name
 	 :format-control
-	 "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"))
+	 _"Attempt to RETURN-FROM a block or GO to a tag that no longer exists"))
 
 (deferr unseen-throw-tag-error (tag)
   (error 'simple-control-error
 	 :function-name name
-	 :format-control "Attempt to THROW to a tag that does not exist: ~S"
+	 :format-control _"Attempt to THROW to a tag that does not exist: ~S"
 	 :format-arguments (list tag)))
 
 (deferr nil-function-returned-error (function)
   (error 'simple-control-error
 	 :function-name name
 	 :format-control
-	 "Function with declared result type NIL returned:~%  ~S"
+	 _"Function with declared result type NIL returned:~%  ~S"
 	 :format-arguments (list function)))
 
 (deferr division-by-zero-error (this that)
@@ -313,12 +315,12 @@
 (deferr odd-keyword-arguments-error ()
   (error 'simple-program-error
 	 :function-name name
-	 :format-control "Odd number of keyword arguments."))
+	 :format-control _"Odd number of keyword arguments."))
 
 (deferr unknown-keyword-argument-error (key)
   (error 'simple-program-error
 	 :function-name name
-	 :format-control "Unknown keyword: ~S"
+	 :format-control _"Unknown keyword: ~S"
 	 :format-arguments (list key)))
 
 (deferr invalid-array-index-error (array bound index)
@@ -328,11 +330,11 @@
 	 :expected-type `(integer 0 (,bound))
 	 :format-control
 	 (cond ((zerop bound)
-		"Invalid array index, ~D for ~S.  Array has no elements.")
+		_"Invalid array index, ~D for ~S.  Array has no elements.")
 	       ((minusp index)
-		"Invalid array index, ~D for ~S.  Should have greater than or equal to 0.")
+		_"Invalid array index, ~D for ~S.  Should have greater than or equal to 0.")
 	       (t
-		"Invalid array index, ~D for ~S.  Should have been less than ~D"))
+		_"Invalid array index, ~D for ~S.  Should have been less than ~D"))
 	 :format-arguments (list index array bound)))
 
 (deferr object-not-simple-array-error (object)
@@ -506,7 +508,7 @@
 (deferr undefined-foreign-symbol-error (symbol)
   (error 'simple-program-error
          :function-name name
-	 :format-control "Undefined foreign symbol: ~S"
+	 :format-control _"Undefined foreign symbol: ~S"
 	 :format-arguments (list symbol)))
 
 
@@ -518,17 +520,17 @@
 	    (numberp *current-error-depth*))
        (let ((*current-error-depth* (1+ *current-error-depth*)))
 	 (if (> *current-error-depth* *maximum-error-depth*)
-	     (error-error "Help! " *current-error-depth* " nested errors.  "
-			  "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
+	     (error-error _"Help! " *current-error-depth* _" nested errors.  "
+			  _"KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
 	     (progn ,@forms)))
        (%primitive halt)))
 
 ;;; Track the depth of recursive errors.
 ;;;
 (defvar *maximum-error-depth* 10
-  "The maximum number of nested errors allowed.  Internal errors are
+  _N"The maximum number of nested errors allowed.  Internal errors are
    double-counted.")
-(defvar *current-error-depth* 0 "The current number of nested errors.")
+(defvar *current-error-depth* 0 _N"The current number of nested errors.")
 
 ;;; These specials are used by ERROR-ERROR to track the success of recovery
 ;;; attempts.
@@ -632,7 +634,7 @@
 		  (error 'simple-error
 			 :function-name name
 			 :format-control
-			 "Unknown internal error, ~D?  args=~S"
+			 _"Unknown internal error, ~D?  args=~S"
 			 :format-arguments
 			 (list error-number
 			       (mapcar #'(lambda (sc-offset)
@@ -643,7 +645,7 @@
 		  (error 'simple-error
 			 :function-name name
 			 :format-control
-			 "Internal error ~D: ~A.  args=~S"
+			 _"Internal error ~D: ~A.  args=~S"
 			 :format-arguments
 			 (list error-number
 			       handler
@@ -664,7 +666,7 @@
 (defun yellow-zone-hit ()
   (let ((debug:*stack-top-hint* nil))
     (format *error-output*
-	    "~2&~@<A control stack overflow has occurred: ~
+	    _"~2&~@<A control stack overflow has occurred: ~
             the program has entered the yellow control stack guard zone.  ~
             Please note that you will be returned to the Top-Level if you ~
             enter the red control stack guard zone while debugging.~@:>~2%")
@@ -682,7 +684,7 @@
 #+stack-checking
 (defun red-zone-hit ()
   (format *error-output*
-	  "~2&~@<Fatal control stack overflow.  You have entered~%~
+	  _"~2&~@<Fatal control stack overflow.  You have entered~%~
            the red control stack guard zone while debugging.~%~
            Returning to Top-Level.~@:>~2%")
   (throw 'lisp::top-level-catcher nil))
@@ -693,7 +695,7 @@
     ;; Don't reserve any more pages
     (setf lisp::reserved-heap-pages 0)
     (format *error-output*
-	    "~2&~@<Imminent dynamic space overflow has occurred:~%~
+	    _"~2&~@<Imminent dynamic space overflow has occurred:~%~
             Only a small amount of dynamic space is available now.~%~
             Please note that you will be returned to the Top-Level without~%~
             warning if you run out of space while debugging.~@:>~%")
diff --git a/code/intl-tramp.lisp b/code/intl-tramp.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..5c3401991c4571d6a0e5f46a41c95bf48e45215c
--- /dev/null
+++ b/code/intl-tramp.lisp
@@ -0,0 +1,20 @@
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;;
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/intl-tramp.lisp,v 1.2 2010/03/19 15:18:59 rtoy Rel $")
+
+;;;
+;;; **********************************************************************
+;;;
+;;; This is a stub for building CMUCL. We need FIND-DOMAIN to be
+;;; defined during worldbuild.  The real version will get loaded in
+;;; intl.lisp during worldload.
+
+(in-package "INTL")
+
+(defun find-domain (domain locale &optional (locale-dir *locale-directories*))
+  (declare (ignore domain locale locale-dir))
+  nil)
diff --git a/code/intl.lisp b/code/intl.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..b899cec5e32f83b8b18a50a782275c80a175e7f8
--- /dev/null
+++ b/code/intl.lisp
@@ -0,0 +1,815 @@
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
+
+;;; $Revision: 1.2 $
+;;; Copyright 1999-2010 Paul Foley (mycroft@actrix.gen.nz)
+;;;
+;;; Permission is hereby granted, free of charge, to any person obtaining
+;;; a copy of this Software to deal in the Software without restriction,
+;;; including without limitation the rights to use, copy, modify, merge,
+;;; publish, distribute, sublicense, and/or sell copies of the Software,
+;;; and to permit persons to whom the Software is furnished to do so,
+;;; provided that the above copyright notice and this permission notice
+;;; are included in all copies or substantial portions of the Software.
+;;;
+;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE
+;;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+;;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
+;;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+;;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
+;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
+;;; DAMAGE.
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/intl.lisp,v 1.2 2010/03/19 15:18:59 rtoy Exp $")
+
+(in-package "INTL")
+
+(eval-when (:compile-toplevel :execute)
+  (defparameter intl::*default-domain* "cmucl")
+  (unless (and (fboundp 'intl:read-translatable-string)
+	       (eq (get-macro-character #\_)
+		   (fdefinition 'intl:read-translatable-string)))
+    (set-macro-character #\_ (lambda (stream char)
+			       (declare (ignore char))
+			       (case (peek-char nil stream nil nil t)
+				 (#\" (values))
+				 (#\N (read-char stream t nil t) (values))
+				 (otherwise '_)))
+			 t)))
+
+(in-package "INTL")
+
+(defvar *locale-directories*
+  '(#p"library:locale/" #p"/usr/share/locale/" #p"target:i18n/locale/"))
+(defvar *locale* "C")
+
+(defvar *default-domain* nil
+  _N"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.
+  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this.")
+(defvar *loaded-domains* (make-hash-table :test 'equal))
+(defvar *locale-aliases* (make-hash-table :test 'equal))
+
+(defstruct domain-entry
+  (domain "" :type simple-base-string)
+  (locale "" :type simple-base-string)
+  (file #p"" :type pathname)
+  (plurals nil :type (or null function))
+  (hash (make-hash-table :test 'equal) :type hash-table)
+  (encoding nil)
+  (readfn #'identity :type function))
+
+(declaim (ftype (function (stream) (unsigned-byte 32)) read-lelong))
+(defun read-lelong (stream)
+  (declare #+(or)(optimize (speed 3) (space 2) (safety 0)
+		     #+CMU (ext:inhibit-warnings 3))) ;quiet about boxing retn
+  (+ (the (unsigned-byte 8) (read-byte stream))
+     (ash (the (unsigned-byte 8) (read-byte stream)) 8)
+     (ash (the (unsigned-byte 8) (read-byte stream)) 16)
+     (ash (the (unsigned-byte 8) (read-byte stream)) 24)))
+
+(declaim (ftype (function (stream) (unsigned-byte 32)) read-belong))
+(defun read-belong (stream)
+  (declare #+(or)(optimize (speed 3) (space 2) (safety 0)
+		     #+CMU (ext:inhibit-warnings 3))) ;quiet about boxing retn
+  (+ (ash (the (unsigned-byte 8) (read-byte stream)) 24)
+     (ash (the (unsigned-byte 8) (read-byte stream)) 16)
+     (ash (the (unsigned-byte 8) (read-byte stream)) 8)
+     (the (unsigned-byte 8) (read-byte stream))))
+
+(defun locate-domain-file (domain locale locale-dir)
+  ;; The default locale-dir includes search lists.  If we get called
+  ;; before the search lists are initialized, we lose.  The search
+  ;; lists are initialized in environment-init, which sets
+  ;; *environment-list-initialized*.  This way, we return NIL to
+  ;; indicate there's no domain file to use.
+  (when lisp::*environment-list-initialized*
+    (flet ((path (locale base)
+	     (merge-pathnames (make-pathname :directory (list :relative locale
+							      "LC_MESSAGES")
+					     :name domain :type "mo")
+			      base)))
+      (let ((locale (or (gethash locale *locale-aliases*) locale)))
+	(dolist (base (if (listp locale-dir) locale-dir (list locale-dir)))
+	  (let ((probe
+		 (or (probe-file (path locale base))
+		     (let ((dot (position #\. locale)))
+		       (and dot (probe-file (path (subseq locale 0 dot) base))))
+		     (let ((at (position #\@ locale)))
+		       (and at (probe-file (path (subseq locale 0 at) base))))
+		     (let ((us (position #\_ locale)))
+		       (and us (probe-file (path (subseq locale 0 us) base)))))))
+	    (when probe (return probe))))))))
+
+(defun find-encoding (domain)
+  (when (null (domain-entry-encoding domain))
+    (setf (domain-entry-encoding domain) :iso-8859-1)
+    ;; Domain lookup can call the compiler, so set the locale to "C"
+    ;; so things work.
+    (let* ((*locale* "C")
+	   (header (domain-lookup "" domain))
+	   (ctype (search "Content-Type: " header))
+	   (eoln (and ctype (position #\Newline header :start ctype)))
+	   (charset (and ctype (search "; charset=" header
+				       :start2 ctype :end2 eoln))))
+      (when charset
+	(incf charset 10)
+	(loop for i upfrom charset below eoln as c = (char header i)
+            while (or (alphanumericp c) (eql c #\-))
+          finally (setf (domain-entry-encoding domain)
+		      (intern (nstring-upcase (subseq header charset i))
+			      "KEYWORD"))))))
+  domain)
+
+(defun parse-plurals (domain)
+  (let* ((header (domain-lookup "" domain))
+	 (plurals (search "Plural-Forms: " header))
+	 (default (lambda (n) (if (= n 1) 0 1))))
+    (if (and plurals
+	     (> (length header) (+ plurals 36))
+	     (string= header "nplurals="
+		      :start1 (+ plurals 14) :end1 (+ plurals 23)))
+	(let ((nplurals
+	       (parse-integer header :start (+ plurals 23) :junk-allowed t))
+	      (point (+ (position #\; header :start (+ plurals 23)) 2)))
+	  (if (and (> (length header) (+ point 10))
+		   (string= header "plural=" :start1 point :end1 (+ point 7)))
+	      (values (parse-expr header (+ point 7)) nplurals)
+	      (values default 2)))
+	(values default 2))))
+
+(defun parse-expr (string pos)
+  (labels ((next ()
+	     (loop while (member (char string pos) '(#\Space #\Tab #\Newline))
+		   do (incf pos))
+	     (case (char string (1- (incf pos)))
+	       (#\n 'n)
+	       (#\? 'IF)
+	       (#\: 'THEN)
+	       (#\( 'LPAR)
+	       (#\) 'RPAR)
+	       (#\^ 'LOGXOR)
+	       (#\+ 'ADD)
+	       (#\- 'SUB)
+	       (#\* 'MUL)
+	       (#\/ 'FLOOR)
+	       (#\% 'MOD)
+	       (#\~ 'LOGNOT32)
+	       (#\; 'END)
+	       (#\| (if (char= (char string pos) #\|)
+			(progn (incf pos) 'COR)
+			'LOGIOR))
+	       (#\& (if (char= (char string pos) #\&)
+			(progn (incf pos) 'CAND)
+			'LOGAND))
+	       (#\= (if (char= (char string pos) #\=)
+			(progn (incf pos) 'CMP=)
+			(error _"Encountered illegal token: =")))
+	       (#\! (if (char= (char string pos) #\=)
+			(progn (incf pos) 'CMP/=)
+			'NOT))
+	       (#\< (case (char string pos)
+		      (#\= (incf pos) 'CMP<=)
+		      (#\< (incf pos) 'SHL)
+		      (otherwise 'CMP<)))
+	       (#\> (case (char string pos)
+		      (#\= (incf pos) 'CMP>=)
+		      (#\> (incf pos) 'SHR)
+		      (otherwise 'CMP>)))
+	       (otherwise (let ((n (digit-char-p (char string (1- pos)))))
+			    (if n
+				(loop for nx = (digit-char-p (char string pos))
+				      while nx
+				   do (setq n (+ (* n 10) nx)) (incf pos)
+				   finally (return n))
+				(error _"Encountered illegal token: ~C"
+				       (char string (1- pos))))))))
+	   (conditional (tok &aux tree)
+	     (multiple-value-setq (tree tok) (logical-or tok))
+	     (when (eql tok 'IF)
+	       (multiple-value-bind (right next) (logical-or (next))
+		 (unless (eql next 'THEN)
+		   (error _"Expected : in ?: construct"))
+		 (multiple-value-bind (else next) (conditional (next))
+		   (setq tree (list tok (list 'zerop tree) else right)
+			 tok next))))
+	     (values tree tok))
+	   (logical-or (tok &aux tree)
+	     (multiple-value-setq (tree tok) (logical-and tok))
+	     (loop while (eql tok 'COR) do
+		(multiple-value-bind (right next) (logical-and (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (logical-and (tok &aux tree)
+	     (multiple-value-setq (tree tok) (inclusive-or tok))
+	     (loop while (eql tok 'CAND) do
+		(multiple-value-bind (right next) (inclusive-or (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (inclusive-or (tok &aux tree)
+	     (multiple-value-setq (tree tok) (exclusive-or tok))
+	     (loop while (eql tok 'LOGIOR) do
+		(multiple-value-bind (right next) (exclusive-or (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (exclusive-or (tok &aux tree)
+	     (multiple-value-setq (tree tok) (bitwise-and tok))
+	     (loop while (eql tok 'LOGXOR) do
+		(multiple-value-bind (right next) (bitwise-and (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (bitwise-and (tok &aux tree)
+	     (multiple-value-setq (tree tok) (equality tok))
+	     (loop while (eql tok 'LOGAND) do
+		(multiple-value-bind (right next) (equality (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (equality (tok &aux tree)
+	     (multiple-value-setq (tree tok) (relational tok))
+	     (loop while (member tok '(CMP= CMP/=)) do
+		(multiple-value-bind (right next) (relational (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (relational (tok &aux tree)
+	     (multiple-value-setq (tree tok) (shift tok))
+	     (loop while (member tok '(CMP< CMP> CMP<= CMP>=)) do
+		(multiple-value-bind (right next) (shift (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (shift (tok &aux tree)
+	     (multiple-value-setq (tree tok) (additive tok))
+	     (loop while (member tok '(SHL SHR)) do
+		(multiple-value-bind (right next) (additive (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (additive (tok &aux tree)
+	     (multiple-value-setq (tree tok) (multiplicative tok))
+	     (loop while (member tok '(ADD SUB)) do
+		(multiple-value-bind (right next) (multiplicative (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (multiplicative (tok &aux tree)
+	     (multiple-value-setq (tree tok) (unary tok))
+	     (loop while (member tok '(MUL FLOOR MOD)) do
+		(multiple-value-bind (right next) (unary (next))
+		  (setq tree (list tok tree right)
+			tok next)))
+	     (values tree tok))
+	   (unary (tok &aux tree)
+	     (cond ((eq tok 'LPAR)
+		    (multiple-value-setq (tree tok) (conditional (next)))
+		    (unless (eq tok 'RPAR)
+		      (error _"Expected close-paren."))
+		    (values tree (next)))
+		   ((numberp tok)
+		    (values tok (next)))
+		   ((eql tok 'n)
+		    (values tok (next)))
+		   ((eql tok 'ADD)
+		    (unary (next)))
+		   ((eql tok 'SUB)
+		    (multiple-value-setq (tree tok) (unary (next)))
+		    (values (list '- tree) tok))
+		   ((eql tok 'LOGNOT32)
+		    (multiple-value-setq (tree tok) (unary (next)))
+		    (values (list 'LOGNOT32 tree) tok))
+		   ((eql tok 'NOT)
+		    (multiple-value-setq (tree tok) (unary (next)))
+		    (values (list 'CNOT tree) tok))
+		   (t
+		    (error _"Unexpected token: ~S." tok)))))
+    (multiple-value-bind (tree end) (conditional (next))
+      (unless (eq end 'END)
+	(error _"Expecting end of expression.  ~S." end))
+      (let ((*compile-print* nil))
+	(compile nil
+		 `(lambda (n)
+		    (declare (type (unsigned-byte 32) n)
+			     (optimize (space 3)))
+		    (flet ((add   (a b) (ldb (byte 32 0) (+ a b)))
+			   (sub   (a b) (ldb (byte 32 0) (- a b)))
+			   (mul   (a b) (ldb (byte 32 0) (* a b)))
+			   (shl   (a b) (ldb (byte 32 0) (ash a b)))
+			   (shr   (a b) (ash a (- b)))
+			   (cmp=  (a b) (if (= a b) 1 0))
+			   (cmp/= (a b) (if (/= a b) 1 0))
+			   (cmp<  (a b) (if (< a b) 1 0))
+			   (cmp<= (a b) (if (<= a b) 1 0))
+			   (cmp>  (a b) (if (> a b) 1 0))
+			   (cmp>= (a b) (if (>= a b) 1 0))
+			   (cand  (a b) (if (or (zerop a) (zerop b)) 0 1))
+			   (cor   (a b) (if (and (zerop a) (zerop b)) 0 1))
+			   (cnot  (a)   (if a 0 1))
+			   (lognot32 (a) (ldb (byte 32 0) (lognot a))))
+		      (declare (ignorable #'add #'sub #'mul #'shr #'shl
+					  #'cmp= #'cmp/=
+					  #'cmp< #'cmp<= #'cmp> #'cmp>=
+					  #'cand #'cor #'cnot #'lognot32))
+		      ,tree)))))))
+
+(defun load-domain (domain locale &optional (locale-dir *locale-directories*))
+  (let ((file (locate-domain-file domain locale locale-dir))
+	(read #'read-lelong))
+    (unless file (return-from load-domain nil))
+    (with-open-file (stream file :direction :input :if-does-not-exist nil
+			    :element-type '(unsigned-byte 8))
+      (unless stream (return-from load-domain nil))
+      (let ((magic (read-lelong stream)))
+	(cond ((= magic #x950412de) (setq read #'read-lelong))
+	      ((= magic #xde120495) (setq read #'read-belong))
+	      (t
+	       ;; DON'T translate this!  If we can't load the domain,
+	       ;; we can't print this message, Which causes an error
+	       ;; that causes use to do a domain lookup again, which
+	       ;; fails which cause an error message which ...
+	       (warn "Bad magic number in \"~A.mo\"." domain)
+	       (return-from load-domain nil))))
+      (let ((version (funcall read stream))
+	    (messages (funcall read stream))
+	    (master (funcall read stream))
+	    (translation (funcall read stream))
+	    (entry (make-domain-entry)))
+	(declare (ignore version))
+	(setf (domain-entry-readfn entry) read)
+	(setf (domain-entry-domain entry) domain)
+	(setf (domain-entry-locale entry) locale)
+	(setf (domain-entry-file entry) file)
+	(dotimes (msg messages)
+	  (file-position stream (+ master (* 8 msg)))
+	  (let ((length (funcall read stream))
+		(start (funcall read stream)))
+	    (setf (gethash length (domain-entry-hash entry))
+		  (acons start (+ translation (* 8 msg))
+			 (gethash length (domain-entry-hash entry))))))
+	(setf (gethash domain *loaded-domains*) entry)
+	(find-encoding entry)))))
+
+(defun find-domain (domain locale &optional (locale-dir *locale-directories*))
+  (let ((found (gethash domain *loaded-domains*)))
+    (if (and found (string= (domain-entry-locale found) locale))
+	found
+	(load-domain domain locale locale-dir))))
+
+(declaim (inline string-to-octets))
+(defun string-to-octets (string encoding)
+  (declare (ignorable encoding))
+  #+(and CMU Unicode)
+  (ext:string-to-octets string :external-format encoding)
+  #+Allegro
+  (excl:string-to-octets string :external-format encoding :null-terminate nil)
+  #+SBCL
+  (sb-ext:string-to-octets string :external-format encoding
+			   :null-terminate nil)
+  #+CLISP ;;@@ Not sure if encoding keyword is OK here
+  (ext:convert-string-to-bytes string encoding)
+  ;;@@ add other implementations
+  #-(or (and CMU Unicode) Allegro SBCL CLISP #|others|#)
+  (map-into (make-array (length string) :element-type '(unsigned-byte 8))
+	    #'char-code string))
+
+(declaim (inline octets-to-string))
+(defun octets-to-string (octets encoding)
+  (declare (ignorable encoding))
+  #+(and CMU Unicode)
+  (ext:octets-to-string octets :external-format encoding)
+  #+Allegro
+  (excl:octets-to-string octets :external-format encoding :end (length octets))
+  #+SBCL
+  (sb-ext:octets-to-string octets :external-format encoding)
+  #+CLISP ;;@@ Not sure if encoding keyword is OK here
+  (ext:convert-string-from-bytes octets encoding)
+  ;;@@ add other implementations
+  #-(or (and CMU Unicode) Allegro SBCL CLISP #|others|#)
+  (map-into (make-string (length octets)) #'code-char octets))
+
+(defun octets= (a b &key (start1 0) (end1 (length a))
+			 (start2 0) (end2 (length b)))
+  (declare (type (simple-array (unsigned-byte 8) (*)) a b)
+	   (type (integer 0 #.array-dimension-limit) start1 end1 start2 end2)
+	   #+(or)(optimize (speed 3) (space 2) (safety 0) #-gcl (debug 0)))
+  (when (and (< start1 end1)
+	     (< start2 end2))
+    (loop
+       (unless (= (aref a start1) (aref b start2)) (return nil))
+       (when (or (= (incf start1) end1) (= (incf start2) end2)) (return t)))))
+
+(defun search-domain (octets domain pos)
+  (declare (type (simple-array (unsigned-byte 8) (*)) octets)
+	   (type domain-entry domain)
+	   (type list pos)
+	   #+(or)(optimize (speed 3) (space 2) (safety 0) #-gcl (debug 0)
+		     #+CMU (ext:inhibit-warnings 3))) ; quiet about boxing
+  (when pos
+    (let ((temp (make-array 120 :element-type '(unsigned-byte 8)))
+	  (length (length octets)))
+      (with-open-file (stream (domain-entry-file domain)
+			      :direction :input
+			      :element-type '(unsigned-byte 8))
+	(dolist (entry pos)
+	  (file-position stream (car entry))
+	  (let ((off 0)
+		(end (read-sequence temp stream
+				    :end (min 120 length))))
+	    (declare (type (integer 0 #.array-dimension-limit) off end))
+	    (loop while (octets= octets temp
+			 :start1 off
+			 :end1 (min (+ off 120) length)
+			 :end2 end)
+	       do
+	       (incf off end)
+	       (when (< off length)
+		 (setf end (read-sequence temp stream
+					  :end (min 120 (- length off))))))
+	    (when (= off length)
+	      (file-position stream (cdr entry))
+	      (let* ((len (funcall (domain-entry-readfn domain) stream))
+		     (off (funcall (domain-entry-readfn domain) stream))
+		     (tmp (make-array len :element-type '(unsigned-byte 8))))
+		(file-position stream off)
+		(read-sequence tmp stream)
+		(return (values tmp entry))))))))))
+
+(defun domain-lookup (string domain)
+  (declare (type string string) (type domain-entry domain)
+	   #+(or)(optimize (speed 3) (space 2) (safety 0)))
+  (or (if (null (domain-entry-encoding domain)) string)
+      (gethash string (domain-entry-hash domain))
+      (let* ((octets (string-to-octets string
+				       (domain-entry-encoding domain)))
+	     (length (length octets))
+	     (pos (gethash length (domain-entry-hash domain))))
+	(declare (type (simple-array (unsigned-byte 8) (*)) octets))
+	(multiple-value-bind (tmp entry) (search-domain octets domain pos)
+	  (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp))
+	  (when tmp
+	    (let ((temp (delete entry pos :test #'eq)))
+	      (if temp
+		  (setf (gethash length (domain-entry-hash domain)) temp)
+		  (remhash length (domain-entry-hash domain))))
+	    (setf (gethash (copy-seq string) (domain-entry-hash domain))
+		(octets-to-string tmp (domain-entry-encoding domain))))))))
+
+(defun domain-lookup-plural (singular plural domain)
+  (declare (type string singular plural) (type domain-entry domain)
+	   #+(or)(optimize (speed 3) (space 2) (safety 0)))
+  (or (if (null (domain-entry-encoding domain)) nil)
+      (gethash (cons singular plural) (domain-entry-hash domain))
+      (let* ((octets (let* ((a (string-to-octets singular
+					       (domain-entry-encoding domain)))
+			    (b (string-to-octets plural
+					       (domain-entry-encoding domain)))
+			    (c (make-array (+ (length a) (length b) 1)
+					   :element-type '(unsigned-byte 8))))
+		       (declare (type (simple-array (unsigned-byte 8) (*))
+				      a b c))
+		       (replace c a)
+		       (setf (aref c (length a)) 0)
+		       (replace c b :start1 (+ (length a) 1))
+		       c))
+	     (length (length octets))
+	     (pos (gethash length (domain-entry-hash domain))))
+	(declare (type (simple-array (unsigned-byte 8) (*)) octets)
+		 (type list pos))
+	(multiple-value-bind (tmp entry) (search-domain octets domain pos)
+	  (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp))
+	  (when tmp
+	    (prog1
+		(setf (gethash (cons (copy-seq singular) (copy-seq plural))
+			       (domain-entry-hash domain))
+		    (loop for i = 0 then (1+ j)
+			   as j = (position 0 tmp :start i)
+		      collect (octets-to-string (subseq tmp i j)
+						(domain-entry-encoding domain))
+		      while j))
+	      (let ((temp (delete entry pos :test #'eq)))
+		(if temp
+		    (setf (gethash length (domain-entry-hash domain)) temp)
+		    (remhash length (domain-entry-hash domain))))
+	      (when (null (domain-entry-plurals domain))
+		(setf (domain-entry-plurals domain)
+		    (parse-plurals domain)))))))))
+
+(declaim (inline getenv)
+	 (ftype (function (string) (or null string)) getenv))
+(defun getenv (var)
+  (let ((val #+(or CMU SCL) (cdr (assoc (intern var "KEYWORD")
+					ext:*environment-list*))
+	     #+SBCL (sb-ext:posix-getenv var)
+	     #+Allegro (system:getenv var)
+	     #+LispWorks (hcl:getenv var)
+	     #+clisp (ext:getenv var)
+	     #+(or openmcl mcl) (ccl::getenv var)
+	     #+(or gcl ecl) (si::getenv var)))
+    (if (equal val "") nil val)))
+
+(defun setlocale (&optional locale)
+  (setf *locale* (or locale
+		     (getenv "LANGUAGE")
+		     (getenv "LC_ALL")
+		     (getenv "LC_MESSAGES")
+		     (getenv "LANG")
+		     *locale*)))
+
+(defmacro textdomain (domain)
+  `(eval-when (:compile-toplevel :execute)
+     (setf *default-domain* ,domain)))
+
+(defmacro gettext (string)
+  _N"Look up STRING in the current message domain and return its translation."
+  `(dgettext ,*default-domain* ,string))
+
+(defmacro ngettext (singular plural n)
+  _N"Look up the singular or plural form of a message in the current domain."
+  `(dngettext ,*default-domain* ,singular ,plural ,n))
+
+(declaim (inline dgettext))
+(defun dgettext (domain string)
+  _N"Look up STRING in the specified message domain and return its translation."
+  #+(or)(declare (optimize (speed 3) (space 2) (safety 0)))
+  (let ((domain (and domain (find-domain domain *locale*))))
+    (or (and domain (domain-lookup string domain)) string)))
+
+(defun dngettext (domain singular plural n)
+  _N"Look up the singular or plural form of a message in the specified domain."
+  (declare (type integer n)
+	   #+(or)(optimize (speed 3) (space 2) (safety 0)))
+  (let* ((domain (and domain (find-domain domain *locale*)))
+	 (list (and domain (domain-lookup-plural singular plural domain))))
+    (if list
+	(nth (the integer
+	       (funcall (the function (domain-entry-plurals domain)) n))
+	     list)
+	(if (= n 1) singular plural))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+#-runtime
+(defvar *translator-comment* nil)
+
+#-runtime
+(defvar *translations* (make-hash-table :test 'equal))
+
+#-runtime
+(defun note-translatable (domain string &optional plural)
+  (when domain
+    (let* ((hash (or (gethash domain *translations*)
+		     (setf (gethash domain *translations*)
+			   (make-hash-table :test 'equal))))
+	   (key (if plural (cons string plural) string))
+	   (val (or (gethash key hash) (cons nil nil))))
+      (pushnew *translator-comment* (car val) :test #'equal)
+      (pushnew *compile-file-pathname* (cdr val) :test #'equal)
+      ;; FIXME: How does this happen?  Need to figure this out and get
+      ;; rid of this!
+      (unless key
+	(warn "Translate error with null key.  domain = ~S string = ~S~%"
+	       domain string))
+      (setf (gethash key hash) val)))
+  (setq *translator-comment* nil))
+
+(define-compiler-macro dgettext (&whole form domain string)
+  #-runtime
+  (when (and (stringp domain) (stringp string))
+    (note-translatable domain string))
+  form)
+
+(define-compiler-macro dngettext (&whole form domain singular plural n)
+  (declare (ignore n))
+  #-runtime
+  (when (and (stringp domain) (stringp singular) (stringp plural))
+    (note-translatable domain singular plural))
+  form)
+
+(defun read-translatable-string (stream char)
+  (declare (ignore char))
+    (case (peek-char nil stream nil nil t)
+      (#\" (let* ((*read-suppress* nil)
+		  (string (read stream t nil t)))
+	     #-runtime
+	     (note-translatable *default-domain* string)
+	     `(gettext ,string)))
+      (#\N (read-char stream t nil t)
+	   (let* ((*read-suppress* nil)
+		  (string (read stream t nil t)))
+	     #-runtime
+	     (note-translatable *default-domain* string)
+	     string))
+      (#\@ (error _"_@ is a reserved reader macro prefix."))
+      (otherwise
+       (let ((fn (get-macro-character #\_ nil)))
+	 (if fn (funcall fn stream #\_) '_)))))
+
+;; Process comments as usual, but look for lines that begin with
+;; "TRANSLATORS: ".  These lines are saved and written out as a
+;; translator comment for the next translatable string.
+#-runtime
+(defun read-comment (stream char)
+  (declare (optimize (speed 0) (space 3) #-gcl (debug 0))
+	   (ignore char))
+  (do ((state 0)
+       (index 0)
+       (text nil)
+       (char (read-char stream nil nil t) (read-char stream nil nil t)))
+      ((or (not char) (char= char #\Newline))
+       (when text (setq *translator-comment* (copy-seq text))))
+    (cond ((and (= state 0) (char= char #\Space)) (setq state 1))
+	  ((and (= state 0) (char= char #\T)) (setq state 1 index 1))
+	  ((and (= state 0) (char/= char #\;)) (setq state 2))
+	  ((and (= state 1) (= index 0) (char= char #\Space)) #|ignore|#)
+	  ((= state 1)
+	   (if (char= char (char "TRANSLATORS: " index))
+	       (when (= (incf index) 13)
+		 (setq state 3))
+	       (setq state 2)))
+	  ((= state 3)
+	   (when (null text)
+	     (setq text (make-array 50 :element-type 'character
+				    :adjustable t :fill-pointer 0)))
+	   (vector-push-extend char text))))
+  (values))
+
+#-runtime
+(defun read-nested-comment (stream subchar arg)
+  (declare (ignore subchar arg)
+	   (optimize (speed 0) (space 3) #-gcl (debug 0)))
+  (do ((level 1)
+       (state 0)
+       (index 0)
+       (text nil)
+       (prev (read-char stream t nil t) char)
+       (char (read-char stream t nil t) (read-char stream t nil t)))
+      (())
+    (cond ((and (char= prev #\|) (char= char #\#))
+	   (when (zerop (decf level))
+	     (when text
+	       (setq *translator-comment*
+		     (string-right-trim '(#\Space #\Newline) text)))
+	     (return)))
+	  ((and (char= prev #\#) (char= char #\|))
+	   (setq state 2)
+	   (incf level))
+	  ((and (= state 0) (char= prev #\Space)) (setq state 1))
+	  ((and (= state 0) (char= prev #\T))
+	   (setq state 1 index 1))
+	  ((= state 0) (setq state 2))
+	  ((and (= state 1) (= index 0) (char= prev #\Space)) #| ignore |#)
+	  ((= state 1)
+	   (if (char= prev (char "TRANSLATORS: " index))
+	       (when (= (incf index) 13)
+		 (setq state 3))
+	       (setq state 2)))
+	  ((= state 3)
+	   (when (null text)
+	     (setq text (make-array 50 :element-type 'character
+				    :adjustable t :fill-pointer 0)))
+	   (vector-push-extend prev text))))
+  (values))
+
+(defun install ()
+  (set-macro-character #\_ #'read-translatable-string t)
+  #-runtime
+  (set-macro-character #\; #'read-comment)
+  #-runtime
+  (set-dispatch-macro-character #\# #\| #'read-nested-comment)
+  t)
+
+
+;; Dump the translatable strings.  The output is written to a file in
+;; the directory OUTPUT-DIRECTORY and its name is the domain.
+#-runtime
+(defun dump-pot-files (&key copyright output-directory)
+  ;;(declare (optimize (speed 0) (space 3) #-gcl (debug 1)))
+  (labels ((b (key data)
+	     (format t "~@[~{~&#. ~A~}~%~]" (delete nil (car data)))
+	     (format t "~@[~&~<#: ~@;~@{~A~^ ~}~:@>~%~]"
+		     (delete nil (cdr data)))
+	     (cond ((consp key)
+		    (format t "~&msgid ") (str (car key) 6 0)
+		    (format t "~&msgid_plural ") (str (cdr key) 13 0)
+		    (format t "~&msgstr[0] \"\"~2%"))
+		   (t
+		    (cond
+		      (key
+		       (format t "~&msgid ") (str key 6 0)
+		       (format t "~&msgstr \"\"~2%"))
+		      (t
+		       (format *error-output* "Skipping NIL key~%"))))))
+	   (str (string col start)
+	     (when (and (plusp col) (> (length string) (- 76 col)))
+	       (format t "\"\"~%"))
+	     (let ((nl (position #\Newline string :start start)))
+	       (cond ((and nl (< (- nl start) 76))
+		      (write-char #\")
+		      (wstr string start nl)
+		      (format t "\\n\"~%")
+		      (str string 0 (1+ nl)))
+		     ((< (- (length string) start) 76)
+		      (write-char #\")
+		      (wstr string start (length string))
+		      (write-char #\"))
+		     (t
+		      (let* ((a (+ start 1))
+			     (b (+ start 76))
+			     (b1 (position #\Space string :start a :end b
+					   :from-end t))
+			     (b2 (position-if (lambda (x)
+						(position x ";:,?!)]}"))
+					      string :start a :end b
+					      :from-end t))
+			     (b3 (position-if (lambda (x)
+						(position x "\"'-"))
+					      string :start a :end b
+					      :from-end t))
+			     (b4 (position-if #'digit-char-p
+					      string :start a :end b
+					      :from-end t))
+			     (b5 (position-if #'alpha-char-p
+					      string :start a :end b
+					      :from-end t))
+			     (g1 (if b1 (* (- b b1) (- b b1) .03) 10000))
+			     (g2 (if b2 (* (- b b2) (- b b2) .20) 10000))
+			     (g3 (if b3 (* (- b b3) (- b b3) .97) 10000))
+			     (g4 (if b4 (* (- b b4) (- b b4) 1.3) 10000))
+			     (g5 (if b5 (* (- b b5) (- b b5) 2.0) 10000))
+			     (g (min g1 g2 g3 g4 g5))
+			     (end (1+ (cond ((> g 750) b)
+					    ((= g g1) b1)
+					    ((= g g2) b2)
+					    ((= g g3) b3)
+					    ((= g g4) b4)
+					    ((= g g5) b5)))))
+			#+(or)
+			(progn
+			  (format t "~&Splitting ~S:~%"
+				  (subseq string start b))
+			  (format t "~{~&  b~D=~D; goodness=~F~}~%"
+				  (list 1 b1 g1 2 b2 g2 3 b3 g3 4 b4 g4 5 b5 g5
+					6 b 10000))
+			  (format t "~&  best=~F == ~D~%" g end)
+			  (format t "~&  Part1=~S~%  Part2=~S~%"
+				  (subseq string start end)
+				  (subseq string end b)))
+			(write-char #\")
+			(wstr string start end)
+			(write-char #\") (terpri)
+			(str string 0 end))))))
+	   (wstr (string start end)
+	     (loop while (< start end) do
+	       (let ((i (position-if (lambda (x)
+				       (or (char= x #\") (char= x #\\)))
+				     string :start start :end end)))
+		 (write-string string nil :start start :end (or i end))
+		 (when i (write-char #\\ nil) (write-char (char string i) nil))
+		 (setq start (if i (1+ i) end)))))
+	   (a (domain hash)
+	     (format t _"~&Dumping ~D messages for domain ~S~%"
+		     (hash-table-count hash) domain)
+	     (with-open-file (*standard-output*
+			      (merge-pathnames (make-pathname :name domain
+							      :type "pot")
+					       output-directory)
+			      :direction :output
+			      :if-exists :new-version
+			      ;;:external-format :utf8
+			      :external-format :iso8859-1
+			      )
+	       (format t "~&#@ ~A~2%" domain)
+	       (format t "~&# SOME DESCRIPTIVE TITLE~%")
+	       (format t "~@[~&# Copyright (C) YEAR ~A~%~]" copyright)
+	       (format t "~&# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR~%")
+	       (format t "~&#~%#, fuzzy~%msgid \"\"~%msgstr \"\"~%")
+	       (format t "~&\"Project-Id-Version: PACKAGE VERSION\\n\"~%")
+	       (format t "~&\"Report-Msgid-Bugs-To: \\n\"~%")
+	       (format t "~&\"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\"~%")
+	       (format t "~&\"Last-Translator: FULL NAME <EMAIL@ADDRESS>\\n\"~%")
+	       (format t "~&\"Language-Team: LANGUAGE <LL@li.org>\\n\"~%")
+	       (format t "~&\"MIME-Version: 1.0\\n\"~%")
+	       (format t "~&\"Content-Type: text/plain; charset=UTF-8\\n\"~%")
+	       (format t "~&\"Content-Transfer-Encoding: 8bit\\n\"~2%")
+	       (maphash #'b hash))))
+    (maphash #'a *translations*)
+    #+(or)
+    (clrhash *translations*))
+  nil)
+
+
+
+(eval-when (:compile-toplevel :execute)
+  (setq *default-domain* nil)
+  (unless (and (fboundp 'intl:read-translatable-string)
+	       (eq (get-macro-character #\_)
+		   (fdefinition 'intl:read-translatable-string)))
+    (set-syntax-from-char #\_ #\_)))
+
+(install)
\ No newline at end of file
diff --git a/code/irix-os.lisp b/code/irix-os.lisp
index 447be77c6a86daf6f6dac14ddf04a9e230e66a38..239ef859ad20fddbd158f2ae069b854f884dfb55 100644
--- a/code/irix-os.lisp
+++ b/code/irix-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irix-os.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irix-os.lisp,v 1.4 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,8 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(get-system-info get-page-size os-init))
 
 (pushnew :irix *features*)
diff --git a/code/irrat-dd.lisp b/code/irrat-dd.lisp
index e5168da03ac32c785a0d71842026501b6dc034e5..9677d4b3757948072189e39886fbe41d2762a754 100644
--- a/code/irrat-dd.lisp
+++ b/code/irrat-dd.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.18 2009/03/18 01:24:52 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.19 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,40 +19,42 @@
 
 (in-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 ;;;; Random constants, utility functions.
 
 (defconstant max-log
   7.0978271289338399678773454114191w2
-  "log(most-positive-double-double-float)")
+  _N"log(most-positive-double-double-float)")
 
 (defconstant min-log
   -7.4444007192138126231410729844608w2
-  "log(least-positive-double-double-float")
+  _N"log(least-positive-double-double-float")
 
 
 (defconstant loge2
   0.6931471805599453094172321214581765680755001w0
-  "log(2)")
+  _N"log(2)")
 
 (defconstant log2e
   1.442695040888963407359924681001892137426646w0
-  "Log base 2 of e")
+  _N"Log base 2 of e")
 
 (defconstant log2ea
   4.4269504088896340735992468100189213742664595w-1
-  "log2(e)-1")
+  _N"log2(e)-1")
 
 (defconstant dd-pi
   3.141592653589793238462643383279502884197169w0
-  "Pi")
+  _N"Pi")
 
 (defconstant dd-pi/2
   1.570796326794896619231321691639751442098585w0
-  "Pi/2")
+  _N"Pi/2")
 
 (defconstant dd-pi/4
   0.7853981633974483096156608458198757210492923w0
-  "Pi/4")
+  _N"Pi/4")
 
 ;; log2-c1 and log-c2 are log(2) arranged in such a way that log2-c1 +
 ;; log2-c2 is log(2) to an accuracy greater than double-double-float.
@@ -64,7 +66,7 @@
 
 (defconstant sqrt-1/2
   0.7071067811865475244008443621048490392848w0
-  "Sqrt(1/2)")
+  _N"Sqrt(1/2)")
 
 ;; Evaluate polynomial
 (declaim (maybe-inline poly-eval poly-eval-1))
@@ -144,7 +146,7 @@
   ;; log(2)/2, where the coefficients of P and Q are given Pn and Qn
   ;; above.  Theoretical peak relative error = 8.1e-36.
   (defun dd-%expm1 (x)
-    "exp(x) - 1"
+    _N"exp(x) - 1"
     (declare (type double-double-float x)
 	     (optimize (speed 3) (space 0)
 		       (inhibit-warnings 3)))
@@ -1206,7 +1208,7 @@ pi/4    11001001000011111101101010100010001000010110100011000 010001101001100010
 		#x91615E #xE61B08 #x659985 #x5F14A0 #x68408D #xFFD880 
 		#x4D7327 #x310606 #x1556CA #x73A8C9 #x60E27B #xC08C6B 
 		))
-  "396 (hex) digits of 2/pi")
+  _N"396 (hex) digits of 2/pi")
 
 
 (let ((y (make-array 3 :element-type 'double-float))
@@ -1506,7 +1508,7 @@ pi/4    11001001000011111101101010100010001000010110100011000 010001101001100010
 	       (setf s (* loge2 e))))
 	(when (> s max-log)
 	  ;; Overflow.  What to do?
-	  (error "Overflow"))
+	  (error _"Overflow"))
 	(when (< s min-log)
 	  (return-from dd-%powil 0w0))
 
@@ -1638,7 +1640,7 @@ pi/4    11001001000011111101101010100010001000010110100011000 010001101001100010
 	       (values rho 0)))))))
 
 (defun dd-complex-sqrt (z)
-  "Principle square root of Z
+  _N"Principle square root of Z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1680,7 +1682,7 @@ Z may be any number, but the result is always a complex."
 	(complex eta nu)))))
 
 (defun dd-complex-log-scaled (z j)
-  "Compute log(2^j*z).
+  _N"Compute log(2^j*z).
 
 This is for use with J /= 0 only when |z| is huge."
   (declare (number z)
@@ -1715,7 +1717,7 @@ This is for use with J /= 0 only when |z| is huge."
 		 (atan y x))))))
 
 (defun dd-complex-log (z)
-  "Log of Z = log |Z| + i * arg Z
+  _N"Log of Z = log |Z| + i * arg Z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1727,7 +1729,7 @@ Z may be any number, but the result is always a complex."
 ;; never 0 since we have positive and negative zeroes.
 
 (defun dd-complex-atanh (z)
-  "Compute atanh z = (log(1+z) - log(1-z))/2"
+  _N"Compute atanh z = (log(1+z) - log(1-z))/2"
   (declare (number z))
   (cond ((and (realp z) (< z -1))
 	 ;; ATANH is continuous with quadrant III in this case.
@@ -1788,7 +1790,7 @@ Z may be any number, but the result is always a complex."
 		      (- (* beta nu))))))))
 
 (defun dd-complex-tanh (z)
-  "Compute tanh z = sinh z / cosh z"
+  _N"Compute tanh z = sinh z / cosh z"
   (declare (number z))
   (let ((x (float (realpart z) 1.0w0))
 	(y (float (imagpart z) 1.0w0)))
@@ -1868,7 +1870,7 @@ Z may be any number, but the result is always a complex."
   (complex (+ (realpart z) 1) (imagpart z)))
 
 (defun dd-complex-acos (z)
-  "Compute acos z = pi/2 - asin z
+  _N"Compute acos z = pi/2 - asin z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1894,7 +1896,7 @@ Z may be any number, but the result is always a complex."
 					    sqrt-1-z)))))))))
 
 (defun dd-complex-acosh (z)
-  "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
+  _N"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1920,7 +1922,7 @@ Z may be any number, but the result is always a complex."
 
 
 (defun dd-complex-asin (z)
-  "Compute asin z = asinh(i*z)/i
+  _N"Compute asin z = asinh(i*z)/i
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1949,7 +1951,7 @@ Z may be any number, but the result is always a complex."
 						 sqrt-1+z)))))))))))
 
 (defun dd-complex-asinh (z)
-  "Compute asinh z = log(z + sqrt(1 + z*z))
+  _N"Compute asinh z = log(z + sqrt(1 + z*z))
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1960,7 +1962,7 @@ Z may be any number, but the result is always a complex."
 	     (- (realpart result)))))
 	 
 (defun dd-complex-atan (z)
-  "Compute atan z = atanh (i*z) / i
+  _N"Compute atan z = atanh (i*z) / i
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1971,7 +1973,7 @@ Z may be any number, but the result is always a complex."
 	     (- (realpart result)))))
 
 (defun dd-complex-tan (z)
-  "Compute tan z = -i * tanh(i * z)
+  _N"Compute tan z = -i * tanh(i * z)
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
diff --git a/code/irrat.lisp b/code/irrat.lisp
index c78db707b919db0a4cb2695490071979293950bc..3b0bac4881672030ce8ebfcfa984d6ad59ffa4e5 100644
--- a/code/irrat.lisp
+++ b/code/irrat.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.60 2009/12/11 00:28:36 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.61 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; 
 
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
 
 
 ;;;; Random constants, utility functions, and macros.
@@ -292,7 +293,7 @@
 ;;;; Power functions.
 
 (defun exp (number)
-  "Return e raised to the power NUMBER."
+  _N"Return e raised to the power NUMBER."
   (number-dispatch ((number number))
     (handle-reals %exp number)
     ((complex)
@@ -307,7 +308,7 @@
   ((base :initarg :base :reader intexp-base)
    (power :initarg :power :reader intexp-power))
   (:report (lambda (condition stream)
-	     (format stream "The absolute value of ~S exceeds limit ~S."
+	     (format stream _"The absolute value of ~S exceeds limit ~S."
 		     (intexp-power condition)
 		     *intexp-maximum-exponent*))))
 
@@ -331,9 +332,11 @@
 	       :base base
 	       :power power)
       (continue ()
-	:report "Continue with calculation")
+	:report (lambda (stream)
+		  (write-string _"Continue with calculation" stream)))
       (new-limit ()
-	:report "Continue with calculation, update limit"
+	:report (lambda (stream)
+		  (write-string _"Continue with calculation, update limit" stream))
 	(setq *intexp-maximum-exponent* (abs power)))))
   (cond ((minusp power)
 	 (/ (intexp base (- power))))
@@ -357,7 +360,7 @@
 ;;; the complex-real and real-complex cases from the general complex case.
 ;;;
 (defun expt (base power)
-  "Returns BASE raised to the POWER."
+  _N"Returns BASE raised to the POWER."
   (if (zerop power)
       ;; CLHS says that if the power is 0, the result is 1, subject to
       ;; numeric contagion.  But what happens if base is infinity or
@@ -673,7 +676,7 @@
 	 (+ n frac))))))
 
 (defun log (number &optional (base nil base-p))
-  "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+  _N"Return the logarithm of NUMBER in the base BASE, which defaults to e."
   (if base-p
       (cond ((zerop base)
 	     ;; ANSI spec
@@ -801,7 +804,7 @@
 	 (complex-log number)))))
 
 (defun sqrt (number)
-  "Return the square root of NUMBER."
+  _N"Return the square root of NUMBER."
   (number-dispatch ((number number))
     (((foreach fixnum bignum ratio))
      (if (minusp number)
@@ -826,7 +829,7 @@
 ;;;; Trigonometic and Related Functions
 
 (defun abs (number)
-  "Returns the absolute value of the number."
+  _N"Returns the absolute value of the number."
   (number-dispatch ((number number))
     (((foreach single-float double-float fixnum rational
 	       #+double-double double-double-float))
@@ -850,7 +853,7 @@
 	    (scale-float (sqrt abs^2) scale))))))))
 
 (defun phase (number)
-  "Returns the angle part of the polar representation of a complex number.
+  _N"Returns the angle part of the polar representation of a complex number.
   For complex numbers, this is (atan (imagpart number) (realpart number)).
   For non-complex positive numbers, this is 0.  For non-complex negative
   numbers this is PI."
@@ -877,7 +880,7 @@
 
 
 (defun sin (number)  
-  "Return the sine of NUMBER."
+  _N"Return the sine of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %sin number)
     ((complex)
@@ -887,7 +890,7 @@
 		(* (cos x) (sinh y)))))))
 
 (defun cos (number)
-  "Return the cosine of NUMBER."
+  _N"Return the cosine of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %cos number)
     ((complex)
@@ -897,20 +900,20 @@
 		(- (* (sin x) (sinh y))))))))
 
 (defun tan (number)
-  "Return the tangent of NUMBER."
+  _N"Return the tangent of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %tan number)
     ((complex)
      (complex-tan number))))
 
 (defun cis (theta)
-  "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+  _N"Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
   (if (complexp theta)
-      (error "Argument to CIS is complex: ~S" theta)
+      (error _"Argument to CIS is complex: ~S" theta)
       (complex (cos theta) (sin theta))))
 
 (defun asin (number)
-  "Return the arc sine of NUMBER."
+  _N"Return the arc sine of NUMBER."
   (number-dispatch ((number number))
     ((rational)
      (if (or (> number 1) (< number -1))
@@ -934,7 +937,7 @@
      (complex-asin number))))
 
 (defun acos (number)
-  "Return the arc cosine of NUMBER."
+  _N"Return the arc cosine of NUMBER."
   (number-dispatch ((number number))
     ((rational)
      (if (or (> number 1) (< number -1))
@@ -959,7 +962,7 @@
 
 
 (defun atan (y &optional (x nil xp))
-  "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+  _N"Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
   (if xp
       (flet ((atan2 (y x)
 	       (declare (type double-float y x)
@@ -997,7 +1000,7 @@
 	 (complex-atan y)))))
 
 (defun sinh (number)
-  "Return the hyperbolic sine of NUMBER."
+  _N"Return the hyperbolic sine of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %sinh number)
     ((complex)
@@ -1007,7 +1010,7 @@
 		(* (cosh x) (sin y)))))))
 
 (defun cosh (number)
-  "Return the hyperbolic cosine of NUMBER."
+  _N"Return the hyperbolic cosine of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %cosh number)
     ((complex)
@@ -1017,21 +1020,21 @@
 		(* (sinh x) (sin y)))))))
 
 (defun tanh (number)
-  "Return the hyperbolic tangent of NUMBER."
+  _N"Return the hyperbolic tangent of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %tanh number)
     ((complex)
      (complex-tanh number))))
 
 (defun asinh (number)
-  "Return the hyperbolic arc sine of NUMBER."
+  _N"Return the hyperbolic arc sine of NUMBER."
   (number-dispatch ((number number))
     (handle-reals %asinh number)
     ((complex)
      (complex-asinh number))))
 
 (defun acosh (number)
-  "Return the hyperbolic arc cosine of NUMBER."
+  _N"Return the hyperbolic arc cosine of NUMBER."
   (number-dispatch ((number number))
     ((rational)
      ;; acosh is complex if number < 1
@@ -1052,7 +1055,7 @@
      (complex-acosh number))))
 
 (defun atanh (number)
-  "Return the hyperbolic arc tangent of NUMBER."
+  _N"Return the hyperbolic arc tangent of NUMBER."
   (number-dispatch ((number number))
     ((rational)
      ;; atanh is complex if |number| > 1
@@ -1149,7 +1152,7 @@
 
 (declaim (inline scalb))
 (defun scalb (x n)
-  "Compute 2^N * X without compute 2^N first (use properties of the
+  _N"Compute 2^N * X without compute 2^N first (use properties of the
 underlying floating-point format"
   (declare (type float x)
 	   (type double-float-exponent n))
@@ -1157,7 +1160,7 @@ underlying floating-point format"
 
 (declaim (inline logb-finite))
 (defun logb-finite (x)
-  "Same as logb but X is not infinity and non-zero and not a NaN, so
+  _N"Same as logb but X is not infinity and non-zero and not a NaN, so
 that we can always return an integer"
   (declare (type float x))
   (multiple-value-bind (signif expon sign)
@@ -1168,7 +1171,7 @@ that we can always return an integer"
     (1- expon)))
       
 (defun logb (x)
-  "Compute an integer N such that 1 <= |2^(-N) * x| < 2.
+  _N"Compute an integer N such that 1 <= |2^(-N) * x| < 2.
 For the special cases, the following values are used:
 
     x             logb
@@ -1196,7 +1199,7 @@ For the special cases, the following values are used:
 
 (declaim (inline coerce-to-complex-type))
 (defun coerce-to-complex-type (x y z)
-  "Create complex number with real part X and imaginary part Y such that
+  _N"Create complex number with real part X and imaginary part Y such that
 it has the same type as Z.  If Z has type (complex rational), the X
 and Y are coerced to single-float."
   (declare (double-float x y)
@@ -1247,7 +1250,7 @@ and Y are coerced to single-float."
 	       (values rho 0)))))))
 
 (defun complex-sqrt (z)
-  "Principle square root of Z
+  _N"Principle square root of Z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1292,7 +1295,7 @@ Z may be any number, but the result is always a complex."
 	(coerce-to-complex-type eta nu z)))))
 
 (defun complex-log-scaled (z j)
-  "Compute log(2^j*z).
+  _N"Compute log(2^j*z).
 
 This is for use with J /= 0 only when |z| is huge."
   (declare (number z)
@@ -1327,7 +1330,7 @@ This is for use with J /= 0 only when |z| is huge."
 				z)))))
 
 (defun complex-log (z)
-  "Log of Z = log |Z| + i * arg Z
+  _N"Log of Z = log |Z| + i * arg Z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1342,7 +1345,7 @@ Z may be any number, but the result is always a complex."
 ;; never 0 since we have positive and negative zeroes.
 
 (defun complex-atanh (z)
-  "Compute atanh z = (log(1+z) - log(1-z))/2"
+  _N"Compute atanh z = (log(1+z) - log(1-z))/2"
   (declare (number z))
   #+double-double
   (when (typep z '(or double-double-float (complex double-double-float)))
@@ -1406,7 +1409,7 @@ Z may be any number, but the result is always a complex."
 				  z)))))
 
 (defun complex-tanh (z)
-  "Compute tanh z = sinh z / cosh z"
+  _N"Compute tanh z = sinh z / cosh z"
   (declare (number z))
   #+double-double
   (when (typep z '(or double-double-float (complex double-double-float)))
@@ -1491,7 +1494,7 @@ Z may be any number, but the result is always a complex."
   (complex (+ (realpart z) 1) (imagpart z)))
 
 (defun complex-acos (z)
-  "Compute acos z = pi/2 - asin z
+  _N"Compute acos z = pi/2 - asin z
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1510,7 +1513,7 @@ Z may be any number, but the result is always a complex."
 				       sqrt-1-z))))))))
 
 (defun complex-acosh (z)
-  "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
+  _N"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1524,7 +1527,7 @@ Z may be any number, but the result is always a complex."
 
 
 (defun complex-asin (z)
-  "Compute asin z = asinh(i*z)/i
+  _N"Compute asin z = asinh(i*z)/i
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1543,7 +1546,7 @@ Z may be any number, but the result is always a complex."
 				       sqrt-1+z))))))))
 
 (defun complex-asinh (z)
-  "Compute asinh z = log(z + sqrt(1 + z*z))
+  _N"Compute asinh z = log(z + sqrt(1 + z*z))
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1557,7 +1560,7 @@ Z may be any number, but the result is always a complex."
 	     (- (realpart result)))))
 	 
 (defun complex-atan (z)
-  "Compute atan z = atanh (i*z) / i
+  _N"Compute atan z = atanh (i*z) / i
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
@@ -1571,7 +1574,7 @@ Z may be any number, but the result is always a complex."
 	     (- (realpart result)))))
 
 (defun complex-tan (z)
-  "Compute tan z = -i * tanh(i * z)
+  _N"Compute tan z = -i * tanh(i * z)
 
 Z may be any number, but the result is always a complex."
   (declare (number z))
diff --git a/code/kernel.lisp b/code/kernel.lisp
index eb517322cfe6d2be1332e5a76a570e11a7918f14..db38e4130c7d2b5b70e08f7792854947a5b53ca9 100644
--- a/code/kernel.lisp
+++ b/code/kernel.lisp
@@ -5,118 +5,120 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.16 2006/06/30 18:41:22 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.17 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;;    
 (in-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (export '(allocate-vector make-array-header function-subtype))
 
 
 (defun get-header-data (x)
-  "Return the 24 bits of data in the header of object X, which must be an
+  _N"Return the 24 bits of data in the header of object X, which must be an
   other-pointer object."
   (get-header-data x))
 
 (defun set-header-data (x val)
-  "Sets the 24 bits of data in the header of object X (which must be an
+  _N"Sets the 24 bits of data in the header of object X (which must be an
   other-pointer object) to VAL."
   (set-header-data x val))
 
 (defun get-closure-length (x)
-  "Returns the length of the closure X.  This is one more than the number
+  _N"Returns the length of the closure X.  This is one more than the number
   of variables closed over."
   (get-closure-length x))
 
 (defun get-lowtag (x)
-  "Returns the three-bit lowtag for the object X."
+  _N"Returns the three-bit lowtag for the object X."
   (get-lowtag x))
 
 (defun get-type (x)
-  "Returns the 8-bit header type for the object X."
+  _N"Returns the 8-bit header type for the object X."
   (get-type x))
 
 (defun vector-sap (x)
-  "Return a System-Area-Pointer pointing to the data for the vector X, which
+  _N"Return a System-Area-Pointer pointing to the data for the vector X, which
   must be simple."
   (declare (type (simple-unboxed-array (*)) x))
   (vector-sap x))
 
 
 (defun c::binding-stack-pointer-sap ()
-  "Return a System-Area-Pointer pointing to the end of the binding stack."
+  _N"Return a System-Area-Pointer pointing to the end of the binding stack."
   (c::binding-stack-pointer-sap))
 
 (defun c::dynamic-space-free-pointer ()
-  "Returns a System-Area-Pointer pointing to the next free work of the current
+  _N"Returns a System-Area-Pointer pointing to the next free work of the current
   dynamic space."
   (c::dynamic-space-free-pointer))
 
 (defun c::control-stack-pointer-sap ()
-  "Return a System-Area-Pointer pointing to the end of the control stack."
+  _N"Return a System-Area-Pointer pointing to the end of the control stack."
   (c::control-stack-pointer-sap))
 
 (defun function-subtype (function)
-  "Return the header typecode for FUNCTION.  Can be set with SETF."
+  _N"Return the header typecode for FUNCTION.  Can be set with SETF."
   (function-subtype function))
 
 (defun (setf function-subtype) (type function)
   (setf (function-subtype function) type))
 
 (defun %function-arglist (func)
-  "Extracts the arglist from the function header FUNC."
+  _N"Extracts the arglist from the function header FUNC."
   (%function-arglist func))
 
 (defun %function-name (func)
-  "Extracts the name from the function header FUNC."
+  _N"Extracts the name from the function header FUNC."
   (%function-name func))
 
 (defun %function-type (func)
-  "Extracts the type from the function header FUNC."
+  _N"Extracts the type from the function header FUNC."
   (%function-type func))
 
 (defun %closure-function (closure)
-  "Extracts the function from CLOSURE."
+  _N"Extracts the function from CLOSURE."
   (%closure-function closure))
 
 (defun c::vector-length (vector)
-  "Return the length of VECTOR.  There is no reason to use this, 'cause
+  _N"Return the length of VECTOR.  There is no reason to use this, 'cause
   (length (the vector foo)) is the same."
   (c::vector-length vector))
 
 (defun %sxhash-simple-string (string)
-  "Return the SXHASH for the simple-string STRING."
+  _N"Return the SXHASH for the simple-string STRING."
   (%sxhash-simple-string string))
 
 (defun %sxhash-simple-substring (string length)
-  "Return the SXHASH for the first LENGTH characters of the simple-string
+  _N"Return the SXHASH for the first LENGTH characters of the simple-string
   STRING."
   (%sxhash-simple-substring string length))
 
 (defun %closure-index-ref (closure index)
-  "Extract the INDEXth slot from CLOSURE."
+  _N"Extract the INDEXth slot from CLOSURE."
   (%closure-index-ref closure index))
 
 
 (defun allocate-vector (type length words)
-  "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and
+  _N"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and
   WORDS words long.  Note: it is your responsibility to assure that the
   relation between LENGTH and WORDS is correct."
   (allocate-vector type length words))
 
 (defun make-array-header (type rank)
-  "Allocate an array header with type code TYPE and rank RANK."
+  _N"Allocate an array header with type code TYPE and rank RANK."
   (make-array-header type rank))
 
 
 (defun code-instructions (code-obj)
-  "Return a SAP pointing to the instructions part of CODE-OBJ."
+  _N"Return a SAP pointing to the instructions part of CODE-OBJ."
   (code-instructions code-obj))
 
 (defun code-header-ref (code-obj index)
-  "Extract the INDEXth element from the header of CODE-OBJ.  Can be set with
+  _N"Extract the INDEXth element from the header of CODE-OBJ.  Can be set with
   setf."
   (code-header-ref code-obj index))
 
diff --git a/code/linux-os.lisp b/code/linux-os.lisp
index a51fa904c7db5d0c7221d295ea7f0baefa811f56..29095ce20e60addb294b84bbfd42db042134398b 100644
--- a/code/linux-os.lisp
+++ b/code/linux-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/linux-os.lisp,v 1.8 2009/06/11 16:03:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/linux-os.lisp,v 1.9 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl-linux-os")
+ 
 (export '(get-system-info get-page-size os-init))
 
 (register-lisp-feature :linux)
@@ -30,7 +32,7 @@
 ;;; select() in Linux kernel 2.6.x) and instead of running uname -r,
 ;;; let's just get the info from uname().
 (defun software-version ()
-  "Returns a string describing version of the supporting software."
+  _N"Returns a string describing version of the supporting software."
   (multiple-value-bind (sysname nodename release version)
       (unix:unix-uname)
     (declare (ignore sysname nodename))
@@ -52,7 +54,7 @@
 		       (unix:unix-getrusage unix:rusage_self)
     (declare (ignore maxrss ixrss idrss isrss minflt))
     (unless err?
-      (error "Unix system call getrusage failed: ~A."
+      (error _"Unix system call getrusage failed: ~A."
 	     (unix:get-unix-error-msg utime)))
     
     (values utime stime majflt)))
@@ -66,6 +68,6 @@
   (multiple-value-bind (val err)
       (unix:unix-getpagesize)
     (unless val
-      (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
+      (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
     val))
 
diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index d4dd494a4485f9fba3b2de4c05a8edff8c37cb43..d0e742bd1227148cf2d5216f112961e76067f8d7 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.79 2009/06/11 16:03:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.80 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,12 +15,13 @@
 ;;; Written by Skef Wholey and Rob MacLachlan.
 ;;;
 (in-package :lisp)
+(intl:textdomain "cmucl")
 
 (export '(most-positive-fixnum most-negative-fixnum sleep
 	  ++ +++ ** *** // ///))
 
 (defvar *features* '(:common :common-lisp :ansi-cl :ieee-floating-point :cmu)
-  "Holds a list of symbols that describe features provided by the
+  _N"Holds a list of symbols that describe features provided by the
    implementation.")
 
 
@@ -28,7 +29,7 @@
 (export '(compiler-version scrub-control-stack *runtime-features*))
 
 (defvar *runtime-features* nil
-  "Features affecting the runtime")
+  _N"Features affecting the runtime")
 
 (in-package :extensions)
 (export '(quit *prompt*))
@@ -47,10 +48,10 @@
 ;;; Make the error system enable interrupts.
 
 (defconstant most-positive-fixnum #.vm:target-most-positive-fixnum
-  "The fixnum closest in value to positive infinity.")
+  _N"The fixnum closest in value to positive infinity.")
 
 (defconstant most-negative-fixnum #.vm:target-most-negative-fixnum
-  "The fixnum closest in value to negative infinity.")
+  _N"The fixnum closest in value to negative infinity.")
 
 
 ;;; Random information:
@@ -141,11 +142,11 @@
 (in-package "CONDITIONS")
 
 (defvar *break-on-signals* nil
-  "When (typep condition *break-on-signals*) is true, then calls to SIGNAL will
+  _N"When (typep condition *break-on-signals*) is true, then calls to SIGNAL will
    enter the debugger prior to signalling that condition.")
 
 (defun signal (datum &rest arguments)
-  "Invokes the signal facility on a condition formed from datum and arguments.
+  _N"Invokes the signal facility on a condition formed from datum and arguments.
    If the condition is not handled, nil is returned.  If
    (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked before
    any signalling is done."
@@ -155,7 +156,7 @@
     (let ((obos *break-on-signals*)
 	  (*break-on-signals* nil))
       (when (typep condition obos)
-	(break "~A~%Break entered because of *break-on-signals* (now NIL.)"
+	(break _"~A~%Break entered because of *break-on-signals* (now NIL.)"
 	       condition)))
     (loop
       (unless *handler-clusters* (return))
@@ -172,11 +173,11 @@
 (defun coerce-to-condition (datum arguments default-type function-name)
   (cond ((typep datum 'condition)
 	 (if arguments
-	     (cerror "Ignore the additional arguments."
+	     (cerror _"Ignore the additional arguments."
 		     'simple-type-error
 		     :datum arguments
 		     :expected-type 'null
-		     :format-control "You may not supply additional arguments ~
+		     :format-control _"You may not supply additional arguments ~
 				     when giving ~S to ~S."
 		     :format-arguments (list datum function-name)))
 	 datum)
@@ -190,11 +191,11 @@
          (error 'simple-type-error
 		:datum datum
 		:expected-type '(or symbol string)
-		:format-control "Bad argument to ~S: ~S"
+		:format-control _"Bad argument to ~S: ~S"
 		:format-arguments (list function-name datum)))))
 
 (defun error (datum &rest arguments)
-  "Invokes the signal facility on a condition formed from datum and arguments.
+  _N"Invokes the signal facility on a condition formed from datum and arguments.
    If the condition is not handled, the debugger is invoked."
   (kernel:infinite-error-protect
     (let ((condition (coerce-to-condition datum arguments
@@ -240,10 +241,10 @@
   nil)
 
 (defun break (&optional (datum "Break") &rest arguments)
-  "Prints a message and invokes the debugger without allowing any possibility
+  _N"Prints a message and invokes the debugger without allowing any possibility
    of condition handling occurring."
   (kernel:infinite-error-protect
-    (with-simple-restart (continue "Return from BREAK.")
+    (with-simple-restart (continue _"Return from BREAK.")
       (let ((debug:*stack-top-hint*
 	     (or debug:*stack-top-hint*
 		 (nth-value 1 (kernel:find-caller-name)))))
@@ -252,24 +253,25 @@
   nil)
 
 (defun warn (datum &rest arguments)
-  "Warns about a situation by signalling a condition formed by datum and
+  _N"Warns about a situation by signalling a condition formed by datum and
    arguments.  While the condition is being signaled, a muffle-warning restart
    exists that causes WARN to immediately return nil."
   (kernel:infinite-error-protect
     (let ((condition (coerce-to-condition datum arguments
 					  'simple-warning 'warn)))
-      (check-type condition warning "a warning condition")
+      (check-type condition warning _"a warning condition")
       (restart-case (signal condition)
 	(muffle-warning ()
-	  :report "Skip warning."
+	  :report (lambda (stream)
+		    (write-string _"Skip warning." stream))
 	  (return-from warn nil)))
-      (format *error-output* "~&~@<Warning:  ~3i~:_~A~:>~%" condition)))
+      (format *error-output* _"~&~@<Warning:  ~3i~:_~A~:>~%" condition)))
   nil)
 
 ;;; Utility functions
 
 (defun simple-program-error (datum &rest arguments)
-  "Invokes the signal facility on a condition formed from datum and arguments.
+  _N"Invokes the signal facility on a condition formed from datum and arguments.
    If the condition is not handled, the debugger is invoked.  This function
    is just like error, except that the condition type defaults to the type
    simple-program-error, instead of program-error."
@@ -325,7 +327,7 @@
     str))
 
 (defun %initial-function ()
-  "Gives the world a shove and hopes it spins."
+  _N"Gives the world a shove and hopes it spins."
   (%primitive print "In initial-function, and running.")
   #-gengc (setf *already-maybe-gcing* t)
   #-gengc (setf *gc-inhibit* t)
@@ -339,6 +341,8 @@
   (setf *break-on-signals* nil)
   (setf unix::*filename-encoding* nil)
   #+gengc (setf conditions::*handler-clusters* nil)
+  (setq intl::*default-domain* "cmucl")
+  (setq intl::*locale* "C")
 
   ;; Many top-level forms call INFO, (SETF INFO).
   (print-and-call c::globaldb-init)
@@ -349,6 +353,7 @@
   ;; Some of the random top-level forms call Make-Array, which calls Subtypep
   (print-and-call typedef-init)
   (print-and-call class-init)
+
   (print-and-call type-init)
 
   (let ((funs (nreverse *lisp-initialization-functions*)))
@@ -405,12 +410,14 @@
   (setf (alien:extern-alien "internal_errors_enabled" boolean) t)
 
   (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
+
   ;; This is necessary because some of the initial top level forms might
   ;; have changed the compilation policy in strange ways.
   (print-and-call c::proclaim-init)
 
   (print-and-call kernel::class-finalize)
 
+  (setq intl::*default-domain* nil)
   (%primitive print "Done initializing.")
 
   #-gengc (setf *already-maybe-gcing* nil)
@@ -477,12 +484,12 @@
 ;;;; Miscellaneous external functions:
 
 (defvar *cleanup-functions* nil
-  "Functions to be invoked during cleanup at Lisp exit.")
+  _N"Functions to be invoked during cleanup at Lisp exit.")
 
 ;;; Quit gets us out, one way or another.
 
 (defun quit (&optional recklessly-p)
-  "Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is
+  _N"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is
   non-Nil."
   (if recklessly-p
       (unix:unix-exit 0)
@@ -493,7 +500,7 @@
 
 #-mp ; Multi-processing version defined in multi-proc.lisp.
 (defun sleep (n)
-  "This function causes execution to be suspended for N seconds.  N may
+  _N"This function causes execution to be suspended for N seconds.  N may
   be any non-negative, non-complex number."
   (when (or (not (realp n))
 	    (minusp n))
@@ -526,7 +533,7 @@
 ;;;
 #-(or x86 amd64)
 (defun %scrub-control-stack ()
-  "Zero the unused portion of the control stack so that old objects are not
+  _N"Zero the unused portion of the control stack so that old objects are not
    kept alive because of uninitialized stack variables."
   (declare (optimize (speed 3) (safety 0))
 	   (values (unsigned-byte 20)))
@@ -565,7 +572,7 @@
 ;;; demand stacks the stack must be decreased as it is scrubbed.
 ;;;
 (defun scrub-control-stack ()
-  "Zero the unused portion of the control stack so that old objects are not
+  _N"Zero the unused portion of the control stack so that old objects are not
    kept alive because of uninitialized stack variables."
   ;;
   ;; The guard zone of the control stack is used by Lisp sometimes,
@@ -582,25 +589,25 @@
 ;;;; TOP-LEVEL loop.
 
 (defvar / nil
-  "Holds a list of all the values returned by the most recent top-level EVAL.")
-(defvar // nil "Gets the previous value of / when a new value is computed.")
-(defvar /// nil "Gets the previous value of // when a new value is computed.")
-(defvar * nil "Holds the value of the most recent top-level EVAL.")
-(defvar ** nil "Gets the previous value of * when a new value is computed.")
-(defvar *** nil "Gets the previous value of ** when a new value is computed.")
-(defvar + nil "Holds the value of the most recent top-level READ.")
-(defvar ++ nil "Gets the previous value of + when a new value is read.")
-(defvar +++ nil "Gets the previous value of ++ when a new value is read.")
-(defvar - nil "Holds the form curently being evaluated.")
+  _N"Holds a list of all the values returned by the most recent top-level EVAL.")
+(defvar // nil _N"Gets the previous value of / when a new value is computed.")
+(defvar /// nil _N"Gets the previous value of // when a new value is computed.")
+(defvar * nil _N"Holds the value of the most recent top-level EVAL.")
+(defvar ** nil _N"Gets the previous value of * when a new value is computed.")
+(defvar *** nil _N"Gets the previous value of ** when a new value is computed.")
+(defvar + nil _N"Holds the value of the most recent top-level READ.")
+(defvar ++ nil _N"Gets the previous value of + when a new value is read.")
+(defvar +++ nil _N"Gets the previous value of ++ when a new value is read.")
+(defvar - nil _N"Holds the form curently being evaluated.")
 (defvar *prompt* "* "
-  "The top-level prompt string.  This also may be a function of no arguments
+  _N"The top-level prompt string.  This also may be a function of no arguments
    that returns a simple-string.")
 (defvar *in-top-level-catcher* nil
-  "True if we are within the Top-Level-Catcher.  This is used by interrupt
+  _N"True if we are within the Top-Level-Catcher.  This is used by interrupt
   handlers to see whether it is o.k. to throw.")
 
 (defun interactive-eval (form)
-  "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,
+  _N"Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,
   +, ///, //, /, and -."
   (when (and (fboundp 'commandp) (funcall 'commandp form))
     (return-from interactive-eval (funcall 'invoke-command-interactive form)))
@@ -619,29 +626,29 @@
   (unless (boundp '*)
     ;; The bogon returned an unbound marker.
     (setf * nil)
-    (cerror "Go on with * set to NIL."
-	    "EVAL returned an unbound marker."))
+    (cerror _"Go on with * set to NIL."
+	    _"EVAL returned an unbound marker."))
   (values-list /))
 
 
 (defconstant eofs-before-quit 10)
 
 (defparameter *reserved-heap-pages* 256
-  "How many pages to reserve from the total heap space so we can handle
+  _N"How many pages to reserve from the total heap space so we can handle
 heap overflow.")
 
 #+heap-overflow-check
 (alien:def-alien-variable "reserved_heap_pages" c-call:unsigned-long)
 
 (defun %top-level ()
-  "Top-level READ-EVAL-PRINT loop.  Do not call this."
+  _N"Top-level READ-EVAL-PRINT loop.  Do not call this."
   (let  ((* nil) (** nil) (*** nil)
 	 (- nil) (+ nil) (++ nil) (+++ nil)
 	 (/// nil) (// nil) (/ nil)
 	 (magic-eof-cookie (cons :eof nil))
 	 (number-of-eofs 0))
     (loop
-      (with-simple-restart (abort "Return to Top-Level.")
+      (with-simple-restart (abort _"Return to Top-Level.")
 	(catch 'top-level-catcher
 	  (unix:unix-sigsetmask 0)
 	  (let ((*in-top-level-catcher* t))
@@ -668,14 +675,14 @@ heap overflow.")
 			   (let ((stream (make-synonym-stream '*terminal-io*)))
 			     (setf *standard-input* stream)
 			     (setf *standard-output* stream)
-			     (format t "~&Received EOF on *standard-input*, ~
+			     (format t _"~&Received EOF on *standard-input*, ~
 					switching to *terminal-io*.~%"))))
 		      ((> number-of-eofs eofs-before-quit)
-		       (format t "~&Received more than ~D EOFs; Aborting.~%"
+		       (format t _"~&Received more than ~D EOFs; Aborting.~%"
 			       eofs-before-quit)
 		       (quit))
 		      (t
-		       (format t "~&Received EOF.~%")))))))))))
+		       (format t _"~&Received EOF.~%")))))))))))
 
 
 ;;; %Halt  --  Interface
diff --git a/code/list.lisp b/code/list.lisp
index 2b93671365eb727ada7b6f5dfdcd495c48a5d8ea..55e86480109326f091b07a337e8b46c3ff52734d 100644
--- a/code/list.lisp
+++ b/code/list.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.37 2009/07/17 14:27:10 agoncharov Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.38 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (export '(car cdr caar
 	  cadr cdar cddr caaar caadr cadar caddr cdaar cdadr
 	  cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr
@@ -57,37 +59,37 @@
 
 ;;; These functions perform basic list operations:
 
-(defun car (list) "Returns the 1st object in a list." (car list))
-(defun cdr (list) "Returns all but the first object." (cdr list))
-(defun cadr (list) "Returns the 2nd object in a list." (cadr list))
-(defun cdar (list) "Returns the cdr of the 1st sublist." (cdar list))
-(defun caar (list) "Returns the car of the 1st sublist." (caar list))
-(defun cddr (list) "Returns all but the 1st two objects of a list." (cddr list))
-(defun caddr (list) "Returns the 1st object in the cddr of a list." (caddr list))
-(defun caadr (list) "Returns the 1st object in the cadr of a list." (caadr list))
-(defun caaar (list) "Returns the 1st object in the caar of a list." (caaar list))
-(defun cdaar (list) "Returns the cdr of the caar of a list." (cdaar list))
-(defun cddar (list) "Returns the cdr of the cdar of a list." (cddar list))
-(defun cdddr (list) "Returns the cdr of the cddr of a list." (cdddr list))
-(defun cadar (list) "Returns the car of the cdar of a list." (cadar list))
-(defun cdadr (list) "Returns the cdr of the cadr of a list." (cdadr list))
-(defun caaaar (list) "Returns the car of the caaar of a list." (caaaar list))
-(defun caaadr (list) "Returns the car of the caadr of a list." (caaadr list))
-(defun caaddr (list) "Returns the car of the caddr of a list." (caaddr list))
-(defun cadddr (list) "Returns the car of the cdddr of a list." (cadddr list))
-(defun cddddr (list) "Returns the cdr of the cdddr of a list." (cddddr list))
-(defun cdaaar (list) "Returns the cdr of the caaar of a list." (cdaaar list))
-(defun cddaar (list) "Returns the cdr of the cdaar of a list." (cddaar list))
-(defun cdddar (list) "Returns the cdr of the cddar of a list." (cdddar list))
-(defun caadar (list) "Returns the car of the cadar of a list." (caadar list))
-(defun cadaar (list) "Returns the car of the cdaar of a list." (cadaar list))
-(defun cadadr (list) "Returns the car of the cdadr of a list." (cadadr list))
-(defun caddar (list) "Returns the car of the cddar of a list." (caddar list))
-(defun cdaadr (list) "Returns the cdr of the caadr of a list." (cdaadr list))
-(defun cdadar (list) "Returns the cdr of the cadar of a list." (cdadar list))
-(defun cdaddr (list) "Returns the cdr of the caddr of a list." (cdaddr list))
-(defun cddadr (list) "Returns the cdr of the cdadr of a list." (cddadr list))
-(defun cons (se1 se2) "Returns a list with se1 as the car and se2 as the cdr."
+(defun car (list) _N"Returns the 1st object in a list." (car list))
+(defun cdr (list) _N"Returns all but the first object." (cdr list))
+(defun cadr (list) _N"Returns the 2nd object in a list." (cadr list))
+(defun cdar (list) _N"Returns the cdr of the 1st sublist." (cdar list))
+(defun caar (list) _N"Returns the car of the 1st sublist." (caar list))
+(defun cddr (list) _N"Returns all but the 1st two objects of a list." (cddr list))
+(defun caddr (list) _N"Returns the 1st object in the cddr of a list." (caddr list))
+(defun caadr (list) _N"Returns the 1st object in the cadr of a list." (caadr list))
+(defun caaar (list) _N"Returns the 1st object in the caar of a list." (caaar list))
+(defun cdaar (list) _N"Returns the cdr of the caar of a list." (cdaar list))
+(defun cddar (list) _N"Returns the cdr of the cdar of a list." (cddar list))
+(defun cdddr (list) _N"Returns the cdr of the cddr of a list." (cdddr list))
+(defun cadar (list) _N"Returns the car of the cdar of a list." (cadar list))
+(defun cdadr (list) _N"Returns the cdr of the cadr of a list." (cdadr list))
+(defun caaaar (list) _N"Returns the car of the caaar of a list." (caaaar list))
+(defun caaadr (list) _N"Returns the car of the caadr of a list." (caaadr list))
+(defun caaddr (list) _N"Returns the car of the caddr of a list." (caaddr list))
+(defun cadddr (list) _N"Returns the car of the cdddr of a list." (cadddr list))
+(defun cddddr (list) _N"Returns the cdr of the cdddr of a list." (cddddr list))
+(defun cdaaar (list) _N"Returns the cdr of the caaar of a list." (cdaaar list))
+(defun cddaar (list) _N"Returns the cdr of the cdaar of a list." (cddaar list))
+(defun cdddar (list) _N"Returns the cdr of the cddar of a list." (cdddar list))
+(defun caadar (list) _N"Returns the car of the cadar of a list." (caadar list))
+(defun cadaar (list) _N"Returns the car of the cdaar of a list." (cadaar list))
+(defun cadadr (list) _N"Returns the car of the cdadr of a list." (cadadr list))
+(defun caddar (list) _N"Returns the car of the cddar of a list." (caddar list))
+(defun cdaadr (list) _N"Returns the cdr of the caadr of a list." (cdaadr list))
+(defun cdadar (list) _N"Returns the cdr of the cadar of a list." (cdadar list))
+(defun cdaddr (list) _N"Returns the cdr of the caddr of a list." (cdaddr list))
+(defun cddadr (list) _N"Returns the cdr of the cdadr of a list." (cddadr list))
+(defun cons (se1 se2) _N"Returns a list with se1 as the car and se2 as the cdr."
                       (cons se1 se2))
 
 
@@ -112,19 +114,19 @@
 	(t ())))
 
 (defun tree-equal (x y &key (test #'eql) test-not)
-  "Returns T if X and Y are isomorphic trees with identical leaves."
+  _N"Returns T if X and Y are isomorphic trees with identical leaves."
   (if test-not
       (tree-equal-test-not x y test-not)
       (tree-equal-test x y test)))
 
 
 (defun endp (object)
-  "The recommended way to test for the end of a list.  True if Object is nil,
+  _N"The recommended way to test for the end of a list.  True if Object is nil,
    false if Object is a cons, and an error for any other types of arguments."
   (endp object))
 
 (defun list-length (list)
-  "Returns the length of the given List, or Nil if the List is circular."
+  _N"Returns the length of the given List, or Nil if the List is circular."
   (do ((n 0 (+ n 2))
        (y list (cddr y))
        (z list (cdr z)))
@@ -135,45 +137,45 @@
     (when (and (eq y z) (> n 0)) (return nil))))
 
 (defun nth (n list)
-  "Returns the nth object in a list where the car is the zero-th element."
+  _N"Returns the nth object in a list where the car is the zero-th element."
   (car (nthcdr n list)))
 
 (defun first (list)
-  "Returns the 1st object in a list or NIL if the list is empty."
+  _N"Returns the 1st object in a list or NIL if the list is empty."
   (car list))
 (defun second (list)
-  "Returns the 2nd object in a list or NIL if there is no 2nd object."
+  _N"Returns the 2nd object in a list or NIL if there is no 2nd object."
   (cadr list))
 (defun third (list)
-  "Returns the 3rd object in a list or NIL if there is no 3rd object."
+  _N"Returns the 3rd object in a list or NIL if there is no 3rd object."
   (caddr list))
 (defun fourth (list)
-  "Returns the 4th object in a list or NIL if there is no 4th object."
+  _N"Returns the 4th object in a list or NIL if there is no 4th object."
   (cadddr list))
 (defun fifth (list)
-  "Returns the 5th object in a list or NIL if there is no 5th object."
+  _N"Returns the 5th object in a list or NIL if there is no 5th object."
   (car (cddddr list)))
 (defun sixth (list)
-  "Returns the 6th object in a list or NIL if there is no 6th object."
+  _N"Returns the 6th object in a list or NIL if there is no 6th object."
   (cadr (cddddr list)))
 (defun seventh (list)
-  "Returns the 7th object in a list or NIL if there is no 7th object."
+  _N"Returns the 7th object in a list or NIL if there is no 7th object."
   (caddr (cddddr list)))
 (defun eighth (list)
-  "Returns the 8th object in a list or NIL if there is no 8th object."
+  _N"Returns the 8th object in a list or NIL if there is no 8th object."
   (cadddr (cddddr list)))
 (defun ninth (list)
-  "Returns the 9th object in a list or NIL if there is no 9th object."
+  _N"Returns the 9th object in a list or NIL if there is no 9th object."
   (car (cddddr (cddddr list))))
 (defun tenth (list)
-  "Returns the 10th object in a list or NIL if there is no 10th object."
+  _N"Returns the 10th object in a list or NIL if there is no 10th object."
   (cadr (cddddr (cddddr list))))
 (defun rest (list)
-  "Means the same as the cdr of a list."
+  _N"Means the same as the cdr of a list."
   (cdr list))
 
 (defun nthcdr (n list)
-  "Performs the cdr function n times on a list."
+  _N"Performs the cdr function n times on a list."
   (flet ((fast-nthcdr (n list)
            (declare (type index n))
            (do ((i n (1- i))
@@ -190,7 +192,7 @@
            (declare (type index i)))))))
 
 (defun last (list &optional (n 1))
-  "Returns the last N conses (not the last element!) of a list."
+  _N"Returns the last N conses (not the last element!) of a list."
   (declare (type unsigned-byte n))
   (if (typep n 'index)
       (do ((checked-list list (cdr checked-list))
@@ -203,14 +205,14 @@
       list))
 
 (defun list (&rest args)
-  "Returns constructs and returns a list of its arguments."
+  _N"Returns constructs and returns a list of its arguments."
   args)
 
 ;;; List* is done the same as list, except that the last cons is made a
 ;;; dotted pair
 
 (defun list* (arg &rest others)
-  "Returns a list of the arguments with last cons a dotted pair"
+  _N"Returns a list of the arguments with last cons a dotted pair"
   (cond ((atom others) arg)
 	((atom (cdr others)) (cons arg (car others)))
 	(t (do ((x others (cdr x)))
@@ -218,7 +220,7 @@
 	   (cons arg others))))
 
 (defun make-list (size &key initial-element)
-  "Constructs a list with size elements each set to value"
+  _N"Constructs a list with size elements each set to value"
   (declare (type index size))
   (do ((count size (1- count))
        (result '() (cons initial-element result)))
@@ -248,7 +250,7 @@
   (error 'simple-type-error
 	 :datum list
 	 :expected-type '(satisfies proper-list-p)
-	 :format-control "~S is not a proper list"
+	 :format-control _"~S is not a proper list"
 	 :format-arguments (list list)))
 
 ;;; The outer loop finds the first non-null list and the result is started.
@@ -256,7 +258,7 @@
 ;;; using splice which cdr's down the end of the new list
 
 (defun append (&rest args)
-  "Typically, returns a new list that is the concatenation of Args.
+  _N"Typically, returns a new list that is the concatenation of Args.
 
   Each Arg in Args must be a proper list except the last one, which
   may be any object.  The function is not destructive: for all but the
@@ -271,7 +273,7 @@
     (cond ((null (car top)))				; Nil -> Keep looping
 	  ((not (consp (car top)))			; Non cons
 	   (if (cdr top)
-	       (error "~S is not a list." (car top))
+	       (error _"~S is not a list." (car top))
 	       (return (car top))))
 	  (t						; Start appending
 	   (return
@@ -297,7 +299,7 @@
 			   (setq
 			    splice
 			    (cdr (rplacd splice (cons (car x) ())))))
-			 (error "~S is not a list." (car y)))))))))))
+			 (error _"~S is not a list." (car y)))))))))))
   
 
 ;;; List Copying Functions
@@ -307,7 +309,7 @@
 ;;; of the new list
 
 (defun copy-list (list)
-  "Returns a new list EQUAL but not EQ to list"
+  _N"Returns a new list EQUAL but not EQ to list"
   (if (atom list)
       list
       (let ((result (list (car list))))
@@ -320,7 +322,7 @@
 	result)))
 
 (defun copy-alist (alist)
-  "Returns a new association list equal to alist, constructed in space"
+  _N"Returns a new association list equal to alist, constructed in space"
   (if (atom alist)
       alist
       (let ((result
@@ -342,7 +344,7 @@
 	result)))
 
 (defun copy-tree (object)
-  "Copy-Tree recursively copys trees of conses."
+  _N"Copy-Tree recursively copys trees of conses."
   (if (consp object)
       (cons (copy-tree (car object)) (copy-tree (cdr object)))
       object))
@@ -351,7 +353,7 @@
 ;;; More Commonly-used List Functions
 
 (defun revappend (x y)
-  "Returns (append (reverse x) y)"
+  _N"Returns (append (reverse x) y)"
   (do ((top x (cdr top))
        (result y (cons (car top) result)))
       ((endp top) result)))
@@ -368,7 +370,7 @@
 ;;; argument to be circular.
 ;;;
 (defun nconc (&rest lists)
-  "Concatenates the lists given as arguments (by changing them)"
+  _N"Concatenates the lists given as arguments (by changing them)"
   (do ((top lists (cdr top)))
       ((null top) nil)
     (let ((top-of-top (car top)))
@@ -384,19 +386,19 @@
 		       (setf splice ele))
 		 (null (rplacd (last splice) nil))
 		 (atom (if (cdr elements)
-			   (error "Argument is not a list -- ~S." ele)
+			   (error _"Argument is not a list -- ~S." ele)
 			   (rplacd (last splice) ele)))
-		 (t (error "Argument is not a list -- ~S." ele)))))
+		 (t (error _"Argument is not a list -- ~S." ele)))))
 	   (return result)))
 	(null)
 	(atom
 	 (if (cdr top)
-	     (error "Argument is not a list -- ~S." top-of-top)
+	     (error _"Argument is not a list -- ~S." top-of-top)
 	     (return top-of-top)))
-	(t (error "Argument is not a list -- ~S." top-of-top))))))
+	(t (error _"Argument is not a list -- ~S." top-of-top))))))
 
 (defun nreconc (x y)
-  "Returns (nconc (nreverse x) y)"
+  _N"Returns (nconc (nreverse x) y)"
   (do ((1st (cdr x) (if (atom 1st) 1st (cdr 1st)))
        (2nd x 1st)		;2nd follows first down the list.
        (3rd y 2nd))		;3rd follows 2nd down the list.
@@ -409,13 +411,13 @@
 	   (error 'simple-type-error
 		  :datum 2nd
 		  :expected-type 'list
-		  :format-control "First argument is not a proper list."
+		  :format-control _"First argument is not a proper list."
 		  :format-arguments nil)
 	   3rd))
     (rplacd 2nd 3rd)))
 
 (defun butlast (list &optional (n 1))
-  "Returns a new list the same as List without the last N conses.
+  _N"Returns a new list the same as List without the last N conses.
    List must not be circular."
   (declare (list list) (type unsigned-byte n))
   (when (and list (typep n 'index))
@@ -433,7 +435,7 @@
 	  (setq splice (cdr (rplacd splice (list (car top))))))))))
 
 (defun nbutlast (list &optional (n 1))
-  "Modifies List to remove the last N conses. List must not be circular."
+  _N"Modifies List to remove the last N conses. List must not be circular."
   (declare (list list) (type unsigned-byte n))
   (when (and list (typep n 'index))
     (let ((length (do ((list list (cdr list))
@@ -450,7 +452,7 @@
 	  (declare (type index count)))))))
 
 (defun ldiff (list object)
-  "Returns a new list, whose elements are those of List that appear before
+  _N"Returns a new list, whose elements are those of List that appear before
    Object.  If Object is not a tail of List, a copy of List is returned.
    List must be a proper list or a dotted list."
   (do* ((list list (cdr list))
@@ -467,11 +469,11 @@
 ;;; Functions to alter list structure
 
 (defun rplaca (x y)
-  "Changes the car of x to y and returns the new x."
+  _N"Changes the car of x to y and returns the new x."
   (rplaca x y))
 
 (defun rplacd (x y)
-  "Changes the cdr of x to y and returns the new x."
+  _N"Changes the cdr of x to y and returns the new x."
   (rplacd x y))
 
 ;;; The following are for use by SETF.
@@ -482,11 +484,11 @@
 
 (defun %setnth (n list newval)
   (declare (type index n))
-  "Sets the Nth element of List (zero based) to Newval."
+  _N"Sets the Nth element of List (zero based) to Newval."
   (do ((count n (1- count))
        (list list (cdr list)))
       ((endp list)
-       (error "~S is too large an index for SETF of NTH." n))
+       (error _"~S is too large an index for SETF of NTH." n))
     (declare (fixnum count))
     (when (<= count 0)
       (rplaca list newval)
@@ -505,12 +507,12 @@
        ,element))
 
 (defun identity (thing)
-  "Returns what was passed to it."
+  _N"Returns what was passed to it."
   thing)
 
 
 (defun complement (function)
-  "Builds a new function that returns T whenever FUNCTION returns NIL and
+  _N"Builds a new function that returns T whenever FUNCTION returns NIL and
    NIL whenever FUNCTION returns T."
   #'(lambda (&optional (arg0 nil arg0-p) (arg1 nil arg1-p) (arg2 nil arg2-p)
 		       &rest more-args)
@@ -523,7 +525,7 @@
 
 (defun constantly (value &optional (val1 nil val1-p) (val2 nil val2-p)
 			 &rest more-values)
-  "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+  _N"Builds a function that always returns VALUE, and posisbly MORE-VALUES."
   (cond (more-values
 	 (let ((list (list* value val1 val2 more-values)))
 	   #'(lambda ()
@@ -564,7 +566,7 @@
 
 
 (defun subst (new old tree &key key (test #'eql testp) (test-not nil notp))
-  "Substitutes new for subtrees matching old."
+  _N"Substitutes new for subtrees matching old."
   (labels ((s (subtree)
 	      (cond ((satisfies-the-test old subtree) new)
 		    ((atom subtree) subtree)
@@ -577,7 +579,7 @@
     (s tree)))
 
 (defun subst-if (new test tree &key key)
-  "Substitutes new for subtrees for which test is true."
+  _N"Substitutes new for subtrees for which test is true."
   (labels ((s (subtree)
 	      (cond ((funcall test (apply-key key subtree)) new)
 		    ((atom subtree) subtree)
@@ -590,7 +592,7 @@
     (s tree)))
 
 (defun subst-if-not (new test tree &key key)
-  "Substitutes new for subtrees for which test is false."
+  _N"Substitutes new for subtrees for which test is false."
   (labels ((s (subtree)
 	      (cond ((not (funcall test (apply-key key subtree))) new)
 		    ((atom subtree) subtree)
@@ -603,7 +605,7 @@
     (s tree)))
 
 (defun nsubst (new old tree &key key (test #'eql testp) (test-not nil notp))
-  "Substitutes new for subtrees matching old."
+  _N"Substitutes new for subtrees matching old."
   (labels ((s (subtree)
 	      (cond ((satisfies-the-test old subtree) new)
 		    ((atom subtree) subtree)
@@ -619,7 +621,7 @@
     (s tree)))
 
 (defun nsubst-if (new test tree &key key)
-  "Substitutes new for subtrees of tree for which test is true."
+  _N"Substitutes new for subtrees of tree for which test is true."
   (labels ((s (subtree)
 	      (cond ((funcall test (apply-key key subtree)) new)
 		    ((atom subtree) subtree)
@@ -635,7 +637,7 @@
     (s tree)))
 
 (defun nsubst-if-not (new test tree &key key)
-  "Substitutes new for subtrees of tree for which test is false."
+  _N"Substitutes new for subtrees of tree for which test is false."
   (labels ((s (subtree)
 	      (cond ((not (funcall test (apply-key key subtree))) new)
 		    ((atom subtree) subtree)
@@ -654,7 +656,7 @@
 
 
 (defun sublis (alist tree &key key (test #'eql) (test-not nil notp))
-  "Substitutes from alist into tree nondestructively."
+  _N"Substitutes from alist into tree nondestructively."
   (declare (inline assoc))
   (labels ((s (subtree)
 	     (let* ((key-val (apply-key key subtree))
@@ -680,7 +682,7 @@
 	  (assoc ,key-tmp alist :test test)))))
 
 (defun nsublis (alist tree &key key (test #'eql) (test-not nil notp))
-  "Substitutes new for subtrees matching old."
+  _N"Substitutes new for subtrees matching old."
   (declare (inline assoc))
   (let (temp)
     (labels ((s (subtree)
@@ -702,7 +704,7 @@
 ;;;; Functions for using lists as sets
 
 (defun member (item list &key key (test #'eql testp) (test-not nil notp))
-  "Returns tail of list beginning with first element satisfying EQLity,
+  _N"Returns tail of list beginning with first element satisfying EQLity,
    :test, or :test-not with a given item."
   (do ((list list (cdr list)))
       ((null list) nil)
@@ -711,21 +713,21 @@
 	  (return list)))))
 
 (defun member-if (test list &key key)
-  "Returns tail of list beginning with first element satisfying test(element)"
+  _N"Returns tail of list beginning with first element satisfying test(element)"
   (do ((list list (Cdr list)))
       ((endp list) nil)
     (if (funcall test (apply-key key (car list)))
 	(return list))))
 
 (defun member-if-not (test list &key key)
-  "Returns tail of list beginning with first element not satisfying test(el)"
+  _N"Returns tail of list beginning with first element not satisfying test(el)"
   (do ((list list (cdr list)))
       ((endp list) ())
     (if (not (funcall test (apply-key key (car list))))
 	(return list))))
 
 (defun tailp (object list)
-  "Returns true if Object is the same as some tail of List, otherwise
+  _N"Returns true if Object is the same as some tail of List, otherwise
    returns false. List must be a proper list or a dotted list."
   (do ((list list (cdr list)))
       ((atom list) (eql list object))
@@ -733,7 +735,7 @@
 	(return t))))
 
 (defun adjoin (item list &key key (test #'eql) (test-not nil notp))
-  "Add item to list unless it is already a member"
+  _N"Add item to list unless it is already a member"
   (declare (inline member))
   (if (let ((key-val (apply-key key item)))
 	(if notp
@@ -751,9 +753,9 @@
 ;;; order.
 ;;;
 (defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp))
-  "Returns the union of list1 and list2."
+  _N"Returns the union of list1 and list2."
   (declare (inline member))
-  (when (and testp notp) (error "Test and test-not both supplied."))
+  (when (and testp notp) (error _"Test and test-not both supplied."))
   (let ((res list2))
     (dolist (elt list1)
       (unless (with-set-keys (member (apply-key key elt) list2))
@@ -770,7 +772,7 @@
 	   ,destination temp)))
 
 (defun nunion (list1 list2 &key key (test #'eql testp) (test-not nil notp))
-  "Destructively returns the union list1 and list2."
+  _N"Destructively returns the union list1 and list2."
   (declare (inline member))
   (if (and testp notp)
       (error "Test and test-not both supplied."))
@@ -786,7 +788,7 @@
 
 (defun intersection (list1 list2 &key key
 			   (test #'eql testp) (test-not nil notp))
-  "Returns the intersection of list1 and list2."
+  _N"Returns the intersection of list1 and list2."
   (declare (inline member))
   (if (and testp notp)
       (error "Test and test-not both supplied."))
@@ -798,7 +800,7 @@
 
 (defun nintersection (list1 list2 &key key
 			    (test #'eql testp) (test-not nil notp))
-  "Destructively returns the intersection of list1 and list2."
+  _N"Destructively returns the intersection of list1 and list2."
   (declare (inline member))
   (if (and testp notp)
       (error "Test and test-not both supplied."))
@@ -812,7 +814,7 @@
 
 (defun set-difference (list1 list2 &key key
 			     (test #'eql testp) (test-not nil notp))
-  "Returns the elements of list1 which are not in list2."
+  _N"Returns the elements of list1 which are not in list2."
   (declare (inline member))
   (if (and testp notp)
       (error "Test and test-not both supplied."))
@@ -827,7 +829,7 @@
 
 (defun nset-difference (list1 list2 &key key
 			      (test #'eql testp) (test-not nil notp))
-  "Destructively returns the elements of list1 which are not in list2."
+  _N"Destructively returns the elements of list1 which are not in list2."
   (declare (inline member))
   (if (and testp notp)
       (error "Test and test-not both supplied."))
@@ -842,7 +844,7 @@
 
 (defun set-exclusive-or (list1 list2 &key key
                          (test #'eql testp) (test-not nil notp))
-  "Return new list of elements appearing exactly once in LIST1 and LIST2."
+  _N"Return new list of elements appearing exactly once in LIST1 and LIST2."
   (declare (inline member))
   (let ((result nil)
         (key (when key (coerce key 'function)))
@@ -874,7 +876,7 @@
 
 (defun nset-exclusive-or (list1 list2
 				&key key (test #'eql testp) (test-not #'eql notp))
-  "Destructively return a list with elements which appear but once in LIST1
+  _N"Destructively return a list with elements which appear but once in LIST1
    and LIST2."
   (when (and testp notp)
     (error ":TEST and :TEST-NOT were both supplied."))
@@ -927,7 +929,7 @@
 	  (setq splicex x)))))
 
 (defun subsetp (list1 list2 &key key (test #'eql testp) (test-not nil notp))
-  "Returns T if every element in list1 is also in list2."
+  _N"Returns T if every element in list1 is also in list2."
   (declare (inline member))
   (dolist (elt list1)
     (unless (with-set-keys (member (apply-key key elt) list2))
@@ -939,16 +941,16 @@
 ;;; Functions that operate on association lists
 
 (defun acons (key datum alist)
-  "Construct a new alist by adding the pair (key . datum) to alist"
+  _N"Construct a new alist by adding the pair (key . datum) to alist"
   (cons (cons key datum) alist))
 
 (defun pairlis (keys data &optional (alist '()))
-  "Construct an association list from keys and data (adding to alist)"
+  _N"Construct an association list from keys and data (adding to alist)"
   (do ((x keys (cdr x))
        (y data (cdr y)))
       ((and (endp x) (endp y)) alist)
     (if (or (endp x) (endp y)) 
-	(error "The lists of keys and data are of unequal length."))
+	(error _"The lists of keys and data are of unequal length."))
     (setq alist (acons (car x) (car y) alist))))
 
 ;;; In run-time environment, since these guys can be inline expanded.
@@ -960,7 +962,7 @@
 	 (if ,test-guy (return (car alist))))))
 
 (defun assoc (item alist &key key test test-not)
-  "Returns the cons in alist whose car is equal (by a given test or EQL) to
+  _N"Returns the cons in alist whose car is equal (by a given test or EQL) to
    the Item."
   (cond (test
 	 (if key
@@ -977,14 +979,14 @@
 	     (assoc-guts (eql item (caar alist)))))))
 
 (defun assoc-if (predicate alist &key key)
-  "Returns the first cons in alist whose car satisfies the Predicate.  If
+  _N"Returns the first cons in alist whose car satisfies the Predicate.  If
    key is supplied, apply it to the car of each cons before testing."
   (if key
       (assoc-guts (funcall predicate (funcall key (caar alist))))
       (assoc-guts (funcall predicate (caar alist)))))
 
 (defun assoc-if-not (predicate alist &key key)
-  "Returns the first cons in alist whose car does not satisfiy the Predicate.
+  _N"Returns the first cons in alist whose car does not satisfiy the Predicate.
   If key is supplied, apply it to the car of each cons before testing."
   (if key
       (assoc-guts (not (funcall predicate (funcall key (caar alist)))))
@@ -993,7 +995,7 @@
 
 (defun rassoc (item alist &key key test test-not)
   (declare (list alist))
-  "Returns the cons in alist whose cdr is equal (by a given test or EQL) to
+  _N"Returns the cons in alist whose cdr is equal (by a given test or EQL) to
    the Item."
   (cond (test
 	 (if key
@@ -1010,14 +1012,14 @@
 	     (assoc-guts (eql item (cdar alist)))))))
 
 (defun rassoc-if (predicate alist &key key)
-  "Returns the first cons in alist whose cdr satisfies the Predicate.  If key
+  _N"Returns the first cons in alist whose cdr satisfies the Predicate.  If key
   is supplied, apply it to the cdr of each cons before testing."
   (if key
       (assoc-guts (funcall predicate (funcall key (cdar alist))))
       (assoc-guts (funcall predicate (cdar alist)))))
 
 (defun rassoc-if-not (predicate alist &key key)
-  "Returns the first cons in alist whose cdr does not satisfy the Predicate.
+  _N"Returns the first cons in alist whose cdr does not satisfy the Predicate.
   If key is supplied, apply it to the cdr of each cons before testing."
   (if key
       (assoc-guts (not (funcall predicate (funcall key (cdar alist)))))
@@ -1028,7 +1030,7 @@
 ;;;; Mapping functions.
 
 (defun map1 (function original-arglists accumulate take-car)
-  "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.
+  _N"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.
   It Maps function over the arglists in the appropriate way. It is done when any
   of the arglists runs out.  Until then, it CDRs down the arglists calling the
   function and accumulating results as desired."
@@ -1054,45 +1056,45 @@
 
 
 (defun mapc (function list &rest more-lists)
-  "Applies fn to successive elements of lists, returns its second argument."
+  _N"Applies fn to successive elements of lists, returns its second argument."
   (map1 function (cons list more-lists) nil t))
 
 (defun mapcar (function list &rest more-lists)
-  "Applies fn to successive elements of list, returns list of results."
+  _N"Applies fn to successive elements of list, returns list of results."
   (map1 function (cons list more-lists) :list t))
 
 (defun mapcan (function list &rest more-lists)
-  "Applies fn to successive elements of list, returns NCONC of results."
+  _N"Applies fn to successive elements of list, returns NCONC of results."
   (map1 function (cons list more-lists) :nconc t))
 
 (defun mapl (function list &rest more-lists)
-  "Applies fn to successive CDRs of list, returns ()."
+  _N"Applies fn to successive CDRs of list, returns ()."
   (map1 function (cons list more-lists) nil nil))
 
 (defun maplist (function list &rest more-lists)
-  "Applies fn to successive CDRs of list, returns list of results."
+  _N"Applies fn to successive CDRs of list, returns list of results."
   (map1 function (cons list more-lists) :list nil))
 
 (defun mapcon (function list &rest more-lists)
-  "Applies fn to successive CDRs of lists, returns NCONC of results."
+  _N"Applies fn to successive CDRs of lists, returns NCONC of results."
   (map1 function (cons list more-lists) :nconc nil))
 
 
 ;;; Functions for compatibility sake:
 
 (defun memq (item list)
-  "Returns tail of list beginning with first element eq to item"
+  _N"Returns tail of list beginning with first element eq to item"
   (declare (inline member)
 	   (optimize (inhibit-warnings 3))) ; from MEMBER optimizations
   (member item list :test #'eq))
 
 (defun assq (item alist)
-  "Return the first pair of alist where item EQ the key of pair"
+  _N"Return the first pair of alist where item EQ the key of pair"
   (declare (inline assoc))
   (assoc item alist :test #'eq))
 
 (defun delq (item list)
-  "Returns list with all elements with all elements EQ to ITEM deleted."
+  _N"Returns list with all elements with all elements EQ to ITEM deleted."
   (let ((list list))
     (do ((x list (cdr x))
 	 (splice '()))
diff --git a/code/load.lisp b/code/load.lisp
index f358c6c922cc78789c8ddc1e326ebbba102f039b..91046abdb7912fbb42ea7621721bc2f85ada09dc 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.93 2009/06/11 16:03:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.94 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 ;;; Written by Skef Wholey and Rob MacLachlan.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(load *load-verbose* *load-print* *load-truename* *load-pathname*))
 
 (in-package "EXTENSIONS")
@@ -30,39 +32,39 @@
 ;;; Public:
 
 (defvar *load-if-source-newer* :load-object
-  "The default for the :IF-SOURCE-NEWER argument to load.")
+  _N"The default for the :IF-SOURCE-NEWER argument to load.")
 
 (declaim (type (member :load-object :load-source :query :compile)
 	       *load-if-source-newer*))
 
 (defvar *load-source-types* '("lisp" "l" "cl" "lsp")
-  "The source file types which LOAD recognizes.")
+  _N"The source file types which LOAD recognizes.")
 
 (defvar *load-object-types*
   '(#.(c:backend-fasl-file-type c:*backend*)
     #.(c:backend-byte-fasl-file-type c:*backend*)
     "fasl")
-  "A list of the object file types recognized by LOAD.")
+  _N"A list of the object file types recognized by LOAD.")
 
 (defvar *load-lp-object-types*
   '(#.(string-upcase (c:backend-fasl-file-type c:*backend*))
     #.(string-upcase (c:backend-byte-fasl-file-type c:*backend*))
     "FASL")
-  "A list of the object file types recognized by LOAD for logical pathnames.")
+  _N"A list of the object file types recognized by LOAD for logical pathnames.")
 
 (declaim (list *load-source-types* *load-object-types* *load-lp-object-types*))
 
 (defvar *load-verbose* t
-  "The default for the :VERBOSE argument to Load.")
+  _N"The default for the :VERBOSE argument to Load.")
 
 (defvar *load-print* ()
-  "The default for the :PRINT argument to Load.")
+  _N"The default for the :PRINT argument to Load.")
 
 (defvar *load-truename* nil
-  "The TRUENAME of the file that LOAD is currently loading.")
+  _N"The TRUENAME of the file that LOAD is currently loading.")
 
 (defvar *load-pathname* nil
-  "The defaulted pathname that LOAD is currently loading.")
+  _N"The defaulted pathname that LOAD is currently loading.")
 
 (declaim (type (or pathname null) *load-truename* *load-pathname*)) 
 
@@ -70,7 +72,7 @@
 ;;; Internal state variables:
 
 (defvar *load-depth* 0
-  "Count of the number of recursive loads.")
+  _N"Count of the number of recursive loads.")
 (declaim (type index *load-depth*))
 (defvar *fasl-file*)
 (declaim (type lisp-stream *fasl-file*))
@@ -87,7 +89,7 @@
    (expected-version :reader invalid-fasl-expected-version :initarg :expected-version))
   (:report
    (lambda (condition stream)
-     (format stream "~A was compiled for fasl-file version ~X, ~
+     (format stream _"~A was compiled for fasl-file version ~X, ~
                      but this is version ~X"
 	     (invalid-fasl-pathname condition)
 	     (invalid-fasl-version condition)
@@ -116,7 +118,7 @@
 ;;; offset.  We may need to have several, since load can be called recursively.
 
 (defvar *free-fop-tables* (list (make-array 1000))
-  "List of free fop tables for the fasloader.")
+  _N"List of free fop tables for the fasloader.")
 
 ;;; The current fop table.
 (defvar *current-fop-table*)
@@ -153,7 +155,7 @@
 ;;; cheaper to test for overflow that way.
 ;;;
 (defvar *fop-stack* (make-array 100)
-  "The fop stack (we only need one!).")
+  _N"The fop stack (we only need one!).")
 (declaim (simple-vector *fop-stack*))
 
 ;;; The index of the most recently pushed item on the fop-stack.
@@ -215,11 +217,11 @@
 ;;; FOP database:
 
 (defvar fop-codes (make-array 256)
-  "Vector indexed by a FaslOP that yields the FOP's name.")
+  _N"Vector indexed by a FaslOP that yields the FOP's name.")
 
 (defvar fop-functions
-  (make-array 256 :initial-element #'(lambda () (error "Losing FOP!")))
-  "Vector indexed by a FaslOP that yields a function of 0 arguments which
+  (make-array 256 :initial-element #'(lambda () (error _"Losing FOP!")))
+  _N"Vector indexed by a FaslOP that yields a function of 0 arguments which
   will perform the operation.")
 
 (declaim (simple-vector fop-codes fop-functions))
@@ -325,12 +327,12 @@
     (load-fresh-line)
     (let ((name (file-name stream)))
       (if name
-	  (format t "Loading ~S.~%" name)
-	  (format t "Loading stuff from ~S.~%" stream)))))
+	  (format t _"Loading ~S.~%" name)
+	  (format t _"Loading stuff from ~S.~%" stream)))))
 
 (defun fasload (stream)
   (when (zerop (file-length stream))
-    (error "Attempt to load an empty FASL FILE:~%  ~S" (namestring stream)))
+    (error _"Attempt to load an empty FASL FILE:~%  ~S" (namestring stream)))
   (do-load-verbose stream)
   (let* ((*fasl-file* stream)
 	 (*current-fop-table* (or (pop *free-fop-tables*) (make-array 1000)))
@@ -441,8 +443,8 @@
 	     (declare (fixnum byte count))
 	     (if (and (< count 9)
 		      (not (eql byte (char-code (schar "FASL FILE" count)))))
-		 (error "Bad FASL file format."))))
-	  (t (error "Bad FASL file format.")))))
+		 (error _"Bad FASL file format."))))
+	  (t (error _"Bad FASL file format.")))))
 
 
 ;;; Load-S-Integer loads a signed integer Length bytes long from the File.
@@ -493,7 +495,7 @@
 		      (if-source-newer nil if-source-newer-p)
 		      (if-does-not-exist :error) contents
 		      (external-format :default))
-  "Loads the file named by Filename into the Lisp environment.  The file type
+  _N"Loads the file named by Filename into the Lisp environment.  The file type
    (a.k.a extension) is defaulted if missing.  These options are defined:
 
    :IF-SOURCE-NEWER <keyword>
@@ -546,9 +548,10 @@
       (let ((*package* *package*)
 	    (*readtable* *readtable*)
             (*enable-package-locked-errors* *enable-package-locked-errors*)
-	    (*load-depth* (1+ *load-depth*)))
+	    (*load-depth* (1+ *load-depth*))
+	    (intl::*default-domain* intl::*default-domain*))
 	(values
-	 (with-simple-restart (continue "Return NIL from load of ~S." filename)
+	 (with-simple-restart (continue _"Return NIL from load of ~S." filename)
 	   (if (streamp filename)
 	       (if (or (eq contents :binary)
 		       (and (null contents)
@@ -583,12 +586,16 @@
        (:error
 	(restart-case (error 'simple-file-error
 			     :pathname pathname
-			     :format-control "~S does not exist."
+			     :format-control _"~S does not exist."
 			     :format-arguments (list (namestring pathname)))
-	  (check-again () :report "See if it exists now."
+	  (check-again ()
+	    :report (lambda (stream)
+		      (write-string _"See if it exists now." stream))
 	    (load pathname))
-	  (use-value () :report "Prompt for a new name."
-	    (write-string "New name: " *query-io*)
+	  (use-value ()
+	    :report (lambda (stream)
+		      (write-string _"Prompt for a new name."))
+	    (write-string _"New name: " *query-io*)
 	    (force-output *query-io*)
 	    (load (read-line *query-io*)))))
        ((nil) nil))))
@@ -620,8 +627,8 @@
 	   (when (member (pathname-type truename) *load-object-types*
 			 :test #'string=)
 	     (cerror
-	      "Load it as a source file."
-	      "File has a fasl file type, but no fasl file header:~%  ~S"
+	      _"Load it as a source file."
+	      _"File has a fasl file type, but no fasl file header:~%  ~S"
 	      (namestring truename)))
 	   (internal-load pathname truename if-does-not-exist :source
 			  external-format))))))))
@@ -656,12 +663,12 @@
 	     (> (file-write-date src-tn) (file-write-date obj-tn)))
 	(ecase *load-if-source-newer*
 	  (:load-object
-	   (warn "Loading object file ~A,~@
+	   (warn _"Loading object file ~A,~@
 		  which is older than the presumed source:~%  ~A."
 		 (namestring obj-tn) (namestring src-tn))
 	   (internal-load obj-pn obj-tn if-does-not-exist :binary :void))
 	  (:load-source
-	   (warn "Loading source file ~A,~@
+	   (warn _"Loading source file ~A,~@
 		  which is newer than the presumed object file:~%  ~A."
 		 (namestring src-tn) (namestring obj-tn))
 	   (internal-load src-pn src-tn if-does-not-exist :source
@@ -669,17 +676,21 @@
 	  (:compile
 	   (let ((obj-tn (compile-file src-pn)))
 	     (unless obj-tn
-	       (error "Compile of source failed, cannot load object."))
+	       (error _"Compile of source failed, cannot load object."))
 	     (internal-load src-pn obj-tn :error :binary :void)))
 	  (:query
 	   (restart-case
-	       (error "Object file ~A is~@
+	       (error _"Object file ~A is~@
 		       older than the presumed source:~%  ~A."
 		      (namestring obj-tn) (namestring src-tn))
-	     (continue () :report "load source file"
+	     (continue ()
+	       :report (lambda (stream)
+			 (write-string _"load source file" stream))
 	       (internal-load src-pn src-tn if-does-not-exist :source
 			      external-format))
-	     (load-object () :report "load object file"
+	     (load-object ()
+	       :report (lambda (stream)
+			 (write-string _"load object file" stream))
 	       (internal-load src-pn obj-tn if-does-not-exist :binary
 			      :void))))))
        (obj-tn
@@ -738,7 +749,7 @@
 
 (define-fop (fop-end-group 64 :nope) (throw 'group-end t))
 (define-fop (fop-end-header 255)
-  (error "Fop-End-Header was executed???"))
+  (error _"Fop-End-Header was executed???"))
 
 ;;; In the normal loader, we just ignore these.  Genesis overwrites
 ;;; fop-maybe-cold-load with something that knows when to revert to
@@ -749,10 +760,10 @@
 
 (define-fop (fop-verify-table-size 62 :nope)
   (if (/= *current-fop-table-index* (read-arg 4))
-      (error "Fasl table of improper size.  Bug!")))
+      (error _"Fasl table of improper size.  Bug!")))
 (define-fop (fop-verify-empty-stack 63 :nope)
   (if (/= *fop-stack-pointer* *fop-stack-pointer-on-entry*)
-      (error "Fasl stack not empty.  Bug!")))
+      (error _"Fasl stack not empty.  Bug!")))
 
 ;;;; Loading symbols:
 
@@ -806,7 +817,7 @@
 (define-fop (fop-package 14)
   (let ((name (pop-stack)))
     (or (find-package name)
-	(error "The package ~S does not exist." name))))
+	(error _"The package ~S does not exist." name))))
 
 ;;;; Loading numbers:
 
@@ -1076,7 +1087,7 @@
 		  (8 (make-array len :element-type '(unsigned-byte 8)))
 		  (16 (make-array len :element-type '(unsigned-byte 16)))
 		  (32 (make-array len :element-type '(unsigned-byte 32)))
-		  (t (error "Losing i-vector element size: ~S" size)))))
+		  (t (error _"Losing i-vector element size: ~S" size)))))
       (declare (type index len))
       (done-with-fast-read-byte)
       (read-n-bytes *fasl-file* res 0
@@ -1106,7 +1117,7 @@
  		  (16 (make-array len :element-type '(signed-byte 16)))
  		  (30 (make-array len :element-type '(signed-byte 30)))
  		  (32 (make-array len :element-type '(signed-byte 32)))
- 		  (t (error "Losing i-vector element size: ~S" size)))))
+ 		  (t (error _"Losing i-vector element size: ~S" size)))))
       (declare (type index len))
       (done-with-fast-read-byte)
       (read-n-bytes *fasl-file* res 0
@@ -1201,7 +1212,7 @@
     (flet ((check-version (imp vers)
 	     (when (eql imp implementation)
 	       (unless (eql version vers)
-		 (cerror "Load ~A anyway"
+		 (cerror _"Load ~A anyway"
                          'invalid-fasl :file *fasl-file*
 			 :fasl-version version :expected-version vers))
 	       t))
@@ -1217,8 +1228,8 @@
 		(check-version #.(c:backend-byte-fasl-file-implementation
 				  c:*backend*)
 			       c:byte-fasl-file-version))
-      (cerror "Load ~A anyway"
-              "~A was compiled for a ~A, but this is a ~A"
+      (cerror _"Load ~A anyway"
+              _"~A was compiled for a ~A, but this is a ~A"
               *Fasl-file*
               (imp-name implementation)
               (imp-name
@@ -1294,7 +1305,7 @@
 	       (and *load-x86-tlf-to-dynamic-space*
 		    (c::compiled-debug-info-p dbi)
 		    (string= (c::compiled-debug-info-name dbi)
-			     "Top-Level Form")))) )
+			     _"Top-Level Form")))) )
 
 	(setq stuff (nreverse stuff))
 
@@ -1371,7 +1382,7 @@
 	(offset (read-arg 4)))
     (declare (type index offset))
     (unless (zerop (logand offset vm:lowtag-mask))
-      (error "Unaligned function object, offset = #x~X." offset))
+      (error _"Unaligned function object, offset = #x~X." offset))
     (let ((fun (%primitive compute-function code-object offset)))
       (setf (%function-self fun) fun)
       (setf (%function-next fun) (%code-entry-points code-object))
@@ -1381,7 +1392,7 @@
       (setf (%function-type fun) type)
       (when *load-print*
 	(load-fresh-line)
-	(format t "~S defined~%" fun))
+	(format t _"~S defined~%" fun))
       fun)))
 
 (define-fop (fop-make-byte-compiled-function 143)
@@ -1396,7 +1407,7 @@
     (initialize-byte-compiled-function res)
     (when *load-print*
       (load-fresh-line)
-      (format t "~S defined~%" res))
+      (format t _"~S defined~%" res))
     res))
 
 
@@ -1436,7 +1447,7 @@
 	value
 	(let ((value (system:alternate-get-global-address symbol)))
 	  (when (zerop value)
-	    (error "Unknown foreign symbol: ~S" symbol))
+	    (error _"Unknown foreign symbol: ~S" symbol))
 	  value))))
 
 (defun foreign-symbol-address (symbol &key (flavor :code))
@@ -1474,10 +1485,10 @@
     code-object))
 
 (define-fop (fop-assembler-code 144)
-  (error "Cannot load assembler code."))
+  (error _"Cannot load assembler code."))
 
 (define-fop (fop-assembler-routine 145)
-  (error "Cannot load assembler code."))
+  (error _"Cannot load assembler code."))
 
 (define-fop (fop-assembler-fixup 148)
   (let ((routine (pop-stack))
@@ -1487,7 +1498,7 @@
 	(value found)
 	(gethash routine *assembler-routines*)
       (unless found
-	(error "Undefined assembler routine: ~S" routine))
+	(error _"Undefined assembler routine: ~S" routine))
       (vm:fixup-code-object code-object (read-arg 4) value kind))
     code-object))
 
diff --git a/code/loop.lisp b/code/loop.lisp
index 4f0cc9d457da02f543967770ccb4f2633dfe1fec..aca21f9925531714f26b62ccf1121f5ddf600cc4 100644
--- a/code/loop.lisp
+++ b/code/loop.lisp
@@ -49,11 +49,12 @@
 
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.31 2009/08/09 03:54:42 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.32 2010/03/19 15:18:59 rtoy Exp $")
 
 ;;;; LOOP Iteration Macro
 
 (in-package :ansi-loop)
+(intl:textdomain "cmucl")
 
 (provide :loop)
 
@@ -767,7 +768,7 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring.
 		     epilogue
 		     &aux rbefore rafter flagvar)
   (unless (= (length before-loop) (length after-loop))
-    (error "LOOP-BODY called with non-synched before- and after-loop lists."))
+    (error _"LOOP-BODY called with non-synched before- and after-loop lists."))
   ;;All our work is done from these copies, working backwards from the end:
   (setq rbefore (reverse before-loop) rafter (reverse after-loop))
   (labels ((psimp (l)
@@ -947,12 +948,12 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring.
 (defun loop-error (format-string &rest format-args)
   #+(or Genera CLOE) (declare (dbg:error-reporter))
   #+Genera (setq format-args (copy-list format-args))	;Don't ask.
-  (kernel:simple-program-error "~?~%Current LOOP context:~{ ~S~}."
-			       format-string format-args (loop-context)))
+  (kernel:simple-program-error _"~?~%Current LOOP context:~{ ~S~}."
+			       (intl:gettext format-string) format-args (loop-context)))
 
 
 (defun loop-warn (format-string &rest format-args)
-  (warn "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context)))
+  (warn _"~?~%Current LOOP context:~{ ~S~}." (intl:gettext format-string) format-args (loop-context)))
 
 
 (defun loop-check-data-type (specified-type required-type
@@ -961,17 +962,17 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring.
       default-type
       (multiple-value-bind (a b) (subtypep specified-type required-type)
 	(cond ((not b)
-	       (loop-warn "LOOP couldn't verify that ~S is a subtype of the required type ~S."
+	       (loop-warn _N"LOOP couldn't verify that ~S is a subtype of the required type ~S."
 			  specified-type required-type))
 	      ((not a)
-	       (loop-error "Specified data type ~S is not a subtype of ~S."
+	       (loop-error _N"Specified data type ~S is not a subtype of ~S."
 			   specified-type required-type)))
 	specified-type)))
 
 
 ;;;INTERFACE: Traditional, ANSI, Lucid.
 (defmacro loop-finish () 
-  "Causes the iteration to terminate \"normally\", the same as implicit
+  _N"Causes the iteration to terminate \"normally\", the same as implicit
 termination by an iteration driving clause, or by use of WHILE or
 UNTIL -- the epilogue code (if any) will be run, and any implicitly
 collected result will be returned as the value of the LOOP."
@@ -1055,7 +1056,7 @@ collected result will be returned as the value of the LOOP."
   (do () ((null *loop-source-code*))
     (let ((keyword (car *loop-source-code*)) (tem nil))
       (cond ((not (symbolp keyword))
-	     (loop-error "~S found where LOOP keyword expected." keyword))
+	     (loop-error _N"~S found where LOOP keyword expected." keyword))
 	    (t (setq *loop-source-context* *loop-source-code*)
 	       (loop-pop-source)
 	       (cond ((setq tem (loop-lookup-keyword keyword (loop-universe-keywords *loop-universe*)))
@@ -1065,22 +1066,22 @@ collected result will be returned as the value of the LOOP."
 		      (loop-hack-iteration tem))
 		     ((loop-tmember keyword '(and else))
 		      ;; Alternative is to ignore it, ie let it go around to the next keyword...
-		      (loop-error "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
+		      (loop-error _N"Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
 				  keyword (car *loop-source-code*) (cadr *loop-source-code*)))
-		     (t (loop-error "~S is an unknown keyword in LOOP macro." keyword))))))))
+		     (t (loop-error _N"~S is an unknown keyword in LOOP macro." keyword))))))))
 
 
 
 (defun loop-pop-source ()
   (if *loop-source-code*
       (pop *loop-source-code*)
-      (loop-error "LOOP source code ran out when another token was expected.")))
+      (loop-error _N"LOOP source code ran out when another token was expected.")))
 
 
 (defun loop-get-compound-form ()
   (let ((form (loop-get-form)))
     (unless (consp form)
-      (loop-error "Compound form expected, but found ~A." form))
+      (loop-error _N"Compound form expected, but found ~A." form))
     form))
 
 (defun loop-get-progn ()
@@ -1095,7 +1096,7 @@ collected result will be returned as the value of the LOOP."
 (defun loop-get-form ()
   (if *loop-source-code*
       (loop-pop-source)
-      (loop-error "LOOP code ran out where a form was expected.")))
+      (loop-error _N"LOOP code ran out where a form was expected.")))
 
 
 (defun loop-construct-return (form)
@@ -1114,7 +1115,7 @@ collected result will be returned as the value of the LOOP."
   (when form-supplied-p
     (push (loop-construct-return form) *loop-after-epilogue*))
   (when *loop-final-value-culprit*
-    (loop-warn "LOOP clause is providing a value for the iteration,~@
+    (loop-warn _N"LOOP clause is providing a value for the iteration,~@
 	        however one was already established by a ~S clause."
 	       *loop-final-value-culprit*))
   (setq *loop-final-value-culprit* (car *loop-source-context*)))
@@ -1123,15 +1124,15 @@ collected result will be returned as the value of the LOOP."
 (defun loop-disallow-conditional (&optional kwd)
   #+(or Genera CLOE) (declare (dbg:error-reporter))
   (when *loop-inside-conditional*
-    (loop-error "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional." kwd)))
+    (loop-error _N"~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional." kwd)))
 
 (defun loop-disallow-anonymous-collectors ()
   (when (find-if-not 'loop-collector-name *loop-collection-cruft*)
-    (loop-error "This LOOP clause is not permitted with anonymous collectors.")))
+    (loop-error _N"This LOOP clause is not permitted with anonymous collectors.")))
 
 (defun loop-disallow-aggregate-booleans ()
   (when (loop-tmember *loop-final-value-culprit* '(always never thereis))
-    (loop-error "This anonymous collection LOOP clause is not permitted with aggregate booleans.")))
+    (loop-error _N"This anonymous collection LOOP clause is not permitted with aggregate booleans.")))
 
 
 
@@ -1173,9 +1174,9 @@ collected result will be returned as the value of the LOOP."
 		(if (consp variable)
 		    (unless (consp z)
 		     (loop-error
-			"~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern expected."
+			_N"~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern expected."
 			z))
-		    (loop-error "~S found where a LOOP keyword or LOOP type keyword expected." z))
+		    (loop-error _N"~S found where a LOOP keyword or LOOP type keyword expected." z))
 		(loop-pop-source)
 		(labels ((translate (k v)
 			   (cond ((null k) nil)
@@ -1184,12 +1185,12 @@ collected result will be returned as the value of the LOOP."
 				    (or (gethash k (loop-universe-type-symbols *loop-universe*))
 					(gethash (symbol-name k) (loop-universe-type-keywords *loop-universe*))
 					(loop-error
-					  "Destructuring type pattern ~S contains unrecognized type keyword ~S."
+					  _N"Destructuring type pattern ~S contains unrecognized type keyword ~S."
 					  z k))
 				    v))
 				 ((atom v)
 				  (loop-error
-				    "Destructuring type pattern ~S doesn't match variable pattern ~S."
+				    _N"Destructuring type pattern ~S doesn't match variable pattern ~S."
 				    z variable))
 				 (t (cons (translate (car k) (car v)) (translate (cdr k) (cdr v))))))
 			 (replicate (typ v)
@@ -1227,12 +1228,12 @@ collected result will be returned as the value of the LOOP."
 	((atom name)
 	 (cond (iteration-variable-p
 		(if (member name *loop-iteration-variables*)
-		    (loop-error "Duplicated LOOP iteration variable ~S." name)
+		    (loop-error _N"Duplicated LOOP iteration variable ~S." name)
 		    (push name *loop-iteration-variables*)))
 	       ((assoc name *loop-variables*)
-		(loop-error "Duplicated variable ~S in LOOP parallel binding." name)))
+		(loop-error _N"Duplicated variable ~S in LOOP parallel binding." name)))
 	 (unless (symbolp name)
-	   (loop-error "Bad variable ~S somewhere in LOOP." name))
+	   (loop-error _N"Bad variable ~S somewhere in LOOP." name))
 	 (loop-declare-variable name dtype)
 	 ;; We use ASSOC on this list to check for duplications (above),
 	 ;; so don't optimize out this list:
@@ -1260,7 +1261,7 @@ collected result will be returned as the value of the LOOP."
 
 (defun loop-make-iteration-variable (name initialization dtype)
   (when (and name (loop-variable-p name))
-    (loop-error "Variable ~S has already been used" name))
+    (loop-error _N"Variable ~S has already been used" name))
   (loop-make-variable name initialization dtype t))
 
 
@@ -1281,7 +1282,7 @@ collected result will be returned as the value of the LOOP."
 		(loop-declare-variable (cdr name) (cdr dtype)))
 	       (t (loop-declare-variable (car name) dtype)
 		  (loop-declare-variable (cdr name) dtype))))
-	(t (error "Invalid LOOP variable passed in: ~S." name))))
+	(t (error _"Invalid LOOP variable passed in: ~S." name))))
 
 
 (defun loop-maybe-bind-form (form data-type)
@@ -1301,7 +1302,7 @@ collected result will be returned as the value of the LOOP."
 		 (let ((key (car *loop-source-code*)) (*loop-body* nil) data)
 		   (cond ((not (symbolp key))
 			  (loop-error
-			     "~S found where keyword expected getting LOOP clause after ~S."
+			     _N"~S found where keyword expected getting LOOP clause after ~S."
 			     key for))
 			 (t (setq *loop-source-context* *loop-source-code*)
 			    (loop-pop-source)
@@ -1315,7 +1316,7 @@ collected result will be returned as the value of the LOOP."
 				       (progn (apply (symbol-function (car data)) (cdr data))
 					      (null *loop-body*)))
 				   (loop-error
-				      "~S does not introduce a LOOP clause that can follow ~S."
+				      _N"~S does not introduce a LOOP clause that can follow ~S."
 				      key for))
 				  (t (setq body (nreconc *loop-body* body)))))))
 		 (setq first-clause-p nil)
@@ -1350,11 +1351,11 @@ collected result will be returned as the value of the LOOP."
 (defun loop-do-named ()
   (let ((name (loop-pop-source)))
     (unless (symbolp name)
-      (loop-error "~S is an invalid name for your LOOP." name))
+      (loop-error _N"~S is an invalid name for your LOOP." name))
     (when (or *loop-before-loop* *loop-body* *loop-after-epilogue* *loop-inside-conditional*)
-      (loop-error "The NAMED ~S clause occurs too late." name))
+      (loop-error _N"The NAMED ~S clause occurs too late." name))
     (when *loop-names*
-      (loop-error "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
+      (loop-error _N"You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
 		  (car *loop-names*) name))
     (setq *loop-names* (list name))))
 
@@ -1383,7 +1384,7 @@ collected result will be returned as the value of the LOOP."
 		(loop-pop-source)
 		(loop-pop-source))))
     (when (not (symbolp name))
-      (loop-error "Value accumulation recipient name, ~S, is not a symbol." name))
+      (loop-error _N"Value accumulation recipient name, ~S, is not a symbol." name))
     (unless name
       (loop-disallow-aggregate-booleans))
     (unless dtype
@@ -1392,19 +1393,19 @@ collected result will be returned as the value of the LOOP."
 		       :key #'loop-collector-name)))
       (cond ((not cruft)
 	     (when (and name (loop-variable-p name))
-	       (loop-error "Variable ~S cannot be used in INTO clause" name))
+	       (loop-error _N"Variable ~S cannot be used in INTO clause" name))
 	     (push (setq cruft (make-loop-collector
 				 :name name :class class
 				 :history (list collector) :dtype dtype))
 		   *loop-collection-cruft*))
 	    (t (unless (eq (loop-collector-class cruft) class)
 		 (loop-error
-		   "Incompatible kinds of LOOP value accumulation specified for collecting~@
+		   _N"Incompatible kinds of LOOP value accumulation specified for collecting~@
 		    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
 		   name (car (loop-collector-history cruft)) collector))
 	       (unless (equal dtype (loop-collector-dtype cruft))
 		 (loop-warn
-		   "Unequal datatypes specified in different LOOP value accumulations~@
+		   _N"Unequal datatypes specified in different LOOP value accumulations~@
 		   into ~S: ~S and ~S."
 		   name dtype (loop-collector-dtype cruft))
 		 (when (eq (loop-collector-dtype cruft) t)
@@ -1518,7 +1519,7 @@ collected result will be returned as the value of the LOOP."
 		     (loop-get-form))
 		    (t nil)))
     (when (and var (loop-variable-p var))
-      (loop-error "Variable ~S has already been used" var))
+      (loop-error _N"Variable ~S has already been used" var))
     (loop-make-variable var val dtype)
     (if (loop-tequal (car *loop-source-code*) :and)
 	(loop-pop-source)
@@ -1554,7 +1555,7 @@ collected result will be returned as the value of the LOOP."
       (setq pseudo-steps (nconc pseudo-steps (loop-copylist* (car (setq tem (cdr tem))))))
       (setq tem (cdr tem))
       (when *loop-emitted-body*
-	(loop-error "Iteration in LOOP follows body code."))
+	(loop-error _N"Iteration in LOOP follows body code."))
       (unless tem (setq tem data))
       (when (car tem) (push (car tem) pre-loop-pre-step-tests))
       (setq pre-loop-steps (nconc pre-loop-steps (loop-copylist* (car (setq tem (cdr tem))))))
@@ -1598,7 +1599,7 @@ collected result will be returned as the value of the LOOP."
 		 (setq tem (loop-lookup-keyword
 			     keyword
 			     (loop-universe-for-keywords *loop-universe*))))
-      (loop-error "~S is an unknown keyword in FOR or AS clause in LOOP." keyword))
+      (loop-error _N"~S is an unknown keyword in FOR or AS clause in LOOP." keyword))
     (apply (car tem) var first-arg data-type (cdr tem))))
 
 (defun loop-do-repeat ()
@@ -1727,7 +1728,7 @@ collected result will be returned as the value of the LOOP."
 			(loop-get-form))
 		       (t '(function cdr)))))
     (cond ((and (consp stepper) (eq (car stepper) 'quote))
-	   (loop-warn "Use of QUOTE around stepping function in LOOP will be left verbatim.")
+	   (loop-warn _N"Use of QUOTE around stepping function in LOOP will be left verbatim.")
 	   (values `(funcall ,stepper ,listvar) nil))
 	  ((and (consp stepper) (eq (car stepper) 'function))
 	   (values (list (cadr stepper) listvar) (cadr stepper)))
@@ -1837,18 +1838,18 @@ collected result will be returned as the value of the LOOP."
 	   (loop-pop-source)
 	   (setq inclusive t)
 	   (unless (loop-tmember (car *loop-source-code*) '(:its :each :his :her))
-	     (loop-error "~S found where ITS or EACH expected in LOOP iteration path syntax."
+	     (loop-error _N"~S found where ITS or EACH expected in LOOP iteration path syntax."
 			 (car *loop-source-code*)))
 	   (loop-pop-source)
 	   (setq path (loop-pop-source))
 	   (setq initial-prepositions `((:in ,val))))
-	  (t (loop-error "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?")))
+	  (t (loop-error _N"Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?")))
     (cond ((not (symbolp path))
-	   (loop-error "~S found where a LOOP iteration path name was expected." path))
+	   (loop-error _N"~S found where a LOOP iteration path name was expected." path))
 	  ((not (setq data (loop-lookup-keyword path (loop-universe-path-keywords *loop-universe*))))
-	   (loop-error "~S is not the name of a LOOP iteration path." path))
+	   (loop-error _N"~S is not the name of a LOOP iteration path." path))
 	  ((and inclusive (not (loop-path-inclusive-permitted data)))
-	   (loop-error "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path." path)))
+	   (loop-error _N"\"Inclusive\" iteration is not possible with the ~S LOOP iteration path." path)))
     (let ((fun (loop-path-function data))
 	  (preps (nconc initial-prepositions
 			(loop-collect-prepositional-phrases (loop-path-preposition-groups data) t)))
@@ -1858,11 +1859,11 @@ collected result will be returned as the value of the LOOP."
 		      (apply fun var data-type preps :inclusive t user-data)
 		      (apply fun var data-type preps user-data))))
     (when *loop-named-variables*
-      (loop-error "Unused USING variables: ~S." *loop-named-variables*))
+      (loop-error _N"Unused USING variables: ~S." *loop-named-variables*))
     ;; STUFF is now (bindings prologue-forms . stuff-to-pass-back).  Protect the system from the user
     ;; and the user from himself.
     (unless (member (length stuff) '(6 10))
-      (loop-error "Value passed back by LOOP iteration path function for path ~S has invalid length."
+      (loop-error _N"Value passed back by LOOP iteration path function for path ~S has invalid length."
 		  path))
     (do ((l (car stuff) (cdr l)) (x)) ((null l))
       (if (atom (setq x (car l)))
@@ -1905,8 +1906,8 @@ collected result will be returned as the value of the LOOP."
 	     (when (member this-prep disallowed-prepositions)
 	       (loop-error
 		 (if (member this-prep used-prepositions)
-		     "A ~S prepositional phrase occurs multiply for some LOOP clause."
-		     "Preposition ~S used when some other preposition has subsumed it.")
+		     _N"A ~S prepositional phrase occurs multiply for some LOOP clause."
+		     _N"Preposition ~S used when some other preposition has subsumed it.")
 		 token))
 	     (setq used-prepositions (if (listp this-group)
 					 (append this-group used-prepositions)
@@ -1919,7 +1920,7 @@ collected result will be returned as the value of the LOOP."
 	       (when (cadr z)
 		 (if (setq tem (loop-tassoc (car z) *loop-named-variables*))
 		     (loop-error
-		       "The variable substitution for ~S occurs twice in a USING phrase,~@
+		       _N"The variable substitution for ~S occurs twice in a USING phrase,~@
 		        with ~S and ~S."
 		       (car z) (cadr z) (cadr tem))
 		     (push (cons (car z) (cadr z)) *loop-named-variables*)))
@@ -1985,14 +1986,14 @@ collected result will be returned as the value of the LOOP."
 	   (unless stepby-constantp
 	     (loop-make-variable (setq stepby (loop-gentemp 'loop-step-by-)) form indexv-type)))
 	 (t (loop-error
-	      "~S invalid preposition in sequencing or sequence path.~@
+	      _N"~S invalid preposition in sequencing or sequence path.~@
 	       Invalid prepositions specified in iteration path descriptor or something?"
 	      prep)))
        (when (and odir dir (not (eq dir odir)))
-	 (loop-error "Conflicting stepping directions in LOOP sequencing path"))
+	 (loop-error _N"Conflicting stepping directions in LOOP sequencing path"))
        (setq odir dir))
      (when (and sequence-variable (not sequencep))
-       (loop-error "Missing OF or IN phrase in sequence path"))
+       (loop-error _N"Missing OF or IN phrase in sequence path"))
      ;; Now fill in the defaults.
      (unless start-given
        (loop-make-iteration-variable
@@ -2009,7 +2010,7 @@ collected result will be returned as the value of the LOOP."
 	    (setq step (if (eql stepby 1) `(1+ ,indexv) `(+ ,indexv ,stepby))))
 	   (t (unless start-given
 		(unless default-top
-		  (loop-error "Don't know where to start stepping."))
+		  (loop-error _N"Don't know where to start stepping."))
 		(push `(setq ,indexv (1- ,default-top)) *loop-prologue*))
 	      (when (and default-top (not endform))
 		(setq endform (loop-typed-init indexv-type) inclusive-iteration t))
@@ -2071,8 +2072,8 @@ collected result will be returned as the value of the LOOP."
 (defun loop-hash-table-iteration-path (variable data-type prep-phrases &key which)
   (check-type which (member hash-key hash-value))
   (cond ((or (cdr prep-phrases) (not (member (caar prep-phrases) '(:in :of))))
-	 (loop-error "Too many prepositions!"))
-	((null prep-phrases) (loop-error "Missing OF or IN in ~S iteration path.")))
+	 (loop-error _N"Too many prepositions!"))
+	((null prep-phrases) (loop-error _N"Missing OF or IN in ~S iteration path.")))
   (let ((ht-var (loop-gentemp 'loop-hashtab-))
 	(next-fn (loop-gentemp 'loop-hashtab-next-))
 	(dummy-predicate-var nil)
@@ -2130,11 +2131,11 @@ collected result will be returned as the value of the LOOP."
 
 (defun loop-package-symbols-iteration-path (variable data-type prep-phrases &key symbol-types)
   (cond ((and prep-phrases (cdr prep-phrases))
-	 (loop-error "Too many prepositions!"))
+	 (loop-error _N"Too many prepositions!"))
 	((and prep-phrases (not (member (caar prep-phrases) '(:in :of))))
-	 (loop-error "Unknown preposition ~S" (caar prep-phrases))))
+	 (loop-error _N"Unknown preposition ~S" (caar prep-phrases))))
   (unless (symbolp variable)
-    (loop-error "Destructuring is not valid for package symbol iteration."))
+    (loop-error _N"Destructuring is not valid for package symbol iteration."))
   (let ((pkg-var (loop-gentemp 'loop-pkgsym-))
 	(next-fn (loop-gentemp 'loop-pkgsym-next-))
 	(variable (or variable (loop-gentemp)))
diff --git a/code/mach-os.lisp b/code/mach-os.lisp
index ba17ea822917ecba7b309ac8a3ca34543d4d5158..ba32f7372a44c7ef795d5a174417281af774212c 100644
--- a/code/mach-os.lisp
+++ b/code/mach-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.12 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.13 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(get-system-info get-page-size os-init))
 (export '(*task-self* *task-data* *task-notify*))
 
diff --git a/code/mach.lisp b/code/mach.lisp
index 21c03e0d2f6175c5f6f5daa5e9196935fe1d7c5d..d67f48aa13d041e2f90fe9373d17922be358a93d 100644
--- a/code/mach.lisp
+++ b/code/mach.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach.lisp,v 1.5 2003/04/19 20:52:43 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach.lisp,v 1.6 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 (use-package "ALIEN")
 (use-package "C-CALL")
 (use-package "SYSTEM")
+(intl:textdomain "cmucl")
 
 (export '(port mach-task_self mach-task_data mach-task_notify
 	  kern-success get-mach-error-msg
diff --git a/code/machdef.lisp b/code/machdef.lisp
index 9304be8265945a4bea7acb626e38d3fc769e032b..49ee5253385b32b61328c0af4c778629dc413c43 100644
--- a/code/machdef.lisp
+++ b/code/machdef.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/machdef.lisp,v 1.7 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/machdef.lisp,v 1.8 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Record definitions needed for the interface to Mach.
 ;;;
 (in-package "MACH")
+(intl:textdomain "cmucl")
 
 (export '(msg-simplemsg msg-msgsize msg-msgtype msg-localport msg-remoteport
 			msg-id sigmask with-trap-arg-block))
diff --git a/code/macros.lisp b/code/macros.lisp
index 475f6ee8be6d26692291871a7f14c9be37c42a5b..e92f28f074ac2a4b5d7e6f19aeeb6485d647a343 100644
--- a/code/macros.lisp
+++ b/code/macros.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.114 2010/03/18 16:43:11 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.115 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;; Modified by Bill Chiles to adhere to the wall.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(defvar defparameter defconstant when unless setf
 	  defsetf psetf shiftf rotatef push pushnew pop
 	  incf decf remf case typecase with-open-file
@@ -39,7 +41,7 @@
 ;;; into declarations anymore.
 ;;;
 (defun parse-body (body environment &optional (doc-string-allowed t))
-  "This function is to parse the declarations and doc-string out of the body of
+  _N"This function is to parse the declarations and doc-string out of the body of
   a defun-like form.  Body is the list of stuff which is to be parsed.
   Environment is ignored.  If Doc-String-Allowed is true, then a doc string
   will be parsed out of the body and returned.  If it is false then a string
@@ -85,15 +87,18 @@
             (restart-case
                 (error 'lisp::package-locked-error
                        :package package
-                       :format-control "defining macro ~A"
+                       :format-control _"defining macro ~A"
                        :format-arguments (list name))
               (continue ()
-                :report "Ignore the lock and continue")
+                :report (lambda (stream)
+			  (write-string _"Ignore the lock and continue" stream)))
               (unlock-package ()
-                :report "Disable the package's definition-lock then continue"
+                :report (lambda (stream)
+			  (write-string _"Disable the package's definition-lock then continue" stream))
                 (setf (ext:package-definition-lock package) nil))
               (unlock-all ()
-                :report "Unlock all packages, then continue"
+                :report (lambda (stream)
+			  (write-string _"Unlock all packages, then continue" stream))
                 (lisp::unlock-all-packages))))))))
   (let ((whole (gensym "WHOLE-"))
 	(environment (gensym "ENV-")))
@@ -140,7 +145,7 @@
 ;;;; DEFINE-COMPILER-MACRO
 
 (defmacro define-compiler-macro (name lambda-list &body body)
-  "Define a compiler-macro for NAME."
+  _N"Define a compiler-macro for NAME."
   (let ((whole (gensym "WHOLE-"))
 	(environment (gensym "ENV-")))
     (multiple-value-bind
@@ -184,7 +189,7 @@
 (defun %define-symbol-macro (name expansion)
   (unless (symbolp name)
     (error 'simple-type-error :datum name :expected-type 'symbol
-	   :format-control "Symbol macro name is not a symbol: ~S."
+	   :format-control _"Symbol macro name is not a symbol: ~S."
 	   :format-arguments (list name)))
   (ecase (info variable kind name)
     ((:macro :global nil)
@@ -192,11 +197,11 @@
      (setf (info variable macro-expansion name) expansion))
     (:special
      (error 'simple-program-error
-	    :format-control "Symbol macro name already declared special: ~S."
+	    :format-control _"Symbol macro name already declared special: ~S."
 	    :format-arguments (list name)))
     (:constant
      (error 'simple-program-error
-	    :format-control "Symbol macro name already declared constant: ~S."
+	    :format-control _"Symbol macro name already declared constant: ~S."
 	    :format-arguments (list name))))
   name)
     
@@ -204,24 +209,27 @@
 ;;; DEFTYPE is a lot like DEFMACRO.
 
 (defmacro deftype (name arglist &body body)
-  "Syntax like DEFMACRO, but defines a new type."
+  _N"Syntax like DEFMACRO, but defines a new type."
   (unless (symbolp name)
-    (simple-program-error "~S -- Type name not a symbol." name))
+    (simple-program-error _"~S -- Type name not a symbol." name))
   (and lisp::*enable-package-locked-errors*
        (symbol-package name)
        (ext:package-definition-lock (symbol-package name))
        (restart-case
            (error 'lisp::package-locked-error
                   :package (symbol-package name)
-                  :format-control "defining type ~A"
+                  :format-control _"defining type ~A"
                   :format-arguments (list name))
          (continue ()
-           :report "Ignore the lock and continue")
+           :report (lambda (stream)
+		     (write-string _"Ignore the lock and continue" stream)))
          (unlock-package ()
-           :report "Disable package's definition-lock then continue"
+           :report (lambda (stream)
+		     (write-string _"Disable package's definition-lock then continue" stream))
            (setf (ext:package-definition-lock (symbol-package name)) nil))
          (unlock-all ()
-           :report "Unlock all packages, then continue"
+           :report (lambda (stream)
+		     (write-string _"Unlock all packages, then continue" stream))
            (lisp::unlock-all-packages))))
   (let ((whole (gensym "WHOLE-")))
     (multiple-value-bind (body local-decs doc)
@@ -236,13 +244,13 @@
 ;;;
 (defun %deftype (name expander &optional doc)
   (when (info declaration recognized name)
-    (error "Deftype already names a declaration: ~S." name))
+    (error _"Deftype already names a declaration: ~S." name))
   (ecase (info type kind name)
     (:primitive
      (when *type-system-initialized*
-       (error "Illegal to redefine standard type: ~S." name)))
+       (error _"Illegal to redefine standard type: ~S." name)))
     (:instance
-     (warn "Redefining class ~S to be a DEFTYPE." name)
+     (warn _"Redefining class ~S to be a DEFTYPE." name)
      (undefine-structure (layout-info (%class-layout (kernel::find-class name))))
      (setf (class-cell-class (find-class-cell name)) nil)
      (setf (info type compiler-layout name) nil)
@@ -263,13 +271,13 @@
 
 ;;; And so is DEFINE-SETF-EXPANDER.
 
-(defparameter defsetf-error-string "Setf expander for ~S cannot be called with ~S args.")
+(defparameter defsetf-error-string _N"Setf expander for ~S cannot be called with ~S args.")
 
 (defmacro define-setf-expander (access-fn lambda-list &body body)
-  "Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body
+  _N"Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body
   must be a form that returns the five magical values."
   (unless (symbolp access-fn)
-    (simple-program-error "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
+    (simple-program-error _"~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
 	   access-fn))
 
   (let ((whole (gensym "WHOLE-"))
@@ -288,7 +296,7 @@
 	  ',doc)))))
 
 (defmacro define-setf-method (&rest stuff)
-  "Obsolete, use define-setf-expander."
+  _N"Obsolete, use define-setf-expander."
   `(define-setf-expander ,@stuff))
 
 
@@ -299,12 +307,12 @@
 (defun %define-setf-macro (name expander inverse doc)
   (cond ((not (fboundp `(setf ,name))))
 	((info function accessor-for name)
-	 (warn "Defining setf macro for destruct slot accessor; redefining as ~
+	 (warn _"Defining setf macro for destruct slot accessor; redefining as ~
 	        a normal function:~%  ~S"
 	       name)
 	 (c::define-function-name name))
 	((not (eq (symbol-package name) (symbol-package 'aref)))
-	 (warn "Defining setf macro for ~S, but ~S is fbound."
+	 (warn _"Defining setf macro for ~S, but ~S is fbound."
 	       name `(setf ,name))))
   (when (or inverse (info setf inverse name))
     (setf (info setf inverse name) inverse))
@@ -318,7 +326,7 @@
 ;;;; Destructuring-bind
 
 (defmacro destructuring-bind (lambda-list arg-list &rest body)
-  "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
+  _N"Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
   (let* ((arg-list-name (gensym "ARG-LIST-")))
     (multiple-value-bind
 	(body local-decls)
@@ -381,7 +389,7 @@
 ;;; DEFCONSTANT  --  Public
 ;;;
 (defmacro defconstant (var val &optional doc)
-  "For defining global constants at top level.  The DEFCONSTANT says that the
+  _N"For defining global constants at top level.  The DEFCONSTANT says that the
   value is constant and may be compiled into code.  If the variable already has
   a value, and this is not equal to the init, an error is signalled.  The third
   argument is an optional documentation string for the variable."
@@ -408,8 +416,8 @@
     (setf (documentation name 'variable) doc))
   (when (boundp name)
     (unless (equalp (symbol-value name) value)
-      (cerror "Go ahead and change the value."
-	      "Constant ~S being redefined." name)))
+      (cerror _"Go ahead and change the value."
+	      _"Constant ~S being redefined." name)))
   (setf (symbol-value name) value)
   (setf (info variable kind name) :constant)
   (clear-info variable constant-value name)
@@ -418,7 +426,7 @@
 
 
 (defmacro defvar (var &optional (val nil valp) (doc nil docp))
-  "For defining global variables at top level.  Declares the variable
+  _N"For defining global variables at top level.  Declares the variable
   SPECIAL and, optionally, initializes it.  If the variable already has a
   value, the old value is not clobbered.  The third argument is an optional
   documentation string for the variable."
@@ -428,12 +436,14 @@
 	 `((unless (boundp ',var)
 	     (setq ,var ,val))))
     ,@(when docp
-	`((setf (documentation ',var 'variable) ',doc)))
+	`((setf (documentation ',var 'variable) ',doc)
+	  (eval-when (:load-toplevel :execute)
+	   (setf (c::info variable textdomain ',var) ,intl::*default-domain*))))
     (set-defvar-source-location ',var (c::source-location))
     ',var))
 
 (defmacro defparameter (var val &optional (doc nil docp))
-  "Defines a parameter that is not normally changed by the program,
+  _N"Defines a parameter that is not normally changed by the program,
   but that may be changed without causing an error.  Declares the
   variable special and sets its value to VAL.  The third argument is
   an optional documentation string for the parameter."
@@ -441,7 +451,9 @@
     (declaim (special ,var))
     (setq ,var ,val)
     ,@(when docp
-	`((setf (documentation ',var 'variable) ',doc)))
+	`((setf (documentation ',var 'variable) ',doc)
+	  (eval-when (:load-toplevel :execute)
+	   (setf (c::info variable textdomain ',var) ,intl::*default-domain*))))
     (set-defvar-source-location ',var (c::source-location))
     ',var))
 
@@ -450,12 +462,12 @@
 
 
 (defmacro when (test &body forms)
-  "First arg is a predicate.  If it is non-null, the rest of the forms are
+  _N"First arg is a predicate.  If it is non-null, the rest of the forms are
   evaluated as a PROGN."
   `(cond (,test nil ,@forms)))
 
 (defmacro unless (test &rest forms)
-  "First arg is a predicate.  If it is null, the rest of the forms are
+  _N"First arg is a predicate.  If it is null, the rest of the forms are
   evaluated as a PROGN."
   `(cond ((not ,test) nil ,@forms)))
 
@@ -522,7 +534,7 @@
       nil
       (let ((clause (first clauses)))
 	(when (atom clause)
-	  (error "Cond clause is not a list: ~S." clause))
+	  (error _"Cond clause is not a list: ~S." clause))
 	(let ((test (first clause))
 	      (forms (rest clause)))
 	  (if (endp forms)
@@ -545,7 +557,7 @@
 ;;;
 (defmacro multiple-value-setq (varlist value-form)
   (unless (and (listp varlist) (every #'symbolp varlist))
-    (simple-program-error "Varlist is not a list of symbols: ~S." varlist))
+    (simple-program-error _"Varlist is not a list of symbols: ~S." varlist))
   (if varlist
       `(values (setf (values ,@varlist) ,value-form))
       `(values ,value-form)))
@@ -553,7 +565,7 @@
 ;;;
 (defmacro multiple-value-bind (varlist value-form &body body)
   (unless (and (listp varlist) (every #'symbolp varlist))
-    (simple-program-error  "Varlist is not a list of symbols: ~S." varlist))
+    (simple-program-error  _"Varlist is not a list of symbols: ~S." varlist))
   (if (= (length varlist) 1)
       `(let ((,(car varlist) ,value-form))
 	 ,@body)
@@ -568,7 +580,7 @@
 
 
 (defmacro nth-value (n form)
-  "Evaluates FORM and returns the Nth value (zero based).  This involves no
+  _N"Evaluates FORM and returns the Nth value (zero based).  This involves no
   consing when N is a trivial constant integer."
   (if (integerp n)
       (let ((dummy-list nil)
@@ -612,7 +624,7 @@
 ;;; and an accessing function.
 
 (defun get-setf-expansion (form &optional environment)
-  "Returns five values needed by the SETF machinery: a list of temporary
+  _N"Returns five values needed by the SETF machinery: a list of temporary
    variables, a list of values with which to fill them, a list of temporaries
    for the new values, the setting function, and the accessing function."
   (let (temp)
@@ -642,7 +654,7 @@
 	   (expand-or-get-setf-inverse form environment)))))
 
 (defun get-setf-method-multiple-value (form &optional env)
-  "Obsolete: use GET-SETF-EXPANSION."
+  _N"Obsolete: use GET-SETF-EXPANSION."
   (get-setf-expansion form env))
 
 ;;;
@@ -674,12 +686,12 @@
 
 
 (defun get-setf-method (form &optional environment)
-  "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
+  _N"Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
   (multiple-value-bind
       (temps value-forms store-vars store-form access-form)
       (get-setf-expansion form environment)
     (when (cdr store-vars)
-      (error "GET-SETF-METHOD used for a form with multiple store ~
+      (error _"GET-SETF-METHOD used for a form with multiple store ~
 	      variables:~%  ~S" form))
     (values temps value-forms store-vars store-form access-form)))
 
@@ -699,7 +711,7 @@
 
 
 (defmacro defsetf (access-fn &rest rest)
-  "Associates a SETF update function or macro with the specified access
+  _N"Associates a SETF update function or macro with the specified access
   function or macro.  The format is complex.  See the manual for
   details."
   (cond ((not (listp (car rest)))
@@ -732,7 +744,7 @@
 		   nil
 		   ',doc))))))
 	(t
-	 (error "Ill-formed DEFSETF for ~S." access-fn))))
+	 (error _"Ill-formed DEFSETF for ~S." access-fn))))
 
 (defun %defsetf (orig-access-form num-store-vars expander)
   (collect ((subforms) (subform-vars) (subform-exprs) (store-vars))
@@ -761,7 +773,7 @@
 ;;; use of setf inverses without the full interpreter.
 ;;;
 (defmacro setf (&rest args &environment env)
-  "Takes pairs of arguments like SETQ.  The first is a place and the second
+  _N"Takes pairs of arguments like SETQ.  The first is a place and the second
   is the value that is supposed to go into that place.  Returns the last
   value.  The place argument may be any of the access forms for which SETF
   knows a corresponding setting form."
@@ -782,14 +794,14 @@
 		       (multiple-value-bind ,newval ,value-form
 			 ,setter))))))))
      ((oddp nargs) 
-      (error "Odd number of args to SETF."))
+      (error _"Odd number of args to SETF."))
      (t
       (do ((a args (cddr a)) (l nil))
 	  ((null a) `(progn ,@(nreverse l)))
 	(setq l (cons (list 'setf (car a) (cadr a)) l)))))))
 
 (defmacro psetf (&rest args &environment env)
-  "This is to SETF as PSETQ is to SETQ.  Args are alternating place
+  _N"This is to SETF as PSETQ is to SETQ.  Args are alternating place
   expressions and values to go into those places.  All of the subforms and
   values are determined, left to right, and only then are the locations
   updated.  Returns NIL."
@@ -797,7 +809,7 @@
     (do ((a args (cddr a)))
 	((endp a))
       (if (endp (cdr a))
-	  (simple-program-error "Odd number of args to PSETF."))
+	  (simple-program-error _"Odd number of args to PSETF."))
       (multiple-value-bind
 	  (dummies vals newval setter getter)
 	  (get-setf-expansion (car a) env)
@@ -814,7 +826,7 @@
       (thunk (let*-bindings) (mv-bindings)))))
 
 (defmacro shiftf (&rest args &environment env)
-  "One or more SETF-style place expressions, followed by a single
+  _N"One or more SETF-style place expressions, followed by a single
    value expression.  Evaluates all of the expressions in turn, then
    assigns the value of each expression to the place on its left,
    returning the value of the leftmost."
@@ -853,7 +865,7 @@
 	    (values ,@(car (mv-bindings)))))))))
 
 (defmacro rotatef (&rest args &environment env)
-  "Takes any number of SETF-style place expressions.  Evaluates all of the
+  _N"Takes any number of SETF-style place expressions.  Evaluates all of the
    expressions in turn, then assigns to each place the value of the form to
    its right.  The rightmost form gets the value of the leftmost.
    Returns NIL."
@@ -884,7 +896,7 @@
 
 
 (defmacro define-modify-macro (name lambda-list function &optional doc-string)
-  "Creates a new read-modify-write macro like PUSH or INCF."
+  _N"Creates a new read-modify-write macro like PUSH or INCF."
   (let ((other-args nil)
 	(rest-arg nil)
 	(env (gensym "ENV-"))
@@ -899,17 +911,17 @@
 	    ((eq arg '&rest)
 	     (if (symbolp (cadr ll))
 		 (setq rest-arg (cadr ll))
-		 (error "Non-symbol &rest arg in definition of ~S." name))
+		 (error _"Non-symbol &rest arg in definition of ~S." name))
 	     (if (null (cddr ll))
 		 (return nil)
-		 (error "Illegal stuff after &rest arg in Define-Modify-Macro.")))
+		 (error _"Illegal stuff after &rest arg in Define-Modify-Macro.")))
 	    ((memq arg '(&key &allow-other-keys &aux))
-	     (error "~S not allowed in Define-Modify-Macro lambda list." arg))
+	     (error _"~S not allowed in Define-Modify-Macro lambda list." arg))
 	    ((symbolp arg)
 	     (push arg other-args))
 	    ((and (listp arg) (symbolp (car arg)))
 	     (push (car arg) other-args))
-	    (t (error "Illegal stuff in lambda list of Define-Modify-Macro."))))
+	    (t (error _"Illegal stuff in lambda list of Define-Modify-Macro."))))
     (setq other-args (nreverse other-args))
     `(defmacro ,name (,reference ,@lambda-list &environment ,env)
        ,doc-string
@@ -929,7 +941,7 @@
 		 ,setter)))))))
 
 (defmacro push (obj place &environment env)
-  "Takes an object and a location holding a list.  Conses the object onto
+  _N"Takes an object and a location holding a list.  Conses the object onto
   the list, returning the modified list.  OBJ is evaluated before PLACE."
 
   ;; This special case for place being a symbol isn't strictly needed.
@@ -963,7 +975,7 @@
 	       ,setter)))))))
 
 (defmacro pushnew (obj place &rest keys &environment env)
-  "Takes an object and a location holding a list.  If the object is already
+  _N"Takes an object and a location holding a list.  If the object is already
   in the list, does nothing.  Else, conses the object onto the list.  Returns
   NIL.  If there is a :TEST keyword, this is used for the comparison."
   (if (and (symbolp place)
@@ -995,7 +1007,7 @@
 		,setter)))))))
 
 (defmacro pop (place &environment env)
-  "The argument is a location holding a list.  Pops one item off the front
+  _N"The argument is a location holding a list.  Pops one item off the front
   of the list and returns it."
   (if (and (symbolp place)
 	   (eq place (macroexpand place env)))
@@ -1017,7 +1029,7 @@
 
 ;;; we can't use DEFINE-MODIFY-MACRO because of ANSI 5.1.3
 (defmacro incf (place &optional (delta 1) &environment env)
-  "The first argument is some location holding a number. This number is
+  _N"The first argument is some location holding a number. This number is
   incremented by the second argument, DELTA, which defaults to 1."
   (multiple-value-bind (dummies vals newval setter getter)
       (get-setf-method place env)
@@ -1028,7 +1040,7 @@
          ,setter))))
 
 (defmacro decf (place &optional (delta 1) &environment env)
-  "The first argument is some location holding a number. This number is
+  _N"The first argument is some location holding a number. This number is
   decremented by the second argument, DELTA, which defaults to 1."
   (multiple-value-bind (dummies vals newval setter getter)
       (get-setf-method place env)
@@ -1039,7 +1051,7 @@
          ,setter))))
 
 (defmacro remf (place indicator &environment env)
-  "Place may be any place expression acceptable to SETF, and is expected
+  _N"Place may be any place expression acceptable to SETF, and is expected
   to hold a property list or ().  This list is destructively altered to
   remove the property specified by the indicator.  Returns T if such a
   property was present, NIL if not."
@@ -1060,7 +1072,7 @@
 		  (,local2 nil ,local1))
 		 ((atom ,local1) nil)
 	       (cond ((atom (cdr ,local1))
-		      (error "Odd-length property list in REMF."))
+		      (error _"Odd-length property list in REMF."))
 		     ((eq (car ,local1) ,ind-temp)
 		      (cond (,local2
 			     (rplacd (cdr ,local2) (cddr ,local1))
@@ -1198,7 +1210,7 @@
 	       (= (list-length function) 2)
 	       (eq (first function) 'function)
 	       (symbolp (second function)))
-    (error "Setf of Apply is only defined for function args like #'symbol."))
+    (error _"Setf of Apply is only defined for function args like #'symbol."))
   (let ((function (second function))
 	(new-var (gensym))
 	(vars nil))
@@ -1213,7 +1225,7 @@
 ;;; Special-case a BYTE bytespec so that the compiler can recognize it.
 ;;;
 (define-setf-expander ldb (bytespec place &environment env)
-  "The first argument is a byte specifier.  The second is any place form
+  _N"The first argument is a byte specifier.  The second is any place form
   acceptable to SETF.  Replaces the specified byte of the number in this
   place with bits from the low-order end of the new value."
   (multiple-value-bind (dummies vals newval setter getter)
@@ -1242,7 +1254,7 @@
 
 
 (define-setf-expander mask-field (bytespec place &environment env)
-  "The first argument is a byte specifier.  The second is any place form
+  _N"The first argument is a byte specifier.  The second is any place form
   acceptable to SETF.  Replaces the specified byte of the number in this place
   with bits from the corresponding position in the new value."
   (multiple-value-bind (dummies vals newval setter getter)
@@ -1314,7 +1326,7 @@
 	  (case (first case-list) (first case-list)))
 	 ((null case-list))
       (cond ((atom case)
-	     (error "~S -- Bad clause in ~S." case name))
+	     (error _"~S -- Bad clause in ~S." case name))
 	    ((and (not allow-otherwise)
 		  (memq (car case) '(t otherwise)))
 	     (cond ((null (cdr case-list))
@@ -1322,10 +1334,10 @@
 		    ;; only if it's the last case.  Otherwise, it's just a
 		    ;; normal clause.
 		    (if errorp
-			(error "No default clause allowed in ~S: ~S" name case)
+			(error _"No default clause allowed in ~S: ~S" name case)
 			(push `(t nil ,@(rest case)) clauses)))
 		   ((and (eq name 'case))
-		    (error "T and OTHERWISE may not be used as key designators for ~A" name))
+		    (error _"T and OTHERWISE may not be used as key designators for ~A" name))
 		   ((eq (first case) t)
 		    ;; The key T is normal clause, because it's not
 		    ;; the last clause.
@@ -1342,7 +1354,7 @@
 	    (t
 	     (when (and allow-otherwise
 			(memq (car case) '(t otherwise)))
-	       (warn "Bad style to use T or OTHERWISE in ECASE or CCASE"))
+	       (warn _"Bad style to use T or OTHERWISE in ECASE or CCASE"))
 	     (push (first case) keys)
 	     (push `((,test ,keyform-value
 			    ',(first case)) nil ,@(rest case)) clauses))))
@@ -1398,46 +1410,46 @@
 	     :possibilities keys)
     (store-value (value)
       :report (lambda (stream)
-		(format stream "Supply a new value for ~S." keyform))
+		(format stream _"Supply a new value for ~S." keyform))
       :interactive read-evaluated-form
       value)))
 
 
 (defmacro case (keyform &body cases)
-  "CASE Keyform {({(Key*) | Key} Form*)}*
+  _N"CASE Keyform {({(Key*) | Key} Form*)}*
   Evaluates the Forms in the first clause with a Key EQL to the value
   of Keyform.  If a singleton key is T or Otherwise then the clause is
   a default clause."
   (case-body 'case keyform cases t 'eql nil nil))
 
 (defmacro ccase (keyform &body cases)
-  "CCASE Keyform {({(Key*) | Key} Form*)}*
+  _N"CCASE Keyform {({(Key*) | Key} Form*)}*
   Evaluates the Forms in the first clause with a Key EQL to the value of
   Keyform.  If none of the keys matches then a correctable error is
   signalled."
   (case-body 'ccase keyform cases t 'eql nil t t))
 
 (defmacro ecase (keyform &body cases)
-  "ECASE Keyform {({(Key*) | Key} Form*)}*
+  _N"ECASE Keyform {({(Key*) | Key} Form*)}*
   Evaluates the Forms in the first clause with a Key EQL to the value of
   Keyform.  If none of the keys matches then an error is signalled."
   (case-body 'ecase keyform cases t 'eql nil nil t))
 
 (defmacro typecase (keyform &body cases)
-  "TYPECASE Keyform {(Type Form*)}*
+  _N"TYPECASE Keyform {(Type Form*)}*
   Evaluates the Forms in the first clause for which TYPEP of Keyform
   and Type is true.  If a singleton key is T or Otherwise then the
   clause is a default clause."
   (case-body 'typecase keyform cases nil 'typep nil nil))
 
 (defmacro ctypecase (keyform &body cases)
-  "CTYPECASE Keyform {(Type Form*)}*
+  _N"CTYPECASE Keyform {(Type Form*)}*
   Evaluates the Forms in the first clause for which TYPEP of Keyform and Type
   is true.  If no form is satisfied then a correctable error is signalled."
   (case-body 'ctypecase keyform cases nil 'typep nil t t))
 
 (defmacro etypecase (keyform &body cases)
-  "ETYPECASE Keyform {(Type Form*)}*
+  _N"ETYPECASE Keyform {(Type Form*)}*
   Evaluates the Forms in the first clause for which TYPEP of Keyform and Type
   is true.  If no form is satisfied then an error is signalled."
   (case-body 'etypecase keyform cases nil 'typep nil nil t))
@@ -1451,7 +1463,7 @@
 ;;; of whether they are needed.
 ;;;
 (defmacro assert (test-form &optional places datum &rest arguments)
-  "Signals an error if the value of test-form is nil.  Continuing from this
+  _N"Signals an error if the value of test-form is nil.  Continuing from this
    error using the CONTINUE restart will allow the user to alter the value of
    some locations known to SETF, starting over with test-form.  Returns nil."
   `(loop
@@ -1467,7 +1479,7 @@
 		   datum arguments
 		   'simple-error 'error)
 		  (make-condition 'simple-error
-				  :format-control "The assertion ~S failed."
+				  :format-control _"The assertion ~S failed."
 				  :format-arguments (list assertion)))))
   (restart-case (error cond)
     (continue ()
@@ -1476,17 +1488,19 @@
 
 
 (defun assert-report (names stream)
-  (format stream "Retry assertion")
+  (format stream _"Retry assertion")
   (if names
-      (format stream " with new value~P for ~{~S~^, ~}."
-	      (length names) names)
+      (format stream (intl:ngettext " with new value for ~{~S~^, ~}."
+				    " with new values for ~{~S~^, ~}."
+				    (length names))
+	      names)
       (format stream ".")))
 
 (defun assert-prompt (name value)
-  (cond ((y-or-n-p "The old value of ~S is ~S.~
+  (cond ((y-or-n-p _"The old value of ~S is ~S.~
 		  ~%Do you want to supply a new value? "
 		   name value)
-	 (format *query-io* "~&Type a form to be evaluated:~%")
+	 (format *query-io* _"~&Type a form to be evaluated:~%")
 	 (flet ((read-it () (eval (read *query-io*))))
 	   (if (symbolp name) ;help user debug lexical variables
 	       (progv (list name) (list value) (read-it))
@@ -1503,7 +1517,7 @@
 ;;;
 
 (defmacro check-type (place type &optional type-string)
-  "Signals an error of type type-error if the contents of place are not of the
+  _N"Signals an error of type type-error if the contents of place are not of the
    specified type.  If an error is signaled, this can only return if
    STORE-VALUE is invoked.  It will store into place and start over."
   (let ((place-value (gensym)))
@@ -1518,19 +1532,19 @@
 		  (make-condition 'simple-type-error
 				  :datum place-value :expected-type type
 				  :format-control
-				  "The value of ~S is ~S, which is not ~A."
+				  _"The value of ~S is ~S, which is not ~A."
 				  :format-arguments
 				  (list place place-value type-string))
 		  (make-condition 'simple-type-error
 				  :datum place-value :expected-type type
 				  :format-control
-				  "The value of ~S is ~S, which is not of type ~S."
+				  _"The value of ~S is ~S, which is not of type ~S."
 				  :format-arguments
 				  (list place place-value type)))))
     (restart-case (error cond)
       (store-value (value)
 	:report (lambda (stream)
-		  (format stream "Supply a new value of ~S."
+		  (format stream _"Supply a new value of ~S."
 			  place))
 	:interactive read-evaluated-form
 	value))))
@@ -1540,13 +1554,13 @@
 ;;; and by CHECK-TYPE.
 ;;;
 (defun read-evaluated-form ()
-  (format *query-io* "~&Type a form to be evaluated:~%")
+  (format *query-io* _"~&Type a form to be evaluated:~%")
   (list (eval (read *query-io*))))
 
 
 ;;;; With-XXX
 (defmacro with-open-file ((var filespec &rest open-args) &parse-body (forms decls))
-  "The file whose name is Filespec is opened using the Open-args and
+  _N"The file whose name is Filespec is opened using the Open-args and
   bound to the variable Var. If the call to open is unsuccessful, the
   forms are not evaluated.  The Forms are executed, and when they
   terminate, normally or otherwise, the file is closed."
@@ -1563,7 +1577,7 @@
 
 
 (defmacro with-open-stream ((var stream) &parse-body (forms decls))
-  "The form stream should evaluate to a stream.  VAR is bound
+  _N"The form stream should evaluate to a stream.  VAR is bound
    to the stream and the forms are evaluated as an implicit
    progn.  The stream is closed upon exit."
   (let ((abortp (gensym)))
@@ -1580,7 +1594,7 @@
 
 (defmacro with-input-from-string ((var string &key index start end)
 				  &parse-body (forms decls))
-  "Binds the Var to an input stream that returns characters from String and
+  _N"Binds the Var to an input stream that returns characters from String and
   executes the body.  See manual for details."
   ;; The once-only inhibits compiler note for unreachable code when 'end' is true.
   (once-only ((string string))
@@ -1604,7 +1618,7 @@
 
 (defmacro with-output-to-string ((var &optional string &key element-type)
 				 &parse-body (forms decls))
-  "If STRING is specified, it must be a string with a fill pointer;
+  _N"If STRING is specified, it must be a string with a fill pointer;
    the output is incrementally appended to the string (as if by use of
    VECTOR-PUSH-EXTEND)."
   (declare (ignore element-type))
@@ -1724,7 +1738,7 @@
 
 
 (defmacro do (varlist endlist &parse-body (body decls))
-  "DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
+  _N"DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
   Iteration construct.  Each Var is initialized in parallel to the value of the
   specified Init form.  On subsequent iterations, the Vars are assigned the
   value of the Step form (if any) in paralell.  The Test is evaluated before
@@ -1737,7 +1751,7 @@
 
 
 (defmacro do* (varlist endlist &parse-body (body decls))
-  "DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
+  _N"DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
   Iteration construct.  Each Var is initialized sequentially (like LET*) to the
   value of the specified Init form.  On subsequent iterations, the Vars are
   sequentially assigned the value of the Step form (if any).  The Test is
@@ -1751,7 +1765,7 @@
 ;;;; Miscellaneous macros:
 
 (defmacro psetq (&rest pairs)
-  "PSETQ {var value}*
+  _N"PSETQ {var value}*
    Set the variables to the values, like SETQ, except that assignments
    happen in parallel, i.e. no assignments take place until all the
    forms have been evaluated."
@@ -1762,7 +1776,7 @@
       ((endp pair) `(psetf ,@pairs))
     (unless (symbolp (car pair))
       (error 'simple-program-error
-             :format-control "variable ~S in PSETQ is not a SYMBOL"
+             :format-control _"variable ~S in PSETQ is not a SYMBOL"
              :format-arguments (list (car pair))))))
 
 
@@ -1814,7 +1828,7 @@
 	      (:global (member parent '(defun defmacro function)))
 	      (:local (member parent '(labels flet)))
 	      (t
-	       (error "Unknown declaration context: ~S." context))))
+	       (error _"Unknown declaration context: ~S." context))))
 	  (case (first context)
 	    (:or
 	     (loop for x in (rest context)
@@ -1835,7 +1849,7 @@
 		  (loop for x in (rest context)
 			thereis (eq (find-package (string x)) package))))
 	    (t
-	     (error "Unknown declaration context: ~S." context)))))))
+	     (error _"Unknown declaration context: ~S." context)))))))
 
   
 ;;; PROCESS-CONTEXT-DECLARATIONS  --  Internal
@@ -1848,7 +1862,7 @@
    (mapcar
     #'(lambda (decl)
 	(unless (>= (length decl) 2)
-	  (error "Context declaration spec should have context and at ~
+	  (error _"Context declaration spec should have context and at ~
 	  least one DECLARE form:~%  ~S" decl))
 	#'(lambda (name parent)
 	    (when (evaluate-declaration-context (first decl) name parent)
@@ -1860,7 +1874,7 @@
 ;;; With-Compilation-Unit  --  Public
 ;;;
 (defmacro with-compilation-unit (options &body body)
-  "WITH-COMPILATION-UNIT ({Key Value}*) Form*
+  _N"WITH-COMPILATION-UNIT ({Key Value}*) Form*
   This form affects compilations that take place within its dynamic extent.  It
   is intended to be wrapped around the compilation of all files in the same
   system.  These keywords are defined:
@@ -1922,7 +1936,7 @@
 	(n-fun (gensym))
 	(n-abort-p (gensym)))
     (when (oddp (length options))
-      (error "Odd number of key/value pairs: ~S." options))
+      (error _"Odd number of key/value pairs: ~S." options))
     (do ((opt options (cddr opt)))
 	((null opt))
       (case (first opt)
@@ -1935,7 +1949,7 @@
 	(:context-declarations
 	 (setq context-declarations (second opt)))
 	(t
-	 (warn "Ignoring unknown option: ~S." (first opt)))))
+	 (warn _"Ignoring unknown option: ~S." (first opt)))))
 
     `(flet ((,n-fun ()
 	      (let (,@(when optimize
diff --git a/code/mipsstrops.lisp b/code/mipsstrops.lisp
index 6579d7c01b74cab619523f147086d25f95884fc5..3629f3586980489af6d01750df95f6eb2b82339c 100644
--- a/code/mipsstrops.lisp
+++ b/code/mipsstrops.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mipsstrops.lisp,v 1.8 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mipsstrops.lisp,v 1.9 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;;    Written by Rob MacLachlan and Skef Wholey
 ;;;
 (in-package "SYSTEM")
+(intl:textdomain "cmucl")
+
 (export '(%sp-reverse-find-character-with-attribute))
 
 (in-package "LISP")
@@ -30,7 +32,7 @@
 (defun %sp-string-compare (string1 start1 end1 string2 start2 end2)
   (declare (simple-string string1 string2))
   (declare (fixnum start1 end1 start2 end2))
-  "Compares the substrings specified by String1 and String2 and returns
+  _N"Compares the substrings specified by String1 and String2 and returns
 NIL if the strings are String=, or the lowest index of String1 in
 which the two differ. If one string is longer than the other and the
 shorter is a prefix of the longer, the length of the shorter + start1 is
@@ -65,7 +67,7 @@ be simple strings."
 (defun %sp-reverse-string-compare (string1 start1 end1 string2 start2 end2)
   (declare (simple-string string1 string2))
   (declare (fixnum start1 end1 start2 end2))
-  "Like %sp-string-compare, only backwards."
+  _N"Like %sp-string-compare, only backwards."
   (let ((len1 (- end1 start1))
 	(len2 (- end2 start2)))
     (declare (fixnum len1 len2))
@@ -111,7 +113,7 @@ be simple strings."
   (declare (type (simple-array (unsigned-byte 8) (256)) table)
 	   (type (or simple-string system-area-pointer) string)
 	   (fixnum start end mask))
-  "%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask
+  _N"%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask
   The codes of the characters of String from Start to End are used as indices
   into the Table, which is a U-Vector of 8-bit bytes. When the number picked
   up from the table bitwise ANDed with Mask is non-zero, the current
@@ -124,7 +126,7 @@ be simple strings."
 	(return index)))))
 
 (defun %sp-reverse-find-character-with-attribute (string start end table mask)
-  "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
+  _N"Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
   (declare (type (or simple-string system-area-pointer) string)
 	   (fixnum start end mask)
 	   (type (array (unsigned-byte 8) (256)) table))
@@ -136,7 +138,7 @@ be simple strings."
 	(return index)))))
 
 (defun %sp-find-character (string start end character)
-  "%SP-Find-Character  String, Start, End, Character
+  _N"%SP-Find-Character  String, Start, End, Character
   Searches String for the Character from Start to End.  If the character is
   found, the corresponding index into String is returned, otherwise NIL is
   returned."
@@ -154,7 +156,7 @@ be simple strings."
   (declare (type (or simple-string system-area-pointer) string)
 	   (fixnum start end)
 	   (base-char character))
-  "%SP-Reverse-Find-Character  String, Start, End, Character
+  _N"%SP-Reverse-Find-Character  String, Start, End, Character
   Searches String for Character from End to Start.  If the character is
   found, the corresponding index into String is returned, otherwise NIL is
   returned."
@@ -170,7 +172,7 @@ be simple strings."
   (declare (type (or simple-string system-area-pointer) string)
 	   (fixnum start end)
 	   (base-char character))
-  "%SP-Skip-Character  String, Start, End, Character
+  _N"%SP-Skip-Character  String, Start, End, Character
   Returns the index of the first character between Start and End which
   is not Char=  to Character, or NIL if there is no such character."
   (maybe-sap-maybe-string (string)
@@ -184,7 +186,7 @@ be simple strings."
   (declare (type (or simple-string system-area-pointer) string)
 	   (fixnum start end)
 	   (base-char character))
-  "%SP-Skip-Character  String, Start, End, Character
+  _N"%SP-Skip-Character  String, Start, End, Character
   Returns the index of the last character between Start and End which
   is not Char=  to Character, or NIL if there is no such character."
   (maybe-sap-maybe-string (string)
@@ -196,7 +198,7 @@ be simple strings."
 	  (return index)))))
 
 (defun %sp-string-search (string1 start1 end1 string2 start2 end2)
-  "%SP-String-Search  String1, Start1, End1, String2, Start2, End2
+  _N"%SP-String-Search  String1, Start1, End1, String2, Start2, End2
    Searches for the substring of String1 specified in String2.
    Returns an index into String2 or NIL if the substring wasn't
    found."
diff --git a/code/misc.lisp b/code/misc.lisp
index 397b343825f9e33e045340dca52a9fbea6b8fb2a..e97a334f74c8bccdbd6ec6bcb3399a3a90f1cc64 100644
--- a/code/misc.lisp
+++ b/code/misc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.38 2009/09/09 15:51:27 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.39 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(documentation *features* variable room
 	  lisp-implementation-type lisp-implementation-version machine-type
 	  machine-version machine-instance software-type software-version
@@ -55,7 +57,7 @@
       (values (info function documentation name)))))
 
 (defun documentation (x doc-type)
-  "Returns the documentation string of Doc-Type for X, or NIL if
+  _N"Returns the documentation string of Doc-Type for X, or NIL if
   none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,
   SETF, and T."
   (flet (;; CMUCL random-documentation.
@@ -95,14 +97,33 @@
 (defun (setf documentation) (string name doc-type)
   #-no-docstrings
   (case doc-type
-    (variable (setf (info variable documentation name) string))
-    (function (setf (info function documentation name) string))
+    (variable
+     #+nil
+     (when string
+       (%primitive print "Set variable text domain")
+       (%primitive print (symbol-name name))
+       (%primitive print intl::*default-domain*))
+     (setf (info variable textdomain name) intl::*default-domain*)
+     (setf (info variable documentation name) string))
+    (function
+     #+nil
+     (when intl::*default-domain*
+       (%primitive print "Set function text domain")
+       (%primitive print (symbol-name name))
+       (%primitive print intl::*default-domain*))
+     (setf (info function textdomain name) intl::*default-domain*)
+     (setf (info function documentation name) string))
     (structure
      (unless (eq (info type kind name) :instance)
-       (error "~S is not the name of a structure type." name))
+       (error _"~S is not the name of a structure type." name))
+     (setf (info type textdomain name) intl::*default-domain*)
+     (setf (info type documentation name) string))
+    (type
+     (setf (info type textdomain name) intl::*default-domain*)
      (setf (info type documentation name) string))
-    (type (setf (info type documentation name) string))
-    (setf (setf (info setf documentation name) string))
+    (setf
+     (setf (info setf textdomain name) intl::*default-domain*)
+     (setf (info setf documentation name) string))
     (t
      (let ((pair (assoc doc-type (info random-documentation stuff name))))
        (if pair
@@ -140,7 +161,7 @@
 (sys:register-lisp-runtime-feature :unicode)
 
 (defun featurep (x)
-  "If X is an atom, see if it is present in *FEATURES*.  Also
+  _N"If X is an atom, see if it is present in *FEATURES*.  Also
   handle arbitrary combinations of atoms using NOT, AND, OR."
   (if (consp x)
       (case (car x)
@@ -148,44 +169,44 @@
 	((:and and) (every #'featurep (cdr x)))
 	((:or or) (some #'featurep (cdr x)))
 	(t
-	 (error "Unknown operator in feature expression: ~S." x)))
+	 (error _"Unknown operator in feature expression: ~S." x)))
       (not (null (memq x *features*)))))
 
 
 ;;; Other Environment Inquiries.
 
 (defun lisp-implementation-type ()
-  "Returns a string describing the implementation type."
+  _N"Returns a string describing the implementation type."
   "CMU Common Lisp")
 
 (defun lisp-implementation-version ()
-  "Returns a string describing the implementation version."
+  _N"Returns a string describing the implementation version."
   (format nil "~A (~X~A)" *lisp-implementation-version* c:byte-fasl-file-version
-	  #+unicode " Unicode" #-unicode ""))
+	  #+unicode _" Unicode" #-unicode ""))
 
 (defun machine-instance ()
-  "Returns a string giving the name of the local machine."
+  _N"Returns a string giving the name of the local machine."
   (unix:unix-gethostname))
 
 (defvar *software-type* "Unix"
-  "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp.")
+  _N"The value of SOFTWARE-TYPE.  Set in FOO-os.lisp.")
 
 (defun software-type ()
-  "Returns a string describing the supporting software."
+  _N"Returns a string describing the supporting software."
   *software-type*)
 
-(defvar *short-site-name* "Unknown"
-  "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp.")
+(defvar *short-site-name* _"Unknown"
+  _N"The value of SHORT-SITE-NAME.  Set in library:site-init.lisp.")
 
 (defun short-site-name ()
-  "Returns a string with the abbreviated site name."
+  _N"Returns a string with the abbreviated site name."
   *short-site-name*)
 
-(defvar *long-site-name* "Site name not initialized"
-  "The value of LONG-SITE-NAME.  Set in library:site-init.lisp.")
+(defvar *long-site-name* _"Site name not initialized"
+  _N"The value of LONG-SITE-NAME.  Set in library:site-init.lisp.")
 
 (defun long-site-name ()
-  "Returns a string with the long form of the site name."
+  _N"Returns a string with the long form of the site name."
   *long-site-name*)
 
 
@@ -207,7 +228,7 @@
 (defvar *dribble-stream* nil)
 
 (defun dribble (&optional pathname &key (if-exists :append))
-  "With a file name as an argument, dribble opens the file and
+  _N"With a file name as an argument, dribble opens the file and
    sends a record of further I/O to that file.  Without an
    argument, it closes the dribble file, and quits logging."
   (cond (pathname
@@ -228,7 +249,7 @@
 	   (setf *standard-output* new-standard-output)
 	   (setf *error-output* new-error-output)))
 	((null *dribble-stream*)
-	 (error "Not currently dribbling."))
+	 (error _"Not currently dribbling."))
 	(t
 	 (let ((old-streams (pop *previous-streams*)))
 	   (close *dribble-stream*)
@@ -239,7 +260,7 @@
   (values))
 
 (defun ed (&optional x)
-  "Default implementation of ed.  This does nothing.  If hemlock is
+  _N"Default implementation of ed.  This does nothing.  If hemlock is
   loaded, ed can be used to edit a file"
   (declare (ignorable x))
   (values))
diff --git a/code/module.lisp b/code/module.lisp
index af65d9c1331caceaa68842a6982b118903e7b51c..d4157959d39116fe33572346433bfd811cfce81a 100644
--- a/code/module.lisp
+++ b/code/module.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/module.lisp,v 1.11 2009/08/18 13:12:41 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/module.lisp,v 1.12 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 
@@ -17,6 +17,7 @@
 ;;; addition of modules to the X3J13 ANSI standard.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(*modules* provide require))
 
@@ -30,21 +31,21 @@
 ;;;; Exported specials.
 
 (defvar *modules* ()
-  "This is a list of module names that have been loaded into Lisp so far.
+  _N"This is a list of module names that have been loaded into Lisp so far.
    It is used by PROVIDE and REQUIRE.")
 
 (defvar *require-verbose* t
-  "*load-verbose* is bound to this before loading files.")
+  _N"*load-verbose* is bound to this before loading files.")
 
 (defvar *module-provider-functions*
     '(module-provide-cmucl-defmodule module-provide-cmucl-library)
-  "See function documentation for REQUIRE")
+  _N"See function documentation for REQUIRE")
 
 ;;;; Defmodule.
 
 (defvar *module-file-translations* (make-hash-table :test #'equal))
 (defmacro defmodule (name &rest files)
-  "Defines a module by registering the files that need to be loaded when
+  _N"Defines a module by registering the files that need to be loaded when
    the module is required.  If name is a symbol, its print name is used
    after downcasing it."
   `(%define-module ,name ',files))
@@ -61,14 +62,14 @@
 ;;;; Provide and Require.
 
 (defun provide (module-name)
-  "Adds a new module name to *modules* indicating that it has been loaded.
+  _N"Adds a new module name to *modules* indicating that it has been loaded.
    Module-name may be any valid string designator.  All comparisons are
    done using string=, i.e. module names are case-sensitive."
   (pushnew (module-name-string module-name) *modules* :test #'string=)
   t)
 
 (defun require (module-name &optional pathname)
-  "Loads a module when it has not been already.  Pathname, if supplied,
+  _N"Loads a module when it has not been already.  Pathname, if supplied,
    is a single pathname or list of pathnames to be loaded if the module
    needs to be.  If pathname is not supplied, then functions from the list
    *MODULE-PROVIDER-FUNCTIONS* are called in order with the stringified
@@ -97,7 +98,7 @@
 	      (load file))
             (unless (some (lambda (p) (funcall p module-name))
                           *module-provider-functions*)
-              (error "Don't know how to load ~A" module-name)))))
+              (error _"Don't know how to load ~A" module-name)))))
     (set-difference *modules* saved-modules)))
 
 ;;;; Default module providers
@@ -114,11 +115,11 @@
 ;;;; Misc.
 
 (defun module-name-string (name)
-  "Coerce a string designator to a module name."
+  _N"Coerce a string designator to a module name."
   (string name))
 
 (defun module-default-pathname (module-name)
-  "Derive a default pathname to try to load for an undefined module
+  _N"Derive a default pathname to try to load for an undefined module
 named module-name.  The default pathname is constructed from the
 module-name by appending the suffix \"-LIBRARY\" to it, and merging
 with \"modules:\".  Note that both the module-name and the suffix are
diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index 71b9d54ace90b1c05fc304144e92021e6ea5fcc8..5210d9807c44ce483603f82358ddf7ddf3e0d2b6 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -5,7 +5,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.44 2008/11/12 15:04:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.45 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,7 @@
 ;;;
 
 (in-package "MULTIPROCESSING")
+(intl:textdomain "cmucl-mp")
 
 (sys:register-lisp-runtime-feature :mp)
 
@@ -726,7 +727,7 @@
 (declaim (inline get-real-time))
 ;;;
 (defun get-real-time ()
-  "Return the real time in seconds."
+  _N"Return the real time in seconds."
   (declare (optimize (speed 3) (safety 0)))
   (multiple-value-bind (ignore seconds useconds)
       (unix:unix-gettimeofday)
@@ -740,7 +741,7 @@
 (declaim (inline get-run-time))
 ;;;
 (defun get-run-time ()
-  "Return the run time in seconds"
+  _N"Return the run time in seconds"
   (declare (optimize (speed 3) (safety 0)))
   (multiple-value-bind (ignore utime-sec utime-usec stime-sec stime-usec)
       (unix:unix-fast-getrusage unix:rusage_self)
@@ -761,7 +762,7 @@
 ;;; Process-Whostate  --  Public
 ;;;
 (defun process-whostate (process)
-  "Return the process state which is either Run, Killed, or a wait reason."
+  _N"Return the process state which is either Run, Killed, or a wait reason."
   (cond ((eq (process-state process) :killed)
 	 "Killed")
 	((process-wait-function process)
@@ -794,18 +795,18 @@
 ;;;
 (declaim (inline current-process))
 (defun current-process ()
-  "Returns the current process."
+  _N"Returns the current process."
   *current-process*)
 
 (declaim (list *all-processes*))
 (defvar *all-processes* nil
-  "A list of all alive processes.")
+  _N"A list of all alive processes.")
 
 ;;; All-Processes  --  Public
 ;;;
 (declaim (inline all-processes))
 (defun all-processes ()
-  "Return a list of all the live processes."
+  _N"Return a list of all the live processes."
   *all-processes*)
 
 (declaim (type (or null process) *initial-process*))
@@ -819,7 +820,7 @@
 (defvar *inhibit-scheduling* t)
 ;;;
 (defmacro without-scheduling (&body body)
-  "Execute the body the scheduling disabled."
+  _N"Execute the body the scheduling disabled."
   `(let ((inhibit *inhibit-scheduling*))
     (unwind-protect
 	 (progn
@@ -828,22 +829,22 @@
       (setf *inhibit-scheduling* inhibit))))
 
 (defmacro atomic-incf (reference &optional (delta 1))
-  "Increaments the reference by delta in a single atomic operation"
+  _N"Increaments the reference by delta in a single atomic operation"
   `(without-scheduling
     (incf ,reference ,delta)))
 
 (defmacro atomic-decf (reference &optional (delta 1))
-  "Decrements the reference by delta in a single atomic operation"
+  _N"Decrements the reference by delta in a single atomic operation"
   `(without-scheduling
     (decf ,reference ,delta)))
 
 (defmacro atomic-push (obj place)
-  "Atomically push object onto place."
+  _N"Atomically push object onto place."
   `(without-scheduling
     (push ,obj ,place)))
 
 (defmacro atomic-pop (place)
-  "Atomically pop place."
+  _N"Atomically pop place."
   `(without-scheduling
     (pop ,place)))
 
@@ -893,7 +894,7 @@
 		     (run-reasons (list :enable))
 		     (arrest-reasons nil)
 		     (initial-bindings nil))
-  "Make a process which will run FUNCTION when it starts up.  By
+  _N"Make a process which will run FUNCTION when it starts up.  By
   default the process is created in a runnable (active) state.
   If FUNCTION is NIL, the process is started in a killed state; it may
   be restarted later with process-preset.
@@ -1014,7 +1015,7 @@
 ;;; Process-Interrupt  --  Public
 ;;;
 (defun process-interrupt (process function)
-  "Interrupt process and cause it to evaluate function."
+  _N"Interrupt process and cause it to evaluate function."
   ;; Place the interrupt function at the end of process's interrupts
   ;; queue, to be called the next time the process is scheduled.
   (without-scheduling
@@ -1026,7 +1027,7 @@
 ;;; Destroy-Process  --  Public
 ;;;
 (defun destroy-process (process)
-  "Destroy a process. The process is sent a interrupt which throws to
+  _N"Destroy a process. The process is sent a interrupt which throws to
   the end of the process allowing it to unwind gracefully."
   (declare (type process process))
   (assert (not (eq process *current-process*)))
@@ -1045,7 +1046,7 @@
   (process-yield))
 
 (defun restart-process (process)
-  "Restart process by unwinding it to its initial state and calling its
+  _N"Restart process by unwinding it to its initial state and calling its
   initial function."
   (destroy-process process)
   (if *inhibit-scheduling*		;Called inside without-scheduling?
@@ -1111,7 +1112,7 @@
 
 ;;; Process-Preset
 (defun process-preset (process function &rest args)
-  "Restart process, unwinding it to its initial state and calls
+  _N"Restart process, unwinding it to its initial state and calls
   function with args."
   (setf (process-initial-function process) function)
   (setf (process-initial-args process) args)
@@ -1121,7 +1122,7 @@
 ;;; Disable-Process  --  Public
 ;;;
 (defun disable-process (process)
-  "Disable process from being runnable until enabled."
+  _N"Disable process from being runnable until enabled."
   (without-scheduling
    (assert (not (eq (process-state process) :killed)))
    (setf (process-state process) :inactive)))
@@ -1129,7 +1130,7 @@
 ;;; Enable-Process  --  Public
 ;;;
 (defun enable-process (process)
-  "Allow process to become runnable again after it has been disabled."
+  _N"Allow process to become runnable again after it has been disabled."
   (without-scheduling
    (assert (not (eq (process-state process) :killed)))
    (setf (process-state process) :active)))
@@ -1137,7 +1138,7 @@
 ;;; Process-Wait  --  Public.
 ;;;
 (defun process-wait (whostate predicate &rest args)
-  "Causes the process to wait until predicate returns True. Processes
+  _N"Causes the process to wait until predicate returns True. Processes
   can only call process-wait when scheduling is enabled, and the predicate
   can not call process-wait. Since the predicate may be evaluated may
   times by the scheduler it should be relative fast native compiled code.
@@ -1159,7 +1160,7 @@
 ;;;
 (defun process-wait-with-timeout (whostate timeout predicate &rest args)
   (declare (type (or fixnum float) timeout))
-  "Causes the process to wait until predicate returns True, or the
+  _N"Causes the process to wait until predicate returns True, or the
   number of seconds specified by timeout has elapsed. The timeout may
   be a fixnum or a float in seconds.  The single True predicate value is
   returned, or NIL if the timeout was reached."
@@ -1209,7 +1210,7 @@
 ;;; Shutdown-multi-processing  --  Internal.
 ;;;
 (defun shutdown-multi-processing ()
-  "Try to gracefully destroy all the processes giving them some
+  _N"Try to gracefully destroy all the processes giving them some
   chance to unwinding, before shutting down multi-processing. This is
   currently necessary before a purify and is performed before a save-lisp.
   Multi-processing can be restarted by calling init-multi-processing."
@@ -1229,7 +1230,9 @@
 	    (push process destroyed-processes)))
 	(unless (rest *all-processes*)
 	  (return))
-	(format t "Destroyed ~d process~:P; remaining ~d~%"
+	(format t (intl:ngettext "Destroyed ~d process; remaining ~d~%"
+				 "Destroyed ~d processes; remaining ~d~%"
+				 (length destroyed-processes))
 		(length destroyed-processes) (length *all-processes*))
 	(process-yield)))
 
@@ -1259,7 +1262,7 @@
 (defvar *idle-loop-timeout* 0.1d0)
 ;;;
 (defun idle-process-loop ()
-  "An idle loop to be run by the initial process. The select based event
+  _N"An idle loop to be run by the initial process. The select based event
   server is called with a timeout calculated from the minimum of the
   *idle-loop-timeout* and the time to the next process wait timeout.
   To avoid this delay when there are runnable processes the *idle-process*
@@ -1302,7 +1305,7 @@
 ;;;
 (defun process-yield ()
   (declare (optimize (speed 3)))
-  "Allow other processes to run."
+  _N"Allow other processes to run."
   (unless *inhibit-scheduling*
     ;; Catch any FP exceptions before entering the scheduler.
     #+x87 (kernel:float-wait)
@@ -1445,7 +1448,7 @@
 ;;; The real time in seconds accrued while the process was scheduled.
 ;;;
 (defun process-real-time (process)
-  "Return the accrued real time elapsed while the given process was
+  _N"Return the accrued real time elapsed while the given process was
   scheduled. The returned time is a double-float in seconds."
   (declare (type process process))
   (if (eq process *current-process*)
@@ -1460,7 +1463,7 @@
 ;;; The run time in seconds accrued while the process was scheduled.
 ;;;
 (defun process-run-time (process)
-  "Return the accrued run time elapsed for the given process. The returned
+  _N"Return the accrued run time elapsed for the given process. The returned
   time is a double-float in seconds."
   (declare (type process process))
   (if (eq process *current-process*)
@@ -1476,7 +1479,7 @@
 ;;; de-scheduled.
 ;;;
 (defun process-idle-time (process)
-  "Return the real time elapsed since the given process was last
+  _N"Return the real time elapsed since the given process was last
   descheduled. The returned time is a double-float in seconds."
   (declare (type process process))
   (if (eq process *current-process*)
@@ -1491,7 +1494,7 @@
 ;;; good idea yet as the CMUCL code is not too interrupt safe.
 ;;;
 (defun start-sigalrm-yield (&optional (sec 0) (usec 500000))
-  "Start a regular SIGALRM interrupt which calls process-yield. An optional
+  _N"Start a regular SIGALRM interrupt which calls process-yield. An optional
   time in seconds and micro seconds may be provided. Note that CMUCL code
   base is not too interrupt safe so this may cause problems."
   (declare (fixnum sec usec))
@@ -1551,7 +1554,7 @@
 ;;; Wait until FD is usable for DIRECTION.
 ;;;
 (defun process-wait-until-fd-usable (fd direction &optional timeout)
-  "Wait until FD is usable for DIRECTION and return True. DIRECTION should be
+  _N"Wait until FD is usable for DIRECTION and return True. DIRECTION should be
   either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds to
   wait before giving up and returing NIL."
   (declare (type kernel:index fd)
@@ -1624,7 +1627,7 @@
 ;;; rather than blocking.
 ;;;
 (defun sleep (n)
-  "This function causes execution to be suspended for N seconds.  N may
+  _N"This function causes execution to be suspended for N seconds.  N may
   be any non-negative, non-complex number."
   (when (or (not (realp n))
 	    (minusp n))
@@ -1667,7 +1670,7 @@
 ;;; With-Timeout  --  Public
 ;;;
 (defmacro with-timeout ((timeout &body timeout-forms) &body body)
-  "Executes body and returns the values of the last form in body. However, if
+  _N"Executes body and returns the values of the last form in body. However, if
   the execution takes longer than timeout seconds, abort it and evaluate
   timeout-forms, returning the values of last form."
   `(flet ((fn () . ,body)
@@ -1678,7 +1681,7 @@
 ;;; Show-Processes  --  Public
 ;;;
 (defun show-processes (&optional verbose)
-  "Show the all the processes, their whostate, and state. If the optional
+  _N"Show the all the processes, their whostate, and state. If the optional
   verbose argument is true then the run, real, and idle times are also
   shown."
   (fresh-line)
@@ -1697,7 +1700,7 @@
 ;;; Top-Level  --  Internal
 ;;;
 (defun top-level ()
-  "Top-level READ-EVAL-PRINT loop for processes."
+  _N"Top-level READ-EVAL-PRINT loop for processes."
   (let ((* nil) (** nil) (*** nil)
 	(- nil) (+ nil) (++ nil) (+++ nil)
 	(/// nil) (// nil) (/ nil)
@@ -1728,7 +1731,7 @@
 ;;; Startup-Idle-and-Top-Level-Loops -- Internal
 ;;;
 (defun startup-idle-and-top-level-loops ()
-  "Enter the idle loop, starting a new process to run the top level loop.
+  _N"Enter the idle loop, starting a new process to run the top level loop.
   The awaking of sleeping processes is timed better with the idle loop process
   running, and starting a new process for the top level loop supports a
   simultaneous interactive session. Such an initialisation will likely be the
@@ -1749,7 +1752,7 @@
 (defun start-lisp-connection-listener (&key (port 1025)
 					    (password (random (expt 2 24))))
   (declare (type (unsigned-byte 16) port))
-  "Create a Lisp connection listener, listening on a TCP port for new
+  _N"Create a Lisp connection listener, listening on a TCP port for new
   connections and starting a new top-level loop for each. If a password
   is not given then one will be generated and reported.  A search is
   performed for the first free port starting at the given port which
@@ -1925,7 +1928,7 @@
 (defmacro with-lock-held ((lock &optional (whostate "Lock Wait")
 				&key (wait t) timeout)
 			  &body body)
-  "Execute the body with the lock held. If the lock is held by another
+  _N"Execute the body with the lock held. If the lock is held by another
   process then the current process waits until the lock is released or
   an optional timeout is reached. The optional wait timeout is a time in
   seconds acceptable to process-wait-with-timeout.  The results of the
diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index 32fe7a235b522bc54074c05c887ddb45cf7ce9fc..8756106a4e5270f93ec417f2bcbecf5a18afa9ee 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.43 2009/03/11 01:19:27 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.44 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; **********************************************************************
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(trace untrace))
 
@@ -27,15 +28,15 @@
 (use-package :fwrappers)
 
 (defvar *trace-values* nil
-  "This is bound to the returned values when evaluating :BREAK-AFTER and
+  _N"This is bound to the returned values when evaluating :BREAK-AFTER and
    :PRINT-AFTER forms.")
 
 (defvar *max-trace-indentation* 40
-  "If the trace indentation exceeds this value, then indentation restarts at
+  _N"If the trace indentation exceeds this value, then indentation restarts at
    0.")
 
 (defvar *trace-encapsulate-default* :default
-  "The default value for the :ENCAPSULATE option to trace.")
+  _N"The default value for the :ENCAPSULATE option to trace.")
 
 (defvar *trace-encapsulate-package-names*
   '("LISP"
@@ -50,7 +51,7 @@
     "SYSTEM"
     "COMPILER"
     "TRACE")
-  "List of package names.  Encapsulate functions from these packages
+  _N"List of package names.  Encapsulate functions from these packages
    by default.  This should at least include the packages of functions
    used by TRACE, directly or indirectly.")
 
@@ -162,7 +163,7 @@
       (typecase x
 	(symbol
 	 (cond ((special-operator-p x)
-		(error "Can't trace special form ~S." x))
+		(error _"Can't trace special form ~S." x))
 	       ((macro-function x))
 	       (t
 		(values (fdefinition x) t))))
@@ -301,7 +302,7 @@
   (when (and break (funcall (cdr break) frame))
     (di:flush-frames-above frame)
     (let ((*stack-top-hint* frame))
-      (break "Breaking ~A traced call to ~S:" where
+      (break _"Breaking ~A traced call to ~S:" where
 	     (trace-info-what info)))))
 
 ;;; DISCARD-INVALID-ENTRIES  --  Internal
@@ -397,7 +398,7 @@
 	    (pprint-logical-block (*standard-output* nil)
 	      (print-trace-indentation)
 	      (pprint-indent :current 2)
-	      (format t "~S returned" (trace-info-what info))
+	      (format t _"~S returned" (trace-info-what info))
 	      (dolist (v *trace-values*)
 		(write-char #\space)
 		(pprint-newline :linear)
@@ -457,7 +458,7 @@
 		    (nth-value 2 (trace-fdefinition definition))))
 	  (trace-fdefinition function-or-name))
     (when (gethash (or local fun) *traced-functions*)
-      (warn "Function ~S already TRACE'd, retracing it." function-or-name)
+      (warn _"Function ~S already TRACE'd, retracing it." function-or-name)
       (untrace-1 fun))
     
     (let* ((debug-fun (di:function-debug-function fun :local-name local))
@@ -471,7 +472,7 @@
 		     encapsulate-p)
 		    (:compiled-closure
 		     (unless (functionp function-or-name)
-		       (warn "Tracing shared code for ~S:~%  ~S"
+		       (warn _"Tracing shared code for ~S:~%  ~S"
 			     function-or-name fun))
 		     encapsulate-p)
 		    ((:interpreted :interpreted-closure
@@ -503,7 +504,7 @@
 		   (declare (ignore validp))
 		   (unless (or (stringp block-name)
 			       (fboundp block-name))
-		     (warn "~S name is not a defined global function: ~S"
+		     (warn _"~S name is not a defined global function: ~S"
 			   type wherein))))))
 	(verify-wherein (trace-info-wherein info) :wherein)
 	(verify-wherein (trace-info-wherein-only info) :wherein-only))
@@ -512,10 +513,10 @@
       (cond
        (encapsulated
 	(unless named
-	  (error "Can't use encapsulation to trace anonymous function ~S."
+	  (error _"Can't use encapsulation to trace anonymous function ~S."
 		 fun))
 	(when (listp fun)
-	  (error "Can't use encapsulation to trace local flet/labels function ~S."
+	  (error _"Can't use encapsulation to trace local flet/labels function ~S."
 		 fun))
 	(fwrap function-or-name #'trace-fwrapper :type 'trace
 	       :user-data info))
@@ -625,7 +626,7 @@
 	     (t (return)))
 	   (pop current)
 	   (unless current
-	     (error "Missing argument to ~S TRACE option." option))
+	     (error _"Missing argument to ~S TRACE option." option))
 	   (pop current)))
       current)))
 
@@ -660,7 +661,7 @@
 			  (trace-1 name ',options))))))
 	   ((and (keywordp name)
 		 (not (or (fboundp name) (macro-function name))))
-	    (error "Unknown TRACE option: ~S" name))
+	    (error _"Unknown TRACE option: ~S" name))
 	   ;;
 	   ;; Method name -> trace method functions.
 	   ((and (consp name) (eq (car name) 'method))
@@ -688,7 +689,7 @@
 ;;; TRACE -- Public.
 ;;;
 (defmacro trace (&rest specs)
-  "TRACE {Option Global-Value}* {Name {Option Value}*}*
+  _N"TRACE {Option Global-Value}* {Name {Option Value}*}*
    TRACE is a debugging tool that prints information when specified functions
    are called.  In its simplest form:
        (trace Name-1 Name-2 ...)
@@ -785,7 +786,7 @@
     (let* ((key (or local fun))
 	   (info (gethash key *traced-functions*)))
       (cond ((not info)
-	     (warn "Function is not TRACE'd -- ~S." function-or-name))
+	     (warn _"Function is not TRACE'd -- ~S." function-or-name))
 	    (t
 	     (cond ((trace-info-encapsulated info)
 		    (funwrap (trace-info-what info) :type 'trace))
@@ -805,7 +806,7 @@
   t)
 
 (defmacro untrace (&rest specs)
-  "Removes tracing from the specified functions.  With no args, untraces all
+  _N"Removes tracing from the specified functions.  With no args, untraces all
    functions."
   (if specs
       (collect ((res))
diff --git a/code/numbers.lisp b/code/numbers.lisp
index e6ec5870bdbec6a0cc429f9c26a4a49b73dffec4..e9d34aaa5d8def707e4e9bd4bec0786d66ca3511 100644
--- a/code/numbers.lisp
+++ b/code/numbers.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.67 2009/07/10 14:22:24 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.68 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Long-float support by Douglas Crosher, 1998.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(zerop plusp minusp oddp evenp = /= < > <= >= max min + - * / 1+ 1- 
 	  conjugate abs phase signum float floor ceiling truncate cis round mod
@@ -47,13 +48,13 @@
 ;;;
 (defun parse-number-dispatch (vars result types var-types body)
   (cond ((null vars)
-	 (unless (null types) (error "More types than vars."))
+	 (unless (null types) (error _"More types than vars."))
 	 (when (cdr result)
-	   (error "Duplicate case: ~S." body))
+	   (error _"Duplicate case: ~S." body))
 	 (setf (cdr result)
 	       (sublis var-types body :test #'equal)))
 	((null types)
-	 (error "More vars than types."))
+	 (error _"More vars than types."))
 	(t
 	 (flet ((frob (var type)
 		  (parse-number-dispatch
@@ -118,7 +119,7 @@
 ;;; NUMBER-DISPATCH  --  Interface
 ;;;
 (defmacro number-dispatch (var-specs &body cases)
-  "NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*
+  _N"NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*
   A vaguely case-like macro that does number cross-product dispatches.  The
   Vars are the variables we are dispatching off of.  The Type paired with each
   Var is used in the error message when no case matches.  Each case specifies a
@@ -154,7 +155,7 @@
 		    (error 'simple-type-error :datum ,var
 			   :expected-type ',type
 			   :format-control
-			   "Argument ~A is not a ~S: ~S."
+			   _"Argument ~A is not a ~S: ~S."
 			   :format-arguments
 			   (list ',var ',type ,var))))))
       
@@ -284,7 +285,7 @@
 ;;;; Complexes:
 
 (defun upgraded-complex-part-type (spec &optional environment)
-  "Returns the element type of the most specialized COMPLEX number type that
+  _N"Returns the element type of the most specialized COMPLEX number type that
    can hold parts of type Spec."
   (declare (ignore environment))
   (cond ((subtypep spec 'single-float)
@@ -306,8 +307,8 @@
 	 'real)
 	((kernel::hairy-type-p (specifier-type spec))
 	 ;; Do we really want to produce this error here?
-	 (cerror "Assume this is a subtype of REAL anyway."
-		 "Cannot determine if ~S is a subtype of REAL."
+	 (cerror _"Assume this is a subtype of REAL anyway."
+		 _"Cannot determine if ~S is a subtype of REAL."
 		 spec)
 	'real)
 	(t
@@ -315,11 +316,11 @@
 	 (error 'type-error
 		:datum spec
 		:expected-type 'real
-		:format-control "Complex numbers cannot have components of type ~S."
+		:format-control _"Complex numbers cannot have components of type ~S."
 		:format-arguments (list spec)))))
 
 (defun complex (realpart &optional (imagpart 0))
-  "Builds a complex number from the specified components."
+  _N"Builds a complex number from the specified components."
   (flet ((%%make-complex (realpart imagpart)
 	   (cond #+long-float
 		 ((and (typep realpart 'long-float)
@@ -347,7 +348,7 @@
     (float-contagion %%make-complex realpart imagpart (rational)))))
 
 (defun realpart (number)
-  "Extracts the real part of a number."
+  _N"Extracts the real part of a number."
   (typecase number
     #+long-float
     ((complex long-float)
@@ -365,7 +366,7 @@
      number)))
 
 (defun imagpart (number)
-  "Extracts the imaginary part of a number."
+  _N"Extracts the imaginary part of a number."
   (typecase number
     #+long-float
     ((complex long-float)
@@ -385,14 +386,14 @@
      0)))
 
 (defun conjugate (number)
-  "Returns the complex conjugate of NUMBER.  For non-complex numbers, this is
+  _N"Returns the complex conjugate of NUMBER.  For non-complex numbers, this is
   an identity."
   (if (complexp number)
       (complex (realpart number) (- (imagpart number)))
       number))
 
 (defun signum (number)
-  "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
+  _N"If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
   (if (zerop number)
       number
       (if (rationalp number)
@@ -403,11 +404,11 @@
 ;;;; Ratios.
 
 (defun numerator (number)
-  "Return the numerator of NUMBER, which must be rational."
+  _N"Return the numerator of NUMBER, which must be rational."
   (numerator number))
 
 (defun denominator (number)
-  "Return the denominator of NUMBER, which must be rational."
+  _N"Return the denominator of NUMBER, which must be rational."
   (denominator number))
 
 
@@ -424,12 +425,12 @@
 	     ((null args) res)))))
 
 (define-arith + 0
-  "Returns the sum of its arguments.  With no args, returns 0.")
+  _N"Returns the sum of its arguments.  With no args, returns 0.")
 (define-arith * 1
-  "Returns the product of its arguments.  With no args, returns 1.")
+  _N"Returns the product of its arguments.  With no args, returns 1.")
 
 (defun - (number &rest more-numbers)
-  "Subtracts the second and all subsequent arguments from the first.
+  _N"Subtracts the second and all subsequent arguments from the first.
   With one arg, negates it."
   (if more-numbers
       (do ((nlist more-numbers (cdr nlist))
@@ -440,7 +441,7 @@
       (- number)))
 
 (defun / (number &rest more-numbers)
-  "Divides the first arg by each of the following arguments, in turn.
+  _N"Divides the first arg by each of the following arguments, in turn.
   With one arg, returns reciprocal."
   (if more-numbers
       (do ((nlist more-numbers (cdr nlist))
@@ -451,11 +452,11 @@
       (/ number)))
 
 (defun 1+ (number)
-  "Returns NUMBER + 1."
+  _N"Returns NUMBER + 1."
   (1+ number))
 
 (defun 1- (number)
-  "Returns NUMBER - 1."
+  _N"Returns NUMBER - 1."
   (1- number))
 
 
@@ -676,7 +677,7 @@
 ;;;; Truncate & friends.
 
 (defun truncate (number &optional (divisor 1))
-  "Returns number (or number/divisor) as an integer, rounded toward 0.
+  _N"Returns number (or number/divisor) as an integer, rounded toward 0.
   The second returned value is the remainder."
   (macrolet ((truncate-float (rtype)
 	       `(let* ((float-div (coerce divisor ',rtype))
@@ -748,7 +749,7 @@
 ;;; the divisor.
 ;;;
 (defun floor (number &optional (divisor 1))
-  "Returns the greatest integer not greater than number, or number/divisor.
+  _N"Returns the greatest integer not greater than number, or number/divisor.
   The second returned value is (mod number divisor)."
   (multiple-value-bind (tru rem) (truncate number divisor)
     (if (and (not (zerop rem))
@@ -764,7 +765,7 @@
 ;;; the divisor.
 ;;;
 (defun ceiling (number &optional (divisor 1))
-  "Returns the smallest integer not less than number, or number/divisor.
+  _N"Returns the smallest integer not less than number, or number/divisor.
   The second returned value is the remainder."
   (multiple-value-bind (tru rem) (truncate number divisor)
     (if (and (not (zerop rem))
@@ -776,7 +777,7 @@
 
 
 (defun round (number &optional (divisor 1))
-  "Rounds number (or number/divisor) to nearest integer.
+  _N"Rounds number (or number/divisor) to nearest integer.
   The second returned value is the remainder."
   (if (eql divisor 1)
       (round number)
@@ -799,13 +800,13 @@
 
 
 (defun rem (number divisor)
-  "Returns second result of TRUNCATE."
+  _N"Returns second result of TRUNCATE."
   (multiple-value-bind (tru rem) (truncate number divisor)
     (declare (ignore tru))
     rem))
 
 (defun mod (number divisor)
-  "Returns second result of FLOOR."
+  _N"Returns second result of FLOOR."
   (let ((rem (rem number divisor)))
     (if (and (not (zerop rem))
 	     (if (minusp divisor)
@@ -816,7 +817,7 @@
 
 
 (defun ftruncate (number &optional (divisor 1))
-  "Same as TRUNCATE, but returns first value as a float."
+  _N"Same as TRUNCATE, but returns first value as a float."
   (macrolet ((truncate-float (rtype)
 	       `(let* ((float-div (coerce divisor ',rtype))
 		       (res (%unary-ftruncate (/ number float-div))))
@@ -851,7 +852,7 @@
 
 
 (defun ffloor (number &optional (divisor 1))
-  "Same as FLOOR, but returns first value as a float."
+  _N"Same as FLOOR, but returns first value as a float."
   (multiple-value-bind (tru rem) (ftruncate number divisor)
     (if (and (not (zerop rem))
 	     (if (minusp divisor)
@@ -861,7 +862,7 @@
 	(values tru rem))))
 
 (defun fceiling (number &optional (divisor 1))
-  "Same as CEILING, but returns first value as a float." 
+  _N"Same as CEILING, but returns first value as a float." 
   (multiple-value-bind (tru rem) (ftruncate number divisor)
     (if (and (not (zerop rem))
 	     (if (minusp divisor)
@@ -872,7 +873,7 @@
 
 
 (defun fround (number &optional (divisor 1))
-  "Same as ROUND, but returns first value as a float."
+  _N"Same as ROUND, but returns first value as a float."
   (multiple-value-bind (res rem)
       (round number divisor)
     (values (float res (if (floatp rem) rem 1.0)) rem)))
@@ -880,7 +881,7 @@
 ;;;; Comparisons:
 
 (defun = (number &rest more-numbers)
-  "Returns T if all of its arguments are numerically equal, NIL otherwise."
+  _N"Returns T if all of its arguments are numerically equal, NIL otherwise."
   (declare (optimize (safety 2)) (number number)
 	   (dynamic-extent more-numbers))
   (do ((nlist more-numbers (cdr nlist)))
@@ -889,7 +890,7 @@
      (if (not (= (car nlist) number)) (return nil))))
 
 (defun /= (number &rest more-numbers)
-  "Returns T if no two of its arguments are numerically equal, NIL otherwise."
+  _N"Returns T if no two of its arguments are numerically equal, NIL otherwise."
   (declare (optimize (safety 2)) (number number)
 	   (dynamic-extent more-numbers))
   (do* ((head number (car nlist))
@@ -903,7 +904,7 @@
        (return nil))))
 
 (defun < (number &rest more-numbers)
-  "Returns T if its arguments are in strictly increasing order, NIL otherwise."
+  _N"Returns T if its arguments are in strictly increasing order, NIL otherwise."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (do* ((n number (car nlist))
@@ -913,7 +914,7 @@
      (if (not (< n (car nlist))) (return nil))))
 
 (defun > (number &rest more-numbers)
-  "Returns T if its arguments are in strictly decreasing order, NIL otherwise."
+  _N"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (do* ((n number (car nlist))
@@ -923,7 +924,7 @@
      (if (not (> n (car nlist))) (return nil))))
 
 (defun <= (number &rest more-numbers)
-  "Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
+  _N"Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (do* ((n number (car nlist))
@@ -933,7 +934,7 @@
      (if (not (<= n (car nlist))) (return nil))))
 
 (defun >= (number &rest more-numbers)
-  "Returns T if arguments are in strictly non-increasing order, NIL otherwise."
+  _N"Returns T if arguments are in strictly non-increasing order, NIL otherwise."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (do* ((n number (car nlist))
@@ -943,7 +944,7 @@
      (if (not (>= n (car nlist))) (return nil))))
 
 (defun max (number &rest more-numbers)
-  "Returns the greatest of its arguments."
+  _N"Returns the greatest of its arguments."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (dolist (real more-numbers)
@@ -952,7 +953,7 @@
   (the real number))
 
 (defun min (number &rest more-numbers)
-  "Returns the least of its arguments."
+  _N"Returns the least of its arguments."
   (declare (optimize (safety 2)) (real number)
 	   (dynamic-extent more-numbers))
   (do ((nlist more-numbers (cdr nlist))
@@ -1065,7 +1066,7 @@
 ;;; EQL -- Public
 ;;;
 (defun eql (obj1 obj2)
-  "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
+  _N"Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
   (or (eq obj1 obj2)
       (if (or (typep obj2 'fixnum)
 	      (not (typep obj2 'number)))
@@ -1102,7 +1103,7 @@
 ;;;; Logicals:
 
 (defun logior (&rest integers)
-  "Returns the bit-wise or of its arguments.  Args must be integers."
+  _N"Returns the bit-wise or of its arguments.  Args must be integers."
   (declare (list integers))
   (if integers
       (do ((result (the integer (pop integers))
@@ -1111,7 +1112,7 @@
       0))
 
 (defun logxor (&rest integers)
-  "Returns the bit-wise exclusive or of its arguments.  Args must be integers."
+  _N"Returns the bit-wise exclusive or of its arguments.  Args must be integers."
   (declare (list integers))
   (if integers
       (do ((result (the integer (pop integers))
@@ -1120,7 +1121,7 @@
       0))
 
 (defun logand (&rest integers)
-  "Returns the bit-wise and of its arguments.  Args must be integers."
+  _N"Returns the bit-wise and of its arguments.  Args must be integers."
   (declare (list integers))
   (if integers
       (do ((result (the integer (pop integers))
@@ -1129,7 +1130,7 @@
       -1))
 
 (defun logeqv (&rest integers)
-  "Returns the bit-wise equivalence of its arguments.  Args must be integers."
+  _N"Returns the bit-wise equivalence of its arguments.  Args must be integers."
   (declare (list integers))
   (if integers
       (do ((result (the integer (pop integers))
@@ -1140,32 +1141,32 @@
 #-modular-arith
 (progn
 (defun lognand (integer1 integer2)
-  "Returns the complement of the logical AND of integer1 and integer2."
+  _N"Returns the complement of the logical AND of integer1 and integer2."
   (lognand integer1 integer2))
 
 (defun lognor (integer1 integer2)
-  "Returns the complement of the logical OR of integer1 and integer2."
+  _N"Returns the complement of the logical OR of integer1 and integer2."
   (lognor integer1 integer2))
 
 (defun logandc1 (integer1 integer2)
-  "Returns the logical AND of (LOGNOT integer1) and integer2."
+  _N"Returns the logical AND of (LOGNOT integer1) and integer2."
   (logandc1 integer1 integer2))
 
 (defun logandc2 (integer1 integer2)
-  "Returns the logical AND of integer1 and (LOGNOT integer2)."
+  _N"Returns the logical AND of integer1 and (LOGNOT integer2)."
   (logandc2 integer1 integer2))
 
 (defun logorc1 (integer1 integer2)
-  "Returns the logical OR of (LOGNOT integer1) and integer2."
+  _N"Returns the logical OR of (LOGNOT integer1) and integer2."
   (logorc1 integer1 integer2))
 
 (defun logorc2 (integer1 integer2)
-  "Returns the logical OR of integer1 and (LOGNOT integer2)."
+  _N"Returns the logical OR of integer1 and (LOGNOT integer2)."
   (logorc2 integer1 integer2))
 )
 
 (defun lognot (number)
-  "Returns the bit-wise logical not of integer."
+  _N"Returns the bit-wise logical not of integer."
   (etypecase number
     (fixnum (lognot (truly-the fixnum number)))
     (bignum (bignum-logical-not number))))
@@ -1213,7 +1214,7 @@
 
 
 (defun logcount (integer)
-  "Count the number of 1 bits if INTEGER is positive, and the number of 0 bits
+  _N"Count the number of 1 bits if INTEGER is positive, and the number of 0 bits
   if INTEGER is negative."
   (etypecase integer
     (fixnum
@@ -1226,18 +1227,18 @@
      (bignum-logcount integer))))
 
 (defun logtest (integer1 integer2)
-  "Predicate which returns T if logand of integer1 and integer2 is not zero."
+  _N"Predicate which returns T if logand of integer1 and integer2 is not zero."
   (logtest integer1 integer2))
 
 (defun logbitp (index integer)
-  "Predicate returns T if bit index of integer is a 1.  The least
+  _N"Predicate returns T if bit index of integer is a 1.  The least
 significant bit of INTEGER is bit 0."
   (etypecase integer
     (fixnum (logbitp index integer))
     (bignum (bignum-logbitp index integer))))
 
 (defun ash (integer count)
-  "Shifts integer left by count places preserving sign.  - count shifts right."
+  _N"Shifts integer left by count places preserving sign.  - count shifts right."
   (declare (integer integer count))
   (etypecase integer
     (fixnum
@@ -1264,7 +1265,7 @@ significant bit of INTEGER is bit 0."
 	 (bignum-ashift-right integer (- count))))))
 
 (defun integer-length (integer)
-  "Returns the number of significant bits in the absolute value of integer."
+  _N"Returns the number of significant bits in the absolute value of integer."
   (etypecase integer
     (fixnum
      (integer-length (truly-the fixnum integer)))
@@ -1275,35 +1276,35 @@ significant bit of INTEGER is bit 0."
 ;;;; Byte operations:
 
 (defun byte (size position)
-  "Returns a byte specifier which may be used by other byte functions."
+  _N"Returns a byte specifier which may be used by other byte functions."
   (byte size position))
 
 (defun byte-size (bytespec)
-  "Returns the size part of the byte specifier bytespec."
+  _N"Returns the size part of the byte specifier bytespec."
   (byte-size bytespec))
 
 (defun byte-position (bytespec)
-  "Returns the position part of the byte specifier bytespec."
+  _N"Returns the position part of the byte specifier bytespec."
   (byte-position bytespec))
 
 (defun ldb (bytespec integer)
-  "Extract the specified byte from integer, and right justify result."
+  _N"Extract the specified byte from integer, and right justify result."
   (ldb bytespec integer))
 
 (defun ldb-test (bytespec integer)
-  "Returns T if any of the specified bits in integer are 1's."
+  _N"Returns T if any of the specified bits in integer are 1's."
   (ldb-test bytespec integer))
 
 (defun mask-field (bytespec integer)
-  "Extract the specified byte from integer,  but do not right justify result."
+  _N"Extract the specified byte from integer,  but do not right justify result."
   (mask-field bytespec integer))
 
 (defun dpb (newbyte bytespec integer)
-  "Returns new integer with newbyte in specified position, newbyte is right justified."
+  _N"Returns new integer with newbyte in specified position, newbyte is right justified."
   (dpb newbyte bytespec integer))
 
 (defun deposit-field (newbyte bytespec integer)
-  "Returns new integer with newbyte in specified position, newbyte is not right justified."
+  _N"Returns new integer with newbyte in specified position, newbyte is not right justified."
   (deposit-field newbyte bytespec integer))
 
 
@@ -1340,56 +1341,56 @@ significant bit of INTEGER is bit 0."
 ;;;     using any of the constants declared below.
 
 (defconstant boole-clr 0
-  "Boole function op, makes BOOLE return 0.")
+  _N"Boole function op, makes BOOLE return 0.")
 
 (defconstant boole-set 1
-  "Boole function op, makes BOOLE return -1.")
+  _N"Boole function op, makes BOOLE return -1.")
 
 (defconstant boole-1   2
-  "Boole function op, makes BOOLE return integer1.")
+  _N"Boole function op, makes BOOLE return integer1.")
 
 (defconstant boole-2   3
-  "Boole function op, makes BOOLE return integer2.")
+  _N"Boole function op, makes BOOLE return integer2.")
 
 (defconstant boole-c1  4
-  "Boole function op, makes BOOLE return complement of integer1.")
+  _N"Boole function op, makes BOOLE return complement of integer1.")
 
 (defconstant boole-c2  5
-  "Boole function op, makes BOOLE return complement of integer2.")
+  _N"Boole function op, makes BOOLE return complement of integer2.")
 
 (defconstant boole-and 6
-  "Boole function op, makes BOOLE return logand of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logand of integer1 and integer2.")
 
 (defconstant boole-ior 7
-  "Boole function op, makes BOOLE return logior of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logior of integer1 and integer2.")
 
 (defconstant boole-xor 8
-  "Boole function op, makes BOOLE return logxor of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logxor of integer1 and integer2.")
 
 (defconstant boole-eqv 9
-  "Boole function op, makes BOOLE return logeqv of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logeqv of integer1 and integer2.")
 
 (defconstant boole-nand  10
-  "Boole function op, makes BOOLE return log nand of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return log nand of integer1 and integer2.")
 
 (defconstant boole-nor   11
-  "Boole function op, makes BOOLE return lognor of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return lognor of integer1 and integer2.")
 
 (defconstant boole-andc1 12
-  "Boole function op, makes BOOLE return logandc1 of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logandc1 of integer1 and integer2.")
 
 (defconstant boole-andc2 13
-  "Boole function op, makes BOOLE return logandc2 of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logandc2 of integer1 and integer2.")
 
 (defconstant boole-orc1  14
-  "Boole function op, makes BOOLE return logorc1 of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logorc1 of integer1 and integer2.")
 
 (defconstant boole-orc2  15
-  "Boole function op, makes BOOLE return logorc2 of integer1 and integer2.")
+  _N"Boole function op, makes BOOLE return logorc2 of integer1 and integer2.")
 
 
 (defun boole (op integer1 integer2)
-  "Bit-wise boolean function on two integers.  Function chosen by OP:
+  _N"Bit-wise boolean function on two integers.  Function chosen by OP:
 	0	BOOLE-CLR
 	1	BOOLE-SET
 	2	BOOLE-1
@@ -1429,7 +1430,7 @@ significant bit of INTEGER is bit 0."
 ;;;; GCD, LCM:
 
 (defun gcd (&rest numbers)
-  "Returns the greatest common divisor of the arguments, which must be
+  _N"Returns the greatest common divisor of the arguments, which must be
   integers.  Gcd with no arguments is defined to be 0."
   (cond ((null numbers) 0)
 	((null (cdr numbers)) (abs (the integer (car numbers))))
@@ -1442,7 +1443,7 @@ significant bit of INTEGER is bit 0."
 		    (list rest))))))
 
 (defun lcm (&rest numbers)
-  "Returns the least common multiple of one or more integers.  LCM of no
+  _N"Returns the least common multiple of one or more integers.  LCM of no
   arguments is defined to be 1."
   (cond ((null numbers) 1)
 	((null (cdr numbers)) (abs (the integer (car numbers))))
@@ -1514,7 +1515,7 @@ significant bit of INTEGER is bit 0."
 ;;; Primep  --  Public
 ;;;
 (defun primep (x)
-  "Returns T iff X is a positive prime integer."
+  _N"Returns T iff X is a positive prime integer."
   (declare (integer x))
   (if (<= x 5)
       (and (>= x 2) (/= x 4))
@@ -1533,7 +1534,7 @@ significant bit of INTEGER is bit 0."
 ;;;    From discussion on comp.lang.lisp and Akira Kurihara.
 ;;;
 (defun isqrt (n)
-  "Returns the root of the nearest integer less than n which is a perfect
+  _N"Returns the root of the nearest integer less than n which is a perfect
    square."
   (declare (type unsigned-byte n) (values unsigned-byte))
   ;; theoretically (> n 7) ,i.e., n-len-quarter > 0
@@ -1559,11 +1560,11 @@ significant bit of INTEGER is bit 0."
 
 (macrolet ((frob (name doc)
 	     `(defun ,name (number) ,doc (,name number))))
-  (frob zerop "Returns T if number = 0, NIL otherwise.")
-  (frob plusp "Returns T if number > 0, NIL otherwise.")
-  (frob minusp "Returns T if number < 0, NIL otherwise.")
-  (frob oddp "Returns T if number is odd, NIL otherwise.")
-  (frob evenp "Returns T if number is even, NIL otherwise."))
+  (frob zerop _N"Returns T if number = 0, NIL otherwise.")
+  (frob plusp _N"Returns T if number > 0, NIL otherwise.")
+  (frob minusp _N"Returns T if number < 0, NIL otherwise.")
+  (frob oddp _N"Returns T if number is odd, NIL otherwise.")
+  (frob evenp _N"Returns T if number is even, NIL otherwise."))
 
 
 ;;;; Modular arithmetic
diff --git a/code/old-loop.lisp b/code/old-loop.lisp
index 6ffaac056765b00696e65b1f6ebcde7d4022e9b8..e2c8ba112d46e6e39de6e915271c3a01ce30125d 100644
--- a/code/old-loop.lisp
+++ b/code/old-loop.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.10 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.11 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Loop facility, written by William Lott.
 ;;; 
 (in-package "LOOP")
+(intl:textdomain "cmucl")
 
 (in-package "LISP")
 (export '(loop loop-finish))
diff --git a/code/osf1-os.lisp b/code/osf1-os.lisp
index 49677467a8e983d001b6fc9371d311a7f1dc6c72..09b9ba0bd33064b384b04aa6fbf2f0eee21e0032 100644
--- a/code/osf1-os.lisp
+++ b/code/osf1-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/osf1-os.lisp,v 1.6 2002/10/07 14:31:04 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/osf1-os.lisp,v 1.7 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(get-system-info get-page-size os-init))
 
 (pushnew :osf1 *features*)
diff --git a/code/package.lisp b/code/package.lisp
index 64b8d6cc5faf106c64d6546a79a03a1a6024c9a4..313f997c51773dece4957bcabb9f9b9348c8f5f6 100644
--- a/code/package.lisp
+++ b/code/package.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.77 2009/08/09 03:54:42 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.78 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;; Defpackage and do-mumble-symbols macros re-written by William Lott.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(package packagep *package* make-package in-package find-package
 	  package-name package-nicknames rename-package delete-package
 	  package-use-list package-used-by-list package-shadowing-symbols
@@ -40,7 +42,7 @@
 (sys:register-lisp-feature :relative-package-names)
 
 (defvar *default-package-use-list* '("COMMON-LISP")
-  "The list of packages to use by default of no :USE argument is supplied
+  _N"The list of packages to use by default of no :USE argument is supplied
    to MAKE-PACKAGE or other package creation forms.")
 
 ;;; INTERNAL conditions
@@ -54,7 +56,7 @@
 	     (lambda (package)
 	       (values `(package-or-lose ',(package-name package))
 		       nil))))
-  "Standard structure for the description of a package.  Consists of 
+  _N"Standard structure for the description of a package.  Consists of 
    a list of all hash tables, the name of the package, the nicknames of
    the package, the use-list for the package, the used-by- list, hash-
    tables for the internal and external symbols, and a list of the
@@ -100,13 +102,13 @@
              (multiple-value-bind (iu it) (internal-symbol-count s)
                (multiple-value-bind (eu et) (external-symbol-count s)
                  (print-unreadable-object (s stream)
-                   (format stream "The ~A package, ~D/~D internal, ~D/~D external"
+                   (format stream _"The ~A package, ~D/~D internal, ~D/~D external"
                            (package-%name s) iu it eu et)))))
             (t
              (print-unreadable-object (s stream)
-               (format stream "The ~A package" (package-%name s)))))
+               (format stream _"The ~A package" (package-%name s)))))
       (print-unreadable-object (s stream :identity t)
-	(format stream "deleted package"))))
+	(format stream _"deleted package"))))
 
 ;;; Can get the name (NIL) of a deleted package.
 ;;;
@@ -120,7 +122,7 @@
   (frob package-used-by-list package-%used-by-list)
   (frob package-shadowing-symbols package-%shadowing-symbols))
 
-(defvar *package* () "The current package.")
+(defvar *package* () _N"The current package.")
 
 ;;; An equal hashtable from package names to packages.
 ;;;
@@ -140,7 +142,7 @@
 (define-condition package-locked-error (simple-package-error)
   ()
   (:report (lambda (condition stream)
-             (format stream "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
+             (format stream _"~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
                      (package-name (package-error-package condition))
                      (simple-condition-format-control condition)
                      (simple-condition-format-arguments condition)))))
@@ -153,7 +155,8 @@
                          "ALIEN-INTERNALS" "UNIX"
                          "CONDITIONS" "DEBUG" "DEBUG-INTERNALS" "SYSTEM"
                          "KERNEL" "EXTENSIONS" #+mp "MULTIPROCESSING"
-                         "WALKER" "XREF" "STREAM")))
+                         "WALKER" "XREF" "STREAM"
+			 "INTL")))
     (dolist (p package-names)
       (let ((p (find-package p)))
         (when p
@@ -204,15 +207,18 @@
             (restart-case
                 (error 'package-locked-error
                        :package package
-                       :format-control "redefining function ~A"
+                       :format-control _"redefining function ~A"
                        :format-arguments (list function))
               (continue ()
-                :report "Ignore the lock and continue")
+                :report (lambda (stream)
+			  (write-string _"Ignore the lock and continue" stream)))
               (unlock-package ()
-                :report "Disable package's definition-lock, then continue"
+                :report (lambda (stream)
+			  (write-string _"Disable package's definition-lock, then continue" stream))
                 (setf (ext:package-definition-lock package) nil))
               (unlock-all ()
-                :report "Disable all package locks, then continue"
+                :report (lambda (stream)
+			  (write-string _"Disable all package locks, then continue" stream))
                 (unlock-all-packages)))))))))
 
 
@@ -232,7 +238,7 @@
        (setf (schar res 0) name)
        res))
     (t
-     (error "Bogus ~A name: ~S" kind name))))
+     (error _"Bogus ~A name: ~S" kind name))))
 
 (defun stringify-names (names kind)
   (mapcar #'(lambda (name)
@@ -254,7 +260,7 @@
   (if (packagep thing)
       (let ((name (package-%name thing)))
 	(or name
-	    (error "Can't do anything to a deleted package: ~S" thing)))
+	    (error _"Can't do anything to a deleted package: ~S" thing)))
       (package-namify thing)))
 
 ;;; package-name-to-package  --  Internal
@@ -272,7 +278,7 @@
 ;;;
 #+relative-package-names
 (defun package-parent (package-specifier)
-  "Given PACKAGE-SPECIFIER, a package, symbol or string, return the
+  _N"Given PACKAGE-SPECIFIER, a package, symbol or string, return the
   parent package.  If there is not a parent, signal an error."
   (declare (optimize (speed 3)))
   (flet ((find-last-dot (name)
@@ -288,12 +294,12 @@
                (or (package-name-to-package parent)
 		   (error 'simple-package-error
                           :name child
-                          :format-control "The parent of ~a does not exist."
+                          :format-control _"The parent of ~a does not exist."
                           :format-arguments (list child)))))
             (t
 	     (error 'simple-package-error
                     :name child
-                    :format-control "There is no parent of ~a."
+                    :format-control _"There is no parent of ~a."
                     :format-arguments (list child)))))))
 
 
@@ -304,7 +310,7 @@
 ;;;
 #+relative-package-names
 (defun package-children (package-specifier &key (recurse t))
-  "Given PACKAGE-SPECIFIER, a package, symbol or string, return all the
+  _N"Given PACKAGE-SPECIFIER, a package, symbol or string, return all the
   packages which are in the hierarchy 'under' the given package.  If
   :recurse is nil, then only return the immediate children of the package."
   (declare (optimize (speed 3)))
@@ -358,7 +364,7 @@
 	       package
 	       (let ((parent-name (package-%name package)))
 		 (unless parent-name
-		   (error "Can't do anything to a deleted package: ~S"
+		   (error _"Can't do anything to a deleted package: ~S"
 			  package))
 		 (package-name-to-package
 		  (concatenate 'simple-string parent-name "." name)))))
@@ -386,7 +392,7 @@
                    (unless tmp
 		     (error 'simple-package-error
                             :name (string package)
-                            :format-control "The parent of ~a does not exist."
+                            :format-control _"The parent of ~a does not exist."
                             :format-arguments (list package)))
                    (setq package tmp))
                  (relative-to package name))))))))
@@ -395,7 +401,7 @@
 ;;;
 ;;;
 (defun find-package (name)
-  "Find the package having the specified name."
+  _N"Find the package having the specified name."
   (if (packagep name)
       name
       (let ((name (package-namify name)))
@@ -410,7 +416,7 @@
 (defun package-or-lose (thing)
   (cond ((packagep thing)
 	 (unless (package-%name thing)
-	   (error "Can't do anything to a deleted package: ~S" thing))
+	   (error _"Can't do anything to a deleted package: ~S" thing))
 	 thing)
 	(t
 	 (let ((thing (package-namify thing)))
@@ -420,7 +426,7 @@
 		  ;; but the resulting message is somewhat unclear.
 		  ;; May need a new condition type?
 		  (with-simple-restart
-		      (continue "Make this package.")
+		      (continue _"Make this package.")
 		    (error 'type-error
 			   :datum thing
 			   :expected-type 'package))
@@ -463,7 +469,7 @@
 	     (lambda (table stream d)
 	       (declare (ignore d) (stream stream))
 	       (format stream
-		       "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
+		       _"#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
 		       (package-hashtable-size table)
 		       (package-hashtable-free table)
 		       (package-hashtable-deleted table)))))
@@ -657,7 +663,7 @@
 
 (defmacro do-symbols ((var &optional (package '*package*) result-form)
 		      &parse-body (body decls))
-  "DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*
+  _N"DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*
    Executes the FORMs at least once for each symbol accessible in the given
    PACKAGE with VAR bound to the current symbol."
   (let ((flet-name (gensym "DO-SYMBOLS-")))
@@ -691,7 +697,7 @@
 
 (defmacro do-external-symbols ((var &optional (package '*package*) result-form)
 			       &parse-body (body decls))
-  "DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*
+  _N"DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*
    Executes the FORMs once for each external symbol in the given PACKAGE with
    VAR bound to the current symbol."
   (let ((flet-name (gensym "DO-SYMBOLS-")))
@@ -715,7 +721,7 @@
 	 ,result-form))))
 
 (defmacro do-all-symbols ((var &optional result-form) &parse-body (body decls))
-  "DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*
+  _N"DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*
    Executes the FORMs once for each symbol in every package with VAR bound
    to the current symbol."
   (let ((flet-name (gensym "DO-SYMBOLS-")))
@@ -745,7 +751,7 @@
 
 (defmacro with-package-iterator ((mname package-list &rest symbol-types)
 				 &body body)
-  "Within the lexical scope of the body forms, MNAME is defined via macrolet
+  _N"Within the lexical scope of the body forms, MNAME is defined via macrolet
    such that successive invocations of (mname) will return the symbols,
    one by one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be
    any of :inherited :external :internal."
@@ -773,7 +779,7 @@
 					 (or (find-package package)
 					     (error 'simple-package-error
 						    :name (string package)
-						    :format-control "~@<~S does not name a package ~:>"
+						    :format-control _"~@<~S does not name a package ~:>"
 						    :format-arguments (list package)))))
 				 (if (consp ,these-packages)
 				     ,these-packages
@@ -823,11 +829,11 @@
 				  (,',init-macro ,(car ',ordered-types)))))))
 	 (when ,packages
 	   ,(when (null symbol-types)
-	      (simple-program-error "Must supply at least one of :internal, ~
+	      (simple-program-error _"Must supply at least one of :internal, ~
 	                             :external, or :inherited."))
 	   ,(dolist (symbol symbol-types)
 	      (unless (member symbol '(:internal :external :inherited))
-		(simple-program-error "~S is not one of :internal, :external, ~
+		(simple-program-error _"~S is not one of :internal, :external, ~
 		                       or :inherited."
 			              symbol)))
 	   (,init-macro ,(car ordered-types))
@@ -906,7 +912,7 @@
 ;;;; DEFPACKAGE:
 
 (defmacro defpackage (package &rest options)
-  "Defines a new package called PACKAGE.  Each of OPTIONS should be one of the
+  _N"Defines a new package called PACKAGE.  Each of OPTIONS should be one of the
    following:
      (:NICKNAMES {package-name}*)
      (:SIZE <integer>)
@@ -930,19 +936,19 @@
 	(doc nil))
     (dolist (option options)
       (unless (consp option)
-	(simple-program-error "Bogus DEFPACKAGE option: ~S" option))
+	(simple-program-error _"Bogus DEFPACKAGE option: ~S" option))
       (case (car option)
 	(:nicknames
 	 (setf nicknames (stringify-names (cdr option) "package")))
 	(:size
 	 (cond (size
-		(simple-program-error "Can't specify :SIZE twice."))
+		(simple-program-error _"Can't specify :SIZE twice."))
 	       ((and (consp (cdr option))
 		     (typep (second option) 'unsigned-byte))
 		(setf size (second option)))
 	       (t
 		(simple-program-error
-		 "Bogus :SIZE, must be a positive integer: ~S"
+		 _"Bogus :SIZE, must be a positive integer: ~S"
 		 (second option)))))
 	(:shadow
 	 (let ((new (stringify-names (cdr option) "symbol")))
@@ -976,10 +982,10 @@
 	   (setf exports (append exports new))))
 	(:documentation
 	 (when doc
-	   (simple-program-error "Can't specify :DOCUMENTATION twice."))
+	   (simple-program-error _"Can't specify :DOCUMENTATION twice."))
 	 (setf doc (coerce (second option) 'simple-string)))
 	(t
-	 (simple-program-error "Bogus DEFPACKAGE option: ~S" option))))
+	 (simple-program-error _"Bogus DEFPACKAGE option: ~S" option))))
     (check-disjoint `(:intern ,@interns) `(:export  ,@exports))
     (check-disjoint `(:intern ,@interns)
 		    `(:import-from
@@ -1003,7 +1009,7 @@
 	                    (intersection set1 set2 :test #'string=))
 	      unless (null common)
 	      do
-	      (simple-program-error "Parameters ~S and ~S must be disjoint ~
+	      (simple-program-error _"Parameters ~S and ~S must be disjoint ~
 	                             but have common elements ~%   ~S"
 				    key1 key2 common))))
 
@@ -1025,7 +1031,7 @@
     (unless (string= (the string (package-name package)) name)
       (error 'simple-package-error
 	     :package name
-	     :format-control "~A is a nick-name for the package ~A"
+	     :format-control _"~A is a nick-name for the package ~A"
 	     :format-arguments (list name (package-name name))))
     (enter-new-nicknames package nicknames)
     ;; Shadows and Shadowing-imports.
@@ -1040,7 +1046,7 @@
 	      (shadowing-import sym package)
 	      (setf old-shadows (remove sym old-shadows))))))
       (when old-shadows
-	(warn "~A also shadows the following symbols:~%  ~S"
+	(warn _"~A also shadows the following symbols:~%  ~S"
 	      name old-shadows)))
     ;; Use
     (unless (eq use :default)
@@ -1050,7 +1056,7 @@
 	(let ((laterize (set-difference old-use-list new-use-list)))
 	  (when laterize
 	    (unuse-package laterize package)
-	    (warn "~A previously used the following packages:~%  ~S"
+	    (warn _"~A previously used the following packages:~%  ~S"
 		  name
 		  laterize)))))
     ;; Import and Intern.
@@ -1070,7 +1076,7 @@
       (export exports package)
       (let ((diff (set-difference old-exports exports)))
 	(when diff
-	  (warn "~A also exports the following symbols:~%  ~S"
+	  (warn _"~A also exports the following symbols:~%  ~S"
 		name diff))))
     ;; Documentation
     (setf (package-doc-string package) doc-string)
@@ -1086,7 +1092,7 @@
 	   (with-simple-restart (continue "INTERN it.")
 	     (error 'simple-package-error
 		    :package package
-		    :format-control "~A does not contain a symbol ~A"
+		    :format-control _"~A does not contain a symbol ~A"
 		    :format-arguments (list (package-name package) name)))
 	   (intern name package)))))
 
@@ -1107,17 +1113,17 @@
 	     (push n (package-%nicknames package)))
 	    ((eq found package))
 	    ((string= (the string (package-%name found)) n)
-	     (with-simple-restart (continue "Ignore this nickname.")
+	     (with-simple-restart (continue _"Ignore this nickname.")
 	       (error 'simple-package-error
 		      :package package
 		      :format-control
-		      "~S is a package name, so it cannot be a nickname for ~S."
+		      _"~S is a package name, so it cannot be a nickname for ~S."
 		      :format-arguments (list n (package-%name package)))))
 	    (t
-	     (with-simple-restart (continue  "Redefine this nickname.")
+	     (with-simple-restart (continue  _"Redefine this nickname.")
 	       (error 'simple-package-error
 		      :package package
-		      :format-control "~S is already a nickname for ~S."
+		      :format-control _"~S is already a nickname for ~S."
 		      :format-arguments (list n (package-%name found))))
 	     (setf (gethash n *package-names*) package)
 	     (push n (package-%nicknames package)))))))
@@ -1131,14 +1137,14 @@
 ;;;
 (defun make-package (name &key (use *default-package-use-list*) nicknames
 			  (internal-symbols 10) (external-symbols 10))
-  "Makes a new package having the specified Name and Nicknames.  The
+  _N"Makes a new package having the specified Name and Nicknames.  The
   package will inherit all external symbols from each package in
   the use list.  :Internal-Symbols and :External-Symbols are
   estimates for the number of internal and external symbols which
   will ultimately be present in the package."
   (when (find-package name)
-    (cerror "Leave existing package alone."
-	    "A package named ~S already exists" name))
+    (cerror _"Leave existing package alone."
+	    _"A package named ~S already exists" name))
   (let* ((name (package-namify name))
 	 (package (internal-make-package
 		   :%name name
@@ -1155,7 +1161,7 @@
 ;;;    Like Make-Package, only different.  Should go away someday.
 ;;;
 (defun old-in-package (name &rest keys &key nicknames use)
-  "Sets *PACKAGE* to package with given NAME, creating the package if
+  _N"Sets *PACKAGE* to package with given NAME, creating the package if
    it does not exist.  If the package already exists then it is modified
    to agree with the :USE and :NICKNAMES arguments.  Any new nicknames
    are added without removing any old ones not specified.  If any package
@@ -1177,7 +1183,7 @@
 (defmacro in-package (package &rest noise)
   (cond ((or noise
 	     (not (or (stringp package) (symbolp package))))
-	 (warn "Old-style IN-PACKAGE.")
+	 (warn _"Old-style IN-PACKAGE.")
 	 `(old-in-package ,package ,@noise))
 	(t
 	 `(%in-package ',(stringify-name package "package")))))
@@ -1185,10 +1191,10 @@
 (defun %in-package (name)
   (let ((package (find-package name)))
     (unless package
-      (with-simple-restart (continue "Make this package.")
+      (with-simple-restart (continue _"Make this package.")
 	(error 'simple-package-error
 	       :package name
-	       :format-control "The package named ~S doesn't exist."
+	       :format-control _"The package named ~S doesn't exist."
 	       :format-arguments (list name)))
       (setq package (make-package name)))
     (setf *package* package)))
@@ -1199,14 +1205,14 @@
 ;;; add in any new ones.
 ;;;
 (defun rename-package (package name &optional (nicknames ()))
-  "Changes the name and nicknames for a package."
+  _N"Changes the name and nicknames for a package."
   (let* ((package (package-or-lose package))
 	 (name (string name))
 	 (found (find-package name)))
     (unless (or (not found) (eq found package))
       (error 'simple-package-error
              :package name
-             :format-control "A package named ~S already exists."
+             :format-control _"A package named ~S already exists."
              :format-arguments (list name)))
     (remhash (package-%name package) *package-names*)
     (dolist (n (package-%nicknames package))
@@ -1220,15 +1226,15 @@
 ;;; Delete-Package -- Public
 ;;;
 (defun delete-package (package-or-name)
-  "Delete the PACKAGE-OR-NAME from the package system data structures."
+  _N"Delete the PACKAGE-OR-NAME from the package system data structures."
   (let ((package (if (packagep package-or-name)
 		     package-or-name
 		     (find-package package-or-name))))
     (cond ((not package)
-	   (with-simple-restart (continue "Return NIL")
+	   (with-simple-restart (continue _"Return NIL")
 	     (error 'simple-package-error
 		    :package package-or-name
-		    :format-control "No package of name ~S."
+		    :format-control _"No package of name ~S."
 		    :format-arguments (list package-or-name)))
 	   nil)
 	  ((not (package-name package)) nil)
@@ -1236,7 +1242,7 @@
 	   (let ((use-list (package-used-by-list package)))
 	     (when use-list
 	       (with-simple-restart
-		   (continue "Remove dependency in other packages.")
+		   (continue _"Remove dependency in other packages.")
 		 (error 'simple-package-error
 			:package package
 			:format-control
@@ -1260,7 +1266,7 @@
 ;;;
 ;;;
 (defun list-all-packages ()
-  "Returns a list of all existing packages."
+  _N"Returns a list of all existing packages."
   (let ((res ()))
     (maphash #'(lambda (k v)
 		 (declare (ignore k))
@@ -1273,7 +1279,7 @@
 ;;;    Simple-stringify the name and call intern*.
 ;;;
 (defun intern (name &optional package)
-  "Returns a symbol having the specified name, creating it if necessary."
+  _N"Returns a symbol having the specified name, creating it if necessary."
   (let ((name (string-to-nfc name))
         (package (if package (package-or-lose package) *package*)))
     (declare (type simple-string name))
@@ -1284,7 +1290,7 @@
 ;;;    Ditto.
 ;;;
 (defun find-symbol (name &optional package)
-  "Returns the symbol NAME in PACKAGE.  If such a symbol is found
+  _N"Returns the symbol NAME in PACKAGE.  If such a symbol is found
   then the second value is :internal, :external or :inherited to indicate
   how the symbol is accessible.  If no symbol is found then both values
   are NIL."
@@ -1310,7 +1316,7 @@
               (restart-case
                   (error 'package-locked-error
                          :package package
-                         :format-control "interning symbol ~A"
+                         :format-control _"interning symbol ~A"
                          :format-arguments (list (subseq name 0 length)))
                 (continue ()
                   :report "Ignore the lock and continue")
@@ -1381,7 +1387,7 @@
 ;;; result, otherwise just nuke the symbol.
 ;;;
 (defun unintern (symbol &optional (package *package*))
-  "Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present
+  _N"Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present
   then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home
   package, then it is made uninterned."
   (let* ((package (package-or-lose package))
@@ -1393,15 +1399,18 @@
         (restart-case
             (error 'package-locked-error
                    :package package
-                   :format-control "uninterning symbol ~A"
+                   :format-control _"uninterning symbol ~A"
                    :format-arguments (list name))
           (continue ()
-            :report "Ignore the lock and continue")
+            :report (lambda (stream)
+		      (write-string _"Ignore the lock and continue" stream)))
           (unlock-package ()
-            :report "Disable package's lock then continue"
+            :report (lambda (stream)
+		      (write-string _"Disable package's lock then continue" stream))
             (setf (ext:package-lock package) nil))
           (unlock-all ()
-            :report "Unlock all packages, then continue"
+            :report (lambda (stream)
+		      (write-string _"Unlock all packages, then continue" stream))
             (unlock-all-packages)))))
     ;;
     ;; If a name conflict is revealed, give use a chance to shadowing-import
@@ -1414,19 +1423,19 @@
 	(when (cdr cset)
 	  (loop
 	   (cerror
-	    "prompt for a symbol to shadowing-import."
+	    _"prompt for a symbol to shadowing-import."
 	    'simple-package-error
 	    :package package
 	    :format-control
-	    "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
+	    _"Uninterning symbol ~S causes name conflict among these symbols:~%~S"
 	    :format-arguments (list symbol cset))
-	   (write-string "Symbol to shadowing-import: " *query-io*)
+	   (write-string _"Symbol to shadowing-import: " *query-io*)
 	   (let ((sym (read *query-io*)))
 	     (cond
 	      ((not (symbolp sym))
-	       (format *query-io* "~S is not a symbol." sym))
+	       (format *query-io* _"~S is not a symbol." sym))
 	      ((not (member sym cset))
-	       (format *query-io* "~S is not one of the conflicting symbols."
+	       (format *query-io* _"~S is not one of the conflicting symbols."
 		       sym))
 	      (t
 	       (shadowing-import sym package)
@@ -1453,11 +1462,11 @@
 (defun symbol-listify (thing)
   (cond ((listp thing)
 	 (dolist (s thing)
-	   (unless (symbolp s) (error "~S is not a symbol." s)))
+	   (unless (symbolp s) (error _"~S is not a symbol." s)))
 	 thing)
 	((symbolp thing) (list thing))
 	(t
-	 (error "~S is neither a symbol nor a list of symbols." thing))))
+	 (error _"~S is neither a symbol nor a list of symbols." thing))))
 
 ;;; Moby-Unintern  --  Internal
 ;;;
@@ -1485,7 +1494,7 @@
 ;;;    Do more stuff.
 ;;;
 (defun export (symbols &optional (package *package*))
-  "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
+  _N"Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
   (let ((package (package-or-lose package))
 	(syms ()))
     ;;
@@ -1514,18 +1523,20 @@
 	     'simple-package-error
 	     :package package
 	     :format-control
-	     "Exporting these symbols from the ~A package:~%~S~%~
+	     _"Exporting these symbols from the ~A package:~%~S~%~
 	      results in name conflicts with these packages:~%~{~A ~}"
 	     :format-arguments
 	     (list (package-%name package) cset
 		   (mapcar #'package-%name cpackages)))
 	  (unintern-conflicting-symbols ()
-	   :report "Unintern conflicting symbols."
+	   :report (lambda (stream)
+		     (write-string _"Unintern conflicting symbols." stream))
 	   (dolist (p cpackages)
 	     (dolist (sym cset)
 	       (moby-unintern sym p))))
 	  (skip-exporting-these-symbols ()
-	   :report "Skip exporting conflicting symbols."
+	   :report (lambda (stream)
+		     (write-string _"Skip exporting conflicting symbols." stream))
 	   (setq syms (nset-difference syms cset))))))
     ;;
     ;; Check that all symbols are accessible.  If not, ask to import them.
@@ -1537,12 +1548,12 @@
 		((eq w :inherited) (push sym imports)))))
       (when missing
 	(with-simple-restart
-	    (continue "Import these symbols into the ~A package."
+	    (continue _"Import these symbols into the ~A package."
 	      (package-%name package))
 	  (error 'simple-package-error
 		 :package package
 		 :format-control
-		 "These symbols are not accessible in the ~A package:~%~S"
+		 _"These symbols are not accessible in the ~A package:~%~S"
 		 :format-arguments
 		 (list (package-%name package) missing)))
 	(import missing package))
@@ -1562,7 +1573,7 @@
 ;;; internal.
 ;;;
 (defun unexport (symbols &optional (package *package*))
-  "Makes SYMBOLS no longer exported from PACKAGE."
+  _N"Makes SYMBOLS no longer exported from PACKAGE."
   (let ((package (package-or-lose package))
 	(syms ()))
     (when *enable-package-locked-errors*
@@ -1570,22 +1581,25 @@
         (restart-case
             (error 'package-locked-error
                    :package package
-                   :format-control "unexporting symbols ~A"
+                   :format-control _"unexporting symbols ~A"
                    :format-arguments (list symbols))
           (continue ()
-            :report "Ignore the lock and continue")
+            :report (lambda (stream)
+		      (write-string _"Ignore the lock and continue" stream)))
           (unlock-package ()
-            :report "Disable package's lock then continue"
+            :report (lambda (stream)
+		      (write-string _"Disable package's lock then continue" stream))
             (setf (ext:package-lock package) nil))
           (unlock-all ()
-            :report "Unlock all packages, then continue"
+            :report (lambda (stream)
+		      (write-string _"Unlock all packages, then continue" stream))
             (unlock-all-packages)))))
     (dolist (sym (symbol-listify symbols))
       (multiple-value-bind (s w) (find-symbol (symbol-name sym) package)
 	(cond ((or (not w) (not (eq s sym)))
 	       (error 'simple-package-error
 		      :package package
-		      :format-control "~S is not accessible in the ~A package."
+		      :format-control _"~S is not accessible in the ~A package."
 		      :format-arguments (list sym (package-%name package))))
 	      ((eq w :external) (pushnew sym syms)))))
 
@@ -1602,7 +1616,7 @@
 ;;; shadowing-import if there is.
 ;;;
 (defun import (symbols &optional (package *package*))
-  "Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol
+  _N"Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol
   is already accessible then it has no effect.  If a name conflict
   would result from the importation, then a correctable error is signalled."
   (let ((package (package-or-lose package))
@@ -1621,11 +1635,11 @@
 	      ((eq w :inherited) (push sym syms)))))
     (when cset
       (with-simple-restart
-	  (continue "Import these symbols with Shadowing-Import.")
+	  (continue _"Import these symbols with Shadowing-Import.")
 	(error 'simple-package-error
 	       :package package
 	       :format-control
-	       "Importing these symbols into the ~A package ~
+	       _"Importing these symbols into the ~A package ~
 		causes a name conflict:~%~S"
 	       :format-arguments (list (package-%name package) cset))))
     ;;
@@ -1645,7 +1659,7 @@
 ;;; stick the symbol in.
 ;;;
 (defun shadowing-import (symbols &optional (package *package*))
-  "Import SYMBOLS into PACKAGE, disregarding any name conflict.  If
+  _N"Import SYMBOLS into PACKAGE, disregarding any name conflict.  If
   a symbol of the same name is present, then it is uninterned.
   The symbols are added to the Package-Shadowing-Symbols."
   (let* ((package (package-or-lose package))
@@ -1668,7 +1682,7 @@
 ;;;
 ;;;
 (defun shadow (symbols &optional (package *package*))
-  "Make an internal symbol in PACKAGE with the same name as each of the
+  _N"Make an internal symbol in PACKAGE with the same name as each of the
   specified SYMBOLS, adding the new symbols to the Package-Shadowing-Symbols.
   If a symbol with the given name is already present in PACKAGE, then
   the existing symbol is placed in the shadowing symbols list if it is
@@ -1693,7 +1707,7 @@
 ;;; checking.
 ;;;
 (defun use-package (packages-to-use &optional (package *package*))
-  "Add all the PACKAGES-TO-USE to the use list for PACKAGE so that
+  _N"Add all the PACKAGES-TO-USE to the use list for PACKAGE so that
   the external symbols of the used packages are accessible as internal
   symbols in PACKAGE."
   (let ((packages (package-listify packages-to-use))
@@ -1742,8 +1756,8 @@
 	  
 	  (when cset
 	    (cerror
-	     "Unintern the conflicting symbols in the ~2*~A package."
-	     "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+	     _"Unintern the conflicting symbols in the ~2*~A package."
+	     _"Use'ing package ~A results in name conflicts for these symbols:~%~S"
 	     (package-%name pkg) cset (package-%name package))
 	    (dolist (s cset) (moby-unintern s package))))
 
@@ -1756,7 +1770,7 @@
 ;;;
 ;;;
 (defun unuse-package (packages-to-unuse &optional (package *package*))
-  "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
+  _N"Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
   (let ((package (package-or-lose package)))
     (dolist (p (package-listify packages-to-unuse))
       (setf (package-%use-list package)
@@ -1772,7 +1786,7 @@
 ;;;
 ;;;
 (defun find-all-symbols (string-or-symbol)
-  "Return a list of all symbols in the system having the specified name."
+  _N"Return a list of all symbols in the system having the specified name."
   (let ((string (string string-or-symbol))
 	(res ()))
     (maphash #'(lambda (k v)
@@ -1804,13 +1818,13 @@
       (multiple-value-bind (kind recorded-p) (info variable kind symbol)
         (when (or (boundp symbol) recorded-p)
 	  (print-symbol (ecase kind
-                          (:special  "special variable")
-                          (:constant "constant")
-                          (:global   "undefined variable")
-                          (:macro    "symbol macro")
-                          (:alien    "alien variable")))
+                          (:special  _"special variable")
+                          (:constant _"constant")
+                          (:global   _"undefined variable")
+                          (:macro    _"symbol macro")
+                          (:alien    _"alien variable")))
           (when (boundp symbol)
-	    (write-string "value: ")
+	    (write-string _"value: ")
 	    (let ((*print-length*
 	             (or ext:*describe-print-length* *print-length*))
 	          (*print-level*
@@ -1821,15 +1835,15 @@
       (when (fboundp symbol)
         (cond
           ((macro-function symbol)
-           (print-symbol "macro")
+           (print-symbol _"macro")
            (let ((arglist (kernel:%function-arglist (macro-function symbol))))
              (when (stringp arglist) (write-string arglist))))
           ((special-operator-p symbol)
-           (print-symbol "special operator")
+           (print-symbol _"special operator")
            (let ((arglist (kernel:%function-arglist (symbol-function symbol))))
              (when (stringp arglist) (write-string arglist))))
           (t
-           (print-symbol "function")
+           (print-symbol _"function")
            ;; could do better than this with (kernel:type-specifier
            ;; (info function type symbol)) when it's a byte-compiled function
            (let ((arglist (kernel:%function-arglist (symbol-function symbol))))
@@ -1838,9 +1852,9 @@
       ;; Class and Type Namespace(s)
       (cond
         ((kernel::find-class symbol nil)
-         (print-symbol "class"))
+         (print-symbol _"class"))
         ((info type kind symbol)
-         (print-symbol "type")))
+         (print-symbol _"type")))
 
       ;; Make sure we at least print the symbol itself if we don't know
       ;; anything else about it:
@@ -1871,7 +1885,7 @@
 ;;; MAP-APROPOS -- public (extension).
 ;;;
 (defun map-apropos (fun string &optional package external-only)
-  "Call FUN with each symbol that contains STRING.
+  _N"Call FUN with each symbol that contains STRING.
   If PACKAGE is supplied then only use symbols present in
   that package.  If EXTERNAL-ONLY is true then only use
   symbols exported from the specified package."
@@ -1895,7 +1909,7 @@
 ;;; APROPOS -- public.
 ;;; 
 (defun apropos (string &optional package)
-  "Briefly describe all symbols which contain the specified STRING.
+  _N"Briefly describe all symbols which contain the specified STRING.
   If PACKAGE is supplied then only describe symbols present in
   that package.  If EXTERNAL-ONLY is non-NIL then only describe
   external symbols in the specified package."
@@ -1905,7 +1919,7 @@
 ;;; APROPOS-LIST -- public.
 ;;; 
 (defun apropos-list (string &optional package)
-  "Identical to APROPOS, except that it returns a list of the symbols
+  _N"Identical to APROPOS, except that it returns a list of the symbols
   found instead of describing them."
   (collect ((result))
     (map-apropos #'(lambda (symbol)
diff --git a/code/parse-time.lisp b/code/parse-time.lisp
index 5df3553967d303b0e929615fedbae565b7b5ded1..e3d3706613f7fa163bd861e9f1a7656fdd1380d5 100644
--- a/code/parse-time.lisp
+++ b/code/parse-time.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/parse-time.lisp,v 1.18 2007/10/01 13:51:33 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/parse-time.lisp,v 1.19 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 
@@ -17,6 +17,7 @@
 ;;; **********************************************************************
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
 
 (export 'parse-time)
 
@@ -26,7 +27,7 @@
 (defconstant date-time-dividers '(#\T #\t))
 
 (defvar *error-on-mismatch* nil
-  "If t, an error will be signalled if parse-time is unable
+  _N"If t, an error will be signalled if parse-time is unable
    to determine the time/date format of the string.")
 
 ;;; Set up hash tables for month, weekday, zone, and special strings.
@@ -441,7 +442,7 @@
 	(let ((test-value (special-string-p substring)))
 	  (if test-value  (cons 'special test-value)))
 	(if *error-on-mismatch*
-	    (error "\"~A\" is not a recognized word or abbreviation."
+	    (error _"\"~A\" is not a recognized word or abbreviation."
 		   substring)
 	    (return-from match-substring nil)))))
 
@@ -519,7 +520,7 @@
 	     (if *error-on-mismatch*
 		 (error
 		  'simple-error
-		  :format-control "Can't parse time/date string.~%>>> ~A~
+		  :format-control _"Can't parse time/date string.~%>>> ~A~
 				   ~%~VT^-- Bogus character encountered here."
 		  :format-arguments (list string (+ string-index 4)))
 		 (return-from decompose-string nil)))))))
@@ -577,7 +578,7 @@
 	 (setf (decoded-time-hour parsed-values) 12))
 	((eq form-value 'midn)
 	 (setf (decoded-time-hour parsed-values) 0))
-	(t (error "Unrecognized symbol: ~A" form-value)))
+	(t (error _"Unrecognized symbol: ~A" form-value)))
   (setf (decoded-time-minute parsed-values) 0)
   (setf (decoded-time-second parsed-values) 0))
 
@@ -592,12 +593,12 @@
 		  (setf (decoded-time-hour parsed-values) 0))
 		 ((not (<= 0 hour 12))
 		  (if *error-on-mismatch*
-		      (error "~D is not an AM hour, dummy." hour)))))
+		      (error _"~D is not an AM hour, dummy." hour)))))
 	  ((eq form-value 'pm)
 	   (if (<= 0 hour 11)
 	       (setf (decoded-time-hour parsed-values)
 		     (mod (+ hour 12) 24))))
-	  (t (error "~A isn't AM/PM - this shouldn't happen."
+	  (t (error _"~A isn't AM/PM - this shouldn't happen."
 		    form-value)))))
 
 ;;; Internet numerical time zone, e.g. RFC1123, in hours and minutes.
@@ -628,7 +629,7 @@
 	       (t
 		t))))
     (unless ok
-      (error "Invalid number of days (~D) for month ~D in ~D"
+      (error _"Invalid number of days (~D) for month ~D in ~D"
 	     (decoded-time-day parsed-values)
 	     (decoded-time-month parsed-values)
 	     (decoded-time-year parsed-values)))))      
@@ -670,8 +671,8 @@
       (if (< (decoded-time-dotw parsed-values) 0)
 	  (setf (decoded-time-dotw parsed-values) dotw)
 	  (unless (= dotw (decoded-time-dotw parsed-values))
-	    (cerror "Ignore."
-		    "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
+	    (cerror _"Ignore."
+		    _"Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
 		    (lookup-name (decoded-time-dotw parsed-values))
 		    (lookup-name dotw)))))))
 
@@ -699,7 +700,7 @@
 	(noon-midn (deal-with-noon-midn form-value parsed-values))
 	(date-time-divider 0)
 	(special (funcall form-value parsed-values))
-	(t (error "Unrecognized symbol in form list: ~A." form-type)))))
+	(t (error _"Unrecognized symbol in form list: ~A." form-type)))))
   ;; Some simple sanity checks, like does the given month have that
   ;; many days?  Is it a leap year?
   (check-days-per-month parsed-values)
@@ -713,7 +714,7 @@
 			       (default-hours nil) (default-day nil)
 			       (default-month nil) (default-year nil)
 			       (default-zone nil) (default-weekday -1))
-  "Tries very hard to make sense out of the argument time-string and
+  _N"Tries very hard to make sense out of the argument time-string and
    returns a single integer representing the universal time if
    successful.  If not, it returns nil.  If the :error-on-mismatch
    keyword is true, parse-time will signal an error instead of
@@ -738,7 +739,7 @@
 	  (set-time-values string-form parsed-values)
 	  (convert-to-unitime parsed-values))
 	(if *error-on-mismatch*
-	  (error "\"~A\" is not a recognized time/date format." time-string)
+	  (error _"\"~A\" is not a recognized time/date format." time-string)
 	  nil))))
 
 
diff --git a/code/pathname.lisp b/code/pathname.lisp
index 3a8c046ad74e2d98f78f63b00d0aa0c8a32e657f..4dc3cfe7f3d8a774e9e02ca1e0365b59c4458b74 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.89 2010/01/31 16:10:35 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.90 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; **********************************************************************
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(pathname pathnamep logical-pathname
 	  parse-namestring merge-pathnames make-pathname
@@ -33,7 +34,7 @@
 (in-package "LISP")
 
 (defvar *autoload-translations* nil
-  "When non-nil, attempt to load \"library:<host>.translations\" to resolve
+  _N"When non-nil, attempt to load \"library:<host>.translations\" to resolve
    an otherwise undefined logical host.")
 							    
 
@@ -282,7 +283,7 @@
 ;;; PATH-DESIGNATOR -- internal type
 ;;;
 (deftype path-designator ()
-  "A path specification, either a string, file-stream or pathname."
+  _N"A path specification, either a string, file-stream or pathname."
   ;; This used to be stream, not file-stream, but ANSI CL says a
   ;; pathname designator is a string, a pathname or a stream
   ;; associated with a file.  In the places we use path-designator, we
@@ -529,7 +530,7 @@
 ;;; PATHNAME -- Interface
 ;;;
 (defun pathname (thing)
-  "Convert thing (a pathname, string or stream) into a pathname."
+  _N"Convert thing (a pathname, string or stream) into a pathname."
   (declare (type path-designator thing))
   (with-pathname (pathname thing)
     pathname))
@@ -631,7 +632,7 @@
 			&optional
 			(defaults *default-pathname-defaults*)
 			(default-version :newest))
-  "Construct a filled in pathname by completing the unspecified components
+  _N"Construct a filled in pathname by completing the unspecified components
    from the defaults."
   (declare (type path-designator pathname)
 	   (type path-designator defaults)
@@ -690,7 +691,7 @@
 		(results (maybe-diddle-case (coerce piece 'simple-string)
 					    diddle-case)))
 	       (t
-		(error "~S is not allowed as a directory component." piece))))
+		(error _"~S is not allowed as a directory component." piece))))
        (results)))
     (simple-string
      `(:absolute
@@ -710,7 +711,7 @@
 			   (version nil versionp)
 			   defaults
 			   (case :local))
-  "Makes a new pathname from the component arguments.  Note that host is
+  _N"Makes a new pathname from the component arguments.  Note that host is
 a host-structure or string."
   (declare (type (or null string host component-tokens) host)
 	   (type (or string component-tokens) device)
@@ -789,7 +790,7 @@ a host-structure or string."
 	       (let ((unix-directory-separator #\/))
 		 (when (eq host (%pathname-host *default-pathname-defaults*))
 		   (when (find unix-directory-separator name)
-		     (warn "Silly argument for a unix ~A: ~S"
+		     (warn _"Silly argument for a unix ~A: ~S"
 			   name-or-type name)))))))
       (check-component-validity name :pathname-name)
       (check-component-validity type :pathname-type)
@@ -802,7 +803,7 @@ a host-structure or string."
 		     (and (string= name ".")
 			  (not type))))
 	;; 
-	(warn "Silly argument for a unix PATHNAME-NAME: ~S" name)))
+	(warn _"Silly argument for a unix PATHNAME-NAME: ~S" name)))
 
     ;; More sanity checking
     (when dir
@@ -835,7 +836,7 @@ a host-structure or string."
 	       :pathname (make-pathname :directory (remove-if #'(lambda (x)
 								  (member x '(:up :back)))
 							      dir))
-	       :format-control "Illegal pathname: ~
+	       :format-control _"Illegal pathname: ~
                                 Directory with ~S immediately followed by ~S"
 	       :format-arguments (list (first d) (second d)))))
     
@@ -863,7 +864,7 @@ a host-structure or string."
 ;;; PATHNAME-HOST -- Interface
 ;;;
 (defun pathname-host (pathname &key (case :local))
-  "Accessor for the pathname's host."
+  _N"Accessor for the pathname's host."
   (declare (type path-designator pathname)
 	   (type (member :local :common) case)
 	   (values (or string null))
@@ -873,7 +874,7 @@ a host-structure or string."
 ;;; PATHNAME-DEVICE -- Interface
 ;;;
 (defun pathname-device (pathname &key (case :local))
-  "Accessor for pathname's device."
+  _N"Accessor for pathname's device."
   (declare (type path-designator pathname)
 	   (type (member :local :common) case))
   (with-pathname (pathname pathname)
@@ -886,7 +887,7 @@ a host-structure or string."
 ;;; PATHNAME-DIRECTORY -- Interface
 ;;;
 (defun pathname-directory (pathname &key (case :local))
-  "Accessor for the pathname's directory list."
+  _N"Accessor for the pathname's directory list."
   (declare (type path-designator pathname)
 	   (type (member :local :common) case))
   (with-pathname (pathname pathname)
@@ -907,7 +908,7 @@ a host-structure or string."
 ;;; PATHNAME-NAME -- Interface
 ;;;
 (defun pathname-name (pathname &key (case :local))
-  "Accessor for the pathname's name."
+  _N"Accessor for the pathname's name."
   (declare (type path-designator pathname)
 	   (type (member :local :common) case))
   (with-pathname (pathname pathname)
@@ -920,7 +921,7 @@ a host-structure or string."
 ;;; PATHNAME-TYPE
 ;;;
 (defun pathname-type (pathname &key (case :local))
-  "Accessor for the pathname's name."
+  _N"Accessor for the pathname's name."
   (declare (type path-designator pathname)
 	   (type (member :local :common) case))
   (with-pathname (pathname pathname)
@@ -933,7 +934,7 @@ a host-structure or string."
 ;;; PATHNAME-VERSION
 ;;;
 (defun pathname-version (pathname)
-  "Accessor for the pathname's version."
+  _N"Accessor for the pathname's version."
   (declare (type path-designator pathname))
   (with-pathname (pathname pathname)
     (%pathname-version pathname)))
@@ -944,7 +945,7 @@ a host-structure or string."
 ;;; %PRINT-NAMESTRING-PARSE-ERROR -- Internal
 ;;;
 (defun %print-namestring-parse-error (condition stream)
-  (format stream "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
+  (format stream _"Parse error in namestring: ~?~%  ~A~%  ~V@T^"
 	  (namestring-parse-error-complaint condition)
 	  (namestring-parse-error-arguments condition)
 	  (namestring-parse-error-namestring condition)
@@ -985,14 +986,14 @@ a host-structure or string."
 			     (extract-logical-host-prefix namestr start end)
 			     default-host)))
 	(unless parse-host
-	  (error "When Host arg is not supplied, Defaults arg must ~
+	  (error _"When Host arg is not supplied, Defaults arg must ~
 		  have a non-null PATHNAME-HOST."))
 
 	(multiple-value-bind
 	    (new-host device directory file type version)
 	    (funcall (host-parse parse-host) namestr start end)
 	  (when (and host new-host (not (eq new-host host)))
-	    (error "Host in namestring: ~S~@
+	    (error _"Host in namestring: ~S~@
 		    does not match explicit host argument: ~S"
 		   namestr host))
 	  (let ((pn-host (or new-host parse-host)))
@@ -1021,7 +1022,7 @@ a host-structure or string."
 (defun parse-namestring (thing
 			 &optional host (defaults *default-pathname-defaults*)
 			 &key (start 0) end junk-allowed)
-  "Converts pathname, a pathname designator, into a pathname structure,
+  _N"Converts pathname, a pathname designator, into a pathname structure,
    for a physical pathname, returns the printed representation. Host may be
    a physical host structure or host namestring."
   (declare (type path-designator thing)
@@ -1075,7 +1076,7 @@ a host-structure or string."
 		 ;; but leaves its interpretation
 		 ;; implementation-defined. Our interpretation
 		 ;; is that it's unsupported.:-|
-		 (error "A LIST representing a pathname host is not ~
+		 (error _"A LIST representing a pathname host is not ~
                               supported in this implementation:~%  ~S"
 			host))
 		(host
@@ -1091,7 +1092,7 @@ a host-structure or string."
 	(pathname
 	 (let ((host (if host host (%pathname-host defaults))))
 	   (unless (eq host (%pathname-host thing))
-	     (error "Hosts do not match: ~S and ~S."
+	     (error _"Hosts do not match: ~S and ~S."
 		    host (%pathname-host thing))))
 	 (values thing start))
 	(stream
@@ -1100,7 +1101,7 @@ a host-structure or string."
 	     (error 'simple-type-error
 		    :datum thing
 		    :expected-type 'pathname
-		    :format-control "Can't figure out the file associated with stream:~%  ~S"
+		    :format-control _"Can't figure out the file associated with stream:~%  ~S"
 		    :format-arguments (list thing)))
 	   (values name nil)))))))
 
@@ -1108,7 +1109,7 @@ a host-structure or string."
 ;;; NAMESTRING -- Interface
 ;;;
 (defun namestring (pathname)
-  "Construct the full (name)string form of the pathname."
+  _N"Construct the full (name)string form of the pathname."
   (declare (type path-designator pathname)
 	   (values (or null simple-base-string)))
   (with-pathname (pathname pathname)
@@ -1121,7 +1122,7 @@ a host-structure or string."
 		      *unix-host*)
 		      ))
 	(unless host
-	  (error "Cannot determine the namestring for pathnames with no ~
+	  (error _"Cannot determine the namestring for pathnames with no ~
 		  host:~%  ~S" pathname))
 	(funcall (host-unparse host) pathname)))))
 
@@ -1129,7 +1130,7 @@ a host-structure or string."
 ;;; HOST-NAMESTRING -- Interface
 ;;;
 (defun host-namestring (pathname)
-  "Returns a string representation of the name of the host in the pathname."
+  _N"Returns a string representation of the name of the host in the pathname."
   (declare (type path-designator pathname)
 	   (values (or null simple-base-string)))
   (with-pathname (pathname pathname)
@@ -1137,13 +1138,13 @@ a host-structure or string."
       (if host
 	  (funcall (host-unparse-host host) pathname)
 	  (error
-	   "Cannot determine the namestring for pathnames with no host:~%  ~S"
+	   _"Cannot determine the namestring for pathnames with no host:~%  ~S"
 	   pathname)))))
 
 ;;; DIRECTORY-NAMESTRING -- Interface
 ;;;
 (defun directory-namestring (pathname)
-  "Returns a string representation of the directories used in the pathname."
+  _N"Returns a string representation of the directories used in the pathname."
   (declare (type path-designator pathname)
 	   (values (or null simple-base-string)))
   (with-pathname (pathname pathname)
@@ -1151,13 +1152,13 @@ a host-structure or string."
       (if host
 	  (funcall (host-unparse-directory host) pathname)
 	  (error
-	   "Cannot determine the namestring for pathnames with no host:~%  ~S"
+	   _"Cannot determine the namestring for pathnames with no host:~%  ~S"
 	   pathname)))))
 
 ;;; FILE-NAMESTRING -- Interface
 ;;;
 (defun file-namestring (pathname)
-  "Returns a string representation of the name used in the pathname."
+  _N"Returns a string representation of the name used in the pathname."
   (declare (type path-designator pathname)
 	   (values (or null simple-base-string)))
   (with-pathname (pathname pathname)
@@ -1165,14 +1166,14 @@ a host-structure or string."
       (if host
 	  (funcall (host-unparse-file host) pathname)
 	  (error
-	   "Cannot determine the namestring for pathnames with no host:~%  ~S"
+	   _"Cannot determine the namestring for pathnames with no host:~%  ~S"
 	   pathname)))))
 
 ;;; ENOUGH-NAMESTRING -- Interface
 ;;;
 (defun enough-namestring (pathname
 			  &optional (defaults *default-pathname-defaults*))
-  "Returns an abbreviated pathname sufficent to identify the pathname relative
+  _N"Returns an abbreviated pathname sufficent to identify the pathname relative
    to the defaults."
   (declare (type path-designator pathname defaults))
   (with-pathname (pathname pathname)
@@ -1186,7 +1187,7 @@ a host-structure or string."
 		(funcall (host-unparse-enough host) pathname defaults)
 		(namestring pathname)))
 	  (error
-	   "Cannot determine the namestring for pathnames with no host:~%  ~S"
+	   _"Cannot determine the namestring for pathnames with no host:~%  ~S"
 	   pathname)))))
 
 
@@ -1195,7 +1196,7 @@ a host-structure or string."
 ;;; WILD-PATHNAME-P -- Interface
 ;;;
 (defun wild-pathname-p (pathname &optional field-key)
-  "Predicate for determining whether pathname contains any wildcards."
+  _N"Predicate for determining whether pathname contains any wildcards."
   (declare (type path-designator pathname)
 	   (type (member nil :host :device :directory :name :type :version)
 		 field-key))
@@ -1221,7 +1222,7 @@ a host-structure or string."
 ;;; PATHNAME-MATCH-P -- Interface
 ;;;
 (defun pathname-match-p (in-pathname in-wildname)
-  "Pathname matches the wildname template?"
+  _N"Pathname matches the wildname template?"
   (declare (type path-designator in-pathname)
 	   ;; Not path-designator because a file-stream can't have a
 	   ;; wild pathname.
@@ -1264,7 +1265,7 @@ a host-structure or string."
 	    (t
 	     (setf in-wildcard t)
 	     (unless subs
-	       (error "Not enough wildcards in FROM pattern to match ~
+	       (error _"Not enough wildcards in FROM pattern to match ~
 		       TO pattern:~%  ~S"
 		      pattern))
 	     (let ((sub (pop subs)))
@@ -1279,7 +1280,7 @@ a host-structure or string."
 		 (simple-string
 		  (push sub strings))
 		 (t
-		  (error "Can't substitute this into the middle of a word:~
+		  (error _"Can't substitute this into the middle of a word:~
 			  ~%  ~S"
 			 sub)))))))
 
@@ -1300,7 +1301,7 @@ a host-structure or string."
 ;;;    Called when we can't see how source and from matched.
 ;;;
 (defun didnt-match-error (source from)
-  (error "Pathname components from Source and From args to TRANSLATE-PATHNAME~@
+  (error _"Pathname components from Source and From args to TRANSLATE-PATHNAME~@
 	  did not match:~%  ~S ~S"
 	 source from))
 
@@ -1442,14 +1443,14 @@ a host-structure or string."
 	       (assert subs-left)
 	       (let ((match (pop subs-left)))
 		 (when (listp match)
-		   (error ":WILD-INFERIORS not paired in from and to ~
+		   (error _":WILD-INFERIORS not paired in from and to ~
 			   patterns:~%  ~S ~S" from to))
 		 (res (maybe-diddle-case match diddle-case))))
 	      ((member :wild-inferiors)
 	       (assert subs-left)
 	       (let ((match (pop subs-left)))
 		 (unless (listp match)
-		   (error ":WILD-INFERIORS not paired in from and to ~
+		   (error _":WILD-INFERIORS not paired in from and to ~
 			   patterns:~%  ~S ~S" from to))
 		 (dolist (x match)
 		   (res (maybe-diddle-case x diddle-case)))))
@@ -1466,7 +1467,7 @@ a host-structure or string."
 ;;; TRANSLATE-PATHNAME -- Interface
 ;;;
 (defun translate-pathname (source from-wildname to-wildname &key)
-  "Use the source pathname to translate the from-wildname's wild and
+  _N"Use the source pathname to translate the from-wildname's wild and
    unspecified elements into a completed to-pathname based on the to-wildname."
   (declare (type path-designator source from-wildname to-wildname))
   (with-pathname (source source)
@@ -1486,7 +1487,7 @@ a host-structure or string."
 					     (,field to)
 					     diddle-case)))
 			    (if (eq result :error)
-				(error "~S doesn't match ~S" source from)
+				(error _"~S doesn't match ~S" source from)
 				result))))
 	      (%make-pathname-object
 	       (or to-host source-host)
@@ -1535,7 +1536,7 @@ a host-structure or string."
   (let ((search-list (gethash (string-downcase name) *search-lists*)))
     (if search-list search-list
 	(when flame-not-found-p
-	  (error "Search-list ~a not defined." name)))))
+	  (error _"Search-list ~a not defined." name)))))
 
 ;;; INTERN-SEARCH-LIST -- internal interface.
 ;;;
@@ -1558,7 +1559,7 @@ a host-structure or string."
 ;;; out the expansions and set defined to NIL.
 ;;; 
 (defun clear-search-list (name)
-  "Clear the current definition for the search-list NAME.  Returns T if such
+  _N"Clear the current definition for the search-list NAME.  Returns T if such
    a definition existed, and NIL if not."
   (let* ((name (string-downcase name))
 	 (search-list (gethash name *search-lists*)))
@@ -1573,7 +1574,7 @@ a host-structure or string."
 ;;; just mark them as being undefined.
 ;;;
 (defun clear-all-search-lists ()
-  "Clear the definition for all search-lists.  Only use this if you know
+  _N"Clear the definition for all search-lists.  Only use this if you know
    what you are doing."
   (maphash #'(lambda (name search-list)
 	       (declare (ignore name))
@@ -1595,7 +1596,7 @@ a host-structure or string."
       (cond ((search-list-p search-list)
 	     search-list)
 	    (flame-if-none
-	     (error "~S doesn't start with a search-list." pathname))
+	     (error _"~S doesn't start with a search-list." pathname))
 	    (t
 	     nil)))))
 
@@ -1605,7 +1606,7 @@ a host-structure or string."
 ;;; bunch of pathnames.
 ;;; 
 (defun search-list (pathname)
-  "Return the expansions for the search-list starting PATHNAME.  If PATHNAME
+  _N"Return the expansions for the search-list starting PATHNAME.  If PATHNAME
    does not start with a search-list, then an error is signaled.  If
    the search-list has not been defined yet, then an error is signaled.
    The expansion for a search-list can be set with SETF." 
@@ -1617,12 +1618,12 @@ a host-structure or string."
 		      (make-pathname :host host
 				     :directory (cons :absolute directory)))
 		  (search-list-expansions search-list))
-	  (error "Search list ~S has not been defined yet." pathname)))))
+	  (error _"Search list ~S has not been defined yet." pathname)))))
 
 ;;; SEARCH-LIST-DEFINED-P -- public.
 ;;; 
 (defun search-list-defined-p (pathname)
-  "Returns T if the search-list starting PATHNAME is currently defined, and
+  _N"Returns T if the search-list starting PATHNAME is currently defined, and
    NIL otherwise.  An error is signaled if PATHNAME does not start with a
    search-list."
   (with-pathname (pathname pathname)
@@ -1639,7 +1640,7 @@ a host-structure or string."
     (labels
 	((check (target-list path)
 	   (when (eq search-list target-list)
-	     (error "That would result in a circularity:~%  ~
+	     (error _"That would result in a circularity:~%  ~
 		     ~A~{ -> ~A~} -> ~A"
 		    (search-list-name search-list)
 		    (reverse path)
@@ -1653,7 +1654,7 @@ a host-structure or string."
 	     (when (or (pathname-name pathname)
 		       (pathname-type pathname)
 		       (pathname-version pathname))
-	       (error "Search-lists cannot expand into pathnames that have ~
+	       (error _"Search-lists cannot expand into pathnames that have ~
 		       a name, type, or ~%version specified:~%  ~S"
 		      pathname))
 	     (let ((directory (pathname-directory pathname)))
@@ -1676,7 +1677,7 @@ a host-structure or string."
 ;;; ENUMERATE-SEARCH-LIST -- public.
 ;;; 
 (defmacro enumerate-search-list ((var pathname &optional result) &body body)
-  "Execute BODY with VAR bound to each successive possible expansion for
+  _N"Execute BODY with VAR bound to each successive possible expansion for
    PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a
    search-list, then BODY is executed exactly once.  Everything is wrapped
    in a block named NIL, so RETURN can be used to terminate early.  Note:
@@ -1697,7 +1698,7 @@ a host-structure or string."
      ((not search-list)
       (funcall function pathname))
      ((not (search-list-defined search-list))
-      (error "Undefined search list: ~A"
+      (error _"Undefined search list: ~A"
 	     (search-list-name search-list)))
      (t
       (let ((tail (cddr (pathname-directory pathname))))
@@ -1729,7 +1730,7 @@ a host-structure or string."
       (let ((ch (schar word i)))
 	(unless (or (alpha-char-p ch) (digit-char-p ch) (char= ch #\-))
 	  (error 'namestring-parse-error
-		 :complaint "Logical namestring character ~
+		 :complaint _"Logical namestring character ~
 			     is not alphanumeric or hyphen:~%  ~S"
 		 :arguments (list ch)
 		 :namestring word :offset i))))
@@ -1764,7 +1765,7 @@ a host-structure or string."
 	   found
 	   (error 'simple-file-error
 		  :pathname thing
-		  :format-control "Logical host not yet defined: ~S"
+		  :format-control _"Logical host not yet defined: ~S"
 		  :format-arguments (list thing)))))
     (logical-host thing)))
 
@@ -1800,7 +1801,7 @@ a host-structure or string."
 	    (if (= pos last-pos)
 		(when (pattern)
 		  (error 'namestring-parse-error
-			 :complaint "Double asterisk inside of logical ~
+			 :complaint _"Double asterisk inside of logical ~
 				     word: ~S"
 			 :arguments (list chunk)
 			 :namestring namestring
@@ -1839,7 +1840,7 @@ a host-structure or string."
 	  (setq prev (1+ i))
 	  (unless (member ch '(#\; #\: #\.))
 	    (error 'namestring-parse-error
-		   :complaint "Illegal character for logical pathname:~%  ~S"
+		   :complaint _"Illegal character for logical pathname:~%  ~S"
 		   :arguments (list ch)
 		   :namestring namestr
 		   :offset i))
@@ -1863,8 +1864,8 @@ a host-structure or string."
       (labels ((expecting (what chunks)
 		 (unless (and chunks (simple-string-p (caar chunks)))
 		   (error 'namestring-parse-error
-			  :complaint "Expecting ~A, got ~:[nothing~;~:*~S~]."
-			  :arguments (list what (caar chunks))
+			  :complaint _"Expecting ~A, got ~:[nothing~;~:*~S~]."
+			  :arguments (list (intl:gettext what) (caar chunks))
 			  :namestring namestr
 			  :offset (if chunks (cdar chunks) end)))
 		 (caar chunks))
@@ -1872,7 +1873,7 @@ a host-structure or string."
 		 (case (caadr chunks)
 		   (#\:
 		    (setq host
-			  (find-logical-host (expecting "a host name" chunks)))
+			  (find-logical-host (expecting _N"a host name" chunks)))
 		    (parse-relative (cddr chunks)))
 		   (t
 		    (parse-relative chunks))))
@@ -1888,7 +1889,7 @@ a host-structure or string."
 		 (case (caadr chunks)
 		   (#\;
 		    (directory
-		     (let ((res (expecting "a directory name" chunks)))
+		     (let ((res (expecting _N"a directory name" chunks)))
 		       (cond ((string= res "..") :up)
 			     ((string= res "**") :wild-inferiors)
 			     (t
@@ -1898,14 +1899,14 @@ a host-structure or string."
 		    (parse-name chunks))))
 	       (parse-name (chunks)
 		 (when chunks
-		   (expecting "a file name" chunks)
+		   (expecting _N"a file name" chunks)
 		   (setq name (maybe-make-logical-pattern namestr chunks))
 		   (expecting-dot (cdr chunks))))
 	       (expecting-dot (chunks)
 		 (when chunks
 		   (unless (eql (caar chunks) #\.)
 		     (error 'namestring-parse-error
-			    :complaint "Expecting a dot, got ~S."
+			    :complaint _N"Expecting a dot, got ~S."
 			    :arguments (list (caar chunks))
 			    :namestring namestr
 			    :offset (cdar chunks)))
@@ -1913,11 +1914,11 @@ a host-structure or string."
 		       (parse-version (cdr chunks))
 		       (parse-type (cdr chunks)))))
 	       (parse-type (chunks)
-		 (expecting "a file type" chunks)
+		 (expecting _N"a file type" chunks)
 		 (setq type (maybe-make-logical-pattern namestr chunks))
 		 (expecting-dot (cdr chunks)))
 	       (parse-version (chunks)
-		 (let ((str (expecting "a positive integer, * or NEWEST"
+		 (let ((str (expecting _N"a positive integer, * or NEWEST"
 				       chunks)))
 		   (cond
 		    ((string= str "*") (setq version :wild))
@@ -1928,7 +1929,7 @@ a host-structure or string."
 			 (parse-integer str :junk-allowed t)
 		       (unless (and res (plusp res))
 			 (error 'namestring-parse-error
-				:complaint "Expected a positive integer, ~
+				:complaint _"Expected a positive integer, ~
 					    got ~S"
 				:arguments (list str)
 				:namestring namestr
@@ -1936,7 +1937,7 @@ a host-structure or string."
 		       (setq version res)))))
 		 (when (cdr chunks)
 		   (error 'namestring-parse-error
-			  :complaint "Extra stuff after end of file name."
+			  :complaint _"Extra stuff after end of file name."
 			  :namestring namestr
 			  :offset (cdadr chunks)))))
 	(parse-host (logical-chunkify namestr start end)))
@@ -1962,7 +1963,7 @@ a host-structure or string."
 ;;; LOGICAL-PATHNAME -- Public
 ;;;
 (defun logical-pathname (pathspec)
-  "Converts the pathspec argument to a logical-pathname and returns it."
+  _N"Converts the pathspec argument to a logical-pathname and returns it."
   (declare (type (or logical-pathname string stream) pathspec)
 	   (values logical-pathname))
   (if (typep pathspec 'logical-pathname)
@@ -1972,7 +1973,7 @@ a host-structure or string."
 	(unless logical-p
 	  (error
 	   'simple-type-error
-	   :format-control "Logical namestring does not specify a host:~%  ~S"
+	   :format-control _"Logical namestring does not specify a host:~%  ~S"
 	   :format-arguments (list pathspec)
 	   :datum pathspec
 	   :expected-type '(satisfies logical-pathname-namestring-p)))
@@ -2005,7 +2006,7 @@ a host-structure or string."
 		((eq dir :wild-inferiors)
 		 (pieces "**;"))
 		(t
-		 (error "Invalid directory component: ~S" dir))))))
+		 (error _"Invalid directory component: ~S" dir))))))
     (apply #'concatenate 'simple-string (pieces))))
 
 
@@ -2024,7 +2025,7 @@ a host-structure or string."
 		   (strings "**"))
 		  ((eq piece :multi-char-wild)
 		   (strings "*"))
-		  (t (error "Invalid keyword: ~S" piece))))))
+		  (t (error _"Invalid keyword: ~S" piece))))))
        (apply #'concatenate 'simple-string (strings))))))
 
 ;;; UNPARSE-ENOUGH-NAMESTRING -- Internal
@@ -2087,7 +2088,7 @@ a host-structure or string."
   (collect ((res))
     (dolist (tr transl-list)
       (unless (and (consp tr) (= (length tr) 2))
-	(error "Logical pathname translation is not a two-list:~%  ~S"
+	(error _"Logical pathname translation is not a two-list:~%  ~S"
 	       tr))
       (let ((from (first tr)))
 	(res (list (if (typep from 'logical-pathname)
@@ -2100,7 +2101,7 @@ a host-structure or string."
 ;;; LOGICAL-PATHNAME-TRANSLATIONS -- Public
 ;;;
 (defun logical-pathname-translations (host)
-  "Return the (logical) host object argument's list of translations."
+  _N"Return the (logical) host object argument's list of translations."
   (declare (type (or string logical-host) host)
 	   (values list))
   (logical-host-translations (find-logical-host host)))
@@ -2108,7 +2109,7 @@ a host-structure or string."
 ;;; (SETF LOGICAL-PATHNAME-TRANSLATIONS) -- Public
 ;;;
 (defun (setf logical-pathname-translations) (translations host)
-  "Set the translations list for the logical host argument.
+  _N"Set the translations list for the logical host argument.
    Return translations."
   (declare (type (or string logical-host) host)
 	   (type list translations)
@@ -2117,8 +2118,8 @@ a host-structure or string."
   (let ((maybe-search-list-host (concatenate 'string host ":")))
     (when (and (not (logical-pathname-p (pathname maybe-search-list-host)))
 	       (search-list-defined-p maybe-search-list-host))
-      (cerror "Clobber search-list host with logical pathname host"
-	      "~S names a CMUCL search-list"
+      (cerror _"Clobber search-list host with logical pathname host"
+	      _"~S names a CMUCL search-list"
 	      host)))
   (let ((host (intern-logical-host host)))
     (setf (logical-host-canon-transls host)
@@ -2134,7 +2135,7 @@ a host-structure or string."
 ;;; LOAD-LOGICAL-PATHNAME-TRANSLATIONS -- Public
 ;;;
 (defun load-logical-pathname-translations (host)
-  "Search for a logical pathname named host, if not already defined. If already
+  _N"Search for a logical pathname named host, if not already defined. If already
    defined no attempt to find or load a definition is attempted and NIL is
    returned. If host is not already defined, but definition is found and loaded
    successfully, T is returned, else error."
@@ -2148,7 +2149,7 @@ a host-structure or string."
 					     :type "translations"))
 	(if *load-verbose*
 	    (format *error-output*
-		    ";; Loading pathname translations from ~A~%"
+		    _";; Loading pathname translations from ~A~%"
 		    (namestring (truename in-str))))
 	(setf (logical-pathname-translations host) (read in-str)))
       t)))
@@ -2156,7 +2157,7 @@ a host-structure or string."
 ;;; TRANSLATE-LOGICAL-PATHNAME  -- Public
 ;;;
 (defun translate-logical-pathname (pathname &key)
-  "Translates pathname to a physical pathname, which is returned."
+  _N"Translates pathname to a physical pathname, which is returned."
   (declare (type path-designator pathname)
 	   (values (or null pathname)))
   (typecase pathname
@@ -2164,7 +2165,7 @@ a host-structure or string."
      (dolist (x (logical-host-canon-transls (%pathname-host pathname))
 		(error 'simple-file-error
 		       :pathname pathname
-		       :format-control "No translation for ~S"
+		       :format-control _"No translation for ~S"
 		       :format-arguments (list pathname)))
        (destructuring-bind (from to) x
 	 (when (pathname-match-p pathname from)
diff --git a/code/pmax-disassem.lisp b/code/pmax-disassem.lisp
index 5b392b7132d8f5538a5a9295f0b86f0fd5d932d2..31a4af31560c120d5944133404d4d60bbea72427 100644
--- a/code/pmax-disassem.lisp
+++ b/code/pmax-disassem.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.19 2001/03/04 20:12:40 pw Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.20 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; 
 
 (in-package "MIPS" :use '("LISP"))
+(intl:textdomain "cmucl")
 
 (export '(register-name disassemble-code-vector))
 
diff --git a/code/pmax-machdef.lisp b/code/pmax-machdef.lisp
index 2b33c043cbce5613de0314573ab607517dd7b31a..d803bc143b0dfe2b938264d491a5f486ee05b7dd 100644
--- a/code/pmax-machdef.lisp
+++ b/code/pmax-machdef.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-machdef.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-machdef.lisp,v 1.4 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Record definitions needed for the interface to Mach.
 ;;;
 (in-package "MACH")
+(intl:textdomain "cmucl")
 
 
 (export '(sigcontext-onstack sigcontext-mask sigcontext-pc sigcontext-regs
diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp
index 7a5e6e3b32f31a2cc59bf8fc08c39b93ee1a2c59..bc2ab304709036e3ab76d89b169ab529dd5dc8fd 100644
--- a/code/pmax-vm.lisp
+++ b/code/pmax-vm.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.15 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.16 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.15 1994/10/31 04:11:27 ram Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.16 2010/03/19 15:18:59 rtoy Rel $
 ;;;
 ;;; This file contains the PMAX specific runtime stuff.
 ;;;
@@ -19,6 +19,8 @@
 (use-package "C-CALL")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
diff --git a/code/ppc-vm.lisp b/code/ppc-vm.lisp
index 30d102de1c6c517499869206d840da81e24040ed..971e4475d99b44c7b73b9a04badc98f39b9ee4e4 100644
--- a/code/ppc-vm.lisp
+++ b/code/ppc-vm.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ppc-vm.lisp,v 1.9 2008/05/23 18:15:30 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ppc-vm.lisp,v 1.10 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 (use-package "SYSTEM")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
@@ -110,11 +112,11 @@
 ;;;; MACHINE-TYPE and MACHINE-VERSION
 
 (defun machine-type ()
-  "Returns a string describing the type of the local machine."
+  _N"Returns a string describing the type of the local machine."
   "PowerPC")
 
 (defun machine-version ()
-  "Returns a string describing the version of the local machine."
+  _N"Returns a string describing the version of the local machine."
   "who-knows?")
 
 
@@ -359,12 +361,12 @@
 ;; compiler will normally use vops to implement these functions.
 
 (defun fused-multiply-subtract (x y z)
-  "Compute x*y-z with only one rounding operation"
+  _N"Compute x*y-z with only one rounding operation"
   (declare (double-float x y z))
   (fused-multiply-subtract x y z))
 
 (defun fused-multiply-add (x y z)
-  "Compute x*y+z with only one rounding operation"
+  _N"Compute x*y+z with only one rounding operation"
   (declare (double-float x y z))
   (fused-multiply-add x y z))
 
diff --git a/code/pprint-loop.lisp b/code/pprint-loop.lisp
index da7b5c164aa4076a8baf9042ec693a8de4eff89e..b2f18e0d77a534169e9f1ec9478f02333b6e9499 100644
--- a/code/pprint-loop.lisp
+++ b/code/pprint-loop.lisp
@@ -57,7 +57,7 @@
 ;; existing implementations of LOOP.
 
 (in-package "PRETTY-PRINT")
-
+(intl:textdomain "cmucl")
 (defun pprint-loop-token-type (token &aux string)
   (cond ((not (symbolp token)) :expr)
 	((string= (setq string (string token)) "FINALLY") :finally)
diff --git a/code/pprint.lisp b/code/pprint.lisp
index 74707b667faf54ad7682d16900696821417cf4b2..254367acbe0fa0285ea61cd0e448a8b83de51d1b 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.66 2009/07/23 01:23:43 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.67 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 (use-package "EXT")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl")
+
 (export '(pretty-stream pretty-stream-p))
 
 (in-package "LISP")
@@ -499,7 +501,7 @@
   (record))
 
 (defun enqueue-annotation (stream handler record)
-  "Insert an annotation into the pretty-printing stream STREAM.
+  _N"Insert an annotation into the pretty-printing stream STREAM.
 HANDLER is a function, and RECORD is an arbitrary datum.  The
 pretty-printing stream conceptionally queues annotations in sequence
 with the characters that are printed to the stream, until the stream
@@ -515,7 +517,7 @@ with the arguments RECORD, STREAM and nil."
 	   :record record))
 
 (defun re-enqueue-annotation (stream annotation)
-  "Insert ANNOTATION into the queue of annotations in STREAM."
+  _N"Insert ANNOTATION into the queue of annotations in STREAM."
   (let* ((annotation-cons (list annotation))
 	 (head (pretty-stream-annotations-head stream)))
     (if head
@@ -524,7 +526,7 @@ with the arguments RECORD, STREAM and nil."
     (setf (pretty-stream-annotations-head stream) annotation-cons)))
 
 (defun re-enqueue-annotations (stream end)
-  "Insert all annotations in STREAM from the queue of pending
+  _N"Insert all annotations in STREAM from the queue of pending
 operations into the queue of annotations.  When END is non-nil, 
 stop before reaching the queued-op END."
   #-(and)
@@ -539,7 +541,7 @@ stop before reaching the queued-op END."
       (re-enqueue-annotation stream (car tail)))))
 
 (defun dequeue-annotation (stream &key end-posn)
-  "Dequeue the next annotation from the queue of annotations of STREAM
+  _N"Dequeue the next annotation from the queue of annotations of STREAM
 and return it.  Return nil if there are no more annotations.  When
 :END-POSN is given and the next annotation has a posn greater than
 this, also return nil."
@@ -560,7 +562,7 @@ this, also return nil."
 	     truncatep)))
 
 (defun output-buffer-with-annotations (stream end)
-  "Output the buffer of STREAM up to (excluding) the buffer index END.
+  _N"Output the buffer of STREAM up to (excluding) the buffer index END.
 When annotations are present, invoke them at the right positions."
   (let ((target (pretty-stream-target stream))
 	(buffer (pretty-stream-buffer stream))
@@ -590,7 +592,7 @@ When annotations are present, invoke them at the right positions."
     (write-string buffer target :start start :end end)))
 
 (defun flush-annotations (stream end truncatep)
-  "Invoke all annotations in STREAM up to (including) the buffer index END."
+  _N"Invoke all annotations in STREAM up to (including) the buffer index END."
   (let ((end-posn (index-posn end stream)))
     #-(and)
     (loop
@@ -796,7 +798,7 @@ When annotations are present, invoke them at the right positions."
 	 (new-fill-ptr (- fill-ptr count))
 	 (buffer (pretty-stream-buffer stream)))
     (when (zerop count)
-      (error "Output-partial-line called when nothing can be output."))
+      (error _"Output-partial-line called when nothing can be output."))
     (output-buffer-with-annotations stream count)
     (incf (pretty-stream-buffer-start-column stream) count)
     (replace buffer buffer :end1 new-fill-ptr :start2 count :end2 fill-ptr)
@@ -835,11 +837,11 @@ When annotations are present, invoke them at the right positions."
 (defmacro pprint-logical-block
 	  ((stream-symbol object &key (prefix "" prefix-p) (per-line-prefix nil per-line-p) (suffix "" suffix-p))
 	   &body body)
-  "Group some output into a logical block.  STREAM-SYMBOL should be either a
+  _N"Group some output into a logical block.  STREAM-SYMBOL should be either a
    stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The printer
    control variable *PRINT-LEVEL* is automatically handled."
   (when (and prefix-p per-line-prefix)
-    (error "Cannot specify both a prefix and a per-line-prefix."))
+    (error _"Cannot specify both a prefix and a per-line-prefix."))
   (multiple-value-bind
       (stream-var stream-expression)
       (case stream-symbol
@@ -913,23 +915,23 @@ When annotations are present, invoke them at the right positions."
 	 ,body))))
 
 (defmacro pprint-exit-if-list-exhausted ()
-  "Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return
+  _N"Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return
    if it's list argument is exhausted.  Can only be used inside
    PPRINT-LOGICAL-BLOCK, and only when the LIST argument to
    PPRINT-LOGICAL-BLOCK is supplied."
-  (error "PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~
+  (error _"PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~
 	  PPRINT-LOGICAL-BLOCK."))
 
 (defmacro pprint-pop ()
-  "Return the next element from LIST argument to the closest enclosing
+  _N"Return the next element from LIST argument to the closest enclosing
    use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*
    and *PRINT-CIRCLE*.  Can only be used inside PPRINT-LOGICAL-BLOCK.
    If the LIST argument to PPRINT-LOGICAL-BLOCK was NIL, then nothing
    is poped, but the *PRINT-LENGTH* testing still happens."
-  (error "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."))
+  (error _"PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."))
   
 (defun pprint-newline (kind &optional stream)
-  "Output a conditional newline to STREAM (which defaults to
+  _N"Output a conditional newline to STREAM (which defaults to
    *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do
    nothing if not.  KIND can be one of:
      :LINEAR - A line break is inserted if and only if the immediatly
@@ -959,7 +961,7 @@ When annotations are present, invoke them at the right positions."
   nil)
 
 (defun pprint-indent (relative-to n &optional stream)
-  "Specify the indentation to use in the current logical block if STREAM
+  _N"Specify the indentation to use in the current logical block if STREAM
    (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream
    and do nothing if not.  (See PPRINT-LOGICAL-BLOCK.)  N is the indention
    to use (in ems, the width of an ``m'') and RELATIVE-TO can be either:
@@ -983,7 +985,7 @@ When annotations are present, invoke them at the right positions."
   nil)
 
 (defun pprint-tab (kind colnum colinc &optional stream)
-  "If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing
+  _N"If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing
    stream, perform tabbing based on KIND, otherwise do nothing.  KIND can
    be one of:
      :LINE - Tab to column COLNUM.  If already past COLNUM tab to the next
@@ -1007,7 +1009,7 @@ When annotations are present, invoke them at the right positions."
   nil)
 
 (defun pprint-fill (stream list &optional (colon? t) atsign?)
-  "Output LIST to STREAM putting :FILL conditional newlines between each
+  _N"Output LIST to STREAM putting :FILL conditional newlines between each
    element.  If COLON? is NIL (defaults to T), then no parens are printed
    around the output.  ATSIGN? is ignored (but allowed so that PPRINT-FILL
    can be used with the ~/.../ format directive."
@@ -1023,7 +1025,7 @@ When annotations are present, invoke them at the right positions."
       (pprint-newline :fill stream))))
 
 (defun pprint-linear (stream list &optional (colon? t) atsign?)
-  "Output LIST to STREAM putting :LINEAR conditional newlines between each
+  _N"Output LIST to STREAM putting :LINEAR conditional newlines between each
    element.  If COLON? is NIL (defaults to T), then no parens are printed
    around the output.  ATSIGN? is ignored (but allowed so that PPRINT-LINEAR
    can be used with the ~/.../ format directive."
@@ -1039,7 +1041,7 @@ When annotations are present, invoke them at the right positions."
       (pprint-newline :linear stream))))
 
 (defun pprint-tabular (stream list &optional (colon? t) atsign? tabsize)
-  "Output LIST to STREAM tabbing to the next column that is an even multiple
+  _N"Output LIST to STREAM tabbing to the next column that is an even multiple
    of TABSIZE (which defaults to 16) between each element.  :FILL style
    conditional newlines are also output between each element.  If COLON? is
    NIL (defaults to T), then no parens are printed around the output.
@@ -1182,7 +1184,7 @@ When annotations are present, invoke them at the right positions."
 	      ((fboundp 'compile)
 	       (compile nil `(lambda (object) ,expr)))
 	      (was-cons
-	       (warn "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
+	       (warn _"CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
 		     type)
 	       #'(lambda (object) (declare (ignore object)) nil))
 	      (t
diff --git a/code/pred.lisp b/code/pred.lisp
index 3ab8de8f249923a2dc1e18e2cebfff225998845e..0a4da401dcd57ce297ed5585dde5c9a525a059a5 100644
--- a/code/pred.lisp
+++ b/code/pred.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.62 2009/11/02 15:05:06 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.63 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;;
 
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
+
 (export '(%instancep instance fixnump bignump bitp ratiop weak-pointer-p
 	  %typep class-cell-typep))
 
@@ -136,7 +138,7 @@
 ;;; it is not permitted to return member types.
 ;;; 
 (defun type-of (object)
-  "Return the type of OBJECT."
+  _N"Return the type of OBJECT."
   (typecase object
     ((or array complex)
      (type-specifier (ctype-of object)))
@@ -165,7 +167,7 @@
 ;;;; UPGRADED-ARRAY-ELEMENT-TYPE  --  public
 ;;;
 (defun upgraded-array-element-type (spec &optional environment)
-  "Return the element type that will actually be used to implement an array
+  _N"Return the element type that will actually be used to implement an array
    with the specifier :ELEMENT-TYPE Spec."
   ;; Type expansion (TYPE-EXPAND) currently doesn't handle environments.
   (declare (ignore environment))
@@ -178,7 +180,7 @@
 ;;; Just parse the type specifiers and call csubtype.
 ;;; 
 (defun subtypep (type1 type2 &optional environment)
-  "Return two values indicating the relationship between type1 and type2:
+  _N"Return two values indicating the relationship between type1 and type2:
   T and T: type1 definitely is a subtype of type2.
   NIL and T: type1 definitely is not a subtype of type2.
   NIL and NIL: who knows?"
@@ -195,7 +197,7 @@
 ;;; Just call %typep
 ;;; 
 (defun typep (object type &optional environment)
-  "Return T iff OBJECT is of type TYPE."
+  _N"Return T iff OBJECT is of type TYPE."
   (declare (ignore environment))
   (%typep object type))
 
@@ -268,7 +270,7 @@
 	  (if (unknown-type-p (array-type-element-type type))
 	      ;; better to fail this way than to get bogosities like
 	      ;;   (TYPEP (MAKE-ARRAY 11) '(ARRAY SOME-UNDEFINED-TYPE)) => T
-	      (error "~@<unknown element type in array type: ~2I~_~S~:>"
+	      (error _"~@<unknown element type in array type: ~2I~_~S~:>"
 		     (type-specifier type))
 	      t)
 	  (or (eq (array-type-element-type type) *wild-type*)
@@ -293,7 +295,7 @@
      ;; Parse it again to make sure it's really undefined.
      (let ((reparse (specifier-type (unknown-type-specifier type))))
        (if (typep reparse 'unknown-type)
-	   (error "Unknown type specifier: ~S"
+	   (error _"Unknown type specifier: ~S"
 		  (unknown-type-specifier reparse))
 	   (%%typep object reparse))))
     (negation-type
@@ -312,11 +314,11 @@
 	 ;; HAIRY-TYPE for them.
 	 (not
 	  (unless (and (listp hairy-spec) (= (length hairy-spec) 2))
-	    (error "Invalid type specifier: ~S" hairy-spec))
+	    (error _"Invalid type specifier: ~S" hairy-spec))
 	  (not (%%typep object (specifier-type (cadr hairy-spec)))))
 	 (satisfies
 	  (unless (and (listp hairy-spec) (= (length hairy-spec) 2))
-	    (error "Invalid type specifier: ~S" hairy-spec))
+	    (error _"Invalid type specifier: ~S" hairy-spec))
 	  (let ((fn (cadr hairy-spec)))
 	    (if (funcall (typecase fn
 			   (function fn)
@@ -329,7 +331,7 @@
     (alien-type-type
      (alien-internals:alien-typep object (alien-type-type-alien-type type)))
     (function-type
-     (error "Function types are not a legal argument to TYPEP:~%  ~S"
+     (error _"Function types are not a legal argument to TYPEP:~%  ~S"
 	    (type-specifier type)))))
 
 
@@ -341,7 +343,7 @@
 (defun class-cell-typep (obj-layout cell object)
   (let ((class (class-cell-class cell)))
     (unless class
-      (error "Class has not yet been defined: ~S" (class-cell-name cell)))
+      (error _"Class has not yet been defined: ~S" (class-cell-name cell)))
     (class-typep obj-layout class object)))
 
 
@@ -354,12 +356,12 @@
   (when (layout-invalid obj-layout)
     (if (and (typep (kernel::class-of object) 'kernel::standard-class) object)
 	(setq obj-layout (pcl::check-wrapper-validity object))
-	(error "TYPEP on obsolete object (was class ~S)."
+	(error _"TYPEP on obsolete object (was class ~S)."
 	       (class-proper-name (layout-class obj-layout)))))
   (let ((layout (%class-layout class))
 	(obj-inherits (layout-inherits obj-layout)))
     (when (layout-invalid layout)
-      (error "Class is currently invalid: ~S" class))
+      (error _"Class is currently invalid: ~S" class))
     (or (eq obj-layout layout)
 	(dotimes (i (length obj-inherits) nil)
 	  (when (eq (svref obj-inherits i) layout)
@@ -376,14 +378,14 @@
 ;;; 
 
 (defun eq (obj1 obj2)
-  "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
+  _N"Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
   (eq obj1 obj2))
 
 
 ;;; EQUAL -- public.
 ;;;
 (defun equal (x y)
-  "Returns T if X and Y are EQL or if they are structured components
+  _N"Returns T if X and Y are EQL or if they are structured components
   whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they
   are the same length and have indentical components.  Other arrays must be
   EQ to be EQUAL."
@@ -412,7 +414,7 @@
 ;;; EQUALP -- public.
 ;;; 
 (defun equalp (x y)
-  "Just like EQUAL, but more liberal in several respects.
+  _N"Just like EQUAL, but more liberal in several respects.
   Numbers may be of different types, as long as the values are identical
   after coercion.  Characters may differ in alphabetic case.  Vectors and
   arrays must have identical dimensions and EQUALP elements, but may differ
diff --git a/code/print.lisp b/code/print.lisp
index 8575d403d05d6f7edb112007a74d712daff832c5..be5c652cdcbd60ae7c2b1e1a0e5e2d844582001b 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.126 2009/10/02 13:34:38 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.127 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(*print-readably* *print-escape* *print-pretty* *print-circle*
 	  *print-base* *print-radix* *print-case* *print-gensym* *print-level*
@@ -38,46 +39,46 @@
 ;;;; Exported printer control variables.
 
 (defvar *print-readably* nil
-  "If true, all objects will printed readably.  If readably printing is
+  _N"If true, all objects will printed readably.  If readably printing is
   impossible, an error will be signalled.  This overrides the value of
   *PRINT-ESCAPE*.")
 (defvar *print-escape* T
-  "Flag which indicates that slashification is on.  See the manual")
+  _N"Flag which indicates that slashification is on.  See the manual")
 (defvar *print-pretty* nil
-  "Flag which indicates that pretty printing is to be used")
+  _N"Flag which indicates that pretty printing is to be used")
 (defvar *print-base* 10.
-  "The output base for integers and rationals.")
+  _N"The output base for integers and rationals.")
 (defvar *print-radix* nil
-  "This flag requests to verify base when printing rationals.")
+  _N"This flag requests to verify base when printing rationals.")
 (defvar *print-level* nil
-  "How many levels deep to print.  Unlimited if null.")
+  _N"How many levels deep to print.  Unlimited if null.")
 (defvar *print-length* nil
-  "How many elements to print on each level.  Unlimited if null.")
+  _N"How many elements to print on each level.  Unlimited if null.")
 (defvar *print-circle* nil
-  "Whether to worry about circular list structures. See the manual.")
+  _N"Whether to worry about circular list structures. See the manual.")
 (defvar *print-case* :upcase
-  "What kind of case the printer should use by default")
+  _N"What kind of case the printer should use by default")
 (defvar *print-array* t
-  "Whether the array should print it's guts out")
+  _N"Whether the array should print it's guts out")
 (defvar *print-gensym* t
-  "If true, symbols with no home package are printed with a #: prefix.
+  _N"If true, symbols with no home package are printed with a #: prefix.
   If false, no prefix is printed.")
 (defvar *print-lines* nil
-  "The maximum number of lines to print.  If NIL, unlimited.")
+  _N"The maximum number of lines to print.  If NIL, unlimited.")
 (defvar *print-right-margin* nil
-  "The position of the right margin in ems.  If NIL, try to determine this
+  _N"The position of the right margin in ems.  If NIL, try to determine this
    from the stream in use.")
 (defvar *print-miser-width* nil
-  "If the remaining space between the current column and the right margin
+  _N"If the remaining space between the current column and the right margin
    is less than this, then print using ``miser-style'' output.  Miser
    style conditional newlines are turned on, and all indentations are
    turned off.  If NIL, never use miser mode.")
 (defvar *print-pprint-dispatch* nil
-  "The pprint-dispatch-table that controls how to pretty print objects.  See
+  _N"The pprint-dispatch-table that controls how to pretty print objects.  See
    COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH.")
 
 (defmacro with-standard-io-syntax (&body body)
-  "Bind the reader and printer control variables to values that enable READ
+  _N"Bind the reader and printer control variables to values that enable READ
    to reliably read the results of PRINT.  These values are:
        *PACKAGE*			The COMMON-LISP-USER package
        *PRINT-ARRAY*			T
@@ -147,19 +148,19 @@
 		     ((:lines *print-lines*) *print-lines*)
 		     ((:pprint-dispatch *print-pprint-dispatch*)
 		      *print-pprint-dispatch*))
-  "Outputs OBJECT to the specified stream, defaulting to *standard-output*"
+  _N"Outputs OBJECT to the specified stream, defaulting to *standard-output*"
   (output-object object (out-synonym-of stream))
   object)
 
 (defun prin1 (object &optional stream)
-  "Outputs a mostly READable printed representation of OBJECT on the specified
+  _N"Outputs a mostly READable printed representation of OBJECT on the specified
   stream."
   (let ((*print-escape* T))
     (output-object object (out-synonym-of stream)))
   object)
 
 (defun princ (object &optional stream)
-  "Outputs an asthetic but not READable printed representation of OBJECT on the
+  _N"Outputs an asthetic but not READable printed representation of OBJECT on the
   specified stream."
   (let ((*print-escape* NIL)
 	(*print-readably* NIL))
@@ -167,7 +168,7 @@
   object)
 
 (defun print (object &optional stream)
-  "Outputs a terpri, the mostly READable printed represenation of OBJECT, and 
+  _N"Outputs a terpri, the mostly READable printed represenation of OBJECT, and 
   space to the stream."
   (let ((stream (out-synonym-of stream)))
     (terpri stream)
@@ -176,7 +177,7 @@
     object))
 
 (defun pprint (object &optional stream)
-  "Prettily outputs the Object preceded by a newline."
+  _N"Prettily outputs the Object preceded by a newline."
   (let ((*print-pretty* t)
 	(*print-escape* t)
 	(stream (out-synonym-of stream)))
@@ -203,16 +204,16 @@
 	       ((:lines *print-lines*) *print-lines*)
 	       ((:pprint-dispatch *print-pprint-dispatch*)
 		*print-pprint-dispatch*))
-  "Returns the printed representation of OBJECT as a string."
+  _N"Returns the printed representation of OBJECT as a string."
   (stringify-object object))
 
 (defun prin1-to-string (object)
-  "Returns the printed representation of OBJECT as a string with 
+  _N"Returns the printed representation of OBJECT as a string with 
    slashification on."
   (stringify-object object t))
 
 (defun princ-to-string (object)
-  "Returns the printed representation of OBJECT as a string with
+  _N"Returns the printed representation of OBJECT as a string with
   slashification off."
   (stringify-object object nil))
 
@@ -250,7 +251,7 @@
    (lambda (condition stream)
      (let ((obj (print-not-readable-object condition))
 	   (*print-array* nil))
-       (format stream "~S cannot be printed readably." obj)))))
+       (format stream _"~S cannot be printed readably." obj)))))
 
 ;;; Guts of print-unreadable-object.
 ;;;
@@ -296,7 +297,7 @@
 ;;; This is used in other files, but is defined in this one for some reason.
 
 (defun whitespace-char-p (char)
-  "Determines whether or not the character is considered whitespace."
+  _N"Determines whether or not the character is considered whitespace."
   (or (char= char #\space)
       (char= char #\tab)
       (char= char #\return)
@@ -328,7 +329,7 @@
 ;;; CHECK-FOR-CIRCULARITY -- interface.
 ;;;
 (defun check-for-circularity (object &optional assign (mode t))
-  "Check to see if OBJECT is a circular reference, and return something non-NIL
+  _N"Check to see if OBJECT is a circular reference, and return something non-NIL
    if it is.  If ASSIGN is T, then the number to use in the #n= and #n# noise
    is assigned at this time.  Note: CHECK-FOR-CIRCULARITY must be called
    *EXACTLY* once with ASSIGN T, or the circularity detection noise will get
@@ -415,14 +416,14 @@
 ;;; HANDLE-CIRCULARITY -- interface.
 ;;; 
 (defun handle-circularity (marker stream)
-  "Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then
+  _N"Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then
    you should go ahead and print the object.  If it returns NIL, then
    you should blow it off."
   (case marker
     (:initiate
      ;; Someone forgot to initiate circularity detection.
      (let ((*print-circle* nil))
-       (error "Attempt to use CHECK-FOR-CIRCULARITY when circularity ~
+       (error _"Attempt to use CHECK-FOR-CIRCULARITY when circularity ~
 	       checking has not been initiated.")))
     ((t :logical-block)
      ;; It's a second (or later) reference to the object while we are
@@ -468,13 +469,13 @@
 ;;; *CURRENT-LEVEL* -- interface.
 ;;; 
 (defvar *current-level* 0
-  "The current level we are printing at, to be compared against *PRINT-LEVEL*.
+  _N"The current level we are printing at, to be compared against *PRINT-LEVEL*.
    See the macro DESCEND-INTO for a handy interface to depth abbreviation.")
 
 ;;; DESCEND-INTO -- interface.
 ;;; 
 (defmacro descend-into ((stream) &body body)
-  "Automatically handle *print-level* abbreviation.  If we are too deep, then
+  _N"Automatically handle *print-level* abbreviation.  If we are too deep, then
    a # is printed to STREAM and BODY is ignored."
   (let ((flet-name (gensym)))
     `(flet ((,flet-name ()
@@ -490,7 +491,7 @@
 ;;; PUNT-IF-TOO-LONG -- interface.
 ;;; 
 (defmacro punt-if-too-long (index stream)
-  "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*
+  _N"Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*
    is NIL) by outputting \"...\" and returning from the block named NIL."
   `(when (and (not *print-readably*)
 	      *print-length*
@@ -504,14 +505,14 @@
 ;;; *PRETTY-PRINTER* -- public.
 ;;; 
 (defvar *pretty-printer* nil
-  "The current pretty printer.  Should be either a function that takes two
+  _N"The current pretty printer.  Should be either a function that takes two
    arguments (the object and the stream) or NIL to indicate that there is
    no pretty printer installed.")
 
 ;;; OUTPUT-OBJECT -- interface.
 ;;; 
 (defun output-object (object stream)
-  "Output OBJECT to STREAM observing all printer control variables."
+  _N"Output OBJECT to STREAM observing all printer control variables."
   (labels ((print-it (stream)
 	     (if *print-pretty*
 		 (if *pretty-printer*
@@ -556,7 +557,7 @@
 ;;; OUTPUT-UGLY-OBJECT -- interface.
 ;;; 
 (defun output-ugly-object (object stream)
-  "Output OBJECT to STREAM observing all printer control variables except
+  _N"Output OBJECT to STREAM observing all printer control variables except
    for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty
    printer will be used for any components of OBJECT, just not for OBJECT
    itself."
@@ -635,11 +636,11 @@
     (setq *previous-readtable-case* (readtable-case *readtable*))
     (unless (member *print-case* '(:upcase :downcase :capitalize))
       (setq *print-case* :upcase)
-      (error "Invalid *PRINT-CASE* value: ~S" *previous-case*))
+      (error _"Invalid *PRINT-CASE* value: ~S" *previous-case*))
     (unless (member *previous-readtable-case*
 		    '(:upcase :downcase :invert :preserve))
       (setf (readtable-case *readtable*) :upcase)
-      (error "Invalid READTABLE-CASE value: ~S" *previous-readtable-case*))
+      (error _"Invalid READTABLE-CASE value: ~S" *previous-readtable-case*))
 
     (setq *internal-symbol-output-function*
 	  (case *previous-readtable-case*
@@ -1145,7 +1146,7 @@
 	  (write-char char stream))))))
 
 (defun output-array (array stream)
-  "Outputs the printed representation of any array in either the #< or #A
+  _N"Outputs the printed representation of any array in either the #< or #A
    form."
   (if (or *print-array* *print-readably*)
       (output-array-guts array stream)
@@ -1213,7 +1214,7 @@
 	    (if (layout-invalid layout)
 		(print-unreadable-object
 		    (instance stream :identity t :type t)
-		  (write-string "Obsolete Instance" stream))
+		  (write-string _"Obsolete Instance" stream))
 		(cond (;; non-CLOS :print-function option
 		       (slot-class-print-function class)
 		       (funcall (slot-class-print-function class)
@@ -1228,9 +1229,9 @@
 	    (print-object instance stream))
 	   (t
 	    (print-unreadable-object (instance stream :identity t)
-	      (write-string "Unprintable Instance" stream)))))
+	      (write-string _"Unprintable Instance" stream)))))
 	(print-unreadable-object (instance stream :identity t)
-	  (write-string "Unprintable Instance" stream)))))
+	  (write-string _"Unprintable Instance" stream)))))
 
 #+ORIGINAL
 (defun output-instance (instance stream)
@@ -1245,7 +1246,7 @@
 		 (if (layout-invalid layout)
 		     (print-unreadable-object (instance stream :identity t
 							:type t)
-		       (write-string "Obsolete Instance" stream))
+		       (write-string _"Obsolete Instance" stream))
 		     (funcall (or (slot-class-print-function class)
 				  #'default-structure-print)
 			      instance stream *current-level*)))
@@ -1253,9 +1254,9 @@
 		 (print-object instance stream))
 		(t
 		 (print-unreadable-object (instance stream :identity t)
-		   (write-string "Unprintable Instance" stream)))))
+		   (write-string _"Unprintable Instance" stream)))))
 	(print-unreadable-object (instance stream :identity t)
-	  (write-string "Unprintable Instance" stream)))))
+	  (write-string _"Unprintable Instance" stream)))))
 
 
 ;;;; Integer, ratio, and complex printing.  (i.e. everything but floats)
@@ -1265,7 +1266,7 @@
 	       (< 1 *print-base* 37))
     (let ((obase *print-base*))
       (setq *print-base* 10.)
-      (error "~A is not a reasonable value for *Print-Base*." obase)))
+      (error _"~A is not a reasonable value for *Print-Base*." obase)))
   (when (and (not (= *print-base* 10.))
 	     *print-radix*)
     ;; First print leading base information, if any.
@@ -1329,7 +1330,7 @@
   big)
 
 (defun power-list (n r)
-  "Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}
+  _N"Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}
 greater than n."
   (declare (integer n) (fixnum r))
   (do ((l nil (acons i r l))
@@ -1339,16 +1340,16 @@ greater than n."
 
 (declaim (inline digit-to-char))
 (defun digit-to-char (d)
-  "Convert digit into a character representation.  We use 0..9, a..z for
+  _N"Convert digit into a character representation.  We use 0..9, a..z for
 10..35, and A..Z for 36..52."
   (declare (fixnum d))
   (labels ((offset (d b) (code-char (+ d (char-code b)))))
     (cond ((< d 10) (offset d #\0))
 	  ((< d 36) (offset (- d 10) #\A))
-	  (t (error "overflow in digit-to-char")))))
+	  (t (error _"overflow in digit-to-char")))))
 
 (defun print-fixnum-sub (n r z s)
-  "Print a fixnum N to stream S, maybe with leading zeros.  This isn't
+  _N"Print a fixnum N to stream S, maybe with leading zeros.  This isn't
 ever-so efficient, but we probably don't need to care."
   (declare (fixnum n r z)
 	   (stream s))
@@ -1367,7 +1368,7 @@ ever-so efficient, but we probably don't need to care."
     (gen-digits n nil z)))
 
 (defun print-bignum-fast-sub (n r z s pl)
-  "Use the power list (see power-list) PL to split N roughly in half; then
+  _N"Use the power list (see power-list) PL to split N roughly in half; then
 print the left and right halves using (cdr PL).  Make sure we count the
 leading zeroes correctly."
   (declare (integer n)
@@ -1397,7 +1398,7 @@ leading zeroes correctly."
     pl))
 
 (defun print-bignum-fast (n s)
-  "Primary fast bignum-printing interface.  Prints integer N to stream S in
+  _N"Primary fast bignum-printing interface.  Prints integer N to stream S in
 radix-R.  If you have a power-list then pass it in as PL."
   (when (minusp n)
     (write-char #\- s)
@@ -1728,11 +1729,11 @@ radix-R.  If you have a power-list then pass it in as PL."
 
 
 (defconstant output-float-free-format-exponent-min -3
-  "Minimum power of 10 that allows the float printer to use free format,
+  _N"Minimum power of 10 that allows the float printer to use free format,
    instead of exponential format.  See section 22.1.3.1.3: Printing Floats
    in the ANSI CL standard.")
 (defconstant output-float-free-format-exponent-max 8
-  "Maximum power of 10 that allows the float printer to use free format,
+  _N"Maximum power of 10 that allows the float printer to use free format,
    instead of exponential format.  See section 22.1.3.1.3: Printing Floats
    in the ANSI CL standard.")
 
@@ -1783,7 +1784,7 @@ radix-R.  If you have a power-list then pass it in as PL."
 
 #+double-double
 (defun dd->lisp (a0 a1)
-  "Convert a DD number to a lisp rational"
+  _N"Convert a DD number to a lisp rational"
   (declare (double-float a0 a1))
   (+ (rational a0) (rational a1)))
 
@@ -1804,7 +1805,7 @@ radix-R.  If you have a power-list then pass it in as PL."
 
 #+double-double
 (defun dd->string (x0 x1 stream)
-  "Print out a double-double to a string"
+  _N"Print out a double-double to a string"
   (cond ((and (zerop x0) (zerop x1))
 	 (format stream "0.dd0"))
 	(t
@@ -2049,29 +2050,29 @@ radix-R.  If you have a power-list then pass it in as PL."
 	(value validp)
 	(weak-pointer-value weak-pointer)
       (cond (validp
-	     (write-string "Weak Pointer: " stream)
+	     (write-string _"Weak Pointer: " stream)
 	     (write value :stream stream))
 	    (t
-	     (write-string "Broken Weak Pointer" stream))))))
+	     (write-string _"Broken Weak Pointer" stream))))))
 
 (defun output-code-component (component stream)
   (print-unreadable-object (component stream :identity t)
     (let ((dinfo (%code-debug-info component)))
       (cond ((eq dinfo :bogus-lra)
-	     (write-string "Bogus Code Object" stream))
+	     (write-string _"Bogus Code Object" stream))
 	    (t
-	     (write-string "Code Object" stream)
+	     (write-string _"Code Object" stream)
 	     (when dinfo
 	       (write-char #\space stream)
 	       (output-object (c::debug-info-name dinfo) stream)))))))
 
 (defun output-lra (lra stream)
   (print-unreadable-object (lra stream :identity t)
-    (write-string "Return PC Object" stream)))
+    (write-string _"Return PC Object" stream)))
 
 (defun output-fdefn (fdefn stream)
   (print-unreadable-object (fdefn stream)
-    (write-string "FDEFINITION object for " stream)
+    (write-string _"FDEFINITION object for " stream)
     (output-object (fdefn-name fdefn) stream)))
 
 #+gencgc
@@ -2087,7 +2088,7 @@ radix-R.  If you have a power-list then pass it in as PL."
 ;;; below.
 
 (defun output-function-object (subr stream)
-  (write-string "Function " stream)
+  (write-string _"Function " stream)
   (prin1 (%function-name subr) stream))
 
 
@@ -2101,7 +2102,7 @@ radix-R.  If you have a power-list then pass it in as PL."
       (eval:interpreted-function-lambda-expression subr)
     (declare (ignore ignore))
     (let ((*print-level* 3))
-      (format stream "Interpreted Function ~S" (or name def)))))
+      (format stream _"Interpreted Function ~S" (or name def)))))
 
 (defun output-function (function stream)
   (print-unreadable-object (function stream :identity t)
@@ -2109,18 +2110,18 @@ radix-R.  If you have a power-list then pass it in as PL."
       ((#.vm:function-header-type #.vm:closure-function-header-type)
        (output-function-object function stream))
       (#.vm:byte-code-function-type
-       (write-string "Byte Compiled Function" stream))
+       (write-string _"Byte Compiled Function" stream))
       (#.vm:byte-code-closure-type
-       (write-string "Byte Compiled Closure" stream))
+       (write-string _"Byte Compiled Closure" stream))
       (#.vm:closure-header-type
        (cond
 	((eval:interpreted-function-p function)
 	 (output-interpreted-function function stream))
 	(t
-	 (write-string "Closure Over " stream)
+	 (write-string _"Closure Over " stream)
 	 (output-function-object (%closure-function function) stream))))
       (t
-       (write-string "Unknown Function" stream)))))
+       (write-string _"Unknown Function" stream)))))
 
 
 ;;;; Catch-all for unknown things.
@@ -2133,25 +2134,25 @@ radix-R.  If you have a power-list then pass it in as PL."
 	  (let ((type (get-type object)))
 	    (case type
 	      (#.vm:value-cell-header-type
-	       (write-string "Value Cell " stream)
+	       (write-string _"Value Cell " stream)
 	       (output-object (c:value-cell-ref object) stream))
 	      (t
-	       (write-string "Unknown Pointer Object, type=" stream)
+	       (write-string _"Unknown Pointer Object, type=" stream)
 	       (let ((*print-base* 16) (*print-radix* t))
 		 (output-integer type stream))))))
 	((#.vm:function-pointer-type
 	  #.vm:instance-pointer-type
 	  #.vm:list-pointer-type)
-	 (write-string "Unknown Pointer Object, type=" stream))
+	 (write-string _"Unknown Pointer Object, type=" stream))
 	(t
 	 (case (get-type object)
 	   (#.vm:unbound-marker-type
-	    (write-string "Unbound Marker" stream))
+	    (write-string _"Unbound Marker" stream))
 	   (t
-	    (write-string "Unknown Immediate Object, lowtag=" stream)
+	    (write-string _"Unknown Immediate Object, lowtag=" stream)
 	    (let ((*print-base* 2) (*print-radix* t))
 	      (output-integer lowtag stream))
-	    (write-string ", type=" stream)
+	    (write-string _", type=" stream)
 	    (let ((*print-base* 16) (*print-radix* t))
 	      (output-integer (get-type object) stream)))))))))
 
@@ -2161,7 +2162,7 @@ radix-R.  If you have a power-list then pass it in as PL."
 #+unicode
 (defun reinit-char-attributes ()
   (unless (probe-file +unidata-path+)
-    (cerror "Continue anyway" "Cannot find ~S, so unicode support is not available"
+    (cerror _"Continue anyway" _"Cannot find ~S, so unicode support is not available"
 	    +unidata-path+)
     (return-from reinit-char-attributes nil))
   (flet ((set-bit (char bit)
diff --git a/code/profile.lisp b/code/profile.lisp
index dc1ac2b0852ac71d13bee7a1c1adc54bb20f40a8..dead41c6c5ced6fbebc1a54ca38835e4d9bb2877 100644
--- a/code/profile.lisp
+++ b/code/profile.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.41 2005/05/26 19:09:15 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.42 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -31,6 +31,8 @@
 ;;; CL, this cache is invalidated when a core is saved.
 ;;;
 
+(intl:textdomain "cmucl")
+
 (defpackage "PROFILE"
   (:use :common-lisp :ext :fwrappers)
   (:export *timed-functions* profile profile-all unprofile reset-time 
diff --git a/code/purify.lisp b/code/purify.lisp
index 1bdf54187c433ae80772419a6ffafad875f4d6f5..d584712075ef00cc5e6c17db5b26f49d6185bed3 100644
--- a/code/purify.lisp
+++ b/code/purify.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/purify.lisp,v 1.19 1997/11/04 16:00:16 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/purify.lisp,v 1.20 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;; Rewritten in C by William Lott.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export 'ext::purify "EXT")
 
 (alien:def-alien-routine ("purify" %purify) c-call:void
@@ -44,7 +46,7 @@
 
 
 (defun purify (&key root-structures (environment-name "Auxiliary"))
-  "This function optimizes garbage collection by moving all currently live
+  _N"This function optimizes garbage collection by moving all currently live
    objects into non-collected storage.  ROOT-STRUCTURES is an optional list of
    objects which should be copied first to maximize locality.
 
@@ -61,7 +63,7 @@
   (let ((*gc-notify-before*
 	 #'(lambda (bytes-in-use)
 	     (declare (ignore bytes-in-use))
-	     (write-string "[Doing purification: ")
+	     (write-string _"[Doing purification: ")
 	     (force-output)))
 	(*internal-gc*
 	 #'(lambda ()
@@ -70,7 +72,7 @@
 	(*gc-notify-after*
 	 #'(lambda (&rest ignore)
 	     (declare (ignore ignore))
-	     (write-line "Done.]"))))
+	     (write-line _"Done.]"))))
     #-gencgc (gc t)
     #+gencgc (gc :verbose t))
   nil)
diff --git a/code/query.lisp b/code/query.lisp
index 34951245427bdff73224ad98ca105de5bd5f9d2d..fe06b4d1940d62f76cbc524d96ef26972ec6d35b 100644
--- a/code/query.lisp
+++ b/code/query.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/query.lisp,v 1.5 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/query.lisp,v 1.6 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(y-or-n-p yes-or-no-p))
 
@@ -31,7 +32,7 @@
 ;;; Y-OR-N-P  --  Public.
 ;;;
 (defun y-or-n-p (&optional format-string &rest arguments)
-  "Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*
+  _N"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*
    until the user enters y or Y as an affirmative, or either n or N as a
    negative answer.  It ignores preceding whitespace and asks again if you
    enter any other characters."
@@ -48,7 +49,7 @@
 	  ((#\y #\Y) (return t))
 	  ((#\n #\N) (return nil))
 	  (t
-	   (write-line "Type \"y\" for yes or \"n\" for no. " *query-io*)
+	   (write-line _"Type \"y\" for yes or \"n\" for no. " *query-io*)
 	   (when format-string
 	     (apply #'format *query-io* format-string arguments))
 	   (force-output *query-io*)))))))
@@ -59,7 +60,7 @@
 ;;; uses READ-LINE to get "YES" or "NO".
 ;;;
 (defun yes-or-no-p (&optional format-string &rest arguments)
-  "YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the 
+  _N"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the 
    input buffer, beeps, and uses READ-LINE to get the strings 
    YES or NO."
   (clear-input *query-io*)
@@ -72,6 +73,6 @@
     (cond ((string-equal ans "YES") (return t))
 	  ((string-equal ans "NO") (return nil))
 	  (t
-	   (write-line "Type \"yes\" for yes or \"no\" for no. " *query-io*)
+	   (write-line _"Type \"yes\" for yes or \"no\" for no. " *query-io*)
 	   (when format-string
 	     (apply #'format *query-io* format-string arguments))))))
diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index a2fa532b615b802f9ab1f64edfb608b43d15dfe9..7443444d97d6c76d22a38122afc4ab8522d160d4 100644
--- a/code/rand-mt19937.lisp
+++ b/code/rand-mt19937.lisp
@@ -6,7 +6,7 @@
 ;;; placed in the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.20 2009/01/19 22:38:49 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.21 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,8 @@
 ;;; 1997, to appear.
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(random-state random-state-p random *random-state*
 	  make-random-state))
 
@@ -175,7 +177,7 @@
 
 ;; 
 (defun init-random-state (&optional (seed 5489) state)
-  "Generate an random state vector from the given SEED.  The seed can be
+  _N"Generate an random state vector from the given SEED.  The seed can be
   either an integer or a vector of (unsigned-byte 32)"
   (declare (type (or null integer
 		     (array (unsigned-byte 32) (*)))
@@ -194,7 +196,7 @@
 (defvar *random-state* (make-random-object))
 
 (defun make-random-state (&optional state)
-  "Make a random state object.  If STATE is not supplied, return a copy
+  _N"Make a random state object.  If STATE is not supplied, return a copy
   of the default random state.  If STATE is a random state, then return a
   copy of it.  If STATE is T then return a random state generated from
   the universal time or /dev/urandom if available."
@@ -209,7 +211,7 @@
 	  ((random-state-p state) (copy-random-state state))
 	  ((eq state t)
 	   (make-random-object :state (init-random-state (generate-seed 627))))
-	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
+	  (t (error _"Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
 
 (defun rand-mt19937-initializer ()
   (init-random-state (generate-seed)
@@ -438,7 +440,7 @@
       (declare (fixnum count)))))
 
 (defun random (arg &optional (state *random-state*))
-  "Generate a uniformly distributed pseudo-random number between zero
+  _N"Generate a uniformly distributed pseudo-random number between zero
   and Arg.  State, if supplied, is the random state to use."
   (declare (inline %random-single-float %random-double-float
 		   #+long-float %long-float))
@@ -461,5 +463,5 @@
     (t
      (error 'simple-type-error
 	    :expected-type '(or (integer 1) (float (0.0))) :datum arg
-	    :format-control "Argument is not a positive integer or a positive float: ~S"
+	    :format-control _"Argument is not a positive integer or a positive float: ~S"
 	    :format-arguments (list arg)))))
diff --git a/code/rand.lisp b/code/rand.lisp
index 8237509a660330ead50c6f081e107572e48f51a0..06238065ce550aed70fd8fd9d966988749baaf26 100644
--- a/code/rand.lisp
+++ b/code/rand.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand.lisp,v 1.11 2002/07/10 16:15:59 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand.lisp,v 1.12 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 #-new-random
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 #-new-random
 (export '(random-state random-state-p random *random-state*
 	  make-random-state))
diff --git a/code/reader.lisp b/code/reader.lisp
index c8c6482a66f55e004136f4d784bbd2be95bdef86..a3ab9f45e6983979981f7e194602baff7adadfa4 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.64 2010/02/05 18:14:36 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.65 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '*ignore-extra-close-parentheses*)
 
 (in-package "LISP")
@@ -30,14 +32,14 @@
 
 ;;;Random global variables
 
-(defvar *read-default-float-format* 'single-float "Float format for 1.0E1")
+(defvar *read-default-float-format* 'single-float _N"Float format for 1.0E1")
 (declaim (type (member short-float single-float double-float long-float)
 	       *read-default-float-format*))
 
 (defvar *readtable*)
 (declaim (type readtable *readtable*))
 (setf (documentation '*readtable* 'variable)
-       "Variable bound to current readtable.")
+       _N"Variable bound to current readtable.")
 
 
 ;;;; Reader errors:
@@ -60,7 +62,7 @@
                          (reader-error-format-arguments condition))
                   nil error-stream
                   (file-position error-stream)))
-       (format stream "Reader error ~@[at ~D ~]on ~S:~%~?"
+       (format stream _"Reader error ~@[at ~D ~]on ~S:~%~?"
 	       (file-position error-stream) error-stream
 	       (reader-error-format-control condition)
 	       (reader-error-format-arguments condition))))))
@@ -79,7 +81,7 @@
   ((context :reader reader-eof-error-context :initarg :context))
   (:report
    (lambda (condition stream)
-     (format stream "Unexpected EOF on ~S ~A."
+     (format stream _"Unexpected EOF on ~S ~A."
 	     (stream-error-stream condition)
 	     (reader-eof-error-context condition)))))
 
@@ -91,7 +93,7 @@
 
 
 (defvar std-lisp-readtable ()
-  "Standard lisp readtable. This is for recovery from broken
+  _N"Standard lisp readtable. This is for recovery from broken
    read-tables, and should not normally be user-visible.")
 
 ;; Max size of the attribute table before we switch from an array to a
@@ -112,7 +114,7 @@
 	       (declare (ignore d))
 	       (print-unreadable-object (s stream :identity t)
 		 (prin1 'readtable stream)))))
-  "Readtable is a data structure that maps characters into syntax
+  _N"Readtable is a data structure that maps characters into syntax
    types for the Common Lisp expression reader."
   ;; The CHARACTER-ATTRIBUTE-TABLE is a vector of ATTRIBUTE-TABLE-LIMIT integers for
   ;; describing the character type.  Conceptually, there are 4 distinct
@@ -194,7 +196,7 @@
 ;;;; Package specials.
 
 (defvar *old-package* ()
-  "Value of *package* at the start of the last read or Nil.")
+  _N"Value of *package* at the start of the last read or Nil.")
 
 ;;; In case we get an error trying to parse a symbol, we want to rebind the
 ;;; above stuff so it's cool.
@@ -278,7 +280,7 @@
 
 (defun undefined-macro-char (stream char)
   (unless *read-suppress*
-    (%reader-error stream "Undefined read-macro character ~S" char)))
+    (%reader-error stream _"Undefined read-macro character ~S" char)))
 
 ;;; The character attribute table is a CHAR-CODE-LIMIT vector of integers. 
 
@@ -454,7 +456,7 @@
 ;;;; Readtable operations.
 
 (defun copy-readtable (&optional (from-readtable *readtable*) to-readtable)
-  "A copy is made of from-readtable and place into to-readtable."
+  _N"A copy is made of from-readtable and place into to-readtable."
   (let ((from-readtable (or from-readtable std-lisp-readtable))
 	(to-readtable (or to-readtable (make-readtable))))
     (flet ((copy-hash-table (to from)
@@ -484,7 +486,7 @@
 (defun set-syntax-from-char (to-char from-char &optional
 				     (to-readtable *readtable*)
 				     (from-readtable ()))
-  "Causes the syntax of to-char to be the same as from-char in the 
+  _N"Causes the syntax of to-char to be the same as from-char in the 
   optional readtable (defaults to the current readtable).  The
   from-table defaults the standard lisp readtable by being nil."
   (let ((from-readtable (or from-readtable std-lisp-readtable)))
@@ -525,7 +527,7 @@
 
 (defun set-macro-character (char function &optional
 				 (non-terminatingp nil) (rt *readtable*))
-  "Causes char to be a macro character which invokes function when
+  _N"Causes char to be a macro character which invokes function when
    seen by the reader.  The non-terminatingp flag can be used to
    make the macro character non-terminating.  The optional readtable
    argument defaults to the current readtable.  Set-macro-character
@@ -537,7 +539,7 @@
   T)
 
 (defun get-macro-character (char &optional (rt *readtable*))
-  "Returns the function associated with the specified char which is a macro
+  _N"Returns the function associated with the specified char which is a macro
   character.  The optional readtable argument defaults to the current
   readtable."
   (let ((rt (or rt std-lisp-readtable)))
@@ -673,7 +675,7 @@
 ;;; current read-buffer.  
 
 (defmacro with-read-buffer (() &body body)
-  "Bind *read-buffer* to a fresh buffer and execute Body."
+  _N"Bind *read-buffer* to a fresh buffer and execute Body."
   `(let* ((*read-buffer* (allocate-read-buffer))
 	  (*read-buffer-length* (length *read-buffer*))
 	  (*ouch-ptr* 0)
@@ -738,7 +740,7 @@
 ;;;; READ-PRESERVING-WHITESPACE, READ-DELIMITED-LIST, and READ.
 
 (defvar *ignore-extra-close-parentheses* t
-  "If true, only warn when there is an extra close paren, otherwise error.")
+  _N"If true, only warn when there is an extra close paren, otherwise error.")
 
 (declaim (special *standard-input*))
 
@@ -781,7 +783,7 @@
 (defun read-preserving-whitespace (&optional (stream *standard-input*)
 				   (eof-errorp t) (eof-value nil)
 				   (recursivep nil))
-  "Reads from stream and returns the object read, preserving the whitespace
+  _N"Reads from stream and returns the object read, preserving the whitespace
    that followed the object."
   (with-read-buffer ()
     (read-preserving-whitespace-internal stream eof-errorp eof-value recursivep)))
@@ -822,7 +824,7 @@
 
 (defun read (&optional (stream *standard-input*) (eof-errorp t)
 		       (eof-value ()) (recursivep ()))
-  "Reads in the next object in the stream, which defaults to
+  _N"Reads in the next object in the stream, which defaults to
    *standard-input*. For details see the I/O chapter of
    the manual."
   (with-read-buffer ()
@@ -841,7 +843,7 @@
 (defun read-delimited-list (endchar &optional
 				    (input-stream *standard-input*)
 				    recursive-p)
-  "Reads objects from input-stream until the next character after an
+  _N"Reads objects from input-stream until the next character after an
    object's representation is endchar.  A list of those objects read
    is returned."
   (declare (ignore recursive-p))
@@ -891,7 +893,7 @@
 		     (cond ((eq listtail thelist)
 			    (if *read-suppress*
 				(return-from read-list nil)
-				(%reader-error stream "Nothing appears before . in list.")))
+				(%reader-error stream _"Nothing appears before . in list.")))
 			   ((whitespacep nextchar)
 			    (setq nextchar (flush-whitespace stream))))
 		     (rplacd listtail
@@ -912,7 +914,7 @@
   (let ((lastobj ()))
     (do ((char firstchar (flush-whitespace stream)))
 	((char= char #\) )
-	 (%reader-error stream "Nothing appears after . in list."))
+	 (%reader-error stream _"Nothing appears after . in list."))
       ;;see if there's something there.
       (setq lastobj (read-maybe-nothing stream char))
       (when lastobj (return t)))
@@ -923,7 +925,7 @@
 	((char= lastchar #\) ) lastobj)	;success!
       ;;try reading virtual whitespace
       (if (read-maybe-nothing stream lastchar)
-	  (%reader-error stream "More than one object follows . in list.")))))
+	  (%reader-error stream _"More than one object follows . in list.")))))
 
 (defun read-string (stream closech)
   ;;this accumulates chars until it sees same char that invoked it.
@@ -959,12 +961,12 @@
 (defun read-right-paren (stream ignore)
   (declare (ignore ignore))
     (cond (*ignore-extra-close-parentheses*
-	   (warn "Ignoring unmatched close parenthesis~
+	   (warn _"Ignoring unmatched close parenthesis~
 		  ~@[ at file position ~D~]."
 		 (file-position stream))
 	   (values))
 	  (t
-	   (%reader-error stream "Unmatched close parenthesis."))))
+	   (%reader-error stream _"Unmatched close parenthesis."))))
 
 ;;; INTERNAL-READ-EXTENDED-TOKEN  --  Internal
 ;;;
@@ -995,7 +997,7 @@
 	     (push *ouch-ptr* escapes)
 	     (let ((nextchar (read-char stream nil eof-object)))
 	       (if (eofp nextchar)
-		   (reader-eof-error stream "after escape character")
+		   (reader-eof-error stream _"after escape character")
 		   (ouch-read-buffer nextchar))))
 	    ((multiple-escape-p char)
 	     ;; Read to next multiple-escape, escaping single chars along the
@@ -1004,12 +1006,12 @@
 	      (let ((ch (read-char stream nil eof-object)))
 		(cond
 		  ((eofp ch)
-		   (reader-eof-error stream "inside extended token"))
+		   (reader-eof-error stream _"inside extended token"))
 		  ((multiple-escape-p ch) (return))
 		  ((escapep ch)
 		   (let ((nextchar (read-char stream nil eof-object)))
 		     (cond ((eofp nextchar)
-			    (reader-eof-error stream "after escape character"))
+			    (reader-eof-error stream _"after escape character"))
 			   (t
 			    (push *ouch-ptr* escapes)
 			    (ouch-read-buffer nextchar)))))
@@ -1040,7 +1042,7 @@
 	   (t
 	    (setf att (get-secondary-attribute ,char))
 	    (cond ((= att #.constituent-invalid)
-		   (%reader-error stream "invalid constituent"))
+		   (%reader-error stream _"invalid constituent"))
 		  (t
 		   att))))))
 
@@ -1062,7 +1064,7 @@
 		  ((= att constituent-digit)
 		   constituent)
 		  ((= att constituent-invalid)
-		   (%reader-error stream "invalid constituent"))
+		   (%reader-error stream _"invalid constituent"))
 		  (t
 		   att))))))
 
@@ -1094,7 +1096,7 @@
 			   constituent-digit)
 		       constituent-decimal-digit))
 		  ((= att constituent-invalid)
-		   (%reader-error stream "invalid constituent"))
+		   (%reader-error stream _"invalid constituent"))
 		  (t
 		   att))))))
 
@@ -1103,10 +1105,10 @@
 ;;;; Token fetching.
 
 (defvar *read-suppress* nil 
-  "Suppresses most interpreting of the reader when T")
+  _N"Suppresses most interpreting of the reader when T")
 
 (defvar *read-base* 10
-  "The radix that Lisp reads numbers in.")
+  _N"The radix that Lisp reads numbers in.")
 (declaim (type (integer 2 36) *read-base*))
 
 ;;; CASIFY-READ-BUFFER  --  Internal
@@ -1156,7 +1158,7 @@
 		     (all-upper (lower-em))))))))))))
   
 (defun read-token (stream firstchar)
-  "This function is just an fsm that recognizes numbers and symbols."
+  _N"This function is just an fsm that recognizes numbers and symbols."
   ;; Check explicitly whether FIRSTCHAR has an entry for
   ;; NON-TERMINATING in CHARACTER-ATTRIBUTE-TABLE and
   ;; READ-DOT-NUMBER-SYMBOL in CMT. Report an error if these are
@@ -1188,7 +1190,7 @@
 	(#.escape (go ESCAPE))
 	(#.package-delimiter (go COLON))
 	(#.multiple-escape (go MULT-ESCAPE))
-	(#.constituent-invalid (%reader-error stream "invalid constituent"))
+	(#.constituent-invalid (%reader-error stream _"invalid constituent"))
 	;; can't have eof, whitespace, or terminating macro as first char!
 	(t (go SYMBOL)))
      SIGN ; saw "sign"
@@ -1245,7 +1247,7 @@
       (unless char (return (make-integer)))
       (case (char-class3 char *readtable*)
 	(#.constituent-digit (go LEFTDIGIT))
-	(#.constituent-decimal-digit (error "impossible!"))
+	(#.constituent-decimal-digit (error _"impossible!"))
 	(#.constituent-dot (go SYMBOL))
 	(#.constituent-digit-or-expt (go LEFTDIGIT))
 	(#.constituent-expt (go SYMBOL))
@@ -1319,11 +1321,11 @@
      FRONTDOT ; saw "dot"
       (ouch-read-buffer char)
       (setq char (read-char stream nil nil))
-      (unless char (%reader-error stream "dot context error"))
+      (unless char (%reader-error stream _"dot context error"))
       (case (char-class char *readtable*)
 	(#.constituent-digit (go RIGHTDIGIT))
 	(#.constituent-dot (go DOTS))
-	(#.delimiter  (%reader-error stream "dot context error"))
+	(#.delimiter  (%reader-error stream _"dot context error"))
 	(#.escape (go ESCAPE))
 	(#.multiple-escape (go MULT-ESCAPE))
 	(#.package-delimiter (go COLON))
@@ -1392,12 +1394,12 @@
      DOTS ; saw "dot {dot}+"
       (ouch-read-buffer char)
       (setq char (read-char stream nil nil))
-      (unless char (%reader-error stream "too many dots"))
+      (unless char (%reader-error stream _"too many dots"))
       (case (char-class char *readtable*)
 	(#.constituent-dot (go DOTS))
 	(#.delimiter
 	 (unread-char char stream)
-	 (%reader-error stream "too many dots"))
+	 (%reader-error stream _"too many dots"))
 	(#.escape (go ESCAPE))
 	(#.multiple-escape (go MULT-ESCAPE))
 	(#.package-delimiter (go COLON))
@@ -1454,7 +1456,7 @@
       ;; READ-NEXT CHAR, put in buffer (no case conversion).
       (let ((nextchar (read-char stream nil nil)))
 	(unless nextchar
-	  (reader-eof-error stream "after escape character"))
+	  (reader-eof-error stream _"after escape character"))
 	(push *ouch-ptr* escapes)
 	(ouch-read-buffer nextchar))
       (setq char (read-char stream nil nil))
@@ -1483,7 +1485,7 @@
       COLON
       (casify-read-buffer escapes)
       (unless (zerop colons)
-	(%reader-error stream "too many colons in ~S"
+	(%reader-error stream _"too many colons in ~S"
 		      (read-buffer-to-string)))
       (setq colons 1)
       (setq package-designator
@@ -1500,7 +1502,7 @@
       (reset-read-buffer)
       (setq escapes ())
       (setq char (read-char stream nil nil))
-      (unless char (reader-eof-error stream "after reading a colon"))
+      (unless char (reader-eof-error stream _"after reading a colon"))
       (case (char-class char *readtable*)
 	(#.delimiter
 	 (unread-char char stream)
@@ -1515,7 +1517,7 @@
       (setq colons 2)
       (setq char (read-char stream nil nil))
       (unless char
-	(reader-eof-error stream "after reading a colon"))
+	(reader-eof-error stream _"after reading a colon"))
       (case (char-class char *readtable*)
 	(#.delimiter
 	 (unread-char char stream)
@@ -1537,7 +1539,7 @@
 	(unless found
 	  (error 'reader-package-error :stream stream
 		 :format-arguments (list package-designator)
-		 :format-control "package ~S not found"))
+		 :format-control _"package ~S not found"))
 
 	(if (or (zerop colons) (= colons 2) (eq found *keyword-package*))
 	    (return (intern* *read-buffer* *ouch-ptr* found))
@@ -1545,18 +1547,18 @@
 		(find-symbol* *read-buffer* *ouch-ptr* found)
 	      (when (eq test :external) (return symbol))
 	      (let ((name (read-buffer-to-string)))
-		(with-simple-restart (continue "Use symbol anyway.")
+		(with-simple-restart (continue _"Use symbol anyway.")
 		  (error 'reader-package-error :stream stream
 			 :format-arguments (list name (package-name found))
 			 :format-control
 			 (if test
-			     "The symbol ~S is not external in the ~A package."
-			     "Symbol ~S not found in the ~A package.")))
+			     _"The symbol ~S is not external in the ~A package."
+			     _"Symbol ~S not found in the ~A package.")))
 		(return (intern name found)))))))))
 
 
 (defun read-extended-token (stream &optional (*readtable* *readtable*))
-  "For semi-external use: returns 3 values: the string for the token,
+  _N"For semi-external use: returns 3 values: the string for the token,
    a flag for whether there was an escape char, and the position of any
    package delimiter."
   (let ((firstch (read-char stream nil nil t)))
@@ -1569,7 +1571,7 @@
 	   (values "" nil nil)))))
 
 (defun read-extended-token-escaped (stream &optional (*readtable* *readtable*))
-  "For semi-external use: read an extended token with the first character
+  _N"For semi-external use: read an extended token with the first character
   escaped.  Returns the string for the token."
   (let ((firstch (read-char stream nil nil)))
     (cond (firstch
@@ -1577,7 +1579,7 @@
 	     (casify-read-buffer escapes)
 	     (read-buffer-to-string)))
 	  (t
-	   (reader-eof-error stream "after escape")))))
+	   (reader-eof-error stream _"after escape")))))
 
 
 
@@ -1592,7 +1594,7 @@
 (defvar *integer-reader-safe-digits*
   '#(NIL NIL
      26 17 13 11 10 9 8 8 8 7 7 7 7 6 6 6 6 6 6 6 6 5 5 5 5 5 5 5 5 5 5 5 5 5 5)
-  "Holds the mapping of base to 'safe' number of digits to read for a fixnum.")
+  _N"Holds the mapping of base to 'safe' number of digits to read for a fixnum.")
 
 (defvar *integer-reader-base-power* 
   '#(NIL NIL
@@ -1601,7 +1603,7 @@
      16777216 24137569 34012224 47045881 64000000 85766121 113379904 6436343
      7962624 9765625 11881376 14348907 17210368 20511149 24300000 28629151
      33554432 39135393 45435424 52521875 60466176)
-  "Holds the largest fixnum power of the base for make-integer.")
+  _N"Holds the largest fixnum power of the base for make-integer.")
 
 (declaim (simple-vector *integer-reader-safe-digits*
 			*integer-reader-base-power*))
@@ -1622,7 +1624,7 @@
 |#
 
 (defun make-integer ()
-  "Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, 
+  _N"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, 
   then multiplying by a power of the base and adding."
   (read-unwind-read-buffer)
   ;; Use the fast reader if the number has enough digits.  It seems
@@ -1659,7 +1661,7 @@
 	     (setq number (+ num (* number base-power))))))))
 
 (defun fast-read-integer (r)
-  "Fast bignum-reading interface.  Reads from stream S an integer in radix
+  _N"Fast bignum-reading interface.  Reads from stream S an integer in radix
 R.  If we find some kind of error (bad characters, EOF), then NIL is
 returned; otherwise the number.  Reads at least one digit, but may not get to
 the end of the stream."
@@ -1787,7 +1789,7 @@ the end of the stream."
 	     (return-from make-float (if negative-fraction
                                              (- num)
                                              num))))
-	  (t (error "Internal error in floating point reader.")))))
+	  (t (error _"Internal error in floating point reader.")))))
 
 (defun make-float-aux (number divisor float-format stream)
   (handler-case
@@ -1799,10 +1801,10 @@ the end of the stream."
 	    ;; But we really want to indicate that we can't read it.
 	    ;; So if we converted the number to zero, but the number
 	    ;; wasn't actually zero, throw an error.
-	    (error "Underflow"))
+	    (error _"Underflow"))
 	  result))
     (error ()
-	   (%reader-error stream "Floating-point number not representable"))))
+	   (%reader-error stream _"Floating-point number not representable"))))
 
 
 (defun make-ratio (stream)
@@ -1829,7 +1831,7 @@ the end of the stream."
 	 ((or (eofp ch) (not (setq dig (digit-char-p ch *read-base*)))))
 	 (setq denominator (+ (* denominator *read-base*) dig)))
     (when (zerop denominator)
-      (%reader-error stream "Invalid ratio: ~S/~S"
+      (%reader-error stream _"Invalid ratio: ~S/~S"
 		     (if negative-number (- numerator) numerator)
 		     denominator))
     (let ((num (/ numerator denominator)))
@@ -1843,12 +1845,12 @@ the end of the stream."
   (declare (ignore ignore))
   (if *read-suppress*
       (values)
-      (%reader-error stream "No dispatch function defined for ~S." sub-char)))
+      (%reader-error stream _"No dispatch function defined for ~S." sub-char)))
 
 (defun make-dispatch-macro-character (char &optional
 					   (non-terminating-p nil)
 					   (rt *readtable*))
-  "Causes char to become a dispatching macro character in readtable
+  _N"Causes char to become a dispatching macro character in readtable
    (which defaults to the current readtable).  If the non-terminating-p
    flag is set to T, the char will be non-terminating.  Make-dispatch-
    macro-character returns T."
@@ -1860,23 +1862,23 @@ the end of the stream."
 
 (defun set-dispatch-macro-character
        (disp-char sub-char function &optional (rt *readtable*))
-  "Causes function to be called whenever the reader reads
+  _N"Causes function to be called whenever the reader reads
    disp-char followed by sub-char. Set-dispatch-macro-character
    returns T."
   ;;get the dispatch char for macro (error if not there), diddle
   ;;entry for sub-char.
   (when (digit-char-p sub-char)
-    (simple-program-error "Dispatch Sub-Char must not be a decimal digit: ~S" sub-char))
+    (simple-program-error _"Dispatch Sub-Char must not be a decimal digit: ~S" sub-char))
   (let* ((sub-char (char-upcase sub-char))
 	 (dpair (find disp-char (dispatch-tables rt)
 		      :test #'char= :key #'car)))
     (if dpair
 	(set-dispatch-char sub-char function (cdr dpair))
-	(simple-program-error "~S is not a dispatch character." disp-char))))
+	(simple-program-error _"~S is not a dispatch character." disp-char))))
 
 (defun get-dispatch-macro-character
        (disp-char sub-char &optional (rt *readtable*))
-  "Returns the macro character function for sub-char under disp-char
+  _N"Returns the macro character function for sub-char under disp-char
    or nil if there is no associated function."
   (unless (digit-char-p sub-char)
     (let* ((sub-char (char-upcase sub-char))
@@ -1885,7 +1887,7 @@ the end of the stream."
 			:test #'char= :key #'car)))
       (if dpair
 	  (get-dispatch-char sub-char (cdr dpair))
-	  (simple-program-error "~S is not a dispatch character." disp-char)))))
+	  (simple-program-error _"~S is not a dispatch character." disp-char)))))
 
 (defun read-dispatch-char (stream char)
   ;;read some digits
@@ -1899,7 +1901,7 @@ the end of the stream."
 	      (not (setq dig (digit-char-p ch))))
 	  ;;take care of the extra char.
 	  (if (eofp ch)
-	      (reader-eof-error stream "inside dispatch character")
+	      (reader-eof-error stream _"inside dispatch character")
 	      (setq sub-char (char-upcase ch))))
       (setq numargp t)
       (setq numarg (+ (* numarg 10) dig)))
@@ -1909,19 +1911,19 @@ the end of the stream."
       (if dpair
 	  (funcall (the function (get-dispatch-char sub-char (cdr dpair)))
 		   stream sub-char (if numargp numarg nil))
-	  (%reader-error stream "No dispatch table for dispatch char.")))))
+	  (%reader-error stream _"No dispatch table for dispatch char.")))))
 
 
 
 ;;;; READ-FROM-STRING.
 
 (defvar read-from-string-spares ()
-  "A resource of string streams for Read-From-String.")
+  _N"A resource of string streams for Read-From-String.")
 
 (defun read-from-string (string &optional (eof-error-p t) eof-value
 				&key (start 0) end
 				preserve-whitespace)
-  "The characters of string are successively given to the lisp reader
+  _N"The characters of string are successively given to the lisp reader
    and the lisp object built by the reader is returned.  Macro chars
    will take effect."
   (declare (string string))
@@ -1946,7 +1948,7 @@ the end of the stream."
 ;;;; PARSE-INTEGER.
 
 (defun parse-integer (string &key (start 0) end (radix 10) junk-allowed)
-  "Examine the substring of string delimited by start and end
+  _N"Examine the substring of string delimited by start and end
   (default to the beginning and end of the string)  It skips over
   whitespace characters and then tries to parse an integer.  The
   radix parameter must be between 2 and 36."
@@ -1986,11 +1988,11 @@ the end of the stream."
 		   (if junk-allowed
 		       (values nil real-index)
 		       (error 'simple-parse-error
-			      :format-control "There are no digits in this string: ~S"
+			      :format-control _"There are no digits in this string: ~S"
 			      :format-arguments (list string))))
 		  ((and (< index end) (not junk-allowed))
 		   (error 'simple-parse-error
-			  :format-control "There's junk in this string: ~S."
+			  :format-control _"There's junk in this string: ~S."
 			  :format-arguments (list string)))
 		  (t
 		   (values (* sign result) real-index)))))))))
diff --git a/code/remote.lisp b/code/remote.lisp
index 9a3e864e8343cfdaa75700ff91265ae09109fe8a..cbbb83568b6ecb8f6fa49a539a0b953271d2b05a 100644
--- a/code/remote.lisp
+++ b/code/remote.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/remote.lisp,v 1.9 2003/07/20 13:49:43 emarsden Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/remote.lisp,v 1.10 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "WIRE")
+(intl:textdomain "cmucl")
 
 (export '(remote remote-value remote-value-bind create-request-server
 	  destroy-request-server connect-to-remote-server))
@@ -27,7 +28,7 @@
   finished)
 
 (defvar *pending-returns* nil
-  "AList of wire . remote-wait structs")
+  _N"AList of wire . remote-wait structs")
 
 
 ;;; MAYBE-NUKE-REMOTE-WAIT -- internal
@@ -51,7 +52,7 @@
 ;;; environment of the macro call. No values are returned.
 ;;;
 (defmacro remote (wire-form &body forms)
-  "Evaluates the given forms remotly. No values are returned, as the remote
+  _N"Evaluates the given forms remotly. No values are returned, as the remote
 evaluation is asyncronus."
   (let ((wire (gensym)))
     `(let ((,wire ,wire-form))
@@ -71,7 +72,7 @@ evaluation is asyncronus."
 ;;; return, cause we can kind of guess at what the currect results would be.
 ;;;
 (defmacro remote-value-bind (wire-form vars form &rest body)
-  "Bind VARS to the multiple values of FORM (which is executed remotely). The
+  _N"Bind VARS to the multiple values of FORM (which is executed remotely). The
 forms in BODY are only executed if the remote function returned (as apposed
 to aborting due to a throw)."
   (cond
@@ -141,8 +142,8 @@ to aborting due to a throw)."
 ;;;
 (defmacro remote-value (wire-form form &optional
 				  (on-server-unwind
-				   `(error "Remote server unwound")))
-  "Execute the single form remotly. The value of the form is returned.
+				   `(error _"Remote server unwound")))
+  _N"Execute the single form remotly. The value of the form is returned.
   The optional form on-server-unwind is only evaluated if the server unwinds
   instead of returning."
   (let ((remote (gensym))
@@ -322,7 +323,7 @@ to aborting due to a throw)."
 ;;; it, call NEW-CONNECTION to do the connecting.
 ;;;
 (defun create-request-server (port &optional on-connect &key reuse-address)
-  "Create a request server on the given port.  Whenever anyone connects to it,
+  _N"Create a request server on the given port.  Whenever anyone connects to it,
    call the given function with the newly created wire and the address of the
    connector.  If the function returns NIL, the connection is destroyed;
    otherwise, it is accepted.  This returns a manifestation of the server that
@@ -344,7 +345,7 @@ to aborting due to a throw)."
 ;;; closes the socket behind it.
 ;;;
 (defun destroy-request-server (server)
-  "Quit accepting connections to the given request server."
+  _N"Quit accepting connections to the given request server."
   (system:remove-fd-handler (request-server-handler server))
   (ext:close-socket (request-server-socket server))
   nil)
@@ -355,7 +356,7 @@ to aborting due to a throw)."
 ;;; installed to handle return values, etc.
 ;;; 
 (defun connect-to-remote-server (hostname port &optional on-death)
-  "Connect to a remote request server addressed with the given host and port
+  _N"Connect to a remote request server addressed with the given host and port
    pair.  This returns the created wire."
   (let* ((socket (ext:connect-to-inet-socket hostname port))
 	 (wire (make-wire socket)))
diff --git a/code/room.lisp b/code/room.lisp
index 2442fbaf2afd9334204b96bd8b988a3b6931c615..24f0840db0b84315616285cbacd6d2fe04d738c6 100644
--- a/code/room.lisp
+++ b/code/room.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.37 2009/08/19 16:51:36 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.38 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,8 @@
 ;;; 
 (in-package "VM")
 (use-package "SYSTEM")
+(intl:textdomain "cmucl")
+
 (export '(memory-usage count-no-ops descriptor-vs-non-descriptor-storage
 		       instance-usage find-holes print-allocated-objects
 		       code-breakdown uninterned-symbol-count
@@ -489,7 +491,7 @@
 		     (summary-totals (cons sum v))))
 	       summary)
       
-      (format t "~2&Summary of spaces: ~(~{~A ~}~)~%" spaces)
+      (format t _"~2&Summary of spaces: ~(~{~A ~}~)~%" spaces)
       (let ((summary-total-bytes 0)
 	    (summary-total-objects 0))
 	(declare (type memory-size summary-total-bytes summary-total-objects))
@@ -507,7 +509,9 @@
 		  (incf total-bytes (first total))
 		  (incf total-objects (second total))
 		  (spaces (cons (car space-total) (first total)))))
-	      (format t "~%~A:~%    ~:D bytes, ~:D object~:P"
+	      (format t (intl:ngettext "~%~A:~%    ~:D bytes, ~:D object"
+				       "~%~A:~%    ~:D bytes, ~:D objects"
+				       total-objects)
 		      name total-bytes total-objects)
 	      (dolist (space (spaces))
 		(format t ", ~D% ~(~A~)"
@@ -516,7 +520,7 @@
 	      (format t ".~%")
 	      (incf summary-total-bytes total-bytes)
 	      (incf summary-total-objects total-objects))))
-	(format t "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+	(format t _"~%Summary total:~%    ~:D bytes, ~:D objects.~%"
 		summary-total-bytes summary-total-objects)))))
 
 
@@ -526,7 +530,7 @@
 ;;;
 (defun report-space-total (space-total cutoff)
   (declare (list space-total) (type (or single-float null) cutoff))
-  (format t "~2&Breakdown for ~(~A~) space:~%" (car space-total))
+  (format t _"~2&Breakdown for ~(~A~) space:~%" (car space-total))
   (let* ((types (cdr space-total))
 	 (total-bytes (reduce #'+ (mapcar #'first types)))
 	 (total-objects (reduce #'+ (mapcar #'second types)))
@@ -539,15 +543,21 @@
 	     (type memory-size total-bytes reported-bytes))
     (loop for (bytes objects name) in types do
       (when (<= bytes cutoff-point)
-	(format t "  ~13:D bytes for ~9:D other object~2:*~P.~%"
+	(format t (intl:ngettext "  ~13:D bytes for ~9:D other object.~%"
+				 "  ~13:D bytes for ~9:D other objects.~%"
+				 (- total-objects reported-objects))
 		(- total-bytes reported-bytes)
 		(- total-objects reported-objects))
 	(return))
       (incf reported-bytes bytes)
       (incf reported-objects objects)
-      (format t "  ~13:D bytes for ~9:D ~(~A~) object~2:*~P.~%"
+      (format t (intl:ngettext "  ~13:D bytes for ~9:D ~(~A~) object.~%"
+			       "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
+			       objects)
 	      bytes objects name))
-    (format t "  ~13:D bytes for ~9:D ~(~A~) object~2:*~P (space total.)~%"
+    (format t (intl:ngettext "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
+			     "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
+			     total-objects)
 	    total-bytes total-objects (car space-total))))
 
 
@@ -555,7 +565,7 @@
 ;;;
 (defun memory-usage (&key print-spaces (count-spaces '(:dynamic))
 			  (print-summary t) cutoff)
-  "Print out information about the heap memory in use.  :Print-Spaces is a list
+  _N"Print out information about the heap memory in use.  :Print-Spaces is a list
   of the spaces to print detailed information for.  :Count-Spaces is a list of
   the spaces to scan.  For either one, T means all spaces (:Static, :Dyanmic
   and :Read-Only.)  If :Print-Summary is true, then summary information will be
@@ -583,7 +593,7 @@
 ;;; COUNT-NO-OPS  --  Public
 ;;;
 (defun count-no-ops (space)
-  "Print info about how much code and no-ops there are in Space."
+  _N"Print info about how much code and no-ops there are in Space."
   (declare (type spaces space))
   (let ((code-words 0)
 	(no-ops 0)
@@ -605,7 +615,7 @@
      space)
     
     (format t
-	    "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+	    _"~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
 	    total-bytes code-words no-ops
 	    (round (* no-ops 100) code-words)))
   
@@ -684,11 +694,11 @@
 	       #.scavenger-hook-type)
 	      (incf descriptor-words (truncate size word-bytes)))
 	     (t
-	      (error "Bogus type: ~D" type))))
+	      (error _"Bogus type: ~D" type))))
        space))
-    (format t "~:D words allocated for descriptor objects.~%"
+    (format t _"~:D words allocated for descriptor objects.~%"
 	    descriptor-words)
-    (format t "~:D bytes data/~:D words header for non-descriptor objects.~%"
+    (format t _"~:D bytes data/~:D words header for non-descriptor objects.~%"
 	    non-descriptor-bytes non-descriptor-headers)
     (values)))
 
@@ -697,10 +707,10 @@
 ;;;
 (defun instance-usage (space &key (top-n 15))
   (declare (type spaces space) (type (or fixnum null) top-n))
-  "Print a breakdown by instance type of all the instances allocated in
+  _N"Print a breakdown by instance type of all the instances allocated in
   Space.  If TOP-N is true, print only information for the the TOP-N types with
   largest usage."
-  (format t "~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)
+  (format t _"~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)
   (let ((totals (make-hash-table :test #'eq))
 	(total-objects 0)
 	(total-bytes 0))
@@ -738,16 +748,23 @@
 		(objects (cadr what)))
 	    (incf printed-bytes bytes)
 	    (incf printed-objects objects)
-	    (format t "  ~32A: ~7:D bytes, ~5D object~:P.~%" (car what)
+	    (format t (intl:ngettext "  ~32A: ~7:D bytes, ~5D object.~%"
+				     "  ~32A: ~7:D bytes, ~5D objects.~%"
+				     objects)
+		    (car what)
 		    bytes objects)))
 
 	(let ((residual-objects (- total-objects printed-objects))
 	      (residual-bytes (- total-bytes printed-bytes)))
 	  (unless (zerop residual-objects)
-	    (format t "  Other types: ~:D bytes, ~D: object~:P.~%"
+	    (format t (intl:ngettext "  Other types: ~:D bytes, ~D: object~:P.~%"
+				     "  Other types: ~:D bytes, ~D: object~:P.~%"
+				     residual-objects)
 		    residual-bytes residual-objects))))
 
-      (format t "  ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"
+      (format t (intl:ngettext "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
+			       "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
+			       total-objects)
 	      space total-bytes total-objects)))
 
   (values))
@@ -757,7 +774,7 @@
 ;;; 
 (defun find-holes (&rest spaces)
   (dolist (space (or spaces '(:read-only :static :dynamic)))
-    (format t "In ~A space:~%" space)
+    (format t _"In ~A space:~%" space)
     (let ((start-addr nil)
 	  (total-bytes 0))
       (declare (type (or null (unsigned-byte 32)) start-addr)
@@ -774,11 +791,11 @@
 		   (setf start-addr (di::get-lisp-obj-address object)
 			 total-bytes bytes))
 	       (when start-addr
-		 (format t "~D bytes at #x~X~%" total-bytes start-addr)
+		 (format t _"~D bytes at #x~X~%" total-bytes start-addr)
 		 (setf start-addr nil))))
        space)
       (when start-addr
-	(format t "~D bytes at #x~X~%" total-bytes start-addr))))
+	(format t _"~D bytes at #x~X~%" total-bytes start-addr))))
   (values))
 
 
@@ -971,7 +988,7 @@
 				      (c::debug-source-name source)
 				      "FROM LISP")))
 			       (t
-				(warn "No source for ~S" obj)
+				(warn _"No source for ~S" obj)
 				"NO SOURCE")))
 		       "UNKNOWN"))
 		  (file-info (or (gethash file pkg-info)
@@ -996,12 +1013,16 @@
 	    
       (loop for (pkg (pkg-count . pkg-size) . files) in
 	    (sort res #'> :key #'(lambda (x) (cdr (second x)))) do
-	(format t "~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"
+	(format t (intl:ngettext "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
+				 "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
+				 pkg-count)
 		pkg pkg-size pkg-count)
 	(when (eq how :file)
 	  (loop for (file (file-count . file-size)) in
 	        (sort files #'> :key #'(lambda (x) (cdr (second x)))) do
-	    (format t "~30@A: ~9:D bytes, ~9:D object~:P.~%"
+	    (format t (intl:ngettext "~30@A: ~9:D bytes, ~9:D object.~%"
+				     "~30@A: ~9:D bytes, ~9:D objects.~%"
+				     file-count)
 		    (file-namestring file) file-size file-count))))))
 
   (values))
@@ -1044,7 +1065,7 @@
 #+nil
 (defun report-histogram (table &key (low 1) (high 20) (bucket-size 1)
 			       (function #'identity))
-  "Given a hashtable, print a histogram of the contents.  Function should give
+  _N"Given a hashtable, print a histogram of the contents.  Function should give
   the value to plot when applied to the hashtable values."
   (let ((function (if (eval:interpreted-function-p function)
 		      (compile nil function)
@@ -1054,7 +1075,7 @@
 	(hist:hist-record (funcall function count))))))
 
 (defun report-top-n (table &key (top-n 20) (function #'identity))
-  "Report the Top-N entries in the hashtable Table, when sorted by Function
+  _N"Report the Top-N entries in the hashtable Table, when sorted by Function
   applied to the hash value.  If Top-N is NIL, report all entries."
   (let ((function (if (eval:interpreted-function-p function)
 		      (compile nil function)
@@ -1078,9 +1099,9 @@
 
 	(let ((residual (- (total-val) printed)))
 	  (unless (zerop residual)
-	    (format t "~8:D: Other~%" residual))))
+	    (format t _"~8:D: Other~%" residual))))
 
-      (format t "~8:D: Total~%" (total-val))))
+      (format t _"~8:D: Total~%" (total-val))))
   (values))
 
 
@@ -1105,7 +1126,7 @@
 	
 
 (defun find-caller-counts (space)
-  "Return a hashtable mapping each function in for which a call appears in
+  _N"Return a hashtable mapping each function in for which a call appears in
   Space to the number of times such a call appears."
   (let ((counts (make-hash-table :test #'eq)))
     (map-allocated-objects
@@ -1120,7 +1141,7 @@
     counts))
 
 (defun find-high-callers (space &key (above 10) table (threshold 2))
-  "Return a hashtable translating code objects to function constant counts for
+  _N"Return a hashtable translating code objects to function constant counts for
   all code objects in Space with more than Above function constants."
   (let ((counts (make-hash-table :test #'eq)))
     (map-allocated-objects
diff --git a/code/rt-machdef.lisp b/code/rt-machdef.lisp
index 24999fa3fde8b283ad71d68bda7e40cb61e4e372..3b166e6a9b9ddb1a70cdc2340c5fc30116996377 100644
--- a/code/rt-machdef.lisp
+++ b/code/rt-machdef.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rt-machdef.lisp,v 1.4 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rt-machdef.lisp,v 1.5 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Record definitions needed for the interface to Mach.
 ;;;
 (in-package "MACH")
+(intl:textdomain "cmucl")
 
 (export '(sigcontext-onstack sigcontext-mask sigcontext-sp sigcontext-fp
 	  sigcontext-ap sigcontext-iar sigcontext-icscs sigcontext-saveiar
diff --git a/code/rt-vm.lisp b/code/rt-vm.lisp
index e931980bf1093d20c0fd12b186963070f9424b22..cd6b7952b64612f81fd0c6cf84c99846c9f1cc73 100644
--- a/code/rt-vm.lisp
+++ b/code/rt-vm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rt-vm.lisp,v 1.7 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rt-vm.lisp,v 1.8 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 (use-package "C-CALL")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-register sigcontext-float-register
 	  sigcontext-floating-point-modes extern-alien-name))
diff --git a/code/run-program.lisp b/code/run-program.lisp
index 8e51c3a114af7ce4974ff15ee92adfbc3095dc94..148b3246c760df3e42e383462dd6fc1a1ec69e13 100644
--- a/code/run-program.lisp
+++ b/code/run-program.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.28 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.29 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;;
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
 
 (export '(run-program process-status process-exit-code process-core-dumped
 	  process-wait process-kill process-input process-output process-plist
@@ -39,7 +40,7 @@
   (defconstant wait-wstopped #-svr4 #o177 #+svr4 wait-wuntraced))
 
 (defun wait3 (&optional do-not-hang check-for-stopped)
-  "Return any available status information on child processed. "
+  _N"Return any available status information on child processed. "
   (multiple-value-bind (pid status)
 		       (c-wait3 (logior (if do-not-hang
 					  wait-wnohang
@@ -77,7 +78,7 @@
 ;;;; Process control stuff.
 
 (defvar *active-processes* nil
-  "List of process structures for all active processes.")
+  _N"List of process structures for all active processes.")
 
 (defstruct (process (:print-function %print-process))
   pid			    ; PID of child process.
@@ -102,7 +103,7 @@
 ;;; PROCESS-STATUS -- Public.
 ;;;
 (defun process-status (proc)
-  "Return the current status of process.  The result is one of :running,
+  _N"Return the current status of process.  The result is one of :running,
    :stopped, :exited, :signaled."
   (declare (type process proc))
   (get-processes-status-changes)
@@ -112,7 +113,7 @@
 ;;; PROCESS-WAIT -- Public.
 ;;;
 (defun process-wait (proc &optional check-for-stopped)
-  "Wait for PROC to quit running for some reason.  Returns PROC."
+  _N"Wait for PROC to quit running for some reason.  Returns PROC."
   (declare (type process proc))
   (loop
     (case (process-status proc)
@@ -140,7 +141,7 @@
 			 unix:TIOCGPGRP
 			 (alien:alien-sap (alien:addr result)))
       (unless wonp
-	(error "TIOCPGRP ioctl failed: ~S"
+	(error _"TIOCPGRP ioctl failed: ~S"
 	       (unix:get-unix-error-msg error)))
       result))
   (process-pid proc))
@@ -151,7 +152,7 @@
 ;;; Hand a process a signal.
 ;;;
 (defun process-kill (proc signal &optional (whom :pid))
-  "Hand SIGNAL to PROC.  If whom is :pid, use the kill Unix system call.  If
+  _N"Hand SIGNAL to PROC.  If whom is :pid, use the kill Unix system call.  If
    whom is :process-group, use the killpg Unix system call.  If whom is
    :pty-process-group deliver the signal to whichever process group is currently
    in the foreground."
@@ -193,7 +194,7 @@
 ;;; Returns T if the process is still alive, NIL otherwise.
 ;;; 
 (defun process-alive-p (proc)
-  "Returns T if the process is still alive, NIL otherwise."
+  _N"Returns T if the process is still alive, NIL otherwise."
   (declare (type process proc))
   (let ((status (process-status proc)))
     (if (or (eq status :running)
@@ -206,7 +207,7 @@
 ;;; Close all the streams held open by PROC.
 ;;; 
 (defun process-close (proc)
-  "Close all streams connected to PROC and stop maintaining the status slot."
+  _N"Close all streams connected to PROC and stop maintaining the status slot."
   (declare (type process proc))
   (macrolet ((frob (stream abort)
 	       `(when ,stream (close ,stream :abort ,abort))))
@@ -252,11 +253,11 @@
 ;;;; RUN-PROGRAM and close friends.
 
 (defvar *close-on-error* nil
-  "List of file descriptors to close when RUN-PROGRAM exits due to an error.")
+  _N"List of file descriptors to close when RUN-PROGRAM exits due to an error.")
 (defvar *close-in-parent* nil
-  "List of file descriptors to close when RUN-PROGRAM returns in the parent.")
+  _N"List of file descriptors to close when RUN-PROGRAM returns in the parent.")
 (defvar *handlers-installed* nil
-  "List of handlers installed by RUN-PROGRAM.")
+  _N"List of handlers installed by RUN-PROGRAM.")
 
 
 ;;; FIND-A-PTY -- internal
@@ -267,7 +268,7 @@
 ;;; 
 #-irix
 (defun find-a-pty ()
-  "Returns the master fd, the slave fd, and the name of the tty"
+  _N"Returns the master fd, the slave fd, and the name of the tty"
   (multiple-value-bind (error master-fd slave-fd)
       (unix:unix-openpty nil nil nil)
     (when (zerop error)
@@ -286,7 +287,7 @@
 		   (values master-fd
 			   slave-fd
 			   (unix:unix-ttyname slave-fd))))
-    (error "Could not find a pty.")))
+    (error _"Could not find a pty.")))
 
 #+irix
 (alien:def-alien-routine ("_getpty" c-getpty) c-call:c-string
@@ -297,7 +298,7 @@
 
 #+irix
 (defun find-a-pty ()
-  "Returns the master fd, the slave fd, and the name of the tty"
+  _N"Returns the master fd, the slave fd, and the name of the tty"
   (multiple-value-bind (line master-fd)
     (c-getpty (logior unix:o_rdwr unix:o_ndelay) #o600 0)
     (let* ((slave-name line)
@@ -320,7 +321,7 @@
 			     slave-fd
 			     slave-name))))
     (unix:unix-close master-fd))
-  (error "Could not find a pty."))
+  (error _"Could not find a pty."))
 
 ;;; OPEN-PTY -- internal
 ;;;
@@ -334,7 +335,7 @@
       (when (streamp pty)
 	(multiple-value-bind (new-fd errno) (unix:unix-dup master)
 	  (unless new-fd
-	    (error "Could not UNIX:UNIX-DUP ~D: ~A"
+	    (error _"Could not UNIX:UNIX-DUP ~D: ~A"
 		   master (unix:get-unix-error-msg errno)))
 	  (push new-fd *close-on-error*)
 	  (copy-descriptor-to-stream new-fd pty cookie)))
@@ -454,7 +455,7 @@
 		    &key (env *environment-list*) (wait t) pty input
 		    if-input-does-not-exist output (if-output-exists :error)
 		    (error :output) (if-error-exists :error) status-hook)
-  "RUN-PROGRAM creates a new process and runs the unix program in the
+  _N"RUN-PROGRAM creates a new process and runs the unix program in the
    file specified by the simple-string PROGRAM.  ARGS are the standard
    arguments that can be passed to a Unix program, for no arguments
    use NIL (which means just the name of the program is passed as arg 0).
@@ -511,7 +512,7 @@
   (system:enable-interrupt unix:sigchld #'sigchld-handler)
   ;; Make sure all the args are okay.
   (unless (every #'simple-string-p args)
-    (error "All args to program must be simple strings -- ~S." args))
+    (error _"All args to program must be simple strings -- ~S." args))
   ;; Pre-pend the program to the argument list.
   (push (namestring program) args)
   ;; Clear random specials used by GET-DESCRIPTOR-FOR to communicate cleanup
@@ -521,7 +522,7 @@
 	(let ((pfile (unix-namestring (merge-pathnames program "path:") t t))
 	      (cookie (list 0)))
 	  (unless pfile
-	    (error "No such program: ~S" program))
+	    (error _"No such program: ~S" program))
 	  (multiple-value-bind
 	      (stdin input-stream)
 	      (get-descriptor-for input cookie :direction :input
@@ -557,7 +558,7 @@
 				(spawn pfile argv envp pty-name
 				       stdin stdout stderr))))
 			  (when (< child-pid 0)
-			    (error "Could not fork child process: ~A"
+			    (error _"Could not fork child process: ~A"
 				   (unix:get-unix-error-msg)))
 			  (setf proc (make-process :pid child-pid
 						   :%status :running
@@ -600,7 +601,7 @@
 		      (unix:unix-select (1+ descriptor) (ash 1 descriptor)
 					0 0 0)
 		    (cond ((null result)
-			   (error "Could not select on sub-process: ~A"
+			   (error _"Could not select on sub-process: ~A"
 				  (unix:get-unix-error-msg readable/errno)))
 			  ((zerop result)
 			   (return))))
@@ -620,7 +621,7 @@
 			     (system:remove-fd-handler handler)
 			     (setf handler nil)
 			     (decf (car cookie))
-			     (error "Could not read input from sub-process: ~A"
+			     (error _"Could not read input from sub-process: ~A"
 				    (unix:get-unix-error-msg errno)))
 			    (t
 			     #-unicode
@@ -658,7 +659,7 @@
 			       (t unix:o_rdwr))
 			     #o666)
 	   (unless fd
-	     (error "Could not open \"/dev/null\": ~A"
+	     (error _"Could not open \"/dev/null\": ~A"
 		    (unix:get-unix-error-msg errno)))
 	   (push fd *close-in-parent*)
 	   (values fd nil)))
@@ -667,7 +668,7 @@
 	     (read-fd write-fd)
 	     (unix:unix-pipe)
 	   (unless read-fd
-	     (error "Could not create pipe: ~A"
+	     (error _"Could not create pipe: ~A"
 		    (unix:get-unix-error-msg write-fd)))
 	   (case direction
 	     (:input
@@ -683,7 +684,7 @@
 	     (t
 	      (unix:unix-close read-fd)
 	      (unix:unix-close write-fd)
-	      (error "Direction must be either :INPUT or :OUTPUT, not ~S"
+	      (error _"Direction must be either :INPUT or :OUTPUT, not ~S"
 		     direction)))))
 	((or (pathnamep object) (stringp object))
 	 (with-open-stream (file (apply #'open object keys))
@@ -694,7 +695,7 @@
 		    (push fd *close-in-parent*)
 		    (values fd nil))
 		   (t
-		    (error "Could not duplicate file descriptor: ~A"
+		    (error _"Could not duplicate file descriptor: ~A"
 			   (unix:get-unix-error-msg errno)))))))
 	((system:fd-stream-p object)
 	 (values (system:fd-stream-fd object) nil))
@@ -703,7 +704,7 @@
 	   (:input
 	    (dotimes (count
 		      256
-		      (error "Could not open a temporary file in /tmp"))
+		      (error _"Could not open a temporary file in /tmp"))
 	      (let* ((name (format nil "/tmp/.run-program-~D" count))
 		     (fd (unix:unix-open name
 					 (logior unix:o_rdwr
@@ -730,12 +731,12 @@
 	    (multiple-value-bind (read-fd write-fd)
 				 (unix:unix-pipe)
 	      (unless read-fd
-		(error "Cound not create pipe: ~A"
+		(error _"Cound not create pipe: ~A"
 		       (unix:get-unix-error-msg write-fd)))
 	      (copy-descriptor-to-stream read-fd object cookie)
 	      (push read-fd *close-on-error*)
 	      (push write-fd *close-in-parent*)
 	      (values write-fd nil)))))
 	(t
-	 (error "Invalid option to run-program: ~S" object))))
+	 (error _"Invalid option to run-program: ~S" object))))
 
diff --git a/code/sap.lisp b/code/sap.lisp
index b3a80db63d326870e0af65551cb7438a788fe70c..01fd268ae8c46421180fa3d328c432635ae61c70 100644
--- a/code/sap.lisp
+++ b/code/sap.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.21 2009/11/02 15:05:06 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.22 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; This file holds the support for System Area Pointers (saps).
 ;;;
 (in-package "SYSTEM")
+(intl:textdomain "cmucl")
 
 (export '(system-area-pointer sap-ref-8 sap-ref-16 sap-ref-32 sap-ref-sap
 	  signed-sap-ref-8 signed-sap-ref-16 signed-sap-ref-32
@@ -35,122 +36,122 @@
 ;;;; Primitive SAP operations.
 
 (defun sap< (x y)
-  "Return T iff the SAP X points to a smaller address then the SAP Y."
+  _N"Return T iff the SAP X points to a smaller address then the SAP Y."
   (declare (type system-area-pointer x y))
   (sap< x y))
 
 (defun sap<= (x y)
-  "Return T iff the SAP X points to a smaller or the same address as
+  _N"Return T iff the SAP X points to a smaller or the same address as
    the SAP Y."
   (declare (type system-area-pointer x y))
   (sap<= x y))
 
 (defun sap= (x y)
-  "Return T iff the SAP X points to the same address as the SAP Y."
+  _N"Return T iff the SAP X points to the same address as the SAP Y."
   (declare (type system-area-pointer x y))
   (sap= x y))
 
 (defun sap>= (x y)
-  "Return T iff the SAP X points to a larger or the same address as
+  _N"Return T iff the SAP X points to a larger or the same address as
    the SAP Y."
   (declare (type system-area-pointer x y))
   (sap>= x y))
 
 (defun sap> (x y)
-  "Return T iff the SAP X points to a larger address then the SAP Y."
+  _N"Return T iff the SAP X points to a larger address then the SAP Y."
   (declare (type system-area-pointer x y))
   (sap> x y))
 
 (defun sap+ (sap offset)
-  "Return a new sap OFFSET bytes from SAP."
+  _N"Return a new sap OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
   (sap+ sap offset))
 
 (defun sap- (sap1 sap2)
-  "Return the byte offset between SAP1 and SAP2."
+  _N"Return the byte offset between SAP1 and SAP2."
   (declare (type system-area-pointer sap1 sap2))
   (sap- sap1 sap2))
 
 (defun sap-int (sap)
-  "Converts a System Area Pointer into an integer."
+  _N"Converts a System Area Pointer into an integer."
   (declare (type system-area-pointer sap))
   (sap-int sap))
 
 (defun int-sap (int)
-  "Converts an integer into a System Area Pointer."
+  _N"Converts an integer into a System Area Pointer."
   (declare (type (unsigned-byte #-alpha #.vm:word-bits #+alpha 64) int))
   (int-sap int))
 
 (defun sap-ref-8 (sap offset)
-  "Returns the 8-bit byte at OFFSET bytes from SAP."
+  _N"Returns the 8-bit byte at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
   (sap-ref-8 sap offset))
 
 (defun sap-ref-16 (sap offset)
-  "Returns the 16-bit word at OFFSET bytes from SAP."
+  _N"Returns the 16-bit word at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.(1- vm:word-bits) #+alpha 63) offset))
   (sap-ref-16 sap offset))
 
 (defun sap-ref-32 (sap offset)
-  "Returns the 32-bit dualword at OFFSET bytes from SAP."
+  _N"Returns the 32-bit dualword at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (sap-ref-32 sap offset))
 
 (defun sap-ref-64 (sap offset)
-  "Returns the 64-bit quadword at OFFSET bytes from SAP."
+  _N"Returns the 64-bit quadword at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (sap-ref-64 sap offset))
 
 (defun sap-ref-sap (sap offset)
-  "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+  _N"Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
   (sap-ref-sap sap offset))
 
 (defun sap-ref-single (sap offset)
-  "Returns the 32-bit single-float at OFFSET bytes from SAP."
+  _N"Returns the 32-bit single-float at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (sap-ref-single sap offset))
 
 (defun sap-ref-double (sap offset)
-  "Returns the 64-bit double-float at OFFSET bytes from SAP."
+  _N"Returns the 64-bit double-float at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (sap-ref-double sap offset))
 
 #+(or x86 long-float)
 (defun sap-ref-long (sap offset)
-  "Returns the long-float at OFFSET bytes from SAP."
+  _N"Returns the long-float at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (sap-ref-long sap offset))
 
 (defun signed-sap-ref-8 (sap offset)
-  "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+  _N"Returns the signed 8-bit byte at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
   (signed-sap-ref-8 sap offset))
 
 (defun signed-sap-ref-16 (sap offset)
-  "Returns the signed 16-bit word at OFFSET bytes from SAP."
+  _N"Returns the signed 16-bit word at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (type (signed-byte #-alpha #.(1- vm:word-bits) #+alpha 63) offset))
   (signed-sap-ref-16 sap offset))
 
 (defun signed-sap-ref-32 (sap offset)
-  "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+  _N"Returns the signed 32-bit dualword at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (signed-sap-ref-32 sap offset))
 
 (defun signed-sap-ref-64 (sap offset)
-  "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+  _N"Returns the signed 64-bit quadword at OFFSET bytes from SAP."
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
   (signed-sap-ref-64 sap offset))
diff --git a/code/save.lisp b/code/save.lisp
index b60fed99272b92d4d48f9b7d631eed530427cd68..df65efd4a0f9f269cd5d815770f245d439b6ca7c 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.65 2009/10/14 03:42:21 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.66 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,25 +19,30 @@
 (in-package "LISP")
 
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(print-herald *herald-items* save-lisp *before-save-initializations*
 	  *after-save-initializations* *environment-list* *editor-lisp-p*))
 (in-package "LISP")
 
 (defvar *before-save-initializations* nil
-  "This is a list of functions which are called before creating a saved core
+  _N"This is a list of functions which are called before creating a saved core
   image.  These functions are executed in the child process which has no ports,
   so they cannot do anything that tries to talk to the outside world.")
 
 (defvar *after-save-initializations* nil
-  "This is a list of functions which are called when a saved core image starts
+  _N"This is a list of functions which are called when a saved core image starts
   up.  The system itself should be initialized at this point, but applications
   might not be.")
 
 (defvar *environment-list* nil
-  "An alist mapping environment variables (as keywords) to either values")
+  _N"An alist mapping environment variables (as keywords) to either values")
+
+(defvar *environment-list-initialized* nil
+  _N"Non-NIL if environment-init has been called")
 
 (defvar *editor-lisp-p* nil
-  "This is true if and only if the lisp was started with the -edit switch.")
+  _N"This is true if and only if the lisp was started with the -edit switch.")
 
 
 
@@ -117,7 +122,8 @@
   (setf (search-list "ext-formats:")
 	'("library:ext-formats/"
 	  "target:i18n/"
-	  "target:pcl/simple-streams/external-formats/")))
+	  "target:pcl/simple-streams/external-formats/"))
+  (setq *environment-list-initialized* t))
 
 
 ;;;; SAVE-LISP itself.
@@ -144,7 +150,7 @@
 		                  #+:executable
 		                 (executable nil)
 				 (batch-mode nil))
-  "Saves a CMU Common Lisp core image in the file of the specified name.  The
+  _N"Saves a CMU Common Lisp core image in the file of the specified name.  The
   following keywords are defined:
   
   :purify
@@ -196,7 +202,7 @@
 
   (unless (probe-file (directory-namestring core-file-name))
     (error 'simple-file-error
-           :format-control "Directory ~S does not exist"
+           :format-control _"Directory ~S does not exist"
            :format-arguments (list (directory-namestring core-file-name))))
   
   #+mp (mp::shutdown-multi-processing)
@@ -223,11 +229,12 @@
   (setq ext:*batch-mode* (if batch-mode t nil))
   (labels
       ((%restart-lisp ()
-	 (with-simple-restart (abort "Skip remaining initializations.")
+	 (with-simple-restart (abort _"Skip remaining initializations.")
 	   (catch 'top-level-catcher
 	     (reinit)
 	     (environment-init)
 	     (dolist (f *after-save-initializations*) (funcall f))
+	     (intl::setlocale)
 	     (when process-command-line
 	       (ext::process-command-strings))
 	     (setf *editor-lisp-p* nil)
@@ -278,7 +285,7 @@
 		    (handler-case
 			(%restart-lisp)
 		      (error (cond)
-			(format *error-output* "Error in batch processing:~%~A~%"
+			(format *error-output* _"Error in batch processing:~%~A~%"
 				cond)
 			(throw '%end-of-the-world 1)))
 		    (%restart-lisp))
@@ -304,7 +311,7 @@
 ;;;; PRINT-HERALD support.
 
 (defvar *herald-items* ()
-  "Determines what PRINT-HERALD prints (the system startup banner.)  This is a
+  _N"Determines what PRINT-HERALD prints (the system startup banner.)  This is a
    database which can be augmented by each loaded system.  The format is a
    property list which maps from subsystem names to the banner information for
    that system.  This list can be manipulated with GETF -- entries are printed
@@ -317,7 +324,8 @@
       `("CMU Common Lisp "
 	,#'(lambda (stream)
 	     (write-string (lisp-implementation-version) stream))
-	", running on "
+	,#'(lambda (stream)
+	     (write-string _", running on " stream))
 	,#'(lambda (stream) (write-string (machine-instance) stream))
 	terpri
 	,#'(lambda (stream)
@@ -328,29 +336,33 @@
 		                  *cmucl-core-dump-time*
 				  nil)))
 	       (when core
-		 (write-string "With core: " stream)
+		 (write-string _"With core: " stream)
 		 (write-line (namestring core) stream))
 	       (when dump-time
-		 (write-string "Dumped on: " stream)
+		 (write-string _"Dumped on: " stream)
 		 (ext:format-universal-time stream dump-time :style :iso8601)
-		 (write-string " on " stream)
+		 (write-string _" on " stream)
 		 (write-line *cmucl-core-dump-host* stream))))
 	))
 
 (setf (getf *herald-items* :bugs)
-      '("See <http://www.cons.org/cmucl/> for support information."
+      `(,#'(lambda (stream)
+	     (write-string _"See <http://www.cons.org/cmucl/> for support information." stream))
 	terpri
-	"Loaded subsystems:"))
+	,#'(lambda (stream)
+	     (write-string _"Loaded subsystems:" stream))))
 
 #+unicode
 (setf (getf *herald-items* :unicode)
-      `("    Unicode "
+      `(,#'(lambda (stream)
+	     (write-string _"    Unicode " stream))
 	,(if (and (boundp 'lisp::*unidata-version*)
 		  (>= (length lisp::*unidata-version*) 11))
 	     (subseq lisp::*unidata-version* 11
 		     (1- (length lisp::*unidata-version*)))
 	     " ")
-	"with Unicode version "
+	,#'(lambda (stream)
+	     (write-string _"with Unicode version " stream))
 	,#'(lambda (stream)
 	     (princ lisp::+unicode-major-version+ stream)
 	     (write-char #\. stream)
@@ -362,7 +374,7 @@
 ;;; PRINT-HERALD  --  Public
 ;;;
 (defun print-herald (&optional (stream *standard-output*))
-  "Print some descriptive information about the Lisp system version and
+  _N"Print some descriptive information about the Lisp system version and
    configuration."
   (let ((res ()))
     (do ((item *herald-items* (cddr item)))
@@ -379,7 +391,7 @@
 	  ((or symbol cons)
 	   (funcall (fdefinition thing) stream))
 	  (t
-	   (error "Unrecognized *HERALD-ITEMS* entry: ~S." thing))))
+	   (error _"Unrecognized *HERALD-ITEMS* entry: ~S." thing))))
       (fresh-line stream)))
 
   (values))
@@ -389,7 +401,7 @@
 
 (defun assert-user-package ()
   (unless (eq *package* (find-package "CL-USER"))
-    (error "Change *PACKAGE* to the USER package and try again.")))
+    (error _"Change *PACKAGE* to the USER package and try again.")))
 
 ;;; MAYBE-BYTE-LOAD  --  Interface
 ;;;
diff --git a/code/scavhook.lisp b/code/scavhook.lisp
index afba36d645ca9e9eaa50cfe5661142d898d8bace..acd4abb8f5700098d3f1c886527fe19ed7eb08b5 100644
--- a/code/scavhook.lisp
+++ b/code/scavhook.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/scavhook.lisp,v 1.4 1997/11/04 15:05:37 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/scavhook.lisp,v 1.5 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package "EXT")
+(intl:textdomain "cmucl")
 
 (export '(scavenger-hook scavenger-hook-p make-scavenger-hook
 	  scavenger-hook-value scavenger-hook-function))
@@ -23,11 +24,11 @@
 (progn
 
 (defun scavenger-hook-p (object)
-  "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+  _N"Returns T if OBJECT is a scavenger-hook, and NIL if not."
   (scavenger-hook-p object))
 
 (defun make-scavenger-hook (&key value (function (required-argument)))
-  "Create a new scavenger-hook with the specified VALUE and FUNCTION.  For
+  _N"Create a new scavenger-hook with the specified VALUE and FUNCTION.  For
    as long as the scavenger-hook is alive, the scavenger in the garbage
    collector will note whenever VALUE is moved, and arrange for FUNCTION
    to be funcalled."
@@ -35,7 +36,7 @@
   (c::%make-scavenger-hook value function))
 
 (defun scavenger-hook-value (scavhook)
-  "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
+  _N"Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
   (declare (type scavenger-hook scavhook))
   (scavenger-hook-value scavhook))
 
@@ -44,7 +45,7 @@
   (setf (scavenger-hook-value scavhook) value))
 
 (defun scavenger-hook-function (scavhook)
-  "Returns the FUNCTION invoked when the monitored value is moved.  Can be
+  _N"Returns the FUNCTION invoked when the monitored value is moved.  Can be
    setf."
   (declare (type scavenger-hook scavhook))
   (scavenger-hook-function scavhook))
diff --git a/code/search-list.lisp b/code/search-list.lisp
index f4ba9ee6e8ceccb5b285c899674d6935f8d83669..f6b25d3e37809f64c779ed1d36689da0a64e8d94 100644
--- a/code/search-list.lisp
+++ b/code/search-list.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/search-list.lisp,v 1.4 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/search-list.lisp,v 1.5 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 
 (in-package 'lisp)
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export 'search-list)
 (in-package 'lisp)
 
@@ -24,20 +26,20 @@
 
 
 (defun search-list (name)
-  "Returns a list of strings that are the of name.
+  _N"Returns a list of strings that are the of name.
    This is setf'able.  If any provided string in a setting value
    does end with a colon or slash, a slash is added.  Also, the
    list is copied."
   (let ((dev (pathname-device name)))
-    (unless dev (error "No device in ~S." name))
+    (unless dev (error _"No device in ~S." name))
     (copy-list (gethash dev *search-list-table*))))
 
 (defun %set-search-list (name new-value)
   (unless (listp new-value)
-    (error "New value for search-list ~S not a list -- ~S."
+    (error _"New value for search-list ~S not a list -- ~S."
 	   name new-value))
   (let ((dev (pathname-device name)))
-    (unless dev (error "No device in ~S." name))
+    (unless dev (error _"No device in ~S." name))
     (nstring-downcase dev)
     (setf (gethash dev *search-list-table*)
 	  (mapcar #'(lambda (x)
@@ -53,7 +55,7 @@
 
 
 (defun resolve-search-list (name first-only-p)
-  "This takes a Sesame search-list name (\"default\") instead of the form
+  _N"This takes a Sesame search-list name (\"default\") instead of the form
    taken by SEARCH-LIST (\"default:\").  If first-only-p is non-nil, then
    only the first complete expansion of name is returned.  If, during the
    expansion of name, an undefined search list is encountered, an error
@@ -88,7 +90,7 @@
      (if pos
 	 (let ((dev (nstring-downcase (subseq ,element 0 pos))))
 	   (if (gethash dev *rsl-circularity-check*)
-	       (error "Circularity in search list -- ~S." dev)
+	       (error _"Circularity in search list -- ~S." dev)
 	       (setf (gethash dev *rsl-circularity-check*) t))
 	   (let ((res (resolve-search-list-aux dev ,first-only-p)))
 	     (remhash dev *rsl-circularity-check*)
@@ -96,7 +98,7 @@
 		 (if (= (the fixnum pos) (the fixnum (1- len)))
 		     ,expanded-form
 		     ,concat-form)
-		 (error "Undefined search list -- ~S"
+		 (error _"Undefined search list -- ~S"
 			(subseq ,element 0 (1+ pos))))))
 	 ,already-form)))
 ) ; eval-when
@@ -128,7 +130,7 @@
 		 nil entry (nconc result res)
 		 (nconc result (rsl-concat res (subseq entry (1+ pos) len)))
 		 (nconc result (list entry))))))
-	(error "Undefined search list -- ~S" 
+	(error _"Undefined search list -- ~S" 
 	       (concatenate 'simple-string dev ":")))))
 
 ;;; RSL-FIRST takes a possible expansion and resolves it if necessary.
diff --git a/code/seq.lisp b/code/seq.lisp
index e5c69ad39e833786cedab5d508fe70bb18d91197..362f48a534272065796f095a61c0a25a0b1a7aaf 100644
--- a/code/seq.lisp
+++ b/code/seq.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/seq.lisp,v 1.55 2009/07/02 21:00:48 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/seq.lisp,v 1.56 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,8 @@
 ;;; how the end argument is handled in other operations with transforms.
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(elt subseq copy-seq coerce
 	  length reverse nreverse make-sequence concatenate map some every
 	  notany notevery reduce fill replace remove remove-if remove-if-not
@@ -47,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
@@ -79,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)
@@ -87,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))
@@ -99,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)))))
 
@@ -121,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))
@@ -137,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))
@@ -153,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))
@@ -170,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)))))
@@ -193,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)
@@ -206,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)
@@ -257,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)))
@@ -269,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))))))))
 
 
@@ -310,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)
@@ -343,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)))
@@ -395,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)))
@@ -517,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))))
@@ -553,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)
@@ -601,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)
@@ -665,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)
@@ -798,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)))
@@ -875,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-()."
@@ -952,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)
@@ -983,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)
@@ -1271,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))
@@ -1308,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))
@@ -1345,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))
@@ -1494,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))
@@ -1511,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))
@@ -1528,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))
@@ -1637,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.
@@ -1718,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.
 
@@ -1826,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))
@@ -1841,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))
@@ -1859,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))
@@ -1878,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))
@@ -1927,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))
@@ -1970,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))
@@ -2138,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)
@@ -2174,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))
@@ -2196,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))
@@ -2223,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
@@ -2257,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))
@@ -2279,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))
@@ -2321,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))
@@ -2348,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)))
@@ -2362,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)))
@@ -2455,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,
@@ -2574,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."
diff --git a/code/serve-event.lisp b/code/serve-event.lisp
index 6cfe926d1b1e30e09dc3cc4f6a40219124267dc7..5b021a93a53d15037211b594515ddd21d77fd1e8 100644
--- a/code/serve-event.lisp
+++ b/code/serve-event.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.28 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.29 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 
 (in-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (export '(with-fd-handler add-fd-handler remove-fd-handler invalidate-descriptor
 	  serve-event serve-all-events wait-until-fd-usable
 	  make-object-set object-set-operation *xwindow-table*
@@ -55,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
@@ -63,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
@@ -123,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)
@@ -139,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.")
 
 
 
@@ -161,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))
@@ -190,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)))
@@ -200,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*
@@ -211,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)))
@@ -236,15 +238,24 @@
 		  (unix:unix-fstat (handler-descriptor handler)))
 	(setf (handler-bogus handler) t)
 	(push handler bogus-handlers)))
-    (restart-case (error "~S ~[have~;has a~:;have~] bad file descriptor~:P."
+    ;; TRANSLATORS:  This needs more work.
+    (restart-case (error (intl:ngettext "~S ~[have~;has a~:;have~] bad file descriptor."
+					"~S ~[have~;has a~:;have~] bad file descriptors."
+					(length bogus-handlers))
 			 bogus-handlers (length bogus-handlers))
-      (remove-them () :report "Remove bogus handlers."
+      (remove-them ()
+	:report (lambda (stream)
+		  (write-string _"Remove bogus handlers." stream))
        (setf *descriptor-handlers*
 	     (delete-if #'handler-bogus *descriptor-handlers*)))
-      (retry-them () :report "Retry bogus handlers."
+      (retry-them ()
+	:report (lambda (stream)
+		  (write-string _"Retry bogus handlers." stream))
        (dolist (handler bogus-handlers)
 	 (setf (handler-bogus handler) nil)))
-      (continue () :report "Go on, leaving handlers marked as bogus."))))
+      (continue ()
+	:report (lambda (stream)
+		  (write-string _"Go on, leaving handlers marked as bogus." stream))))))
 
 
 
@@ -267,7 +278,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.
@@ -278,7 +289,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))
@@ -325,7 +336,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.")
@@ -336,7 +347,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."
@@ -351,7 +362,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."
@@ -381,7 +392,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)))))
 
diff --git a/code/setf-funs.lisp b/code/setf-funs.lisp
index 0a3ce549cac69311634711b36ae904e6562fae5a..a951ce574d85865e4e6fcb2204f9689360ecf0af 100644
--- a/code/setf-funs.lisp
+++ b/code/setf-funs.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/setf-funs.lisp,v 1.6 1998/07/19 00:22:19 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/setf-funs.lisp,v 1.7 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,7 @@
 ;;; functions that are currently implemented with setf macros.
 ;;;
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
 
 (eval-when (compile eval)
 
@@ -31,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))))
        
 
diff --git a/code/sgi-vm.lisp b/code/sgi-vm.lisp
index 8282ebc67e07df4be4f5fb73d497b75af59d9692..3f81c0993d91898eb21d2a43c91c657f239ed915 100644
--- a/code/sgi-vm.lisp
+++ b/code/sgi-vm.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sgi-vm.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sgi-vm.lisp,v 1.3 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sgi-vm.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sgi-vm.lisp,v 1.3 2010/03/19 15:18:59 rtoy Rel $
 ;;;
 ;;; This file contains the SGI specific runtime stuff.
 ;;;
@@ -18,6 +18,7 @@
 (use-package "ALIEN")
 (use-package "C-CALL")
 (use-package "UNIX")
+(intl:textdomain "cmucl")
 
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
diff --git a/code/sharpm.lisp b/code/sharpm.lisp
index 2d37b87a7d07741f24cae000717d577f0bb16879..84bbb047a6e03044fed3f381f73a47528fcb0ccc 100644
--- a/code/sharpm.lisp
+++ b/code/sharpm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sharpm.lisp,v 1.27 2007/06/22 21:45:25 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sharpm.lisp,v 1.28 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;; This uses the special std-lisp-readtable, which is internal to READER.LISP
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(*read-eval*))
 
 
@@ -24,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)
@@ -35,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)))))
 
 
@@ -51,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))
@@ -61,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
@@ -80,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))
@@ -103,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)))))
 
 
@@ -120,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)))))
@@ -128,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)
@@ -136,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))))
 
 
@@ -147,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))))
 
@@ -194,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
@@ -214,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))))))
 
@@ -311,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)))
@@ -331,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
@@ -345,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))))))
 
 ;;;; #+/-
 
@@ -379,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)
@@ -415,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)
diff --git a/code/signal.lisp b/code/signal.lisp
index 36bfff52f675a4420a479005ee3c0828cb1cf1e9..d785b17b47d34af4e439c87688c1e962e6123087 100644
--- a/code/signal.lisp
+++ b/code/signal.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.36 2004/07/25 19:32:38 pmai Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.37 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 
 (in-package "UNIX")
 (use-package "KERNEL")
+(intl:textdomain "cmucl")
+
 (export '(unix-signal-name unix-signal-description unix-signal-number
 	  sigmask unix-sigblock unix-sigpause unix-sigsetmask unix-kill
 	  unix-killpg))
@@ -48,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)
@@ -72,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)))
 
@@ -154,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))))
@@ -170,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)))
@@ -184,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)))
@@ -192,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."
@@ -280,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)
@@ -340,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 () ,@body))
        (if *interrupts-enabled*
@@ -354,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 () ,@body))
@@ -393,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))
diff --git a/code/sort.lisp b/code/sort.lisp
index a7754b58f04d28104ad7728dc1f9fed5aa32bbe0..539752b1892dd58a956f9a8373c49f9642ab39f2 100644
--- a/code/sort.lisp
+++ b/code/sort.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sort.lisp,v 1.10 2002/11/19 14:41:14 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sort.lisp,v 1.11 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,13 +19,14 @@
 ;;; *******************************************************************
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (export '(sort stable-sort merge))
 
 
 
 (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
@@ -42,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)))))
 
 
@@ -132,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
@@ -145,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)))))
 
 
@@ -423,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))
diff --git a/code/sparc-machdef.lisp b/code/sparc-machdef.lisp
index f8b4af4b0740ed0a978b598d2225cb3135287952..c55feb1e1c34260053333f089bd2ae57b4f2906c 100644
--- a/code/sparc-machdef.lisp
+++ b/code/sparc-machdef.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-machdef.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-machdef.lisp,v 1.4 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Record definitions needed for the interface to Mach.
 ;;;
 (in-package "MACH")
+(intl:textdomain "cmucl")
 
 (export '(sigcontext-onstack sigcontext-mask sigcontext-sp sigcontext-pc
 	  sigcontext-npc sigcontext-psr sigcontext-g1 sigcontext-o0
diff --git a/code/sparc-svr4-vm.lisp b/code/sparc-svr4-vm.lisp
index 3f0b0391834e324050f1d29e19aa09b1e310e618..b72cb1ad235833cf24d2a86e2f2468fce2ded95e 100644
--- a/code/sparc-svr4-vm.lisp
+++ b/code/sparc-svr4-vm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-svr4-vm.lisp,v 1.13 2009/06/15 16:56:08 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-svr4-vm.lisp,v 1.14 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 (use-package "SYSTEM")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl-sparc-svr4")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
@@ -135,7 +137,7 @@
 ;;;; MACHINE-TYPE and MACHINE-VERSION
 
 (defun machine-type ()
-  "Returns a string describing the type of the local machine."
+  _N"Returns a string describing the type of the local machine."
   ;; Helps cross-compile from a different system that might not have
   ;; unix:unix-sysinfo.
   (if (fboundp (find-symbol "UNIX-SYSINFO" "UNIX"))
@@ -144,7 +146,7 @@
       "sun4"))
 
 (defun machine-version ()
-  "Returns a string describing the version of the local machine."
+  _N"Returns a string describing the version of the local machine."
   (if (fboundp (find-symbol "UNIX-SYSINFO" "UNIX"))
       (funcall (find-symbol "UNIX-SYSINFO" "UNIX")
 	       (symbol-value (find-symbol "SI-PLATFORM" "UNIX")))
@@ -157,13 +159,13 @@
 (defun fixup-code-object (code offset fixup kind)
   (declare (type index offset))
   (unless (zerop (rem offset vm:word-bytes))
-    (error "Unaligned instruction?  offset=#x~X." offset))
+    (error _"Unaligned instruction?  offset=#x~X." offset))
   (system:without-gcing
    (let ((sap (truly-the system-area-pointer
 			 (%primitive c::code-instructions code))))
      (ecase kind
        (:call
-	(error "Can't deal with CALL fixups, yet."))
+	(error _"Can't deal with CALL fixups, yet."))
        (:sethi
 	(setf (ldb (byte 22 0) (sap-ref-32 sap offset))
 	      (ldb (byte 22 10) fixup)))
@@ -332,7 +334,7 @@
 		;; constant is the C string "xrs", in big-endian
 		;; order, of course.)
 		(unless (= (slot scp 'xrs-id) +xrs-id-valid+)
-		  (error "XRS ID invalid but attempting to accessing double-float register ~d!" (ash index 1)))
+		  (error _"XRS ID invalid but attempting to access double-float register ~d!" (ash index 1)))
 		(let* ((xrs-ptr (slot scp 'xrs-ptr))
 		       (fp-sap (alien-sap (slot (slot (deref xrs-ptr 0) 'pr-xfr) 'pr-regs))))
 		  (system:sap-ref-double fp-sap (* (- index 32) vm:word-bytes))))))))))
@@ -349,7 +351,7 @@
 		(setf (sap-ref-double sap (* index vm:word-bytes)) new-value))
 	       (t
 		(unless (= (slot scp 'xrs-id) +xrs-id-valid+)
-		  (error "XRS ID invalid but attempting to accessing double-float register ~d!" (ash index 1)))
+		  (error _"XRS ID invalid but attempting to access double-float register ~d!" (ash index 1)))
 		(let* ((xrs-ptr (slot scp 'xrs-ptr))
 		       (fp-sap (alien-sap (slot (slot (deref xrs-ptr 0) 'pr-xfr) 'pr-regs))))
 		  (setf (system:sap-ref-double fp-sap (* (- index 32) vm:word-bytes)) new-value)))))))))
diff --git a/code/sparc-vm.lisp b/code/sparc-vm.lisp
index 465f2ebff89bb8e956cb44e8c666153965e24391..49e093eecec7ce72c3bc5472fbb59315a2585b85 100644
--- a/code/sparc-vm.lisp
+++ b/code/sparc-vm.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.18 1998/03/21 23:22:27 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.19 2010/03/19 15:18:59 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 (use-package "SYSTEM")
 (use-package "UNIX")
 
+(intl:textdomain "cmucl")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
diff --git a/code/stream-vector-io.lisp b/code/stream-vector-io.lisp
index 846fe08f59cafce82327ef97233b6de408c84a56..2039af12d60f7bfa486cd5fda9bc77817ac8a5fe 100644
--- a/code/stream-vector-io.lisp
+++ b/code/stream-vector-io.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream-vector-io.lisp,v 1.6 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream-vector-io.lisp,v 1.7 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 
 (in-package "EXT")
 
+(intl:textdomain "cmucl")
+
 (export '(read-vector write-vector))
 
 ;;; READ-VECTOR WRITE-VECTOR 
@@ -53,7 +55,7 @@
   (declare (fixnum start end endian-swap ))
   (unless (eql endian-swap 0)
     (when (>= endian-swap (vector-elt-width vector))
-      (error "endian-swap ~a is illegal for element-type of vector ~a"
+      (error _"endian-swap ~a is illegal for element-type of vector ~a"
 	     endian-swap vector))
     (lisp::with-array-data ((data vector) (offset-start start)
 			    (offset-end end))
@@ -174,7 +176,7 @@
 
 ;;; READ-VECTOR --
 (defun read-vector (vector stream &key (start 0) end (endian-swap :byte-8))
-  "Read from Stream into Vector.  The Start and End indices of Vector
+  _N"Read from Stream into Vector.  The Start and End indices of Vector
   is in octets, and must be an multiple of the octets per element of
   the vector element.  The keyword argument :Endian-Swap specifies any
   endian swapping to be done. "
@@ -188,7 +190,7 @@
   ;; Return value is index of next octet to be read into (i.e., start+count)
 
   (unless (typep vector '(or string simple-numeric-vector))
-    (error "Wrong vector type ~a for read-vector on stream ~a." (type-of vector) stream))
+    (error _"Wrong vector type ~a for read-vector on stream ~a." (type-of vector) stream))
   (let* ((octets-per-element (vector-elt-width vector))
 	 (start-elt (truncate start octets-per-element))
 	 (end-octet (or end (ceiling (* (length vector) octets-per-element))))
@@ -211,7 +213,7 @@
 ;;; WRITE VECTOR --
 ;;; returns the next octet-position in vector.
 (defun write-vector (vector stream &key (start 0) (end nil) (endian-swap :byte-8))
-  "Write Vector to Stream.  The Start and End indices of Vector is in
+  _N"Write Vector to Stream.  The Start and End indices of Vector is in
   octets, and must be an multiple of the octets per element of the
   vector element.  The keyword argument :Endian-Swap specifies any
   endian swapping to be done. "
diff --git a/code/stream.lisp b/code/stream.lisp
index c277cea4f2e77ea243d3e34390db36b34b825a1e..6e0e1845f273d101c46e4db12192e3574b498c80 100644
--- a/code/stream.lisp
+++ b/code/stream.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.89 2010/01/23 18:02:05 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.90 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 ;;;
 (in-package "LISP")
 
+(intl:textdomain "cmucl")
+
 (export '(broadcast-stream make-broadcast-stream broadcast-stream-streams 
 	  synonym-stream make-synonym-stream synonym-stream-symbol
 	  concatenated-stream make-concatenated-stream
@@ -53,55 +55,55 @@
 ;;; The initialization of these streams is performed by Stream-Init,
 ;;; which lives in the file of machine-specific stream functions.
 ;;;
-(defvar *terminal-io* () "Terminal I/O stream.")
-(defvar *standard-input* () "Default input stream.")
-(defvar *standard-output* () "Default output stream.")
-(defvar *error-output* () "Error output stream.")
-(defvar *query-io* () "Query I/O stream.")
-(defvar *trace-output* () "Trace output stream.")
-(defvar *debug-io* () "Interactive debugging stream.")
+(defvar *terminal-io* () _N"Terminal I/O stream.")
+(defvar *standard-input* () _N"Default input stream.")
+(defvar *standard-output* () _N"Default output stream.")
+(defvar *error-output* () _N"Error output stream.")
+(defvar *query-io* () _N"Query I/O stream.")
+(defvar *trace-output* () _N"Trace output stream.")
+(defvar *debug-io* () _N"Interactive debugging stream.")
 
 (defun ill-in-any (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies input-stream-p)
-	 :format-control "~S is not an input stream."
+	 :format-control _"~S is not an input stream."
 	 :format-arguments (list stream)))
 (defun ill-out-any (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies output-stream-p)
-	 :format-control "~S is not an output stream."
+	 :format-control _"~S is not an output stream."
 	 :format-arguments (list stream)))
 (defun ill-in (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies input-stream-p)
-	 :format-control "~S is not a character input stream."
+	 :format-control _"~S is not a character input stream."
 	 :format-arguments (list stream)))
 (defun ill-out (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies output-stream-p)
-	 :format-control "~S is not a character output stream."
+	 :format-control _"~S is not a character output stream."
 	 :format-arguments (list stream)))
 (defun ill-bin (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies input-stream-p)
-	 :format-control "~S is not a binary input stream."
+	 :format-control _"~S is not a binary input stream."
 	 :format-arguments (list stream)))
 (defun ill-n-bin (stream &rest ignore)
   (declare (ignore ignore))
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies input-stream-p)
-	 :format-control "~S is not a binary input stream ~
+	 :format-control _"~S is not a binary input stream ~
                           or does not support multi-byte read operations."
 	 :format-arguments (list stream)))
 (defun ill-bout (stream &rest ignore)
@@ -109,18 +111,18 @@
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type '(satisfies output-stream-p)
-	 :format-control "~S is not a binary output stream."
+	 :format-control _"~S is not a binary output stream."
 	 :format-arguments (list stream)))
 (defun closed-flame (stream &rest ignore)
   (declare (ignore ignore))
-  (error "~S is closed." stream))
+  (error _"~S is closed." stream))
 (defun do-nothing (&rest ignore)
   (declare (ignore ignore)))
 (defun no-gray-streams (stream)
   (error 'simple-type-error
 	 :datum stream
 	 :expected-type 'stream
-	 :format-control "~S is an unsupported Gray stream."
+	 :format-control _"~S is an unsupported Gray stream."
 	 :format-arguments (list stream)))
 
 (defun %print-stream (structure stream d)
@@ -205,7 +207,7 @@
 ;;; Stream manipulation functions.
 
 (defun input-stream-p (stream)
-  "Returns non-nil if the given Stream can perform input operations."
+  _N"Returns non-nil if the given Stream can perform input operations."
   (declare (type stream stream))
   ;; Note: Gray streams redefines this function; any changes made here need
   ;; to be duplicated in .../pcl/gray-streams.lisp
@@ -222,7 +224,7 @@
 	       (not (eq (lisp-stream-n-bin stream) #'ill-n-bin)))))))
 
 (defun output-stream-p (stream)
-  "Returns non-nil if the given Stream can perform output operations."
+  _N"Returns non-nil if the given Stream can perform output operations."
   (declare (type stream stream))
   ;; Note: Gray streams redefines this function; any changes made here need
   ;; to be duplicated in .../pcl/gray-streams.lisp
@@ -238,7 +240,7 @@
 	       (not (eq (lisp-stream-bout stream) #'ill-bout)))))))
 
 (defun open-stream-p (stream)
-  "Return true if Stream is not closed."
+  _N"Return true if Stream is not closed."
   (declare (type stream stream))
   ;; Note: Gray streams redefines this function; any changes made here need
   ;; to be duplicated in .../pcl/gray-streams.lisp
@@ -249,7 +251,7 @@
     (not (eq (lisp-stream-in stream) #'closed-flame))))
 
 (defun stream-element-type (stream)
-  "Returns a type specifier for the kind of object returned by the Stream."
+  _N"Returns a type specifier for the kind of object returned by the Stream."
   (declare (type stream stream))
   ;; Note: Gray streams redefines this function; any changes made here need
   ;; to be duplicated in .../pcl/gray-streams.lisp
@@ -260,7 +262,7 @@
     (funcall (lisp-stream-misc stream) stream :element-type)))
 
 (defun interactive-stream-p (stream)
-  "Return true if Stream does I/O on a terminal or other interactive device."
+  _N"Return true if Stream does I/O on a terminal or other interactive device."
   (declare (type stream stream))
   (stream-dispatch stream
     ;; simple-stream
@@ -279,11 +281,11 @@
     (error 'simple-type-error
 	   :datum stream
 	   :expected-type 'stream:simple-stream
-	   :format-control "Can't set interactive flag on ~S."
+	   :format-control _"Can't set interactive flag on ~S."
 	   :format-arguments (list stream))))
 
 (defun stream-external-format (stream)
-  "Returns the external format used by the given Stream."
+  _N"Returns the external format used by the given Stream."
   (declare (type stream stream))
   (stream-dispatch stream
     ;; simple-stream
@@ -312,7 +314,7 @@
   extfmt)
 
 (defun close (stream &key abort)
-  "Closes the given Stream.  No more I/O may be performed, but inquiries
+  _N"Closes the given Stream.  No more I/O may be performed, but inquiries
   may still be made.  If :Abort is non-nil, an attempt is made to clean
   up the side effects of having created the stream."
   (declare (type stream stream))
@@ -345,7 +347,7 @@
 ;;;    Call the misc method with the :file-position operation.
 ;;;
 (defun file-position (stream &optional position)
-  "With one argument returns the current position within the file
+  _N"With one argument returns the current position within the file
    File-Stream is open to.  If the second argument is supplied, then
    this becomes the new file position.  The second argument may also
    be :start or :end for the start and end of the file, respectively."
@@ -371,7 +373,7 @@
 ;;;    Like File-Position, only use :file-length.
 ;;;
 (defun file-length (stream)
-  "This function returns the length of the file that File-Stream is open to."
+  _N"This function returns the length of the file that File-Stream is open to."
   (stream-dispatch stream
     ;; simple-stream
     (stream::%file-length stream)
@@ -383,7 +385,7 @@
 
 (defun read-line (&optional (stream *standard-input*) (eof-errorp t) eof-value
 			    recursive-p)
-  "Returns a line of text read from the Stream as a string, discarding the
+  _N"Returns a line of text read from the Stream as a string, discarding the
   newline character."
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
@@ -429,7 +431,7 @@
 (declaim (inline read-char unread-char read-byte listen))
 (defun read-char (&optional (stream *standard-input*) (eof-errorp t) eof-value
 			    recursive-p)
-  "Inputs a character from Stream and returns it."
+  _N"Inputs a character from Stream and returns it."
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
       ;; simple-stream
@@ -446,7 +448,7 @@
 	    char)))))
 
 (defun unread-char (character &optional (stream *standard-input*))
-  "Puts the Character back on the front of the input Stream."
+  _N"Puts the Character back on the front of the input Stream."
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
       ;; simple-stream
@@ -456,7 +458,7 @@
       (let ((index (1- (lisp-stream-in-index stream)))
 	    (buffer (lisp-stream-in-buffer stream)))
 	(declare (fixnum index))
-	(when (minusp index) (error "Nothing to unread."))
+	(when (minusp index) (error _"Nothing to unread."))
 	(cond (buffer
 	       (setf (aref buffer index) (char-code character))
 	       (setf (lisp-stream-in-index stream) index))
@@ -469,13 +471,13 @@
 	(cond (sbuf
 	       (let ((index (1- (lisp-stream-string-index stream))))
 		 (when (minusp index)
-		   (error "Nothing to unread."))
+		   (error _"Nothing to unread."))
 		 (setf (aref sbuf index) character)
 		 (setf (lisp-stream-string-index stream) index)))
 	      (ibuf
 	       (let ((index (1- (lisp-stream-in-index stream))))
 		 (when (minusp index)
-		   (error "Nothing to unread."))
+		   (error _"Nothing to unread."))
 		 ;; This only works for iso8859-1!
 		 (setf (aref ibuf index) (char-code character))
 		 (setf (lisp-stream-in-index stream) index)))
@@ -539,11 +541,11 @@
 		  eof-detected-form))
 	   ,char-var)
 	  (t
-	   (error "Impossible case reached in PEEK-CHAR")))))
+	   (error _"Impossible case reached in PEEK-CHAR")))))
 
 (defun peek-char (&optional (peek-type nil) (stream *standard-input*)
 			    (eof-errorp t) eof-value recursive-p)
-  "Peeks at the next character in the input Stream.  See manual for details."
+  _N"Peeks at the next character in the input Stream.  See manual for details."
   ;; FIXME: The type of PEEK-TYPE is also declared in a DEFKNOWN, but
   ;; the compiler doesn't seem to be smart enough to go from there to
   ;; imposing a type check. Figure out why (because PEEK-TYPE is an
@@ -553,7 +555,7 @@
     (error 'simple-type-error
 	   :datum peek-type
 	   :expected-type '(or character boolean)
-	   :format-control "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
+	   :format-control _"~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
 	   :format-arguments (list peek-type '(or character boolean))))
   (let ((stream (in-synonym-of stream)))
     (if (typep stream 'echo-stream)
@@ -584,7 +586,7 @@
 	   :eof-detected-form (eof-or-lose stream eof-errorp eof-value))))))
 
 (defun listen (&optional (stream *standard-input*) (width 1))
-  "Returns T if a character is available on the given Stream."
+  _N"Returns T if a character is available on the given Stream."
   (declare (type streamlike stream))
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
@@ -599,7 +601,7 @@
 
 (defun read-char-no-hang (&optional (stream *standard-input*)
 				    (eof-errorp t) eof-value recursive-p)
-  "Returns the next character from the Stream if one is available, or nil."
+  _N"Returns the next character from the Stream if one is available, or nil."
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
       ;; simple-stream
@@ -617,7 +619,7 @@
 
 
 (defun clear-input (&optional (stream *standard-input*) buffer-only)
-  "Clears any buffered input associated with the Stream."
+  _N"Clears any buffered input associated with the Stream."
   (declare (type streamlike stream))
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
@@ -632,7 +634,7 @@
   nil)
 
 (defun read-byte (stream &optional (eof-errorp t) eof-value)
-  "Returns the next byte of the Stream."
+  _N"Returns the next byte of the Stream."
   (declare (type stream stream))
   (let ((stream (in-synonym-of stream)))
     (stream-dispatch stream
@@ -650,7 +652,7 @@
 	    char)))))
 
 (defun read-n-bytes (stream buffer start numbytes &optional (eof-errorp t))
-  "Reads Numbytes bytes into the Buffer starting at Start, returning the number
+  _N"Reads Numbytes bytes into the Buffer starting at Start, returning the number
    of bytes read.
    -- If EOF-ERROR-P is true, an END-OF-FILE condition is signalled if
       end-of-file is encountered before Count bytes have been read.
@@ -815,7 +817,7 @@
 ;;; Output functions:
 
 (defun write-char (character &optional (stream *standard-output*))
-  "Outputs the Character to the Stream."
+  _N"Outputs the Character to the Stream."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
     (stream-dispatch stream
@@ -828,7 +830,7 @@
   character)
 
 (defun terpri (&optional (stream *standard-output*))
-  "Outputs a new line to the Stream."
+  _N"Outputs a new line to the Stream."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
     (stream-dispatch stream
@@ -841,7 +843,7 @@
   nil)
 
 (defun fresh-line (&optional (stream *standard-output*))
-  "Outputs a new line to the Stream if it is not positioned at the beginning of
+  _N"Outputs a new line to the Stream if it is not positioned at the beginning of
    a line.  Returns T if it output a new line, nil otherwise."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
@@ -857,7 +859,7 @@
 
 (defun write-string (string &optional (stream *standard-output*)
 			    &key (start 0) end)
-  "Outputs the String to the given Stream."
+  _N"Outputs the String to the given Stream."
   (write-string* string stream start (or end (length (the vector string)))))
 
 (defun write-string* (string &optional (stream *standard-output*)
@@ -884,7 +886,7 @@
 
 (defun write-line (string &optional (stream *standard-output*)
 			  &key (start 0) (end (length string)))
-  "Outputs the String to the given Stream, followed by a newline character."
+  _N"Outputs the String to the given Stream, followed by a newline character."
   (write-line* string stream start (or end (length string))))
 
 (defun write-line* (string &optional (stream *standard-output*)
@@ -916,7 +918,7 @@
     string))
 
 (defun charpos (&optional (stream *standard-output*))
-  "Returns the number of characters on the current line of output of the given
+  _N"Returns the number of characters on the current line of output of the given
   Stream, or Nil if that information is not availible."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
@@ -929,7 +931,7 @@
       (stream-line-column stream))))
 
 (defun line-length (&optional (stream *standard-output*))
-  "Returns the number of characters that will fit on a line of output on the
+  _N"Returns the number of characters that will fit on a line of output on the
   given Stream, or Nil if that information is not available."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
@@ -942,7 +944,7 @@
       (stream-line-length stream))))
 
 (defun finish-output (&optional (stream *standard-output*))
-  "Attempts to ensure that all output sent to the Stream has reached its
+  _N"Attempts to ensure that all output sent to the Stream has reached its
    destination, and only then returns."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
@@ -956,7 +958,7 @@
   nil)
 
 (defun force-output (&optional (stream *standard-output*))
-  "Attempts to force any buffered output to be sent."
+  _N"Attempts to force any buffered output to be sent."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
     (stream-dispatch stream
@@ -969,7 +971,7 @@
   nil)
 
 (defun clear-output (&optional (stream *standard-output*))
-  "Clears the given output Stream."
+  _N"Clears the given output Stream."
   (declare (type streamlike stream))
   (let ((stream (out-synonym-of stream)))
     (stream-dispatch stream
@@ -982,7 +984,7 @@
   nil)
 
 (defun write-byte (integer stream)
-  "Outputs the Integer to the binary Stream."
+  _N"Outputs the Integer to the binary Stream."
   (declare (type stream stream))
   (let ((stream (out-synonym-of stream)))
     (stream-dispatch stream
@@ -1048,7 +1050,7 @@
   (streams () :type list :read-only t))
 
 (defun make-broadcast-stream (&rest streams)
-  "Returns an output stream which sends its output to all of the given
+  _N"Returns an output stream which sends its output to all of the given
 streams."
   (dolist (s streams)
     (unless (output-stream-p s)
@@ -1140,7 +1142,7 @@ streams."
   (format stream "#<Synonym Stream to ~S>" (synonym-stream-symbol s)))
 
 (setf (documentation 'make-synonym-stream 'function)
-  "Returns a stream which performs its operations on the stream which is the
+  _N"Returns a stream which performs its operations on the stream which is the
    value of the dynamic variable named by Symbol.")
 
 ;;; The output simple output methods just call the corresponding method
@@ -1222,7 +1224,7 @@ streams."
 	  (two-way-stream-output-stream s)))
 
 (defun make-two-way-stream (input-stream output-stream)
-  "Returns a bidirectional stream which gets its input from Input-Stream and
+  _N"Returns a bidirectional stream which gets its input from Input-Stream and
    sends its output to Output-Stream."
   (unless (input-stream-p input-stream)
     (ill-in-any input-stream))
@@ -1308,7 +1310,7 @@ streams."
 	  (concatenated-stream-streams s)))
 
 (defun make-concatenated-stream (&rest streams)
-  "Returns a stream which takes its input from each of the Streams in turn,
+  _N"Returns a stream which takes its input from each of the Streams in turn,
    going on to the next at EOF."
   (dolist (s streams)
     (unless (input-stream-p s)
@@ -1393,7 +1395,7 @@ streams."
   unread-stuff)
 
 (defun make-echo-stream (input-stream output-stream)
-  "Returns an echo stream that takes input from Input-stream and sends
+  _N"Returns an echo stream that takes input from Input-stream and sends
 output to Output-stream"
   (unless (input-stream-p input-stream)
     (ill-in-any input-stream))
@@ -1511,7 +1513,7 @@ output to Output-stream"
 	  (two-way-stream-output-stream s)))
 
 (setf (documentation 'make-echo-stream 'function)
-  "Returns a bidirectional stream which gets its input from Input-Stream and
+  _N"Returns a bidirectional stream which gets its input from Input-Stream and
    sends its output to Output-Stream.  In addition, all input is echoed to
    the output stream")
 
@@ -1610,7 +1612,7 @@ output to Output-stream"
   
 (defun make-string-input-stream (string &optional
 					(start 0) (end (length string)))
-  "Returns an input stream which will supply the characters of String between
+  _N"Returns an input stream which will supply the characters of String between
   Start and End in order."
   (declare (type string string)
 	   (type index start)
@@ -1637,7 +1639,7 @@ output to Output-stream"
   (write-string "#<String-Output Stream>" stream))
 
 (defun make-string-output-stream (&key (element-type 'character))
-  "Returns an Output stream which will accumulate all output given to it for
+  _N"Returns an Output stream which will accumulate all output given to it for
    the benefit of the function Get-Output-Stream-String."
   (declare (ignore element-type))
   (%make-string-output-stream))
@@ -1697,7 +1699,7 @@ output to Output-stream"
      (set-closed-flame stream))))
 
 (defun get-output-stream-string (stream)
-  "Returns a string of all the characters sent to a stream made by
+  _N"Returns a string of all the characters sent to a stream made by
    Make-String-Output-Stream since the last call to this function."
   (declare (type string-output-stream stream))
   (let* ((length (string-output-stream-index stream))
@@ -1707,7 +1709,7 @@ output to Output-stream"
     result))
 
 (defun dump-output-stream-string (in-stream out-stream)
-  "Dumps the characters buffer up in the In-Stream to the Out-Stream as
+  _N"Dumps the characters buffer up in the In-Stream to the Out-Stream as
   Get-Output-Stream-String would return them."
   (write-string* (string-output-stream-string in-stream) out-stream
 		 0 (string-output-stream-index in-stream))
@@ -1815,7 +1817,7 @@ output to Output-stream"
   (indentation 0))
 
 (setf (documentation 'make-indenting-stream 'function)
- "Returns an output stream which indents its output by some amount.")
+ _N"Returns an output stream which indents its output by some amount.")
 
 (defun %print-indenting-stream (s stream d)
   (declare (ignore s d))
@@ -1902,7 +1904,7 @@ output to Output-stream"
   (target (required-argument) :type stream))
 
 (defun make-case-frob-stream (target kind)
-  "Returns a stream that sends all output to the stream TARGET, but modifies
+  _N"Returns a stream that sends all output to the stream TARGET, but modifies
    the case of letters, depending on KIND, which should be one of:
      :upcase - convert to upper case.
      :downcase - convert to lower case.
@@ -2151,7 +2153,7 @@ output to Output-stream"
 ;;; LISTEN fails, then we have some random stream we must wait on.
 ;;;
 (defun get-stream-command (stream)
-  "This takes a stream and waits for text or a command to appear on it.  If
+  _N"This takes a stream and waits for text or a command to appear on it.  If
    text appears before a command, this returns nil, and otherwise it returns
    a command."
   (let ((cmdp (funcall (lisp-stream-misc stream) stream :get-command)))
@@ -2166,7 +2168,7 @@ output to Output-stream"
 ;;; READ-SEQUENCE --
 
 (defun read-sequence (seq stream &key (start 0) (end nil) partial-fill)
-  "Destructively modify SEQ by reading elements from STREAM.
+  _N"Destructively modify SEQ by reading elements from STREAM.
 
   Seq is bounded by Start and End. Seq is destructively modified by
   copying successive elements into it from Stream. If the end of file
@@ -2203,11 +2205,11 @@ output to Output-stream"
       (cond ((not (open-stream-p stream))
 	     (error 'simple-stream-error
 		    :stream stream
-		    :format-control "The stream is not open."))
+		    :format-control _"The stream is not open."))
 	    ((not (input-stream-p stream))
 	     (error 'simple-stream-error
 		    :stream stream
-		    :format-control "The stream is not open for input."))
+		    :format-control _"The stream is not open for input."))
 	    ((and seq (>= start end) 0))
 	    (t
 	     ;; So much for object-oriented programming!
@@ -2291,7 +2293,7 @@ output to Output-stream"
     (error 'type-error
 	   :datum (read-char stream nil #\Null)
 	   :expected-type (stream-element-type stream)
-	   :format-control "Trying to read characters from a binary stream."))
+	   :format-control _"Trying to read characters from a binary stream."))
   ;; Let's go as low level as it seems reasonable.
   (let* ((numbytes (- end start))
 	 (total-bytes 0))
@@ -2319,7 +2321,7 @@ output to Output-stream"
     (error 'type-error
 	   :datum (read-char stream nil #\Null)
 	   :expected-type (stream-element-type stream)
-	   :format-control "Trying to read characters from a binary stream."))
+	   :format-control _"Trying to read characters from a binary stream."))
   ;; Let's go as low level as it seems reasonable.
   (let* ((numbytes (- end start))
 	 (total-bytes 0))
@@ -2343,7 +2345,7 @@ output to Output-stream"
     (error 'type-error
 	   :datum (read-char stream nil #\Null)
 	   :expected-type (stream-element-type stream)
-	   :format-control "Trying to read characters from a binary stream."))
+	   :format-control _"Trying to read characters from a binary stream."))
   (do ((i start (1+ i))
        (s-len (length s)))
       ((or (>= i s-len)
@@ -2416,7 +2418,7 @@ output to Output-stream"
 		  :datum (read-byte stream nil 0)
 		  :expected-type (stream-element-type stream) ; Bogus?!?
 		  :format-control
-		  "Trying to read binary data from a text stream."))
+		  _"Trying to read binary data from a text stream."))
 
 	  ;; Let's go as low level as it seems reasonable.
 	  ((not (member stream-et
@@ -2534,7 +2536,7 @@ output to Output-stream"
 ;;; will always puzzle me.
 
 (defun write-sequence (seq stream &key (start 0) (end nil))
-  "Writes the elements of the Seq bounded by Start and End to Stream.
+  _N"Writes the elements of the Seq bounded by Start and End to Stream.
 
   Argument(s):
   SEQ:     a proper SEQUENCE
@@ -2563,11 +2565,11 @@ output to Output-stream"
       (cond ((not (open-stream-p stream))
 	     (error 'simple-stream-error
 		    :stream stream
-		    :format-control "The stream is not open."))
+		    :format-control _"The stream is not open."))
 	    ((not (output-stream-p stream))
 	     (error 'simple-stream-error
 		    :stream stream
-		    :format-control "The stream is not open for output."))
+		    :format-control _"The stream is not open for output."))
 	    ((and seq (>= start end)) seq)
 	    (t
 	     ;; So much for object-oriented programming!
@@ -2619,7 +2621,7 @@ output to Output-stream"
 		      :datum e
 		      :expected-type type
 		      :format-control
-		      "Trying to output an element of unproper type to a stream.")))))
+		      _"Trying to output an element of unproper type to a stream.")))))
     (let ((stream-et (stream-element-type stream)))
 
       (check-list-element-types seq stream-et)
@@ -2661,7 +2663,7 @@ output to Output-stream"
     (error 'type-error
 	   :datum seq
 	   :expected-type (stream-element-type stream)
-	   :format-control "Trying to output a string to a binary stream."))
+	   :format-control _"Trying to output a string to a binary stream."))
   (write-string seq stream :start start :end end)
   seq)
 
@@ -2698,7 +2700,7 @@ output to Output-stream"
     (error 'simple-type-error
 	   :datum (elt seq 0)
 	   :expected-type (stream-element-type stream)
-	   :format-control "Trying to output binary data to a text stream."))
+	   :format-control _"Trying to output binary data to a text stream."))
   (cond ((system:fd-stream-p stream)
 	 (flet ((write-n-x8-bytes (stream data start end byte-size)
 		  (let ((x8-mult (truncate byte-size 8)))
@@ -2769,7 +2771,7 @@ output to Output-stream"
 ;;; READ-SEQUENCE -- Public
 ;;;
 (defun read-sequence (seq stream &key (start 0) (end nil))
-  "Destructively modify SEQ by reading elements from STREAM.
+  _N"Destructively modify SEQ by reading elements from STREAM.
   SEQ is bounded by START and END. SEQ is destructively modified by
   copying successive elements into it from STREAM. If the end of file
   for STREAM is reached before copying all elements of the subsequence,
@@ -2832,7 +2834,7 @@ output to Output-stream"
 ;;; WRITE-SEQUENCE -- Public
 ;;;
 (defun write-sequence (seq stream &key (start 0) (end nil))
-  "Write the elements of SEQ bounded by START and END to STREAM."
+  _N"Write the elements of SEQ bounded by START and END to STREAM."
   (declare (type sequence seq)
 	   (type stream stream)
 	   (type index start)
diff --git a/code/string.lisp b/code/string.lisp
index 5205278195338b3e9f54a5ce89e716110e8d763e..3ad6dd0a5f80cc0e3aeb9116aed1359fdc1b4c09 100644
--- a/code/string.lisp
+++ b/code/string.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/string.lisp,v 1.21 2009/10/18 14:21:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/string.lisp,v 1.22 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;; ****************************************************************
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(char schar glyph sglyph string
 	  string= string-equal string< string> string<= string>= string/=
 	  string-lessp string-greaterp string-not-lessp string-not-greaterp
@@ -33,7 +35,7 @@
 (declaim (inline surrogatep surrogates-to-codepoint codepoint surrogates))
 
 (defun surrogatep (char-or-code &optional surrogate-type)
-  "Test if C is a surrogate.  C may be either an integer or a
+  _N"Test if C is a surrogate.  C may be either an integer or a
   character. Surrogate-type indicates what kind of surrogate to test
   for.  :High means to test for the high (leading) surrogate; :Low
   tests for the low (trailing surrogate).  A value of :Any or Nil
@@ -54,14 +56,14 @@
        (= #b11011 (ash code -11))))))
 
 (defun surrogates-to-codepoint (hi-surrogate-char lo-surrogate-char)
-  "Convert the given Hi and Lo surrogate characters to the
+  _N"Convert the given Hi and Lo surrogate characters to the
   corresponding codepoint value"
   (declare (type character hi-surrogate-char lo-surrogate-char))
   (+ (ash (- (the (integer #xD800 #xDBFF) (char-code hi-surrogate-char)) #xD800) 10)
      (the (integer #xDC00 #xDFFF) (char-code lo-surrogate-char)) #x2400))
 
 (defun codepoint (string i &optional (end (length string)))
-  "Return the codepoint value from String at position I.  If that
+  _N"Return the codepoint value from String at position I.  If that
   position is a surrogate, it is combined with either the previous or
   following character (when possible) to compute the codepoint.  The
   second return value is NIL if the position is not a surrogate pair.
@@ -82,7 +84,7 @@
 	  (t (values code nil)))))
 
 (defun surrogates (codepoint)
-  "Return the high and low surrogate characters for Codepoint.  If
+  _N"Return the high and low surrogate characters for Codepoint.  If
   Codepoint is in the BMP, the first return value is the corresponding
   character and the second is NIL."
   (declare (type codepoint codepoint))
@@ -94,7 +96,7 @@
 	(values (code-char hi) (code-char lo)))))
 
 (defun (setf codepoint) (codepoint string i)
-  "Set the codepoint at string position I to the Codepoint.  If the
+  _N"Set the codepoint at string position I to the Codepoint.  If the
   codepoint requires a surrogate pair, the high (leading surrogate) is
   stored at position I and the low (trailing) surrogate is stored at
   I+1"
@@ -111,7 +113,7 @@
 
 #+unicode
 (defun utf16-string-p (string)
-  "Check if String is a valid UTF-16 string.  If the string is valid,
+  _N"Check if String is a valid UTF-16 string.  If the string is valid,
   T is returned.  If the string is not valid, NIL is returned, and the
   second value is the index into the string of the invalid character.
   A string is also invalid if it contains any unassigned codepoints."
@@ -134,7 +136,7 @@
       (when wide (incf index)))))
 
 (defun string (X)
-  "Coerces X into a string.  If X is a string, X is returned.  If X is a
+  _N"Coerces X into a string.  If X is a string, X is returned.  If X is a
   symbol, X's pname is returned.  If X is a character then a one element
   string containing that character is returned.  If X cannot be coerced
   into a string, an error occurs."
@@ -147,7 +149,7 @@
 	 (error 'simple-type-error
 		:datum x
 		:expected-type '(or string symbol character)
-		:format-control "~S cannot be coerced to a string."
+		:format-control _"~S cannot be coerced to a string."
 		:format-arguments (list x)))))
 
 ;;; With-One-String is used to set up some string hacking things.  The keywords
@@ -200,7 +202,7 @@
 
 
 (defun char (string index)
-  "Given a string and a non-negative integer index less than the length of
+  _N"Given a string and a non-negative integer index less than the length of
   the string, returns the character object representing the character at
   that position in the string."
   (declare (optimize (safety 1)))
@@ -211,7 +213,7 @@
   (setf (char string index) new-el))
 
 (defun schar (string index)
-  "SCHAR returns the character object at an indexed position in a string
+  _N"SCHAR returns the character object at an indexed position in a string
   just as CHAR does, except the string must be a simple-string."
   (declare (optimize (safety 1)))
   (schar string index))
@@ -303,38 +305,38 @@
 
 
 (defun string< (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically less than
+  _N"Given two strings, if the first string is lexicographically less than
   the second string, returns the longest common prefix (using char=)
   of the two strings. Otherwise, returns ()."
   (string<* string1 string2 start1 end1 start2 end2))
 
 (defun string> (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically greater than
+  _N"Given two strings, if the first string is lexicographically greater than
   the second string, returns the longest common prefix (using char=)
   of the two strings. Otherwise, returns ()."
   (string>* string1 string2 start1 end1 start2 end2))
 
 
 (defun string<= (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically less than
+  _N"Given two strings, if the first string is lexicographically less than
   or equal to the second string, returns the longest common prefix
   (using char=) of the two strings. Otherwise, returns ()."
   (string<=* string1 string2 start1 end1 start2 end2))
 
 (defun string>= (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically greater
+  _N"Given two strings, if the first string is lexicographically greater
   than or equal to the second string, returns the longest common prefix
   (using char=) of the two strings. Otherwise, returns ()."
   (string>=* string1 string2 start1 end1 start2 end2))
 
 (defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings (string1 and string2), and optional integers start1,
+  _N"Given two strings (string1 and string2), and optional integers start1,
   start2, end1 and end2, compares characters in string1 to characters in
   string2 (using char=)."
   (string=* string1 string2 start1 end1 start2 end2))
 
 (defun string/= (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is not lexicographically equal
+  _N"Given two strings, if the first string is not lexicographically equal
   to the second string, returns the longest common prefix (using char=)
   of the two strings. Otherwise, returns ()."
   (string/=* string1 string2 start1 end1 start2 end2))
@@ -367,7 +369,7 @@
 
 #+unicode
 (defun string-case-fold (string &key (start 0) end (casing :simple))
-  "Return a new string with the case folded according to Casing as follows:
+  _N"Return a new string with the case folded according to Casing as follows:
 
   :SIMPLE  Unicode simple case folding (preserving length)
   :FULL    Unicode full case folding (possibly changing length)
@@ -397,7 +399,7 @@
 	     (write-string (unicode-case-fold-full code) s))))))))
 
 (defun string-equal (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings (string1 and string2), and optional integers start1,
+  _N"Given two strings (string1 and string2), and optional integers start1,
   start2, end1 and end2, compares characters in string1 to characters in
   string2 (using char-equal)."
   (declare (fixnum start1 start2))
@@ -407,13 +409,13 @@
       (declare (fixnum slen1 slen2))
       (if (or (minusp slen1) (minusp slen2))
 	  ;;prevent endless looping later.
-	  (error "Improper bounds for string comparison."))
+	  (error _"Improper bounds for string comparison."))
       (if (= slen1 slen2)
 	  ;;return () immediately if lengths aren't equal.
 	  (string-not-equal-loop 1 t nil)))))
 
 (defun string-not-equal (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is not lexicographically equal
+  _N"Given two strings, if the first string is not lexicographically equal
   to the second string, returns the longest common prefix (using char-equal)
   of the two strings. Otherwise, returns ()."
   (with-two-strings string1 string2 start1 end1 offset1 start2 end2
@@ -422,9 +424,9 @@
       (declare (fixnum slen1 slen2))
       (if (or (minusp slen1) (minusp slen2))
 	  ;;prevent endless looping later.
-	  (error "Improper bounds for string comparison."))
+	  (error _"Improper bounds for string comparison."))
       (cond ((or (minusp slen1) (or (minusp slen2)))
-	     (error "Improper substring for comparison."))
+	     (error _"Improper substring for comparison."))
 	    ((= slen1 slen2)
 	     (string-not-equal-loop 1 nil (- index1 offset1)))
 	    ((< slen1 slen2)
@@ -470,7 +472,7 @@
 	 (declare (fixnum slen1 slen2))
 	 (if (or (minusp slen1) (minusp slen2))
 	     ;;prevent endless looping later.
-	     (error "Improper bounds for string comparison."))
+	     (error _"Improper bounds for string comparison."))
 	 (do ((index1 start1 (1+ index1))
 	      (index2 start2 (1+ index2))
 	      (char1)
@@ -509,7 +511,7 @@
 	 (declare (fixnum slen1 slen2))
 	 (if (or (minusp slen1) (minusp slen2))
 	     ;;prevent endless looping later.
-	     (error "Improper bounds for string comparison."))
+	     (error _"Improper bounds for string comparison."))
 	 (do ((index1 start1 (1+ index1))
 	      (index2 start2 (1+ index2)))
 	     ((or (= index1 (the fixnum end1)) (= index2 (the fixnum end2)))
@@ -550,33 +552,33 @@
   (string-less-greater-equal t t))
 
 (defun string-lessp (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically less than
+  _N"Given two strings, if the first string is lexicographically less than
   the second string, returns the longest common prefix (using char-equal)
   of the two strings. Otherwise, returns ()."
   (string-lessp* string1 string2 start1 end1 start2 end2))
 
 (defun string-greaterp (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically greater than
+  _N"Given two strings, if the first string is lexicographically greater than
   the second string, returns the longest common prefix (using char-equal)
   of the two strings. Otherwise, returns ()."
   (string-greaterp* string1 string2 start1 end1 start2 end2))
 
 (defun string-not-lessp (string1 string2 &key (start1 0) end1 (start2 0) end2)
-  "Given two strings, if the first string is lexicographically greater
+  _N"Given two strings, if the first string is lexicographically greater
   than or equal to the second string, returns the longest common prefix
   (using char-equal) of the two strings. Otherwise, returns ()."
   (string-not-lessp* string1 string2 start1 end1 start2 end2))
 
 (defun string-not-greaterp (string1 string2 &key (start1 0) end1 (start2 0)
 				    end2)
-  "Given two strings, if the first string is lexicographically less than
+  _N"Given two strings, if the first string is lexicographically less than
   or equal to the second string, returns the longest common prefix
   (using char-equal) of the two strings. Otherwise, returns ()."
   (string-not-greaterp* string1 string2 start1 end1 start2 end2))
 
 
 (defun make-string (count &key element-type ((:initial-element fill-char)))
-  "Given a character count and an optional fill character, makes and returns
+  _N"Given a character count and an optional fill character, makes and returns
   a new string Count long filled with the fill character."
   (declare (type fixnum count))
   (assert (subtypep element-type 'character))
@@ -661,10 +663,10 @@
 
 (defun string-upcase (string &key (start 0) end #+unicode (casing :simple))
   #-unicode
-  "Given a string, returns a new string that is a copy of it with all
+  _N"Given a string, returns a new string that is a copy of it with all
   lower case alphabetic characters converted to uppercase."
   #+unicode
-  "Given a string, returns a new string that is a copy of it with all
+  _N"Given a string, returns a new string that is a copy of it with all
   lower case alphabetic characters converted to uppercase.  Casing is
   :simple or :full for simple or full case conversion, respectively."
   (declare (fixnum start))
@@ -747,10 +749,10 @@
 
 (defun string-downcase (string &key (start 0) end #+unicode (casing :simple))
   #-unicode
-  "Given a string, returns a new string that is a copy of it with all
+  _N"Given a string, returns a new string that is a copy of it with all
   upper case alphabetic characters converted to lowercase."
   #+unicode
-  "Given a string, returns a new string that is a copy of it with all
+  _N"Given a string, returns a new string that is a copy of it with all
   upper case alphabetic characters converted to lowercase.  Casing is
   :simple or :full for simple or full case conversion, respectively."
   (declare (fixnum start))
@@ -841,13 +843,13 @@
 				 #+unicode (casing :simple)
 				 #+unicode unicode-word-break)
   #-unicode
-  "Given a string, returns a copy of the string with the first
+  _N"Given a string, returns a copy of the string with the first
   character of each ``word'' converted to upper-case, and remaining
   chars in the word converted to lower case. A ``word'' is defined
   to be a string of case-modifiable characters delimited by
   non-case-modifiable chars."
   #+unicode
-  "Given a string, returns a copy of the string with the first
+  _N"Given a string, returns a copy of the string with the first
   character of each ``word'' converted to upper-case, and remaining
   chars in the word converted to lower case. A ``word'' is defined
   to be a string of case-modifiable characters delimited by
@@ -865,7 +867,7 @@
 	  (string-capitalize-full string :start start :end end))))
 
 (defun nstring-upcase (string &key (start 0) end)
-  "Given a string, returns that string with all lower case alphabetic
+  _N"Given a string, returns that string with all lower case alphabetic
   characters converted to uppercase."
   (declare (fixnum start))
   (let ((save-header string))
@@ -892,7 +894,7 @@
     save-header))
 
 (defun nstring-downcase (string &key (start 0) end)
-  "Given a string, returns that string with all upper case alphabetic
+  _N"Given a string, returns that string with all upper case alphabetic
   characters converted to lowercase."
   (declare (fixnum start))
   (let ((save-header string))
@@ -917,7 +919,7 @@
     save-header))
 
 (defun nstring-capitalize (string &key (start 0) end)
-  "Given a string, returns that string with the first
+  _N"Given a string, returns that string with the first
   character of each ``word'' converted to upper-case, and remaining
   chars in the word converted to lower case. A ``word'' is defined
   to be a string of case-modifiable characters delimited by
@@ -984,7 +986,7 @@
 	    (when widep (incf index)))))))
 
 (defun string-left-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   left end.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1032,7 +1034,7 @@
 	    (when widep (decf index)))))))
 
 (defun string-right-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   right end.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1042,7 +1044,7 @@
       (subseq string start stop))))
 
 (defun string-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns a
+  _N"Given a set of characters (a list or string) and a string, returns a
   copy of the string with the characters in the set removed from both
   ends.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1056,7 +1058,7 @@
 #-unicode
 (progn
 (defun string-left-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   left end."
   (with-string string
@@ -1067,7 +1069,7 @@
       (declare (fixnum index)))))
 
 (defun string-right-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   right end."
   (with-string string
@@ -1077,7 +1079,7 @@
       (declare (fixnum index)))))
 
 (defun string-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns a
+  _N"Given a set of characters (a list or string) and a string, returns a
   copy of the string with the characters in the set removed from both
   ends."
   (with-string string
@@ -1131,7 +1133,7 @@
 ) ; unicode
 
 (defun glyph (string index &key (from-end nil))
-  "GLYPH returns the glyph at the indexed position in a string, and the
+  _N"GLYPH returns the glyph at the indexed position in a string, and the
   position of the next glyph (or NIL) as a second value.  A glyph is
   a substring consisting of the character at INDEX followed by all
   subsequent combining characters."
@@ -1147,7 +1149,7 @@
 	  (values (subseq string index n) (and (< n (length string)) n))))))
 
 (defun sglyph (string index &key (from-end nil))
-  "SGLYPH returns the glyph at the indexed position, the same as GLYPH,
+  _N"SGLYPH returns the glyph at the indexed position, the same as GLYPH,
   except that the string must be a simple-string"
   (declare (type simple-string string) (type kernel:index index))
   #-unicode
@@ -1336,17 +1338,17 @@
 	(shrink-vector target comp-pos)))))
 
 (defun string-to-nfd (string)
-  "Convert String to Unicode Normalization Form D (NFD) using the
+  _N"Convert String to Unicode Normalization Form D (NFD) using the
   canonical decomposition.  The NFD string is returned"
   (decompose string nil))
 
 (defun string-to-nfkd (string)
-  "Convert String to Unicode Normalization Form KD (NFKD) uisng the
+  _N"Convert String to Unicode Normalization Form KD (NFKD) uisng the
   compatible decomposition form.  The NFKD string is returned."
   (decompose string t))
 
 (defun string-to-nfc (string)
-  "Convert String to Unicode Normalization Form C (NFC).  If the
+  _N"Convert String to Unicode Normalization Form C (NFC).  If the
   string a simple string and is already normalized, the original
   string is returned."
   (if (normalized-form-p string :nfc)
@@ -1357,7 +1359,7 @@
 	      'simple-string)))
 
 (defun string-to-nfkc (string)
-  "Convert String to Unicode Normalization Form KC (NFKC).  If the
+  _N"Convert String to Unicode Normalization Form KC (NFKC).  If the
   string is a simple string and is already normalized, the original
   string is returned."
   (if (normalized-form-p string :nfkc)
diff --git a/code/struct.lisp b/code/struct.lisp
index c77f7b2ca48e2c2039e7c0a965ec033a806ca86c..2fe53fae60f47b5e050381821fa2c3286774df3e 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/struct.lisp,v 1.22 2009/10/18 14:21:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/struct.lisp,v 1.23 2010/03/19 15:18:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,10 +13,11 @@
 ;;; for bootstrapping reasons.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 ;;;; The stream structure:
 
-(defconstant in-buffer-length 512 "The size of a stream in-buffer.")
+(defconstant in-buffer-length 512 _N"The size of a stream in-buffer.")
 (deftype in-buffer-type ()
   `(simple-array (unsigned-byte 8) (,in-buffer-length)))
 
diff --git a/code/sunos-os.lisp b/code/sunos-os.lisp
index 80e46884aeaca1d7d75d066e6237ff6a53e91573..7c31804ecb55c46af109ad8c4e417e7ff3d45491 100644
--- a/code/sunos-os.lisp
+++ b/code/sunos-os.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.12 2009/03/25 15:28:03 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.13 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
+(intl:textdomain "cmucl-sunos-os")
+
 (export '(get-system-info get-page-size os-init))
 
 (pushnew :sunos *features*)
@@ -24,10 +26,10 @@
 
 (setq *software-type* "SunOS")
 
-(defvar *software-version* nil "Version string for supporting software")
+(defvar *software-version* nil _N"Version string for supporting software")
 
 (defun software-version ()
-  "Returns a string describing version of the supporting software."
+  _N"Returns a string describing version of the supporting software."
   (unless *software-version*
     (setf *software-version*
 	  (multiple-value-bind (sysname nodename release version)
@@ -56,7 +58,7 @@
       (unix:unix-getrusage unix:rusage_self)
     (declare (ignore maxrss ixrss idrss isrss minflt))
     (cond ((null err?)
-	   (error "Unix system call getrusage failed: ~A."
+	   (error _"Unix system call getrusage failed: ~A."
 		  (unix:get-unix-error-msg utime)))
 	  (T
 	   (values utime stime majflt)))))
@@ -82,5 +84,5 @@
   (multiple-value-bind (val err)
 		       (unix:unix-getpagesize)
     (unless val
-      (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
+      (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
     val))
diff --git a/code/symbol.lisp b/code/symbol.lisp
index a9cfd0c0cd88b1872082f9b7568cb058e13e7545..330363266365bc5bf8bcd473a5f72a6519ba88c7 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.41 2009/06/25 13:29:06 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.42 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 ;;; open-coded by the compiler.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(get remprop symbol-plist getf get-properties symbol-name
 	  make-symbol copy-symbol gensym gentemp *gensym-counter*
 	  symbol-package keywordp makunbound symbol-value symbol-function
@@ -31,27 +33,27 @@
 (declaim (maybe-inline get %put getf remprop %putf get-properties keywordp))
 
 (defun symbol-value (variable)
-  "VARIABLE must evaluate to a symbol.  This symbol's current special
+  _N"VARIABLE must evaluate to a symbol.  This symbol's current special
   value is returned."
   (declare (optimize (safety 1)))
   (symbol-value variable))
 
 (defun boundp (variable)
-  "VARIABLE must evaluate to a symbol.  Return NIL if this symbol is
+  _N"VARIABLE must evaluate to a symbol.  Return NIL if this symbol is
   unbound, T if it has a value."
   (boundp variable))
 
 (defun set (variable new-value)
-  "VARIABLE must evaluate to a symbol.  This symbol's special value cell is
+  _N"VARIABLE must evaluate to a symbol.  This symbol's special value cell is
   set to the specified new value."
   (declare (type symbol variable))
   (cond ((null variable)
-	 (simple-program-error "Nihil ex nihil, can't set NIL."))
+	 (simple-program-error _"Nihil ex nihil, can't set NIL."))
 	((eq variable t)
-	 (simple-program-error "Veritas aeterna, can't set T."))
+	 (simple-program-error _"Veritas aeterna, can't set T."))
 	((and (boundp '*keyword-package*)
 	      (keywordp variable))
-	 (simple-program-error "Can't set keywords."))
+	 (simple-program-error _"Can't set keywords."))
 	(t
 	 (%set-symbol-value variable new-value))))
 
@@ -59,14 +61,14 @@
   (%set-symbol-value symbol new-value))
 
 (defun makunbound (variable)
-  "VARIABLE must evaluate to a symbol.  This symbol is made unbound,
+  _N"VARIABLE must evaluate to a symbol.  This symbol is made unbound,
   removing any value it may currently have."
   (set variable
        (%primitive make-other-immediate-type 0 vm:unbound-marker-type))
   variable)
 
 (defun symbol-function (variable)
-  "VARIABLE must evaluate to a symbol.  This symbol's current definition
+  _N"VARIABLE must evaluate to a symbol.  This symbol's current definition
    is returned.  Settable with SETF."
   (raw-definition variable))
 
@@ -76,18 +78,18 @@
 
 
 (defun symbol-plist (variable)
-  "VARIABLE must evaluate to a symbol.  Return its property list."
+  _N"VARIABLE must evaluate to a symbol.  Return its property list."
   (symbol-plist variable))
 
 (defun %set-symbol-plist (symbol new-value)
   (setf (symbol-plist symbol) new-value))
 
 (defun symbol-name (variable)
-  "VARIABLE must evaluate to a symbol.  Return its print name."
+  _N"VARIABLE must evaluate to a symbol.  Return its print name."
   (symbol-name variable))
 
 (defun symbol-package (variable)
-  "VARIABLE must evaluate to a symbol.  Return its package."
+  _N"VARIABLE must evaluate to a symbol.  Return its package."
   (symbol-package variable))
 
 (defun %set-symbol-package (symbol package)
@@ -95,7 +97,7 @@
   (%set-symbol-package symbol package))
 
 (defun make-symbol (string)
-  "Make and return a new symbol with the STRING as its print name."
+  _N"Make and return a new symbol with the STRING as its print name."
   #-(or gengc x86 amd64 sparc ppc) (make-symbol string)
   #+gengc (%make-symbol (random most-positive-fixnum) string)
   ;; Initialize the symbol-hash to -1 to make this fast.  It will get
@@ -104,7 +106,7 @@
 
 #+(or gengc x86 amd64 sparc ppc)
 (defun symbol-hash (symbol)
-  "Return the hash value for symbol."
+  _N"Return the hash value for symbol."
   (symbol-hash symbol))
 
 #+(or sparc ppc)
@@ -112,18 +114,18 @@
   (kernel::%set-symbol-hash symbol hash))
 
 (defun get (symbol indicator &optional (default nil))
-  "Look on the property list of SYMBOL for the specified INDICATOR.  If this
+  _N"Look on the property list of SYMBOL for the specified INDICATOR.  If this
   is found, return the associated value, else return DEFAULT."
   (do ((pl (symbol-plist symbol) (cddr pl)))
       ((atom pl) default)
     (cond ((atom (cdr pl))
 	   (simple-program-error
-	    "~S has an odd number of items in its property list." symbol))
+	    _"~S has an odd number of items in its property list." symbol))
 	  ((eq (car pl) indicator)
 	   (return (cadr pl))))))
 
 (defun %put (symbol indicator value)
-  "The VALUE is added as a property of SYMBOL under the specified INDICATOR.
+  _N"The VALUE is added as a property of SYMBOL under the specified INDICATOR.
   Returns VALUE."
   (do ((pl (symbol-plist symbol) (cddr pl)))
       ((endp pl)
@@ -132,13 +134,13 @@
        value)
     (cond ((endp (cdr pl))
 	   (simple-program-error
-	    "~S has an odd number of items in its property list." symbol))
+	    _"~S has an odd number of items in its property list." symbol))
 	  ((eq (car pl) indicator)
 	   (rplaca (cdr pl) value)
 	   (return value)))))
 
 (defun remprop (symbol indicator)
-  "Look on property list of SYMBOL for property with specified
+  _N"Look on property list of SYMBOL for property with specified
   INDICATOR.  If found, splice this indicator and its value out of
   the plist, and return the tail of the original list starting with
   INDICATOR.  If not found, return () with no side effects.
@@ -150,7 +152,7 @@
       ((atom pl) nil)
     (cond ((atom (cdr pl))
 	   (simple-program-error
-	    "~S has an odd number of items in its property list." symbol))
+	    _"~S has an odd number of items in its property list." symbol))
 	  ((eq (car pl) indicator)
 	   (cond (prev (rplacd (cdr prev) (cddr pl)))
 		 (t
@@ -162,7 +164,7 @@
     (and result (evenp result))))
 
 (defun getf (place indicator &optional (default ()))
-  "Searches the property list stored in Place for an indicator EQ to Indicator.
+  _N"Searches the property list stored in Place for an indicator EQ to Indicator.
   If one is found, the corresponding value is returned, else the Default is
   returned."
   (do ((plist place (cddr plist)))
@@ -171,7 +173,7 @@
 	   (error 'simple-type-error
 		  :datum place
 		  :expected-type '(satisfies valid-property-list-p)
-		  :format-control "Malformed property list: ~S"
+		  :format-control _"Malformed property list: ~S"
 		  :format-arguments (list place)))	   
 	  ((eq (car plist) indicator)
 	   (return (cadr plist))))))
@@ -187,7 +189,7 @@
 
 
 (defun get-properties (place indicator-list)
-  "Like GETF, except that Indicator-List is a list of indicators which will
+  _N"Like GETF, except that Indicator-List is a list of indicators which will
   be looked for in the property list stored in Place.  Three values are
   returned, see manual for details."
   (do ((plist place (cddr plist)))
@@ -196,13 +198,13 @@
 	   (error 'simple-type-error
 		  :datum place
 		  :expected-type '(satisfies valid-property-list-p)
-		  :format-control "Malformed property list: ~S"
+		  :format-control _"Malformed property list: ~S"
 		  :format-arguments (list place)))
 	  ((memq (car plist) indicator-list)
 	   (return (values (car plist) (cadr plist) plist))))))
 
 (defun copy-symbol (symbol &optional (copy-props nil) &aux new-symbol)
-  "Make and return a new uninterned symbol with the same print name
+  _N"Make and return a new uninterned symbol with the same print name
   as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound
   nor fbound and has no properties, else it has a copy of SYMBOL's
   function, value and property list."
@@ -218,7 +220,7 @@
 (declaim (special *keyword-package*))
 
 (defun keywordp (object)
-  "Returns true if Object is a symbol in the keyword package."
+  _N"Returns true if Object is a symbol in the keyword package."
   (and (symbolp object)
        (eq (symbol-package object) *keyword-package*)))
 
@@ -226,11 +228,11 @@
 ;;;; Gensym and friends.
 
 (defvar *gensym-counter* 0
-  "Counter for generating unique GENSYM symbols.")
+  _N"Counter for generating unique GENSYM symbols.")
 (declaim (type unsigned-byte *gensym-counter*))
 
 (defun gensym (&optional (thing "G"))
-  "Creates a new uninterned symbol whose name is a prefix string (defaults
+  _N"Creates a new uninterned symbol whose name is a prefix string (defaults
    to \"G\"), followed by a decimal number.  Thing, when supplied, will
    alter the prefix if it is a string, or be used for the decimal number
    if it is a number, of this symbol. The default value of the number is
@@ -259,7 +261,7 @@
 (declaim (type index *gentemp-counter*))
 
 (defun gentemp (&optional (prefix "T") (package *package*))
-  "Creates a new symbol interned in package Package with the given Prefix."
+  _N"Creates a new symbol interned in package Package with the given Prefix."
   (loop
     (let* ((*print-base* 10)
 	   (*print-radix* nil)
diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp
index 13b7a8cd4714ff051a489948d75663bfeae455cb..5a83374312e79aff2a6e464f834e7d6562f4c672 100644
--- a/code/sysmacs.lisp
+++ b/code/sysmacs.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.31 2009/10/18 14:21:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.32 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,15 +14,17 @@
 (in-package "LISP")
 
 (in-package "SYSTEM")
+(intl:textdomain "cmucl")
+
 (export '(without-gcing without-hemlock
 	  register-lisp-feature register-lisp-runtime-feature))
 
 (defmacro register-lisp-feature (feature)
-  "Register the feature as having influenced the CMUCL build process."
+  _N"Register the feature as having influenced the CMUCL build process."
   `(pushnew ,feature *features*))
 
 (defmacro register-lisp-runtime-feature (feature)
-  "Register the feature as having influenced the CMUCL build process,
+  _N"Register the feature as having influenced the CMUCL build process,
 and also the CMUCL C runtime."
   (let ((f (gensym)))
     `(progn
@@ -45,7 +47,7 @@ and also the CMUCL C runtime."
 			    (start-var &optional (svalue 0))
 			    (end-var &optional (evalue nil)))
 			   &rest forms)
-  "Given any Array, binds Data-Var to the array's data vector and Start-Var and
+  _N"Given any Array, binds Data-Var to the array's data vector and Start-Var and
   End-Var to the start and end of the designated portion of the data vector.
   Svalue and Evalue are any start and end specified to the original operation,
   and are factored into the bindings of Start-Var and End-Var.  Offset-Var is
@@ -70,7 +72,7 @@ and also the CMUCL C runtime."
 
 #-gengc
 (defmacro without-gcing (&rest body)
-  "Executes the forms in the body without doing a garbage collection."
+  _N"Executes the forms in the body without doing a garbage collection."
   `(unwind-protect
        (let ((*gc-inhibit* t))
 	 ,@body)
@@ -79,7 +81,7 @@ and also the CMUCL C runtime."
 
 #+gengc
 (defmacro without-gcing (&rest body)
-  "Executes the forms in the body without doing a garbage collection."
+  _N"Executes the forms in the body without doing a garbage collection."
   `(without-interrupts ,@body))
 
 #-no-hemlock
diff --git a/code/time.lisp b/code/time.lisp
index 32fc2b3ed74f9e8780991099ed08101bfadd6f9a..84bb052c94d62386a227608003e8fb5fdedf3fd7 100644
--- a/code/time.lisp
+++ b/code/time.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/time.lisp,v 1.30 2009/08/09 03:54:42 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/time.lisp,v 1.31 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,12 +16,14 @@
 ;;;    Written by Rob MacLachlan.
 ;;;
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export '(internal-time-units-per-second get-internal-real-time
 	  get-internal-run-time get-universal-time
 	  get-decoded-time encode-universal-time decode-universal-time))
 
 (defconstant internal-time-units-per-second 100
-  "The number of internal time units that fit into a second.  See
+  _N"The number of internal time units that fit into a second.  See
   Get-Internal-Real-Time and Get-Internal-Run-Time.")
 
 (defconstant micro-seconds-per-internal-time-unit
@@ -40,7 +42,7 @@
 ;;; Get-Internal-Real-Time  --  Public
 ;;;
 (defun get-internal-real-time ()
-  "Return the real time in the internal time format.  This is useful for
+  _N"Return the real time in the internal time format.  This is useful for
   finding elapsed time.  See Internal-Time-Units-Per-Second."
   (locally (declare (optimize (speed 3) (safety 0)))
     (multiple-value-bind (ignore seconds useconds) (unix:unix-gettimeofday)
@@ -64,7 +66,7 @@
 ;;;
 #-(and sparc svr4)
 (defun get-internal-run-time ()
-  "Return the run time in the internal time format.  This is useful for
+  _N"Return the run time in the internal time format.  This is useful for
   finding CPU usage."
   (declare (values (unsigned-byte 32)))
   (locally (declare (optimize (speed 3) (safety 0)))
@@ -83,7 +85,7 @@
 ;;;
 #+(and sparc svr4)
 (defun get-internal-run-time ()
-  "Return the run time in the internal time format.  This is useful for
+  _N"Return the run time in the internal time format.  This is useful for
   finding CPU usage."
   (declare (values (unsigned-byte 32)))
   (locally (declare (optimize (speed 3) (safety 0)))
@@ -127,21 +129,21 @@
 ;;;
 ;;;
 (defun get-universal-time ()
-  "Returns a single integer for the current time of
+  _N"Returns a single integer for the current time of
    day in universal time format."
   (multiple-value-bind (res secs) (unix:unix-gettimeofday)
     (declare (ignore res))
     (+ secs unix-to-universal-time)))
 
 (defun get-decoded-time ()
-  "Returns nine values specifying the current time as follows:
+  _N"Returns nine values specifying the current time as follows:
    second, minute, hour, date, month, year, day of week (0 = Monday), T
    (daylight savings times) or NIL (standard time), and timezone."
   (decode-universal-time (get-universal-time)))
 
 
 (defun decode-universal-time (universal-time &optional time-zone)
-  "Converts a universal-time to decoded time format returning the following
+  _N"Converts a universal-time to decoded time format returning the following
    nine values: second, minute, hour, date, month, year, day of week (0 =
    Monday), T (daylight savings time) or NIL (standard time), and timezone.
    Completely ignores daylight-savings-time when time-zone is supplied."
@@ -214,7 +216,7 @@
 ;;;
 (defun encode-universal-time (second minute hour date month year
 				     &optional time-zone)
-  "The time values specified in decoded format are converted to 
+  _N"The time values specified in decoded format are converted to 
    universal time, which is returned."
   (declare (type (mod 60) second)
 	   (type (mod 60) minute)
@@ -250,7 +252,7 @@
 ;;;; Time:
 
 (defmacro time (form)
-  "Evaluates the Form and prints timing information on *Trace-Output*."
+  _N"Evaluates the Form and prints timing information on *Trace-Output*."
   `(%time #'(lambda () ,form)))
 
 ;;; MASSAGE-TIME-FUNCTION  --  Internal
@@ -265,7 +267,7 @@
       (declare (ignore def))
       (cond
        (env-p
-	(warn "TIME form in a non-null environment, forced to interpret.~@
+	(warn _"TIME form in a non-null environment, forced to interpret.~@
 	       Compiling entire form will produce more accurate times.")
 	fun)
        (t
@@ -376,25 +378,36 @@
 	  (terpri *trace-output*)
 	  (pprint-logical-block (*trace-output* nil :per-line-prefix "; ")
 	    (format *trace-output*
-		    "Evaluation took:~%  ~
-		     ~S second~:P of real time~%  ~
-		     ~S second~:P of user run time~%  ~
-		     ~S second~:P of system run time~%  ~
-                     ~:D ~A cycles~%  ~
-		     ~@[[Run times include ~S second~:P GC run time]~%  ~]~
-		     ~S page fault~:P and~%  ~
-		     ~:D bytes consed.~%"
+		    _"Evaluation took:~%  ~
+		     ~S seconds of real time~%  ~
+		     ~S seconds of user run time~%  ~
+		     ~S seconds of system run time~%  "
 		    (max (/ (- new-real-time old-real-time)
 			    (float internal-time-units-per-second))
 			 0.0)
 		    (max (/ (- new-run-utime old-run-utime) 1000000.0) 0.0)
-		    (max (/ (- new-run-stime old-run-stime) 1000000.0) 0.0)
+		    (max (/ (- new-run-stime old-run-stime) 1000000.0) 0.0))
+	    (format *trace-output*
+		    (intl:ngettext
+		     "~:D ~A cycle~%  ~
+		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+		     "~:D ~A cycles~%  ~
+		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+		     (truncate cycle-count))
 		    (truncate cycle-count)
 		    "CPU"
 		    (unless (zerop gc-run-time)
 		      (/ (float gc-run-time)
-			 (float internal-time-units-per-second)))
-		    (max (- new-page-faults old-page-faults) 0)
+			 (float internal-time-units-per-second))))
+	    (format *trace-output*
+		    (intl:ngettext "~S page fault and~%  "
+				   "~S page faults and~%  "
+				   (max (- new-page-faults old-page-faults) 0))
+		    (max (- new-page-faults old-page-faults) 0))
+	    (format *trace-output*
+		    (intl:ngettext "~:D byte consed.~%"
+				   "~:D bytes consed.~%"
+				   (max (- bytes-consed (or *time-consing* 0)) 0))
 		    (max (- bytes-consed (or *time-consing* 0)) 0)))
 	  (terpri *trace-output*))
 	(setq *last-time-consing* bytes-consed))))))
diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp
index f9c65c7994e1b3adae82d16ae4286bbd71b07657..32db2edc191991740cef56835781687453e70b6e 100644
--- a/code/tty-inspect.lisp
+++ b/code/tty-inspect.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.24 2005/12/06 15:06:28 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.25 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 
 ;;;
 (in-package "INSPECT")
+(intl:textdomain "cmucl")
 
 ;;; The Tty inspector views LISP objects as being composed of parts.  A list,
 ;;; for example, would be divided into it's members, and a instance into its
@@ -73,7 +74,7 @@
 	(integer
 	 (cond ((< -1 command parts-len-2)
 		(cond ((eq (nth-parts parts command) %illegal-object%)
-		       (format s "~%That slot is unbound.~%"))
+		       (format s _"~%That slot is unbound.~%"))
 		      (t
 		       (push (cons object parts) *tty-object-stack*)
 		       (setf object (nth-parts parts command))
@@ -81,8 +82,8 @@
 		       (tty-display-object parts s))))
 	       (t
 		(if (= parts-len-2 0)
-		    (format s "~%This object contains nothing to inspect.~%~%")
-		    (format s "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
+		    (format s _"~%This object contains nothing to inspect.~%~%")
+		    (format s _"~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
 			    (= parts-len-2 1) (1- parts-len-2))))))
 	(symbol
 	 (case (find-symbol (symbol-name command) (find-package "KEYWORD"))
@@ -94,7 +95,7 @@
 		   (setf parts (cdar *tty-object-stack*))
 		   (pop *tty-object-stack*)
 		   (tty-display-object parts s))
-		  (t (format s "~%Bottom of Stack.~%"))))
+		  (t (format s _"~%Bottom of Stack.~%"))))
 	   (:r
 	    (setf parts (describe-parts object))
 	    (tty-display-object parts s))
@@ -110,7 +111,7 @@
 (defun do-tty-inspect-eval (command stream)
   (let ((result-list (restart-case (multiple-value-list (eval command))
 		       (nil () :report "Return to the TTY-INSPECTOR"
-			  (format stream "~%Returning to INSPECTOR.~%")
+			  (format stream _"~%Returning to INSPECTOR.~%")
 			  (return-from do-tty-inspect-eval nil)))))
     (setf /// // // / / result-list)
     (setf +++ ++ ++ + + - - command)
@@ -119,13 +120,13 @@
 
 (defun show-help (s)
   (terpri)
-  (write-line "TTY-Inspector Help:" s)
-  (write-line "  R           -  recompute current object." s)
-  (write-line "  D           -  redisplay current object." s)
-  (write-line "  U           -  Move upward through the object stack." s)
-  (write-line "  <number>    -  Inspect this slot." s)
-  (write-line "  Q, E        -  Quit TTY-INSPECTOR." s)
-  (write-line "  ?, H, Help  -  Show this help." s))
+  (write-line _"TTY-Inspector Help:" s)
+  (write-line _"  R           -  recompute current object." s)
+  (write-line _"  D           -  redisplay current object." s)
+  (write-line _"  U           -  Move upward through the object stack." s)
+  (write-line _"  <number>    -  Inspect this slot." s)
+  (write-line _"  Q, E        -  Quit TTY-INSPECTOR." s)
+  (write-line _"  ?, H, Help  -  Show this help." s))
 
 (defun tty-display-object (parts stream)
   (format stream "~%~a" (car parts))
@@ -137,7 +138,7 @@
       (if numbered-parts-p
 	  (format stream "~d. ~a: ~a~%" i (caar part)
 		  (if (eq (cdar part) %illegal-object%)
-		      "Unbound"
+		      _"Unbound"
 		      (cdar part)))
 	  (format stream "~d. ~a~%" i (car part))))))
 
@@ -167,31 +168,31 @@
 	 (describe-atomic-parts object))))
 
 (defun describe-symbol-parts (object)
-  (list (format nil "~s is a symbol.~%" object) t
-	(cons "Value" (if (boundp object)
+  (list (format nil _"~s is a symbol.~%" object) t
+	(cons _"Value" (if (boundp object)
 			  (symbol-value object)
 			  %illegal-object%))
-	(cons "Function" (if (fboundp object)
+	(cons _"Function" (if (fboundp object)
 			     (symbol-function object)
 			     %illegal-object%))
-	(cons "Plist" (symbol-plist object))
-	(cons "Package" (symbol-package object))))
+	(cons _"Plist" (symbol-plist object))
+	(cons _"Package" (symbol-package object))))
 
 (defun describe-standard-object-parts (object)
   (collect ((parts))
     (let ((class (class-of object)))
-      (parts (format nil "~s is an instance of ~s.~%" object class))
+      (parts (format nil _"~s is an instance of ~s.~%" object class))
       (parts t)
       (dolist (slot (pcl::class-slots class) (parts))
 	(parts (cons (pcl::slot-definition-name slot)
 		     (if (pcl::slot-boundp-using-class class object slot)
 			 (pcl::slot-value-using-class class object slot)
-			 "- (slot is unbound)")))))))
+			 _"- (slot is unbound)")))))))
 
 (defun describe-instance-parts (object kind)
   (let ((info (layout-info (kernel:layout-of object)))
 	(parts-list ()))
-    (push (format nil "~s is a ~(~A~).~%" object kind) parts-list)
+    (push (format nil _"~s is a ~(~A~).~%" object kind) parts-list)
     (push t parts-list)
     (when (kernel::defstruct-description-p info)
       (dolist (dd-slot (dd-slots info) (nreverse parts-list))
@@ -204,14 +205,14 @@
 	 (object (if (= type vm:closure-header-type)
 		     (kernel:%closure-function object)
 		     object)))
-    (list (format nil "Function ~s.~@[~%Argument List: ~a~]." object
+    (list (format nil _"Function ~s.~@[~%Argument List: ~a~]." object
 		  (kernel:%function-arglist object)
 		  ;; Defined from stuff used to be here.  Someone took it out.
 		  )
 	  t)))
 
 (defun describe-vector-parts (object)
-  (list* (format nil "Object is a ~:[~;displaced ~]vector of length ~d.~%"
+  (list* (format nil _"Object is a ~:[~;displaced ~]vector of length ~d.~%"
 		 (and (lisp::array-header-p object)
 		      (lisp::%array-displaced-p object))
 		 (length object))
@@ -220,10 +221,10 @@
 
 (defun describe-cons-parts (object)
   (if (listp (cdr object))
-      (list* (format nil "Object is a LIST of length ~d.~%" (length object))
+      (list* (format nil _"Object is a LIST of length ~d.~%" (length object))
 	     nil
 	     object)
-      (list (format nil "Object is a CONS.~%") t
+      (list (format nil _"Object is a CONS.~%") t
 	    (cons "Car" (car object))
 	    (cons "Cdr" (cdr object)))))
 
@@ -248,7 +249,7 @@
 				      (array-element-type object)))
 	 (dimensions (array-dimensions object))
 	 (parts ()))
-    (push (format nil "Object is ~:[a displaced~;an~] array of ~a.~%~
+    (push (format nil _"Object is ~:[a displaced~;an~] array of ~a.~%~
                        Its dimensions are ~s.~%"
 		  (array-element-type object)
 		  (and (lisp::array-header-p object)
@@ -262,4 +263,4 @@
 	    parts))))
 
 (defun describe-atomic-parts (object)
-  (list (format nil "Object is an atom.~%") nil object))
+  (list (format nil _"Object is an atom.~%") nil object))
diff --git a/code/type-boot.lisp b/code/type-boot.lisp
index 62628c2c89ea3c16f1d5af3016d589ae1d19e553..a36d5c60352d423016e5aea767863ab9f095a366 100644
--- a/code/type-boot.lisp
+++ b/code/type-boot.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type-boot.lisp,v 1.9 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type-boot.lisp,v 1.10 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -13,6 +13,7 @@
 ;;; enough so that we can define the types used to define types.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (deftype inlinep ()
   '(member :inline :maybe-inline :notinline nil))
diff --git a/code/type-init.lisp b/code/type-init.lisp
index e5852a86051507adb1939e17a2ae8a8f7cd87342..8c7f582b95bb29ad501e5957be02ba8ba3e9fa8b 100644
--- a/code/type-init.lisp
+++ b/code/type-init.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type-init.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type-init.lisp,v 1.4 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
 
 (export '*null-type*)
 
diff --git a/code/type.lisp b/code/type.lisp
index ded424a80262f5bb90078ffea5caad85d87b3aae..84f6baf43e517165a671bff5083397029b60b328 100644
--- a/code/type.lisp
+++ b/code/type.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.81 2009/03/20 14:54:28 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.82 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,8 @@
 (in-package "KERNEL")
 (use-package "ALIEN-INTERNALS")
 
+(intl:textdomain "cmucl")
+
 (export '(function-type-nargs code-component code-component-p lra lra-p))
 (export '(make-alien-type-type alien-type-type
 	  alien-type-type-p alien-type-type-alien-type
@@ -365,7 +367,7 @@
 
 ;;;
 (defvar *use-implementation-types* t
-  "*Use-Implementation-Types* is a semi-public flag which determines how
+  _N"*Use-Implementation-Types* is a semi-public flag which determines how
    restrictive we are in determining type membership.  If two types are the
    same in the implementation, then we will consider them them the same when
    this switch is on.  When it is off, we try to be as restrictive as the
@@ -540,12 +542,12 @@
 (define-type-method (values :simple-subtypep :complex-subtypep-arg1)
     (type1 type2)
   (declare (ignore type2))
-  (error "Subtypep is illegal on this type:~%  ~S" (type-specifier type1)))
+  (error _"Subtypep is illegal on this type:~%  ~S" (type-specifier type1)))
 
 (define-type-method (values :complex-subtypep-arg2)
     (type1 type2)
   (declare (ignore type1))
-  (error "Subtypep is illegal on this type:~%  ~S" (type-specifier type2)))
+  (error _"Subtypep is illegal on this type:~%  ~S" (type-specifier type2)))
 
 (define-type-method (values :unparse) (type)
   (cons 'values (unparse-args-types type)))
@@ -702,7 +704,7 @@
   (multiple-value-bind (required optional restp rest keyp keys allowp aux)
       (parse-lambda-list lambda-list)
     (when aux
-      (simple-program-error "&Aux in a FUNCTION or VALUES type: ~S."
+      (simple-program-error _"&Aux in a FUNCTION or VALUES type: ~S."
                             lambda-list))
     (setf (args-type-required result)
 	  (mapcar #'single-value-specifier-type required))
@@ -715,10 +717,10 @@
       (dolist (key keys)
 	(when (or (atom key) (/= (length key) 2))
 	  (simple-program-error
-	   "Keyword type description is not a two-list: ~S." key))
+	   _"Keyword type description is not a two-list: ~S." key))
 	(let ((kwd (first key)))
 	  (when (find kwd (key-info) :key #'key-info-name)
-	    (simple-program-error "Repeated keyword ~S in lambda list: ~S."
+	    (simple-program-error _"Repeated keyword ~S in lambda list: ~S."
                                   kwd lambda-list))
 	  (key-info (make-key-info
 		     :name kwd
@@ -773,7 +775,7 @@
     ;; Actually, CLHS lists &ALLOW-OTHER-KEYS without listing &KEYS,
     ;; but keys clearly don't make any sense.
     (when (or (values-type-keyp res) (values-type-allowp res))
-      (simple-program-error "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+      (simple-program-error _"&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
 			    res))
     res))
 
@@ -1155,7 +1157,7 @@
 	
 
 (defparameter *union-length-threshold* 50
-  "The maximum length of a union of integer types before we take a
+  _N"The maximum length of a union of integer types before we take a
   short cut and return a simpler union.")
 	    
 (defun simplify-unions (types)
@@ -1405,7 +1407,7 @@
 		   (return-from values-specifier-type
 				(make-unknown-type :specifier spec)))
 		  (t
-		   (simple-program-error "Bad thing to be a type specifier: ~S."
+		   (simple-program-error _"Bad thing to be a type specifier: ~S."
                                          spec)))))))))
 
 ;;; SPECIFIER-TYPE  --  Interface
@@ -1416,7 +1418,7 @@
 (defun specifier-type (x)
   (let ((res (values-specifier-type x)))
     (when (values-type-p res)
-      (simple-program-error "VALUES type illegal in this context:~%  ~S" x))
+      (simple-program-error _"VALUES type illegal in this context:~%  ~S" x))
     res))
 
 (defun single-value-specifier-type (x)
@@ -1624,7 +1626,7 @@
       (error 'simple-type-error
 	     :datum predicate-name
 	     :expected-type 'symbol
-	     :format-control "The SATISFIES predicate name is not a symbol: ~S"
+	     :format-control _"The SATISFIES predicate name is not a symbol: ~S"
 	     :format-arguments (list predicate-name))))
   ;; Create object.
   (make-hairy-type :specifier whole))
@@ -1896,7 +1898,7 @@
 	    *universal-type*
 	    (specifier-type `(not ,(type-specifier
 				    (cons-type-cdr-type not-type))))))
-	  (t (error "Weird CONS type ~S" not-type)))))
+	  (t (error _"Weird CONS type ~S" not-type)))))
       (t (make-negation-type :type not-type)))))
 
 
@@ -2187,10 +2189,10 @@
 
 (def-type-translator complex (&optional (typespec '*))
   (labels ((not-numeric ()
-	     (error "The component type for COMPLEX is not numeric: ~S"
+	     (error _"The component type for COMPLEX is not numeric: ~S"
 		    typespec))
 	   (not-real ()
-	     (error "The component type for COMPLEX is not real: ~S"
+	     (error _"The component type for COMPLEX is not real: ~S"
 		    typespec))
 	   (complex1 (component-type)
 	     (unless (numeric-type-p component-type)
@@ -2219,7 +2221,7 @@
 	     ;; It's not clear how best to fix this. -- WHN 2002-01-21,
 	     ;; trying to summarize CSR's concerns in his patch
 	     (typecase component
-	       (complex (error "The component type for COMPLEX (EQL X) ~
+	       (complex (error _"The component type for COMPLEX (EQL X) ~
                                     is complex: ~S"
 			       component))
 	       ((eql 0) (specifier-type nil)) ; as required by ANSI
@@ -2278,7 +2280,7 @@
 	       ;; an intersection type like (AND REAL (SATISFIES ODDP)),
 	       ;; in which case we fall through the logic above and
 	       ;; end up here, stumped.
-	       (error "~@<(known bug #145): The type ~S is too hairy to be 
+	       (error _"~@<(known bug #145): The type ~S is too hairy to be 
                          used for a COMPLEX component.~:@>"
 		      typespec))))))))
 
@@ -2293,7 +2295,7 @@
 	      (and (consp ,x) (typep (car ,x) ',type) (null (cdr ,x))))
 	  ,x)
 	 (t
-	  (simple-program-error "Bound is not *, a ~A or a list of a ~A: ~S"
+	  (simple-program-error _"Bound is not *, a ~A or a list of a ~A: ~S"
 	                        ',type ',type ,x))))
 
 (def-type-translator integer (&optional low high)
@@ -2327,7 +2329,7 @@
 
 (deftype mod (n)
   (unless (and (integerp n) (> n 0))
-    (simple-program-error "Bad N specified for MOD type specifier: ~S." n))
+    (simple-program-error _"Bad N specified for MOD type specifier: ~S." n))
   `(integer 0 ,(1- n)))
 
 (deftype signed-byte (&optional s)
@@ -2337,7 +2339,7 @@
 	   `(integer ,(- bound) ,(1- bound))))
 	(t
 	 (simple-program-error 
-	  "Bad size specified for SIGNED-BYTE type specifier: ~S." s))))
+	  _"Bad size specified for SIGNED-BYTE type specifier: ~S." s))))
 
 (deftype unsigned-byte (&optional s)
   (cond ((eq s '*) '(integer 0))
@@ -2345,7 +2347,7 @@
 	 `(integer 0 ,(1- (ash 1 s))))
 	(t
 	 (simple-program-error 
-	  "Bad size specified for UNSIGNED-BYTE type specifier: ~S." s))))
+	  _"Bad size specified for UNSIGNED-BYTE type specifier: ~S." s))))
 
 
 ;;; Unlike CMU CL, we represent the types FLOAT and REAL as
@@ -2577,7 +2579,7 @@
 ;;;
 (defun float-format-max (f1 f2)
   (when (and f1 f2)
-    (dolist (f float-formats (error "Bad float format: ~S." f1))
+    (dolist (f float-formats (error _"Bad float format: ~S." f1))
       (when (or (eq f f1) (eq f f2))
 	(return f)))))
 
@@ -2829,22 +2831,22 @@
     (integer
      (when (minusp dims)
        (simple-program-error
-        "Arrays can't have a negative number of dimensions: ~D." dims))
+        _"Arrays can't have a negative number of dimensions: ~D." dims))
      (when (>= dims array-rank-limit)
-       (simple-program-error "Array type has too many dimensions: ~S." dims))
+       (simple-program-error _"Array type has too many dimensions: ~S." dims))
      (make-list dims :initial-element '*))
     (list
      (when (>= (length dims) array-rank-limit)
-       (simple-program-error "Array type has too many dimensions: ~S." dims))
+       (simple-program-error _"Array type has too many dimensions: ~S." dims))
      (dolist (dim dims)
        (unless (eq dim '*)
 	 (unless (and (integerp dim)
 		      (>= dim 0) (< dim array-dimension-limit))
-	   (simple-program-error "Bad dimension in array type: ~S." dim))))
+	   (simple-program-error _"Bad dimension in array type: ~S." dim))))
      dims)
     (t
      (simple-program-error
-      "Array dimensions is not a list, integer or *:~%  ~S" dims))))
+      _"Array dimensions is not a list, integer or *:~%  ~S" dims))))
 
 (def-type-translator array (&optional (element-type '*) (dimensions '*))
   (specialize-array-type
@@ -3507,11 +3509,11 @@
 (deftype atom () '(not cons))
 
 (deftype extended-char ()
-  "Type of characters that aren't base-char's.  None in CMU CL."
+  _N"Type of characters that aren't base-char's.  None in CMU CL."
   '(and character (not base-char)))
 
 (deftype standard-char ()
-  "Type corresponding to the charaters required by the standard."
+  _N"Type corresponding to the charaters required by the standard."
   '(member #\NEWLINE #\SPACE #\! #\" #\# #\$ #\% #\& #\' #\( #\) #\* #\+ #\,
 	   #\- #\. #\/ #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\: #\; #\< #\=
 	   #\> #\?  #\@ #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M
@@ -3521,7 +3523,7 @@
 	   #\| #\} #\~))
 
 (deftype keyword ()
-  "Type for any keyword symbol."
+  _N"Type for any keyword symbol."
   '(and symbol (satisfies keywordp)))
 
 (deftype eql (n) `(member ,n))
diff --git a/code/typedefs.lisp b/code/typedefs.lisp
index 321ca4aae24bb98737b823b6342b8057d89def07..65c7ddb6748ec56e7bf287694e529f953ab0374e 100644
--- a/code/typedefs.lisp
+++ b/code/typedefs.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/typedefs.lisp,v 1.14 2006/06/30 18:41:22 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/typedefs.lisp,v 1.15 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
+
 (export '(ctype typedef-init))
 
 ;;; These are the Common Lisp defined type specifier symbols.  These are the
@@ -59,7 +61,7 @@
 (eval-when (compile load eval)
 
 (defparameter cold-type-init-forms nil
-  "Forms that must happen before top level forms are run.")
+  _N"Forms that must happen before top level forms are run.")
 
 (defmacro with-cold-load-init-forms ()
   '(eval-when (compile eval)
@@ -70,7 +72,7 @@
       (let ((when (cadar forms))
 	    (eval-when-forms (cddar forms)))
 	(unless (= (length forms) 1)
-	  (warn "Can't cold-load-init other forms along with an eval-when."))
+	  (warn _"Can't cold-load-init other forms along with an eval-when."))
 	(when (member 'load when)
 	  (setf cold-type-init-forms
 		(nconc cold-type-init-forms (copy-list eval-when-forms))))
@@ -122,12 +124,12 @@
 ;;;
 (defun type-class-or-lose (name)
   (or (gethash name *type-classes*)
-      (error "~S is not a defined type class." name)))
+      (error _"~S is not a defined type class." name)))
 
 ;;; MUST-SUPPLY-THIS  --  Interface
 ;;;
 (defun must-supply-this (&rest foo)
-  (error "Missing type method for ~S" foo))
+  (error _"Missing type method for ~S" foo))
 
 
 (defstruct (type-class
@@ -223,7 +225,7 @@
 ;;;
 (defun class-function-slot-or-lose (name)
   (or (cdr (assoc name type-class-function-slots))
-      (error "~S is not a defined type class method." name)))
+      (error _"~S is not a defined type class method." name)))
 
 ); Eval-When (Compile Load Eval)
 
@@ -232,7 +234,7 @@
 ;;;
 (defmacro define-type-method ((class method &rest more-methods)
 			      lambda-list &body body)
-  "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
+  _N"DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
   (let ((name (symbolicate CLASS "-" method "-TYPE-METHOD")))
     `(progn
        (defun ,name ,lambda-list ,@body)
@@ -248,7 +250,7 @@
 ;;; DEFINE-TYPE-CLASS  --  Interface
 ;;;
 (defmacro define-type-class (name &optional inherits)
-  "DEFINE-TYPE-CLASS Name [Inherits]"
+  _N"DEFINE-TYPE-CLASS Name [Inherits]"
   `(cold-load-init
      ,(once-only ((n-class (if inherits
 			       `(copy-type-class (type-class-or-lose ',inherits))
diff --git a/code/unidata.lisp b/code/unidata.lisp
index 546b18efd2aa385364c3846a8a822bee9cb4b1a3..bc667b3d25a7bb2f5951cdb9d9735be7e127e06c 100644
--- a/code/unidata.lisp
+++ b/code/unidata.lisp
@@ -4,17 +4,18 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;; 
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.6 2009/09/11 16:22:35 rtoy Rel $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.7 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Unicode Database access
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (defconstant +unidata-path+ #p"ext-formats:unidata.bin")
 
-(defvar *unidata-version* "$Revision: 1.6 $")
+(defvar *unidata-version* "$Revision: 1.7 $")
 
 (defstruct unidata
   range
@@ -407,14 +408,14 @@
 	     (logior (ash (read16 stm) 16) (read16 stm))))
     (unless (and (= (read32 stream) +unicode-magic-number+)
 		 (= (read-byte stream) +unicode-format-version+))
-      (error "The Unicode data file is broken."))
+      (error _"The Unicode data file is broken."))
     (let ((a (read-byte stream))
 	  (b (read-byte stream))
 	  (c (read-byte stream)))
       (unless (and (= a +unicode-major-version+)
 		   (= b +unicode-minor-version+)
 		   (= c +unicode-update-version+))
-	(warn "Unicode data file is for Unicode ~D.~D.~D" a b c)))
+	(warn _"Unicode data file is for Unicode ~D.~D.~D" a b c)))
     (dotimes (i index)
       (when (zerop (read32 stream))
 	(return-from unidata-locate nil)))
@@ -446,7 +447,7 @@
        (with-open-file (,stm +unidata-path+ :direction :input
 			     :element-type '(unsigned-byte 8))
 	 (unless (unidata-locate ,stm ,locn)
-	   (error "No data in file."))
+	   (error _"No data in file."))
 	 ,@body))))
 
 (defloader load-range (stm 0)
diff --git a/code/unix-glibc2.lisp b/code/unix-glibc2.lisp
index ca7ed7ce01ec61af7f8cdefe23a842b3878ce162..f5a45cf3b6e29ba44d60e8eac14a6f730b4b1949 100644
--- a/code/unix-glibc2.lisp
+++ b/code/unix-glibc2.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.52 2009/12/07 01:48:27 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.53 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -58,6 +58,7 @@
 (use-package "C-CALL")
 (use-package "SYSTEM")
 (use-package "EXT")
+(intl:textdomain "cmucl-unix-glibc2")
 
 ;; Check the G_BROKEN_FILENAMES environment variable; if set the encoding
 ;; is locale-dependent...else use :utf-8 on Unicode Lisps.  On 8 bit Lisps
@@ -360,13 +361,13 @@
 ;;; GET-UNIX-ERROR-MSG -- public.
 ;;; 
 (defun get-unix-error-msg (&optional (error-number (unix-errno)))
-  "Returns a string describing the error number which was returned by a
+  _N"Returns a string describing the error number which was returned by a
   UNIX system call."
   (declare (type integer error-number))
   
   (if (array-in-bounds-p *unix-errors* error-number)
       (svref *unix-errors* error-number)
-      (format nil "Unknown error [~d]" error-number)))
+      (format nil _"Unknown error [~d]" error-number)))
 
 (defmacro syscall ((name &rest arg-types) success-form &rest args)
   `(let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
@@ -383,7 +384,7 @@
   `(let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
 				,@args)))
      (if (minusp result)
-	 (error "Syscall ~A failed: ~A" ,name (get-unix-error-msg))
+	 (error _"Syscall ~A failed: ~A" ,name (get-unix-error-msg))
 	 ,success-form)))
 
 (defmacro void-syscall ((name &rest arg-types) &rest args)
@@ -397,7 +398,7 @@
 ;;; Unix-rename accepts two files names and renames the first to the second.
 
 (defun unix-rename (name1 name2)
-  "Unix-rename renames the file with string name1 to the string
+  _N"Unix-rename renames the file with string name1 to the string
    name2.  NIL and an error code is returned if an error occured."
   (declare (type unix-pathname name1 name2))
   (void-syscall ("rename" c-string c-string)
@@ -537,13 +538,13 @@
 ;;;
 ;;; POSIX Standard: 6.5 File Control Operations	<fcntl.h>
 
-(defconstant r_ok 4 "Test for read permission")
-(defconstant w_ok 2 "Test for write permission")
-(defconstant x_ok 1 "Test for execute permission")
-(defconstant f_ok 0 "Test for presence of file")
+(defconstant r_ok 4 _N"Test for read permission")
+(defconstant w_ok 2 _N"Test for write permission")
+(defconstant x_ok 1 _N"Test for execute permission")
+(defconstant f_ok 0 _N"Test for presence of file")
 
 (defun unix-fcntl (fd cmd arg)
-  "Unix-fcntl manipulates file descriptors accoridng to the
+  _N"Unix-fcntl manipulates file descriptors accoridng to the
    argument CMD which can be one of the following:
 
    F-DUPFD         Duplicate a file descriptor.
@@ -569,7 +570,7 @@
   (int-syscall ("fcntl" int unsigned-int unsigned-int) fd cmd arg))
 
 (defun unix-open (path flags mode)
-  "Unix-open opens the file whose pathname is specified by PATH
+  _N"Unix-open opens the file whose pathname is specified by PATH
    for reading and/or writing as specified by the FLAGS argument.
    Returns an integer file descriptor.
    The flags argument can be:
@@ -594,7 +595,7 @@
   (int-syscall ("open64" c-string int int) (%name->file path) flags mode))
 
 (defun unix-getdtablesize ()
-  "Unix-getdtablesize returns the maximum size of the file descriptor
+  _N"Unix-getdtablesize returns the maximum size of the file descriptor
    table. (i.e. the maximum number of descriptors that can exist at
    one time.)"
   (int-syscall ("getdtablesize")))
@@ -603,7 +604,7 @@
 ;;; associated with it.
 
 (defun unix-close (fd)
-  "Unix-close takes an integer file descriptor as an argument and
+  _N"Unix-close takes an integer file descriptor as an argument and
    closes the file associated with it.  T is returned upon successful
    completion, otherwise NIL and an error number."
   (declare (type unix-fd fd))
@@ -613,7 +614,7 @@
 ;;; with name and sets it mode to mode (as for chmod).
 
 (defun unix-creat (name mode)
-  "Unix-creat accepts a file name and a mode (same as those for
+  _N"Unix-creat accepts a file name and a mode (same as those for
    unix-chmod) and creates a file by that name with the specified
    permission mode.  It returns a file descriptor on success,
    or NIL and an error  number otherwise.
@@ -626,84 +627,84 @@
 
 ;;; fcntlbits.h
 
-(defconstant o_read    o_rdonly "Open for reading")
-(defconstant o_write   o_wronly "Open for writing")
+(defconstant o_read    o_rdonly _N"Open for reading")
+(defconstant o_write   o_wronly _N"Open for writing")
 
-(defconstant o_rdonly  0 "Read-only flag.") 
-(defconstant o_wronly  1 "Write-only flag.")
-(defconstant o_rdwr    2 "Read-write flag.")
-(defconstant o_accmode 3 "Access mode mask.")
+(defconstant o_rdonly  0 _N"Read-only flag.") 
+(defconstant o_wronly  1 _N"Write-only flag.")
+(defconstant o_rdwr    2 _N"Read-write flag.")
+(defconstant o_accmode 3 _N"Access mode mask.")
 
 #-alpha
 (progn
-  (defconstant o_creat   #o100 "Create if nonexistant flag. (not fcntl)") 
-  (defconstant o_excl    #o200 "Error if already exists. (not fcntl)")
-  (defconstant o_noctty  #o400 "Don't assign controlling tty. (not fcntl)")
-  (defconstant o_trunc   #o1000 "Truncate flag. (not fcntl)")
-  (defconstant o_append  #o2000 "Append flag.")
-  (defconstant o_ndelay  #o4000 "Non-blocking I/O")
-  (defconstant o_nonblock #o4000 "Non-blocking I/O")
+  (defconstant o_creat   #o100 _N"Create if nonexistant flag. (not fcntl)") 
+  (defconstant o_excl    #o200 _N"Error if already exists. (not fcntl)")
+  (defconstant o_noctty  #o400 _N"Don't assign controlling tty. (not fcntl)")
+  (defconstant o_trunc   #o1000 _N"Truncate flag. (not fcntl)")
+  (defconstant o_append  #o2000 _N"Append flag.")
+  (defconstant o_ndelay  #o4000 _N"Non-blocking I/O")
+  (defconstant o_nonblock #o4000 _N"Non-blocking I/O")
   (defconstant o_ndelay  o_nonblock)
-  (defconstant o_sync    #o10000 "Synchronous writes (on ext2)")
+  (defconstant o_sync    #o10000 _N"Synchronous writes (on ext2)")
   (defconstant o_fsync    o_sync)
-  (defconstant o_async   #o20000 "Asynchronous I/O"))
+  (defconstant o_async   #o20000 _N"Asynchronous I/O"))
 #+alpha
 (progn
-  (defconstant o_creat   #o1000 "Create if nonexistant flag. (not fcntl)") 
-  (defconstant o_trunc   #o2000 "Truncate flag. (not fcntl)")
-  (defconstant o_excl    #o4000 "Error if already exists. (not fcntl)")
-  (defconstant o_noctty  #o10000 "Don't assign controlling tty. (not fcntl)")
-  (defconstant o_nonblock #o4 "Non-blocking I/O")
-  (defconstant o_append  #o10 "Append flag.")
+  (defconstant o_creat   #o1000 _N"Create if nonexistant flag. (not fcntl)") 
+  (defconstant o_trunc   #o2000 _N"Truncate flag. (not fcntl)")
+  (defconstant o_excl    #o4000 _N"Error if already exists. (not fcntl)")
+  (defconstant o_noctty  #o10000 _N"Don't assign controlling tty. (not fcntl)")
+  (defconstant o_nonblock #o4 _N"Non-blocking I/O")
+  (defconstant o_append  #o10 _N"Append flag.")
   (defconstant o_ndelay  o_nonblock)
-  (defconstant o_sync    #o40000 "Synchronous writes (on ext2)")
+  (defconstant o_sync    #o40000 _N"Synchronous writes (on ext2)")
   (defconstant o_fsync    o_sync)
-  (defconstant o_async   #o20000 "Asynchronous I/O"))
+  (defconstant o_async   #o20000 _N"Asynchronous I/O"))
 
-(defconstant f-dupfd    0  "Duplicate a file descriptor")
-(defconstant f-getfd    1  "Get file desc. flags")
-(defconstant f-setfd    2  "Set file desc. flags")
-(defconstant f-getfl    3  "Get file flags")
-(defconstant f-setfl    4  "Set file flags")
+(defconstant f-dupfd    0  _N"Duplicate a file descriptor")
+(defconstant f-getfd    1  _N"Get file desc. flags")
+(defconstant f-setfd    2  _N"Set file desc. flags")
+(defconstant f-getfl    3  _N"Get file flags")
+(defconstant f-setfl    4  _N"Set file flags")
 
 #-alpha
 (progn
-  (defconstant f-getlk    5   "Get lock")
-  (defconstant f-setlk    6   "Set lock")
-  (defconstant f-setlkw   7   "Set lock, wait for release")
-  (defconstant f-setown   8  "Set owner (for sockets)")
-  (defconstant f-getown   9  "Get owner (for sockets)"))
+  (defconstant f-getlk    5   _N"Get lock")
+  (defconstant f-setlk    6   _N"Set lock")
+  (defconstant f-setlkw   7   _N"Set lock, wait for release")
+  (defconstant f-setown   8  _N"Set owner (for sockets)")
+  (defconstant f-getown   9  _N"Get owner (for sockets)"))
 #+alpha
 (progn
-  (defconstant f-getlk    7   "Get lock")
-  (defconstant f-setlk    8   "Set lock")
-  (defconstant f-setlkw   9   "Set lock, wait for release")
-  (defconstant f-setown   5  "Set owner (for sockets)")
-  (defconstant f-getown   6  "Get owner (for sockets)"))
+  (defconstant f-getlk    7   _N"Get lock")
+  (defconstant f-setlk    8   _N"Set lock")
+  (defconstant f-setlkw   9   _N"Set lock, wait for release")
+  (defconstant f-setown   5  _N"Set owner (for sockets)")
+  (defconstant f-getown   6  _N"Get owner (for sockets)"))
 
 
 
-(defconstant F-CLOEXEC 1 "for f-getfl and f-setfl")
+(defconstant F-CLOEXEC 1 _N"for f-getfl and f-setfl")
 
 #-alpha
 (progn
-  (defconstant F-RDLCK 0 "for fcntl and lockf")
-  (defconstant F-WRLCK 1 "for fcntl and lockf")
-  (defconstant F-UNLCK 2 "for fcntl and lockf")
-  (defconstant F-EXLCK 4 "old bsd flock (depricated)")
-  (defconstant F-SHLCK 8 "old bsd flock (depricated)"))
+  (defconstant F-RDLCK 0 _N"for fcntl and lockf")
+  (defconstant F-WRLCK 1 _N"for fcntl and lockf")
+  (defconstant F-UNLCK 2 _N"for fcntl and lockf")
+  (defconstant F-EXLCK 4 _N"old bsd flock (depricated)")
+  (defconstant F-SHLCK 8 _N"old bsd flock (depricated)"))
 #+alpha
 (progn
-  (defconstant F-RDLCK 1 "for fcntl and lockf")
-  (defconstant F-WRLCK 2 "for fcntl and lockf")
-  (defconstant F-UNLCK 8 "for fcntl and lockf")
-  (defconstant F-EXLCK 16 "old bsd flock (depricated)")
-  (defconstant F-SHLCK 32 "old bsd flock (depricated)"))
+  (defconstant F-RDLCK 1 _N"for fcntl and lockf")
+  (defconstant F-WRLCK 2 _N"for fcntl and lockf")
+  (defconstant F-UNLCK 8 _N"for fcntl and lockf")
+  (defconstant F-EXLCK 16 _N"old bsd flock (depricated)")
+  (defconstant F-SHLCK 32 _N"old bsd flock (depricated)"))
 
-(defconstant F-LOCK-SH 1 "Shared lock for bsd flock")
-(defconstant F-LOCK-EX 2 "Exclusive lock for bsd flock")
-(defconstant F-LOCK-NB 4 "Don't block. Combine with F-LOCK-SH or F-LOCK-EX")
-(defconstant F-LOCK-UN 8 "Remove lock for bsd flock")
+(defconstant F-LOCK-SH 1 _N"Shared lock for bsd flock")
+(defconstant F-LOCK-EX 2 _N"Exclusive lock for bsd flock")
+(defconstant F-LOCK-NB 4 _N"Don't block. Combine with F-LOCK-SH or F-LOCK-EX")
+(defconstant F-LOCK-UN 8 _N"Remove lock for bsd flock")
 
 (def-alien-type nil
     (struct flock
@@ -716,11 +717,11 @@
 ;;; Define some more compatibility macros to be backward compatible with
 ;;; BSD systems which did not managed to hide these kernel macros. 
 
-(defconstant FAPPEND  o_append "depricated stuff")
-(defconstant FFSYNC   o_fsync  "depricated stuff")
-(defconstant FASYNC   o_async  "depricated stuff")
-(defconstant FNONBLOCK  o_nonblock "depricated stuff")
-(defconstant FNDELAY  o_ndelay "depricated stuff")
+(defconstant FAPPEND  o_append _N"depricated stuff")
+(defconstant FFSYNC   o_fsync  _N"depricated stuff")
+(defconstant FASYNC   o_async  _N"depricated stuff")
+(defconstant FNONBLOCK  o_nonblock _N"depricated stuff")
+(defconstant FNDELAY  o_ndelay _N"depricated stuff")
 
 
 ;;; grp.h 
@@ -729,17 +730,17 @@
 
 #+(or)
 (defun unix-setgrend ()
-  "Rewind the group-file stream."
+  _N"Rewind the group-file stream."
   (void-syscall ("setgrend")))
 
 #+(or)
 (defun unix-endgrent ()
-  "Close the group-file stream."
+  _N"Close the group-file stream."
   (void-syscall ("endgrent")))
 
 #+(or)
 (defun unix-getgrent ()
-  "Read an entry from the group-file stream, opening it if necessary."
+  _N"Read an entry from the group-file stream, opening it if necessary."
   
   (let ((result (alien-funcall (extern-alien "getgrent"
 					     (function (* (struct group)))))))
@@ -758,7 +759,7 @@
     (ws-ypixel unsigned-short)))	; veritical size, pixels
 
 (defconstant +NCC+ 8
-  "Size of control character vector.")
+  _N"Size of control character vector.")
 
 (def-alien-type nil
   (struct termio
@@ -968,11 +969,11 @@
 
 
 ;;; Possible values left in `h_errno'.
-(defconstant netdb-internal -1 "See errno.")
-(defconstant netdb-success 0 "No problem.")
-(defconstant host-not-found 1 "Authoritative Answer Host not found.")
-(defconstant try-again 2 "Non-Authoritative Host not found,or SERVERFAIL.")
-(defconstant no-recovery 3 "Non recoverable errors, FORMERR, REFUSED, NOTIMP.")
+(defconstant netdb-internal -1 _N"See errno.")
+(defconstant netdb-success 0 _N"No problem.")
+(defconstant host-not-found 1 _N"Authoritative Answer Host not found.")
+(defconstant try-again 2 _N"Non-Authoritative Host not found,or SERVERFAIL.")
+(defconstant no-recovery 3 _N"Non recoverable errors, FORMERR, REFUSED, NOTIMP.")
 (defconstant no-data 4	"Valid name, no data record of requested type.")
 (defconstant no-address	no-data	"No address, look for MX record.")
 
@@ -988,18 +989,18 @@
 
 #+(or)
 (defun unix-sethostent (stay-open)
-  "Open host data base files and mark them as staying open even after
+  _N"Open host data base files and mark them as staying open even after
 a later search if STAY_OPEN is non-zero."
   (void-syscall ("sethostent" int) stay-open))
 
 #+(or)
 (defun unix-endhostent ()
-  "Close host data base files and clear `stay open' flag."
+  _N"Close host data base files and clear `stay open' flag."
   (void-syscall ("endhostent")))
 
 #+(or)
 (defun unix-gethostent ()
-  "Get next entry from host data base file.  Open data base if
+  _N"Get next entry from host data base file.  Open data base if
 necessary."
     (let ((result (alien-funcall (extern-alien "gethostent"
 					     (function (* (struct hostent)))))))
@@ -1010,7 +1011,7 @@ necessary."
 
 #+(or)
 (defun unix-gethostbyaddr(addr length type)
-  "Return entry from host data base which address match ADDR with
+  _N"Return entry from host data base which address match ADDR with
 length LEN and type TYPE."
     (let ((result (alien-funcall (extern-alien "gethostbyaddr"
 					     (function (* (struct hostent))
@@ -1023,7 +1024,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-gethostbyname (name)
-  "Return entry from host data base for host with NAME."
+  _N"Return entry from host data base for host with NAME."
     (let ((result (alien-funcall (extern-alien "gethostbyname"
 					     (function (* (struct hostent))
 						       c-string))
@@ -1035,7 +1036,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-gethostbyname2 (name af)
-  "Return entry from host data base for host with NAME.  AF must be
+  _N"Return entry from host data base for host with NAME.  AF must be
    set to the address type which as `AF_INET' for IPv4 or `AF_INET6'
    for IPv6."
     (let ((result (alien-funcall (extern-alien "gethostbyname2"
@@ -1060,20 +1061,20 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setnetent (stay-open)
-  "Open network data base files and mark them as staying open even
+  _N"Open network data base files and mark them as staying open even
    after a later search if STAY_OPEN is non-zero."
   (void-syscall ("setnetent" int) stay-open))
 
 
 #+(or)
 (defun unix-endnetent ()
-  "Close network data base files and clear `stay open' flag."
+  _N"Close network data base files and clear `stay open' flag."
   (void-syscall ("endnetent")))
 
 
 #+(or)
 (defun unix-getnetent ()
-  "Get next entry from network data base file.  Open data base if
+  _N"Get next entry from network data base file.  Open data base if
    necessary."
     (let ((result (alien-funcall (extern-alien "getnetent"
 					     (function (* (struct netent)))))))
@@ -1085,7 +1086,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getnetbyaddr (net type)
-  "Return entry from network data base which address match NET and
+  _N"Return entry from network data base which address match NET and
    type TYPE."
     (let ((result (alien-funcall (extern-alien "getnetbyaddr"
 					     (function (* (struct netent))
@@ -1098,7 +1099,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getnetbyname (name)
-  "Return entry from network data base for network with NAME."
+  _N"Return entry from network data base for network with NAME."
     (let ((result (alien-funcall (extern-alien "getnetbyname"
 					     (function (* (struct netent))
 						       c-string))
@@ -1118,19 +1119,19 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setservent (stay-open)
-  "Open service data base files and mark them as staying open even
+  _N"Open service data base files and mark them as staying open even
    after a later search if STAY_OPEN is non-zero."
   (void-syscall ("setservent" int) stay-open))
 
 #+(or)
 (defun unix-endservent (stay-open)
-  "Close service data base files and clear `stay open' flag."
+  _N"Close service data base files and clear `stay open' flag."
   (void-syscall ("endservent")))
 
 
 #+(or)
 (defun unix-getservent ()
-  "Get next entry from service data base file.  Open data base if
+  _N"Get next entry from service data base file.  Open data base if
    necessary."
     (let ((result (alien-funcall (extern-alien "getservent"
 					     (function (* (struct servent)))))))
@@ -1141,7 +1142,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getservbyname (name proto)
-  "Return entry from network data base for network with NAME and
+  _N"Return entry from network data base for network with NAME and
    protocol PROTO."
     (let ((result (alien-funcall (extern-alien "getservbyname"
 					     (function (* (struct netent))
@@ -1154,7 +1155,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getservbyport (port proto)
-  "Return entry from service data base which matches port PORT and
+  _N"Return entry from service data base which matches port PORT and
    protocol PROTO."
     (let ((result (alien-funcall (extern-alien "getservbyport"
 					     (function (* (struct netent))
@@ -1175,18 +1176,18 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setprotoent (stay-open)
-  "Open protocol data base files and mark them as staying open even
+  _N"Open protocol data base files and mark them as staying open even
    after a later search if STAY_OPEN is non-zero."
   (void-syscall ("setprotoent" int) stay-open))
 
 #+(or)
 (defun unix-endprotoent ()
-  "Close protocol data base files and clear `stay open' flag."
+  _N"Close protocol data base files and clear `stay open' flag."
   (void-syscall ("endprotoent")))
 
 #+(or)
 (defun unix-getprotoent ()
-  "Get next entry from protocol data base file.  Open data base if
+  _N"Get next entry from protocol data base file.  Open data base if
    necessary."
     (let ((result (alien-funcall (extern-alien "getprotoent"
 					     (function (* (struct protoent)))))))
@@ -1197,7 +1198,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getprotobyname (name)
-  "Return entry from protocol data base for network with NAME."
+  _N"Return entry from protocol data base for network with NAME."
     (let ((result (alien-funcall (extern-alien "getprotobyname"
 					     (function (* (struct protoent))
 						       c-string))
@@ -1209,7 +1210,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getprotobynumber (proto)
-  "Return entry from protocol data base which number is PROTO."
+  _N"Return entry from protocol data base which number is PROTO."
     (let ((result (alien-funcall (extern-alien "getprotobynumber"
 					     (function (* (struct protoent))
 						       int))
@@ -1221,24 +1222,24 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setnetgrent (netgroup)
-  "Establish network group NETGROUP for enumeration."
+  _N"Establish network group NETGROUP for enumeration."
   (int-syscall ("setservent" c-string) netgroup))
 
 #+(or)
 (defun unix-endnetgrent ()
-  "Free all space allocated by previous `setnetgrent' call."
+  _N"Free all space allocated by previous `setnetgrent' call."
   (void-syscall ("endnetgrent")))
 
 #+(or)
 (defun unix-getnetgrent (hostp userp domainp)
-  "Get next member of netgroup established by last `setnetgrent' call
+  _N"Get next member of netgroup established by last `setnetgrent' call
    and return pointers to elements in HOSTP, USERP, and DOMAINP."
   (int-syscall ("getnetgrent" (* c-string) (* c-string) (* c-string))
 	       hostp userp domainp))
 
 #+(or)
 (defun unix-innetgr (netgroup host user domain)
-  "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
+  _N"Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
   (int-syscall ("innetgr" c-string c-string c-string c-string)
 	       netgroup host user domain))
 
@@ -1257,26 +1258,26 @@ length LEN and type TYPE."
 
 ;; Possible values for `ai_flags' field in `addrinfo' structure.
 
-(defconstant ai_passive 1 "Socket address is intended for `bind'.")
-(defconstant ai_canonname 2 "Request for canonical name.")
+(defconstant ai_passive 1 _N"Socket address is intended for `bind'.")
+(defconstant ai_canonname 2 _N"Request for canonical name.")
 
 ;; Error values for `getaddrinfo' function.
-(defconstant eai_badflags -1 "Invalid value for `ai_flags' field.")
-(defconstant eai_noname -2 "NAME or SERVICE is unknown.")
-(defconstant eai_again -3 "Temporary failure in name resolution.")
-(defconstant eai_fail -4 "Non-recoverable failure in name res.")
-(defconstant eai_nodata -5 "No address associated with NAME.")
-(defconstant eai_family -6 "ai_family not supported.")
-(defconstant eai_socktype -7 "ai_socktype not supported.")
-(defconstant eai_service -8 "SERVICE not supported for ai_socktype.")
-(defconstant eai_addrfamily -9 "Address family for NAME not supported.")
-(defconstant eai_memory -10 "Memory allocation failure.")
-(defconstant eai_system -11 "System error returned in errno.")
+(defconstant eai_badflags -1 _N"Invalid value for `ai_flags' field.")
+(defconstant eai_noname -2 _N"NAME or SERVICE is unknown.")
+(defconstant eai_again -3 _N"Temporary failure in name resolution.")
+(defconstant eai_fail -4 _N"Non-recoverable failure in name res.")
+(defconstant eai_nodata -5 _N"No address associated with NAME.")
+(defconstant eai_family -6 _N"ai_family not supported.")
+(defconstant eai_socktype -7 _N"ai_socktype not supported.")
+(defconstant eai_service -8 _N"SERVICE not supported for ai_socktype.")
+(defconstant eai_addrfamily -9 _N"Address family for NAME not supported.")
+(defconstant eai_memory -10 _N"Memory allocation failure.")
+(defconstant eai_system -11 _N"System error returned in errno.")
 
 
 #+(or)
 (defun unix-getaddrinfo (name service req pai)
-  "Translate name of a service location and/or a service name to set of
+  _N"Translate name of a service location and/or a service name to set of
    socket addresses."
   (int-syscall ("getaddrinfo" c-string c-string (* (struct addrinfo))
 			      (* (* struct addrinfo)))
@@ -1285,7 +1286,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-freeaddrinfo (ai)
-  "Free `addrinfo' structure AI including associated storage."
+  _N"Free `addrinfo' structure AI including associated storage."
   (void-syscall ("freeaddrinfo" (* struct addrinfo))
 		ai))
 
@@ -1293,7 +1294,7 @@ length LEN and type TYPE."
 ;;; pty.h
 
 (defun unix-openpty (name termp winp)
-  "Create pseudo tty master slave pair with NAME and set terminal
+  _N"Create pseudo tty master slave pair with NAME and set terminal
    attributes according to TERMP and WINP and return handles for both
    ends in AMASTER and ASLAVE."
   (with-alien ((amaster int)
@@ -1306,7 +1307,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-forkpty (amaster name termp winp)
-  "Create child process and establish the slave pseudo terminal as the
+  _N"Create child process and establish the slave pseudo terminal as the
    child's controlling terminal."
   (int-syscall ("forkpty" (* int) c-string (* (struct termios))
 			  (* (struct winsize)))
@@ -1317,17 +1318,17 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setpwent ()
-  "Rewind the password-file stream."
+  _N"Rewind the password-file stream."
   (void-syscall ("setpwent")))
 
 #+(or)
 (defun unix-endpwent ()
-  "Close the password-file stream."
+  _N"Close the password-file stream."
   (void-syscall ("endpwent")))
 
 #+(or)
 (defun unix-getpwent ()
-  "Read an entry from the password-file stream, opening it if necessary."
+  _N"Read an entry from the password-file stream, opening it if necessary."
     (let ((result (alien-funcall (extern-alien "getpwent"
 					     (function (* (struct passwd)))))))
     (declare (type system-area-pointer result))
@@ -1342,8 +1343,8 @@ length LEN and type TYPE."
     (rlim-cur long)	 ; current (soft) limit
     (rlim-max long))); maximum value for rlim-cur
 
-(defconstant rusage_self 0 "The calling process.")
-(defconstant rusage_children -1 "Terminated child processes.")
+(defconstant rusage_self 0 _N"The calling process.")
+(defconstant rusage_children -1 _N"Terminated child processes.")
 (defconstant rusage_both -2)
 
 (def-alien-type nil
@@ -1367,57 +1368,57 @@ length LEN and type TYPE."
 
 ;; Priority limits.
 
-(defconstant prio-min -20 "Minimum priority a process can have")
-(defconstant prio-max 20 "Maximum priority a process can have")
+(defconstant prio-min -20 _N"Minimum priority a process can have")
+(defconstant prio-max 20 _N"Maximum priority a process can have")
 
 
 ;;; The type of the WHICH argument to `getpriority' and `setpriority',
 ;;; indicating what flavor of entity the WHO argument specifies.
 
-(defconstant priority-process 0 "WHO is a process ID")
-(defconstant priority-pgrp 1 "WHO is a process group ID")
-(defconstant priority-user 2 "WHO is a user ID")
+(defconstant priority-process 0 _N"WHO is a process ID")
+(defconstant priority-pgrp 1 _N"WHO is a process group ID")
+(defconstant priority-user 2 _N"WHO is a user ID")
 
 ;;; sched.h
 
 #+(or)
 (defun unix-sched_setparam (pid param)
-  "Rewind the password-file stream."
+  _N"Rewind the password-file stream."
   (int-syscall ("sched_setparam" pid-t (struct psched-param))
 		pid param))
 
 #+(or)
 (defun unix-sched_getparam (pid param)
-  "Rewind the password-file stream."
+  _N"Rewind the password-file stream."
   (int-syscall ("sched_getparam" pid-t (struct psched-param))
 		pid param))
 
 
 #+(or)
 (defun unix-sched_setscheduler (pid policy param)
-  "Set scheduling algorithm and/or parameters for a process."
+  _N"Set scheduling algorithm and/or parameters for a process."
   (int-syscall ("sched_setscheduler" pid-t int (struct psched-param))
 		pid policy param))
 
 #+(or)
 (defun unix-sched_getscheduler (pid)
-  "Retrieve scheduling algorithm for a particular purpose."
+  _N"Retrieve scheduling algorithm for a particular purpose."
   (int-syscall ("sched_getscheduler" pid-t)
 		pid))
 
 (defun unix-sched-yield ()
-  "Retrieve scheduling algorithm for a particular purpose."
+  _N"Retrieve scheduling algorithm for a particular purpose."
   (int-syscall ("sched_yield")))
 
 #+(or)
 (defun unix-sched_get_priority_max (algorithm)
-  "Get maximum priority value for a scheduler."
+  _N"Get maximum priority value for a scheduler."
   (int-syscall ("sched_get_priority_max" int)
 		algorithm))
 
 #+(or)
 (defun unix-sched_get_priority_min (algorithm)
-  "Get minimum priority value for a scheduler."
+  _N"Get minimum priority value for a scheduler."
   (int-syscall ("sched_get_priority_min" int)
 		algorithm))
 
@@ -1425,7 +1426,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-sched_rr_get_interval (pid t)
-  "Get the SCHED_RR interval for the named process."
+  _N"Get the SCHED_RR interval for the named process."
   (int-syscall ("sched_rr_get_interval" pid-t (* (struct timespec)))
 		pid t))
 
@@ -1443,12 +1444,12 @@ length LEN and type TYPE."
 	    (sched-priority int)))
 
 ;; Cloning flags.
-(defconstant csignal       #x000000ff "Signal mask to be sent at exit.")
-(defconstant clone_vm      #x00000100 "Set if VM shared between processes.")
-(defconstant clone_fs      #x00000200 "Set if fs info shared between processes")
-(defconstant clone_files   #x00000400 "Set if open files shared between processe")
-(defconstant clone_sighand #x00000800 "Set if signal handlers shared.")
-(defconstant clone_pid     #x00001000 "Set if pid shared.")
+(defconstant csignal       #x000000ff _N"Signal mask to be sent at exit.")
+(defconstant clone_vm      #x00000100 _N"Set if VM shared between processes.")
+(defconstant clone_fs      #x00000200 _N"Set if fs info shared between processes")
+(defconstant clone_files   #x00000400 _N"Set if open files shared between processe")
+(defconstant clone_sighand #x00000800 _N"Set if signal handlers shared.")
+(defconstant clone_pid     #x00001000 _N"Set if pid shared.")
 
 
 ;;; shadow.h
@@ -1469,17 +1470,17 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setspent ()
-  "Open database for reading."
+  _N"Open database for reading."
   (void-syscall ("setspent")))
 
 #+(or)
 (defun unix-endspent ()
-  "Close database."
+  _N"Close database."
   (void-syscall ("endspent")))
 
 #+(or)
 (defun unix-getspent ()
-  "Get next entry from database, perhaps after opening the file."
+  _N"Get next entry from database, perhaps after opening the file."
     (let ((result (alien-funcall (extern-alien "getspent"
 					     (function (* (struct spwd)))))))
     (declare (type system-area-pointer result))
@@ -1489,7 +1490,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getspnam (name)
-  "Get shadow entry matching NAME."
+  _N"Get shadow entry matching NAME."
     (let ((result (alien-funcall (extern-alien "getspnam"
 					     (function (* (struct spwd))
 						       c-string))
@@ -1501,7 +1502,7 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-sgetspent (string)
-  "Read shadow entry from STRING."
+  _N"Read shadow entry from STRING."
     (let ((result (alien-funcall (extern-alien "sgetspent"
 					     (function (* (struct spwd))
 						       c-string))
@@ -1515,13 +1516,13 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-lckpwdf ()
-  "Protect password file against multi writers."
+  _N"Protect password file against multi writers."
   (void-syscall ("lckpwdf")))
 
 
 #+(or)
 (defun unix-ulckpwdf ()
-  "Unlock password file."
+  _N"Unlock password file."
   (void-syscall ("ulckpwdf")))
 
 ;;; bits/stat.h
@@ -1561,29 +1562,29 @@ length LEN and type TYPE."
 
 ;; Encoding of the file mode.
 
-(defconstant s-ifmt   #o0170000 "These bits determine file type.")
+(defconstant s-ifmt   #o0170000 _N"These bits determine file type.")
 
 ;; File types.
 
-(defconstant s-ififo  #o0010000 "FIFO")
-(defconstant s-ifchr  #o0020000 "Character device")
-(defconstant s-ifdir  #o0040000 "Directory")
-(defconstant s-ifblk  #o0060000 "Block device")
-(defconstant s-ifreg  #o0100000 "Regular file")
+(defconstant s-ififo  #o0010000 _N"FIFO")
+(defconstant s-ifchr  #o0020000 _N"Character device")
+(defconstant s-ifdir  #o0040000 _N"Directory")
+(defconstant s-ifblk  #o0060000 _N"Block device")
+(defconstant s-ifreg  #o0100000 _N"Regular file")
 
 ;; These don't actually exist on System V, but having them doesn't hurt.
 
-(defconstant s-iflnk  #o0120000 "Symbolic link.")
-(defconstant s-ifsock #o0140000 "Socket.")
+(defconstant s-iflnk  #o0120000 _N"Symbolic link.")
+(defconstant s-ifsock #o0140000 _N"Socket.")
 
 ;; Protection bits.
 
-(defconstant s-isuid #o0004000 "Set user ID on execution.")
-(defconstant s-isgid #o0002000 "Set group ID on execution.")
-(defconstant s-isvtx #o0001000 "Save swapped text after use (sticky).")
-(defconstant s-iread #o0000400 "Read by owner")
-(defconstant s-iwrite #o0000200 "Write by owner.")
-(defconstant s-iexec #o0000100 "Execute by owner.")
+(defconstant s-isuid #o0004000 _N"Set user ID on execution.")
+(defconstant s-isgid #o0002000 _N"Set group ID on execution.")
+(defconstant s-isvtx #o0001000 _N"Save swapped text after use (sticky).")
+(defconstant s-iread #o0000400 _N"Read by owner")
+(defconstant s-iwrite #o0000200 _N"Write by owner.")
+(defconstant s-iexec #o0000100 _N"Execute by owner.")
 
 ;;; statfsbuf.h
 
@@ -1608,7 +1609,7 @@ length LEN and type TYPE."
 (def-alien-type tcflag-t unsigned-int)
 
 (defconstant +NCCS+ 32
-  "Size of control character vector.")
+  _N"Size of control character vector.")
 
 (def-alien-type nil
   (struct termios
@@ -1727,7 +1728,7 @@ length LEN and type TYPE."
 ;;; termios.h
 
 (defun unix-cfgetospeed (termios)
-  "Get terminal output speed."
+  _N"Get terminal output speed."
   (multiple-value-bind (speed errno)
       (int-syscall ("cfgetospeed" (* (struct termios))) termios)
     (if speed
@@ -1735,13 +1736,13 @@ length LEN and type TYPE."
       (values speed errno))))
 
 (defun unix-cfsetospeed (termios speed)
-  "Set terminal output speed."
+  _N"Set terminal output speed."
   (let ((baud (or (position speed terminal-speeds)
-		  (error "Bogus baud rate ~S" speed))))
+		  (error _"Bogus baud rate ~S" speed))))
     (void-syscall ("cfsetospeed" (* (struct termios)) int) termios baud)))
 
 (defun unix-cfgetispeed (termios)
-  "Get terminal input speed."
+  _N"Get terminal input speed."
   (multiple-value-bind (speed errno)
       (int-syscall ("cfgetispeed" (* (struct termios))) termios)
     (if speed
@@ -1749,38 +1750,38 @@ length LEN and type TYPE."
       (values speed errno))))
 
 (defun unix-cfsetispeed (termios speed)
-  "Set terminal input speed."
+  _N"Set terminal input speed."
   (let ((baud (or (position speed terminal-speeds)
-		  (error "Bogus baud rate ~S" speed))))
+		  (error _"Bogus baud rate ~S" speed))))
     (void-syscall ("cfsetispeed" (* (struct termios)) int) termios baud)))
 
 (defun unix-tcgetattr (fd termios)
-  "Get terminal attributes."
+  _N"Get terminal attributes."
   (declare (type unix-fd fd))
   (void-syscall ("tcgetattr" int (* (struct termios))) fd termios))
 
 (defun unix-tcsetattr (fd opt termios)
-  "Set terminal attributes."
+  _N"Set terminal attributes."
   (declare (type unix-fd fd))
   (void-syscall ("tcsetattr" int int (* (struct termios))) fd opt termios))
 
 (defun unix-tcsendbreak (fd duration)
-  "Send break"
+  _N"Send break"
   (declare (type unix-fd fd))
   (void-syscall ("tcsendbreak" int int) fd duration))
 
 (defun unix-tcdrain (fd)
-  "Wait for output for finish"
+  _N"Wait for output for finish"
   (declare (type unix-fd fd))
   (void-syscall ("tcdrain" int) fd))
 
 (defun unix-tcflush (fd selector)
-  "See tcflush(3)"
+  _N"See tcflush(3)"
   (declare (type unix-fd fd))
   (void-syscall ("tcflush" int int) fd selector))
 
 (defun unix-tcflow (fd action)
-  "Flow control"
+  _N"Flow control"
   (declare (type unix-fd fd))
   (void-syscall ("tcflow" int int) fd action))
 
@@ -1829,7 +1830,7 @@ length LEN and type TYPE."
 
 (defun unix-execve (program &optional arg-list
 			    (environment *environment-list*))
-  "Executes the Unix execve system call.  If the system call suceeds, lisp
+  _N"Executes the Unix execve system call.  If the system call suceeds, lisp
    will no longer be running in this process.  If the system call fails this
    function returns two values: NIL and an error code.  Arg-list should be a
    list of simple-strings which are passed as arguments to the exec'ed program.
@@ -1858,7 +1859,7 @@ length LEN and type TYPE."
 ;;; only has meaning in the second case and is the unix errno value.
 
 (defun unix-access (path mode)
-  "Given a file path (a string) and one of four constant modes,
+  _N"Given a file path (a string) and one of four constant modes,
    unix-access returns T if the file is accessible with that
    mode and NIL if not.  It also returns an errno value with
    NIL which determines why the file was not accessible.
@@ -1872,12 +1873,12 @@ length LEN and type TYPE."
 	   (type (mod 8) mode))
   (void-syscall ("access" c-string int) (%name->file path) mode))
 
-(defconstant l_set 0 "set the file pointer")
-(defconstant l_incr 1 "increment the file pointer")
-(defconstant l_xtnd 2 "extend the file size")
+(defconstant l_set 0 _N"set the file pointer")
+(defconstant l_incr 1 _N"increment the file pointer")
+(defconstant l_xtnd 2 _N"extend the file size")
 
 (defun unix-lseek (fd offset whence)
-  "UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead
+  _N"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead
    a certain OFFSET for that file.  WHENCE can be any of the following:
 
    l_set        Set the file pointer.
@@ -1901,7 +1902,7 @@ length LEN and type TYPE."
 ;;; bytes read.
 
 (defun unix-read (fd buf len)
-  "UNIX-READ attempts to read from the file described by fd into
+  _N"UNIX-READ attempts to read from the file described by fd into
    the buffer buf until it is full.  Len is the length of the buffer.
    The number of bytes actually read is returned or NIL and an error
    number if an error occured."
@@ -1940,7 +1941,7 @@ length LEN and type TYPE."
 ;;; the actual number of bytes written.
 
 (defun unix-write (fd buf offset len)
-  "Unix-write attempts to write a character buffer (buf) of length
+  _N"Unix-write attempts to write a character buffer (buf) of length
    len to the file described by the file descriptor fd.  NIL and an
    error is returned if the call is unsuccessful."
   (declare (type unix-fd fd)
@@ -1956,7 +1957,7 @@ length LEN and type TYPE."
 	       len))
 
 (defun unix-pipe ()
-  "Unix-pipe sets up a unix-piping mechanism consisting of
+  _N"Unix-pipe sets up a unix-piping mechanism consisting of
   an input pipe and an output pipe.  Unix-Pipe returns two
   values: if no error occurred the first value is the pipe
   to be read from and the second is can be written to.  If
@@ -1969,7 +1970,7 @@ length LEN and type TYPE."
 
 
 (defun unix-chown (path uid gid)
-  "Given a file path, an integer user-id, and an integer group-id,
+  _N"Given a file path, an integer user-id, and an integer group-id,
    unix-chown changes the owner of the file and the group of the
    file to those specified.  Either the owner or the group may be
    left unchanged by specifying them as -1.  Note: Permission will
@@ -1983,7 +1984,7 @@ length LEN and type TYPE."
 ;;; is specified by a file-descriptor ("fd") instead of a pathname.
 
 (defun unix-fchown (fd uid gid)
-  "Unix-fchown is like unix-chown, except that it accepts an integer
+  _N"Unix-fchown is like unix-chown, except that it accepts an integer
    file descriptor instead of a file path name."
   (declare (type unix-fd fd)
 	   (type (or unix-uid (integer -1 -1)) uid)
@@ -1994,13 +1995,13 @@ length LEN and type TYPE."
 ;;; current working directory.
 
 (defun unix-chdir (path)
-  "Given a file path string, unix-chdir changes the current working 
+  _N"Given a file path string, unix-chdir changes the current working 
    directory to the one specified."
   (declare (type unix-pathname path))
   (void-syscall ("chdir" c-string) (%name->file path)))
 
 (defun unix-current-directory ()
-  "Put the absolute pathname of the current working directory in BUF.
+  _N"Put the absolute pathname of the current working directory in BUF.
    If successful, return BUF.  If not, put an error message in
    BUF and return NULL.  BUF should be at least PATH_MAX bytes long."
   ;; 5120 is some randomly selected maximum size for the buffer for getcwd.
@@ -2020,7 +2021,7 @@ length LEN and type TYPE."
 ;;; passed as an argument.
 
 (defun unix-dup (fd)
-  "Unix-dup duplicates an existing file descriptor (given as the
+  _N"Unix-dup duplicates an existing file descriptor (given as the
    argument) and return it.  If FD is not a valid file descriptor, NIL
    and an error number are returned."
   (declare (type unix-fd fd))
@@ -2032,7 +2033,7 @@ length LEN and type TYPE."
 ;;; value which is a valid file-descriptor.
 
 (defun unix-dup2 (fd1 fd2)
-  "Unix-dup2 duplicates an existing file descriptor just as unix-dup
+  _N"Unix-dup2 duplicates an existing file descriptor just as unix-dup
    does only the new value of the duplicate descriptor may be requested
    through the second argument.  If a file already exists with the
    requested descriptor number, it will be closed and the number
@@ -2043,7 +2044,7 @@ length LEN and type TYPE."
 ;;; Unix-exit terminates a program.
 
 (defun unix-exit (&optional (code 0))
-  "Unix-exit terminates the current process with an optional
+  _N"Unix-exit terminates the current process with an optional
    error code.  If successful, the call doesn't return.  If
    unsuccessful, the call returns NIL and an error number."
   (declare (type (signed-byte 32) code))
@@ -2051,17 +2052,17 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-pathconf (path name)
-  "Get file-specific configuration information about PATH."
+  _N"Get file-specific configuration information about PATH."
   (int-syscall ("pathconf" c-string int) (%name->file path) name))
 
 #+(or)
 (defun unix-sysconf (name)
-  "Get the value of the system variable NAME."
+  _N"Get the value of the system variable NAME."
   (int-syscall ("sysconf" int) name))
 
 #+(or)
 (defun unix-confstr (name)
-  "Get the value of the string-valued system variable NAME."
+  _N"Get the value of the string-valued system variable NAME."
   (with-alien ((buf (array char 1024)))
     (values (not (zerop (alien-funcall (extern-alien "confstr"
 						     (function int
@@ -2072,16 +2073,16 @@ length LEN and type TYPE."
 
 
 (def-alien-routine ("getpid" unix-getpid) int
-  "Unix-getpid returns the process-id of the current process.")
+  _N"Unix-getpid returns the process-id of the current process.")
 
 (def-alien-routine ("getppid" unix-getppid) int
-  "Unix-getppid returns the process-id of the parent of the current process.")
+  _N"Unix-getppid returns the process-id of the parent of the current process.")
 
 ;;; Unix-getpgrp returns the group-id associated with the
 ;;; current process.
 
 (defun unix-getpgrp ()
-  "Unix-getpgrp returns the group-id of the calling process."
+  _N"Unix-getpgrp returns the group-id of the calling process."
   (int-syscall ("getpgrp")))
 
 ;;; Unix-setpgid sets the group-id of the process specified by 
@@ -2093,41 +2094,41 @@ length LEN and type TYPE."
 ;;; out in favor of setsid().
 
 (defun unix-setpgrp (pid pgrp)
-  "Unix-setpgrp sets the process group on the process pid to
+  _N"Unix-setpgrp sets the process group on the process pid to
    pgrp.  NIL and an error number are returned upon failure."
   (void-syscall ("setpgid" int int) pid pgrp))
 
 (defun unix-setpgid (pid pgrp)
-  "Unix-setpgid sets the process group of the process pid to
+  _N"Unix-setpgid sets the process group of the process pid to
    pgrp. If pgid is equal to pid, the process becomes a process
    group leader. NIL and an error number are returned upon failure."
   (void-syscall ("setpgid" int int) pid pgrp))
 
 #+(or)
 (defun unix-setsid ()
-  "Create a new session with the calling process as its leader.
+  _N"Create a new session with the calling process as its leader.
    The process group IDs of the session and the calling process
    are set to the process ID of the calling process, which is returned."
   (void-syscall ( "setsid")))
 
 #+(or)
 (defun unix-getsid ()
-  "Return the session ID of the given process."
+  _N"Return the session ID of the given process."
   (int-syscall ( "getsid")))
 
 (def-alien-routine ("getuid" unix-getuid) int
-  "Unix-getuid returns the real user-id associated with the
+  _N"Unix-getuid returns the real user-id associated with the
    current process.")
 
 #+(or)
 (def-alien-routine ("geteuid" unix-getuid) int
-  "Get the effective user ID of the calling process.")
+  _N"Get the effective user ID of the calling process.")
 
 (def-alien-routine ("getgid" unix-getgid) int
-  "Unix-getgid returns the real group-id of the current process.")
+  _N"Unix-getgid returns the real group-id of the current process.")
 
 (def-alien-routine ("getegid" unix-getegid) int
-  "Unix-getegid returns the effective group-id of the current process.")
+  _N"Unix-getegid returns the effective group-id of the current process.")
 
 ;/* If SIZE is zero, return the number of supplementary groups
 ;   the calling process is in.  Otherwise, fill in the group IDs
@@ -2136,12 +2137,12 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-group-member (gid)
-  "Return nonzero iff the calling process is in group GID."
+  _N"Return nonzero iff the calling process is in group GID."
   (int-syscall ( "group-member" gid-t) gid))
 
 
 (defun unix-setuid (uid)
-  "Set the user ID of the calling process to UID.
+  _N"Set the user ID of the calling process to UID.
    If the calling process is the super-user, set the real
    and effective user IDs, and the saved set-user-ID to UID;
    if not, the effective user ID is set to UID."
@@ -2153,13 +2154,13 @@ length LEN and type TYPE."
 ;;; "euid" to -1 makes the system use the current id instead.
 
 (defun unix-setreuid (ruid euid)
-  "Unix-setreuid sets the real and effective user-id's of the current
+  _N"Unix-setreuid sets the real and effective user-id's of the current
    process to the specified ones.  NIL and an error number is returned
    if the call fails."
   (void-syscall ("setreuid" int int) ruid euid))
 
 (defun unix-setgid (gid)
-  "Set the group ID of the calling process to GID.
+  _N"Set the group ID of the calling process to GID.
    If the calling process is the super-user, set the real
    and effective group IDs, and the saved set-group-ID to GID;
    if not, the effective group ID is set to GID."
@@ -2172,13 +2173,13 @@ length LEN and type TYPE."
 ;;; "egid" to -1 makes the system use the current id instead.
 
 (defun unix-setregid (rgid egid)
-  "Unix-setregid sets the real and effective group-id's of the current
+  _N"Unix-setregid sets the real and effective group-id's of the current
    process process to the specified ones.  NIL and an error number is
    returned if the call fails."
   (void-syscall ("setregid" int int) rgid egid))
 
 (defun unix-fork ()
-  "Executes the unix fork system call.  Returns 0 in the child and the pid
+  _N"Executes the unix fork system call.  Returns 0 in the child and the pid
    of the child in the parent if it works, or NIL and an error number if it
    doesn't work."
   (int-syscall ("fork")))
@@ -2186,47 +2187,47 @@ length LEN and type TYPE."
 ;; Environment maninpulation; man getenv(3)
 (def-alien-routine ("getenv" unix-getenv) c-call:c-string
   (name c-call:c-string) 
-  "Get the value of the environment variable named Name.  If no such
+  _N"Get the value of the environment variable named Name.  If no such
   variable exists, Nil is returned.")
 
 (def-alien-routine ("setenv" unix-setenv) c-call:int
   (name c-call:c-string)
   (value c-call:c-string)
   (overwrite c-call:int)
-  "Adds the environment variable named Name to the environment with
+  _N"Adds the environment variable named Name to the environment with
   the given Value if Name does not already exist. If Name does exist,
   the value is changed to Value if Overwrite is non-zero.  Otherwise,
   the value is not changed.")
 
 (def-alien-routine ("putenv" unix-putenv) c-call:int
   (name c-call:c-string)
-  "Adds or changes the environment.  Name-value must be a string of
+  _N"Adds or changes the environment.  Name-value must be a string of
   the form \"name=value\".  If the name does not exist, it is added.
   If name does exist, the value is updated to the given value.")
 
 (def-alien-routine ("unsetenv" unix-unsetenv) c-call:int
   (name c-call:c-string)
-  "Removes the variable Name from the environment")
+  _N"Removes the variable Name from the environment")
 
 (def-alien-routine ("ttyname" unix-ttyname) c-string
   (fd int))
 
 (def-alien-routine ("isatty" unix-isatty) boolean
-  "Accepts a Unix file descriptor and returns T if the device
+  _N"Accepts a Unix file descriptor and returns T if the device
   associated with it is a terminal."
   (fd int))
 
 ;;; Unix-link creates a hard link from name2 to name1.
 
 (defun unix-link (name1 name2)
-  "Unix-link creates a hard link from the file with name1 to the
+  _N"Unix-link creates a hard link from the file with name1 to the
    file with name2."
   (declare (type unix-pathname name1 name2))
   (void-syscall ("link" c-string c-string)
 		(%name->file name1) (%name->file name2)))
 
 (defun unix-symlink (name1 name2)
-  "Unix-symlink creates a symbolic link named name2 to the file
+  _N"Unix-symlink creates a symbolic link named name2 to the file
    named name1.  NIL and an error number is returned if the call
    is unsuccessful."
   (declare (type unix-pathname name1 name2))
@@ -2234,7 +2235,7 @@ length LEN and type TYPE."
 		(%name->file name1) (%name->file name2)))
 
 (defun unix-readlink (path)
-  "Unix-readlink invokes the readlink system call on the file name
+  _N"Unix-readlink invokes the readlink system call on the file name
   specified by the simple string path.  It returns up to two values:
   the contents of the symbolic link if the call is successful, or
   NIL and the Unix error number."
@@ -2258,7 +2259,7 @@ length LEN and type TYPE."
 ;;; name and the file if this is the last link.
 
 (defun unix-unlink (name)
-  "Unix-unlink removes the directory entry for the named file.
+  _N"Unix-unlink removes the directory entry for the named file.
    NIL and an error code is returned if the call fails."
   (declare (type unix-pathname name))
   (void-syscall ("unlink" c-string) (%name->file name)))
@@ -2266,13 +2267,13 @@ length LEN and type TYPE."
 ;;; Unix-rmdir accepts a name and removes the associated directory.
 
 (defun unix-rmdir (name)
-  "Unix-rmdir attempts to remove the directory name.  NIL and
+  _N"Unix-rmdir attempts to remove the directory name.  NIL and
    an error number is returned if an error occured."
   (declare (type unix-pathname name))
   (void-syscall ("rmdir" c-string) (%name->file name)))
 
 (defun tcgetpgrp (fd)
-  "Get the tty-process-group for the unix file-descriptor FD."
+  _N"Get the tty-process-group for the unix file-descriptor FD."
   (alien:with-alien ((alien-pgrp c-call:int))
     (multiple-value-bind (ok err)
 	(unix-ioctl fd
@@ -2283,7 +2284,7 @@ length LEN and type TYPE."
 	  (values nil err)))))
 
 (defun tty-process-group (&optional fd)
-  "Get the tty-process-group for the unix file-descriptor FD.  If not supplied,
+  _N"Get the tty-process-group for the unix file-descriptor FD.  If not supplied,
   FD defaults to /dev/tty."
   (if fd
       (tcgetpgrp fd)
@@ -2297,14 +2298,14 @@ length LEN and type TYPE."
 	       (values nil errno))))))
 
 (defun tcsetpgrp (fd pgrp)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP."
   (alien:with-alien ((alien-pgrp c-call:int pgrp))
     (unix-ioctl fd
 		tiocspgrp
 		(alien:alien-sap (alien:addr alien-pgrp)))))
 
 (defun %set-tty-process-group (pgrp &optional fd)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
   supplied, FD defaults to /dev/tty."
   (let ((old-sigs
 	 (unix-sigblock
@@ -2324,13 +2325,13 @@ length LEN and type TYPE."
       (unix-sigsetmask old-sigs))))
   
 (defsetf tty-process-group (&optional fd) (pgrp)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
   supplied, FD defaults to /dev/tty."
   `(%set-tty-process-group ,pgrp ,fd))
 
 #+(or)
 (defun unix-getlogin ()
-  "Return the login name of the user."
+  _N"Return the login name of the user."
     (let ((result (alien-funcall (extern-alien "getlogin"
 					     (function c-string)))))
     (declare (type system-area-pointer result))
@@ -2348,7 +2349,7 @@ length LEN and type TYPE."
     (domainname (array char 65))))
 
 (defun unix-uname ()
-  "Unix-uname returns the name and information about the current kernel. The
+  _N"Unix-uname returns the name and information about the current kernel. The
   values returned upon success are: sysname, nodename, release, version,
   machine, and domainname. Upon failure, 'nil and the 'errno are returned."
   (with-alien ((utsname (struct utsname)))
@@ -2362,7 +2363,7 @@ length LEN and type TYPE."
 	      (addr utsname))))
 
 (defun unix-gethostname ()
-  "Unix-gethostname returns the name of the host machine as a string."
+  _N"Unix-gethostname returns the name of the host machine as a string."
   (with-alien ((buf (array char 256)))
     (syscall* ("gethostname" (* char) int)
 	      (cast buf c-string)
@@ -2388,7 +2389,7 @@ length LEN and type TYPE."
 ;;; permanent storage (i.e. disk).
 
 (defun unix-fsync (fd)
-  "Unix-fsync writes the core image of the file described by
+  _N"Unix-fsync writes the core image of the file described by
    fd to disk."
   (declare (type unix-fd fd))
   (void-syscall ("fsync" int) fd))
@@ -2396,32 +2397,32 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-vhangup ()
- "Revoke access permissions to all processes currently communicating
+ _N"Revoke access permissions to all processes currently communicating
   with the control terminal, and then send a SIGHUP signal to the process
   group of the control terminal." 
  (int-syscall ("vhangup")))
 
 #+(or)
 (defun unix-revoke (file)
- "Revoke the access of all descriptors currently open on FILE."
+ _N"Revoke the access of all descriptors currently open on FILE."
  (int-syscall ("revoke" c-string) (%name->file file)))
 
 
 #+(or)
 (defun unix-chroot (path)
- "Make PATH be the root directory (the starting point for absolute paths).
+ _N"Make PATH be the root directory (the starting point for absolute paths).
    This call is restricted to the super-user."
  (int-syscall ("chroot" c-string) (%name->file path)))
 
 (def-alien-routine ("gethostid" unix-gethostid) unsigned-long
-  "Unix-gethostid returns a 32-bit integer which provides unique
+  _N"Unix-gethostid returns a 32-bit integer which provides unique
    identification for the host machine.")
 
 ;;; Unix-sync writes all information in core memory which has been modified
 ;;; to permanent storage (i.e. disk).
 
 (defun unix-sync ()
-  "Unix-sync writes all information in core memory which has been
+  _N"Unix-sync writes all information in core memory which has been
    modified to disk.  It returns NIL and an error code if an error
    occured."
   (void-syscall ("sync")))
@@ -2429,14 +2430,14 @@ length LEN and type TYPE."
 ;;; Unix-getpagesize returns the number of bytes in the system page.
 
 (defun unix-getpagesize ()
-  "Unix-getpagesize returns the number of bytes in a system page."
+  _N"Unix-getpagesize returns the number of bytes in a system page."
   (int-syscall ("getpagesize")))
 
 ;;; Unix-truncate accepts a file name and a new length.  The file is
 ;;; truncated to the new length.
 
 (defun unix-truncate (name length)
-  "Unix-truncate truncates the named file to the length (in
+  _N"Unix-truncate truncates the named file to the length (in
    bytes) specified by LENGTH.  NIL and an error number is returned
    if the call is unsuccessful."
   (declare (type unix-pathname name)
@@ -2444,7 +2445,7 @@ length LEN and type TYPE."
   (void-syscall ("truncate64" c-string off-t) (%name->file name) length))
 
 (defun unix-ftruncate (fd length)
-  "Unix-ftruncate is similar to unix-truncate except that the first
+  _N"Unix-ftruncate is similar to unix-truncate except that the first
    argument is a file descriptor rather than a file name."
   (declare (type unix-fd fd)
 	   (type (unsigned-byte 64) length))
@@ -2452,17 +2453,17 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-getdtablesize ()
-  "Return the maximum number of file descriptors
+  _N"Return the maximum number of file descriptors
    the current process could possibly have."
   (int-syscall ("getdtablesize")))
 
-(defconstant f_ulock 0 "Unlock a locked region")
-(defconstant f_lock 1 "Lock a region for exclusive use")
-(defconstant f_tlock 2 "Test and lock a region for exclusive use")
-(defconstant f_test 3 "Test a region for othwer processes locks")
+(defconstant f_ulock 0 _N"Unlock a locked region")
+(defconstant f_lock 1 _N"Lock a region for exclusive use")
+(defconstant f_tlock 2 _N"Test and lock a region for exclusive use")
+(defconstant f_test 3 _N"Test a region for othwer processes locks")
 
 (defun unix-lockf (fd cmd length)
-  "Unix-locks can lock, unlock and test files according to the cmd
+  _N"Unix-locks can lock, unlock and test files according to the cmd
    which can be one of the following:
 
    f_ulock  Unlock a locked region
@@ -2495,7 +2496,7 @@ length LEN and type TYPE."
 ;;; updated seconds and microseconds.
 
 (defun unix-utimes (file atime-sec atime-usec mtime-sec mtime-usec)
-  "Unix-utimes sets the 'last-accessed' and 'last-updated'
+  _N"Unix-utimes sets the 'last-accessed' and 'last-updated'
    times on a specified file.  NIL and an error number is
    returned if the call is unsuccessful."
   (declare (type unix-pathname file)
@@ -2514,15 +2515,15 @@ length LEN and type TYPE."
 
 ;; Bits in the third argument to `waitpid'.
 
-(defconstant waitpid-wnohang 1 "Don't block waiting.")
-(defconstant waitpid-wuntranced 2 "Report status of stopped children.")
+(defconstant waitpid-wnohang 1 _N"Don't block waiting.")
+(defconstant waitpid-wuntranced 2 _N"Report status of stopped children.")
 
-(defconstant waitpid-wclone #x80000000 "Wait for cloned process.")
+(defconstant waitpid-wclone #x80000000 _N"Wait for cloned process.")
 
 ;;; sys/ioctl.h
 
 (defun unix-ioctl (fd cmd arg)
-  "Unix-ioctl performs a variety of operations on open i/o
+  _N"Unix-ioctl performs a variety of operations on open i/o
    descriptors.  See the UNIX Programmer's Manual for more
    information."
   (declare (type unix-fd fd)
@@ -2534,13 +2535,13 @@ length LEN and type TYPE."
 
 #+(or)
 (defun unix-setfsuid (uid)
-  "Change uid used for file access control to UID, without affecting
+  _N"Change uid used for file access control to UID, without affecting
    other priveledges (such as who can send signals at the process)."
   (int-syscall ("setfsuid" uid-t) uid))
 
 #+(or)
 (defun unix-setfsgid (gid)
-  "Change gid used for file access control to GID, without affecting
+  _N"Change gid used for file access control to GID, without affecting
    other priveledges (such as who can send signals at the process)."
   (int-syscall ("setfsgid" gid-t) gid))
 
@@ -2558,26 +2559,26 @@ length LEN and type TYPE."
 ;; to indicate the interesting event types; they will appear in `revents'
 ;; to indicate the status of the file descriptor.  
 
-(defconstant POLLIN  #o1 "There is data to read.")
-(defconstant POLLPRI #o2 "There is urgent data to read.")
-(defconstant POLLOUT #o4 "Writing now will not block.")
+(defconstant POLLIN  #o1 _N"There is data to read.")
+(defconstant POLLPRI #o2 _N"There is urgent data to read.")
+(defconstant POLLOUT #o4 _N"Writing now will not block.")
 
 ;; Event types always implicitly polled for.  These bits need not be set in
 ;;`events', but they will appear in `revents' to indicate the status of
 ;; the file descriptor.  */
 
 
-(defconstant POLLERR  #o10 "Error condition.")
-(defconstant POLLHUP  #o20 "Hung up.")
-(defconstant POLLNVAL #o40 "Invalid polling request.")
+(defconstant POLLERR  #o10 _N"Error condition.")
+(defconstant POLLHUP  #o20 _N"Hung up.")
+(defconstant POLLNVAL #o40 _N"Invalid polling request.")
 
 
-(defconstant +npollfile+ 30 "Canonical number of polling requests to read
+(defconstant +npollfile+ 30 _N"Canonical number of polling requests to read
 in at a time in poll.")
 
 #+(or)
 (defun unix-poll (fds nfds timeout)
- " Poll the file descriptors described by the NFDS structures starting at
+ _N" Poll the file descriptors described by the NFDS structures starting at
    FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for
    an event to occur; if TIMEOUT is -1, block until an event occurs.
    Returns the number of file descriptors with events, zero if timed out,
@@ -2588,7 +2589,7 @@ in at a time in poll.")
 ;;; sys/resource.h
 
 (defun unix-getrlimit (resource)
-  "Get the soft and hard limits for RESOURCE."
+  _N"Get the soft and hard limits for RESOURCE."
   (with-alien ((rlimits (struct rlimit)))
     (syscall ("getrlimit" int (* (struct rlimit)))
 	     (values t
@@ -2597,7 +2598,7 @@ in at a time in poll.")
 	     resource (addr rlimits))))
 
 (defun unix-setrlimit (resource current maximum)
-  "Set the current soft and hard maximum limits for RESOURCE.
+  _N"Set the current soft and hard maximum limits for RESOURCE.
    Only the super-user can increase hard limits."
   (with-alien ((rlimits (struct rlimit)))
     (setf (slot rlimits 'rlim-cur) current)
@@ -2607,7 +2608,7 @@ in at a time in poll.")
 
 (declaim (inline unix-fast-getrusage))
 (defun unix-fast-getrusage (who)
-  "Like call getrusage, but return only the system and user time, and returns
+  _N"Like call getrusage, but return only the system and user time, and returns
    the seconds and microseconds as separate values."
   (declare (values (member t)
 		   (unsigned-byte 31) (mod 1000000)
@@ -2622,7 +2623,7 @@ in at a time in poll.")
 	      who (addr usage))))
 
 (defun unix-getrusage (who)
-  "Unix-getrusage returns information about the resource usage
+  _N"Unix-getrusage returns information about the resource usage
    of the process specified by who.  Who can be either the
    current process (rusage_self) or all of the terminated
    child processes (rusage_children).  NIL and an error number
@@ -2652,7 +2653,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-ulimit (cmd newlimit)
- "Function depends on CMD:
+ _N"Function depends on CMD:
   1 = Return the limit on the size of a file, in units of 512 bytes.
   2 = Set the limit on the size of a file to NEWLIMIT.  Only the
       super-user can increase the limit.
@@ -2663,7 +2664,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-getpriority (which who)
-  "Return the highest priority of any process specified by WHICH and WHO
+  _N"Return the highest priority of any process specified by WHICH and WHO
    (see above); if WHO is zero, the current process, process group, or user
    (as specified by WHO) is used.  A lower priority number means higher
    priority.  Priorities range from PRIO_MIN to PRIO_MAX (above)."
@@ -2672,7 +2673,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-setpriority (which who)
-  "Set the priority of all processes specified by WHICH and WHO (see above)
+  _N"Set the priority of all processes specified by WHICH and WHO (see above)
    to PRIO.  Returns 0 on success, -1 on errors."
   (int-syscall ("setpriority" int int)
 	       which who))
@@ -2772,7 +2773,7 @@ in at a time in poll.")
 (defmacro unix-fast-select (num-descriptors
 			    read-fds write-fds exception-fds
 			    timeout-secs &optional (timeout-usecs 0))
-  "Perform the UNIX select(2) system call."
+  _N"Perform the UNIX select(2) system call."
   (declare (type (integer 0 #.FD-SETSIZE) num-descriptors) 
 	   (type (or (alien (* (struct fd-set))) null) 
 		 read-fds write-fds exception-fds) 
@@ -2812,7 +2813,7 @@ in at a time in poll.")
 			    ,(* index nfdbits))))))
 
 (defun unix-select (nfds rdfds wrfds xpfds to-secs &optional (to-usecs 0))
-  "Unix-select examines the sets of descriptors passed as arguments
+  _N"Unix-select examines the sets of descriptors passed as arguments
    to see if they are ready for reading and writing.  See the UNIX
    Programmers Manual for more information."
   (declare (type (integer 0 #.FD-SETSIZE) nfds)
@@ -2872,7 +2873,7 @@ in at a time in poll.")
 	   (slot ,buf 'st-blocks)))
 
 (defun unix-stat (name)
-  "UNIX-STAT retrieves information about the specified
+  _N"UNIX-STAT retrieves information about the specified
    file returning them in the form of multiple values.
    See the UNIX Programmer's Manual for a description
    of the values returned.  If the call fails, then NIL
@@ -2886,7 +2887,7 @@ in at a time in poll.")
 	     (%name->file name) (addr buf))))
 
 (defun unix-fstat (fd)
-  "UNIX-FSTAT is similar to UNIX-STAT except the file is specified
+  _N"UNIX-FSTAT is similar to UNIX-STAT except the file is specified
    by the file descriptor FD."
   (declare (type unix-fd fd))
   (with-alien ((buf (struct stat)))
@@ -2895,7 +2896,7 @@ in at a time in poll.")
 	     fd (addr buf))))
 
 (defun unix-lstat (name)
-  "UNIX-LSTAT is similar to UNIX-STAT except the specified
+  _N"UNIX-LSTAT is similar to UNIX-STAT except the specified
    file must be a symbolic link."
   (declare (type unix-pathname name))
   (with-alien ((buf (struct stat)))
@@ -2906,7 +2907,7 @@ in at a time in poll.")
 ;;; Unix-chmod accepts a path and a mode and changes the mode to the new mode.
 
 (defun unix-chmod (path mode)
-  "Given a file path string and a constant mode, unix-chmod changes the
+  _N"Given a file path string and a constant mode, unix-chmod changes the
    permission mode for that file to the one specified. The new mode
    can be created by logically OR'ing the following:
 
@@ -2937,7 +2938,7 @@ in at a time in poll.")
 ;;; "mode".
 
 (defun unix-fchmod (fd mode)
-  "Given an integer file descriptor and a mode (the same as those
+  _N"Given an integer file descriptor and a mode (the same as those
    used for unix-chmod), unix-fchmod changes the permission mode
    for that file to the one specified. T is returned if the call
    was successful."
@@ -2947,7 +2948,7 @@ in at a time in poll.")
 
 
 (defun unix-umask (mask)
-  "Set the file creation mask of the current process to MASK,
+  _N"Set the file creation mask of the current process to MASK,
    and return the old creation mask."
   (int-syscall ("umask" mode-t) mask))
 
@@ -2955,7 +2956,7 @@ in at a time in poll.")
 ;;; corresponding directory with mode mode.
 
 (defun unix-mkdir (name mode)
-  "Unix-mkdir creates a new directory with the specified name and mode.
+  _N"Unix-mkdir creates a new directory with the specified name and mode.
    (Same as those for unix-chmod.)  It returns T upon success, otherwise
    NIL and an error number."
   (declare (type unix-pathname name)
@@ -2964,7 +2965,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-makedev (path mode dev)
- "Create a device file named PATH, with permission and special bits MODE
+ _N"Create a device file named PATH, with permission and special bits MODE
   and device number DEV (which can be constructed from major and minor
   device numbers with the `makedev' macro above)."
   (declare (type unix-pathname path)
@@ -2974,7 +2975,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-fifo (name mode)
-  "Create a new FIFO named PATH, with permission bits MODE."
+  _N"Create a new FIFO named PATH, with permission bits MODE."
   (declare (type unix-pathname name)
 	   (type unix-file-mode mode))
   (void-syscall ("mkfifo" c-string int) (%name->file name) mode))
@@ -2983,7 +2984,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-statfs (file buf)
-  "Return information about the filesystem on which FILE resides."
+  _N"Return information about the filesystem on which FILE resides."
   (int-syscall ("statfs64" c-string (* (struct statfs)))
 	       (%name->file file) buf))
 
@@ -2991,13 +2992,13 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-swapon (path flags)
- "Make the block special device PATH available to the system for swapping.
+ _N"Make the block special device PATH available to the system for swapping.
   This call is restricted to the super-user."
  (int-syscall ("swapon" c-string int) (%name->file path) flags))
 
 #+(or)
 (defun unix-swapoff (path)
- "Make the block special device PATH unavailable to the system for swapping.
+ _N"Make the block special device PATH unavailable to the system for swapping.
   This call is restricted to the super-user."
  (int-syscall ("swapoff" c-string) (%name->file path)))
 
@@ -3005,7 +3006,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-sysctl (name nlen oldval oldlenp newval newlen)
-  "Read or write system parameters."
+  _N"Read or write system parameters."
   (int-syscall ("sysctl" int int (* void) (* void) (* void) size-t)
 	       name nlen oldval oldlenp newval newlen))
 
@@ -3037,13 +3038,13 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-clock ()
-  "Time used by the program so far (user time + system time).
+  _N"Time used by the program so far (user time + system time).
    The result / CLOCKS_PER_SECOND is program time in seconds."
   (int-syscall ("clock")))
 
 #+(or)
 (defun unix-time (timer)
-  "Return the current time and put it in *TIMER if TIMER is not NULL."
+  _N"Return the current time and put it in *TIMER if TIMER is not NULL."
   (int-syscall ("time" time-t) timer))
 
 ;; Requires call to tzset() in main.
@@ -3080,7 +3081,7 @@ in at a time in poll.")
 
 (declaim (inline unix-gettimeofday))
 (defun unix-gettimeofday ()
-  "If it works, unix-gettimeofday returns 5 values: T, the seconds and
+  _N"If it works, unix-gettimeofday returns 5 values: T, the seconds and
    microseconds of the current time of day, the timezone (in minutes west
    of Greenwich), and a daylight-savings flag.  If it doesn't work, it
    returns NIL and the errno."
@@ -3126,7 +3127,7 @@ in at a time in poll.")
 (defconstant ITIMER-PROF 2)
 
 (defun unix-getitimer (which)
-  "Unix-getitimer returns the INTERVAL and VALUE slots of one of
+  _N"Unix-getitimer returns the INTERVAL and VALUE slots of one of
    three system timers (:real :virtual or :profile). On success,
    unix-getitimer returns 5 values,
    T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
@@ -3148,7 +3149,7 @@ in at a time in poll.")
 		which (alien-sap (addr itv))))))
 
 (defun unix-setitimer (which int-secs int-usec val-secs val-usec)
-  " Unix-setitimer sets the INTERVAL and VALUE slots of one of
+  _N" Unix-setitimer sets the INTERVAL and VALUE slots of one of
    three system timers (:real :virtual or :profile). A SIGALRM signal
    will be delivered VALUE <seconds+microseconds> from now. INTERVAL,
    when non-zero, is <seconds+microseconds> to be loaded each time
@@ -3193,7 +3194,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-fstime (timebuf)
-  "Fill in TIMEBUF with information about the current time."
+  _N"Fill in TIMEBUF with information about the current time."
   (int-syscall ("ftime" (* (struct timeb))) timebuf))
 
 
@@ -3210,7 +3211,7 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-times (buffer)
-  "Store the CPU time used by this process and all its
+  _N"Store the CPU time used by this process and all its
    dead children (and their dead children) in BUFFER.
    Return the elapsed real time, or (clock_t) -1 for errors.
    All times are in CLK_TCKths of a second."
@@ -3220,13 +3221,13 @@ in at a time in poll.")
 
 #+(or)
 (defun unix-wait (status)
-  "Wait for a child to die.  When one does, put its status in *STAT_LOC
+  _N"Wait for a child to die.  When one does, put its status in *STAT_LOC
    and return its process ID.  For errors, return (pid_t) -1."
   (int-syscall ("wait" (* int)) status))
 
 #+(or)
 (defun unix-waitpid (pid status options)
-  "Wait for a child matching PID to die.
+  _N"Wait for a child matching PID to die.
    If PID is greater than 0, match any process whose process ID is PID.
    If PID is (pid_t) -1, match any process.
    If PID is (pid_t) 0, match any process with the
@@ -3243,132 +3244,132 @@ in at a time in poll.")
 
 ;;; asm/errno.h
 
-(def-unix-error ESUCCESS 0 "Successful")
-(def-unix-error EPERM 1 "Operation not permitted")
-(def-unix-error ENOENT 2 "No such file or directory")
-(def-unix-error ESRCH 3 "No such process")
-(def-unix-error EINTR 4 "Interrupted system call")
-(def-unix-error EIO 5 "I/O error")
-(def-unix-error ENXIO 6 "No such device or address")
-(def-unix-error E2BIG 7 "Arg list too long")
-(def-unix-error ENOEXEC 8 "Exec format error")
-(def-unix-error EBADF 9 "Bad file number")
-(def-unix-error ECHILD 10 "No children")
-(def-unix-error EAGAIN 11 "Try again")
-(def-unix-error ENOMEM 12 "Out of memory")
-(def-unix-error EACCES 13 "Permission denied")
-(def-unix-error EFAULT 14 "Bad address")
-(def-unix-error ENOTBLK 15 "Block device required")
-(def-unix-error EBUSY 16 "Device or resource busy")
-(def-unix-error EEXIST 17 "File exists")
-(def-unix-error EXDEV 18 "Cross-device link")
-(def-unix-error ENODEV 19 "No such device")
-(def-unix-error ENOTDIR 20 "Not a director")
-(def-unix-error EISDIR 21 "Is a directory")
-(def-unix-error EINVAL 22 "Invalid argument")
-(def-unix-error ENFILE 23 "File table overflow")
-(def-unix-error EMFILE 24 "Too many open files")
-(def-unix-error ENOTTY 25 "Not a typewriter")
-(def-unix-error ETXTBSY 26 "Text file busy")
-(def-unix-error EFBIG 27 "File too large")
-(def-unix-error ENOSPC 28 "No space left on device")
-(def-unix-error ESPIPE 29 "Illegal seek")
-(def-unix-error EROFS 30 "Read-only file system")
-(def-unix-error EMLINK 31 "Too many links")
-(def-unix-error EPIPE 32 "Broken pipe")
+(def-unix-error ESUCCESS 0 _N"Successful")
+(def-unix-error EPERM 1 _N"Operation not permitted")
+(def-unix-error ENOENT 2 _N"No such file or directory")
+(def-unix-error ESRCH 3 _N"No such process")
+(def-unix-error EINTR 4 _N"Interrupted system call")
+(def-unix-error EIO 5 _N"I/O error")
+(def-unix-error ENXIO 6 _N"No such device or address")
+(def-unix-error E2BIG 7 _N"Arg list too long")
+(def-unix-error ENOEXEC 8 _N"Exec format error")
+(def-unix-error EBADF 9 _N"Bad file number")
+(def-unix-error ECHILD 10 _N"No children")
+(def-unix-error EAGAIN 11 _N"Try again")
+(def-unix-error ENOMEM 12 _N"Out of memory")
+(def-unix-error EACCES 13 _N"Permission denied")
+(def-unix-error EFAULT 14 _N"Bad address")
+(def-unix-error ENOTBLK 15 _N"Block device required")
+(def-unix-error EBUSY 16 _N"Device or resource busy")
+(def-unix-error EEXIST 17 _N"File exists")
+(def-unix-error EXDEV 18 _N"Cross-device link")
+(def-unix-error ENODEV 19 _N"No such device")
+(def-unix-error ENOTDIR 20 _N"Not a director")
+(def-unix-error EISDIR 21 _N"Is a directory")
+(def-unix-error EINVAL 22 _N"Invalid argument")
+(def-unix-error ENFILE 23 _N"File table overflow")
+(def-unix-error EMFILE 24 _N"Too many open files")
+(def-unix-error ENOTTY 25 _N"Not a typewriter")
+(def-unix-error ETXTBSY 26 _N"Text file busy")
+(def-unix-error EFBIG 27 _N"File too large")
+(def-unix-error ENOSPC 28 _N"No space left on device")
+(def-unix-error ESPIPE 29 _N"Illegal seek")
+(def-unix-error EROFS 30 _N"Read-only file system")
+(def-unix-error EMLINK 31 _N"Too many links")
+(def-unix-error EPIPE 32 _N"Broken pipe")
 ;;; 
 ;;; Math
-(def-unix-error EDOM 33 "Math argument out of domain")
-(def-unix-error ERANGE 34 "Math result not representable")
+(def-unix-error EDOM 33 _N"Math argument out of domain")
+(def-unix-error ERANGE 34 _N"Math result not representable")
 ;;; 
-(def-unix-error  EDEADLK         35     "Resource deadlock would occur")
-(def-unix-error  ENAMETOOLONG    36     "File name too long")
-(def-unix-error  ENOLCK          37     "No record locks available")
-(def-unix-error  ENOSYS          38     "Function not implemented")
-(def-unix-error  ENOTEMPTY       39     "Directory not empty")
-(def-unix-error  ELOOP           40     "Too many symbolic links encountered")
-(def-unix-error  EWOULDBLOCK     11     "Operation would block")
-(def-unix-error  ENOMSG          42     "No message of desired type")
-(def-unix-error  EIDRM           43     "Identifier removed")
-(def-unix-error  ECHRNG          44     "Channel number out of range")
-(def-unix-error  EL2NSYNC        45     "Level 2 not synchronized")
-(def-unix-error  EL3HLT          46     "Level 3 halted")
-(def-unix-error  EL3RST          47     "Level 3 reset")
-(def-unix-error  ELNRNG          48     "Link number out of range")
-(def-unix-error  EUNATCH         49     "Protocol driver not attached")
-(def-unix-error  ENOCSI          50     "No CSI structure available")
-(def-unix-error  EL2HLT          51     "Level 2 halted")
-(def-unix-error  EBADE           52     "Invalid exchange")
-(def-unix-error  EBADR           53     "Invalid request descriptor")
-(def-unix-error  EXFULL          54     "Exchange full")
-(def-unix-error  ENOANO          55     "No anode")
-(def-unix-error  EBADRQC         56     "Invalid request code")
-(def-unix-error  EBADSLT         57     "Invalid slot")
-(def-unix-error  EDEADLOCK       EDEADLK     "File locking deadlock error")
-(def-unix-error  EBFONT          59     "Bad font file format")
-(def-unix-error  ENOSTR          60     "Device not a stream")
-(def-unix-error  ENODATA         61     "No data available")
-(def-unix-error  ETIME           62     "Timer expired")
-(def-unix-error  ENOSR           63     "Out of streams resources")
-(def-unix-error  ENONET          64     "Machine is not on the network")
-(def-unix-error  ENOPKG          65     "Package not installed")
-(def-unix-error  EREMOTE         66     "Object is remote")
-(def-unix-error  ENOLINK         67     "Link has been severed")
-(def-unix-error  EADV            68     "Advertise error")
-(def-unix-error  ESRMNT          69     "Srmount error")
-(def-unix-error  ECOMM           70     "Communication error on send")
-(def-unix-error  EPROTO          71     "Protocol error")
-(def-unix-error  EMULTIHOP       72     "Multihop attempted")
-(def-unix-error  EDOTDOT         73     "RFS specific error")
-(def-unix-error  EBADMSG         74     "Not a data message")
-(def-unix-error  EOVERFLOW       75     "Value too large for defined data type")
-(def-unix-error  ENOTUNIQ        76     "Name not unique on network")
-(def-unix-error  EBADFD          77     "File descriptor in bad state")
-(def-unix-error  EREMCHG         78     "Remote address changed")
-(def-unix-error  ELIBACC         79     "Can not access a needed shared library")
-(def-unix-error  ELIBBAD         80     "Accessing a corrupted shared library")
-(def-unix-error  ELIBSCN         81     ".lib section in a.out corrupted")
-(def-unix-error  ELIBMAX         82     "Attempting to link in too many shared libraries")
-(def-unix-error  ELIBEXEC        83     "Cannot exec a shared library directly")
-(def-unix-error  EILSEQ          84     "Illegal byte sequence")
-(def-unix-error  ERESTART        85     "Interrupted system call should be restarted ")
-(def-unix-error  ESTRPIPE        86     "Streams pipe error")
-(def-unix-error  EUSERS          87     "Too many users")
-(def-unix-error  ENOTSOCK        88     "Socket operation on non-socket")
-(def-unix-error  EDESTADDRREQ    89     "Destination address required")
-(def-unix-error  EMSGSIZE        90     "Message too long")
-(def-unix-error  EPROTOTYPE      91     "Protocol wrong type for socket")
-(def-unix-error  ENOPROTOOPT     92     "Protocol not available")
-(def-unix-error  EPROTONOSUPPORT 93     "Protocol not supported")
-(def-unix-error  ESOCKTNOSUPPORT 94     "Socket type not supported")
-(def-unix-error  EOPNOTSUPP      95     "Operation not supported on transport endpoint")
-(def-unix-error  EPFNOSUPPORT    96     "Protocol family not supported")
-(def-unix-error  EAFNOSUPPORT    97     "Address family not supported by protocol")
-(def-unix-error  EADDRINUSE      98     "Address already in use")
-(def-unix-error  EADDRNOTAVAIL   99     "Cannot assign requested address")
-(def-unix-error  ENETDOWN        100    "Network is down")
-(def-unix-error  ENETUNREACH     101    "Network is unreachable")
-(def-unix-error  ENETRESET       102    "Network dropped connection because of reset")
-(def-unix-error  ECONNABORTED    103    "Software caused connection abort")
-(def-unix-error  ECONNRESET      104    "Connection reset by peer")
-(def-unix-error  ENOBUFS         105    "No buffer space available")
-(def-unix-error  EISCONN         106    "Transport endpoint is already connected")
-(def-unix-error  ENOTCONN        107    "Transport endpoint is not connected")
-(def-unix-error  ESHUTDOWN       108    "Cannot send after transport endpoint shutdown")
-(def-unix-error  ETOOMANYREFS    109    "Too many references: cannot splice")
-(def-unix-error  ETIMEDOUT       110    "Connection timed out")
-(def-unix-error  ECONNREFUSED    111    "Connection refused")
-(def-unix-error  EHOSTDOWN       112    "Host is down")
-(def-unix-error  EHOSTUNREACH    113    "No route to host")
-(def-unix-error  EALREADY        114    "Operation already in progress")
-(def-unix-error  EINPROGRESS     115    "Operation now in progress")
-(def-unix-error  ESTALE          116    "Stale NFS file handle")
-(def-unix-error  EUCLEAN         117    "Structure needs cleaning")
-(def-unix-error  ENOTNAM         118    "Not a XENIX named type file")
-(def-unix-error  ENAVAIL         119    "No XENIX semaphores available")
-(def-unix-error  EISNAM          120    "Is a named type file")
-(def-unix-error  EREMOTEIO       121    "Remote I/O error")
-(def-unix-error  EDQUOT          122    "Quota exceeded")
+(def-unix-error  EDEADLK         35     _N"Resource deadlock would occur")
+(def-unix-error  ENAMETOOLONG    36     _N"File name too long")
+(def-unix-error  ENOLCK          37     _N"No record locks available")
+(def-unix-error  ENOSYS          38     _N"Function not implemented")
+(def-unix-error  ENOTEMPTY       39     _N"Directory not empty")
+(def-unix-error  ELOOP           40     _N"Too many symbolic links encountered")
+(def-unix-error  EWOULDBLOCK     11     _N"Operation would block")
+(def-unix-error  ENOMSG          42     _N"No message of desired type")
+(def-unix-error  EIDRM           43     _N"Identifier removed")
+(def-unix-error  ECHRNG          44     _N"Channel number out of range")
+(def-unix-error  EL2NSYNC        45     _N"Level 2 not synchronized")
+(def-unix-error  EL3HLT          46     _N"Level 3 halted")
+(def-unix-error  EL3RST          47     _N"Level 3 reset")
+(def-unix-error  ELNRNG          48     _N"Link number out of range")
+(def-unix-error  EUNATCH         49     _N"Protocol driver not attached")
+(def-unix-error  ENOCSI          50     _N"No CSI structure available")
+(def-unix-error  EL2HLT          51     _N"Level 2 halted")
+(def-unix-error  EBADE           52     _N"Invalid exchange")
+(def-unix-error  EBADR           53     _N"Invalid request descriptor")
+(def-unix-error  EXFULL          54     _N"Exchange full")
+(def-unix-error  ENOANO          55     _N"No anode")
+(def-unix-error  EBADRQC         56     _N"Invalid request code")
+(def-unix-error  EBADSLT         57     _N"Invalid slot")
+(def-unix-error  EDEADLOCK       EDEADLK     _N"File locking deadlock error")
+(def-unix-error  EBFONT          59     _N"Bad font file format")
+(def-unix-error  ENOSTR          60     _N"Device not a stream")
+(def-unix-error  ENODATA         61     _N"No data available")
+(def-unix-error  ETIME           62     _N"Timer expired")
+(def-unix-error  ENOSR           63     _N"Out of streams resources")
+(def-unix-error  ENONET          64     _N"Machine is not on the network")
+(def-unix-error  ENOPKG          65     _N"Package not installed")
+(def-unix-error  EREMOTE         66     _N"Object is remote")
+(def-unix-error  ENOLINK         67     _N"Link has been severed")
+(def-unix-error  EADV            68     _N"Advertise error")
+(def-unix-error  ESRMNT          69     _N"Srmount error")
+(def-unix-error  ECOMM           70     _N"Communication error on send")
+(def-unix-error  EPROTO          71     _N"Protocol error")
+(def-unix-error  EMULTIHOP       72     _N"Multihop attempted")
+(def-unix-error  EDOTDOT         73     _N"RFS specific error")
+(def-unix-error  EBADMSG         74     _N"Not a data message")
+(def-unix-error  EOVERFLOW       75     _N"Value too large for defined data type")
+(def-unix-error  ENOTUNIQ        76     _N"Name not unique on network")
+(def-unix-error  EBADFD          77     _N"File descriptor in bad state")
+(def-unix-error  EREMCHG         78     _N"Remote address changed")
+(def-unix-error  ELIBACC         79     _N"Can not access a needed shared library")
+(def-unix-error  ELIBBAD         80     _N"Accessing a corrupted shared library")
+(def-unix-error  ELIBSCN         81     _N".lib section in a.out corrupted")
+(def-unix-error  ELIBMAX         82     _N"Attempting to link in too many shared libraries")
+(def-unix-error  ELIBEXEC        83     _N"Cannot exec a shared library directly")
+(def-unix-error  EILSEQ          84     _N"Illegal byte sequence")
+(def-unix-error  ERESTART        85     _N"Interrupted system call should be restarted _N")
+(def-unix-error  ESTRPIPE        86     _N"Streams pipe error")
+(def-unix-error  EUSERS          87     _N"Too many users")
+(def-unix-error  ENOTSOCK        88     _N"Socket operation on non-socket")
+(def-unix-error  EDESTADDRREQ    89     _N"Destination address required")
+(def-unix-error  EMSGSIZE        90     _N"Message too long")
+(def-unix-error  EPROTOTYPE      91     _N"Protocol wrong type for socket")
+(def-unix-error  ENOPROTOOPT     92     _N"Protocol not available")
+(def-unix-error  EPROTONOSUPPORT 93     _N"Protocol not supported")
+(def-unix-error  ESOCKTNOSUPPORT 94     _N"Socket type not supported")
+(def-unix-error  EOPNOTSUPP      95     _N"Operation not supported on transport endpoint")
+(def-unix-error  EPFNOSUPPORT    96     _N"Protocol family not supported")
+(def-unix-error  EAFNOSUPPORT    97     _N"Address family not supported by protocol")
+(def-unix-error  EADDRINUSE      98     _N"Address already in use")
+(def-unix-error  EADDRNOTAVAIL   99     _N"Cannot assign requested address")
+(def-unix-error  ENETDOWN        100    _N"Network is down")
+(def-unix-error  ENETUNREACH     101    _N"Network is unreachable")
+(def-unix-error  ENETRESET       102    _N"Network dropped connection because of reset")
+(def-unix-error  ECONNABORTED    103    _N"Software caused connection abort")
+(def-unix-error  ECONNRESET      104    _N"Connection reset by peer")
+(def-unix-error  ENOBUFS         105    _N"No buffer space available")
+(def-unix-error  EISCONN         106    _N"Transport endpoint is already connected")
+(def-unix-error  ENOTCONN        107    _N"Transport endpoint is not connected")
+(def-unix-error  ESHUTDOWN       108    _N"Cannot send after transport endpoint shutdown")
+(def-unix-error  ETOOMANYREFS    109    _N"Too many references: cannot splice")
+(def-unix-error  ETIMEDOUT       110    _N"Connection timed out")
+(def-unix-error  ECONNREFUSED    111    _N"Connection refused")
+(def-unix-error  EHOSTDOWN       112    _N"Host is down")
+(def-unix-error  EHOSTUNREACH    113    _N"No route to host")
+(def-unix-error  EALREADY        114    _N"Operation already in progress")
+(def-unix-error  EINPROGRESS     115    _N"Operation now in progress")
+(def-unix-error  ESTALE          116    _N"Stale NFS file handle")
+(def-unix-error  EUCLEAN         117    _N"Structure needs cleaning")
+(def-unix-error  ENOTNAM         118    _N"Not a XENIX named type file")
+(def-unix-error  ENAVAIL         119    _N"No XENIX semaphores available")
+(def-unix-error  EISNAM          120    _N"Is a named type file")
+(def-unix-error  EREMOTEIO       121    _N"Remote I/O error")
+(def-unix-error  EDQUOT          122    _N"Quota exceeded")
 
 ;;; And now for something completely different ...
 (emit-unix-errors)
@@ -3389,7 +3390,7 @@ in at a time in poll.")
 (defconstant ioc_inout (logior ioc_in ioc_out))
 
 (defmacro define-ioctl-command (name dev cmd &optional arg parm-type)
-  "Define an ioctl command. If the optional ARG and PARM-TYPE are given
+  _N"Define an ioctl command. If the optional ARG and PARM-TYPE are given
   then ioctl argument size and direction are included as for ioctls defined
   by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type
   is the characters code, else DEV may be an integer giving the type."
@@ -3431,7 +3432,7 @@ in at a time in poll.")
 (define-ioctl-command SIOCSPGRP #x89 #x02)
 
 (defun siocspgrp (fd pgrp)
-  "Set the socket process-group for the unix file-descriptor FD to PGRP."
+  _N"Set the socket process-group for the unix file-descriptor FD to PGRP."
   (alien:with-alien ((alien-pgrp c-call:int pgrp))
     (unix-ioctl fd
 		siocspgrp
@@ -3439,18 +3440,18 @@ in at a time in poll.")
 
 ;;; A few random constants and functions
 
-(defconstant setuidexec #o4000 "Set user ID on execution")
-(defconstant setgidexec #o2000 "Set group ID on execution")
-(defconstant savetext #o1000 "Save text image after execution")
-(defconstant readown #o400 "Read by owner")
-(defconstant writeown #o200 "Write by owner")
-(defconstant execown #o100 "Execute (search directory) by owner")
-(defconstant readgrp #o40 "Read by group")
-(defconstant writegrp #o20 "Write by group")
-(defconstant execgrp #o10 "Execute (search directory) by group")
-(defconstant readoth #o4 "Read by others")
-(defconstant writeoth #o2 "Write by others")
-(defconstant execoth #o1 "Execute (search directory) by others")
+(defconstant setuidexec #o4000 _N"Set user ID on execution")
+(defconstant setgidexec #o2000 _N"Set group ID on execution")
+(defconstant savetext #o1000 _N"Save text image after execution")
+(defconstant readown #o400 _N"Read by owner")
+(defconstant writeown #o200 _N"Write by owner")
+(defconstant execown #o100 _N"Execute (search directory) by owner")
+(defconstant readgrp #o40 _N"Read by group")
+(defconstant writegrp #o20 _N"Write by group")
+(defconstant execgrp #o10 _N"Execute (search directory) by group")
+(defconstant readoth #o4 _N"Read by others")
+(defconstant writeoth #o2 _N"Write by others")
+(defconstant execoth #o1 _N"Execute (search directory) by others")
 
 (defconstant terminal-speeds
   '#(0 50 75 110 134 150 200 300 600 1200 1800 2400
@@ -3462,7 +3463,7 @@ in at a time in poll.")
 	  unix-resolve-links unix-simplify-pathname))
 
 (defun unix-file-kind (name &optional check-for-links)
-  "Returns either :file, :directory, :link, :special, or NIL."
+  _N"Returns either :file, :directory, :link, :special, or NIL."
   (declare (simple-string name))
   (multiple-value-bind (res dev ino mode)
 		       (if check-for-links
@@ -3487,7 +3488,7 @@ in at a time in poll.")
 	    name))))
 
 (defun unix-resolve-links (pathname)
-  "Returns the pathname with all symbolic links resolved."
+  _N"Returns the pathname with all symbolic links resolved."
   (declare (simple-string pathname))
   (let ((len (length pathname))
 	(pending pathname))
@@ -3518,7 +3519,7 @@ in at a time in poll.")
 		(cond ((eq kind :link)
 		       (multiple-value-bind (link err) (unix-readlink result)
 			 (unless link
-			   (error "Error reading link ~S: ~S"
+			   (error _"Error reading link ~S: ~S"
 				  (subseq result 0 fill-ptr)
 				  (get-unix-error-msg err)))
 			 (cond ((or (zerop (length link))
@@ -3751,7 +3752,7 @@ in at a time in poll.")
 ;;;; User and group database access, POSIX Standard 9.2.2
 
 (defun unix-getpwnam (login)
-  "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
   (declare (type simple-string login))
   (with-alien ((buf (array c-call:char 1024))
 	       (user-info (struct passwd))
@@ -3781,7 +3782,7 @@ in at a time in poll.")
          :shell (string (cast (slot result 'pw-shell) c-call:c-string)))))))
 
 (defun unix-getpwuid (uid)
-  "Return a USER-INFO structure for the user identified by UID, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by UID, or NIL if not found."
   (declare (type unix-uid uid))
   (with-alien ((buf (array c-call:char 1024))
 	       (user-info (struct passwd))
@@ -3811,7 +3812,7 @@ in at a time in poll.")
          :shell (string (cast (slot result 'pw-shell) c-call:c-string)))))))
 
 (defun unix-getgrnam (name)
-  "Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
   (declare (type simple-string name))
   (with-alien ((buf (array c-call:char 2048))
 	       (group-info (struct group))
@@ -3842,7 +3843,7 @@ in at a time in poll.")
                         :collect (string (cast member c-call:c-string))))))))
 
 (defun unix-getgrgid (gid)
-  "Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
   (declare (type unix-gid gid))
   (with-alien ((buf (array c-call:char 2048))
 	       (group-info (struct group))
diff --git a/code/unix.lisp b/code/unix.lisp
index 6f28f0d91f72158c55c6c2b1e43fc5b94b266d3a..da3ea706a1f866318f79e54938d97e89d3c3bdc4 100644
--- a/code/unix.lisp
+++ b/code/unix.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.127 2009/12/17 13:52:22 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.128 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 (use-package "C-CALL")
 (use-package "SYSTEM")
 (use-package "EXT")
+(intl:textdomain "cmucl-unix")
 
 ;; Check the G_BROKEN_FILENAMES environment variable; if set the encoding
 ;; is locale-dependent...else use :utf-8 on Unicode Lisps.  On 8 bit Lisps
@@ -436,7 +437,7 @@
   #+(or linux solaris) 19
   #+(or bsd osf1) 20
   #+(and sunos (not svr4)) 17
-  "Size of control character vector.")
+  _N"Size of control character vector.")
 
 (def-alien-type nil
   (struct termios
@@ -653,278 +654,278 @@
 ;;; 
 ;;; From <errno.h>
 ;;; 
-(def-unix-error ESUCCESS 0 "Successful")
-(def-unix-error EPERM 1 "Operation not permitted")
-(def-unix-error ENOENT 2 "No such file or directory")
-(def-unix-error ESRCH 3 "No such process")
-(def-unix-error EINTR 4 "Interrupted system call")
-(def-unix-error EIO 5 "I/O error")
-(def-unix-error ENXIO 6 "Device not configured")
-(def-unix-error E2BIG 7 "Arg list too long")
-(def-unix-error ENOEXEC 8 "Exec format error")
-(def-unix-error EBADF 9 "Bad file descriptor")
-(def-unix-error ECHILD 10 "No child process")
-#+bsd(def-unix-error EDEADLK 11 "Resource deadlock avoided")
-#-bsd(def-unix-error EAGAIN 11 #-linux "No more processes" #+linux "Try again")
-(def-unix-error ENOMEM 12 "Out of memory")
-(def-unix-error EACCES 13 "Permission denied")
-(def-unix-error EFAULT 14 "Bad address")
-(def-unix-error ENOTBLK 15 "Block device required")
-(def-unix-error EBUSY 16 "Device or resource busy")
-(def-unix-error EEXIST 17 "File exists")
-(def-unix-error EXDEV 18 "Cross-device link")
-(def-unix-error ENODEV 19 "No such device")
-(def-unix-error ENOTDIR 20 "Not a director")
-(def-unix-error EISDIR 21 "Is a directory")
-(def-unix-error EINVAL 22 "Invalid argument")
-(def-unix-error ENFILE 23 "File table overflow")
-(def-unix-error EMFILE 24 "Too many open files")
-(def-unix-error ENOTTY 25 "Inappropriate ioctl for device")
-(def-unix-error ETXTBSY 26 "Text file busy")
-(def-unix-error EFBIG 27 "File too large")
-(def-unix-error ENOSPC 28 "No space left on device")
-(def-unix-error ESPIPE 29 "Illegal seek")
-(def-unix-error EROFS 30 "Read-only file system")
-(def-unix-error EMLINK 31 "Too many links")
-(def-unix-error EPIPE 32 "Broken pipe")
+(def-unix-error ESUCCESS 0 _N"Successful")
+(def-unix-error EPERM 1 _N"Operation not permitted")
+(def-unix-error ENOENT 2 _N"No such file or directory")
+(def-unix-error ESRCH 3 _N"No such process")
+(def-unix-error EINTR 4 _N"Interrupted system call")
+(def-unix-error EIO 5 _N"I/O error")
+(def-unix-error ENXIO 6 _N"Device not configured")
+(def-unix-error E2BIG 7 _N"Arg list too long")
+(def-unix-error ENOEXEC 8 _N"Exec format error")
+(def-unix-error EBADF 9 _N"Bad file descriptor")
+(def-unix-error ECHILD 10 _N"No child process")
+#+bsd(def-unix-error EDEADLK 11 _N"Resource deadlock avoided")
+#-bsd(def-unix-error EAGAIN 11 #-linux _N"No more processes" #+linux _N"Try again")
+(def-unix-error ENOMEM 12 _N"Out of memory")
+(def-unix-error EACCES 13 _N"Permission denied")
+(def-unix-error EFAULT 14 _N"Bad address")
+(def-unix-error ENOTBLK 15 _N"Block device required")
+(def-unix-error EBUSY 16 _N"Device or resource busy")
+(def-unix-error EEXIST 17 _N"File exists")
+(def-unix-error EXDEV 18 _N"Cross-device link")
+(def-unix-error ENODEV 19 _N"No such device")
+(def-unix-error ENOTDIR 20 _N"Not a director")
+(def-unix-error EISDIR 21 _N"Is a directory")
+(def-unix-error EINVAL 22 _N"Invalid argument")
+(def-unix-error ENFILE 23 _N"File table overflow")
+(def-unix-error EMFILE 24 _N"Too many open files")
+(def-unix-error ENOTTY 25 _N"Inappropriate ioctl for device")
+(def-unix-error ETXTBSY 26 _N"Text file busy")
+(def-unix-error EFBIG 27 _N"File too large")
+(def-unix-error ENOSPC 28 _N"No space left on device")
+(def-unix-error ESPIPE 29 _N"Illegal seek")
+(def-unix-error EROFS 30 _N"Read-only file system")
+(def-unix-error EMLINK 31 _N"Too many links")
+(def-unix-error EPIPE 32 _N"Broken pipe")
 ;;; 
 ;;; Math
-(def-unix-error EDOM 33 "Numerical argument out of domain")
-(def-unix-error ERANGE 34 #-linux "Result too large" #+linux "Math result not representable")
+(def-unix-error EDOM 33 _N"Numerical argument out of domain")
+(def-unix-error ERANGE 34 #-linux _N"Result too large" #+linux _N"Math result not representable")
 ;;; 
 #-(or linux svr4)
 (progn
 ;;; non-blocking and interrupt i/o
-(def-unix-error EWOULDBLOCK 35 "Operation would block")
-#-bsd(def-unix-error EDEADLK 35 "Operation would block") ; Ditto
-#+bsd(def-unix-error EAGAIN 35 "Resource temporarily unavailable")
-(def-unix-error EINPROGRESS 36 "Operation now in progress")
-(def-unix-error EALREADY 37 "Operation already in progress")
+(def-unix-error EWOULDBLOCK 35 _N"Operation would block")
+#-bsd(def-unix-error EDEADLK 35 _N"Operation would block") ; Ditto
+#+bsd(def-unix-error EAGAIN 35 _N"Resource temporarily unavailable")
+(def-unix-error EINPROGRESS 36 _N"Operation now in progress")
+(def-unix-error EALREADY 37 _N"Operation already in progress")
 ;;;
 ;;; ipc/network software
-(def-unix-error ENOTSOCK 38 "Socket operation on non-socket")
-(def-unix-error EDESTADDRREQ 39 "Destination address required")
-(def-unix-error EMSGSIZE 40 "Message too long")
-(def-unix-error EPROTOTYPE 41 "Protocol wrong type for socket")
-(def-unix-error ENOPROTOOPT 42 "Protocol not available")
-(def-unix-error EPROTONOSUPPORT 43 "Protocol not supported")
-(def-unix-error ESOCKTNOSUPPORT 44 "Socket type not supported")
-(def-unix-error EOPNOTSUPP 45 "Operation not supported on socket")
-(def-unix-error EPFNOSUPPORT 46 "Protocol family not supported")
-(def-unix-error EAFNOSUPPORT 47 "Address family not supported by protocol family")
-(def-unix-error EADDRINUSE 48 "Address already in use")
-(def-unix-error EADDRNOTAVAIL 49 "Can't assign requested address")
+(def-unix-error ENOTSOCK 38 _N"Socket operation on non-socket")
+(def-unix-error EDESTADDRREQ 39 _N"Destination address required")
+(def-unix-error EMSGSIZE 40 _N"Message too long")
+(def-unix-error EPROTOTYPE 41 _N"Protocol wrong type for socket")
+(def-unix-error ENOPROTOOPT 42 _N"Protocol not available")
+(def-unix-error EPROTONOSUPPORT 43 _N"Protocol not supported")
+(def-unix-error ESOCKTNOSUPPORT 44 _N"Socket type not supported")
+(def-unix-error EOPNOTSUPP 45 _N"Operation not supported on socket")
+(def-unix-error EPFNOSUPPORT 46 _N"Protocol family not supported")
+(def-unix-error EAFNOSUPPORT 47 _N"Address family not supported by protocol family")
+(def-unix-error EADDRINUSE 48 _N"Address already in use")
+(def-unix-error EADDRNOTAVAIL 49 _N"Can't assign requested address")
 ;;;
 ;;; operational errors
-(def-unix-error ENETDOWN 50 "Network is down")
-(def-unix-error ENETUNREACH 51 "Network is unreachable")
-(def-unix-error ENETRESET 52 "Network dropped connection on reset")
-(def-unix-error ECONNABORTED 53 "Software caused connection abort")
-(def-unix-error ECONNRESET 54 "Connection reset by peer")
-(def-unix-error ENOBUFS 55 "No buffer space available")
-(def-unix-error EISCONN 56 "Socket is already connected")
-(def-unix-error ENOTCONN 57 "Socket is not connected")
-(def-unix-error ESHUTDOWN 58 "Can't send after socket shutdown")
-(def-unix-error ETOOMANYREFS 59 "Too many references: can't splice")
-(def-unix-error ETIMEDOUT 60 "Connection timed out")
-(def-unix-error ECONNREFUSED 61 "Connection refused")
+(def-unix-error ENETDOWN 50 _N"Network is down")
+(def-unix-error ENETUNREACH 51 _N"Network is unreachable")
+(def-unix-error ENETRESET 52 _N"Network dropped connection on reset")
+(def-unix-error ECONNABORTED 53 _N"Software caused connection abort")
+(def-unix-error ECONNRESET 54 _N"Connection reset by peer")
+(def-unix-error ENOBUFS 55 _N"No buffer space available")
+(def-unix-error EISCONN 56 _N"Socket is already connected")
+(def-unix-error ENOTCONN 57 _N"Socket is not connected")
+(def-unix-error ESHUTDOWN 58 _N"Can't send after socket shutdown")
+(def-unix-error ETOOMANYREFS 59 _N"Too many references: can't splice")
+(def-unix-error ETIMEDOUT 60 _N"Connection timed out")
+(def-unix-error ECONNREFUSED 61 _N"Connection refused")
 ;;; 
-(def-unix-error ELOOP 62 "Too many levels of symbolic links")
-(def-unix-error ENAMETOOLONG 63 "File name too long")
+(def-unix-error ELOOP 62 _N"Too many levels of symbolic links")
+(def-unix-error ENAMETOOLONG 63 _N"File name too long")
 ;;; 
-(def-unix-error EHOSTDOWN 64 "Host is down")
-(def-unix-error EHOSTUNREACH 65 "No route to host")
-(def-unix-error ENOTEMPTY 66 "Directory not empty")
+(def-unix-error EHOSTDOWN 64 _N"Host is down")
+(def-unix-error EHOSTUNREACH 65 _N"No route to host")
+(def-unix-error ENOTEMPTY 66 _N"Directory not empty")
 ;;; 
 ;;; quotas & resource 
-(def-unix-error EPROCLIM 67 "Too many processes")
-(def-unix-error EUSERS 68 "Too many users")
-(def-unix-error EDQUOT 69 "Disc quota exceeded")
+(def-unix-error EPROCLIM 67 _N"Too many processes")
+(def-unix-error EUSERS 68 _N"Too many users")
+(def-unix-error EDQUOT 69 _N"Disc quota exceeded")
 ;;;
 ;;; CMU RFS
-(def-unix-error ELOCAL 126 "namei should continue locally")
-(def-unix-error EREMOTE 127 "namei was handled remotely")
+(def-unix-error ELOCAL 126 _N"namei should continue locally")
+(def-unix-error EREMOTE 127 _N"namei was handled remotely")
 ;;;
 ;;; VICE
-(def-unix-error EVICEERR 70 "Remote file system error ")
-(def-unix-error EVICEOP 71 "syscall was handled by Vice")
+(def-unix-error EVICEERR 70 _N"Remote file system error _N")
+(def-unix-error EVICEOP 71 _N"syscall was handled by Vice")
 )
 #+svr4
 (progn
-(def-unix-error ENOMSG 35 "No message of desired type")
-(def-unix-error EIDRM 36 "Identifier removed")
-(def-unix-error ECHRNG 37 "Channel number out of range")
-(def-unix-error EL2NSYNC 38 "Level 2 not synchronized")
-(def-unix-error EL3HLT 39 "Level 3 halted")
-(def-unix-error EL3RST 40 "Level 3 reset")
-(def-unix-error ELNRNG 41 "Link number out of range")
-(def-unix-error EUNATCH 42 "Protocol driver not attached")
-(def-unix-error ENOCSI 43 "No CSI structure available")
-(def-unix-error EL2HLT 44 "Level 2 halted")
-(def-unix-error EDEADLK 45 "Deadlock situation detected/avoided")
-(def-unix-error ENOLCK 46 "No record locks available")
-(def-unix-error ECANCELED 47 "Error 47")
-(def-unix-error ENOTSUP 48 "Error 48")
-(def-unix-error EBADE 50 "Bad exchange descriptor")
-(def-unix-error EBADR 51 "Bad request descriptor")
-(def-unix-error EXFULL 52 "Message tables full")
-(def-unix-error ENOANO 53 "Anode table overflow")
-(def-unix-error EBADRQC 54 "Bad request code")
-(def-unix-error EBADSLT 55 "Invalid slot")
-(def-unix-error EDEADLOCK 56 "File locking deadlock")
-(def-unix-error EBFONT 57 "Bad font file format")
-(def-unix-error ENOSTR 60 "Not a stream device")
-(def-unix-error ENODATA 61 "No data available")
-(def-unix-error ETIME 62 "Timer expired")
-(def-unix-error ENOSR 63 "Out of stream resources")
-(def-unix-error ENONET 64 "Machine is not on the network")
-(def-unix-error ENOPKG 65 "Package not installed")
-(def-unix-error EREMOTE 66 "Object is remote")
-(def-unix-error ENOLINK 67 "Link has been severed")
-(def-unix-error EADV 68 "Advertise error")
-(def-unix-error ESRMNT 69 "Srmount error")
-(def-unix-error ECOMM 70 "Communication error on send")
-(def-unix-error EPROTO 71 "Protocol error")
-(def-unix-error EMULTIHOP 74 "Multihop attempted")
-(def-unix-error EBADMSG 77 "Not a data message")
-(def-unix-error ENAMETOOLONG 78 "File name too long")
-(def-unix-error EOVERFLOW 79 "Value too large for defined data type")
-(def-unix-error ENOTUNIQ 80 "Name not unique on network")
-(def-unix-error EBADFD 81 "File descriptor in bad state")
-(def-unix-error EREMCHG 82 "Remote address changed")
-(def-unix-error ELIBACC 83 "Can not access a needed shared library")
-(def-unix-error ELIBBAD 84 "Accessing a corrupted shared library")
-(def-unix-error ELIBSCN 85 ".lib section in a.out corrupted")
-(def-unix-error ELIBMAX 86 "Attempting to link in more shared libraries than system limit")
-(def-unix-error ELIBEXEC 87 "Can not exec a shared library directly")
-(def-unix-error EILSEQ 88 "Error 88")
-(def-unix-error ENOSYS 89 "Operation not applicable")
-(def-unix-error ELOOP 90 "Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS")
-(def-unix-error ERESTART 91 "Error 91")
-(def-unix-error ESTRPIPE 92 "Error 92")
-(def-unix-error ENOTEMPTY 93 "Directory not empty")
-(def-unix-error EUSERS 94 "Too many users")
-(def-unix-error ENOTSOCK 95 "Socket operation on non-socket")
-(def-unix-error EDESTADDRREQ 96 "Destination address required")
-(def-unix-error EMSGSIZE 97 "Message too long")
-(def-unix-error EPROTOTYPE 98 "Protocol wrong type for socket")
-(def-unix-error ENOPROTOOPT 99 "Option not supported by protocol")
-(def-unix-error EPROTONOSUPPORT 120 "Protocol not supported")
-(def-unix-error ESOCKTNOSUPPORT 121 "Socket type not supported")
-(def-unix-error EOPNOTSUPP 122 "Operation not supported on transport endpoint")
-(def-unix-error EPFNOSUPPORT 123 "Protocol family not supported")
-(def-unix-error EAFNOSUPPORT 124 "Address family not supported by protocol family")
-(def-unix-error EADDRINUSE 125 "Address already in use")
-(def-unix-error EADDRNOTAVAIL 126 "Cannot assign requested address")
-(def-unix-error ENETDOWN 127 "Network is down")
-(def-unix-error ENETUNREACH 128 "Network is unreachable")
-(def-unix-error ENETRESET 129 "Network dropped connection because of reset")
-(def-unix-error ECONNABORTED 130 "Software caused connection abort")
-(def-unix-error ECONNRESET 131 "Connection reset by peer")
-(def-unix-error ENOBUFS 132 "No buffer space available")
-(def-unix-error EISCONN 133 "Transport endpoint is already connected")
-(def-unix-error ENOTCONN 134 "Transport endpoint is not connected")
-(def-unix-error ESHUTDOWN 143 "Cannot send after socket shutdown")
-(def-unix-error ETOOMANYREFS 144 "Too many references: cannot splice")
-(def-unix-error ETIMEDOUT 145 "Connection timed out")
-(def-unix-error ECONNREFUSED 146 "Connection refused")
-(def-unix-error EHOSTDOWN 147 "Host is down")
-(def-unix-error EHOSTUNREACH 148 "No route to host")
-(def-unix-error EWOULDBLOCK 11 "Resource temporarily unavailable")
-(def-unix-error EALREADY 149 "Operation already in progress")
-(def-unix-error EINPROGRESS 150 "Operation now in progress")
-(def-unix-error ESTALE 151 "Stale NFS file handle")
+(def-unix-error ENOMSG 35 _N"No message of desired type")
+(def-unix-error EIDRM 36 _N"Identifier removed")
+(def-unix-error ECHRNG 37 _N"Channel number out of range")
+(def-unix-error EL2NSYNC 38 _N"Level 2 not synchronized")
+(def-unix-error EL3HLT 39 _N"Level 3 halted")
+(def-unix-error EL3RST 40 _N"Level 3 reset")
+(def-unix-error ELNRNG 41 _N"Link number out of range")
+(def-unix-error EUNATCH 42 _N"Protocol driver not attached")
+(def-unix-error ENOCSI 43 _N"No CSI structure available")
+(def-unix-error EL2HLT 44 _N"Level 2 halted")
+(def-unix-error EDEADLK 45 _N"Deadlock situation detected/avoided")
+(def-unix-error ENOLCK 46 _N"No record locks available")
+(def-unix-error ECANCELED 47 _N"Error 47")
+(def-unix-error ENOTSUP 48 _N"Error 48")
+(def-unix-error EBADE 50 _N"Bad exchange descriptor")
+(def-unix-error EBADR 51 _N"Bad request descriptor")
+(def-unix-error EXFULL 52 _N"Message tables full")
+(def-unix-error ENOANO 53 _N"Anode table overflow")
+(def-unix-error EBADRQC 54 _N"Bad request code")
+(def-unix-error EBADSLT 55 _N"Invalid slot")
+(def-unix-error EDEADLOCK 56 _N"File locking deadlock")
+(def-unix-error EBFONT 57 _N"Bad font file format")
+(def-unix-error ENOSTR 60 _N"Not a stream device")
+(def-unix-error ENODATA 61 _N"No data available")
+(def-unix-error ETIME 62 _N"Timer expired")
+(def-unix-error ENOSR 63 _N"Out of stream resources")
+(def-unix-error ENONET 64 _N"Machine is not on the network")
+(def-unix-error ENOPKG 65 _N"Package not installed")
+(def-unix-error EREMOTE 66 _N"Object is remote")
+(def-unix-error ENOLINK 67 _N"Link has been severed")
+(def-unix-error EADV 68 _N"Advertise error")
+(def-unix-error ESRMNT 69 _N"Srmount error")
+(def-unix-error ECOMM 70 _N"Communication error on send")
+(def-unix-error EPROTO 71 _N"Protocol error")
+(def-unix-error EMULTIHOP 74 _N"Multihop attempted")
+(def-unix-error EBADMSG 77 _N"Not a data message")
+(def-unix-error ENAMETOOLONG 78 _N"File name too long")
+(def-unix-error EOVERFLOW 79 _N"Value too large for defined data type")
+(def-unix-error ENOTUNIQ 80 _N"Name not unique on network")
+(def-unix-error EBADFD 81 _N"File descriptor in bad state")
+(def-unix-error EREMCHG 82 _N"Remote address changed")
+(def-unix-error ELIBACC 83 _N"Can not access a needed shared library")
+(def-unix-error ELIBBAD 84 _N"Accessing a corrupted shared library")
+(def-unix-error ELIBSCN 85 _N".lib section in a.out corrupted")
+(def-unix-error ELIBMAX 86 _N"Attempting to link in more shared libraries than system limit")
+(def-unix-error ELIBEXEC 87 _N"Can not exec a shared library directly")
+(def-unix-error EILSEQ 88 _N"Error 88")
+(def-unix-error ENOSYS 89 _N"Operation not applicable")
+(def-unix-error ELOOP 90 _N"Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS")
+(def-unix-error ERESTART 91 _N"Error 91")
+(def-unix-error ESTRPIPE 92 _N"Error 92")
+(def-unix-error ENOTEMPTY 93 _N"Directory not empty")
+(def-unix-error EUSERS 94 _N"Too many users")
+(def-unix-error ENOTSOCK 95 _N"Socket operation on non-socket")
+(def-unix-error EDESTADDRREQ 96 _N"Destination address required")
+(def-unix-error EMSGSIZE 97 _N"Message too long")
+(def-unix-error EPROTOTYPE 98 _N"Protocol wrong type for socket")
+(def-unix-error ENOPROTOOPT 99 _N"Option not supported by protocol")
+(def-unix-error EPROTONOSUPPORT 120 _N"Protocol not supported")
+(def-unix-error ESOCKTNOSUPPORT 121 _N"Socket type not supported")
+(def-unix-error EOPNOTSUPP 122 _N"Operation not supported on transport endpoint")
+(def-unix-error EPFNOSUPPORT 123 _N"Protocol family not supported")
+(def-unix-error EAFNOSUPPORT 124 _N"Address family not supported by protocol family")
+(def-unix-error EADDRINUSE 125 _N"Address already in use")
+(def-unix-error EADDRNOTAVAIL 126 _N"Cannot assign requested address")
+(def-unix-error ENETDOWN 127 _N"Network is down")
+(def-unix-error ENETUNREACH 128 _N"Network is unreachable")
+(def-unix-error ENETRESET 129 _N"Network dropped connection because of reset")
+(def-unix-error ECONNABORTED 130 _N"Software caused connection abort")
+(def-unix-error ECONNRESET 131 _N"Connection reset by peer")
+(def-unix-error ENOBUFS 132 _N"No buffer space available")
+(def-unix-error EISCONN 133 _N"Transport endpoint is already connected")
+(def-unix-error ENOTCONN 134 _N"Transport endpoint is not connected")
+(def-unix-error ESHUTDOWN 143 _N"Cannot send after socket shutdown")
+(def-unix-error ETOOMANYREFS 144 _N"Too many references: cannot splice")
+(def-unix-error ETIMEDOUT 145 _N"Connection timed out")
+(def-unix-error ECONNREFUSED 146 _N"Connection refused")
+(def-unix-error EHOSTDOWN 147 _N"Host is down")
+(def-unix-error EHOSTUNREACH 148 _N"No route to host")
+(def-unix-error EWOULDBLOCK 11 _N"Resource temporarily unavailable")
+(def-unix-error EALREADY 149 _N"Operation already in progress")
+(def-unix-error EINPROGRESS 150 _N"Operation now in progress")
+(def-unix-error ESTALE 151 _N"Stale NFS file handle")
 )
 #+linux
 (progn
-(def-unix-error  EDEADLK         35     "Resource deadlock would occur")
-(def-unix-error  ENAMETOOLONG    36     "File name too long")
-(def-unix-error  ENOLCK          37     "No record locks available")
-(def-unix-error  ENOSYS          38     "Function not implemented")
-(def-unix-error  ENOTEMPTY       39     "Directory not empty")
-(def-unix-error  ELOOP           40     "Too many symbolic links encountered")
-(def-unix-error  EWOULDBLOCK     11     "Operation would block")
-(def-unix-error  ENOMSG          42     "No message of desired type")
-(def-unix-error  EIDRM           43     "Identifier removed")
-(def-unix-error  ECHRNG          44     "Channel number out of range")
-(def-unix-error  EL2NSYNC        45     "Level 2 not synchronized")
-(def-unix-error  EL3HLT          46     "Level 3 halted")
-(def-unix-error  EL3RST          47     "Level 3 reset")
-(def-unix-error  ELNRNG          48     "Link number out of range")
-(def-unix-error  EUNATCH         49     "Protocol driver not attached")
-(def-unix-error  ENOCSI          50     "No CSI structure available")
-(def-unix-error  EL2HLT          51     "Level 2 halted")
-(def-unix-error  EBADE           52     "Invalid exchange")
-(def-unix-error  EBADR           53     "Invalid request descriptor")
-(def-unix-error  EXFULL          54     "Exchange full")
-(def-unix-error  ENOANO          55     "No anode")
-(def-unix-error  EBADRQC         56     "Invalid request code")
-(def-unix-error  EBADSLT         57     "Invalid slot")
-(def-unix-error  EDEADLOCK       EDEADLK     "File locking deadlock error")
-(def-unix-error  EBFONT          59     "Bad font file format")
-(def-unix-error  ENOSTR          60     "Device not a stream")
-(def-unix-error  ENODATA         61     "No data available")
-(def-unix-error  ETIME           62     "Timer expired")
-(def-unix-error  ENOSR           63     "Out of streams resources")
-(def-unix-error  ENONET          64     "Machine is not on the network")
-(def-unix-error  ENOPKG          65     "Package not installed")
-(def-unix-error  EREMOTE         66     "Object is remote")
-(def-unix-error  ENOLINK         67     "Link has been severed")
-(def-unix-error  EADV            68     "Advertise error")
-(def-unix-error  ESRMNT          69     "Srmount error")
-(def-unix-error  ECOMM           70     "Communication error on send")
-(def-unix-error  EPROTO          71     "Protocol error")
-(def-unix-error  EMULTIHOP       72     "Multihop attempted")
-(def-unix-error  EDOTDOT         73     "RFS specific error")
-(def-unix-error  EBADMSG         74     "Not a data message")
-(def-unix-error  EOVERFLOW       75     "Value too large for defined data type")
-(def-unix-error  ENOTUNIQ        76     "Name not unique on network")
-(def-unix-error  EBADFD          77     "File descriptor in bad state")
-(def-unix-error  EREMCHG         78     "Remote address changed")
-(def-unix-error  ELIBACC         79     "Can not access a needed shared library")
-(def-unix-error  ELIBBAD         80     "Accessing a corrupted shared library")
-(def-unix-error  ELIBSCN         81     ".lib section in a.out corrupted")
-(def-unix-error  ELIBMAX         82     "Attempting to link in too many shared libraries")
-(def-unix-error  ELIBEXEC        83     "Cannot exec a shared library directly")
-(def-unix-error  EILSEQ          84     "Illegal byte sequence")
-(def-unix-error  ERESTART        85     "Interrupted system call should be restarted ")
-(def-unix-error  ESTRPIPE        86     "Streams pipe error")
-(def-unix-error  EUSERS          87     "Too many users")
-(def-unix-error  ENOTSOCK        88     "Socket operation on non-socket")
-(def-unix-error  EDESTADDRREQ    89     "Destination address required")
-(def-unix-error  EMSGSIZE        90     "Message too long")
-(def-unix-error  EPROTOTYPE      91     "Protocol wrong type for socket")
-(def-unix-error  ENOPROTOOPT     92     "Protocol not available")
-(def-unix-error  EPROTONOSUPPORT 93     "Protocol not supported")
-(def-unix-error  ESOCKTNOSUPPORT 94     "Socket type not supported")
-(def-unix-error  EOPNOTSUPP      95     "Operation not supported on transport endpoint")
-(def-unix-error  EPFNOSUPPORT    96     "Protocol family not supported")
-(def-unix-error  EAFNOSUPPORT    97     "Address family not supported by protocol")
-(def-unix-error  EADDRINUSE      98     "Address already in use")
-(def-unix-error  EADDRNOTAVAIL   99     "Cannot assign requested address")
-(def-unix-error  ENETDOWN        100    "Network is down")
-(def-unix-error  ENETUNREACH     101    "Network is unreachable")
-(def-unix-error  ENETRESET       102    "Network dropped connection because of reset")
-(def-unix-error  ECONNABORTED    103    "Software caused connection abort")
-(def-unix-error  ECONNRESET      104    "Connection reset by peer")
-(def-unix-error  ENOBUFS         105    "No buffer space available")
-(def-unix-error  EISCONN         106    "Transport endpoint is already connected")
-(def-unix-error  ENOTCONN        107    "Transport endpoint is not connected")
-(def-unix-error  ESHUTDOWN       108    "Cannot send after transport endpoint shutdown")
-(def-unix-error  ETOOMANYREFS    109    "Too many references: cannot splice")
-(def-unix-error  ETIMEDOUT       110    "Connection timed out")
-(def-unix-error  ECONNREFUSED    111    "Connection refused")
-(def-unix-error  EHOSTDOWN       112    "Host is down")
-(def-unix-error  EHOSTUNREACH    113    "No route to host")
-(def-unix-error  EALREADY        114    "Operation already in progress")
-(def-unix-error  EINPROGRESS     115    "Operation now in progress")
-(def-unix-error  ESTALE          116    "Stale NFS file handle")
-(def-unix-error  EUCLEAN         117    "Structure needs cleaning")
-(def-unix-error  ENOTNAM         118    "Not a XENIX named type file")
-(def-unix-error  ENAVAIL         119    "No XENIX semaphores available")
-(def-unix-error  EISNAM          120    "Is a named type file")
-(def-unix-error  EREMOTEIO       121    "Remote I/O error")
-(def-unix-error  EDQUOT          122    "Quota exceeded")
+(def-unix-error  EDEADLK         35     _N"Resource deadlock would occur")
+(def-unix-error  ENAMETOOLONG    36     _N"File name too long")
+(def-unix-error  ENOLCK          37     _N"No record locks available")
+(def-unix-error  ENOSYS          38     _N"Function not implemented")
+(def-unix-error  ENOTEMPTY       39     _N"Directory not empty")
+(def-unix-error  ELOOP           40     _N"Too many symbolic links encountered")
+(def-unix-error  EWOULDBLOCK     11     _N"Operation would block")
+(def-unix-error  ENOMSG          42     _N"No message of desired type")
+(def-unix-error  EIDRM           43     _N"Identifier removed")
+(def-unix-error  ECHRNG          44     _N"Channel number out of range")
+(def-unix-error  EL2NSYNC        45     _N"Level 2 not synchronized")
+(def-unix-error  EL3HLT          46     _N"Level 3 halted")
+(def-unix-error  EL3RST          47     _N"Level 3 reset")
+(def-unix-error  ELNRNG          48     _N"Link number out of range")
+(def-unix-error  EUNATCH         49     _N"Protocol driver not attached")
+(def-unix-error  ENOCSI          50     _N"No CSI structure available")
+(def-unix-error  EL2HLT          51     _N"Level 2 halted")
+(def-unix-error  EBADE           52     _N"Invalid exchange")
+(def-unix-error  EBADR           53     _N"Invalid request descriptor")
+(def-unix-error  EXFULL          54     _N"Exchange full")
+(def-unix-error  ENOANO          55     _N"No anode")
+(def-unix-error  EBADRQC         56     _N"Invalid request code")
+(def-unix-error  EBADSLT         57     _N"Invalid slot")
+(def-unix-error  EDEADLOCK       EDEADLK     _N"File locking deadlock error")
+(def-unix-error  EBFONT          59     _N"Bad font file format")
+(def-unix-error  ENOSTR          60     _N"Device not a stream")
+(def-unix-error  ENODATA         61     _N"No data available")
+(def-unix-error  ETIME           62     _N"Timer expired")
+(def-unix-error  ENOSR           63     _N"Out of streams resources")
+(def-unix-error  ENONET          64     _N"Machine is not on the network")
+(def-unix-error  ENOPKG          65     _N"Package not installed")
+(def-unix-error  EREMOTE         66     _N"Object is remote")
+(def-unix-error  ENOLINK         67     _N"Link has been severed")
+(def-unix-error  EADV            68     _N"Advertise error")
+(def-unix-error  ESRMNT          69     _N"Srmount error")
+(def-unix-error  ECOMM           70     _N"Communication error on send")
+(def-unix-error  EPROTO          71     _N"Protocol error")
+(def-unix-error  EMULTIHOP       72     _N"Multihop attempted")
+(def-unix-error  EDOTDOT         73     _N"RFS specific error")
+(def-unix-error  EBADMSG         74     _N"Not a data message")
+(def-unix-error  EOVERFLOW       75     _N"Value too large for defined data type")
+(def-unix-error  ENOTUNIQ        76     _N"Name not unique on network")
+(def-unix-error  EBADFD          77     _N"File descriptor in bad state")
+(def-unix-error  EREMCHG         78     _N"Remote address changed")
+(def-unix-error  ELIBACC         79     _N"Can not access a needed shared library")
+(def-unix-error  ELIBBAD         80     _N"Accessing a corrupted shared library")
+(def-unix-error  ELIBSCN         81     _N".lib section in a.out corrupted")
+(def-unix-error  ELIBMAX         82     _N"Attempting to link in too many shared libraries")
+(def-unix-error  ELIBEXEC        83     _N"Cannot exec a shared library directly")
+(def-unix-error  EILSEQ          84     _N"Illegal byte sequence")
+(def-unix-error  ERESTART        85     _N"Interrupted system call should be restarted _N")
+(def-unix-error  ESTRPIPE        86     _N"Streams pipe error")
+(def-unix-error  EUSERS          87     _N"Too many users")
+(def-unix-error  ENOTSOCK        88     _N"Socket operation on non-socket")
+(def-unix-error  EDESTADDRREQ    89     _N"Destination address required")
+(def-unix-error  EMSGSIZE        90     _N"Message too long")
+(def-unix-error  EPROTOTYPE      91     _N"Protocol wrong type for socket")
+(def-unix-error  ENOPROTOOPT     92     _N"Protocol not available")
+(def-unix-error  EPROTONOSUPPORT 93     _N"Protocol not supported")
+(def-unix-error  ESOCKTNOSUPPORT 94     _N"Socket type not supported")
+(def-unix-error  EOPNOTSUPP      95     _N"Operation not supported on transport endpoint")
+(def-unix-error  EPFNOSUPPORT    96     _N"Protocol family not supported")
+(def-unix-error  EAFNOSUPPORT    97     _N"Address family not supported by protocol")
+(def-unix-error  EADDRINUSE      98     _N"Address already in use")
+(def-unix-error  EADDRNOTAVAIL   99     _N"Cannot assign requested address")
+(def-unix-error  ENETDOWN        100    _N"Network is down")
+(def-unix-error  ENETUNREACH     101    _N"Network is unreachable")
+(def-unix-error  ENETRESET       102    _N"Network dropped connection because of reset")
+(def-unix-error  ECONNABORTED    103    _N"Software caused connection abort")
+(def-unix-error  ECONNRESET      104    _N"Connection reset by peer")
+(def-unix-error  ENOBUFS         105    _N"No buffer space available")
+(def-unix-error  EISCONN         106    _N"Transport endpoint is already connected")
+(def-unix-error  ENOTCONN        107    _N"Transport endpoint is not connected")
+(def-unix-error  ESHUTDOWN       108    _N"Cannot send after transport endpoint shutdown")
+(def-unix-error  ETOOMANYREFS    109    _N"Too many references: cannot splice")
+(def-unix-error  ETIMEDOUT       110    _N"Connection timed out")
+(def-unix-error  ECONNREFUSED    111    _N"Connection refused")
+(def-unix-error  EHOSTDOWN       112    _N"Host is down")
+(def-unix-error  EHOSTUNREACH    113    _N"No route to host")
+(def-unix-error  EALREADY        114    _N"Operation already in progress")
+(def-unix-error  EINPROGRESS     115    _N"Operation now in progress")
+(def-unix-error  ESTALE          116    _N"Stale NFS file handle")
+(def-unix-error  EUCLEAN         117    _N"Structure needs cleaning")
+(def-unix-error  ENOTNAM         118    _N"Not a XENIX named type file")
+(def-unix-error  ENAVAIL         119    _N"No XENIX semaphores available")
+(def-unix-error  EISNAM          120    _N"Is a named type file")
+(def-unix-error  EREMOTEIO       121    _N"Remote I/O error")
+(def-unix-error  EDQUOT          122    _N"Quota exceeded")
 )
 
 ;;;
@@ -939,12 +940,12 @@
 ;;; GET-UNIX-ERROR-MSG -- public.
 ;;; 
 (defun get-unix-error-msg (&optional (error-number (unix-errno)))
-  "Returns a string describing the error number which was returned by a
+  _N"Returns a string describing the error number which was returned by a
   UNIX system call."
   (declare (type integer error-number))
   (if (array-in-bounds-p *unix-errors* error-number)
       (svref *unix-errors* error-number)
-      (format nil "Unknown error [~d]" error-number)))
+      (format nil _"Unknown error [~d]" error-number)))
 
 
 ;;;; Lisp types used by syscalls.
@@ -1039,7 +1040,7 @@
   `(let ((result (alien-funcall (extern-alien ,name (function int ,@arg-types))
 				,@args)))
      (if (eql -1 result)
-	 (error "Syscall ~A failed: ~A" ,name (get-unix-error-msg))
+	 (error _"Syscall ~A failed: ~A" ,name (get-unix-error-msg))
 	 ,success-form)))
 
 (defmacro void-syscall ((name &rest arg-types) &rest args)
@@ -1109,14 +1110,14 @@
 	   t addr length prot))
   
 (defun unix-setuid (uid)
-  "Set the user ID of the calling process to UID.
+  _N"Set the user ID of the calling process to UID.
    If the calling process is the super-user, set the real
    and effective user IDs, and the saved set-user-ID to UID;
    if not, the effective user ID is set to UID."
   (int-syscall ("setuid" uid-t) uid))
 
 (defun unix-setgid (gid)
-  "Set the group ID of the calling process to GID.
+  _N"Set the group ID of the calling process to GID.
    If the calling process is the super-user, set the real
    and effective group IDs, and the saved set-group-ID to GID;
    if not, the effective group ID is set to GID."
@@ -1134,13 +1135,13 @@
 ;;; first is T if the file is accessible and NIL otherwise.  The second
 ;;; only has meaning in the second case and is the unix errno value.
 
-(defconstant r_ok 4 "Test for read permission")
-(defconstant w_ok 2 "Test for write permission")
-(defconstant x_ok 1 "Test for execute permission")
-(defconstant f_ok 0 "Test for presence of file")
+(defconstant r_ok 4 _N"Test for read permission")
+(defconstant w_ok 2 _N"Test for write permission")
+(defconstant x_ok 1 _N"Test for execute permission")
+(defconstant f_ok 0 _N"Test for presence of file")
 
 (defun unix-access (path mode)
-  "Given a file path (a string) and one of four constant modes,
+  _N"Given a file path (a string) and one of four constant modes,
    unix-access returns T if the file is accessible with that
    mode and NIL if not.  It also returns an errno value with
    NIL which determines why the file was not accessible.
@@ -1158,28 +1159,28 @@
 ;;; current working directory.
 
 (defun unix-chdir (path)
-  "Given a file path string, unix-chdir changes the current working 
+  _N"Given a file path string, unix-chdir changes the current working 
    directory to the one specified."
   (declare (type unix-pathname path))
   (void-syscall ("chdir" c-string) (%name->file path)))
 
 ;;; Unix-chmod accepts a path and a mode and changes the mode to the new mode.
 
-(defconstant setuidexec #o4000 "Set user ID on execution")
-(defconstant setgidexec #o2000 "Set group ID on execution")
-(defconstant savetext #o1000 "Save text image after execution")
-(defconstant readown #o400 "Read by owner")
-(defconstant writeown #o200 "Write by owner")
-(defconstant execown #o100 "Execute (search directory) by owner")
-(defconstant readgrp #o40 "Read by group")
-(defconstant writegrp #o20 "Write by group")
-(defconstant execgrp #o10 "Execute (search directory) by group")
-(defconstant readoth #o4 "Read by others")
-(defconstant writeoth #o2 "Write by others")
-(defconstant execoth #o1 "Execute (search directory) by others")
+(defconstant setuidexec #o4000 _N"Set user ID on execution")
+(defconstant setgidexec #o2000 _N"Set group ID on execution")
+(defconstant savetext #o1000 _N"Save text image after execution")
+(defconstant readown #o400 _N"Read by owner")
+(defconstant writeown #o200 _N"Write by owner")
+(defconstant execown #o100 _N"Execute (search directory) by owner")
+(defconstant readgrp #o40 _N"Read by group")
+(defconstant writegrp #o20 _N"Write by group")
+(defconstant execgrp #o10 _N"Execute (search directory) by group")
+(defconstant readoth #o4 _N"Read by others")
+(defconstant writeoth #o2 _N"Write by others")
+(defconstant execoth #o1 _N"Execute (search directory) by others")
 
 (defun unix-chmod (path mode)
-  "Given a file path string and a constant mode, unix-chmod changes the
+  _N"Given a file path string and a constant mode, unix-chmod changes the
    permission mode for that file to the one specified. The new mode
    can be created by logically OR'ing the following:
 
@@ -1210,7 +1211,7 @@
 ;;; "mode".
 
 (defun unix-fchmod (fd mode)
-  "Given an integer file descriptor and a mode (the same as those
+  _N"Given an integer file descriptor and a mode (the same as those
    used for unix-chmod), unix-fchmod changes the permission mode
    for that file to the one specified. T is returned if the call
    was successful."
@@ -1219,7 +1220,7 @@
   (void-syscall ("fchmod" int int) fd mode))
 
 (defun unix-chown (path uid gid)
-  "Given a file path, an integer user-id, and an integer group-id,
+  _N"Given a file path, an integer user-id, and an integer group-id,
    unix-chown changes the owner of the file and the group of the
    file to those specified.  Either the owner or the group may be
    left unchanged by specifying them as -1.  Note: Permission will
@@ -1233,7 +1234,7 @@
 ;;; is specified by a file-descriptor ("fd") instead of a pathname.
 
 (defun unix-fchown (fd uid gid)
-  "Unix-fchown is like unix-chown, except that it accepts an integer
+  _N"Unix-fchown is like unix-chown, except that it accepts an integer
    file descriptor instead of a file path name."
   (declare (type unix-fd fd)
 	   (type (or unix-uid (integer -1 -1)) uid)
@@ -1244,7 +1245,7 @@
 ;;; of the file descriptor table.
 
 (defun unix-getdtablesize ()
-  "Unix-getdtablesize returns the maximum size of the file descriptor
+  _N"Unix-getdtablesize returns the maximum size of the file descriptor
    table. (i.e. the maximum number of descriptors that can exist at
    one time.)"
   (int-syscall ("getdtablesize")))
@@ -1253,7 +1254,7 @@
 ;;; associated with it.
 
 (defun unix-close (fd)
-  "Unix-close takes an integer file descriptor as an argument and
+  _N"Unix-close takes an integer file descriptor as an argument and
    closes the file associated with it.  T is returned upon successful
    completion, otherwise NIL and an error number."
   (declare (type unix-fd fd))
@@ -1263,7 +1264,7 @@
 ;;; with name and sets it mode to mode (as for chmod).
 
 (defun unix-creat (name mode)
-  "Unix-creat accepts a file name and a mode (same as those for
+  _N"Unix-creat accepts a file name and a mode (same as those for
    unix-chmod) and creates a file by that name with the specified
    permission mode.  It returns a file descriptor on success,
    or NIL and an error  number otherwise.
@@ -1279,7 +1280,7 @@
 ;;; passed as an argument.
 
 (defun unix-dup (fd)
-  "Unix-dup duplicates an existing file descriptor (given as the
+  _N"Unix-dup duplicates an existing file descriptor (given as the
    argument) and return it.  If FD is not a valid file descriptor, NIL
    and an error number are returned."
   (declare (type unix-fd fd))
@@ -1291,7 +1292,7 @@
 ;;; value which is a valid file-descriptor.
 
 (defun unix-dup2 (fd1 fd2)
-  "Unix-dup2 duplicates an existing file descriptor just as unix-dup
+  _N"Unix-dup2 duplicates an existing file descriptor just as unix-dup
    does only the new value of the duplicate descriptor may be requested
    through the second argument.  If a file already exists with the
    requested descriptor number, it will be closed and the number
@@ -1306,44 +1307,44 @@
 
 ;;; Operations performed on file descriptors:
 
-(defconstant F-DUPFD    0  "Duplicate a file descriptor")
-(defconstant F-GETFD    1  "Get file desc. flags")
-(defconstant F-SETFD    2  "Set file desc. flags")
-(defconstant F-GETFL    3  "Get file flags")
-(defconstant F-SETFL    4  "Set file flags")
+(defconstant F-DUPFD    0  _N"Duplicate a file descriptor")
+(defconstant F-GETFD    1  _N"Get file desc. flags")
+(defconstant F-SETFD    2  _N"Set file desc. flags")
+(defconstant F-GETFL    3  _N"Get file flags")
+(defconstant F-SETFL    4  _N"Set file flags")
 #-(or linux svr4)
-(defconstant F-GETOWN   5  "Get owner")
+(defconstant F-GETOWN   5  _N"Get owner")
 #+svr4
-(defconstant F-GETOWN   23  "Get owner")
+(defconstant F-GETOWN   23  _N"Get owner")
 #+linux
-(defconstant F-GETLK    5   "Get lock")
+(defconstant F-GETLK    5   _N"Get lock")
 #-(or linux svr4)
-(defconstant F-SETOWN   6  "Set owner")
+(defconstant F-SETOWN   6  _N"Set owner")
 #+svr4
-(defconstant F-SETOWN   24  "Set owner")
+(defconstant F-SETOWN   24  _N"Set owner")
 #+linux 
-(defconstant F-SETLK    6   "Set lock")
+(defconstant F-SETLK    6   _N"Set lock")
 #+linux
-(defconstant F-SETLKW   7   "Set lock, wait for release")
+(defconstant F-SETLKW   7   _N"Set lock, wait for release")
 #+linux
-(defconstant F-SETOWN   8  "Set owner")
+(defconstant F-SETOWN   8  _N"Set owner")
 
 ;;; File flags for F-GETFL and F-SETFL:
 
-(defconstant FNDELAY  #-osf1 #o0004 #+osf1 #o100000 "Non-blocking reads")
-(defconstant FAPPEND  #-linux #o0010 #+linux #o2000  "Append on each write") 
+(defconstant FNDELAY  #-osf1 #o0004 #+osf1 #o100000 _N"Non-blocking reads")
+(defconstant FAPPEND  #-linux #o0010 #+linux #o2000  _N"Append on each write") 
 (defconstant FASYNC   #-(or linux svr4) #o0100 #+svr4 #o10000 #+linux #o20000
-  "Signal pgrp when data ready")
+  _N"Signal pgrp when data ready")
 ;; doesn't exist in Linux ;-(
 #-linux (defconstant FCREAT   #-(or hpux svr4) #o1000 #+(or hpux svr4) #o0400
-   "Create if nonexistant")
+   _N"Create if nonexistant")
 #-linux (defconstant FTRUNC   #-(or hpux svr4) #o2000 #+(or hpux svr4) #o1000
-  "Truncate to zero length")
+  _N"Truncate to zero length")
 #-linux (defconstant FEXCL    #-(or hpux svr4) #o4000 #+(or hpux svr4) #o2000
-  "Error if already created")
+  _N"Error if already created")
 
 (defun unix-fcntl (fd cmd arg)
-  "Unix-fcntl manipulates file descriptors according to the
+  _N"Unix-fcntl manipulates file descriptors according to the
    argument CMD which can be one of the following:
 
    F-DUPFD         Duplicate a file descriptor.
@@ -1371,7 +1372,7 @@
 ;;; Unix-link creates a hard link from name2 to name1.
 
 (defun unix-link (name1 name2)
-  "Unix-link creates a hard link from the file with name1 to the
+  _N"Unix-link creates a hard link from the file with name1 to the
    file with name2."
   (declare (type unix-pathname name1 name2))
   (void-syscall ("link" c-string c-string)
@@ -1379,19 +1380,19 @@
 
 ;;; Unix-lseek accepts a file descriptor, an offset, and whence value.
 
-(defconstant l_set 0 "set the file pointer")
-(defconstant l_incr 1 "increment the file pointer")
-(defconstant l_xtnd 2 "extend the file size")
+(defconstant l_set 0 _N"set the file pointer")
+(defconstant l_incr 1 _N"increment the file pointer")
+(defconstant l_xtnd 2 _N"extend the file size")
 
 #-solaris
 (defun unix-lseek (fd offset whence)
-  "Unix-lseek accepts a file descriptor and moves the file pointer ahead
+  _N"Unix-lseek accepts a file descriptor and moves the file pointer ahead
    a certain offset for that file.  Whence can be any of the following:
 
    l_set        Set the file pointer.
    l_incr       Increment the file pointer.
    l_xtnd       Extend the file size.
-  "
+  _N"
   (declare (type unix-fd fd)
 	   (type file-offset offset)
 	   (type (integer 0 2) whence))
@@ -1399,13 +1400,13 @@
 
 #+solaris
 (defun unix-lseek (fd offset whence)
-  "Unix-lseek accepts a file descriptor and moves the file pointer ahead
+  _N"Unix-lseek accepts a file descriptor and moves the file pointer ahead
    a certain offset for that file.  Whence can be any of the following:
 
    l_set        Set the file pointer.
    l_incr       Increment the file pointer.
    l_xtnd       Extend the file size.
-  "
+  _N"
   (declare (type unix-fd fd)
 	   (type file-offset64 offset)
 	   (type (integer 0 2) whence))
@@ -1421,7 +1422,7 @@
 ;;; corresponding directory with mode mode.
 
 (defun unix-mkdir (name mode)
-  "Unix-mkdir creates a new directory with the specified name and mode.
+  _N"Unix-mkdir creates a new directory with the specified name and mode.
    (Same as those for unix-chmod.)  It returns T upon success, otherwise
    NIL and an error number."
   (declare (type unix-pathname name)
@@ -1431,36 +1432,36 @@
 ;;; Unix-open accepts a pathname (a simple string), flags, and mode and
 ;;; attempts to open file with name pathname.
 
-(defconstant o_rdonly 0 "Read-only flag.") 
-(defconstant o_wronly 1 "Write-only flag.")
-(defconstant o_rdwr 2   "Read-write flag.")
+(defconstant o_rdonly 0 _N"Read-only flag.") 
+(defconstant o_wronly 1 _N"Write-only flag.")
+(defconstant o_rdwr 2   _N"Read-write flag.")
 #+(or hpux linux svr4)
-(defconstant o_ndelay #-linux 4 #+linux #o4000 "Non-blocking I/O")
-(defconstant o_append #-linux #o10 #+linux #o2000   "Append flag.")
+(defconstant o_ndelay #-linux 4 #+linux #o4000 _N"Non-blocking I/O")
+(defconstant o_append #-linux #o10 #+linux #o2000   _N"Append flag.")
 #+(or hpux svr4 linux)
 (progn
-  (defconstant o_creat #-linux #o400 #+linux #o100 "Create if nonexistant flag.") 
-  (defconstant o_trunc #o1000  "Truncate flag.")
-  (defconstant o_excl #-linux #o2000 #+linux #o200 "Error if already exists.")
+  (defconstant o_creat #-linux #o400 #+linux #o100 _N"Create if nonexistant flag.") 
+  (defconstant o_trunc #o1000  _N"Truncate flag.")
+  (defconstant o_excl #-linux #o2000 #+linux #o200 _N"Error if already exists.")
   (defconstant o_noctty #+linux #o400 #+hpux #o400000 #+(or irix solaris) #x800
-               "Don't assign controlling tty"))
+               _N"Don't assign controlling tty"))
 #+(or hpux svr4 BSD)
 (defconstant o_nonblock #+hpux #o200000 #+(or irix solaris) #x80 #+BSD #x04
-  "Non-blocking mode")
+  _N"Non-blocking mode")
 #+BSD
 (defconstant o_ndelay o_nonblock) ; compatibility
 #+linux
 (progn
-   (defconstant o_sync #o10000 "Synchronous writes (on ext2)"))
+   (defconstant o_sync #o10000 _N"Synchronous writes (on ext2)"))
 
 #-(or hpux svr4 linux)
 (progn
-  (defconstant o_creat #o1000  "Create if nonexistant flag.") 
-  (defconstant o_trunc #o2000  "Truncate flag.")
-  (defconstant o_excl #o4000  "Error if already exists."))
+  (defconstant o_creat #o1000  _N"Create if nonexistant flag.") 
+  (defconstant o_trunc #o2000  _N"Truncate flag.")
+  (defconstant o_excl #o4000  _N"Error if already exists."))
 
 (defun unix-open (path flags mode)
-  "Unix-open opens the file whose pathname is specified by path
+  _N"Unix-open opens the file whose pathname is specified by path
    for reading and/or writing as specified by the flags argument.
    The flags argument can be:
 
@@ -1481,7 +1482,7 @@
 	       (%name->file path) flags mode))
 
 (defun unix-pipe ()
-  "Unix-pipe sets up a unix-piping mechanism consisting of
+  _N"Unix-pipe sets up a unix-piping mechanism consisting of
   an input pipe and an output pipe.  Unix-Pipe returns two
   values: if no error occurred the first value is the pipe
   to be read from and the second is can be written to.  If
@@ -1498,7 +1499,7 @@
 ;;; bytes read.
 
 (defun unix-read (fd buf len)
-  "Unix-read attempts to read from the file described by fd into
+  _N"Unix-read attempts to read from the file described by fd into
    the buffer buf until it is full.  Len is the length of the buffer.
    The number of bytes actually read is returned or NIL and an error
    number if an error occured."
@@ -1539,7 +1540,7 @@
   (int-syscall ("read" int (* char) int) fd buf len))
 
 (defun unix-readlink (path)
-  "Unix-readlink invokes the readlink system call on the file name
+  _N"Unix-readlink invokes the readlink system call on the file name
   specified by the simple string path.  It returns up to two values:
   the contents of the symbolic link if the call is successful, or
   NIL and the Unix error number."
@@ -1563,7 +1564,7 @@
 ;;; Unix-rename accepts two files names and renames the first to the second.
 
 (defun unix-rename (name1 name2)
-  "Unix-rename renames the file with string name1 to the string
+  _N"Unix-rename renames the file with string name1 to the string
    name2.  NIL and an error code is returned if an error occured."
   (declare (type unix-pathname name1 name2))
   (void-syscall ("rename" c-string c-string)
@@ -1572,7 +1573,7 @@
 ;;; Unix-rmdir accepts a name and removes the associated directory.
 
 (defun unix-rmdir (name)
-  "Unix-rmdir attempts to remove the directory name.  NIL and
+  _N"Unix-rmdir attempts to remove the directory name.  NIL and
    an error number is returned if an error occured."
   (declare (type unix-pathname name))
   (void-syscall ("rmdir" c-string) (%name->file name)))
@@ -1583,7 +1584,7 @@
 (defmacro unix-fast-select (num-descriptors
 			    read-fds write-fds exception-fds
 			    timeout-secs &optional (timeout-usecs 0))
-  "Perform the UNIX select(2) system call.
+  _N"Perform the UNIX select(2) system call.
   (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)
 	   (type (or (alien (* (struct fd-set))) null)
 		 read-fds write-fds exception-fds)
@@ -1623,7 +1624,7 @@
 			    ,(* index 32))))))
 
 (defun unix-select (nfds rdfds wrfds xpfds to-secs &optional (to-usecs 0))
-  "Unix-select examines the sets of descriptors passed as arguments
+  _N"Unix-select examines the sets of descriptors passed as arguments
    to see if they are ready for reading and writing.  See the UNIX
    Programmers Manual for more information."
   (declare (type (integer 0 #.FD-SETSIZE) nfds)
@@ -1659,7 +1660,7 @@
 ;;; to permanent storage (i.e. disk).
 
 (defun unix-sync ()
-  "Unix-sync writes all information in core memory which has been
+  _N"Unix-sync writes all information in core memory which has been
    modified to disk.  It returns NIL and an error code if an error
    occured."
   (void-syscall ("sync")))
@@ -1668,7 +1669,7 @@
 ;;; permanent storage (i.e. disk).
 
 (defun unix-fsync (fd)
-  "Unix-fsync writes the core image of the file described by
+  _N"Unix-fsync writes the core image of the file described by
    fd to disk."
   (declare (type unix-fd fd))
   (void-syscall ("fsync" int) fd))
@@ -1677,7 +1678,7 @@
 ;;; truncated to the new length.
 
 (defun unix-truncate (name len)
-  "Unix-truncate truncates the named file to the length (in
+  _N"Unix-truncate truncates the named file to the length (in
    bytes) specified by len.  NIL and an error number is returned
    if the call is unsuccessful."
   (declare (type unix-pathname name)
@@ -1688,7 +1689,7 @@
   (void-syscall ("truncate" c-string unsigned-long unsigned-long) name len 0))
 
 (defun unix-ftruncate (fd len)
-  "Unix-ftruncate is similar to unix-truncate except that the first
+  _N"Unix-ftruncate is similar to unix-truncate except that the first
    argument is a file descriptor rather than a file name."
   (declare (type unix-fd fd)
 	   (type (unsigned-byte #+solaris 64 #-solaris 32) len))
@@ -1698,7 +1699,7 @@
   (void-syscall ("ftruncate" int unsigned-long unsigned-long) fd len 0))
 
 (defun unix-symlink (name1 name2)
-  "Unix-symlink creates a symbolic link named name2 to the file
+  _N"Unix-symlink creates a symbolic link named name2 to the file
    named name1.  NIL and an error number is returned if the call
    is unsuccessful."
   (declare (type unix-pathname name1 name2))
@@ -1709,7 +1710,7 @@
 ;;; name and the file if this is the last link.
 
 (defun unix-unlink (name)
-  "Unix-unlink removes the directory entry for the named file.
+  _N"Unix-unlink removes the directory entry for the named file.
    NIL and an error code is returned if the call fails."
   (declare (type unix-pathname name))
   (void-syscall ("unlink" c-string) (%name->file name)))
@@ -1720,7 +1721,7 @@
 ;;; the actual number of bytes written.
 
 (defun unix-write (fd buf offset len)
-  "Unix-write attempts to write a character buffer (buf) of length
+  _N"Unix-write attempts to write a character buffer (buf) of length
    len to the file described by the file descriptor fd.  NIL and an
    error is returned if the call is unsuccessful."
   (declare (type unix-fd fd)
@@ -1938,7 +1939,7 @@
 
 
 (defun unix-ioctl (fd cmd arg)
-  "Unix-ioctl performs a variety of operations on open i/o
+  _N"Unix-ioctl performs a variety of operations on open i/o
    descriptors.  See the UNIX Programmer's Manual for more
    information."
   (declare (type unix-fd fd)
@@ -1948,12 +1949,12 @@
 #+(or svr4 hpux bsd linux)
 (progn
   (defun unix-tcgetattr (fd termios)
-    "Get terminal attributes."
+    _N"Get terminal attributes."
     (declare (type unix-fd fd))
     (void-syscall ("tcgetattr" int (* (struct termios))) fd termios))
 
   (defun unix-tcsetattr (fd opt termios)
-    "Set terminal attributes."
+    _N"Set terminal attributes."
     (declare (type unix-fd fd))
     (void-syscall ("tcsetattr" int int (* (struct termios))) fd opt termios))
 
@@ -1961,7 +1962,7 @@
   ;; not verified.
   #-bsd
   (defun unix-cfgetospeed (termios)
-    "Get terminal output speed."
+    _N"Get terminal output speed."
     (multiple-value-bind (speed errno)
         (int-syscall ("cfgetospeed" (* (struct termios))) termios)
       (if speed
@@ -1970,24 +1971,24 @@
 
   #+bsd
   (defun unix-cfgetospeed (termios)
-    "Get terminal output speed."
+    _N"Get terminal output speed."
     (int-syscall ("cfgetospeed" (* (struct termios))) termios))
 
   #-bsd
   (defun unix-cfsetospeed (termios speed)
-    "Set terminal output speed."
+    _N"Set terminal output speed."
     (let ((baud (or (position speed terminal-speeds)
-                    (error "Bogus baud rate ~S" speed))))
+                    (error _"Bogus baud rate ~S" speed))))
       (void-syscall ("cfsetospeed" (* (struct termios)) int) termios baud)))
   
   #+bsd
   (defun unix-cfsetospeed (termios speed)
-    "Set terminal output speed."
+    _N"Set terminal output speed."
     (void-syscall ("cfsetospeed" (* (struct termios)) int) termios speed))
   
   #-bsd
   (defun unix-cfgetispeed (termios)
-    "Get terminal input speed."
+    _N"Get terminal input speed."
     (multiple-value-bind (speed errno)
         (int-syscall ("cfgetispeed" (* (struct termios))) termios)
       (if speed
@@ -1996,50 +1997,50 @@
 
   #+bsd
   (defun unix-cfgetispeed (termios)
-    "Get terminal input speed."
+    _N"Get terminal input speed."
     (int-syscall ("cfgetispeed" (* (struct termios))) termios))
   
   #-bsd
   (defun unix-cfsetispeed (termios speed)
-    "Set terminal input speed."
+    _N"Set terminal input speed."
     (let ((baud (or (position speed terminal-speeds)
-                    (error "Bogus baud rate ~S" speed))))
+                    (error _"Bogus baud rate ~S" speed))))
       (void-syscall ("cfsetispeed" (* (struct termios)) int) termios baud)))
 
   #+bsd
   (defun unix-cfsetispeed (termios speed)
-    "Set terminal input speed."
+    _N"Set terminal input speed."
     (void-syscall ("cfsetispeed" (* (struct termios)) int) termios speed))
 
   (defun unix-tcsendbreak (fd duration)
-    "Send break"
+    _N"Send break"
     (declare (type unix-fd fd))
     (void-syscall ("tcsendbreak" int int) fd duration))
 
   (defun unix-tcdrain (fd)
-    "Wait for output for finish"
+    _N"Wait for output for finish"
     (declare (type unix-fd fd))
     (void-syscall ("tcdrain" int) fd))
 
   (defun unix-tcflush (fd selector)
-    "See tcflush(3)"
+    _N"See tcflush(3)"
     (declare (type unix-fd fd))
     (void-syscall ("tcflush" int int) fd selector))
 
   (defun unix-tcflow (fd action)
-    "Flow control"
+    _N"Flow control"
     (declare (type unix-fd fd))
     (void-syscall ("tcflow" int int) fd action)))
 
 (defun tcsetpgrp (fd pgrp)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP."
   (alien:with-alien ((alien-pgrp c-call:int pgrp))
     (unix-ioctl fd
 		tiocspgrp
 		(alien:alien-sap (alien:addr alien-pgrp)))))
 
 (defun tcgetpgrp (fd)
-  "Get the tty-process-group for the unix file-descriptor FD."
+  _N"Get the tty-process-group for the unix file-descriptor FD."
   (alien:with-alien ((alien-pgrp c-call:int))
     (multiple-value-bind (ok err)
 	(unix-ioctl fd
@@ -2050,7 +2051,7 @@
 	  (values nil err)))))
 
 (defun tty-process-group (&optional fd)
-  "Get the tty-process-group for the unix file-descriptor FD.  If not supplied,
+  _N"Get the tty-process-group for the unix file-descriptor FD.  If not supplied,
   FD defaults to /dev/tty."
   (if fd
       (tcgetpgrp fd)
@@ -2064,7 +2065,7 @@
 	       (values nil errno))))))
 
 (defun %set-tty-process-group (pgrp &optional fd)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
   supplied, FD defaults to /dev/tty."
   (let ((old-sigs
 	 (unix-sigblock
@@ -2084,7 +2085,7 @@
       (unix-sigsetmask old-sigs))))
   
 (defsetf tty-process-group (&optional fd) (pgrp)
-  "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
+  _N"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not
   supplied, FD defaults to /dev/tty."
   `(%set-tty-process-group ,pgrp ,fd))
 
@@ -2099,7 +2100,7 @@
 
 #+(or hpux bsd linux)
 (defun siocspgrp (fd pgrp)
-  "Set the socket process-group for the unix file-descriptor FD to PGRP."
+  _N"Set the socket process-group for the unix file-descriptor FD to PGRP."
   (alien:with-alien ((alien-pgrp c-call:int pgrp))
     (unix-ioctl fd
 		siocspgrp
@@ -2108,7 +2109,7 @@
 ;;; Unix-exit terminates a program.
 
 (defun unix-exit (&optional (code 0))
-  "Unix-exit terminates the current process with an optional
+  _N"Unix-exit terminates the current process with an optional
    error code.  If successful, the call doesn't return.  If
    unsuccessful, the call returns NIL and an error number."
   (declare (type (signed-byte 32) code))
@@ -2141,7 +2142,7 @@
 #-solaris
 (progn
 (defun unix-stat (name)
-  "Unix-stat retrieves information about the specified
+  _N"Unix-stat retrieves information about the specified
    file returning them in the form of multiple values.
    See the UNIX Programmer's Manual for a description
    of the values returned.  If the call fails, then NIL
@@ -2155,7 +2156,7 @@
 	     (%name->file name) (addr buf))))
 
 (defun unix-lstat (name)
-  "Unix-lstat is similar to unix-stat except the specified
+  _N"Unix-lstat is similar to unix-stat except the specified
    file must be a symbolic link."
   (declare (type unix-pathname name))
   (with-alien ((buf (struct stat)))
@@ -2164,7 +2165,7 @@
 	     (%name->file name) (addr buf))))
 
 (defun unix-fstat (fd)
-  "Unix-fstat is similar to unix-stat except the file is specified
+  _N"Unix-fstat is similar to unix-stat except the file is specified
    by the file descriptor fd."
   (declare (type unix-fd fd))
   (with-alien ((buf (struct stat)))
@@ -2177,7 +2178,7 @@
 #+solaris
 (progn
 (defun unix-stat (name)
-  "Unix-stat retrieves information about the specified
+  _N"Unix-stat retrieves information about the specified
    file returning them in the form of multiple values.
    See the UNIX Programmer's Manual for a description
    of the values returned.  If the call fails, then NIL
@@ -2191,7 +2192,7 @@
 	     (%name->file name) (addr buf))))
 
 (defun unix-lstat (name)
-  "Unix-lstat is similar to unix-stat except the specified
+  _N"Unix-lstat is similar to unix-stat except the specified
    file must be a symbolic link."
   (declare (type unix-pathname name))
   (with-alien ((buf (struct stat64)))
@@ -2200,7 +2201,7 @@
 	     (%name->file name) (addr buf))))
 
 (defun unix-fstat (fd)
-  "Unix-fstat is similar to unix-stat except the file is specified
+  _N"Unix-fstat is similar to unix-stat except the file is specified
    by the file descriptor fd."
   (declare (type unix-fd fd))
   (with-alien ((buf (struct stat64)))
@@ -2210,12 +2211,12 @@
 )
 
 
-(defconstant rusage_self 0 "The calling process.")
-(defconstant rusage_children -1 "Terminated child processes.")
+(defconstant rusage_self 0 _N"The calling process.")
+(defconstant rusage_children -1 _N"Terminated child processes.")
 
 (declaim (inline unix-fast-getrusage))
 (defun unix-fast-getrusage (who)
-  "Like call getrusage, but return only the system and user time, and returns
+  _N"Like call getrusage, but return only the system and user time, and returns
    the seconds and microseconds as separate values."
   (declare (values (member t)
 		   (unsigned-byte 31) (mod 1000000)
@@ -2230,7 +2231,7 @@
 	      who (addr usage))))
 
 (defun unix-getrusage (who)
-  "Unix-getrusage returns information about the resource usage
+  _N"Unix-getrusage returns information about the resource usage
    of the process specified by who.  Who can be either the
    current process (rusage_self) or all of the terminated
    child processes (rusage_children).  NIL and an error number
@@ -2272,7 +2273,7 @@
 
 (declaim (inline unix-times))
 (defun unix-times ()
-  "Unix-times returns information about the cpu time usage of the process
+  _N"Unix-times returns information about the cpu time usage of the process
    and its children."
   (with-alien ((usage (struct tms)))
     (alien-funcall (extern-alien "times" (function int (* (struct tms))))
@@ -2320,7 +2321,7 @@
 )
 (declaim (inline unix-gettimeofday))
 (defun unix-gettimeofday ()
-  "If it works, unix-gettimeofday returns 5 values: T, the seconds and
+  _N"If it works, unix-gettimeofday returns 5 values: T, the seconds and
    microseconds of the current time of day, the timezone (in minutes west
    of Greenwich), and a daylight-savings flag.  If it doesn't work, it
    returns NIL and the errno."
@@ -2345,7 +2346,7 @@
 
 #-hpux
 (defun unix-utimes (file atime-sec atime-usec mtime-sec mtime-usec)
-  "Unix-utimes sets the 'last-accessed' and 'last-updated'
+  _N"Unix-utimes sets the 'last-accessed' and 'last-updated'
    times on a specified file.  NIL and an error number is
    returned if the call is unsuccessful."
   (declare (type unix-pathname file)
@@ -2368,7 +2369,7 @@
 
 #-(or svr4 hpux)
 (defun unix-setreuid (ruid euid)
-  "Unix-setreuid sets the real and effective user-id's of the current
+  _N"Unix-setreuid sets the real and effective user-id's of the current
    process to the specified ones.  NIL and an error number is returned
    if the call fails."
   (void-syscall ("setreuid" int int) ruid euid))
@@ -2380,28 +2381,28 @@
 
 #-(or svr4 hpux)
 (defun unix-setregid (rgid egid)
-  "Unix-setregid sets the real and effective group-id's of the current
+  _N"Unix-setregid sets the real and effective group-id's of the current
    process process to the specified ones.  NIL and an error number is
    returned if the call fails."
   (void-syscall ("setregid" int int) rgid egid))
 
 (def-alien-routine ("getpid" unix-getpid) int
-  "Unix-getpid returns the process-id of the current process.")
+  _N"Unix-getpid returns the process-id of the current process.")
 
 (def-alien-routine ("getppid" unix-getppid) int
-  "Unix-getppid returns the process-id of the parent of the current process.")
+  _N"Unix-getppid returns the process-id of the parent of the current process.")
 
 (def-alien-routine ("getgid" unix-getgid) int
-  "Unix-getgid returns the real group-id of the current process.")
+  _N"Unix-getgid returns the real group-id of the current process.")
 
 (def-alien-routine ("getegid" unix-getegid) int
-  "Unix-getegid returns the effective group-id of the current process.")
+  _N"Unix-getegid returns the effective group-id of the current process.")
 
 ;;; Unix-getpgrp returns the group-id associated with the
 ;;; current process.
 
 (defun unix-getpgrp ()
-  "Unix-getpgrp returns the group-id of the calling process."
+  _N"Unix-getpgrp returns the group-id of the calling process."
   (int-syscall ("getpgrp")))
 
 ;;; Unix-setpgid sets the group-id of the process specified by 
@@ -2413,39 +2414,39 @@
 ;;; out in favor of setsid().
 
 (defun unix-setpgrp (pid pgrp)
-  "Unix-setpgrp sets the process group on the process pid to
+  _N"Unix-setpgrp sets the process group on the process pid to
    pgrp.  NIL and an error number are returned upon failure."
   (void-syscall (#-svr4 "setpgrp" #+svr4 "setpgid" int int) pid pgrp))
 
 (defun unix-setpgid (pid pgrp)
-  "Unix-setpgid sets the process group of the process pid to
+  _N"Unix-setpgid sets the process group of the process pid to
    pgrp. If pgid is equal to pid, the process becomes a process
    group leader. NIL and an error number are returned upon failure."
   (void-syscall ("setpgid" int int) pid pgrp))
 
 (def-alien-routine ("getuid" unix-getuid) int
-  "Unix-getuid returns the real user-id associated with the
+  _N"Unix-getuid returns the real user-id associated with the
    current process.")
 
 ;;; Unix-getpagesize returns the number of bytes in the system page.
 
 (defun unix-getpagesize ()
-  "Unix-getpagesize returns the number of bytes in a system page."
+  _N"Unix-getpagesize returns the number of bytes in a system page."
   (int-syscall ("getpagesize")))
 
 (defun unix-gethostname ()
-  "Unix-gethostname returns the name of the host machine as a string."
+  _N"Unix-gethostname returns the name of the host machine as a string."
   (with-alien ((buf (array char 256)))
     (syscall* ("gethostname" (* char) int)
 	      (cast buf c-string)
 	      (cast buf (* char)) 256)))
 
 (def-alien-routine ("gethostid" unix-gethostid) unsigned-long
-  "Unix-gethostid returns a 32-bit integer which provides unique
+  _N"Unix-gethostid returns a 32-bit integer which provides unique
    identification for the host machine.")
 
 (defun unix-fork ()
-  "Executes the unix fork system call.  Returns 0 in the child and the pid
+  _N"Executes the unix fork system call.  Returns 0 in the child and the pid
    of the child in the parent if it works, or NIL and an error number if it
    doesn't work."
   (int-syscall ("fork")))
@@ -2453,7 +2454,7 @@
 ;; Environment maninpulation; man getenv(3)
 (def-alien-routine ("getenv" unix-getenv) c-call:c-string
   (name c-call:c-string) 
-  "Get the value of the environment variable named Name.  If no such
+  _N"Get the value of the environment variable named Name.  If no such
   variable exists, Nil is returned.")
 
 ;; This doesn't exist in Solaris 8 but does exist in Solaris 10.
@@ -2461,7 +2462,7 @@
   (name c-call:c-string)
   (value c-call:c-string)
   (overwrite c-call:int)
-  "Adds the environment variable named Name to the environment with
+  _N"Adds the environment variable named Name to the environment with
   the given Value if Name does not already exist. If Name does exist,
   the value is changed to Value if Overwrite is non-zero.  Otherwise,
   the value is not changed.")
@@ -2469,14 +2470,14 @@
 
 (def-alien-routine ("putenv" unix-putenv) c-call:int
   (name-value c-call:c-string)
-  "Adds or changes the environment.  Name-value must be a string of
+  _N"Adds or changes the environment.  Name-value must be a string of
   the form \"name=value\".  If the name does not exist, it is added.
   If name does exist, the value is updated to the given value.")
 
 ;; This doesn't exist in Solaris 8 but does exist in Solaris 10.
 (def-alien-routine ("unsetenv" unix-unsetenv) c-call:int
   (name c-call:c-string)
-  "Removes the variable Name from the environment")
+  _N"Removes the variable Name from the environment")
 
 
 ;;; Operations on Unix Directories.
@@ -2640,7 +2641,7 @@
 	  unix-resolve-links unix-simplify-pathname))
 
 (defun unix-file-kind (name &optional check-for-links)
-  "Returns either :file, :directory, :link, :special, or NIL."
+  _N"Returns either :file, :directory, :link, :special, or NIL."
   (declare (simple-string name))
   (multiple-value-bind (res dev ino mode)
 		       (if check-for-links
@@ -2665,7 +2666,7 @@
 	    name))))
 
 (defun unix-resolve-links (pathname)
-  "Returns the pathname with all symbolic links resolved."
+  _N"Returns the pathname with all symbolic links resolved."
   (declare (simple-string pathname))
   (let ((len (length pathname))
 	(pending pathname))
@@ -2696,7 +2697,7 @@
 		(cond ((eq kind :link)
 		       (multiple-value-bind (link err) (unix-readlink result)
 			 (unless link
-			   (error "Error reading link ~S: ~S"
+			   (error _"Error reading link ~S: ~S"
 				  (subseq result 0 fill-ptr)
 				  (get-unix-error-msg err)))
 			 (cond ((or (zerop (length link))
@@ -2828,7 +2829,7 @@
 ;;;; Other random routines.
 
 (def-alien-routine ("isatty" unix-isatty) boolean
-  "Accepts a Unix file descriptor and returns T if the device
+  _N"Accepts a Unix file descriptor and returns T if the device
   associated with it is a terminal."
   (fd int))
 
@@ -2848,7 +2849,7 @@
 
 (defun unix-execve (program &optional arg-list
 			    (environment *environment-list*))
-  "Executes the Unix execve system call.  If the system call suceeds, lisp
+  _N"Executes the Unix execve system call.  If the system call suceeds, lisp
    will no longer be running in this process.  If the system call fails this
    function returns two values: NIL and an error code.  Arg-list should be a
    list of simple-strings which are passed as arguments to the exec'ed program.
@@ -3081,7 +3082,7 @@
 (defconstant ITIMER-PROF 2)
 
 (defun unix-getitimer (which)
-  "Unix-getitimer returns the INTERVAL and VALUE slots of one of
+  _N"Unix-getitimer returns the INTERVAL and VALUE slots of one of
    three system timers (:real :virtual or :profile). On success,
    unix-getitimer returns 5 values,
    T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
@@ -3103,7 +3104,7 @@
 		which (alien-sap (addr itv))))))
 
 (defun unix-setitimer (which int-secs int-usec val-secs val-usec)
-  " Unix-setitimer sets the INTERVAL and VALUE slots of one of
+  _N" Unix-setitimer sets the INTERVAL and VALUE slots of one of
    three system timers (:real :virtual or :profile). A SIGALRM signal
    will be delivered VALUE <seconds+microseconds> from now. INTERVAL,
    when non-zero, is <seconds+microseconds> to be loaded each time
@@ -3140,7 +3141,7 @@
 
 #+solaris
 (defun unix-getpwnam (login)
-  "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
   (declare (type simple-string login))
   (with-alien ((buf (array c-call:char 1024))
 	       (user-info (struct passwd)))
@@ -3170,7 +3171,7 @@
 
 #+bsd
 (defun unix-getpwnam (login)
-  "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not found."
   (declare (type simple-string login))
   (let ((result
          (alien-funcall
@@ -3191,7 +3192,7 @@
 
 #+solaris
 (defun unix-getpwuid (uid)
-  "Return a USER-INFO structure for the user identified by UID, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by UID, or NIL if not found."
   (declare (type unix-uid uid))
   (with-alien ((buf (array c-call:char 1024))
 	       (user-info (struct passwd)))
@@ -3221,7 +3222,7 @@
 
 #+bsd
 (defun unix-getpwuid (uid)
-  "Return a USER-INFO structure for the user identified by UID, or NIL if not found."
+  _N"Return a USER-INFO structure for the user identified by UID, or NIL if not found."
   (declare (type unix-uid uid))
   (let ((result
          (alien-funcall
@@ -3243,11 +3244,11 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   ;; sysconf(_SC_GETGR_R_SIZE_MAX)
   (defconstant +sc-getgr-r-size-max+ 7296
-    "The maximum size of the group entry buffer"))
+    _N"The maximum size of the group entry buffer"))
 
 #+solaris
 (defun unix-getgrnam (name)
-  "Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
   (declare (type simple-string name))
   (with-alien ((buf (array c-call:char #.+sc-getgr-r-size-max+))
 	       (group-info (struct group)))
@@ -3276,7 +3277,7 @@
 
 #+bsd
 (defun unix-getgrnam (name)
-  "Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by NAME, or NIL if not found."
   (declare (type simple-string name))
   (let ((result
          (alien-funcall
@@ -3297,7 +3298,7 @@
 
 #+solaris
 (defun unix-getgrgid (gid)
-  "Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
   (declare (type unix-gid gid))
   (with-alien ((buf (array c-call:char #.+sc-getgr-r-size-max+))
 	       (group-info (struct group)))
@@ -3326,7 +3327,7 @@
 
 #+bsd
 (defun unix-getgrgid (gid)
-  "Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
+  _N"Return a GROUP-INFO structure for the group identified by GID, or NIL if not found."
   (declare (type unix-gid gid))
   (let ((result
          (alien-funcall
@@ -3441,19 +3442,19 @@
 #+solaris
 (progn
 (defconstant rlimit_cpu 0
-  "CPU time per process (in milliseconds)")
+  _N"CPU time per process (in milliseconds)")
 (defconstant rlimit_fsize 1
-  "Maximum file size")
+  _N"Maximum file size")
 (defconstant rlimit_data 2
-  "Data segment size")
+  _N"Data segment size")
 (defconstant rlimit_stack 3
-  "Stack size")
+  _N"Stack size")
 (defconstant rlimit_core 4
-  "Core file size")
+  _N"Core file size")
 (defconstant rlimit_nofile 5
-  "Number of open files")
+  _N"Number of open files")
 (defconstant rlimit_vmem 6
-  "Maximum mapped memory")
+  _N"Maximum mapped memory")
 (defconstant rlimit_as rlimit_vmem)
 )
 
@@ -3464,24 +3465,24 @@
 #+(and darwin x86)
 (progn
 (defconstant rlimit_cpu 0
-  "CPU time per process")
+  _N"CPU time per process")
 (defconstant rlimit_fsize 1
-  "File size")
+  _N"File size")
 (defconstant rlimit_data 2
-  "Data segment size")
+  _N"Data segment size")
 (defconstant rlimit_stack 3
-  "Stack size")
+  _N"Stack size")
 (defconstant rlimit_core 4
-  "Core file size")
+  _N"Core file size")
 (defconstant rlimit_as 5
-  "Addess space (resident set size)")
+  _N"Addess space (resident set size)")
 (defconstant rlimit_rss rlimit_as)
 (defconstant rlimit_memlock 6
-  "Locked-in-memory address space")
+  _N"Locked-in-memory address space")
 (defconstant rlimit_nproc 7
-  "Number of processes")
+  _N"Number of processes")
 (defconstant rlimit_nofile 8
-  "Number of open files")
+  _N"Number of open files")
 )
 
 
@@ -3490,7 +3491,7 @@
 
 #+(or solaris (and darwin x86))
 (defun unix-getrlimit (resource)
-  "Get the limits on the consumption of system resouce specified by
+  _N"Get the limits on the consumption of system resouce specified by
   Resource.  If successful, return three values: T, the current (soft)
   limit, and the maximum (hard) limit."
   
diff --git a/code/vm.lisp b/code/vm.lisp
index a4253e84f4886f1244e640551c20e82039ad5ae6..77a07a4dc1e7eba462ce2ccc69403596235b4a61 100644
--- a/code/vm.lisp
+++ b/code/vm.lisp
@@ -5,16 +5,18 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/vm.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/vm.lisp,v 1.4 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/vm.lisp,v 1.3 1994/10/31 04:11:27 ram Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/vm.lisp,v 1.4 2010/03/19 15:19:00 rtoy Rel $
 ;;;
 ;;; This file contains stubs for interfacing MACH's vm primitives.
 ;;;
 (in-package "MACH")
 
+(intl:textdomain "cmucl")
+
 (export '(vm_allocate vm_copy vm_deallocate vm_statistics))
 
 (def-c-pointer *sap system-area-pointer)
diff --git a/code/weak.lisp b/code/weak.lisp
index 7d4ed8c504a24b2f4621e5359acaf824b25a2379..89295dd3dfe4e85681c096b6fb964cf98a878921 100644
--- a/code/weak.lisp
+++ b/code/weak.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.6 2003/06/18 14:29:24 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.7 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.6 2003/06/18 14:29:24 gerd Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.7 2010/03/19 15:19:00 rtoy Exp $
 ;;;
 ;;; Weak Pointer Support.
 ;;;
@@ -18,16 +18,18 @@
 
 (in-package "EXTENSIONS")
 
+(intl:textdomain "cmucl")
+
 (export '(weak-pointer weak-pointer-p make-weak-pointer weak-pointer-value))
 
 (defun make-weak-pointer (object)
-  "Allocates and returns a weak pointer which points to OBJECT."
+  _N"Allocates and returns a weak pointer which points to OBJECT."
   (declare (values weak-pointer))
   (make-weak-pointer object))
 
 (declaim (inline weak-pointer-value))
 (defun weak-pointer-value (weak-pointer)
-  "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.
+  _N"If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.
    If the referent of WEAK-POINTER has been garbage collected, returns
    the values NIL and NIL."
   (declare (type weak-pointer weak-pointer)
@@ -42,7 +44,7 @@
 
 (declaim (inline (setf weak-pointer-value)))
 (defun (setf weak-pointer-value) (object weak-pointer)
-  "Updates WEAK-POINTER to point to a new object."
+  _N"Updates WEAK-POINTER to point to a new object."
   (declare (type weak-pointer weak-pointer))
   (c::%set-weak-pointer-broken weak-pointer nil)
   (c::%set-weak-pointer-value weak-pointer object))
diff --git a/code/wire.lisp b/code/wire.lisp
index d329116bc07188d1d9d278b0ed33a92901395b03..9a07bc4401d224424f892e4b2da013728b3fec6f 100644
--- a/code/wire.lisp
+++ b/code/wire.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.13 2003/01/23 21:05:35 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.14 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package "WIRE")
+(intl:textdomain "cmucl")
 
 (export '(remote-object-p remote-object
 	  remote-object-local-p remote-object-eq
@@ -52,19 +53,19 @@
 
 
 (defvar *current-wire* nil
-  "The wire the form we are currently evaluating came across.")
+  _N"The wire the form we are currently evaluating came across.")
 
 (defvar *this-host* nil
-  "Unique identifier for this host.")
+  _N"Unique identifier for this host.")
 (defvar *this-pid* nil
-  "Unique identifier for this process.")
+  _N"Unique identifier for this process.")
 
 (defvar *object-to-id* (make-hash-table :test 'eq)
-  "Hash table mapping local objects to the corresponding remote id.")
+  _N"Hash table mapping local objects to the corresponding remote id.")
 (defvar *id-to-object* (make-hash-table :test 'eql)
-  "Hash table mapping remote id's to the curresponding local object.")
+  _N"Hash table mapping remote id's to the curresponding local object.")
 (defvar *next-id* 0
-  "Next available id for remote objects.")
+  _N"Next available id for remote objects.")
 
 
 (defstruct (wire
@@ -103,20 +104,20 @@
 (define-condition wire-error (error)
   ((wire :reader wire-error-wire :initarg :wire))
   (:report (lambda (condition stream)
-	     (format stream "There is a problem with ~A."
+	     (format stream _"There is a problem with ~A."
 		     (wire-error-wire condition)))))
 
 (define-condition wire-eof (wire-error)
   ()
   (:report (lambda (condition stream)
-	     (format stream "Received EOF on ~A."
+	     (format stream _"Received EOF on ~A."
 		     (wire-error-wire condition)))))
 
 (define-condition wire-io-error (wire-error)
   ((when :reader wire-io-error-when :initarg :when :initform "using")
    (msg :reader wire-io-error-msg :initarg :msg :initform "Failed."))
   (:report (lambda (condition stream)
-	     (format stream "Error ~A ~A: ~A."
+	     (format stream _"Error ~A ~A: ~A."
 		     (wire-io-error-when condition)
 		     (wire-error-wire condition)
 		     (wire-io-error-msg condition)))))
@@ -131,7 +132,7 @@
 ;;; *this-pid*
 
 (defun remote-object-local-p (remote)
-  "Returns T iff the given remote object is defined locally."
+  _N"Returns T iff the given remote object is defined locally."
   (declare (type remote-object remote))
   (unless *this-host*
     (setf *this-host* (unix:unix-gethostid))
@@ -146,7 +147,7 @@
 ;;; numbers).
 
 (defun remote-object-eq (remote1 remote2)
-  "Returns T iff the two objects refer to the same (eq) object in the same
+  _N"Returns T iff the two objects refer to the same (eq) object in the same
   process."
   (declare (type remote-object remote1 remote2))
   (and (eql (remote-object-host remote1)
@@ -164,20 +165,20 @@
 ;;; on the local object.
 
 (defun remote-object-value (remote)
-  "Return the associated value for the given remote object. It is an error if
+  _N"Return the associated value for the given remote object. It is an error if
   the remote object was not created in this process or if
   FORGET-REMOTE-TRANSLATION has been called on this remote object."
   (declare (type remote-object remote))
   (unless (remote-object-local-p remote)
-    (error "~S is defined is a different process." remote))
+    (error _"~S is defined is a different process." remote))
   (multiple-value-bind
       (value found)
       (gethash (remote-object-id remote)
 	       *id-to-object*)
     (unless found
       (cerror
-       "Use the value of NIL"
-       "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
+       _"Use the value of NIL"
+       _"No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
        remote))
     value))
 
@@ -189,7 +190,7 @@
 ;;; tables.
 
 (defun make-remote-object (local)
-  "Convert the given local object to a remote object."
+  _N"Convert the given local object to a remote object."
   (unless *this-host*
     (setf *this-host* (unix:unix-gethostid))
     (setf *this-pid* (unix:unix-getpid)))
@@ -209,7 +210,7 @@
 ;;; from the *id-to-object* hashtable.
 
 (defun forget-remote-translation (local)
-  "Forget the translation from the given local to the corresponding remote
+  _N"Forget the translation from the given local to the corresponding remote
 object. Passing that remote object to remote-object-value will new return NIL."
   (let ((id (gethash local *object-to-id*)))
     (when id
@@ -225,7 +226,7 @@ object. Passing that remote object to remote-object-value will new return NIL."
 ;;;   If nothing is in the current input buffer, select on the file descriptor.
 
 (defun wire-listen (wire)
-  "Return T iff anything is in the input buffer or available on the socket."
+  _N"Return T iff anything is in the input buffer or available on the socket."
   (or (< (wire-ibuf-offset wire)
 	 (wire-ibuf-end wire))
       (multiple-value-bind
@@ -238,7 +239,7 @@ object. Passing that remote object to remote-object-value will new return NIL."
 	(unless number
 	  (error 'wire-io-error
 		 :wire wire
-		 :when "listening to"
+		 :when _"listening to"
 		 :msg (unix:get-unix-error-msg error)))
 	(not (zerop number)))))
 
@@ -250,7 +251,7 @@ object. Passing that remote object to remote-object-value will new return NIL."
 ;;; data, set the ibuf-end index.
 
 (defun fill-input-buffer (wire)
-  "Read data off the socket, filling the input buffer. The buffer is cleared
+  _N"Read data off the socket, filling the input buffer. The buffer is cleared
 first. If fill-input-buffer returns, it is guarenteed that there will be at
 least one byte in the input buffer. If EOF was reached, as wire-eof error
 is signaled."
@@ -268,7 +269,7 @@ is signaled."
       (cond ((null bytes)
 	     (error 'wire-io-error
 		    :wire wire
-		    :when "reading"
+		    :when _"reading"
 		    :msg (unix:get-unix-error-msg error)))
 	    ((zerop bytes)
 	     (setf (wire-ibuf wire) nil)
@@ -284,7 +285,7 @@ is signaled."
 ;;; the input offset index.
 
 (defun wire-get-byte (wire)
-  "Return the next byte from the wire."
+  _N"Return the next byte from the wire."
   (when (<= (wire-ibuf-end wire)
 	    (wire-ibuf-offset wire))
     (fill-input-buffer wire))
@@ -298,7 +299,7 @@ is signaled."
 ;;;   Just read four bytes and pack them together with normal math ops.
 
 (defun wire-get-number (wire &optional (signed t))
-  "Read a number off the wire. Numbers are 4 bytes in network order.
+  _N"Read a number off the wire. Numbers are 4 bytes in network order.
 The optional argument controls weather or not the number should be considered
 signed (defaults to T)."
   (let* ((b1 (wire-get-byte wire))
@@ -316,7 +317,7 @@ signed (defaults to T)."
 ;;; Extracts a number, which might be a bignum.
 ;;;
 (defun wire-get-bignum (wire)
-  "Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and
+  _N"Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and
    return it."
   (let ((count-and-sign (wire-get-number wire)))
     (do ((count (abs count-and-sign) (1- count))
@@ -333,7 +334,7 @@ signed (defaults to T)."
 ;;; the entire string.
 
 (defun wire-get-string (wire)
-  "Reads a string from the wire. The first four bytes spec the size."
+  _N"Reads a string from the wire. The first four bytes spec the size."
   (let* ((length (wire-get-number wire))
 	 (result (make-string length))
 	 (offset 0)
@@ -371,7 +372,7 @@ signed (defaults to T)."
 ;;; to read the necessary data. Note, funcall objects are funcalled.
 
 (defun wire-get-object (wire)
-  "Reads the next object from the wire and returns it."
+  _N"Reads the next object from the wire and returns it."
   (let ((identifier (wire-get-byte wire))
 	(*current-wire* wire))
     (declare (fixnum identifier))
@@ -393,7 +394,7 @@ signed (defaults to T)."
 		  (package-name (wire-get-string wire))
 		  (package (find-package package-name)))
 	     (unless package
-	       (error "Attempt to read symbol, ~A, of wire into non-existent ~
+	       (error _"Attempt to read symbol, ~A, of wire into non-existent ~
 		       package, ~A."
 		      symbol-name package-name))
 	     (intern symbol-name package)))
@@ -487,22 +488,22 @@ signed (defaults to T)."
 	 (cond ((null ,result)
 		(error 'wire-io-error
 		       :wire wire
-		       :when "writing"
+		       :when _"writing"
 		       :msg (unix:get-unix-error-msg ,error)))
 	       ((eql ,result ,(or end length))
 		)
 	       (t
 		(error 'wire-io-error
 		       :wire wire
-		       :when "writing"
-		       :msg "Not everything wrote.")))))))
+		       :when _"writing"
+		       :msg _"Not everything wrote.")))))))
 
 ;;; WIRE-FORCE-OUTPUT -- internal
 ;;;
 ;;;   Output any stuff remaining in the output buffer.
 
 (defun wire-force-output (wire)
-  "Send any info still in the output buffer down the wire and clear it. Nothing
+  _N"Send any info still in the output buffer down the wire and clear it. Nothing
 harmfull will happen if called when the output buffer is empty."
   (unless (zerop (wire-obuf-end wire))
     (write-stuff (wire-fd wire)
@@ -517,7 +518,7 @@ harmfull will happen if called when the output buffer is empty."
 ;;; buffer using WIRE-FORCE-OUTPUT.
 
 (defun wire-output-byte (wire byte)
-  "Output the given (8-bit) byte on the wire."
+  _N"Output the given (8-bit) byte on the wire."
   (declare (integer byte))
   (let ((fill-pointer (wire-obuf-end wire))
 	(obuf (wire-obuf wire)))
@@ -535,7 +536,7 @@ harmfull will happen if called when the output buffer is empty."
 ;;; because we just crank out the low 32 bits.
 ;;;
 (defun wire-output-number (wire number)
-  "Output the given (32-bit) number on the wire."
+  _N"Output the given (32-bit) number on the wire."
   (declare (integer number))
   (wire-output-byte wire (+ 0 (ldb (byte 8 24) number)))
   (wire-output-byte wire (ldb (byte 8 16) number))
@@ -548,7 +549,7 @@ harmfull will happen if called when the output buffer is empty."
 ;;; Output an arbitrary integer.
 ;;; 
 (defun wire-output-bignum (wire number)
-  "Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
+  _N"Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
   (do ((digits 0 (1+ digits))
        (remaining (abs number) (ash remaining -32))
        (words nil (cons (ldb (byte 32 0) remaining) words)))
@@ -566,7 +567,7 @@ harmfull will happen if called when the output buffer is empty."
 ;;; followed by the bytes of the string.
 ;;;
 (defun wire-output-string (wire string)
-  "Output the given string. First output the length using WIRE-OUTPUT-NUMBER,
+  _N"Output the given string. First output the length using WIRE-OUTPUT-NUMBER,
 then output the bytes."
   (declare (simple-string string))
   (let ((length (length string)))
@@ -599,7 +600,7 @@ then output the bytes."
 ;;; Caching defaults to yes for symbols, and nil for everything else.
 
 (defun wire-output-object (wire object &optional (cache-it (symbolp object)))
-  "Output the given object on the given wire. If cache-it is T, enter this
+  _N"Output the given object on the given wire. If cache-it is T, enter this
 object in the cache for future reference."
   (let ((cache-index (gethash object
 			      (wire-object-hash wire))))
@@ -640,7 +641,7 @@ object in the cache for future reference."
 	 (wire-output-number wire (remote-object-pid object))
 	 (wire-output-number wire (remote-object-id object)))
 	(t
-	 (error "Error: Cannot output objects of type ~s across a wire."
+	 (error _"Error: Cannot output objects of type ~s across a wire."
 		(type-of object)))))))
   (values))
 
@@ -650,7 +651,7 @@ object in the cache for future reference."
 ;;; lexical environment of the WIRE-OUTPUT-FUNCALL.
 
 (defmacro wire-output-funcall (wire-form function &rest args)
-  "Send the function and args down the wire as a funcall."
+  _N"Send the function and args down the wire as a funcall."
   (let ((num-args (length args))
 	(wire (gensym)))
     `(let ((,wire ,wire-form))
diff --git a/code/x86-vm.lisp b/code/x86-vm.lisp
index 4cde11942eddbfce58b0a4e7281659f8f96369fd..b9b51c9833db09ee558867538ac77d7de4aa8da6 100644
--- a/code/x86-vm.lisp
+++ b/code/x86-vm.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/x86-vm.lisp,v 1.32 2010/01/23 15:24:16 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/x86-vm.lisp,v 1.33 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,6 +24,8 @@
 (use-package "UNIX")
 (use-package "KERNEL")
 
+(intl:textdomain "cmucl-x86-vm")
+
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
@@ -53,13 +55,13 @@
 
 #-cross-compiler
 (defun machine-type ()
-  "Returns a string describing the type of the local machine."
+  _N"Returns a string describing the type of the local machine."
   "X86")
 
 
 #-cross-compiler
 (defun machine-version ()
-  "Returns a string describing the version of the local machine."
+  _N"Returns a string describing the version of the local machine."
   "X86")
 
 
@@ -109,7 +111,7 @@
 	    (ncode-words (kernel:code-header-ref code 1))
 	    (code-end-addr (+ code-start-addr (* ncode-words 4))))
        (unless (member kind '(:absolute :relative))
-	 (error "Unknown code-object-fixup kind ~s." kind))
+	 (error _"Unknown code-object-fixup kind ~s." kind))
        (ecase kind
 	 (:absolute
 	  ;; Word at sap + offset contains a value to be replaced by
@@ -316,7 +318,7 @@
 	      value
 	      (let ((value (system:alternate-get-global-address name)))
 		(when (zerop value)
-		  (error "Unknown foreign symbol: ~S" name))
+		  (error _"Unknown foreign symbol: ~S" name))
 		value))))))
 
 
@@ -385,36 +387,36 @@
 (defun %instance-set-conditional (object slot test-value new-value)
   (declare (type instance object)
 	   (type index slot))
-  "Atomically compare object's slot value to test-value and if EQ store
+  _N"Atomically compare object's slot value to test-value and if EQ store
    new-value in the slot. The original value of the slot is returned."
   (%instance-set-conditional object slot test-value new-value))
 
 (defun set-symbol-value-conditional (symbol test-value new-value)
   (declare (type symbol symbol))
-  "Atomically compare symbol's value to test-value and if EQ store
+  _N"Atomically compare symbol's value to test-value and if EQ store
   new-value in symbol's value slot and return the original value."
   (set-symbol-value-conditional symbol test-value new-value))
 
 (defun rplaca-conditional (cons test-value new-value)
   (declare (type cons cons))
-  "Atomically compare the car of CONS to test-value and if EQ store
+  _N"Atomically compare the car of CONS to test-value and if EQ store
   new-value its car and return the original value."
   (rplaca-conditional cons test-value new-value))
 
 (defun rplacd-conditional (cons test-value new-value)
   (declare (type cons cons))
-  "Atomically compare the cdr of CONS to test-value and if EQ store
+  _N"Atomically compare the cdr of CONS to test-value and if EQ store
   new-value its cdr and return the original value."
   (rplacd-conditional cons test-value new-value))
 
 (defun data-vector-set-conditional (vector index test-value new-value)
   (declare (type simple-vector vector))
-  "Atomically compare an element of vector to test-value and if EQ store
+  _N"Atomically compare an element of vector to test-value and if EQ store
   new-value the element and return the original value."
   (data-vector-set-conditional vector index test-value new-value))
 
 (defmacro atomic-push-symbol-value (val symbol)
-  "Thread safe push of val onto the list in the symbol global value."
+  _N"Thread safe push of val onto the list in the symbol global value."
   (ext:once-only ((n-val val))
     (let ((new-list (gensym))
 	  (old-list (gensym)))
@@ -428,7 +430,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-pop-symbol-value (symbol)
-  "Thread safe pop from the list in the symbol global value."
+  _N"Thread safe pop from the list in the symbol global value."
   (let ((new-list (gensym))
 	(old-list (gensym)))
     `(loop
@@ -440,7 +442,7 @@
 	  (return (car ,old-list)))))))
 
 (defmacro atomic-pusha (val cons)
-  "Thread safe push of val onto the list in the car of cons."
+  _N"Thread safe push of val onto the list in the car of cons."
   (once-only ((n-val val)
 	      (n-cons cons))
     (let ((new-list (gensym))
@@ -454,7 +456,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-pushd (val cons)
-  "Thread safe push of val onto the list in the cdr of cons."
+  _N"Thread safe push of val onto the list in the cdr of cons."
   (once-only ((n-val val)
 	      (n-cons cons))
     (let ((new-list (gensym))
@@ -468,7 +470,7 @@
 	      (return ,new-list))))))))
 
 (defmacro atomic-push-vector (val vect index)
-  "Thread safe push of val onto the list in the vector element."
+  _N"Thread safe push of val onto the list in the vector element."
   (once-only ((n-val val)
 	      (n-vect vect)
 	      (n-index index))
diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp
index b782baad51d68e6b0bcc7c275e237c33f4c3db20..aa0fff2c9f8c574a3b6fa2e478ed679a6fab1013 100644
--- a/compiler/aliencomp.lisp
+++ b/compiler/aliencomp.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.31 2005/11/17 03:33:45 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.32 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,8 @@
 (use-package "ALIEN")
 (use-package "SYSTEM")
 
+(intl:textdomain "cmucl")
+
 (export '(%alien-funcall))
 
 
@@ -100,7 +102,7 @@
 
 (defun find-slot-offset-and-type (alien slot)
   (unless (constant-continuation-p slot)
-    (give-up "Slot is not constant, so cannot open code access."))
+    (give-up _"Slot is not constant, so cannot open code access."))
   (let ((type (continuation-type alien)))
     (unless (alien-type-type-p type)
       (give-up))
@@ -111,7 +113,7 @@
 	     (field (find slot-name (alien-record-type-fields alien-type)
 			  :key #'alien-record-field-name)))
 	(unless field
-	  (abort-transform "~S doesn't have a slot named ~S" alien slot-name))
+	  (abort-transform _"~S doesn't have a slot named ~S" alien slot-name))
 	(values (alien-record-field-offset field)
 		(alien-record-field-type field))))))
 
@@ -196,16 +198,16 @@
     (typecase alien-type
       (alien-pointer-type
        (when (cdr indices)
-	 (abort-transform "Too many indices for pointer deref: ~D"
+	 (abort-transform _"Too many indices for pointer deref: ~D"
 			  (length indices)))
        (let ((element-type (alien-pointer-type-to alien-type)))
 	 (if indices
 	     (let ((bits (alien-type-bits element-type))
 		   (alignment (alien-type-alignment element-type)))
 	       (unless bits
-		 (abort-transform "Unknown element size."))
+		 (abort-transform _"Unknown element size."))
 	       (unless alignment
-		 (abort-transform "Unknown element alignment."))
+		 (abort-transform _"Unknown element alignment."))
 	       (values '(offset)
 		       `(* offset
 			   ,(align-offset bits alignment))
@@ -217,11 +219,11 @@
 	      (alignment (alien-type-alignment element-type))
 	      (dims (alien-array-type-dimensions alien-type)))
 	 (unless (= (length indices) (length dims))
-	   (give-up "Incorrect number of indices."))
+	   (give-up _"Incorrect number of indices."))
 	 (unless bits
-	   (give-up "Element size unknown."))
+	   (give-up _"Element size unknown."))
 	 (unless alignment
-	   (give-up "Element alignment unknown."))
+	   (give-up _"Element alignment unknown."))
 	 (if (null dims)
 	     (values nil 0 element-type)
 	     (let* ((arg (gensym))
@@ -236,7 +238,7 @@
 			   ,(align-offset bits alignment))
 		       element-type)))))
       (t
-       (abort-transform "~S not either a pointer or array type."
+       (abort-transform _"~S not either a pointer or array type."
 			alien-type)))))
 
 
@@ -302,7 +304,7 @@
 
 (defun heap-alien-sap-and-type (info)
   (unless (constant-continuation-p info)
-    (give-up "Info not constant; can't open code."))
+    (give-up _"Info not constant; can't open code."))
   (let ((info (continuation-value info)))
     (values (heap-alien-info-sap-form info)
 	    (heap-alien-info-type info))))
@@ -358,12 +360,12 @@
 
 (deftransform make-local-alien ((info) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let* ((info (continuation-value info))
 	 (alien-type (local-alien-info-type info))
 	 (bits (alien-type-bits alien-type)))
     (unless bits
-      (abort-transform "Unknown size: ~S" (unparse-alien-type alien-type)))
+      (abort-transform _"Unknown size: ~S" (unparse-alien-type alien-type)))
     (if (local-alien-info-force-to-memory-p info)
 	(if (or (backend-featurep :x86) (backend-featurep :amd64))
 	    `(truly-the system-area-pointer
@@ -384,12 +386,12 @@
 		((ctypep 0.0d0 alien-rep-type) 0.0d0)
 		(t
 		 (compiler-error
-		  "Aliens of type ~S cannot be represented immediately."
+		  _N"Aliens of type ~S cannot be represented immediately."
 		  (unparse-alien-type alien-type))))))))
 
 (deftransform note-local-alien-type ((info var) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let ((info (continuation-value info)))
     (unless (local-alien-info-force-to-memory-p info)
       (let ((var-node (continuation-use var)))
@@ -402,7 +404,7 @@
 
 (deftransform local-alien ((info var) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let* ((info (continuation-value info))
 	 (alien-type (local-alien-info-type info)))
     (if (local-alien-info-force-to-memory-p info)
@@ -411,18 +413,18 @@
 
 (deftransform %local-alien-forced-to-memory-p ((info) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let ((info (continuation-value info)))
     (local-alien-info-force-to-memory-p info)))
 
 (deftransform %set-local-alien ((info var value) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let* ((info (continuation-value info))
 	 (alien-type (local-alien-info-type info)))
     (if (local-alien-info-force-to-memory-p info)
 	`(deposit-alien-value var 0 ',alien-type value)
-	'(error "This should be dead-code eleminated."))))
+	'(error _"This should be dead-code eleminated."))))
 
 (defoptimizer (%local-alien-addr derive-type) ((info var))
   (if (constant-continuation-p info)
@@ -433,16 +435,16 @@
 
 (deftransform %local-alien-addr ((info var) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let* ((info (continuation-value info))
 	 (alien-type (local-alien-info-type info)))
     (if (local-alien-info-force-to-memory-p info)
 	`(%sap-alien var ',(make-alien-pointer-type :to alien-type))
-	(error "This shouldn't happen."))))
+	(error _"This shouldn't happen."))))
 
 (deftransform dispose-local-alien ((info var) * * :important t)
   (unless (constant-continuation-p info)
-    (abort-transform "Local Alien Info isn't constant?"))
+    (abort-transform _"Local Alien Info isn't constant?"))
   (let* ((info (continuation-value info))
 	 (alien-type (local-alien-info-type info)))
     (if (local-alien-info-force-to-memory-p info)
@@ -467,14 +469,14 @@
 
 (deftransform %cast ((alien target-type) * * :important t)
   (unless (constant-continuation-p target-type)
-    (give-up "Alien type not constant; cannot open code."))
+    (give-up _"Alien type not constant; cannot open code."))
   (let ((target-type (continuation-value target-type)))
     (cond ((or (alien-pointer-type-p target-type)
 	       (alien-array-type-p target-type)
 	       (alien-function-type-p target-type))
 	   `(naturalize (alien-sap alien) ',target-type))
 	  (t
-	   (abort-transform "Cannot cast to alien type ~S" target-type)))))
+	   (abort-transform _"Cannot cast to alien type ~S" target-type)))))
 
 
 ;;;; alien-sap, %sap-alien, %addr, etc
@@ -497,7 +499,7 @@
       *wild-type*))
 
 (deftransform %sap-alien ((sap type) * * :important t)
-  (give-up "Could not optimize away %SAP-ALIEN: forced to do runtime ~@
+  (give-up _"Could not optimize away %SAP-ALIEN: forced to do runtime ~@
 	    allocation of alien-value structure."))
 
 
@@ -513,25 +515,25 @@
 
 (deftransform naturalize ((object type) * * :important t)
   (unless (constant-continuation-p type)
-    (give-up "Type not constant at compile time; can't open code."))
+    (give-up _"Type not constant at compile time; can't open code."))
   (compiler-error-if-loses
    (compute-naturalize-lambda (continuation-value type))))
 
 (deftransform deport ((alien type) * * :important t)
   (unless (constant-continuation-p type)
-    (give-up "Type not constant at compile time; can't open code."))
+    (give-up _"Type not constant at compile time; can't open code."))
   (compiler-error-if-loses
    (compute-deport-lambda (continuation-value type))))
 
 (deftransform extract-alien-value ((sap offset type) * * :important t)
   (unless (constant-continuation-p type)
-    (give-up "Type not constant at compile time; can't open code."))
+    (give-up _"Type not constant at compile time; can't open code."))
   (compiler-error-if-loses
    (compute-extract-lambda (continuation-value type))))
 
 (deftransform deposit-alien-value ((sap offset type value) * * :important t)
   (unless (constant-continuation-p type)
-    (give-up "Type not constant at compile time; can't open code."))
+    (give-up _"Type not constant at compile time; can't open code."))
   (compiler-error-if-loses
    (compute-deposit-lambda (continuation-value type))))
 
@@ -624,13 +626,13 @@
 (deftransform alien-funcall ((function &rest args) * * :important t)
   (let ((type (continuation-type function)))
     (unless (alien-type-type-p type)
-      (give-up "Can't tell function type at compile time."))
+      (give-up _"Can't tell function type at compile time."))
     (let ((alien-type (alien-type-type-alien-type type)))
       (unless (alien-function-type-p alien-type)
 	(give-up))
       (let ((arg-types (alien-function-type-arg-types alien-type)))
 	(unless (= (length args) (length arg-types))
-	  (abort-transform "Wrong number of arguments.  Expected ~D, got ~D."
+	  (abort-transform _"Wrong number of arguments.  Expected ~D, got ~D."
 			   (length arg-types) (length args)))
 	(collect ((params) (deports))
 	  (dolist (arg-type arg-types)
@@ -659,10 +661,10 @@
 (defoptimizer (%alien-funcall derive-type) ((function type &rest args))
   (declare (ignore function args))
   (unless (constant-continuation-p type)
-    (error "Something is broken."))
+    (error _"Something is broken."))
   (let ((type (continuation-value type)))
     (unless (alien-function-type-p type)
-      (error "Something is broken."))
+      (error _"Something is broken."))
     (specifier-type
      (compute-alien-rep-type
       (alien-function-type-result-type type)))))
@@ -679,7 +681,7 @@
 	      ((function type &rest args) call block)
   (let ((type (if (constant-continuation-p type)
 		  (continuation-value type)
-		  (error "Something is broken.")))
+		  (error _"Something is broken.")))
 	(cont (node-cont call))
 	(args args))
     (multiple-value-bind (nsp stack-frame-size arg-tns result-tns)
@@ -698,7 +700,7 @@
 	       (move-arg-vops (svref (sc-move-arg-vops sc) scn)))
 	  (assert arg)
 	  (assert (= (length move-arg-vops) 1) ()
-		  "No unique move-arg-vop for moves in SC ~S."
+		  _"No unique move-arg-vop for moves in SC ~S."
 		  (sc-name sc))
 	  
 	  (emit-move call block (continuation-tn call block arg) temp-tn)
diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp
index d3303e72597cb3973b1827aeb9e270c213b06cc3..1781ca72eb55ce9569e3d89320c806087458138b 100644
--- a/compiler/alloc.lisp
+++ b/compiler/alloc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alloc.lisp,v 1.14 2003/08/11 14:22:44 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alloc.lisp,v 1.15 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; A hack we we to defeat compile-time type checking in deinitializing slots
@@ -44,7 +45,7 @@
 ;;;
 #-gencgc
 (defmacro defallocators (&rest specs)
-  "defallocators {((name lambda-list [real-lambda-list]) thread-slot
+  _N"defallocators {((name lambda-list [real-lambda-list]) thread-slot
                    (deinit-form*)
 		   (reinit-form*))}*"
   (collect ((hook-forms)
@@ -76,7 +77,7 @@
 		  ,@(third spec)
 		  #+nil
 		  (when (find-in #',slot structure ,var-name)
-		    (error "~S already deallocated!" structure))
+		    (error _"~S already deallocated!" structure))
 		  (setf (,slot structure) ,var-name)
 		  (setq ,var-name structure)))
 
@@ -95,7 +96,7 @@
 
 #+gencgc
 (defmacro defallocators (&rest specs)
-  "defallocators {((name lambda-list [real-lambda-list]) thread-slot
+  _N"defallocators {((name lambda-list [real-lambda-list]) thread-slot
                    (deinit-form*)
 		   (reinit-form*))}*"
   (collect ((forms))
diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 9c08da8e36c1e1584fde424735b8dc4a0179b94e..b7a1aaa4ec1c4dfd52ce5695905b68f0c060211c 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.43 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.44 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Extracted from srctran and extended by William Lott.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Derive-Type Optimizers
@@ -292,7 +293,7 @@
 			  (integer &rest *))
   (let* ((eltype (cond ((not element-type) t)
 		       ((not (constant-continuation-p element-type))
-			(give-up "Element-Type is not constant."))
+			(give-up _"Element-Type is not constant."))
 		       (t
 			(continuation-value element-type))))
 	 (len (if (constant-continuation-p length)
@@ -303,7 +304,7 @@
     (multiple-value-bind
 	(default-initial-element element-size typecode)
 	(dolist (info array-info
-		      (give-up "Cannot open-code creation of ~S" spec))
+		      (give-up _"Cannot open-code creation of ~S" spec))
 	  (when (csubtypep eltype-type (specifier-type (car info)))
 	    (return (values-list (cdr info)))))
       (let* ((nwords-form
@@ -326,7 +327,7 @@
 				   default-initial-element))))
 		(unless (csubtypep (ctype-of default-initial-element)
 				   eltype-type)
-		  (compiler-note "Default initial element ~s is not a ~s."
+		  (compiler-note _N"Default initial element ~s is not a ~s."
 				 default-initial-element eltype))
 		constructor)
 	       (t
@@ -341,12 +342,12 @@
 (deftransform make-array ((dims &key initial-element element-type)
 			  (list &rest *))
   (unless (or (null element-type) (constant-continuation-p element-type))
-    (give-up "Element-type not constant; cannot open code array creation")) 
+    (give-up _"Element-type not constant; cannot open code array creation")) 
   (unless (constant-continuation-p dims)
-    (give-up "Dimension list not constant; cannot open code array creation"))
+    (give-up _"Dimension list not constant; cannot open code array creation"))
   (let ((dims (continuation-value dims)))
     (unless (every #'integerp dims)
-      (give-up "Dimension list contains something other than an integer: ~S"
+      (give-up _"Dimension list contains something other than an integer: ~S"
 	       dims))
     (if (= (length dims) 1)
 	`(make-array ',(car dims)
@@ -396,7 +397,7 @@
       (give-up))
     (let ((dims (array-type-dimensions array-type)))
       (if (not (listp dims))
-	  (give-up "Array rank not known at compile time: ~S" dims)
+	  (give-up _"Array rank not known at compile time: ~S" dims)
 	  (length dims)))))
 
 ;;; ARRAY-DIMENSION  --  transform.
@@ -409,7 +410,7 @@
 (deftransform array-dimension ((array axis)
 			       (array index))
   (unless (constant-continuation-p axis)
-    (give-up "Axis not constant."))
+    (give-up _"Axis not constant."))
   (let ((array-type (continuation-type array))
 	(axis (continuation-value axis)))
     (unless (array-type-p array-type)
@@ -417,9 +418,9 @@
     (let ((dims (array-type-dimensions array-type)))
       (unless (listp dims)
 	(give-up
-	 "Array dimensions unknown, must call array-dimension at runtime."))
+	 _"Array dimensions unknown, must call array-dimension at runtime."))
       (unless (> (length dims) axis)
-	(abort-transform "Array has dimensions ~S, ~D is too large."
+	(abort-transform _"Array has dimensions ~S, ~D is too large."
 			 dims axis))
       (let ((dim (nth axis dims)))
 	(cond ((integerp dim)
@@ -431,7 +432,7 @@
 		 ((nil)
 		  '(length array))
 		 ((:maybe *)
-		  (give-up "Can't tell if array is simple."))))
+		  (give-up _"Can't tell if array is simple."))))
 	      (t
 	       '(%array-dimension array axis)))))))
 
@@ -446,7 +447,7 @@
       (give-up))
     (let ((dims (array-type-dimensions type)))
       (unless (and (listp dims) (integerp (car dims)))
-	(give-up "Vector length unknown, must call length at runtime."))
+	(give-up _"Vector length unknown, must call length at runtime."))
       (car dims))))
 
 ;;; LENGTH  --  transform.
@@ -485,7 +486,7 @@
       (give-up))
     (let ((dims (array-type-dimensions array-type)))
       (unless (listp dims)
-	(give-up "Can't tell the rank at compile time."))
+	(give-up _"Can't tell the rank at compile time."))
       (if (member '* dims)
 	  (do ((form 1 `(truly-the index
 				   (* (array-dimension array ,i) ,form)))
@@ -510,7 +511,7 @@
 	    ((nil)
 	     nil)
 	    (:maybe
-	     (give-up "Array type ambiguous; must call ~
+	     (give-up _"Array type ambiguous; must call ~
 	              array-has-fill-pointer-p at runtime.")))))))
 
 ;;; %CHECK-BOUND  --  transform.
diff --git a/compiler/backend.lisp b/compiler/backend.lisp
index 2d4c67b8fc2c439ace6f13f475a9de809ebf7fbe..b1a24546391c4e5e2563425678a18ee2d51be7a8 100644
--- a/compiler/backend.lisp
+++ b/compiler/backend.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.32 1998/03/04 14:53:22 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.33 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(*backend* *target-backend* *native-backend* backend
 	  backend-name backend-version backend-fasl-file-type
@@ -49,7 +50,7 @@
 	    `(defun ,name (&rest args)
 	       (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name)
 			   (backend-support-routines *backend*))
-			  (error "Machine specific support routine ~S ~
+			  (error _"Machine specific support routine ~S ~
 				  undefined for ~S"
 				 ',name *backend*))
 		      args)))
@@ -100,7 +101,7 @@
 (defmacro def-vm-support-routine (name ll &body body)
   (unless (member (intern (string name) (find-package "C"))
 		  vm-support-routines)
-    (warn "Unknown VM support routine: ~A" name))
+    (warn _"Unknown VM support routine: ~A" name))
   (let ((local-name (symbolicate (backend-name *target-backend*) "-" name)))
     `(progn
        (defun ,local-name ,ll ,@body)
@@ -233,11 +234,11 @@
 
 
 (defvar *native-backend* (make-backend)
-  "The backend for the machine we are running on. Do not change this.")
+  _N"The backend for the machine we are running on. Do not change this.")
 (defvar *target-backend* *native-backend*
-  "The backend we are attempting to compile.")
+  _N"The backend we are attempting to compile.")
 (defvar *backend* *native-backend*
-  "The backend we are using to compile with.")
+  _N"The backend we are using to compile with.")
 
 
 
@@ -246,23 +247,23 @@
 (export '(backend-features target-featurep backend-featurep native-featurep))
 
 (defun backend-features (backend)
-  "Compute the *FEATURES* list to use with BACKEND."
+  _N"Compute the *FEATURES* list to use with BACKEND."
   (union (backend-%features backend)
 	 (set-difference *features*
 			 (backend-misfeatures backend))))
 
 (defun target-featurep (feature)
-  "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
+  _N"Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
   (let ((*features* (backend-features *target-backend*)))
     (featurep feature)))
 
 (defun backend-featurep (feature)
-  "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
+  _N"Same as EXT:FEATUREP, except use the features found in *BACKEND*."
   (let ((*features* (backend-features *backend*)))
     (featurep feature)))
 
 (defun native-featurep (feature)
-  "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
+  _N"Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
   (let ((*features* (backend-features *native-backend*)))
     (featurep feature)))
 
diff --git a/compiler/bit-util.lisp b/compiler/bit-util.lisp
index 0b2ba1fd4244ccf58b3c558a997fa06cd2464d61..feb8e2405cea8c257a86bc5512444bbce91099f9 100644
--- a/compiler/bit-util.lisp
+++ b/compiler/bit-util.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/bit-util.lisp,v 1.7 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/bit-util.lisp,v 1.8 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (declaim (inline clear-bit-vector set-bit-vector bit-vector-replace
 		 bit-vector-copy))
@@ -39,7 +40,7 @@
 	   (word vm:vector-data-offset (1+ word)))
 	  ((<= i 0)
 	   (unless (zerop i)
-	     (error "local-tn-limit not a vm:word-bits multiple.")))
+	     (error _"local-tn-limit not a vm:word-bits multiple.")))
 	(res `(setf (kernel:%raw-bits ,n-vec ,word) 0)))
       `(progn ,@(res) ,n-vec))))
 
diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp
index 08f04461be2c470797412d66cf0b3ac0df3d5b95..9b775e307cfe814efbeaa064dd0cec8c5d995020 100644
--- a/compiler/byte-comp.lisp
+++ b/compiler/byte-comp.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.49 2009/09/09 15:51:27 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.50 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;;
 
 (in-package "C")
+(intl:textdomain "cmucl")
+
 (export '(disassem-byte-component
 	  disassem-byte-fun
 	  backend-byte-fasl-file-type
@@ -231,7 +233,7 @@
 
 (defun xop-index-or-lose (name)
   (or (position name *xop-names* :test #'eq)
-      (error "Unknown XOP ~S" name)))
+      (error _"Unknown XOP ~S" name)))
 
 
 (defstruct inline-function-info
@@ -296,7 +298,7 @@
   (let ((info (gethash function *inline-function-table*)))
     (if info
 	(inline-function-info-number info)
-	(error "Unknown inline function: ~S" function))))
+	(error _"Unknown inline function: ~S" function))))
 
 
 ;;;; Byte-code specific transforms:
@@ -1053,7 +1055,7 @@
 
 (defun closure-position (var env)
   (or (position var (environment-closure env))
-      (error "Can't find ~S" var)))
+      (error _"Can't find ~S" var)))
 
 (defun output-ref-lambda-var (segment var env
 				     &optional (indirect-value-cells t))
@@ -2140,8 +2142,8 @@
 ;;;    Generate trace-file output for the byte compiler back-end.
 ;;;
 (defun describe-byte-component (component xeps segment *standard-output*)
-  (format t "~|~%;;;; Byte component ~S~2%" (component-name component))
-  (format t ";;; Functions:~%")
+  (format t _"~|~%;;;; Byte component ~S~2%" (component-name component))
+  (format t _";;; Functions:~%")
   (dolist (fun (component-lambdas component))
     (when (leaf-name fun)
       (let ((info (leaf-info fun)))
@@ -2150,7 +2152,7 @@
 		  (new-assem:label-position (byte-lambda-info-label info))
 		  (leaf-name fun))))))
 
-  (format t "~%;;;Disassembly:~2%")
+  (format t _"~%;;;Disassembly:~2%")
   (collect ((eps)
 	    (chunks))
     (dolist (x xeps)
@@ -2274,7 +2276,7 @@
 	     (get-constant (index)
 	       (if (< -1 index (length constants))
 		   (aref constants index)
-		   "<bogus index>")))
+		   _"<bogus index>")))
       (loop
 	(unless (< index bytes)
 	  (return))
@@ -2289,7 +2291,7 @@
 		       (logior (ash (next-byte) 16)
 			       (ash (next-byte) 8)
 			       (next-byte))))))
-	    (note "Entry point, frame-size=~D~%" frame-size)))
+	    (note _"Entry point, frame-size=~D~%" frame-size)))
 
 	(newline)
 	(let ((byte (next-byte)))
@@ -2302,81 +2304,81 @@
 	    (dispatch
 	     ((#b11110000 #b00000000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "push-local ~D" op)))
+		(note _"push-local ~D" op)))
 	     ((#b11110000 #b00010000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "push-arg ~D" op)))
+		(note _"push-arg ~D" op)))
 	     ((#b11110000 #b00100000)
 	      (let ((*print-level* 3)
 		    (*print-lines* 2))
-		(note "push-const ~S" (get-constant (extract-4-bit-op byte)))))
+		(note _"push-const ~S" (get-constant (extract-4-bit-op byte)))))
 	     ((#b11110000 #b00110000)
 	      (let ((op (extract-4-bit-op byte))
 		    (*print-level* 3)
 		    (*print-lines* 2))
-		(note "push-sys-const ~S"
+		(note _"push-sys-const ~S"
 		      (svref system-constants op))))
 	     ((#b11110000 #b01000000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "push-int ~D" op)))
+		(note _"push-int ~D" op)))
 	     ((#b11110000 #b01010000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "push-neg-int ~D" (- (1+ op)))))
+		(note _"push-neg-int ~D" (- (1+ op)))))
 	     ((#b11110000 #b01100000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "pop-local ~D" op)))
+		(note _"pop-local ~D" op)))
 	     ((#b11110000 #b01110000)
 	      (let ((op (extract-4-bit-op byte)))
-		(note "pop-n ~D" op)))
+		(note _"pop-n ~D" op)))
 	     ((#b11110000 #b10000000)
 	      (let ((op (extract-3-bit-op byte)))
-		(note "~:[~;named-~]call, ~D args"
+		(note _"~:[~;named-~]call, ~D args"
 		      (logbitp 3 byte) op)))
 	     ((#b11110000 #b10010000)
 	      (let ((op (extract-3-bit-op byte)))
-		(note "~:[~;named-~]tail-call, ~D args"
+		(note _"~:[~;named-~]tail-call, ~D args"
 		      (logbitp 3 byte) op)))
 	     ((#b11110000 #b10100000)
 	      (let ((op (extract-3-bit-op byte)))
-		(note "~:[~;named-~]multiple-call, ~D args"
+		(note _"~:[~;named-~]multiple-call, ~D args"
 		      (logbitp 3 byte) op)))
 	     ((#b11111000 #b10110000)
 	      ;; local call
 	      (let ((op (extract-3-bit-op byte))
 		    (target (extract-24-bits)))
-		(note "local call ~D, ~D args" target op)))
+		(note _"local call ~D, ~D args" target op)))
 	     ((#b11111000 #b10111000)
 	      ;; local tail-call
 	      (let ((op (extract-3-bit-op byte))
 		    (target (extract-24-bits)))
-		(note "local tail-call ~D, ~D args" target op)))
+		(note _"local tail-call ~D, ~D args" target op)))
 	     ((#b11111000 #b11000000)
 	      ;; local-multiple-call
 	      (let ((op (extract-3-bit-op byte))
 		    (target (extract-24-bits)))
-		(note "local multiple-call ~D, ~D args" target op)))
+		(note _"local multiple-call ~D, ~D args" target op)))
 	     ((#b11111000 #b11001000)
 	      ;; return
 	      (let ((op (extract-3-bit-op byte)))
-		(note "return, ~D vals" op)))
+		(note _"return, ~D vals" op)))
 	     ((#b11111110 #b11010000)
 	      ;; branch
-	      (note "branch ~D" (extract-branch-target byte)))
+	      (note _"branch ~D" (extract-branch-target byte)))
 	     ((#b11111110 #b11010010)
 	      ;; if-true
-	      (note "if-true ~D" (extract-branch-target byte)))
+	      (note _"if-true ~D" (extract-branch-target byte)))
 	     ((#b11111110 #b11010100)
 	      ;; if-false
-	      (note "if-false ~D" (extract-branch-target byte)))
+	      (note _"if-false ~D" (extract-branch-target byte)))
 	     ((#b11111110 #b11010110)
 	      ;; if-eq
-	      (note "if-eq ~D" (extract-branch-target byte)))
+	      (note _"if-eq ~D" (extract-branch-target byte)))
 	     ((#b11111000 #b11011000)
 	      ;; XOP
 	      (let* ((low-3-bits (extract-3-bit-op byte))
 		     (xop (nth (if (eq low-3-bits :var) (next-byte) low-3-bits)
 			       *xop-names*)))
-		(note "xop ~A~@[ ~D~]"
+		(note _"xop ~A~@[ ~D~]"
 		      xop
 		      (case xop
 			((catch go unwind-protect)
@@ -2386,6 +2388,6 @@
 			 
 	     ((#b11100000 #b11100000)
 	      ;; inline
-	      (note "inline ~A"
+	      (note _"inline ~A"
 		    (inline-function-info-function
 		     (svref *inline-functions* (ldb (byte 5 0) byte))))))))))))
diff --git a/compiler/checkgen.lisp b/compiler/checkgen.lisp
index ee31052054cb9890e8cdf6252d3d9b2c72f4eb42..20fbd394ef17647ef37777ec76fa94aa632d9d1a 100644
--- a/compiler/checkgen.lisp
+++ b/compiler/checkgen.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/checkgen.lisp,v 1.34 2005/12/09 15:50:20 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/checkgen.lisp,v 1.35 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Cost estimation:
@@ -517,17 +518,17 @@
 			  (eq (combination-kind dest) :local))
 		 (let ((lambda (combination-lambda dest))
 		       (pos (eposition cont (combination-args dest))))
-		   (format nil "~:[A possible~;The~] binding of ~S"
+		   (format nil _"~:[A possible~;The~] binding of ~S"
 			   (and (continuation-use cont)
 				(eq (functional-kind lambda) :let))
 			   (leaf-name (elt (lambda-vars lambda) pos)))))))
     (cond ((eq dtype *empty-type*))
 	  ((and (ref-p node) (constant-p (ref-leaf node)))
-	   (compiler-warning "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+	   (compiler-warning _N"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 			     what atype-spec (constant-value (ref-leaf node))))
 	  (t
 	   (compiler-warning
-	    "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+	    _N"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
 	    what (type-specifier dtype) atype-spec))))
   (undefined-value))
 
@@ -621,7 +622,7 @@
 		  (*compiler-error-context* context))
 	     (when (policy context (>= safety brevity))
 	       (compiler-note
-		"Type assertion too complex to check:~% ~S."
+		_N"Type assertion too complex to check:~% ~S."
 		(type-specifier (continuation-asserted-type cont)))))
 	   (setf (continuation-%type-check cont) :deleted))))))
 
diff --git a/compiler/codegen.lisp b/compiler/codegen.lisp
index 80e3dde25c703d217c19cb5e16bc8f1a469e2e38..588c00f9915aa02aca95c5536ff6ce1bc778a579 100644
--- a/compiler/codegen.lisp
+++ b/compiler/codegen.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.24 2008/05/22 13:44:25 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.25 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package :c)
+(intl:textdomain "cmucl")
 
 (in-package :new-assem)
 (import '(label gen-label emit-label label-position) :c)
@@ -33,7 +34,7 @@
 ;;; Component-Header-Length   --  Interface
 ;;; 
 (defun component-header-length (&optional (component *compile-component*))
-  "Returns the number of bytes used by the code object header."
+  _N"Returns the number of bytes used by the code object header."
   (let* ((2comp (component-info component))
 	 (constants (ir2-component-constants 2comp))
 	 (num-consts (length constants)))
@@ -42,7 +43,7 @@
 ;;; SB-Allocated-Size  --  Interface
 ;;;
 (defun sb-allocated-size (name)
-  "The size of the Name'd SB in the currently compiled component.  Useful
+  _N"The size of the Name'd SB in the currently compiled component.  Useful
   mainly for finding the size for allocating stack frames."
   (finite-sb-current-size (sb-or-lose name *backend*)))
 
@@ -50,7 +51,7 @@
 ;;; Current-NFP-TN  --  Interface
 ;;;
 (defun current-nfp-tn (vop)
-  "Return the TN that is used to hold the number stack frame-pointer in VOP's
+  _N"Return the TN that is used to hold the number stack frame-pointer in VOP's
   function.  Returns NIL if no number stack frame was allocated."
   (unless (zerop (sb-allocated-size 'non-descriptor-stack))
     (let ((block (ir2-block-block (vop-block vop))))
@@ -62,7 +63,7 @@
 ;;; CALLEE-NFP-TN  --  Interface
 ;;;
 (defun callee-nfp-tn (2env)
-  "Return the TN that is used to hold the number stack frame-pointer in the
+  _N"Return the TN that is used to hold the number stack frame-pointer in the
   function designated by 2env.  Returns NIL if no number stack frame was
   allocated."
   (unless (zerop (sb-allocated-size 'non-descriptor-stack))
@@ -73,7 +74,7 @@
 ;;; CALLEE-RETURN-PC-TN  --  Interface
 ;;;
 (defun callee-return-pc-tn (2env)
-  "Return the TN used for passing the return PC in a local call to the function
+  _N"Return the TN used for passing the return PC in a local call to the function
   designated by 2env."
   (ir2-environment-return-pc-pass 2env))
 
@@ -125,7 +126,7 @@
 (defvar *elsewhere-label* nil)
 
 (defvar *assembly-optimize* t
-  "Set to NIL to inhibit assembly-level optimization.  For compiler debugging,
+  _N"Set to NIL to inhibit assembly-level optimization.  For compiler debugging,
   rather than policy control.")
 
 
@@ -137,7 +138,7 @@
 (defun trace-instruction (segment vop inst args)
   (let ((*standard-output* *compiler-trace-output*))
     (unless (eq *prev-segment* segment)
-      (format t "In the ~A segment:~%" (new-assem:segment-name segment))
+      (format t _"In the ~A segment:~%" (new-assem:segment-name segment))
       (setf *prev-segment* segment))
     (unless (eq *prev-vop* vop)
       (when vop
@@ -185,7 +186,7 @@
 (defun generate-code (component)
   (when *compiler-trace-output*
     (format *compiler-trace-output*
-	    "~|~%Assembly code for ~S~2%"
+	    _"~|~%Assembly code for ~S~2%"
 	    component))
   (let ((prev-env nil)
 	(*trace-table-info* nil)
@@ -215,7 +216,7 @@
 	(let ((gen (vop-info-generator-function (vop-info vop))))
 	  (if gen 
 	      (funcall gen vop)
-	      (format t "Missing generator for ~S.~%"
+	      (format t _"Missing generator for ~S.~%"
 		      (template-name (vop-info vop)))))))
     
     (new-assem:append-segment *code-segment* *elsewhere*)
diff --git a/compiler/constraint.lisp b/compiler/constraint.lisp
index 67a485934471b44b0ddbef0348c3298bfc41efc2..06a2cbac5069b5098a4ef33cb05471bde275ba14 100644
--- a/compiler/constraint.lisp
+++ b/compiler/constraint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/constraint.lisp,v 1.26 2003/10/03 15:02:02 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/constraint.lisp,v 1.27 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (defstruct (constraint
 	    (:include sset-element)
@@ -533,7 +534,7 @@
 		    (when *check-consistency*
 		      (let ((*compiler-error-context* (block-last block)))
 			(compiler-warning
-			 "*** Unreachable code in constraint ~
+			 _N"*** Unreachable code in constraint ~
 			  propagation...  Bug?")))
 		    (make-sset))))
 	 (kill (block-kill block))
diff --git a/compiler/control.lisp b/compiler/control.lisp
index a234671a6b7c01a1ca362840a80d6212d1b651c0..32c1671e700ac61cab52973354580f629b481985 100644
--- a/compiler/control.lisp
+++ b/compiler/control.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/control.lisp,v 1.14 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/control.lisp,v 1.15 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Add-To-Emit-Order  --  Interface
diff --git a/compiler/copyprop.lisp b/compiler/copyprop.lisp
index f3ac7143a44b6a32dd73e3b45f92655aa1a24727..142a0b1583fc2c8840a630c558b7c398d5b6b65d 100644
--- a/compiler/copyprop.lisp
+++ b/compiler/copyprop.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/copyprop.lisp,v 1.8 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/copyprop.lisp,v 1.9 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 ;;; In copy propagation, we manipulate sets of TNs.  We only consider TNs whose
 ;;; sole write is by a MOVE VOP.  This allows us to use a degenerate version of
diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp
index 842f9ea3d90788e3cc6c406b4f05191986dc866a..c834616dc435a409f39c27078c2e51f69b900c48 100644
--- a/compiler/ctype.lisp
+++ b/compiler/ctype.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.35 2003/02/03 15:24:44 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.36 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,12 @@
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
+;;; WARNING: Watch out when marking translatable strings.  You can
+;;; really, really slow down the compiler if you do it in a simple
+;;; fashion!  (Compile times for cmucl went up by a factor of about
+;;; 10!)
 (in-package "C")
+(intl:textdomain "cmucl")
 
 ;;; These are the functions that are to be called when a problem is detected.
 ;;; They are passed format arguments.  If null, we don't do anything.  The
@@ -47,17 +52,25 @@
 ;;;
 ;;;    Signal a warning if appropriate and set the *lossage-detected* flag.
 ;;;
-(defun note-lossage (format-string &rest format-args)
-  (declare (string format-string))
+(defun %note-lossage (format-string-thunk &rest format-args)
   (setq *lossage-detected* t)
   (when *error-function*
-    (apply *error-function* format-string format-args)))
+    (apply *error-function* (funcall format-string-thunk) format-args)))
+
+(defmacro note-lossage (format-string &rest format-args)
+  `(%note-lossage #'(lambda ()
+		      ,format-string)
+		  ,@format-args))
 ;;;
-(defun note-slime (format-string &rest format-args)
-  (declare (string format-string))
+(defun %note-slime (format-string-thunk &rest format-args)
   (setq *slime-detected* t)
   (when *warning-function*
-    (apply *warning-function* format-string format-args)))
+    (apply *warning-function* (funcall format-string-thunk) format-args)))
+
+(defmacro note-slime (format-string &rest format-args)
+  `(%note-slime #'(lambda ()
+		    ,format-string)
+		,@format-args))
 
 
 (declaim (special *compiler-error-context*))
@@ -126,22 +139,28 @@
      ((not (or optional keyp rest))
       (if (/= nargs min-args)
 	  (note-lossage
-	   "Function called with ~R argument~:P, but wants exactly ~R."
+	   (intl:ngettext "Function called with ~R argument, but wants exactly ~R."
+			  "Function called with ~R arguments, but wants exactly ~R."
+			  nargs)
 	   nargs min-args)
 	  (check-fixed-and-rest args required nil)))
      ((< nargs min-args)
       (note-lossage
-       "Function called with ~R argument~:P, but wants at least ~R."
+       (intl:ngettext "Function called with ~R argument, but wants at least ~R."
+		      "Function called with ~R arguments, but wants at least ~R."
+		      nargs)
        nargs min-args))
      ((<= nargs max-args)
       (check-fixed-and-rest args (append required optional) rest))
      ((not (or keyp rest))
       (note-lossage
-       "Function called with ~R argument~:P, but wants at most ~R."
+       (intl:ngettext "Function called with ~R argument, but wants at most ~R."
+		      "Function called with ~R arguments, but wants at most ~R."
+		      nargs)
        nargs max-args))
      ((and keyp (oddp (- nargs max-args)))
       (note-lossage
-       "Function has an odd number of arguments in the keyword portion."))
+       _"Function has an odd number of arguments in the keyword portion."))
      (t
       (check-fixed-and-rest args (append required optional) rest)
       (when keyp
@@ -159,10 +178,10 @@
       (multiple-value-bind (int win)
 			   (funcall result-test out-type return-type)
 	(cond ((not win)
-	       (note-slime "Can't tell whether the result is a ~S."
+	       (note-slime _"Can't tell whether the result is a ~S."
 			   (type-specifier return-type)))
 	      ((not int)
-	       (note-lossage "The result is a ~S, not a ~S."
+	       (note-lossage _"The result is a ~S, not a ~S."
 			     (type-specifier out-type)
 			     (type-specifier return-type)))))) 
     
@@ -188,20 +207,20 @@
       (multiple-value-bind (int win)
 			   (funcall *test-function* ctype type)
 	(cond ((not win)
-	       (note-slime "Can't tell whether the ~:R argument is a ~S." n
+	       (note-slime _"Can't tell whether the ~:R argument is a ~S." n
 			   (type-specifier type))
 	       nil)
 	      ((not int)
-	       (note-lossage "The ~:R argument is a ~S, not a ~S." n
+	       (note-lossage _"The ~:R argument is a ~S, not a ~S." n
 			     (type-specifier ctype)
 			     (type-specifier type))
 	       nil)
 	      ((eq ctype *empty-type*)
-	       (note-slime "The ~:R argument never returns a value." n)
+	       (note-slime _"The ~:R argument never returns a value." n)
 	       nil)
 	      (t t)))))
     ((not (constant-continuation-p cont))
-     (note-slime "The ~:R argument is not a constant." n)
+     (note-slime _"The ~:R argument is not a constant." n)
      nil)
     (t
      (let ((val (continuation-value cont))
@@ -209,12 +228,12 @@
        (multiple-value-bind (res win)
 			    (ctypep val type)
 	 (cond ((not win)
-		(note-slime "Can't tell whether the ~:R argument is a ~
+		(note-slime _"Can't tell whether the ~:R argument is a ~
 		             constant ~S:~%  ~S"
 			    n (type-specifier type) val)
 		nil)
 	       ((not res)
-		(note-lossage "The ~:R argument is not a constant ~S:~%  ~S"
+		(note-lossage _"The ~:R argument is not a constant ~S:~%  ~S"
 			      n (type-specifier type) val)
 		nil)
 	       (t t)))))))
@@ -259,7 +278,7 @@
 	(cond
 	  ((not (check-arg-type k (specifier-type 'symbol) n)))
 	  ((not (constant-continuation-p k))
-	   (note-slime "The ~:R argument (in keyword position) is not a constant."
+	   (note-slime _"The ~:R argument (in keyword position) is not a constant."
 		       n))
 	  (t
 	   (let* ((name (continuation-value k))
@@ -283,12 +302,12 @@
 			    (setq allow-other-keys (continuation-value value))
 			    (progn
 			      (setq allow-other-keys t)
-			      (note-slime "The value of ~S is not a constant"
+			      (note-slime _"The value of ~S is not a constant"
 					  :allow-other-keys)))
 			(setq allow-other-keys-seen t))))
 		   ((not info)
 		    (unless (function-type-allowp type)
-		      (note-lossage "~S is not a known argument keyword."
+		      (note-lossage _"~S is not a known argument keyword."
 				    name)))
 		   (t
 		    (check-arg-type (second key) (key-info-type info)
@@ -477,18 +496,22 @@
     (let ((call-min (approximate-function-type-min-args call-type)))
       (when (< call-min min-args)
 	(note-lossage
-	 "Function previously called with ~R argument~:P, but wants at least ~R."
+	 (intl:ngettext "Function previously called with ~R argument, but wants at least ~R."
+			"Function previously called with ~R arguments, but wants at least ~R."
+			call-min)
 	 call-min min-args)))
 
     (let ((call-max (approximate-function-type-max-args call-type)))
       (cond ((<= call-max max-args))
 	    ((not (or keyp rest))
 	     (note-lossage
-	      "Function previously called with ~R argument~:P, but wants at most ~R."
+	      (intl:ngettext "Function previously called with ~R argument, but wants at most ~R."
+			     "Function previously called with ~R arguments, but wants at most ~R."
+			     call-max)
 	      call-max max-args))
 	    ((and keyp (oddp (- call-max max-args)))
 	     (note-lossage
-	      "Function previously called with an odd number of arguments in ~
+	      _"Function previously called with an odd number of arguments in ~
 	      the keyword portion.")))
 
       (when (and keyp (> call-max max-args))
@@ -533,13 +556,13 @@
 			   (funcall *test-function* ctype decl-type)
 	(cond
 	 ((not win)
-	  (note-slime "Can't tell whether previous ~? argument type ~S is a ~S."
+	  (note-slime _"Can't tell whether previous ~? argument type ~S is a ~S."
 		      context args (type-specifier ctype) (type-specifier decl-type)))
 	 ((not int)
 	  (setq losers (type-union ctype losers))))))
 
     (unless (eq losers *empty-type*)
-      (note-lossage "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+      (note-lossage _"~:(~?~) argument should be a ~S but was a ~S in a previous call."
 		    context args (type-specifier decl-type) (type-specifier losers)))))
 
 
@@ -575,7 +598,7 @@
 
 	(dolist (name (names))
 	  (unless (find name keys :key #'key-info-name)
-	    (note-lossage "Function previously called with unknown argument keyword ~S."
+	    (note-lossage _"Function previously called with unknown argument keyword ~S."
 		  name)))))))
 
 
@@ -596,7 +619,7 @@
 		(cond
 		 ((eq int *empty-type*)
 		  (note-lossage
-		   "Definition's declared type for variable ~A:~%  ~S~@
+		   _"Definition's declared type for variable ~A:~%  ~S~@
 		   conflicts with this type from ~A:~%  ~S"
 		   (leaf-name var) (type-specifier vtype)
 		   where (type-specifier type))
@@ -641,22 +664,30 @@
     (flet ((frob (x y what)
 	     (unless (= x y)
 	       (note-lossage
-		"Definition has ~R ~A arg~P, but ~A has ~R."
+		(intl:ngettext "Definition has ~R ~A arg, but ~A has ~R."
+			       "Definition has ~R ~A args, but ~A has ~R."
+			       x)
 		x what x where y))))
-      (frob min (length req) "fixed")
-      (frob (- (optional-dispatch-max-args od) min) (length opt) "optional"))
+      ;; TRANSLATORS:  Usage is "Definition has <n> FIXED args but <where> <m>"
+      ;; TRANSLATORS:  Translate FIXED above appropriately.
+      (frob min (length req) _"fixed")
+      ;; TRANSLATORS:  Usage is "Definition has <n> OPTIONAL args but <where> <m>"
+      ;; TRANSLATORS:  Translate OPTIONAL above appropriately.
+      (frob (- (optional-dispatch-max-args od) min) (length opt) _"optional"))
     (flet ((frob (x y what)
 	     (unless (eq x y)
+	       ;; TRANSLATORS: This format string probably needs to be
+	       ;; TRANSLATORS: updated to allow better translations.
 	       (note-lossage
-		"Definition ~:[doesn't have~;has~] ~A, but ~
+		_"Definition ~:[doesn't have~;has~] ~A, but ~
 		~A ~:[doesn't~;does~]."
 		x what where y))))
       (frob (optional-dispatch-keyp od) (function-type-keyp type)
-	    "keyword args")
+	    _"keyword args")
       (unless (optional-dispatch-keyp od)
 	(frob (not (null (optional-dispatch-more-entry od)))
 	      (not (null (function-type-rest type)))
-	      "rest args"))
+	      _"rest args"))
       (frob (optional-dispatch-allowp od) (function-type-allowp type)
 	    "&allow-other-keys"))
 
@@ -684,7 +715,7 @@
 				      (or def-type (specifier-type 'null)))))
 		    (t
 		     (note-lossage
-		      "Defining a ~S keyword not present in ~A."
+		      _"Defining a ~S keyword not present in ~A."
 		      key where)
 		     (res *universal-type*)))))
 		(:required (res (pop req)))
@@ -714,7 +745,7 @@
 				   (when info
 				     (arg-info-keyword info)))))
 	    (note-lossage
-	     "Definition lacks the ~S keyword present in ~A."
+	     _"Definition lacks the ~S keyword present in ~A."
 	     (key-info-name key) where))))
 
       (try-type-intersections (vars) (res) where))))
@@ -729,17 +760,19 @@
   (flet ((frob (x what)
 	   (when x
 	     (note-lossage
-	      "Definition has no ~A, but the ~A did."
+	      _"Definition has no ~A, but the ~A did."
 	      what where))))
-    (frob (function-type-optional type) "optional args")
-    (frob (function-type-keyp type) "keyword args")
-    (frob (function-type-rest type) "rest arg"))
+    (frob (function-type-optional type) _"optional args")
+    (frob (function-type-keyp type) _"keyword args")
+    (frob (function-type-rest type) _"rest arg"))
   (let* ((vars (lambda-vars lambda))
 	 (nvars (length vars))
 	 (req (function-type-required type))
 	 (nreq (length req)))
     (unless (= nvars nreq)
-      (note-lossage "Definition has ~R arg~:P, but the ~A has ~R."
+      (note-lossage (intl:ngettext "Definition has ~R arg, but the ~A has ~R."
+				   "Definition has ~R args, but the ~A has ~R."
+				   nvars)
 		    nvars where nreq))
     (if *lossage-detected*
 	(values nil nil)
@@ -764,7 +797,7 @@
        (functional type &key (really-assert t)
 		   ((:error-function *error-function*) #'compiler-warning)
 		   warning-function
-		   (where "previous declaration"))
+		   (where _"previous declaration"))
   (declare (type functional functional)
 	   (type function *error-function*)
 	   (string where))
@@ -786,7 +819,7 @@
 	(cond
 	 ((and atype (not (values-types-intersect atype type-returns)))
 	  (note-lossage
-	   "The result type from ~A:~%  ~S~@
+	   _"The result type from ~A:~%  ~S~@
 	   conflicts with the definition's result type assertion:~%  ~S"
 	   where (type-specifier type-returns) (type-specifier atype))
 	  nil)
@@ -800,7 +833,7 @@
 		   (when (and warning-function
 			      (not (csubtypep (leaf-type var) type)))
 		     (funcall warning-function
-			      "Assignment to argument: ~S~%  ~
+			      _"Assignment to argument: ~S~%  ~
 			       prevents use of assertion from function ~
 			       type ~A:~%  ~S~%"
 			      (leaf-name var) where (type-specifier type))))
diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp
index c3a67e409ac2311abbd1a61fa62367b40c3cf9b7..ffedec269a1d5e24071de9178fe8c9e16fe3a2fb 100644
--- a/compiler/debug-dump.lisp
+++ b/compiler/debug-dump.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.49 2010/01/31 19:26:51 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.50 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package :c)
+(intl:textdomain "cmucl")
 
 (defvar *byte-buffer*)
 (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))
@@ -281,7 +282,7 @@
 
 
 (defun namestring-for-debug-source (file-info)
-  "Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  
+  _N"Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  
 Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;
 otherwise the truename."
   (let* ((untruename (file-info-untruename file-info))
diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index e5b3fd356ca0d3d96ba42a8d3e395c43807ba5e4..f7c80251a8594414507e8715bef7d171d7d3ed93 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.37 2008/11/24 18:40:43 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.38 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,12 +15,13 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(label-id))
 
 
 (defvar *args* ()
-  "This variable is bound to the format arguments when an error is signalled
+  _N"This variable is bound to the format arguments when an error is signalled
   by Barf or Burp.")
 
 (defvar *ignored-errors* (make-hash-table :test #'equal))
@@ -42,7 +43,7 @@
 	(setf (gethash string *ignored-errors*) t)))))
 
 (defvar *burp-action* :warn
-  "Action taken by the Burp function when a possible compiler bug is detected.
+  _N"Action taken by the Burp function when a possible compiler bug is detected.
   One of :Warn, :Error or :None.")
 
 (declaim (type (member :warn :error :none) *burp-action*))
@@ -1313,7 +1314,7 @@
 ;;;  List-Conflicts  --  Interface
 ;;;
 (defun list-conflicts (tn)
-  "Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For
+  _N"Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For
   debugging use only.  Probably doesn't work on :COMPONENT TNs."
   (assert (member (tn-kind tn) '(:normal :environment :debug-environment)))
   (let ((confs (tn-global-conflicts tn)))
@@ -1356,7 +1357,7 @@
 ;;; Nth-VOP  --  Interface
 ;;;
 (defun nth-vop (thing n)
-  "Return the Nth VOP in the IR2-Block pointed to by Thing."
+  _N"Return the Nth VOP in the IR2-Block pointed to by Thing."
   (let ((block (block-info (block-or-lose thing))))
     (do ((i 0 (1+ i))
 	 (vop (ir2-block-start-vop block) (vop-next vop)))
diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp
index a188d22bb055467b0ad81ee60b2d7e88b030dc4f..2415f8354516b5e75059256e3d33e672ed00c820 100644
--- a/compiler/dfo.lisp
+++ b/compiler/dfo.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.27 2003/10/02 19:23:11 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.28 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Find-DFO  --  Interface
@@ -317,7 +318,7 @@
 		   (real-top com)))
 		(has-top 
 		 (setf (component-kind com) :top-level)
-		 (setf (component-name com) "Top-Level Form")
+		 (setf (component-name com) _"Top-Level Form")
 		 (top com))
 		(t
 		 (delete-component com))))))
diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index 7aaa8d73bb75062e018e5088fb1d61145c6df4ff..be0aaecc5152ed74ac04e4448cd36765f7d3be7f 100644
--- a/compiler/disassem.lisp
+++ b/compiler/disassem.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.55 2008/10/03 14:04:22 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.56 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package :disassem)
+(intl:textdomain "cmucl")
 
 (use-package :extensions)
 
@@ -98,11 +99,11 @@
 ;;; ----------------------------------------------------------------
 
 (defvar *opcode-column-width* nil
-  "The width of the column in which instruction-names are printed.
+  _N"The width of the column in which instruction-names are printed.
   NIL means use the default.  A value of zero gives the effect of not
   aligning the arguments at all.")
 (defvar *note-column* 45
-  "The column in which end-of-line comments for notes are started.")
+  _N"The column in which end-of-line comments for notes are started.")
 
 (defconstant default-opcode-column-width 6)
 (defconstant default-location-column-width 8)
@@ -128,7 +129,7 @@
 ;;; ----------------------------------------------------------------
 
 (defmacro set-disassem-params (&rest args)
-  "Specify global disassembler params for C:*TARGET-BACKEND*.
+  _N"Specify global disassembler params for C:*TARGET-BACKEND*.
   Keyword arguments include:
       
   :INSTRUCTION-ALIGNMENT number
@@ -143,7 +144,7 @@
   (gen-preamble-form args))
 
 (defmacro define-argument-type (name &rest args)
-  "DEFINE-ARGUMENT-TYPE Name {Key Value}*
+  _N"DEFINE-ARGUMENT-TYPE Name {Key Value}*
   Define a disassembler argument type NAME (which can then be referenced in
   another argument definition using the :TYPE keyword argument).  Keyword
   arguments are:
@@ -172,7 +173,7 @@
   (gen-arg-type-def-form name args))
 
 (defmacro define-instruction-format (header &rest fields)
-  "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*
+  _N"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*
   Define an instruction format NAME for the disassembler's use.  LENGTH is
   the length of the format in bits.
   Possible FORMAT-KEYs:
@@ -244,7 +245,7 @@
   (multiple-value-bind (bytes rbits)
       (truncate bits vm:byte-bits)
     (when (not (zerop rbits))
-      (error "~d bits is not a byte-multiple" bits))
+      (error _"~d bits is not a byte-multiple" bits))
     bytes))
 
 (defun sign-extend (int size)
@@ -255,13 +256,13 @@
       int))
 
 (defun aligned-p (address size)
-  "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+  _N"Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
   (declare (type address address)
 	   (type alignment size))
   (zerop (logand (1- size) address)))
 
 (defun align (address size)
-  "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+  _N"Return ADDRESS aligned *upward* to a SIZE byte boundary."
   (declare (type address address)
 	   (type alignment size))
   (logandc1 (1- size) (+ (1- size) address)))
@@ -291,14 +292,14 @@
 ;;; recursively filtering things that usually don't change.
 
 (defun sharing-cons (old-cons car cdr)
-  "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return
+  _N"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return
   OLD-CONS, otherwise return (cons CAR CDR)."
   (if (and (eq car (car old-cons)) (eq cdr (cdr old-cons)))
       old-cons
       (cons car cdr)))
 
 (defun sharing-mapcar (fun list)
-  "A simple (one list arg) mapcar that avoids consing up a new list
+  _N"A simple (one list arg) mapcar that avoids consing up a new list
   as long as the results of calling FUN on the elements of LIST are
   eq to the original."
   (and list
@@ -523,7 +524,7 @@
 	 (valsrc-source thing))
 	((functionp thing)
 	 (pd-error
-	  "Can't dump functions, so function ref form must be quoted: ~s"
+	  _"Can't dump functions, so function ref form must be quoted: ~s"
 	  thing))
 	((self-evaluating-p thing)
 	 thing)
@@ -566,7 +567,7 @@
 (defun arg-or-lose (name funstate)
   (let ((arg (find name (funstate-args funstate) :key #'arg-name)))
     (when (null arg)
-      (pd-error "Unknown argument ~s" name))
+      (pd-error _"Unknown argument ~s" name))
     arg))
 
 (defun get-arg-temp (arg kind funstate)
@@ -653,7 +654,7 @@
     (when (and (not allow-multiple-p)
 	       (listp forms)
 	       (/= (length forms) 1))
-      (pd-error "~s must not have multiple values" arg))
+      (pd-error _"~s must not have multiple values" arg))
     (maybe-listify forms)))
 
 ;;; ----------------------------------------------------------------
@@ -671,7 +672,7 @@
 
 (defun arg-form-kind-or-lose (kind)
   (or (getf *arg-form-kinds* kind)
-      (pd-error "Unknown arg-form kind ~s" kind)))
+      (pd-error _"Unknown arg-form kind ~s" kind)))
 
 (defun find-arg-form-producer (kind)
   (arg-form-kind-producer (arg-form-kind-or-lose kind)))
@@ -770,7 +771,7 @@
 				 (not (atom adjusted-forms))
 				 (/= (Length adjusted-forms) 1))
 			    (pd-error
-			     "Cannot label a multiple-field argument ~
+			     _"Cannot label a multiple-field argument ~
 			      unless using a function: ~s" arg)
 			    `((lookup-label ,form))))
 		      adjusted-forms)))
@@ -784,7 +785,7 @@
 (def-arg-form-kind (:printed)
   :producer #'(lambda (&rest noise)
 		(declare (ignore noise))
-		(pd-error "Bogus!  Can't use the :printed value of an arg!"))
+		(pd-error _"Bogus!  Can't use the :printed value of an arg!"))
   :checker #'(lambda (new-arg old-arg)
 	       (valsrc-equal (arg-printer new-arg) (arg-printer old-arg))))
 
@@ -820,7 +821,7 @@
 		  (fields (arg-fields arg))
 		  (consts body))
 	     (when (not (= (length fields) (length consts)))
-	       (pd-error "number of constants doesn't match number of fields ~
+	       (pd-error _"number of constants doesn't match number of fields ~
 			  in: (~s :constant~{ ~s~})"
 			 subj body))
 	     (compare-fields-form (gen-arg-forms arg :numeric funstate)
@@ -840,7 +841,7 @@
 				     (= (byte-size bs1) (byte-size bs2)))
 				 (arg-fields arg1)
 				 (arg-fields arg2)))
-	       (pd-error "Can't compare differently sized fields: ~
+	       (pd-error _"Can't compare differently sized fields: ~
 		          (~s :same-as ~s)" subj (car body)))
 	     (compare-fields-form (gen-arg-forms arg1 :numeric funstate)
 				  (gen-arg-forms arg2 :numeric funstate))))
@@ -855,12 +856,12 @@
 	  ((and (consp key) (null body))
 	   (compile-test subj key funstate))
 	  (t
-	   (pd-error "Bogus test-form: ~s" test)))))
+	   (pd-error _"Bogus test-form: ~s" test)))))
 
 ;;; ----------------------------------------------------------------
 
 (defun find-first-field-name (tree)
-  "Returns the first non-keyword symbol in a depth-first search of TREE."
+  _N"Returns the first non-keyword symbol in a depth-first search of TREE."
   (cond ((null tree)
 	 nil)
 	((and (symbolp tree) (not (keywordp tree)))
@@ -926,7 +927,7 @@
 	   `(,(if (arg-use-label arg) 'local-princ16 'local-princ)
 	     ,(arg-value-form arg funstate)))
 	  (t
-	   (pd-error "Illegal printer: ~s" printer-src)))))
+	   (pd-error _"Illegal printer: ~s" printer-src)))))
 
 (defun compile-printer-body (source funstate)
   (cond ((null source)
@@ -936,7 +937,7 @@
 	((eq source :tab)
 	 `(local-tab-to-arg-column))
 	((keywordp source)
-	 (pd-error "Unknown printer element: ~s" source))
+	 (pd-error _"Unknown printer element: ~s" source))
 	((symbolp source)
 	 (compile-print source funstate))
 	((atom source)
@@ -945,7 +946,7 @@
 	 (unless (or (stringp (cadr source))
 		     (and (listp (cadr source))
 			  (eq (caadr source) 'function)))
-	   (pd-error "First arg to :USING must be a string or #'function"))
+	   (pd-error _"First arg to :USING must be a string or #'function"))
 	 (compile-print (caddr source) funstate
 			(cons (eval (cadr source)) (cadr source))))
 	((eq (car source) :plus-integer)
@@ -1045,7 +1046,7 @@
 
 (defun pick-printer-choice (choices args)
   (dolist (choice choices
-	   (pd-error "No suitable choice found in ~s" choices))
+	   (pd-error _"No suitable choice found in ~s" choices))
     (when (all-arg-refs-relevent-p choice args)
       (return choice))))
 
@@ -1076,7 +1077,7 @@
 	      (null
 	       (arg-value
 		(or (find subj args :key #'arg-name)
-		    (pd-error "Unknown argument ~s" subj)))))
+		    (pd-error _"Unknown argument ~s" subj)))))
 	     ;; otherwise, defer to run-time
 	     form))
 	((:or :and :not)
@@ -1133,7 +1134,7 @@
 	  printer)))))
 
 (defun preprocess-printer (printer args)
-  "Returns a version of the disassembly-template PRINTER with compile-time
+  _N"Returns a version of the disassembly-template PRINTER with compile-time
   tests (e.g. :constant without a value), and any :CHOOSE operators resolved
   properly for the args ARGS.  (:CHOOSE Sub*) simply returns the first Sub in
   which every field reference refers to a valid arg."
@@ -1164,7 +1165,7 @@
 					      ,args ,constraint-var)))
        (cond (,cache-var
 	      #+nil
-	      (Format t "~&; Using cached function ~s~%"
+	      (Format t _"~&; Using cached function ~s~%"
 		      (cached-fun-name ,cache-var))
 	      (values (cached-fun-name ,cache-var) nil))
 	     (t
@@ -1175,7 +1176,7 @@
 					    :funstate ,funstate-var
 					    :constraint ,constraint-var)))
 		#+nil
-		(format t "~&; Making new function ~s~%"
+		(format t _"~&; Making new function ~s~%"
 			(cached-fun-name ,cache-var))
 		(values ,name-var
 			`(progn
@@ -1283,7 +1284,7 @@
 (defun set-arg-from-type (arg type-name table)
   (let ((type-arg (find type-name table :key #'arg-name)))
     (when (null type-arg)
-      (pd-error "Unknown argument type: ~s" type-name))
+      (pd-error _"Unknown argument type: ~s" type-name))
     (setf (arg-printer arg) (arg-printer type-arg))
     (setf (arg-prefilter arg) (arg-prefilter type-arg))
     (setf (arg-sign-extend-p arg) (arg-sign-extend-p type-arg))
@@ -1329,7 +1330,7 @@
     (when fields-p
       (when (null format-length)
 	(error
-	 "~@<In arg ~s:  ~3i~:_~
+	 _"~@<In arg ~s:  ~3i~:_~
           Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
 	 arg-name))
       (setf (arg-fields arg)
@@ -1337,7 +1338,7 @@
 			(when (> (+ (byte-position bytespec)
 				    (byte-size bytespec))
 				 format-length)
-			  (error "~@<In arg ~s:  ~3i~:_~
+			  (error _"~@<In arg ~s:  ~3i~:_~
 				     Field ~s doesn't fit in an ~
 				     instruction-format ~d bits wide.~:>"
 				 arg-name
@@ -1415,7 +1416,7 @@
 ;;; ----------------------------------------------------------------
 
 (defun gen-preamble-form (args)
-  "Generate a form to specify global disassembler params.  See the
+  _N"Generate a form to specify global disassembler params.  See the
   documentation for SET-DISASSEM-PARAMS for more info."
   (destructuring-bind
 	(&key instruction-alignment
@@ -1468,7 +1469,7 @@
 		      ',descrip-forms))))
 
 (defun gen-arg-type-def-form (name args &optional (evalp t))
-  "Generate a form to define a disassembler argument type.  See
+  _N"Generate a form to define a disassembler argument type.  See
   DEFINE-ARGUMENT-TYPE for more info."
   (multiple-value-bind (args wrapper-defs)
       (munge-fun-refs args evalp t name)
@@ -1504,7 +1505,7 @@
 	      ,',arg-val-form))))))
 
 (defun gen-format-def-form (header descrips &optional (evalp t))
-  "Generate a form to define an instruction format.  See
+  _N"Generate a form to define an instruction format.  See
   DEFINE-INSTRUCTION-FORMAT for more info."
   (when (atom header)
     (setf header (list header)))
@@ -1564,7 +1565,7 @@
 	      ((null fields))
 	    (let ((field-mask (dchunk-make-mask (car fields))))
 	      (when (/= (dchunk-and mask field-mask) dchunk-zero)
-		(pd-error "Field ~s in arg ~s overlaps some other field"
+		(pd-error _"Field ~s in arg ~s overlaps some other field"
 			  (car fields)
 			  (arg-name arg)))
 	      (dchunk-insertf id (car fields) (car values))
@@ -1578,7 +1579,7 @@
 			  
 (defun format-or-lose (name table)
   (or (gethash name table)
-      (pd-error "Unknown instruction format ~s" name)))
+      (pd-error _"Unknown instruction format ~s" name)))
 
 (defun filter-overrides (overrides evalp)
   (mapcar #'(lambda (override)
@@ -1645,7 +1646,7 @@
 ;;; combining instructions where one specializes another
 
 (defun inst-specializes-p (special general)
-  "Returns non-NIL if the instruction SPECIAL is a more specific version of
+  _N"Returns non-NIL if the instruction SPECIAL is a more specific version of
   GENERAL (i.e., the same instruction, but with more constraints)."
   (declare (type instruction special general))
   (let ((smask (inst-mask special))
@@ -1656,12 +1657,12 @@
 
 ;;; a bit arbitrary, but should work ok...
 (defun specializer-rank (inst)
-  "Returns an integer corresponding to the specifivity of the instruction INST."
+  _N"Returns an integer corresponding to the specifivity of the instruction INST."
   (declare (type instruction inst))
   (* (dchunk-count-bits (inst-mask inst)) 4))
 
 (defun order-specializers (insts)
-  "Order the list of instructions INSTS with more specific (more constant
+  _N"Order the list of instructions INSTS with more specific (more constant
   bits, or same-as argument constains) ones first.  Returns the ordered list."
   (declare (type list insts))
   (sort insts
@@ -1669,10 +1670,10 @@
 	    (> (specializer-rank i1) (specializer-rank i2)))))
 
 (defun specialization-error (insts)
-  (error "Instructions either aren't related or conflict in some way:~% ~s" insts))
+  (error _"Instructions either aren't related or conflict in some way:~% ~s" insts))
 
 (defun try-specializing (insts)
-  "Given a list of instructions INSTS, Sees if one of these instructions is a
+  _N"Given a list of instructions INSTS, Sees if one of these instructions is a
   more general form of all the others, in which case they are put into its
   specializers list, and it is returned.  Otherwise an error is signaled."
   (declare (type list insts))
@@ -1687,7 +1688,7 @@
     (cond ((null masters)
 	   (specialization-error insts))
 	  ((cdr masters)
-	   (error "Multiple specializing masters: ~s" masters))
+	   (error _"Multiple specializing masters: ~s" masters))
 	  (t
 	   (let ((master (car masters)))
 	     (setf (inst-specializers master)
@@ -1700,13 +1701,13 @@
 (declaim (inline inst-matches-p choose-inst-specialization))
 
 (defun inst-matches-p (inst chunk)
-  "Returns non-NIL if all constant-bits in INST match CHUNK."
+  _N"Returns non-NIL if all constant-bits in INST match CHUNK."
   (declare (type instruction inst)
 	   (type dchunk chunk))
   (dchunk= (dchunk-and (inst-mask inst) chunk) (inst-id inst)))
 
 (defun choose-inst-specialization (inst chunk)
-  "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the
+  _N"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the
   most specific instruction on INST's specializer list who's constraints are
   met by CHUNK.  If none do, then INST is returned."
   (declare (type instruction inst)
@@ -1739,7 +1740,7 @@
 ;;; searching for an instruction in instruction space
 
 (defun find-inst (chunk inst-space)
-  "Returns the instruction object within INST-SPACE corresponding to the
+  _N"Returns the instruction object within INST-SPACE corresponding to the
   bit-pattern CHUNK, or NIL if there isn't one."
   (declare (type dchunk chunk)
 	   (type (or null inst-space instruction) inst-space))
@@ -1762,7 +1763,7 @@
 ;;; building the instruction space
 
 (defun build-inst-space (insts &optional (initial-mask dchunk-one))
-  "Returns an instruction-space object corresponding to the list of
+  _N"Returns an instruction-space object corresponding to the list of
   instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, only
   bits it has set are used."
   ;; This is done by finding any set of bits that's common to
@@ -1830,7 +1831,7 @@
 		       (bytes-to-bits (inst-length inst))))
 
 (defun print-inst-space (inst-space &optional (indent 0))
-  "Prints a nicely formatted version of INST-SPACE."
+  _N"Prints a nicely formatted version of INST-SPACE."
   (etypecase inst-space
     (null)
     (instruction
@@ -1857,7 +1858,7 @@
 	  (ispace-choices inst-space)))))
 
 (defun print-backend-inst-space (&optional (backend c:*target-backend*))
-  "Print the inst space for the specified backend"
+  _N"Print the inst space for the specified backend"
   (let ((ext:*gc-verbose* nil))
     (print-inst-space (get-inst-space (c:backend-disassem-params backend)))))
 
@@ -1897,13 +1898,13 @@
 
 (eval-when (eval load compile)		; used in a defconstant
   (defun words-to-bytes (num)
-    "Converts a word-offset NUM to a byte-offset."
+    _N"Converts a word-offset NUM to a byte-offset."
     (declare (type offset num))
     (ash num vm:word-shift))
   )
 
 (defun bytes-to-words (num)
-  "Converts a byte-offset NUM to a word-offset."
+  _N"Converts a byte-offset NUM to a word-offset."
   (declare (type offset num))
   (ash num (- vm:word-shift)))
 
@@ -1994,16 +1995,16 @@
     (format stream "+~d~@[ in ~s~]" (dstate-cur-offs dstate) (dstate-segment dstate))))
 
 (defmacro dstate-get-prop (dstate name)
-  "Get the value of the property called NAME in DSTATE.  Also setf'able."
+  _N"Get the value of the property called NAME in DSTATE.  Also setf'able."
   `(getf (dstate-properties ,dstate) ,name))
 
 (defun dstate-cur-addr (dstate)
-  "Returns the absolute address of the current instruction in DSTATE."
+  _N"Returns the absolute address of the current instruction in DSTATE."
   (the address (+ (seg-virtual-location (dstate-segment dstate))
 		  (dstate-cur-offs dstate))))
 
 (defun dstate-next-addr (dstate)
-  "Returns the absolute address of the next instruction in DSTATE."
+  _N"Returns the absolute address of the next instruction in DSTATE."
   (the address (+ (seg-virtual-location (dstate-segment dstate))
 		  (dstate-next-offs dstate))))
 
@@ -2033,13 +2034,13 @@
      (fun-address (kernel:funcallable-instance-function function)))))
 
 (defun fun-insts-offset (function)
-  "Offset of FUNCTION from the start of its code-component's instruction area."
+  _N"Offset of FUNCTION from the start of its code-component's instruction area."
   (declare (type compiled-function function))
   (- (fun-address function)
      (system:sap-int (kernel:code-instructions (fun-code function)))))
 
 (defun fun-offset (function)
-  "Offset of FUNCTION from the start of its code-component."
+  _N"Offset of FUNCTION from the start of its code-component."
   (declare (type compiled-function function))
   (words-to-bytes (kernel:get-closure-length function)))
 
@@ -2048,17 +2049,17 @@
 ;;; one or more functions).
 
 (defun code-inst-area-length (code-component)
-  "Returns the length of the instruction area in CODE-COMPONENT."
+  _N"Returns the length of the instruction area in CODE-COMPONENT."
   (declare (type kernel:code-component code-component))
   (kernel:code-header-ref code-component vm:code-trace-table-offset-slot))
 
 (defun code-inst-area-address (code-component)
-  "Returns the address of the instruction area in CODE-COMPONENT."
+  _N"Returns the address of the instruction area in CODE-COMPONENT."
   (declare (type kernel:code-component code-component))
   (system:sap-int (kernel:code-instructions code-component)))
 
 (defun code-first-function (code-component)
-  "Returns the first function in CODE-COMPONENT."
+  _N"Returns the first function in CODE-COMPONENT."
   (declare (type kernel:code-component code-component))
   (kernel:code-header-ref code-component vm:code-trace-table-offset-slot))
 
@@ -2109,11 +2110,11 @@
 				      (+ (dstate-cur-offs dstate)
 					 (1- lra-size))))
 		vm:return-pc-header-type))
-    (note (format nil "Possible ~A header word" '.lra) dstate))
+    (note (format nil _"Possible ~A header word" '.lra) dstate))
   nil)
 
 (defun fun-header-hook (stream dstate)
-  "Print the function-header (entry-point) pseudo-instruction at the current
+  _N"Print the function-header (entry-point) pseudo-instruction at the current
   location in DSTATE to STREAM."
   (declare (type (or null stream) stream)
 	   (type disassem-state dstate))
@@ -2213,7 +2214,7 @@
     (incf (dstate-next-offs dstate) alignment)))
 
 (defun map-segment-instructions (function segment dstate &optional stream)
-  "Iterate through the instructions in SEGMENT, calling FUNCTION
+  _N"Iterate through the instructions in SEGMENT, calling FUNCTION
   for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
   (declare (type function function)
 	   (type segment segment)
@@ -2280,7 +2281,7 @@
 ;;; ----------------------------------------------------------------
 
 (defun add-segment-labels (segment dstate)
-  "Make an initial non-printing disassembly pass through DSTATE, noting any
+  _N"Make an initial non-printing disassembly pass through DSTATE, noting any
   addresses that are referenced by instructions in this segment."
   ;; add labels at the beginning with a label-number of nil; we'll notice
   ;; later and fill them in (and sort them)
@@ -2299,7 +2300,7 @@
     (setf (dstate-notes dstate) nil)))
 
 (defun number-labels (dstate)
-  "If any labels in DSTATE have been added since the last call to this
+  _N"If any labels in DSTATE have been added since the last call to this
   function, give them label-numbers, enter them in the hash-table, and make
   sure the label list is in sorted order."
   (let ((labels (dstate-labels dstate)))
@@ -2322,7 +2323,7 @@
 ;;; ----------------------------------------------------------------
 
 (defun get-inst-space (params)
-  "Get the instruction-space from PARAMS, creating it if necessary."
+  _N"Get the instruction-space from PARAMS, creating it if necessary."
   (declare (type params params))
   (let ((ispace (params-inst-space params)))
     (when (null ispace)
@@ -2380,7 +2381,7 @@
 	(ceiling (integer-length (logxor from (+ from length))) 4)))
 
 (defun print-current-address (stream dstate)
-  "Print the current address in DSTATE to STREAM, plus any labels that
+  _N"Print the current address in DSTATE to STREAM, plus any labels that
   correspond to it, and leave the cursor in the instruction column."
   (declare (type stream stream)
 	   (type disassem-state dstate))
@@ -2439,7 +2440,7 @@
      ,@body))
 
 (defun print-notes-and-newline (stream dstate)
-  "Print a newline to STREAM, inserting any pending notes in DSTATE as
+  _N"Print a newline to STREAM, inserting any pending notes in DSTATE as
   end-of-line comments.  If there is more than one note, a separate line
   will be used for each one."
   (declare (type stream stream)
@@ -2458,7 +2459,7 @@
     (setf (dstate-notes dstate) nil)))
 
 (defun print-bytes (num stream dstate)
-  "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+  _N"Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
@@ -2471,7 +2472,7 @@
       (format stream "#x~2,'0x" (system:sap-ref-8 sap (+ offs start-offs))))))
 
 (defun print-words (num stream dstate)
-  "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+  _N"Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
@@ -2500,7 +2501,7 @@
 (defvar *default-dstate-hooks* (list #'lra-hook))
 
 (defun make-dstate (params &optional (fun-hooks *default-dstate-hooks*))
-  "Make a disassembler-state object."
+  _N"Make a disassembler-state object."
   (declare (type params params))
   (let ((sap
 	 ;; a random address
@@ -2580,7 +2581,7 @@
 		     code virtual-location
 		     debug-function source-form-cache
 		     hooks)
-  "Return a memory segment located at the system-area-pointer returned by
+  _N"Return a memory segment located at the system-area-pointer returned by
   SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.
   Optional keyword arguments include :VIRTUAL-LOCATION (by default the same as
   the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache
@@ -2626,7 +2627,7 @@
   (declare (type compiled-function function))
   (let* ((self (fun-self function))
 	 (code (kernel:function-code-header self)))
-    (format t "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+    (format t _"Code-header ~s: size: ~s, trace-table-offset: ~s~%"
 	    code
 	    (kernel:code-header-ref code vm:code-code-size-slot)
 	    (kernel:code-header-ref code vm:code-trace-table-offset-slot))
@@ -2636,7 +2637,7 @@
       (let ((fun-offset (kernel:get-closure-length fun)))
 	;; There is function header fun-offset words from the
 	;; code header.
-	(format t "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+	(format t _"Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
 		fun
 		fun-offset
 		(kernel:code-header-ref
@@ -2662,13 +2663,13 @@
     (ecase (di:debug-source-from debug-source)
       (:file
        (cond ((not (probe-file name))
-	      (warn "The source file ~s no longer seems to exist" name)
+	      (warn _"The source file ~s no longer seems to exist" name)
 	      nil)
 	     (t
 	      (let ((start-positions
 		     (di:debug-source-start-positions debug-source)))
 		(cond ((null start-positions)
-		       (warn "No start positions map")
+		       (warn _"No start positions map")
 		       nil)
 		      (t
 		       (let* ((local-tlf-index
@@ -2681,7 +2682,7 @@
 				     (file-write-date name))
 				  (file-position f char-offset))
 				 (t
-				  (warn "Source file ~s has been modified; ~@
+				  (warn _"Source file ~s has been modified; ~@
 					 Using form offset instead of file index"
 					name)
 				  (let ((*read-suppress* t))
@@ -2726,7 +2727,7 @@
     (cond ((null top-level-form)
 	   nil)
 	  ((>= form-number (length mapping-table))
-	   (warn "Bogus form-number in form!  The source file has probably ~@
+	   (warn _"Bogus form-number in form!  The source file has probably ~@
 		  been changed too much to cope with")
 	   (when cache
 	     ;; disable future warnings
@@ -2768,12 +2769,12 @@
   )
 
 (defun dstate-debug-variables (dstate)
-  "Return the vector of debug-variables currently associated with DSTATE."
+  _N"Return the vector of debug-variables currently associated with DSTATE."
   (declare (type disassem-state dstate))
   (storage-info-debug-variables (seg-storage-info (dstate-segment dstate))))
 
 (defun find-valid-storage-location (offset lg-name dstate)
-  "Given the OFFSET of a location within the location-group called LG-NAME,
+  _N"Given the OFFSET of a location within the location-group called LG-NAME,
   see if there's a current mapping to a source variable in DSTATE, and if so,
   return the offset of that variable in the current debug-variable vector."
   (declare (type offset offset)
@@ -2819,7 +2820,7 @@
 			 ))))))))
 
 (defun grow-vector (vec new-len &optional initial-element)
-  "Return a new vector which has the same contents as the old one VEC, plus
+  _N"Return a new vector which has the same contents as the old one VEC, plus
   new cells (for a total size of NEW-LEN).  The additional elements are
   initailized to INITIAL-ELEMENT."
   (declare (type vector vec)
@@ -2833,7 +2834,7 @@
     new))
 
 (defun storage-info-for-debug-function (debug-function)
-  "Returns a STORAGE-INFO struction describing the object-to-source
+  _N"Returns a STORAGE-INFO struction describing the object-to-source
   variable mappings from DEBUG-FUNCTION."
   (declare (type di:debug-function debug-function))
   (let ((sc-vec (c::backend-sc-numbers c:*native-backend*))
@@ -2846,14 +2847,14 @@
 				      :debug-variables debug-variables))
 	   (let ((debug-var (aref debug-variables debug-var-offset)))
 	     #+nil
-	     (format t ";;; At offset ~d: ~s~%" debug-var-offset debug-var)
+	     (format t _";;; At offset ~d: ~s~%" debug-var-offset debug-var)
 	     (let* ((sc-offset
 		     (di::compiled-debug-variable-sc-offset debug-var))
 		    (sb-name
 		     (c:sb-name
 		      (c:sc-sb (aref sc-vec (c:sc-offset-scn sc-offset))))))
 	       #+nil
-	       (format t ";;; SET: ~s[~d]~%"
+	       (format t _";;; SET: ~s[~d]~%"
 		       sb-name (c:sc-offset-offset sc-offset))
 	       (unless (null sb-name)
 		 (let ((group (cdr (assoc sb-name groups))))
@@ -2901,7 +2902,7 @@
 	    :block-boundary))))
 
 (defun add-source-tracking-hooks (segment debug-function &optional sfcache)
-  "Add hooks to track to track the source code in SEGMENT during
+  _N"Add hooks to track to track the source code in SEGMENT during
   disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE
   structure, in which case it is used to cache forms from files."
   (declare (type segment segment)
@@ -2999,15 +3000,15 @@
 	(case kind
 	  (:external)
 	  ((nil)
-	   (anh "No-arg-parsing entry point"))
+	   (anh _"No-arg-parsing entry point"))
 	  (t
 	   (anh #'(lambda (stream)
-		    (format stream "~s entry point" kind)))))))))
+		    (format stream _"~s entry point" kind)))))))))
 
 ;;; ----------------------------------------------------------------
 
 (defun fun-header-pc (function)
-  "Return the PC of FUNCTION's header."
+  _N"Return the PC of FUNCTION's header."
   (declare (type compiled-function function))
   (let ((code (fun-code function)))
     (* (- (kernel:function-word-offset function)
@@ -3015,10 +3016,10 @@
        vm:word-bytes)))
 
 (defvar *disassemble-flets* t
-  "If non-NIL, disassemble flets/labels too")
+  _N"If non-NIL, disassemble flets/labels too")
 
 (defun get-function-segments (function)
-  "Returns a list of the segments of memory containing machine code
+  _N"Returns a list of the segments of memory containing machine code
   instructions for FUNCTION."
   (declare (type compiled-function function))
   (let* ((code (fun-code function))
@@ -3097,7 +3098,7 @@
 			  &optional
 			  (start-offs 0)
 			  (length (code-inst-area-length code)))
-  "Returns a list of the segments of memory containing machine code
+  _N"Returns a list of the segments of memory containing machine code
   instructions for the code-component CODE.  If START-OFFS and/or LENGTH is
   supplied, only that part of the code-segment is used (but these are
   constrained to lie within the code-segment)."
@@ -3147,7 +3148,7 @@
 
 #+nil
 (defun find-function-segment (fun)
-  "Return the address of the instructions for function and its length.
+  _N"Return the address of the instructions for function and its length.
   The length is computed using a heuristic, and so may not be accurate."
   (declare (type compiled-function fun))
   (let* ((code
@@ -3170,7 +3171,7 @@
 ;;; ----------------------------------------------------------------
 
 (defun segment-overflow (segment dstate)
-  "Returns two values:  the amount by which the last instruction in the
+  _N"Returns two values:  the amount by which the last instruction in the
   segment goes past the end of the segment, and the offset of the end of the
   segment from the beginning of that instruction.  If all instructions fit
   perfectly, this will return 0 and 0."
@@ -3187,7 +3188,7 @@
 	    (- seglen last-start))))
   
 (defun label-segments (seglist dstate)
-  "Computes labels for all the memory segments in SEGLIST and adds them to
+  _N"Computes labels for all the memory segments in SEGLIST and adds them to
   DSTATE.  It's important to call this function with all the segments you're
   interested in, so it can find references from one to another."
   (declare (type list seglist)
@@ -3207,7 +3208,7 @@
 		   (dstate-labels dstate))))
 
 (defun disassemble-segment (segment stream dstate)
-  "Disassemble the machine code instructions in SEGMENT to STREAM."
+  _N"Disassemble the machine code instructions in SEGMENT to STREAM."
   (declare (type segment segment)
 	   (type stream stream)
 	   (type disassem-state dstate))
@@ -3224,7 +3225,7 @@
      stream)))
 
 (defun disassemble-segments (segments stream dstate)
-  "Disassemble the machine code instructions in each memory segment in
+  _N"Disassemble the machine code instructions in each memory segment in
   SEGMENTS in turn to STREAM."
   (declare (type list segments)
 	   (type stream stream)
@@ -3257,7 +3258,7 @@
 (defun disassemble-function (function &key (stream *standard-output*)
 				      (use-labels t)
 				      (backend c:*native-backend*))
-  "Disassemble the machine code instructions for FUNCTION."
+  _N"Disassemble the machine code instructions for FUNCTION."
   (declare (type compiled-function function)
 	   (type stream stream)
 	   (type (member t nil) use-labels)
@@ -3275,7 +3276,7 @@
       (function-lambda-expression function)
     (declare (ignore name))
     (when closurep
-      (error "Cannot compile a lexical closure"))
+      (error _"Cannot compile a lexical closure"))
     (compile nil lambda)))
 
 (defun compiled-function-or-lose (thing &optional (name thing))
@@ -3292,13 +3293,13 @@
 	 (error 'simple-type-error
 		:datum name
 		:expected-type '(satisfies valid-function-name-p)
-		:format-control "Can't make a compiled function from ~S"
+		:format-control _"Can't make a compiled function from ~S"
 		:format-arguments (list name)))))
 
 (defun disassemble (object &key (stream *standard-output*)
 			   (use-labels t)
 			   (backend c:*native-backend*))
-  "Disassemble the machine code associated with OBJECT, which can be a
+  _N"Disassemble the machine code associated with OBJECT, which can be a
   function, a lambda expression, or a symbol with a function definition.  If
   it is not already compiled, the compiler is called to produce something to
   disassemble."
@@ -3323,7 +3324,7 @@
 			   code-component
 			   (use-labels t)
 			   (backend c:*backend*))
-  "Disassembles the given area of memory starting at ADDRESS and LENGTH long.
+  _N"Disassembles the given area of memory starting at ADDRESS and LENGTH long.
   Note that if CODE-COMPONENT is NIL and this memory could move during a GC,
   you'd better disable it around the call to this function."
   (declare (type (or address system:system-area-pointer) address)
@@ -3345,7 +3346,7 @@
 			 (kernel:code-instructions code-component)))))
 		(when (or (< code-offs 0)
 			  (> code-offs (code-inst-area-length code-component)))
-		  (error "Address ~x not in the code component ~s."
+		  (error _" Address ~x not in the code component ~s."
 			 address code-component))
 		(get-code-segments code-component code-offs length))
 	      (list (make-memory-segment address length)))))
@@ -3357,7 +3358,7 @@
 						  (stream *standard-output*)
 						  (use-labels t)
 						  (backend c:*native-backend*))
-  "Disassemble the machine code instructions associated with
+  _N"Disassemble the machine code instructions associated with
   CODE-COMPONENT (this may include multiple entry points)."
   (declare (type (or null kernel:code-component compiled-function)
 		 code-component)
@@ -3485,7 +3486,7 @@
     (sort disassem-segments #'< :key #'seg-virtual-location))) 
 
 (defun disassemble-assem-segment (assem-segment stream backend)
-  "Disassemble the machine code instructions associated with
+  _N"Disassemble the machine code instructions associated with
   ASSEM-SEGMENT (of type new-assem:segment)."
   (declare (type new-assem:segment assem-segment)
 	   (type stream stream)
@@ -3507,11 +3508,11 @@
 	  (,vm:symbol-package-slot . symbol-package))
 	#'<
 	:key #'car)
-  "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a
+  _N"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a
 symbol object that we know about.")
 
 (defun grok-symbol-slot-ref (address)
-  "Given ADDRESS, try and figure out if which slot of which symbol is being
+  _N"Given ADDRESS, try and figure out if which slot of which symbol is being
   refered to.  Of course we can just give up, so it's not a big deal...
   Returns two values, the symbol and the name of the access function of the
   slot."
@@ -3533,19 +3534,19 @@ symbol object that we know about.")
 (defconstant nil-addr (kernel:get-lisp-obj-address nil))
 
 (defun grok-nil-indexed-symbol-slot-ref (byte-offset)
-  "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which
+  _N"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which
   symbol is being refered to.  Of course we can just give up, so it's not a big
   deal...  Returns two values, the symbol and the access function."
   (declare (type offset byte-offset))
   (grok-symbol-slot-ref (+ nil-addr byte-offset)))
 
 (defun get-nil-indexed-object (byte-offset)
-  "Returns the lisp object located BYTE-OFFSET from NIL."
+  _N"Returns the lisp object located BYTE-OFFSET from NIL."
   (declare (type offset byte-offset))
   (kernel:make-lisp-obj (+ nil-addr byte-offset)))
 
 (defun get-code-constant (byte-offset dstate)
-  "Returns two values; the lisp-object located at BYTE-OFFSET in the constant
+  _N"Returns two values; the lisp-object located at BYTE-OFFSET in the constant
   area of the code-object in the current segment and T, or NIL and NIL if
   there is no code-object in the current segment."
   (declare (type offset byte-offset)
@@ -3582,14 +3583,14 @@ symbol object that we know about.")
 (defvar *foreign-symbols-by-addr* nil)
 
 (defun invert-address-hash (htable &optional (addr-hash (make-hash-table)))
-  "Build an address-name hash-table from the name-address hash"
+  _N"Build an address-name hash-table from the name-address hash"
   (maphash #'(lambda (name address)
 	       (setf (gethash address addr-hash) name))
 	     htable)
   addr-hash)
 
 (defun find-assembler-routine (address)
-  "Returns the name of the primitive lisp assembler routine or foreign
+  _N"Returns the name of the primitive lisp assembler routine or foreign
   symbol located at ADDRESS, or NIL if there isn't one."
   (declare (type address address))
   (when (null *assembler-routines-by-addr*)
@@ -3651,7 +3652,7 @@ symbol object that we know about.")
 ;;; optional routines to make notes about code
 
 (defun note (note dstate)
-  "Store NOTE (which can be either a string or a function with a single
+  _N"Store NOTE (which can be either a string or a function with a single
   stream argument) to be printed as an end-of-line comment after the current
   instruction is disassembled."
   (declare (type (or string function) note)
@@ -3668,7 +3669,7 @@ symbol object that we know about.")
       (prin1-short `',thing stream)))
 
 (defun note-code-constant (byte-offset dstate)
-  "Store a note about the lisp constant located BYTE-OFFSET bytes from the
+  _N"Store a note about the lisp constant located BYTE-OFFSET bytes from the
   current code-component, to be printed as an end-of-line comment after the
   current instruction is disassembled."
   (declare (type offset byte-offset)
@@ -3682,7 +3683,7 @@ symbol object that we know about.")
     const))
 
 (defun note-code-constant-absolute (addr dstate)
-  "Store a note about the lisp constant located at ADDR in the
+  _N"Store a note about the lisp constant located at ADDR in the
   current code-component, to be printed as an end-of-line comment after the
   current instruction is disassembled."
   (declare (type address addr)
@@ -3696,7 +3697,7 @@ symbol object that we know about.")
     (values const valid)))
 
 (defun maybe-note-nil-indexed-symbol-slot-ref (nil-byte-offset dstate)
-  "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
+  _N"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
   is a valid slot in a symbol, store a note describing which symbol and slot,
   to be printed as an end-of-line comment after the current instruction is
   disassembled.  Returns non-NIL iff a note was recorded."
@@ -3714,7 +3715,7 @@ symbol object that we know about.")
     access-fun))
 
 (defun maybe-note-nil-indexed-object (nil-byte-offset dstate)
-  "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
+  _N"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
   is a valid lisp object, store a note describing which symbol and slot, to
   be printed as an end-of-line comment after the current instruction is
   disassembled.  Returns non-NIL iff a note was recorded."
@@ -3727,7 +3728,7 @@ symbol object that we know about.")
     t))
 
 (defun maybe-note-assembler-routine (address note-address-p dstate)
-  "If ADDRESS is the address of a primitive assembler routine or
+  _N"If ADDRESS is the address of a primitive assembler routine or
   foreign symbol, store a note describing which one, to be printed as
   an end-of-line comment after the current instruction is disassembled.
   Returns non-NIL iff a note was recorded.  If NOTE-ADDRESS-P is non-NIL, a
@@ -3747,7 +3748,7 @@ symbol object that we know about.")
     name))
 
 (defun maybe-note-static-function (nil-byte-offset dstate)
-  "If NIL-BYTE-OFFSET is the offset of static function, store a note
+  _N"If NIL-BYTE-OFFSET is the offset of static function, store a note
   describing which one, to be printed as an end-of-line comment after
   the current instruction is disassembled.  Returns non-NIL iff a note
   was recorded."
@@ -3761,7 +3762,7 @@ symbol object that we know about.")
     sym))
 
 (defun maybe-note-single-storage-ref (offset sc-name dstate)
-  "If there's a valid mapping from OFFSET in the storage class SC-NAME to a
+  _N"If there's a valid mapping from OFFSET in the storage class SC-NAME to a
   source variable, make a note of the source-variable name, to be printed as
   an end-of-line comment after the current instruction is disassembled.
   Returns non-NIL iff a note was recorded."
@@ -3781,7 +3782,7 @@ symbol object that we know about.")
       t)))
 
 (defun maybe-note-associated-storage-ref (offset sb-name assoc-with dstate)
-  "If there's a valid mapping from OFFSET in the storage-base called SB-NAME
+  _N"If there's a valid mapping from OFFSET in the storage-base called SB-NAME
   to a source variable, make a note equating ASSOC-WITH with the
   source-variable name, to be printed as an end-of-line comment after the
   current instruction is disassembled.  Returns non-NIL iff a note was
@@ -3818,7 +3819,7 @@ symbol object that we know about.")
 ;;; ----------------------------------------------------------------
 
 (defun handle-break-args (error-parse-fun stream dstate)
-  "When called from an error break instruction's :DISASSEM-CONTROL (or
+  _N"When called from an error break instruction's :DISASSEM-CONTROL (or
   :DISASSEM-PRINTER) function, will correctly deal with printing the
   arguments to the break.
 
diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index e21b76249daa79c2ff06c3291e7603e5803717bc..82db9f095e5828aa6df6eb77fd5f330fcd6a8d6d 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.84 2010/02/19 15:01:38 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.85 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (declaim (special compiler-version))
 
@@ -237,7 +238,7 @@
 (defmacro dump-fop (fs file)
   (let* ((fs (eval fs))
 	 (val (get fs 'lisp::fop-code)))
-    (assert val () "Compiler bug: ~S not a legal fasload operator." fs)
+    (assert val () _"Compiler bug: ~S not a legal fasload operator." fs)
     `(dump-byte ',val ,file)))
 
 
@@ -451,7 +452,7 @@
      #'(lambda (sap amount)
 	 (system:output-raw-bytes stream sap 0 amount)))
     (unless (= (- (file-position stream) posn) code-length)
-      (error "Tried to output ~D bytes, but only ~D made it."
+      (error _"Tried to output ~D bytes, but only ~D made it."
 	     code-length (- (file-position stream) posn))))
   (when (backend-featurep :gengc)
     (unless (zerop (logand code-length 3))
@@ -922,7 +923,7 @@
 	      ;;
 	      ;; This probably never happens, since bad things are detected
 	      ;; during IR1 conversion.
-	      (error "This object cannot be dumped into a fasl file:~% ~S"
+	      (error _"This object cannot be dumped into a fasl file:~% ~S"
 		     x))))))
   (undefined-value))
 
@@ -1038,7 +1039,7 @@
 (defun fasl-note-handle-for-constant (constant handle file)
   (let ((table (fasl-file-eq-table file)))
     (when (gethash constant table)
-      (error "~S already dumped?" constant))
+      (error _"~S already dumped?" constant))
     (setf (gethash constant table) handle))
   (undefined-value))
 
@@ -1079,13 +1080,13 @@
 	   ;; Some format converstion will be needed, just dump 0l0
 	   ;; for now.
 	   (unless (zerop float)
-	     (format t "Warning: dumping ~s as 0l0~%" float))
+	     (format t _"Warning: dumping ~s as 0l0~%" float))
 	   (dump-unsigned-32 0 file)
 	   (dump-unsigned-32 0 file)
 	   (dump-unsigned-32 0 file)
 	   (dump-var-signed 0 4 file))
 	  (t
-	   (error "Unable to dump long-float")))))
+	   (error _"Unable to dump long-float")))))
 
 #+(and long-float sparc)
 (defun dump-long-float (float file)
@@ -1100,7 +1101,7 @@
 	   (dump-unsigned-32 high-bits file)
 	   (dump-var-signed exp-bits 4 file))
 	  (t
-	   (error "Unable to dump long-float")))))
+	   (error _"Unable to dump long-float")))))
 
 #+double-double
 (defun dump-double-double-float (float file)
@@ -1698,7 +1699,7 @@
 (defun dump-structure (struct file)
   (when *dump-only-valid-structures*
     (unless (gethash struct (fasl-file-valid-structures file))
-      (error "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
+      (error _"Attempt to dump invalid structure:~%  ~S~%How did this happen?"
 	     struct)))
   (note-potential-circularity struct file)
   (do ((index 0 (1+ index))
@@ -1726,7 +1727,7 @@
 
 (defun dump-layout (obj file)
   (unless (member (layout-invalid obj) '(nil :compiler))
-    (compiler-error "Dumping reference to obsolete class: ~S"
+    (compiler-error _N"Dumping reference to obsolete class: ~S"
 		    (layout-class obj)))
   (let ((name (%class-name (layout-class obj))))
     (assert name)
diff --git a/compiler/dyncount.lisp b/compiler/dyncount.lisp
index f47b3d48e6abd763768ef24a0527ccd996d6ee25..017d10e3486b9f603f334b298efaa34a6f881bdf 100644
--- a/compiler/dyncount.lisp
+++ b/compiler/dyncount.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.10 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.11 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; This file contains support for collecting dynamic vop statistics.
 ;;; 
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(*collect-dynamic-statistics*
 	  dyncount-info-counts dyncount-info-costs dyncount-info
diff --git a/compiler/entry.lisp b/compiler/entry.lisp
index 7e1c2cc8a409f37dd414daaaadfaf00f79b08e13..90cdd81fc367304de69c9ee74178f95321c8bde1 100644
--- a/compiler/entry.lisp
+++ b/compiler/entry.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.13 2008/05/22 14:46:22 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.14 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Entry-Analyze  --  Interface
diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp
index bf35e1164a4a9ac118fe6021ce3c418f5a524be5..b7cff6691f4028dd8ac11aa4133d5ca2f793ca00 100644
--- a/compiler/envanal.lisp
+++ b/compiler/envanal.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.34 2004/04/13 17:46:21 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.35 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Environment-Analyze  --  Interface
diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 9d441f76212168b10156551515f4a00c08a53aba..fe52758c8f6f868c27ae875b15c4396ccb9f3482 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.36 2003/10/26 17:31:25 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.37 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (declaim (special *constants* *free-variables* *compile-component*
 		  *code-vector* *next-location* *result-fixups*
@@ -58,7 +59,7 @@
 		*error-output*))
 	   (*compiler-trace-output* nil)
 	   (*compiler-error-bailout*
-	    #'(lambda () (error "Fatal error, aborting evaluation.")))
+	    #'(lambda () (error _"Fatal error, aborting evaluation.")))
 	   ;;
 	   (*current-path* nil)
 	   (*last-source-context* nil)
@@ -277,7 +278,7 @@
 
 (defun %verify-argument-count (supplied-args defined-args)
   (unless (= supplied-args defined-args)
-    (simple-program-error "Wrong argument count, wanted ~D and got ~D."
+    (simple-program-error _"Wrong argument count, wanted ~D and got ~D."
 	   defined-args supplied-args))
   (values))
 
@@ -301,17 +302,17 @@
 
 (defun %argument-count-error (args-passed-count)
   (error 'simple-program-error
-	 :format-control "Wrong number of arguments passed -- ~S."
+	 :format-control _"Wrong number of arguments passed -- ~S."
 	 :format-arguments (list args-passed-count)))
 
 (defun %odd-keyword-arguments-error ()
   (error 'simple-program-error
 	 :format-control
-	 "Function called with odd number of keyword arguments."))
+	 _"Function called with odd number of keyword arguments."))
 
 (defun %unknown-keyword-argument-error (keyword)
   (error 'simple-program-error
-	 :format-control "Unknown keyword argument -- ~S."
+	 :format-control _"Unknown keyword argument -- ~S."
 	 :format-arguments (list keyword)))
 
 (defun %cleanup-point ())
diff --git a/compiler/eval.lisp b/compiler/eval.lisp
index 63f071148ba96e372cddc928b719f7d24b4bca12..61128bbfa7e634c91b836b82395f6641c8640317 100644
--- a/compiler/eval.lisp
+++ b/compiler/eval.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.36 2002/12/13 19:25:50 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.37 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "EVAL")
+(intl:textdomain "cmucl")
 
 (export '(internal-eval *eval-stack-trace* *internal-apply-node-trace*
 			*interpreted-function-cache-minimum-size*
@@ -49,12 +50,12 @@
 (defun eval-stack-push (value)
   (let ((len (length (the simple-vector *eval-stack*))))
     (when (= len *eval-stack-top*)
-      (when *eval-stack-trace* (format t "[PUSH: growing stack.]~%"))
+      (when *eval-stack-trace* (format t _"[PUSH: growing stack.]~%"))
       (let ((new-stack (make-array (ash len 1))))
 	(replace new-stack *eval-stack* :end1 len :end2 len)
 	(setf *eval-stack* new-stack))))
   (let ((top *eval-stack-top*))
-    (when *eval-stack-trace* (format t "pushing ~D.~%" top))
+    (when *eval-stack-trace* (format t _"pushing ~D.~%" top))
     (incf *eval-stack-top*)
     (setf (svref *eval-stack* top) value)))
 
@@ -69,10 +70,10 @@
 ;;;
 (defun eval-stack-pop ()
   (when (zerop *eval-stack-top*)
-    (error "Attempt to pop empty eval stack."))
+    (error _"Attempt to pop empty eval stack."))
   (let* ((new-top (1- *eval-stack-top*))
 	 (value (svref *eval-stack* new-top)))
-    (when *eval-stack-trace* (format t "popping ~D --> ~S.~%" new-top value))
+    (when *eval-stack-trace* (format t _"popping ~D --> ~S.~%" new-top value))
     (setf *eval-stack-top* new-top)
     value))
 
@@ -86,12 +87,12 @@
 (defun eval-stack-extend (n)
   (let ((len (length (the simple-vector *eval-stack*))))
     (when (> (+ n *eval-stack-top*) len)
-      (when *eval-stack-trace* (format t "[EXTEND: growing stack.]~%"))
+      (when *eval-stack-trace* (format t _"[EXTEND: growing stack.]~%"))
       (let ((new-stack (make-array (+ n (ash len 1)))))
 	(replace new-stack *eval-stack* :end1 len :end2 len)
 	(setf *eval-stack* new-stack))))
   (let ((new-top (+ *eval-stack-top* n)))
-  (when *eval-stack-trace* (format t "extending to ~D.~%" new-top))
+  (when *eval-stack-trace* (format t _"extending to ~D.~%" new-top))
     (do ((i *eval-stack-top* (1+ i)))
 	((= i new-top))
       (setf (svref *eval-stack* i) nil))
@@ -103,7 +104,7 @@
 ;;;
 (defun eval-stack-shrink (n)
   (when *eval-stack-trace*
-    (format t "shrinking to ~D.~%" (- *eval-stack-top* n)))
+    (format t _"shrinking to ~D.~%" (- *eval-stack-top* n)))
   (decf *eval-stack-top* n))
 
 ;;; EVAL-STACK-SET-TOP -- Internal.
@@ -111,7 +112,7 @@
 ;;; This is used to shrink the stack back to a previous frame pointer.
 ;;;
 (defun eval-stack-set-top (ptr)
-  (when *eval-stack-trace* (format t "setting top to ~D.~%" ptr))
+  (when *eval-stack-trace* (format t _"setting top to ~D.~%" ptr))
   (setf *eval-stack-top* ptr))
 
 
@@ -128,12 +129,12 @@
 ;;;; Interpreted functions:
 
 (defvar *interpreted-function-cache-minimum-size* 25
-  "If the interpreted function cache has more functions than this come GC time,
+  _N"If the interpreted function cache has more functions than this come GC time,
   then attempt to prune it according to
   *INTERPRETED-FUNCTION-CACHE-THRESHOLD*.")
 
 (defvar *interpreted-function-cache-threshold* 3
-  "If an interpreted function goes uncalled for more than this many GCs, then
+  _N"If an interpreted function goes uncalled for more than this many GCs, then
   it is eligible for flushing from the cache.")
 
 (declaim (type c::index
@@ -278,7 +279,7 @@
 ;;; FLUSH-INTERPRETED-FUNCTION-CACHE  --  Interface
 ;;;
 (defun flush-interpreted-function-cache ()
-  "Clear all entries in the eval function cache.  This allows the internal
+  _N"Clear all entries in the eval function cache.  This allows the internal
   representation of the functions to be reclaimed, and also lazily forces
   macroexpansions to be recomputed."
   (dolist (fun *interpreted-function-cache*)
@@ -549,7 +550,7 @@
 	    (assert (eq (c::continuation-info cont) :multiple))
 	    (eval-stack-push (list more-args (length more-args)))))
 	 (c::%unknown-values
-	  (error "C::%UNKNOWN-VALUES should never be in interpreter's IR1."))
+	  (error _"C::%UNKNOWN-VALUES should never be in interpreter's IR1."))
 	 (c::%lexical-exit-breakup
 	  ;; We see this whenever we locally exit the extent of a lexical
 	  ;; target.  That is, we are truly locally exiting an extent we could
diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index 6ab8a98854df12387496846db6e8d8b470ea80e1..4cf30bc173e35e6342bf9c2d7c7cb01e58dd463d 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.136 2010/02/05 18:10:59 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.137 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Author: Rob MacLachlan
 ;;; 
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Coercions:
@@ -275,7 +276,7 @@
 #-(or new-random random-mt19937)
 (deftransform random ((num &optional state)
 		      ((integer 1 #.random-fixnum-max) &optional *))
-  "use inline fixnum operations"
+  _N"use inline fixnum operations"
   '(rem (random-chunk (or state *random-state*)) num))
 
 ;;; With the latest propagate-float-type code the compiler can inline
@@ -290,15 +291,15 @@
 				#-x86 #x7fffffff
 				)
 		       &optional *))
-  #+x86 "use inline (unsigned-byte 32) operations"
-  #-x86 "use inline (signed-byte 32) operations"
+  #+x86 _"use inline (unsigned-byte 32) operations"
+  #-x86 _"use inline (signed-byte 32) operations"
   '(values (truncate (%random-double-float (coerce num 'double-float)
 		      (or state *random-state*)))))
 
 #+random-mt19937
 (deftransform random ((num &optional state)
 		      ((integer 1 #.(expt 2 32)) &optional *))
-  "use inline (unsigned-byte 32) operations"
+  _N"use inline (unsigned-byte 32) operations"
   (let* ((num-type (continuation-type num))
 	 (num-high (cond ((numeric-type-p num-type)
 			  (numeric-type-high num-type))
@@ -334,7 +335,7 @@
 		(values (bignum::%multiply (random-chunk (or state *random-state*))
 					   num))))
 	  (t
-	   (error "Shouldn't happen")))))
+	   (error _"Shouldn't happen")))))
 
 
 ;;;; Float accessors:
@@ -623,10 +624,10 @@
 (macrolet ((frob (op)
 	     `(deftransform ,op ((x y) (float rational) * :when :both)
 		(unless (constant-continuation-p y)
-		  (give-up "Can't open-code float to rational comparison."))
+		  (give-up _"Can't open-code float to rational comparison."))
 		(let ((val (continuation-value y)))
 		  (unless (eql (rational (float val)) val)
-		    (give-up "~S doesn't have a precise float representation."
+		    (give-up _"~S doesn't have a precise float representation."
 			     val)))
 		`(,',op x (float y x)))))
   (frob <)
@@ -730,7 +731,7 @@
 		   'single-float))
 		(t 
 		 (compiler-note
-		  "Unable to avoid inline argument range check~@
+		  _N"Unable to avoid inline argument range check~@
                       because the argument range (~s) was not within 2^~D"
 		  (type-specifier (continuation-type x))
 		  limit)
@@ -746,7 +747,7 @@
 		 `(,prim-quick x))
 		(t 
 		 (compiler-note
-		  "Unable to avoid inline argument range check~@
+		  _N"Unable to avoid inline argument range check~@
                    because the argument range (~s) was not within 2^~D"
 		  (type-specifier (continuation-type x))
 		  limit)
@@ -872,11 +873,11 @@
     ;; Check that the ARG bounds are correctly canonicalised.
     (when (and arg-lo (floatp arg-lo-val) (zerop arg-lo-val) (consp arg-lo)
 	       (minusp (float-sign arg-lo-val)))
-      (compiler-note "Float zero bound ~s not correctly canonicalised?" arg-lo)
+      (compiler-note _N"Float zero bound ~s not correctly canonicalised?" arg-lo)
       (setq arg-lo 0l0 arg-lo-val 0l0))
     (when (and arg-hi (zerop arg-hi-val) (floatp arg-hi-val) (consp arg-hi)
 	       (plusp (float-sign arg-hi-val)))
-      (compiler-note "Float zero bound ~s not correctly canonicalised?" arg-hi)
+      (compiler-note _N"Float zero bound ~s not correctly canonicalised?" arg-hi)
       (setq arg-hi -0l0 arg-hi-val -0l0))
     (flet ((fp-neg-zero-p (f)	; Is F -0.0?
 	     (and (floatp f) (zerop f) (minusp (float-sign f))))
@@ -1817,7 +1818,7 @@
   
 (declaim (inline quick-two-sum))
 (defun quick-two-sum (a b)
-  "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
+  _N"Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
   (declare (double-float a b))
   (let* ((s (+ a b))
 	 (e (- b (- s a))))
@@ -1825,7 +1826,7 @@
 
 (declaim (inline two-sum))
 (defun two-sum (a b)
-  "Computes fl(a+b) and err(a+b)"
+  _N"Computes fl(a+b) and err(a+b)"
   (declare (double-float a b))
   (let* ((s (+ a b))
 	 (v (- s a))
@@ -1837,7 +1838,7 @@
 
 (declaim (maybe-inline add-dd))
 (defun add-dd (a0 a1 b0 b1)
-  "Add the double-double A0,A1 to the double-double B0,B1"
+  _N"Add the double-double A0,A1 to the double-double B0,B1"
   (declare (double-float a0 a1 b0 b1)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3)))
@@ -1872,14 +1873,14 @@
 
 (declaim (inline quick-two-diff))
 (defun quick-two-diff (a b)
-  "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
+  _N"Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
   (declare (double-float a b))
   (let ((s (- a b)))
     (values s (- (- a s) b))))
 
 (declaim (inline two-diff))
 (defun two-diff (a b)
-  "Compute fl(a-b) and err(a-b)"
+  _N"Compute fl(a-b) and err(a-b)"
   (declare (double-float a b))
   (let* ((s (- a b))
 	 (v (- s a))
@@ -1891,7 +1892,7 @@
 
 (declaim (maybe-inline sub-dd))
 (defun sub-dd (a0 a1 b0 b1)
-  "Subtract the double-double B0,B1 from A0,A1"
+  _N"Subtract the double-double B0,B1 from A0,A1"
   (declare (double-float a0 a1 b0 b1)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3)))
@@ -1916,7 +1917,7 @@
 
 (declaim (maybe-inline sub-d-dd))
 (defun sub-d-dd (a b0 b1)
-  "Compute double-double = double - double-double"
+  _N"Compute double-double = double - double-double"
   (declare (double-float a b0 b1)
 	   (optimize (speed 3) (safety 0)
 		     (inhibit-warnings 3)))
@@ -1934,7 +1935,7 @@
 
 (declaim (maybe-inline sub-dd-d))
 (defun sub-dd-d (a0 a1 b)
-  "Subtract the double B from the double-double A0,A1"
+  _N"Subtract the double B from the double-double A0,A1"
   (declare (double-float a0 a1 b)
 	   (optimize (speed 3) (safety 0)
 		     (inhibit-warnings 3)))
@@ -1992,7 +1993,7 @@
 ;; printing algorithm, or even divide 1w308 by 10.
 #+nil
 (defun split (a)
-  "Split the double-float number a into a-hi and a-lo such that a =
+  _N"Split the double-float number a into a-hi and a-lo such that a =
   a-hi + a-lo and a-hi contains the upper 26 significant bits of a and
   a-lo contains the lower 26 bits."
   (declare (double-float a))
@@ -2011,7 +2012,7 @@
   (scale-float (/ (float (1+ (expt 2 27)) 1d0)) 1024))
 
 (defun split (a)
-  "Split the double-float number a into a-hi and a-lo such that a =
+  _N"Split the double-float number a into a-hi and a-lo such that a =
   a-hi + a-lo and a-hi contains the upper 26 significant bits of a and
   a-lo contains the lower 26 bits."
   (declare (double-float a)
@@ -2047,7 +2048,7 @@
 (declaim (inline two-prod))
 #-ppc
 (defun two-prod (a b)
-  "Compute fl(a*b) and err(a*b)"
+  _N"Compute fl(a*b) and err(a*b)"
   (declare (double-float a b))
   (let ((p (* a b)))
     (multiple-value-bind (a-hi a-lo)
@@ -2066,7 +2067,7 @@
 
 #+ppc
 (defun two-prod (a b)
-  "Compute fl(a*b) and err(a*b)"
+  _N"Compute fl(a*b) and err(a*b)"
   (declare (double-float a b))
   ;; PPC has a fused multiply-subtract instruction that can be used
   ;; here, so use it.
@@ -2077,7 +2078,7 @@
 (declaim (inline two-sqr))
 #-ppc
 (defun two-sqr (a)
-  "Compute fl(a*a) and err(a*b).  This is a more efficient
+  _N"Compute fl(a*a) and err(a*b).  This is a more efficient
   implementation of two-prod"
   (declare (double-float a))
   (let ((q (* a a)))
@@ -2091,7 +2092,7 @@
 
 #+ppc
 (defun two-sqr (a)
-  "Compute fl(a*a) and err(a*b).  This is a more efficient
+  _N"Compute fl(a*a) and err(a*b).  This is a more efficient
   implementation of two-prod"
   (declare (double-float a))
   (let ((q (* a a)))
@@ -2119,7 +2120,7 @@
 
 (declaim (maybe-inline mul-dd))
 (defun mul-dd (a0 a1 b0 b1)
-  "Multiply the double-double A0,A1 with B0,B1"
+  _N"Multiply the double-double A0,A1 with B0,B1"
   (declare (double-float a0 a1 b0 b1)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3)))
@@ -2138,7 +2139,7 @@
 
 (declaim (maybe-inline add-dd-d))
 (defun add-dd-d (a0 a1 b)
-  "Add the double-double A0,A1 to the double B"
+  _N"Add the double-double A0,A1 to the double B"
   (declare (double-float a0 a1 b)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3)))
@@ -2233,7 +2234,7 @@
 
 (declaim (maybe-inline div-dd))
 (defun div-dd (a0 a1 b0 b1)
-  "Divide the double-double A0,A1 by B0,B1"
+  _N"Divide the double-double A0,A1 by B0,B1"
   (declare (double-float a0 a1 b0 b1)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3))
@@ -2299,7 +2300,7 @@
 
 (declaim (inline sqr-d))
 (defun sqr-d (a)
-  "Square"
+  _N"Square"
   (declare (double-float a)
 	   (optimize (speed 3)
 		     (inhibit-warnings 3)))
diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index fd31a7e0667f577d80bbce6722936913c9873608..38b094807ebe49191100f62b3dd5c47f5de78682 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.142 2009/11/30 14:52:39 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.143 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (in-package "LISP")
 (import '(
diff --git a/compiler/generic/core.lisp b/compiler/generic/core.lisp
index 937a537bdd753cb050dc88e49a3b1f870ada208c..44362e434570f34bd3ab74eae747e64b36d14f43 100644
--- a/compiler/generic/core.lisp
+++ b/compiler/generic/core.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.40 2002/08/27 22:18:27 moore Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.41 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; into core, e.g. incremental compilation.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; The CORE-OBJECT structure holds the state needed to resolve cross-component
@@ -64,7 +65,7 @@
   (let ((offset (label-position (entry-info-offset entry))))
     (declare (type index offset))
     (unless (zerop (logand offset vm:lowtag-mask))
-      (error "Unaligned function object, offset = #x~X." offset))
+      (error _"Unaligned function object, offset = #x~X." offset))
     (let ((res (%primitive compute-function code-obj offset)))
       (setf (%function-self res) res)
       (setf (%function-next res) (%code-entry-points code-obj))
@@ -108,8 +109,8 @@
 	     (values (get-lisp-obj-address code) t)))
 	(unless found
 	  (error (ecase flavor
-		   (:assembly-routine "Undefined assembler routine: ~S")
-		   (:foreign "Unknown foreign symbol: ~S"))
+		   (:assembly-routine _"Undefined assembler routine: ~S")
+		   (:foreign _"Unknown foreign symbol: ~S"))
 		 name))
 	(vm:fixup-code-object code offset value kind)))))
 
@@ -277,7 +278,7 @@
   (declare (type functional entry) (type core-object object))
   (funcall (or (gethash (leaf-info entry)
 			(core-object-entry-table object))
-	       (error "Unresolved forward reference."))))
+	       (error _"Unresolved forward reference."))))
 
 
 ;;; FIX-CORE-SOURCE-INFO  --  Interface
@@ -319,7 +320,7 @@
 
 (defun %print-code-inst-stream (code-inst-stream stream depth)
   (declare (ignore depth))
-  (format stream "#<Code Instruction Stream for ~S>"
+  (format stream _"#<Code Instruction Stream for ~S>"
 	  (code-instruction-stream-code-object code-inst-stream)))
 
 (defun code-inst-stream-sout (stream string start end)
@@ -329,7 +330,7 @@
 	 (current (code-instruction-stream-current stream))
 	 (new (sap+ current length)))
     (when (sap> new (code-instruction-stream-end stream))
-      (error "Writing ~D bytes to ~S would cause it to overflow."
+      (error _"Writing ~D bytes to ~S would cause it to overflow."
 	     length stream))
     (copy-to-system-area string (+ (* start vm:byte-bits)
 				   (* vm:vector-data-offset vm:word-bits))
@@ -343,7 +344,7 @@
   (let* ((current (code-instruction-stream-current stream))
 	 (new (sap+ current 1)))
     (when (sap> new (code-instruction-stream-end stream))
-      (error "Writing another byte to ~S would cause it to overflow."
+      (error _"Writing another byte to ~S would cause it to overflow."
 	     stream))
     (setf (sap-ref-8 current 0) byte)
     (setf (code-instruction-stream-current stream) new)))
diff --git a/compiler/generic/gengc-genesis.lisp b/compiler/generic/gengc-genesis.lisp
index 7c1d07b1dc8efff2e32b379b113869ab4946db81..67ee54212983ee4462d6ad8ac1b157bc7369da17 100644
--- a/compiler/generic/gengc-genesis.lisp
+++ b/compiler/generic/gengc-genesis.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/gengc-genesis.lisp,v 1.15 1994/10/31 04:38:06 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/gengc-genesis.lisp,v 1.16 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 (defmacro round-up (num size)
   "Rounds number up to be an integral multiple of size."
diff --git a/compiler/generic/interr.lisp b/compiler/generic/interr.lisp
index b2664f86cd46ef9d72cfc0c2b18ac6a0a6c9a653..3e8ab97e4c7f0b851c789656895d2fbcac85b26e 100644
--- a/compiler/generic/interr.lisp
+++ b/compiler/generic/interr.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/interr.lisp,v 1.13 2006/06/30 18:41:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/interr.lisp,v 1.14 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,13 +16,14 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
 
 (export '(error-number-or-lose))
 
 
 (defun error-number-or-lose (name)
   (or (position name (c:backend-internal-errors c:*backend*) :key #'car)
-      (error "Unknown internal error: ~S" name)))
+      (error _"Unknown internal error: ~S" name)))
 
 
 (eval-when (compile eval)
diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index 35a2aad3f0afdf8d28adebf663c7b6c935eddc92..0fdfbb91604b036093d197eff8f819a1b6a3cded 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.88 2009/10/10 03:00:04 agoncharov Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.89 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 
 ;;;; Representation of descriptors and spaces in the core.
diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index 0d2e28edf5a25c970323d6c2cdf30db562036646..2ff8e46a21634c2e0cd38a12cd53fffa568a2fe5 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.61 2008/02/06 19:45:26 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.62 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "VM")
+(intl:textdomain "cmucl")
 
 (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask
 	  target-most-positive-fixnum target-most-negative-fixnum
@@ -71,29 +72,29 @@
 (eval-when (compile eval load)
 
 (defconstant lowtag-bits 3
-  "Number of bits at the low end of a pointer used for type information.")
+  _N"Number of bits at the low end of a pointer used for type information.")
 
 (defconstant lowtag-mask (1- (ash 1 lowtag-bits))
-  "Mask to extract the low tag bits from a pointer.")
+  _N"Mask to extract the low tag bits from a pointer.")
   
 (defconstant lowtag-limit (ash 1 lowtag-bits)
-  "Exclusive upper bound on the value of the low tag bits from a
+  _N"Exclusive upper bound on the value of the low tag bits from a
   pointer.")
   
 (defconstant type-bits 8
-  "Number of bits used in the header word of a data block for typeing.")
+  _N"Number of bits used in the header word of a data block for typeing.")
 
 (defconstant type-mask (1- (ash 1 type-bits))
-  "Mask to extract the type from a header word.")
+  _N"Mask to extract the type from a header word.")
 
 ); eval-when
 
 
 (defparameter target-most-positive-fixnum (1- (ash 1 #-amd64 29 #+amd64 61))
-  "most-positive-fixnum in the target architecture.")
+  _N"most-positive-fixnum in the target architecture.")
 
 (defparameter target-most-negative-fixnum (ash -1 #-amd64 29 #+amd64 61)
-  "most-negative-fixnum in the target architecture.")
+  _N"most-negative-fixnum in the target architecture.")
 
 
 ;;; The main types.  These types are represented by the low three bits of the
diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index 55d64bc44736f374ebbe31705852d00a16ce6d04..e70136b08c03ec20233a77879a30e1d0df83d553 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.25 2006/06/30 18:41:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.26 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Alpha conversion by Sean Hallgren.
 ;;;
 (in-package "VM")
+(intl:textdomain "cmucl")
 
 
 ;;;; Primitive Type Definitions
@@ -219,7 +220,7 @@
     ((complex long-float) . simple-array-complex-long-float)
     #+double-double ((complex double-double-float) . simple-array-complex-double-double-float)
     (t . simple-vector))
-  "An a-list for mapping simple array element types to their
+  _N"An a-list for mapping simple array element types to their
   corresponding primitive types.")
 
 
diff --git a/compiler/generic/utils.lisp b/compiler/generic/utils.lisp
index bd7dba570e0482ee304d6dae86a7416f4b749403..e705e4f5db023d6237498e615394634098f22d8d 100644
--- a/compiler/generic/utils.lisp
+++ b/compiler/generic/utils.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/utils.lisp,v 1.10 2004/06/16 23:09:40 cwang Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/utils.lisp,v 1.11 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; 
 
 (in-package "VM")
+(intl:textdomain "cmucl")
 
 (export '(fixnumize static-symbol-p static-symbol-offset offset-static-symbol
 	  static-function-offset))
@@ -24,13 +25,13 @@
 ;;;; Handy routine for making fixnums:
 
 (defun fixnumize (num)
-  "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
+  _N"Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
   ;; the bounds must be hardcoded for cross-compilation
   (if (<= #-amd64 #x-20000000 #+amd64 #x-2000000000000000
 	  num
 	  #-amd64 #x1fffffff #+amd64 #x1fffffffffffffff)
       (ash num (1- vm:lowtag-bits))
-      (error "~D is too big for a fixnum." num)))
+      (error _"~D is too big for a fixnum." num)))
 
 
 
@@ -41,10 +42,10 @@
       (and (member symbol static-symbols) t)))
 
 (defun static-symbol-offset (symbol)
-  "Returns the byte offset of the static symbol Symbol."
+  _N"Returns the byte offset of the static symbol Symbol."
   (if symbol
       (let ((posn (position symbol static-symbols)))
-	(unless posn (error "~S is not a static symbol." symbol))
+	(unless posn (error _"~S is not a static symbol." symbol))
 	(+ (* posn (pad-data-block symbol-size))
 	   (pad-data-block #+amd64 symbol-size
 			   #-amd64 (1- symbol-size))
@@ -53,7 +54,7 @@
       0))
 
 (defun offset-static-symbol (offset)
-  "Given a byte offset, Offset, returns the appropriate static symbol."
+  _N"Given a byte offset, Offset, returns the appropriate static symbol."
   (if (zerop offset)
       nil
       (multiple-value-bind
@@ -63,16 +64,16 @@
 					  #-amd64 (1- symbol-size))))
 		    (pad-data-block symbol-size))
 	(unless (and (zerop rem) (<= 0 n (1- (length static-symbols))))
-	  (error "Byte offset, ~D, is not correct." offset))
+	  (error _"Byte offset, ~D, is not correct." offset))
 	(elt static-symbols n))))
 
 (defun static-function-offset (name)
-  "Return the (byte) offset from NIL to the start of the fdefn object
+  _N"Return the (byte) offset from NIL to the start of the fdefn object
    for the static function NAME."
   (let ((static-syms (length static-symbols))
 	(static-function-index (position name static-functions)))
     (unless static-function-index
-      (error "~S isn't a static function." name))
+      (error _"~S isn't a static function." name))
     (+ (* static-syms (pad-data-block symbol-size))
        (pad-data-block #+amd64 symbol-size
 		       #-amd64 (1- symbol-size))
@@ -81,7 +82,7 @@
        (* fdefn-raw-addr-slot word-bytes))))
 
 (defun offset-static-function (offset)
-  "Given a byte offset, Offset, returns the appropriate static function
+  _N"Given a byte offset, Offset, returns the appropriate static function
    symbol."
   (let* ((static-syms (length static-symbols))
 	 (offsets (+ (* static-syms (pad-data-block symbol-size))
@@ -94,5 +95,5 @@
       (unless (and (zerop rmdr)
 		   (>= index 0)
 		   (< index (length static-symbols)))
-	(error "Byte offset, ~D, is not correct." offset))
+	(error _"Byte offset, ~D, is not correct." offset))
       (elt static-functions index))))
diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 63cf8cd493ad4a633f9f357b6797158b96c0f444..4cacbeae41a078d676f8a4e95c71dda9eb2f5f56 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.66 2006/06/30 18:41:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.67 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (import '(lisp::%raw-bits lisp::simple-array-p))
 
diff --git a/compiler/generic/vm-ir2tran.lisp b/compiler/generic/vm-ir2tran.lisp
index 65876d97c60c1c038dd160dc668d195bf77fa45b..61dbf820f636c1f8e09973e5e0c055e90783090b 100644
--- a/compiler/generic/vm-ir2tran.lisp
+++ b/compiler/generic/vm-ir2tran.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-ir2tran.lisp,v 1.10 2003/08/25 20:50:59 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-ir2tran.lisp,v 1.11 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; This file
 ;;; 
 (in-package :c)
+(intl:textdomain "cmucl")
 
 (export '(slot set-slot make-unbound-marker fixed-alloc var-alloc
 	  %set-function-self large-alloc))
diff --git a/compiler/generic/vm-macs.lisp b/compiler/generic/vm-macs.lisp
index 8ee8cf39ab39e7a66d2df8d5850c5050a1ec02b0..9d114cbe5daef7e6b83f6e0d6a5e4f89d382603f 100644
--- a/compiler/generic/vm-macs.lisp
+++ b/compiler/generic/vm-macs.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.20 2004/05/24 23:22:51 cwang Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.21 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by William Lott and Christopher Hoover.
 ;;; 
 (in-package "VM")
+(intl:textdomain "cmucl")
 
 
 
@@ -115,7 +116,7 @@
 	  (variable-length nil))
       (dolist (spec slot-specs)
 	(when variable-length
-	  (error "No more slots can follow a :rest-p slott."))
+	  (error _"No more slots can follow a :rest-p slot."))
 	(destructuring-bind
 	    (slot-name &rest options
 		       &key docs rest-p (length (if rest-p 0 1))
@@ -154,7 +155,7 @@
 	(let ((size (symbolicate name "-SIZE")))
 	  (constants `(defconstant ,size ,offset
 			,(format nil
-				 "Number of slots used by each ~S~
+				 _"Number of slots used by each ~S~
 				  ~@[~* including the header~]."
 				 name header)))
 	  (exports size)))
diff --git a/compiler/generic/vm-tran.lisp b/compiler/generic/vm-tran.lisp
index 7ba15e02c8797fd1a9d5da77dd8979257ee8ae6f..a972e62dadb60add50afd20be4b4131792468270 100644
--- a/compiler/generic/vm-tran.lisp
+++ b/compiler/generic/vm-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.61 2009/06/12 12:43:49 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.62 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 ;;; We need to define these predicates, since the TYPEP source transform picks
 ;;; whichever predicate was defined last when there are multiple predicates for
@@ -329,7 +330,7 @@
 	 ,@(unless (policy node (zerop safety))
 	     '((unless (= (length bit-array-1) (length bit-array-2)
 			  (length result-bit-array))
-		 (error "Argument and/or result bit arrays not the same length:~
+		 (error _"Argument and/or result bit arrays not the same length:~
 			 ~%  ~S~%  ~S  ~%  ~S"
 			bit-array-1 bit-array-2 result-bit-array))))
 	 (let ((length (length result-bit-array)))
@@ -367,7 +368,7 @@
      ,@(unless (policy node (zerop safety))
 	 '((unless (= (length bit-array)
 		      (length result-bit-array))
-	     (error "Argument and result bit arrays not the same length:~
+	     (error _"Argument and result bit arrays not the same length:~
 	     	     ~%  ~S~%  ~S"
 		    bit-array result-bit-array))))
     (let ((length (length result-bit-array)))
diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 7688825809f8f9309ed467c0918b4bbd9c054366..83f1e4d84613a529fd8d5c35d0aebb6b68891b6d 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.44 2006/06/30 18:41:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.45 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
 
 
 ;;;; Implementation dependent deftypes:
@@ -162,7 +163,7 @@
 		  (unsigned-byte 32)
 		  bignum
 		  integer)
-		(error "~S isn't an integer type?" subtype))
+		(error _"~S isn't an integer type?" subtype))
     (when (csubtypep subtype (specifier-type type))
       (return type))))
 
diff --git a/compiler/generic/vm-typetran.lisp b/compiler/generic/vm-typetran.lisp
index 2ba6830bc89d0962fc5c7f68ed0866e1b2294615..25eceeb0be22723f4272f2d655e85a325b979aed 100644
--- a/compiler/generic/vm-typetran.lisp
+++ b/compiler/generic/vm-typetran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.18 2009/11/04 01:28:47 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.19 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;;
 
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Internal predicates:
diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 3b47c438a166edfc35c4c5cbfade4990f388f909..89c99d9860282805ff4e9f4ad917b04a59188379 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.53 2008/02/27 17:08:33 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.54 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -30,6 +30,7 @@
 (in-package "C")
 (use-package "EXTENSIONS")
 (use-package "SYSTEM")
+(intl:textdomain "cmucl")
 
 (in-package "EXTENSIONS")
 (export '(info clear-info define-info-class define-info-type
@@ -105,7 +106,7 @@
   (type nil :type t)
   ;;
   ;; Function called when there is no information of this type.
-  (default #'(lambda () (error "Type not defined yet.")) :type function))
+  (default #'(lambda () (error _"Type not defined yet.")) :type function))
 
 
 ;;; A hashtable from class names to Class-Info structures.  This data structure
@@ -135,12 +136,12 @@
 (defun class-info-or-lose (class)
   (declare (string class) (values class-info))
   (or (gethash class *info-classes*)
-      (error "~S is not a defined info class." class)))
+      (error _"~S is not a defined info class." class)))
 ;;;
 (defun type-info-or-lose (class type)
   (declare (string class type) (values type-info))
   (or (find-type-info type (class-info-or-lose class))
-      (error "~S is not a defined info type." type)))
+      (error _"~S is not a defined info type." type)))
 
 
 ;;; Define-Info-Class  --  Public
@@ -151,7 +152,7 @@
 ;;; running compiler.
 ;;;
 (defmacro define-info-class (class)
-  "Define-Info-Class Class
+  _N"Define-Info-Class Class
   Define a new class of global information."
   `(progn
      (eval-when (compile load eval)
@@ -176,7 +177,7 @@
 ;;;
 (defun find-unused-type-number ()
   (or (position nil *type-numbers*)
-      (error "Out of INFO type numbers!")))
+      (error _"Out of INFO type numbers!")))
 
 
 ;;; Define-Info-Type  --  Public
@@ -186,7 +187,7 @@
 ;;; %DEFINE-INFO-TYPE must use the same type number.
 ;;;
 (defmacro define-info-type (class type type-spec &optional default)
-  "Define-Info-Type Class Type default Type-Spec
+  _N"Define-Info-Type Class Type default Type-Spec
   Define a new type of global information for Class.  Type is the symbol name
   of the type, Default is the value for that type when it hasn't been set, and
   Type-Spec is a type-specifier which values of the type must satisfy.  The
@@ -227,7 +228,7 @@
     (cond (old
 	   (setf (type-info-type res) type-spec)
 	   (unless (= (type-info-number res) number)
-	     (cerror "Redefine it." "Changing type number for ~A ~A."
+	     (cerror _"Redefine it." _"Changing type number for ~A ~A."
 		     class type)
 	     (setf (type-info-number res) number)))
 	  (t
@@ -235,7 +236,7 @@
 
     (unless (eq num-old res)
       (when num-old
-	(cerror "Go for it." "Reusing type number for ~A ~A."
+	(cerror _"Go for it." _"Reusing type number for ~A ~A."
 		(class-info-name (type-info-class num-old))
 		(type-info-name num-old)))
       (setf (svref *type-numbers* number) res)))
@@ -316,7 +317,7 @@
 ;;; type is constant.
 ;;;
 (defmacro info (class type name &optional env-list)
-  "Return the information of the specified Type and Class for Name.
+  _N"Return the information of the specified Type and Class for Name.
    The second value is true if there is any such information recorded.  If
    there is no information, the first value is the default and the second value
    is NIL."
@@ -330,7 +331,7 @@
 				,@(when env-list `(,env-list))))))
 ;;;
 (define-setf-expander info (class type name &optional env-list)
-  "Set the global information for Name."
+  _N"Set the global information for Name."
   (let* ((n-name (gensym))
 	 (n-env-list (if env-list (gensym)))
 	 (n-value (gensym))
@@ -354,7 +355,7 @@
 (defmacro do-info ((env &key (name (gensym)) (class (gensym)) (type (gensym))
 			(type-number (gensym)) (value (gensym)) known-volatile)
 		   &body body)
-  "DO-INFO (Env &Key Name Class Type Value) Form*
+  _N"DO-INFO (Env &Key Name Class Type Value) Form*
   Iterate over all the values stored in the Info-Env Env.  Name is bound to
   the entry's name, Class and Type are bound to the class and type
   (represented as strings), and Value is bound to the entry's value."
@@ -648,7 +649,7 @@
 ;;; randomizing with the original hash function.
 ;;; 
 (defun compact-info-environment (env &key (name (info-env-name env)))
-  "Return a new compact info environment that holds the same information as
+  _N"Return a new compact info environment that holds the same information as
   Env."
   (let ((name-count 0)
 	(prev-name 0)
@@ -811,9 +812,9 @@
 (defun get-write-info-env (&optional (env-list *info-environment*))
   (let ((env (car env-list)))
     (unless env
-      (error "No info environment?"))
+      (error _"No info environment?"))
     (unless (typep env 'volatile-info-env)
-      (error "Cannot modify this environment: ~S." env))
+      (error _"Cannot modify this environment: ~S." env))
     (the volatile-info-env env)))
 
 
@@ -833,7 +834,7 @@
   (declare (type type-number type) (type volatile-info-env env)
 	   (inline assoc))
   (when (eql name 0)
-    (error "0 is not a legal INFO name."))
+    (error _"0 is not a legal INFO name."))
   ;; We don't enter the value in the cache because we don't know that this
   ;; info-environment is part of *cached-info-environment*.
   (info-cache-enter name type nil :empty)
@@ -888,7 +889,7 @@
 ;;; CLEAR-INFO  --  Public
 ;;;
 (defmacro clear-info (class type name)
-  "Clear the information of the specified Type and Class for Name in the
+  _N"Clear the information of the specified Type and Class for Name in the
   current environment, allowing any inherited info to become visible.  We
   return true if there was any info."
   (let* ((class (symbol-name class))
@@ -1171,7 +1172,14 @@
 ;;;
 (define-info-class source-location)
 (define-info-type source-location defvar (or form-numbers null) nil)
-		   
+
+;; The textdomain for the documentation
+(define-info-type function textdomain (or string null) nil)
+(define-info-type variable textdomain (or string null) nil)
+(define-info-type type textdomain (or string null) nil)
+(define-info-type typed-structure textdomain (or string null) nil)
+(define-info-type setf textdomain (or string null) nil)
+
 ); defun other-info-init
 
 (declaim (freeze-type info-env))
diff --git a/compiler/globals.lisp b/compiler/globals.lisp
index cd3f344345929894be58a6ca727735c9d5a66985..06084d680d46dd93ba5937c3ece788f3e4041e5d 100644
--- a/compiler/globals.lisp
+++ b/compiler/globals.lisp
@@ -5,9 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globals.lisp,v 1.6 2001/03/04 20:12:17 pw Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globals.lisp,v 1.7 2010/03/19 15:19:00 rtoy Rel $")
 
 (in-package "C")
+(intl:textdomain "cmucl")
+
 (declaim (special
 	  *defprint-pretty* *event-info* *event-note-threshold*
 	  *compiler-error-context*
diff --git a/compiler/gtn.lisp b/compiler/gtn.lisp
index c47e685059ab473d9d662f7e403354a9f1eeef6a..56300cd1194508258472e7c6eb8f6ea2ea5b9887 100644
--- a/compiler/gtn.lisp
+++ b/compiler/gtn.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/gtn.lisp,v 1.17 1997/09/22 19:17:44 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/gtn.lisp,v 1.18 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; GTN-Analyze  --  Interface
@@ -159,7 +160,7 @@
       (dolist (fun funs
 		   (let ((*compiler-error-context* (lambda-bind (first funs))))
 		     (compiler-note
-		      "Return value count mismatch prevents known return ~
+		      _N"Return value count mismatch prevents known return ~
 		       from these functions:~
 		       ~{~%  ~A~}"
 		      (remove nil (mapcar #'leaf-name funs)))))
@@ -172,7 +173,7 @@
 		(when (eq count :unknown)
 		  (let ((*compiler-error-context* (lambda-bind fun)))
 		    (compiler-note
-		     "Return type not fixed values, so can't use known return ~
+		     _N"Return type not fixed values, so can't use known return ~
 		      convention:~%  ~S"
 		     (type-specifier rtype)))
 		  (return)))))))))
diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp
index 1086f57d1d05ac9eb0155ceaa946531996433cd9..10d0a3e83d700c000b173f432d3916aeedb9732b 100644
--- a/compiler/ir1final.lisp
+++ b/compiler/ir1final.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.24 2004/12/06 17:03:56 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.25 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Note-Failed-Optimization  --  Internal
@@ -34,7 +35,7 @@
 	      (note (transform-note (car failure))))
 	  (cond
 	   ((consp what)
-	    (efficiency-note "Unable to ~A because:~%~6T~?"
+	    (efficiency-note _"Unable to ~A because:~%~6T~?"
 			     note (first what) (rest what)))
 	   ((valid-function-use node what
 				:argument-test #'types-intersect
@@ -47,7 +48,7 @@
 				    :warning-function #'frob
 				    :error-function #'frob))
 	      
-	      (efficiency-note "Unable to ~A due to type uncertainty:~@
+	      (efficiency-note _"Unable to ~A due to type uncertainty:~@
 	                      ~{~6T~?~^~&~}"
 			       note (messages))))))))))
 
@@ -90,7 +91,7 @@
 		     (dtype-returns (function-type-returns dtype))
 		     (*error-function* #'compiler-warning))
 		 (unless (values-types-intersect type-returns dtype-returns)
-		   (note-lossage "The result type from previous declaration:~%  ~S~@
+		   (note-lossage _"The result type from previous declaration:~%  ~S~@
 				  conflicts with the result type:~%  ~S"
 				 (type-specifier type-returns)
 				 (type-specifier dtype-returns)))))))
diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 159298b1ca8a45527fdb8088857e5e4e59c0c65d..5496ee23d7a8943632b0e1104c5f5599498794ee 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.87 2008/12/05 01:39:27 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.88 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package :c)
+(intl:textdomain "cmucl")
 
 
 ;;;; Interface for obtaining results of constant folding:
@@ -195,7 +196,7 @@
 		     (not (eq rtype *empty-type*)))
 	    (let ((*compiler-error-context* node))
 	      (compiler-warning
-	       "New inferred type ~S conflicts with old type:~
+	       _N"New inferred type ~S conflicts with old type:~
 		~%  ~S~%*** Bug?"
 	       (type-specifier rtype) (type-specifier node-type))))
 	  (setf (node-derived-type node) int)
@@ -787,7 +788,7 @@
 	   (let ((unused-result (funcall fun node)))
 	     (when unused-result
 	       (let ((*compiler-error-context* node))
-		 (compiler-warning "The return value of ~A should not be discarded."
+		 (compiler-warning _N"The return value of ~A should not be discarded."
 				   (continuation-function-name (basic-combination-fun node))))))))
        
        (let ((fun (function-info-destroyed-constant-args kind)))
@@ -1115,7 +1116,7 @@
 ;;;    Just throw the severity and args...
 ;;;
 (defun give-up (&rest args)
-  "This function is used to throw out of an IR1 transform, aborting this
+  _N"This function is used to throw out of an IR1 transform, aborting this
   attempt to transform the call, but admitting the possibility that this or
   some other transform will later suceed.  If arguments are supplied, they are
   format arguments for an efficiency note."
@@ -1123,7 +1124,7 @@
   (throw 'give-up (values :failure args)))
 ;;;
 (defun abort-transform (&rest args)
-  "This function is used to throw out of an IR1 transform and force a normal
+  _N"This function is used to throw out of an IR1 transform and force a normal
   call to the function at run time.  No further optimizations will be
   attempted."
   (throw 'give-up (values :aborted args)))
@@ -1133,7 +1134,7 @@
 ;;; delay-transform  --  Interface
 ;;;
 (defun delay-transform (node &rest reasons)
-  "This function is used to throw out of an IR1 transform, and delay the
+  _N"This function is used to throw out of an IR1 transform, and delay the
   transform on the node until later. The reasons specifies when the transform
   will be later retried. The :optimize reason causes the transform to be
   delayed until after the current IR1 optimization pass. The :constraint
@@ -1653,14 +1654,14 @@
 	(when total-nvals
 	  (when (and min (< total-nvals min))
 	    (compiler-warning
-	     "MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+	     _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
 	     at least ~R."
 	     total-nvals min)
 	    (setf (basic-combination-kind node) :error)
 	    (return-from ir1-optimize-mv-call))
 	  (when (and max (> total-nvals max))
 	    (compiler-warning
-	     "MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+	     _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
 	     at most ~R."
 	     total-nvals max)
 	    (setf (basic-combination-kind node) :error)
diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 63bef956f5533d4e0a8c04c095d4b65ab5ab8caf..75571dfed8b240c659b5ebef7de05c9a19692f08 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.173 2006/05/23 20:35:01 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.174 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(*compile-time-define-macros* *converting-for-interpreter*
 	  *suppress-values-declaration*))
@@ -117,7 +118,7 @@
 (defvar *current-function-names* ())
 
 (defvar *derive-function-types* t
-  "If true, argument and result type information derived from compilation of
+  _N"If true, argument and result type information derived from compilation of
   DEFUNs is used when compiling calls to that function.  If false, only
   information from FTYPE proclamations will be used.")
 
@@ -156,7 +157,7 @@
 ;;;; Dynamic-Extent
 
 (defvar *trust-dynamic-extent-declarations* nil
-  "If NIL, never trust dynamic-extent declarations.
+  _N"If NIL, never trust dynamic-extent declarations.
 
    If T, always trust dynamic-extent declarations.
 
@@ -207,7 +208,7 @@
 					"in a dynamic-extent declaration")))))
 		(t
 		 (compiler-warning
-		  "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+		  _N"~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
 		  name))))
 	(if (dynamic-extent)
 	    (make-lexenv :default lexenv :dynamic-extent (dynamic-extent))
@@ -315,7 +316,7 @@
 		     :key #'kernel:dsd-accessor))
 	 (type (kernel:dd-name info))
 	 (slot-type (kernel:dsd-type slot)))
-    (assert slot () "Can't find slot ~S." type)
+    (assert slot () _"Can't find slot ~S." type)
     (make-slot-accessor
      :name name
      :type (specifier-type
@@ -340,9 +341,9 @@
   (or (gethash name *free-functions*)
       (ecase (info function kind name)
 	(:macro
-	 (compiler-error "Found macro name ~S ~A." name context))
+	 (compiler-error _N"Found macro name ~S ~A." name context))
 	(:special-form
-	 (compiler-error "Found special-form name ~S ~A." name context))
+	 (compiler-error _N"Found special-form name ~S ~A." name context))
 	((:function nil)
 	 (check-function-name name)
 	 (note-if-setf-function-and-macro name)
@@ -381,7 +382,7 @@
     (cond (var
 	   (unless (leaf-p var)
 	     (assert (and (consp var) (eq (car var) 'macro)))
-	     (compiler-error "Found macro name ~S ~A." name context))
+	     (compiler-error _N"Found macro name ~S ~A." name context))
 	   var)
 	  (t
 	   (find-free-function name context)))))
@@ -399,7 +400,7 @@
 (defun find-free-variable (name)
   (declare (values (or leaf cons heap-alien-info)))
   (unless (symbolp name)
-    (compiler-error "Variable name is not a symbol: ~S." name))
+    (compiler-error _N"Variable name is not a symbol: ~S." name))
   (or (gethash name *free-variables*)
       (let ((kind (info variable kind name))
 	    (type (info variable type name))
@@ -494,7 +495,7 @@
 			(grovel (%instance-ref value i)))))
 		   (t
 		    (compiler-error
-		     "Cannot dump objects of type ~S into fasl files."
+		     _N"Cannot dump objects of type ~S into fasl files."
 		     (type-of value)))))))
       (grovel constant)))
   (undefined-value))
@@ -512,7 +513,7 @@
 	  ((start cont form
 	    &optional
 	    (proxy ``(error 'simple-program-error
-		       :format-control "Execution of a form compiled with errors:~% ~S"
+		       :format-control _"Execution of a form compiled with errors:~% ~S"
 		       :format-arguments (list ',,form))))
 	   &body body)
   (let ((skip (gensym)))
@@ -572,14 +573,14 @@
   (let ((block (continuation-block cont))
 	(node-block (continuation-block (node-prev node))))
     (assert (eq (continuation-kind cont) :block-start))
-    (assert (not (block-last node-block)) () "~S has already ended."
+    (assert (not (block-last node-block)) () _"~S has already ended."
 	    node-block)
     (setf (block-last node-block) node)
-    (assert (null (block-succ node-block)) () "~S already has successors."
+    (assert (null (block-succ node-block)) () _"~S already has successors."
 	    node-block)
     (setf (block-succ node-block) (list block))
     (assert (not (member node-block (block-pred block) :test #'eq)) ()
-	    "~S is already a predecessor of ~S." node-block block)
+	    _"~S is already a predecessor of ~S." node-block block)
     (push node-block (block-pred block))
     (add-continuation-use node cont)
     (unless (eq (continuation-asserted-type cont) *wild-type*)
@@ -719,7 +720,7 @@
 		(typecase lexical-def
 		  (null
 		   (when (eq fun 'declare)
-		     (compiler-error "Misplaced declaration."))
+		     (compiler-error _N"Misplaced declaration."))
 		   (ir1-convert-global-functoid start cont form))
 		  (functional
 		   (ir1-convert-local-combination start cont form lexical-def))
@@ -732,7 +733,7 @@
 				(careful-expand-macro (cdr lexical-def)
 						      form))))))
 	     ((or (atom fun) (not (eq (car fun) 'lambda)))
-	      (compiler-error "Illegal function call."))
+	      (compiler-error _N"Illegal function call."))
 	     (t
 	      (ir1-convert-combination start cont form
 				       ;; TODO: check this case --jwr
@@ -753,7 +754,7 @@
   (declare (type continuation start cont) (inline find-constant))
   (ir1-error-bailout
       (start cont value
-       '(error "Attempt to reference undumpable constant."))
+       '(error _"Attempt to reference undumpable constant."))
     (when (and (producing-fasl-file)
 	       (not (typep value '(or symbol number character string))))
       (maybe-emit-make-load-forms value))
@@ -814,7 +815,7 @@
       (leaf
        (when (lambda-var-p var)
 	 (when (lambda-var-ignorep var)
-	   (compiler-note "Reading an ignored variable: ~S." name))
+	   (compiler-note _N"Reading an ignored variable: ~S." name))
 	 ;;
 	 ;; FIXME: There's a quirk somewhere when recording this
 	 ;; dependency, which I don't have to time to debug right now.
@@ -890,7 +891,7 @@
 (defun careful-expand-macro (fun form)
   (handler-case (invoke-macroexpand-hook fun form *lexical-environment*)
     (error (condition)
-	   (compiler-error "(during macroexpansion)~%~A"
+	   (compiler-error _N"(during macroexpansion)~%~A"
 			   condition))))
 
 
@@ -931,7 +932,7 @@
     (if indices
 	(with-dynamic-extent (start cont nnext-cont :closure)
 	  (when *dynamic-extent-trace*
-	    (format t "~&dynamic-extent args ~:s in ~s~%" indices form))
+	    (format t _"~&dynamic-extent args ~:s in ~s~%" indices form))
 	  (let ((fun-cont (make-continuation)))
 	    (reference-leaf nnext-cont fun-cont fun)
 	    (ir1-convert-combination-args fun-cont cont (cdr form) indices)))
@@ -1129,7 +1130,7 @@
 			(cond ((eq int *empty-type*)
 			       (unless (policy nil (= brevity 3))
 				 (compiler-warning
-				  "Conflicting type declarations ~
+				  _N"Conflicting type declarations ~
 				   ~S and ~S for ~S."
 				  (type-specifier old-type)
 				  (type-specifier type)
@@ -1148,7 +1149,7 @@
 	     (new-vars `(,var-name . (MACRO . (the ,(first decl)
 						   ,(cdr var))))))
 	    (heap-alien-info
-	     (compiler-error "Can't declare type of Alien variable: ~S."
+	     (compiler-error _N"Can't declare type of Alien variable: ~S."
 			     var-name)))))
 
       (if (or (restr) (new-vars))
@@ -1201,10 +1202,10 @@
 	(etypecase var
 	  (cons
 	   (assert (eq (car var) 'MACRO))
-	   (compiler-error "Declaring symbol-macro ~S special." name))
+	   (compiler-error _N"Declaring symbol-macro ~S special." name))
 	  (lambda-var
 	   (when (lambda-var-ignorep var)
-	     (compiler-note "Ignored variable ~S is being declared special."
+	     (compiler-note _N"Ignored variable ~S is being declared special."
 			    name))
 	   (setf (lambda-var-specvar var)
 		 (specvar-for-binding name)))
@@ -1266,7 +1267,7 @@
 	      (etypecase found
 		(functional
 		 (when (policy nil (>= speed brevity))
-		   (compiler-note "Ignoring ~A declaration not at ~
+		   (compiler-note _N"Ignoring ~A declaration not at ~
 				   definition of local function:~%  ~S"
 				  sense name)))
 		(global-var
@@ -1287,7 +1288,7 @@
   (if (consp name)
       (destructuring-bind (wot fn-name) name
 	(unless (eq wot 'function)
-	  (compiler-error "Unrecognizable function or variable name: ~S"
+	  (compiler-error _N"Unrecognizable function or variable name: ~S"
 			  name))
 	(find fn-name fvars
 	      :key #'leaf-name
@@ -1308,8 +1309,8 @@
        ((not var)
 	(if (or (lexenv-find name variables)
 		(lexenv-find-function name))
-	    (compiler-note "Ignoring free ignore declaration for ~S." name)
-	    (compiler-warning "Ignore declaration for unknown variable ~S."
+	    (compiler-note _N"Ignoring free ignore declaration for ~S." name)
+	    (compiler-warning _N"Ignore declaration for unknown variable ~S."
 			      name)))
        ((and (consp var)
 	     (eq (car var) 'macro)
@@ -1324,7 +1325,7 @@
        ((functional-p var)
 	(setf (leaf-ever-used var) t))
        ((lambda-var-specvar var)
-	(compiler-note "Declaring special variable ~S to be ignored." name))
+	(compiler-note _N"Declaring special variable ~S to be ignored." name))
        ((eq (first spec) 'ignorable)
 	(setf (leaf-ever-used var) t))
        (t
@@ -1332,7 +1333,7 @@
   (undefined-value))
 
 (defvar *suppress-values-declaration* nil
-  "If true, processing of the VALUES declaration is inhibited.")
+  _N"If true, processing of the VALUES declaration is inhibited.")
 
 ;;; PROCESS-1-DECLARATION  --  Internal
 ;;;
@@ -1346,7 +1347,7 @@
     (special (process-special-declaration spec res vars))
     (ftype
      (unless (cdr spec)
-       (compiler-error "No type specified in FTYPE declaration: ~S." spec))
+       (compiler-error _N"No type specified in FTYPE declaration: ~S." spec))
      (process-ftype-declaration (second spec) res (cddr spec) fvars))
     (function
      ;;
@@ -1395,12 +1396,12 @@
 			     (string= (symbol-name what) "CLASS"))) ; pcl hack
 		   (or (info type kind what)
 		       (and (consp what) (info type translator (car what)))))
-	      (compiler-note "Abbreviated type declaration: ~S." spec)
+	      (compiler-note _N"Abbreviated type declaration: ~S." spec)
 	      (process-type-declaration spec res vars))
 	     ((info declaration recognized what)
 	      res)
 	     (t
-	      (compiler-warning "Unrecognized declaration: ~S." spec)
+	      (compiler-warning _N"Unrecognized declaration: ~S." spec)
 	      res))))))
 
 
@@ -1422,7 +1423,7 @@
   (dolist (decl decls)
     (dolist (spec (rest decl))
       (unless (consp spec)
-	(compiler-error "Malformed declaration specifier ~S in ~S."
+	(compiler-error _N"Malformed declaration specifier ~S in ~S."
 			spec decl))
       
       (setq env (process-1-declaration spec env vars fvars cont))))
@@ -1439,11 +1440,11 @@
   (cond ((not (eq (info variable where-from name) :assumed))
 	 (let ((found (find-free-variable name)))
 	   (when (heap-alien-info-p found)
-	     (compiler-error "Declaring an alien variable to be special: ~S"
+	     (compiler-error _N"Declaring an alien variable to be special: ~S"
 			     name))
 	   (when (or (not (global-var-p found))
 		     (eq (global-var-kind found) :constant))
-	     (compiler-error "Declaring a constant to be special: ~S." name))
+	     (compiler-error _N"Declaring a constant to be special: ~S." name))
 	   found))
 	(t
 	 (make-global-var :kind :special  :name name  :where-from :declared))))
@@ -1467,12 +1468,12 @@
   (declare (list names-so-far) (values lambda-var)
 	   (inline member))
   (unless (symbolp name)
-    (compiler-error "Lambda-variable is not a symbol: ~S." name))
+    (compiler-error _N"Lambda-variable is not a symbol: ~S." name))
   (when (member name names-so-far :test #'eq)
-    (compiler-error "Repeated variable in lambda-list: ~S." name))
+    (compiler-error _N"Repeated variable in lambda-list: ~S." name))
   (let ((kind (info variable kind name)))
     (when (or (keywordp name) (eq kind :constant))
-      (compiler-error "Name of lambda-variable is a constant: ~S." name))
+      (compiler-error _N"Name of lambda-variable is a constant: ~S." name))
     (if (eq kind :special)
 	(let ((specvar (find-free-variable name)))
 	  (make-lambda-var :name name
@@ -1497,7 +1498,7 @@
 	(when (and info
 		   (eq (arg-info-kind info) :keyword)
 		   (eq (arg-info-keyword info) key))
-	  (compiler-error "Multiple uses of keyword ~S in lambda-list." key))))
+	  (compiler-error _N"Multiple uses of keyword ~S in lambda-list." key))))
     key))
 
 
@@ -1530,13 +1531,13 @@
 				allow-debug-catch-tag
 				caller)
   (unless (consp form)
-    (compiler-error "Found a ~S when expecting a lambda expression:~%  ~S"
+    (compiler-error _N"Found a ~S when expecting a lambda expression:~%  ~S"
 		    (type-of form) form))
   (unless (eq (car form) 'lambda)
-    (compiler-error "Expecting a lambda, but form begins with ~S:~%  ~S"
+    (compiler-error _N"Expecting a lambda, but form begins with ~S:~%  ~S"
 		    (car form) form))
   (unless (and (consp (cdr form)) (listp (cadr form)))
-    (compiler-error "Lambda-list absent or not a list:~%  ~S" form))
+    (compiler-error _N"Lambda-list absent or not a list:~%  ~S" form))
 
   (multiple-value-bind (vars keyp allow-other-keys aux-vars aux-vals)
       (find-lambda-vars (cadr form))
@@ -1549,7 +1550,7 @@
 				(policy nil (= debug 3))) ; TODO: check the policy settings --jwr
 			   (progn
 			     (when (and *compile-print* *print-debug-tag-conversions*)
-			       (format t "ir1-convert-lambda: called by: ~S, parent-form: ~S~%" 
+			       (format t _"ir1-convert-lambda: called by: ~S, parent-form: ~S~%" 
 				       caller parent-form))
 			     (ir1-wrap-for-debug body))
 			   body))
@@ -1629,7 +1630,7 @@
 		     (setf (arg-info-supplied-p info) supplied-var)
 		     (names-so-far supplied-p)
 		     (when (> (length (the list spec)) 3)
-		       (compiler-error "Arg specifier is too long: ~S." spec)))))))
+		       (compiler-error _N"Arg specifier is too long: ~S." spec)))))))
 	
 	(dolist (name required)
 	  (let ((var (varify-lambda-arg name (names-so-far))))
@@ -1690,7 +1691,7 @@
 	   (t
 	    (let ((head (first spec)))
 	      (unless (= (length (the list head)) 2)
-		(error "Malformed keyword arg specifier: ~S." spec))
+		(error _"Malformed keyword arg specifier: ~S." spec))
 	      (let* ((name (second head))
 		     (var (varify-lambda-arg name (names-so-far)))
 		     (info (make-arg-info
@@ -1709,7 +1710,7 @@
 		   (names-so-far spec)))
 		(t
 		 (unless (<= 1 (length spec) 2)
-		   (compiler-error "Malformed &aux binding specifier: ~S."
+		   (compiler-error _N"Malformed &aux binding specifier: ~S."
 				   spec))
 		 (let* ((name (first spec))
 			(var (varify-lambda-arg name nil)))
@@ -2319,13 +2320,13 @@
 ;;;; Control special forms:
 
 (def-ir1-translator progn ((&rest forms) start cont)
-  "Progn Form*
+  _N"Progn Form*
   Evaluates each Form in order, returing the values of the last form.  With no
   forms, returns NIL."
   (ir1-convert-progn-body start cont forms))
 
 (def-ir1-translator if ((test then &optional else) start cont)
-  "If Predicate Then [Else]
+  _N"If Predicate Then [Else]
   If Predicate evaluates to non-null, evaluate Then and returns its values,
   otherwise evaluate Else and return its values.  Else defaults to NIL."
   (let* ((pred (make-continuation))
@@ -2365,12 +2366,12 @@
 ;;; done later, the block would be in the wrong environment.
 ;;;
 (def-ir1-translator block ((name &rest forms) start cont)
-  "Block Name Form*
+  _N"Block Name Form*
   Evaluate the Forms as a PROGN.  Within the lexical scope of the body,
   (RETURN-FROM Name Value-Form) can be used to exit the form, returning the
   result of Value-Form."
   (unless (symbolp name)
-    (compiler-error "Block name is not a symbol: ~S." name))
+    (compiler-error _N"Block name is not a symbol: ~S." name))
   (continuation-starts-block cont)
   (let* ((dummy (make-continuation))
 	 (entry (make-entry))
@@ -2392,13 +2393,13 @@
 ;;;
 (def-ir1-translator return-from ((name &optional value)
 				 start cont)
-  "Return-From Block-Name Value-Form
+  _N"Return-From Block-Name Value-Form
   Evaluate the Value-Form, returning its values from the lexically enclosing
   BLOCK Block-Name.  This is constrained to be used only within the dynamic
   extent of the BLOCK."
   (continuation-starts-block cont)
   (let* ((found (or (lexenv-find name blocks)
-		    (compiler-error "Return for unknown block: ~S." name)))
+		    (compiler-error _N"Return for unknown block: ~S." name)))
 	 (value-cont (make-continuation))
 	 (entry (first found))
 	 (exit (make-exit :entry entry  :value value-cont)))
@@ -2430,9 +2431,9 @@
 	    (return))
 	  (let ((tag (elt current tag-pos)))
 	    (when (assoc tag (segments))
-	      (compiler-error "Repeated tagbody tag: ~S." tag))
+	      (compiler-error _N"Repeated tagbody tag: ~S." tag))
 	    (unless (or (symbolp tag) (integerp tag))
-	      (compiler-error "Illegal tagbody statement: ~S." tag))	      
+	      (compiler-error _N"Illegal tagbody statement: ~S." tag))	      
 	    (segments `(,@(subseq current 0 tag-pos) (go ,tag))))
 	  (setq current (nthcdr tag-pos current)))))
     (segments)))
@@ -2445,7 +2446,7 @@
 ;;; each segment with the precomputed Start and Cont values.
 ;;;
 (def-ir1-translator tagbody ((&rest statements) start cont)
-  "Tagbody {Tag | Statement}*
+  _N"Tagbody {Tag | Statement}*
   Define tags for used with GO.  The Statements are evaluated in order
   (skipping Tags) and NIL is returned.  If a statement contains a GO to a
   defined Tag within the lexical scope of the form, then control is transferred
@@ -2487,12 +2488,12 @@
 ;;;    Emit an Exit node without any value.
 ;;;
 (def-ir1-translator go ((tag) start cont)
-  "Go Tag
+  _N"Go Tag
   Transfer control to the named Tag in the lexically enclosing TAGBODY.  This
   is constrained to be used only within the dynamic extent of the TAGBODY."
   (continuation-starts-block cont)
   (let* ((found (or (lexenv-find tag tags :test #'eql)
-		    (compiler-error "Go to nonexistent tag: ~S." tag)))
+		    (compiler-error _N"Go to nonexistent tag: ~S." tag)))
 	 (entry (first found))
 	 (exit (make-exit :entry entry)))
     (push exit (entry-exits entry))
@@ -2513,11 +2514,11 @@
 	 (values nil))
 	(list
 	 (unless (= (length bind) 2)
-	   (compiler-error "Bad compiler-let binding spec: ~S." bind))
+	   (compiler-error _N"Bad compiler-let binding spec: ~S." bind))
 	 (vars (first bind))
 	 (values (eval (second bind))))
 	(t
-	 (compiler-error "Bad compiler-let binding spec: ~S." bind))))
+	 (compiler-error _N"Bad compiler-let binding spec: ~S." bind))))
     (progv (vars) (values)
       (ir1-convert-progn-body start cont body))))
 
@@ -2535,7 +2536,7 @@
 	    (set-difference situations
 			    '(compile load eval
 			      :compile-toplevel :load-toplevel :execute)))
-    (compiler-error "Bad Eval-When situation list: ~S." situations))
+    (compiler-error _N"Bad Eval-When situation list: ~S." situations))
 
   (if toplevel-p
       ;; Can only get here from compile-file
@@ -2554,7 +2555,7 @@
 	  (funcall fun '(nil)))))
   
 (def-ir1-translator eval-when ((situations &rest body) start cont)
-  "EVAL-WHEN (Situation*) Form*
+  _N"EVAL-WHEN (Situation*) Form*
   Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,
   :LOAD-TOPLEVEL, :EXECUTE."
   (do-eval-when-stuff situations body
@@ -2604,13 +2605,13 @@
 	      (lisp::parse-defmacro arglist whole body name 'macrolet
 				    :environment environment)
 	    (unless (symbolp name)
-	      (compiler-error "Macro name ~S is not a symbol." name))
+	      (compiler-error _N"Macro name ~S is not a symbol." name))
 	    (unless (listp arglist)
-	      (compiler-error "Local macro ~S has argument list that is not a list: ~S."
+	      (compiler-error _N"Local macro ~S has argument list that is not a list: ~S."
 			      name arglist))
 	    (when (< (length def) 3)
 	      (compiler-error
-	       "Local macro ~S is too short to be a legal definition." name))
+	       _N"Local macro ~S is too short to be a legal definition." name))
 	    (new-fenv `(,(first def) macro .
 			,(eval:internal-eval
 			  `(lambda (,whole ,environment)
@@ -2627,7 +2628,7 @@
 
 
 (def-ir1-translator macrolet ((definitions &parse-body (body decls)) start cont)
-  "MACROLET ({(Name Lambda-List Form*)}*) Body-Form*
+  _N"MACROLET ({(Name Lambda-List Form*)}*) Body-Form*
   Evaluate the Body-Forms in an environment with the specified local macros
   defined.  Name is the local macro name, Lambda-List is the DEFMACRO style
   destructuring lambda list, and the Forms evaluate to the expansion."
@@ -2641,7 +2642,7 @@
 ;;; COMPILER-OPTION-BIND
 ;;; 
 (def-ir1-translator compiler-option-bind ((bindings &body body) start cont)
-  "Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*
+  _N"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*
    Establish the specified compiler options for the (lexical) duration of
    the body.  The Value-Forms are evaluated at compile time."
   (let ((*lexical-environment*
@@ -2651,7 +2652,7 @@
 					       (cdr binding)
 					       (listp (cdr binding))
 					       (null (cddr binding)))
-				    (compiler-error "Bogus binding for ~
+				    (compiler-error _N"Bogus binding for ~
 						     COMPILER-OPTION-BIND: ~S"
 						    binding))
 				  (cons (car binding)
@@ -2674,7 +2675,7 @@
   (declare (list args))
   (handler-case (mapcar #'eval args)
     (error (condition)
-      (compiler-error "Lisp error during evaluation of info args:~%~A"
+      (compiler-error _N"Lisp error during evaluation of info args:~%~A"
 		      condition))))
 
 ;;; A hashtable that translates from primitive names to translation functions.
@@ -2695,7 +2696,7 @@
 				       start cont)
   
   (unless (symbolp name)
-    (compiler-error "%Primitive name is not a symbol: ~S." name))
+    (compiler-error _N"%Primitive name is not a symbol: ~S." name))
 
   (let* ((name (intern (symbol-name name)
 		       (or (find-package "OLD-C")
@@ -2704,7 +2705,7 @@
     (if translator
 	(ir1-convert start cont (funcall translator (cdr form)))
 	(let* ((template (or (gethash name (backend-template-names *backend*))
-			     (compiler-error "Undefined primitive name: ~A."
+			     (compiler-error _N"Undefined primitive name: ~A."
 					     name)))
 	       (required (length (template-arg-types template)))
 	       (info (template-info-arg-count template))
@@ -2712,20 +2713,20 @@
 	       (nargs (length args)))
 	  (if (template-more-args-type template)
 	      (when (< nargs min)
-		(compiler-error "Primitive called with ~R argument~:P, ~
+		(compiler-error _N"Primitive called with ~R argument~:P, ~
 	    		         but wants at least ~R."
 				nargs min))
 	      (unless (= nargs min)
-		(compiler-error "Primitive called with ~R argument~:P, ~
+		(compiler-error _N"Primitive called with ~R argument~:P, ~
 				 but wants exactly ~R."
 				nargs min)))
 
 	  (when (eq (template-result-types template) :conditional)
-	    (compiler-error "%Primitive used with a conditional template."))
+	    (compiler-error _N"%Primitive used with a conditional template."))
 
 	  (when (template-more-results-type template)
 	    (compiler-error
-	     "%Primitive used with an unknown values template."))
+	     _N"%Primitive used with an unknown values template."))
 	  
 	  (ir1-convert start cont
 		      `(%%primitive ',template
@@ -2738,13 +2739,13 @@
 ;;;; Quote and Function:
 
 (def-ir1-translator quote ((thing) start cont)
-  "QUOTE Value
+  _N"QUOTE Value
   Return Value without evaluating it."
   (reference-constant start cont thing))
 
 
 (def-ir1-translator function ((thing) start cont)
-  "FUNCTION Name
+  _N"FUNCTION Name
   Return the lexically apparent definition of the function Name.  Name may also
   be a lambda."
   (flet ((reference-it ()
@@ -2766,7 +2767,7 @@
 	  (t
 	   (if (valid-function-name-p thing)
 	       (reference-it)
-	       (compiler-error "Illegal function name: ~S" thing))))
+	       (compiler-error _N"Illegal function name: ~S" thing))))
 	(reference-it))))
 
 
@@ -2808,29 +2809,29 @@
       (values nil t)))
 
 (deftransform %coerce-to-function ((thing) * * :when :both)
-  (give-up "Might be a symbol, so must call FDEFINITION at runtime."))
+  (give-up _"Might be a symbol, so must call FDEFINITION at runtime."))
 
 
 ;;;; Symbol macros:
 
 (def-ir1-translator symbol-macrolet ((specs &parse-body (body decls))
 				     start cont)
-  "SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*
+  _N"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*
   Define the Names as symbol macros with the given Expansions.  Within the
   body, references to a Name will effectively be replaced with the Expansion."
   (collect ((res))
     (dolist (spec specs)
       (unless (= (length spec) 2)
-	(compiler-error "Malformed symbol macro binding: ~S." spec))
+	(compiler-error _N"Malformed symbol macro binding: ~S." spec))
       (let ((name (first spec))
 	    (def (second spec)))
 	(unless (symbolp name)
-	  (compiler-error "Symbol macro name is not a symbol: ~S." name))
+	  (compiler-error _N"Symbol macro name is not a symbol: ~S." name))
 	(let ((kind (info variable kind name)))
 	  (when (member kind '(:special :constant))
-	    (compiler-error "Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." name)))
+	    (compiler-error _N"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." name)))
 	(when (assoc name (res) :test #'eq)
-	  (compiler-warning "Repeated name in SYMBOL-MACROLET: ~S." name))
+	  (compiler-warning _N"Repeated name in SYMBOL-MACROLET: ~S." name))
 	(res `(,name . (MACRO . ,def)))))
 
     (let* ((*lexical-environment* (make-lexenv :variables (res)))
@@ -2858,7 +2859,7 @@
   (collect ((vars))
     (dolist (name names (vars))
       (unless (symbolp name)
-	(compiler-error "Name is not a symbol: ~S." name))
+	(compiler-error _N"Name is not a symbol: ~S." name))
       (let ((old (gethash name *free-variables*)))
 	(when old (vars old))))))
 
@@ -2881,7 +2882,7 @@
 	(let ((old-type (info variable type name)))
 	  (unless (types-intersect type old-type)
 	    (compiler-warning
-	     "New proclaimed type ~S for ~S conflicts with old type ~S."
+	     _"New proclaimed type ~S for ~S conflicts with old type ~S."
 	     (type-specifier type) name (type-specifier old-type))))))
 
     (dolist (var (get-old-vars names))
@@ -2938,7 +2939,7 @@
   (let ((type (specifier-type spec)))
     (unless (csubtypep type (specifier-type 'function))
       (compiler-error
-       "Declared functional type is not a function type: ~S." spec))
+       _N"Declared functional type is not a function type: ~S." spec))
     (dolist (name names)
       (process-1-ftype-proclamation name type))))
 
@@ -2966,7 +2967,7 @@
   (if (constantp what)
       (let ((form (eval what)))
 	(unless (consp form)
-	  (compiler-error "Malformed PROCLAIM spec: ~S." form))
+	  (compiler-error _N"Malformed PROCLAIM spec: ~S." form))
 
 	(let ((identifier (first form))
 	      (args (rest form))
@@ -2978,7 +2979,7 @@
 		 (when (or (constant-p old)
 			   (eq (global-var-kind old) :constant))
 		   (compiler-error
-		    "Attempt to proclaim constant ~S to be special." name))
+		    _N"Attempt to proclaim constant ~S to be special." name))
 
 		 (ecase (global-var-kind old)
 		   (:special)
@@ -2989,16 +2990,16 @@
 					   :kind :special)))))))
 	    (type
 	     (when (endp args)
-	       (compiler-error "Malformed TYPE proclamation: ~S." form))
+	       (compiler-error _N"Malformed TYPE proclamation: ~S." form))
 	     (process-type-proclamation (first args) (rest args)))
 	    (function
 	     (when (endp args)
-	       (compiler-error "Malformed FUNCTION proclamation: ~S." form))
+	       (compiler-error _N"Malformed FUNCTION proclamation: ~S." form))
 	     (process-ftype-proclamation `(function . ,(rest args))
 					 (list (first args))))
 	    (ftype
 	     (when (endp args)
-	       (compiler-error "Malformed FTYPE proclamation: ~S." form))
+	       (compiler-error _N"Malformed FTYPE proclamation: ~S." form))
 	     (process-ftype-proclamation (first args) (rest args)))
 	    ((inline notinline maybe-inline)
 	     (process-inline-proclamation identifier args))
@@ -3017,7 +3018,7 @@
 		    (setq ignore t))
 		   (t
 		    (setq ignore t)
-		    (compiler-warning "Unrecognized proclamation: ~S."
+		    (compiler-warning _N"Unrecognized proclamation: ~S."
 				      form)))))
 	  
 	  (unless ignore
@@ -3093,7 +3094,7 @@
 		 (vals nil)))
 	      (t
 	       (unless (<= 1 (length spec) 2)
-		 (compiler-error "Malformed ~S binding spec: ~S."
+		 (compiler-error _N"Malformed ~S binding spec: ~S."
 				 context spec))
 	       (let* ((name (first spec))
 		      (var (get-var name)))
@@ -3105,7 +3106,7 @@
 
 (def-ir1-translator let ((bindings &parse-body (body decls))
 			 start cont)
-  "LET ({(Var [Value]) | Var}*) Declaration* Form*
+  _N"LET ({(Var [Value]) | Var}*) Declaration* Form*
   During evaluation of the Forms, Bind the Vars to the result of evaluating the
   Value forms.  The variables are bound in parallel after all of the Values are
   evaluated."
@@ -3125,7 +3126,7 @@
 
 (def-ir1-translator locally ((&parse-body (body decls))
                             start cont)
-  "LOCALLY Declaration* Form*
+  _N"LOCALLY Declaration* Form*
    Sequentially evaluates a body of Form's in a lexical environment
    where the given Declaration's have effect."
   (let* ((*lexical-environment* (process-declarations decls nil nil cont)))
@@ -3133,7 +3134,7 @@
 
 (def-ir1-translator let* ((bindings &parse-body (body decls))
 			  start cont)
-  "LET* ({(Var [Value]) | Var}*) Declaration* Form*
+  _N"LET* ({(Var [Value]) | Var}*) Declaration* Form*
   Similar to LET, but the variables are bound sequentially, allowing each Value
   form to reference any of the previous Vars."
   (multiple-value-bind (vars values)
@@ -3170,7 +3171,7 @@
     (collect ((names) (defs))
        (dolist (def definitions)
 	 (when (or (atom def) (< (length def) 2))
-	   (compiler-error "Malformed ~S definition spec: ~S." context def))
+	   (compiler-error _N"Malformed ~S definition spec: ~S." context def))
 	 (let* ((name (check-function-name (first def)))
 		(block-name (nth-value 1 (valid-function-name-p (first def))))
 		(local-name (local-function-name name)))
@@ -3186,7 +3187,7 @@
 
 (def-ir1-translator flet ((definitions &parse-body (body decls))
 			  start cont)
-  "FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*
+  _N"FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*
   Evaluate the Body-Forms with some local function definitions.   The bindings
   do not enclose the definitions; any use of Name in the Forms will refer to
   the lexically apparent function definition in the enclosing environment."
@@ -3213,7 +3214,7 @@
 ;;; used for inline expansion we will get the right functions.
 ;;;
 (def-ir1-translator labels ((definitions &parse-body (body decls)) start cont)
-  "LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*
+  _N"LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*
   Evaluate the Body-Forms with some local function definitions.  The bindings
   enclose the new definitions, so the defined functions can call themselves or
   each other."
@@ -3289,7 +3290,7 @@
     (when (and (not intersects)
 	       (not (policy nil (= brevity 3))))
       (compiler-warning
-       "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
+       _N"Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
        (type-specifier ctype) name (type-specifier old-type)))
     (make-lexenv :type-restrictions `((,cont . ,new))
 		 :default lexenv)))
@@ -3302,7 +3303,7 @@
 ;;; expected behavior.
 ;;;
 (def-ir1-translator the ((type value) start cont)
-  "THE Type Form
+  _N"THE Type Form
   Assert that Form evaluates to the specified type (which may be a VALUES
   type.)"
   (let ((ctype (values-specifier-type type)))
@@ -3328,7 +3329,7 @@
 ;;; with the uses's Derived-Type.
 ;;;
 (def-ir1-translator truly-the ((type value) start cont)
-  "Truly-The Type Value
+  _N"Truly-The Type Value
   Like the THE special form, except that it believes whatever you tell it.  It
   will never generate a type check, but will cause a warning if the compiler
   can prove the assertion is wrong."
@@ -3348,13 +3349,13 @@
 ;;; out.
 
 (def-ir1-translator setq ((&whole source &rest things) start cont)
-  "SETQ {Var Value}*
+  _N"SETQ {Var Value}*
   Set the variables to the values.  If more than one pair is supplied, the
   assignments are done sequentially.  If Var names a symbol macro, SETF the
   expansion."
   (let ((len (length things)))
     (when (oddp len)
-      (compiler-error "Odd number of args to SETQ: ~S." source))
+      (compiler-error _N"Odd number of args to SETQ: ~S." source))
     (if (= len 2)
 	(let* ((name (first things))
 	       (leaf (or (lexenv-find name variables)
@@ -3364,10 +3365,10 @@
 	     (when (or (constant-p leaf)
 		       (and (global-var-p leaf)
 			    (eq (global-var-kind leaf) :constant)))
-	       (compiler-error "Attempt to set constant ~S." name))
+	       (compiler-error _N"Attempt to set constant ~S." name))
 	     (when (lambda-var-p leaf)
 	       (when (lambda-var-ignorep leaf)
-		 (compiler-note "Setting an ignored variable: ~S." name))
+		 (compiler-note _N"Setting an ignored variable: ~S." name))
 	       (note-dfo-dependency start leaf))
 	     (set-variable start cont leaf (second things)))
 	    (cons
@@ -3414,7 +3415,7 @@
 ;;; than receiving multiple-values.
 ;;;
 (def-ir1-translator throw ((tag result) start cont)
-  "Throw Tag Form
+  _N"Throw Tag Form
   Do a non-local exit, return the values of Form from the CATCH whose tag
   evaluates to the same thing as Tag."
   (ir1-convert start cont
@@ -3479,7 +3480,7 @@
 ;;; using %within-cleanup.
 ;;;
 (def-ir1-translator catch ((tag &body body) start cont)
-  "Catch Tag Form*
+  _N"Catch Tag Form*
   Evaluates Tag and instantiates it as a catcher while the body forms are
   evaluated in an implicit PROGN.  If a THROW is done to Tag within the dynamic
   scope of the body, then control will be transferred to the end of the body
@@ -3503,7 +3504,7 @@
 ;;; doesn't cause creation of an XEP.
 ;;;
 (def-ir1-translator unwind-protect ((protected &body cleanup) start cont)
-  "Unwind-Protect Protected Cleanup*
+  _N"Unwind-Protect Protected Cleanup*
   Evaluate the form Protected, returning its values.  The cleanup forms are
   evaluated whenever the dynamic scope of the Protected form is exited (either
   due to normal completion or a non-local exit such as THROW)."
@@ -3539,7 +3540,7 @@
 ;;; compilation of MV-Combinations.
 ;;;
 (def-ir1-translator multiple-value-call ((fun &rest args) start cont)
-  "MULTIPLE-VALUE-CALL Function Values-Form*
+  _N"MULTIPLE-VALUE-CALL Function Values-Form*
   Call Function, passing all the values of each Values-Form as arguments,
   values from the first Values-Form making up the first argument, etc."
   (let* ((fun-cont (make-continuation))
@@ -3594,7 +3595,7 @@
 ;;; whose block is the true control destination.
 ;;;
 (def-ir1-translator multiple-value-prog1 ((result &rest forms) start cont)
-  "MULTIPLE-VALUE-PROG1 Values-Form Form*
+  _N"MULTIPLE-VALUE-PROG1 Values-Form Form*
   Evaluate Values-Form and then the Forms, but return all the values of
   Values-Form." 
   (continuation-starts-block cont)
@@ -3655,7 +3656,7 @@
 ;;;
 (defun do-macro-compile-time (name def)
   (unless (symbolp name)
-    (compiler-error "Macro name is not a symbol: ~S." name))
+    (compiler-error _N"Macro name is not a symbol: ~S." name))
 
   (ecase (info function kind name)
     ((nil))
@@ -3663,11 +3664,11 @@
      (remhash name *free-functions*)
      (undefine-function-name name)
      (compiler-warning
-      "Defining ~S to be a macro when it was ~(~A~) to be a function."
+      _N"Defining ~S to be a macro when it was ~(~A~) to be a function."
       name (info function where-from name)))
     (:macro)
     (:special-form
-     (compiler-error "Attempt to redefine special form ~S as a macro." name)))
+     (compiler-error _N"Attempt to redefine special form ~S as a macro." name)))
 
   (setf (info function kind name) :macro)
   (setf (info function where-from name) :defined)
@@ -3687,12 +3688,12 @@
       (ir1-convert start cont `(%%defmacro ',name ,fun ,doc)))
 
     (when *compile-print*
-      (compiler-mumble "~&; Converted ~S.~%" name))))
+      (compiler-mumble _"~&; Converted ~S.~%" name))))
 
 
 (defun do-compiler-macro-compile-time (name def)
   (when (eq (info function kind name) :special-form)
-    (compiler-error "Attempt to define a compiler-macro for special form ~S."
+    (compiler-error _N"Attempt to define a compiler-macro for special form ~S."
 		    name))
   (when *compile-time-define-macros*
     (setf (info function compiler-macro-function name)
@@ -3713,30 +3714,30 @@
       (ir1-convert start cont `(%%define-compiler-macro ',name ,fun ,doc)))
 
     (when *compile-print*
-      (compiler-mumble "~&; Converted ~S.~%" name))))
+      (compiler-mumble _"~&; Converted ~S.~%" name))))
 
 
 ;;; Update the global environment to correspond to the new definition.
 ;;;
 (defun do-defconstant-compile-time (name value doc)
   (unless (symbolp name)
-    (compiler-error "Constant name is not a symbol: ~S." name))
+    (compiler-error _N"Constant name is not a symbol: ~S." name))
   (when (eq name t)
-    (compiler-error "Can't change T."))
+    (compiler-error _N"Can't change T."))
   (when (eq name nil)
-    (compiler-error "Nihil ex nihil (Can't change NIL)."))
+    (compiler-error _N"Nihil ex nihil (Can't change NIL)."))
   (when (keywordp name)
-    (compiler-error "Can't change the value of keywords."))
+    (compiler-error _N"Can't change the value of keywords."))
 
   (let ((kind (info variable kind name)))
     (case kind
       (:constant
        (unless (equalp value (info variable constant-value name))
-	 (compiler-warning "Redefining constant ~S as:~%  ~S"
+	 (compiler-warning _N"Redefining constant ~S as:~%  ~S"
 			   name value)))
       (:global)
       (t
-       (compiler-warning "Redefining ~(~A~) ~S to be a constant."
+       (compiler-warning _N"Redefining ~(~A~) ~S to be a constant."
 			 kind name))))
 
   (setf (info variable kind name) :constant)
@@ -3998,4 +3999,4 @@
 		       ,@(when save-expansion `(',save-expansion)))))
 
 	(when *compile-print*
-	  (compiler-mumble "~&; Converted ~S.~%" name))))))
+	  (compiler-mumble _"~&; Converted ~S.~%" name))))))
diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 145999b5c1e034cdc45ea9e91afe98dfd49bc640..3e390206f3937679e4bcc7711c8f02d3652e88b7 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.110 2006/06/30 18:41:23 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.111 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
+
 (export '(*compiler-notification-function*))
 (in-package "EXTENSIONS")
 (export '(*error-print-level* *error-print-length* *error-print-lines*
@@ -445,17 +447,17 @@
   form)
 
 (defun encode-form-numbers (tlf-number form-number)
-  "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
+  _N"Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
   (declare (type (unsigned-byte 14) tlf-number form-number))
   (logior tlf-number (ash form-number 14)))
 
 (defun decode-form-numbers (fixnum)
-  "Return the tlf-number and form-number from an encoded FIXNUM."
+  _N"Return the tlf-number and form-number from an encoded FIXNUM."
   (values (ldb (byte 14 0) fixnum) 
 	  (ldb (byte 14 14) fixnum)))
 
 (defun source-location ()
-  "Return a source-location for the call site."
+  _N"Return a source-location for the call site."
   nil)
 
 (define-compiler-macro source-location ()
@@ -843,7 +845,7 @@
 	    (mark-for-deletion (node-block ref)))
 	  (unless (leaf-ever-used leaf)
 	    (let ((*compiler-error-context* bind))
-	      (compiler-note "Deleting unused function~:[.~;~:*~%  ~S~]"
+	      (compiler-note _N"Deleting unused function~:[.~;~:*~%  ~S~]"
 			     (leaf-name leaf))))
           (unless (block-delete-p bind-block)
 	    (unlink-blocks (component-head component) bind-block))
@@ -1067,7 +1069,7 @@
 ;;;
 (defun delete-block (block)
   (declare (type cblock block))
-  (assert (block-component block) () "Block is already deleted.")
+  (assert (block-component block) () _"Block is already deleted.")
   (note-block-deletion block)
   (setf (block-delete-p block) t)
 
@@ -1197,7 +1199,7 @@
     (unless (or (leaf-ever-used var)
 		(lambda-var-ignorep var))
       (let ((*compiler-error-context* (lambda-bind fun)))
-	(compiler-note "Variable ~S defined but never used." (leaf-name var)))
+	(compiler-note _N"Variable ~S defined but never used." (leaf-name var)))
       (setf (leaf-ever-used var) t)))
   (undefined-value))
 
@@ -1272,7 +1274,7 @@
 					  0)))
 	    (unless (return-p node)
 	      (let ((*compiler-error-context* node))
-		(compiler-note "Deleting unreachable code.")))
+		(compiler-note _N"Deleting unreachable code.")))
 	    (return))))))
   (undefined-value))
 
@@ -1402,7 +1404,7 @@
 ;;; with the correct number of arguments.
 ;;; 
 (defun extract-function-args (cont fun num-args)
-  "If CONT is a call to FUN with NUM-ARGS args, change those arguments
+  _N"If CONT is a call to FUN with NUM-ARGS args, change those arguments
    to feed directly to the continuation-dest of CONT, which must be
    a combination."
   (declare (type continuation cont)
@@ -1616,7 +1618,7 @@
 
 
 (defvar *inline-expansion-limit* 400
-  "An upper limit on the number of inline function calls that will be expanded
+  _N"An upper limit on the number of inline function calls that will be expanded
    in any given code object (single function or block compilation.)")
 
 
@@ -1632,7 +1634,7 @@
     (cond ((> expanded *inline-expansion-limit*) nil)
 	  ((= expanded *inline-expansion-limit*)
 	   (let ((*compiler-error-context* node))
-	     (compiler-note "*Inline-Expansion-Limit* (~D) exceeded, ~
+	     (compiler-note _N"*Inline-Expansion-Limit* (~D) exceeded, ~
 			     probably trying to~%  ~
 			     inline a recursive function."
 			    *inline-expansion-limit*))
@@ -1652,14 +1654,14 @@
 	       *error-print-length* *error-print-lines*))
 
 (defvar *error-print-level* 3
-  "The value for *Print-Level* when printing compiler error messages.")
+  _N"The value for *Print-Level* when printing compiler error messages.")
 (defvar *error-print-length* 5
-  "The value for *Print-Length* when printing compiler error messages.")
+  _N"The value for *Print-Length* when printing compiler error messages.")
 (defvar *error-print-lines* 5
-  "The value for *Print-Lines* when printing compiler error messages.")
+  _N"The value for *Print-Lines* when printing compiler error messages.")
 
 (defvar *enclosing-source-cutoff* 1
-  "The maximum number of enclosing non-original source forms (i.e. from
+  _N"The maximum number of enclosing non-original source forms (i.e. from
   macroexpansion) that we print in full.  For additional enclosing forms, we
   print only the CAR.")
 (declaim (type unsigned-byte *enclosing-source-cutoff*))
@@ -1720,7 +1722,7 @@
 ;;; DEF-SOURCE-CONTEXT  --  Public
 ;;;
 (defmacro def-source-context (name ll &body body)
-  "DEF-SOURCE-CONTEXT Name Lambda-List Form*
+  _N"DEF-SOURCE-CONTEXT Name Lambda-List Form*
    This macro defines how to extract an abbreviated source context from the
    Named form when it appears in the compiler input.  Lambda-List is a DEFMACRO
    style lambda-list used to parse the arguments.  The Body should return a
@@ -1878,7 +1880,7 @@
 ;;;
 (declaim (type (function () nil) *compiler-error-bailout*))
 (defvar *compiler-error-bailout*
-  #'(lambda () (error "Compiler-Error with no bailout.")))
+  #'(lambda () (error _"Compiler-Error with no bailout.")))
 
 ;;; The stream that compiler error output is directed to.
 ;;;
@@ -1906,7 +1908,7 @@
 (declaim (type index *last-message-count*))
 
 (defvar *compiler-notification-function* nil
-  "This is the function called by the compiler to specially note a
+  _N"This is the function called by the compiler to specially note a
 warning, comment, or error. The function must take five arguments: the
 severity, a string describing the nature of the notification, a string
 for context, the file namestring, and the file position. The severity
@@ -1948,7 +1950,7 @@ these can be NIL if unavailable or inapplicable.")
 	 (when terpri (terpri *compiler-error-output*)))
 	((> *last-message-count* 1)
 	 (pprint-logical-block (*compiler-error-output* nil :per-line-prefix "; ")
-	   (format *compiler-error-output* "[Last message occurs ~D times]"
+	   (format *compiler-error-output* _"[Last message occurs ~D times]"
 		   *last-message-count*))
 	 (format *compiler-error-output* "~2%")))
   (setq *last-message-count* 0))
@@ -1999,7 +2001,7 @@ these can be NIL if unavailable or inapplicable.")
 		 (setq last nil)
 		 (format stream "~2&")
 		 (pprint-logical-block (stream nil :per-line-prefix "; ")
-		   (format stream "~2&File: ~A" (namestring file)))
+		   (format stream _"~2&File: ~A" (namestring file)))
 		 (format stream "~%")))
 	    
 	     (unless (and last
@@ -2008,7 +2010,7 @@ these can be NIL if unavailable or inapplicable.")
 	       (setq last nil)
 	       (format stream "~2&")
 	       (pprint-logical-block (stream nil :per-line-prefix "; ")
-		 (format stream "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}" in))
+		 (format stream _"In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}" in))
 	       (format stream "~2%"))
 	    
 	     (unless (and last
@@ -2153,24 +2155,25 @@ these can be NIL if unavailable or inapplicable.")
 ;;;
 (defun compiler-error (format-string &rest format-args)
   (declare (string format-string))
-  (cerror "replace form with call to ERROR."
-	  'compiler-error :format-control format-string
+  (cerror _"replace form with call to ERROR."
+	  'compiler-error
+	  :format-control (intl:gettext format-string)
 	  :format-arguments format-args)
   (funcall *compiler-error-bailout*))
 ;;;
 (defun compiler-error-message (format-string &rest format-args)
-  (cerror "ignore it." 
+  (cerror _"ignore it." 
 	  'compiler-error :format-control format-string
 	  :format-arguments format-args))
 ;;; 
 (defun compiler-read-error (position format-string &rest format-args)
-  (cerror "replace form with call to ERROR."
+  (cerror _"replace form with call to ERROR."
 	  'compiler-read-error :position position
 	  :message (apply #'format nil format-string format-args)))
 ;;;
 (defun compiler-warning (format-string &rest format-args)
   (declare (string format-string))
-  (apply #'warn format-string format-args)
+  (apply #'warn (intl:gettext format-string) format-args)
   (values))
 ;;;
 (defun compiler-note (format-string &rest format-args)
@@ -2178,7 +2181,8 @@ these can be NIL if unavailable or inapplicable.")
   (unless (if *compiler-error-context*
 	      (policy *compiler-error-context* (= brevity 3))
 	      (policy nil (= brevity 3)))
-    (warn 'simple-style-warning :format-control format-string
+    (warn 'simple-style-warning
+	  :format-control (intl:gettext format-string)
 	  :format-arguments format-args))
   (values))
 
@@ -2196,7 +2200,7 @@ these can be NIL if unavailable or inapplicable.")
 
 
 (defvar *undefined-warning-limit* 3
-  "If non-null, then an upper limit on the number of unknown function or type
+  _N"If non-null, then an upper limit on the number of unknown function or type
   warnings that the compiler will print for any given name in a single
   compilation.  This prevents excessive amounts of output when there really is
   a missing definition (as opposed to a typo in the use.)")
@@ -2247,7 +2251,7 @@ these can be NIL if unavailable or inapplicable.")
     (handler-case (apply function args)
       (error (condition)
 	(let ((*compiler-error-context* node))
-	  (compiler-warning "Lisp error during ~A:~%~A" context condition)
+	  (compiler-warning _N"Lisp error during ~A:~%~A" context condition)
 	  (return-from careful-call (values nil nil))))))
    t))
 
diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index e150c7ed721169d4b0d19617e9824151ae008244..6e32ae815a89223c0d8c1382e9ecaebb4c6789a0 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.75 2007/03/03 01:52:06 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.76 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "C")
 (in-package "KERNEL")
+(intl:textdomain "cmucl")
+
 (export '(%caller-frame-and-pc))
 (in-package "C")
 
@@ -25,12 +27,12 @@
 
 #+(or sparc ppc)
 (defvar *always-clear-stack* nil
-  "Always perform stack clearing if non-NIL, independent of the
+  _N"Always perform stack clearing if non-NIL, independent of the
 compilation policy")
 
 #+(or sparc ppc)
 (defvar *enable-stack-clearing* t
-  "If non-NIL and the compilation policy allows, stack clearing is enabled.")
+  _N"If non-NIL and the compilation policy allows, stack clearing is enabled.")
 
 (defun ir2-stack-allocate (node)
   (declare (type node node))
@@ -108,7 +110,7 @@ compilation policy")
 	(nlx-info
 	 (assert (eq env (block-environment (nlx-info-target thing))))
 	 (ir2-nlx-info-home (nlx-info-info thing))))
-      (error "~@<~2I~_~S ~_not found in ~_~S~:>" thing env)))
+      (error _"~@<~2I~_~S ~_not found in ~_~S~:>" thing env)))
 
 ;;; Constant-TN  --  Internal
 ;;;
diff --git a/compiler/knownfun.lisp b/compiler/knownfun.lisp
index 31f763ac3815b4738d562e5fcd76c03365b53df1..89be35925e343bff891dd31971683590b2b6dc1a 100644
--- a/compiler/knownfun.lisp
+++ b/compiler/knownfun.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/knownfun.lisp,v 1.32 2005/11/09 19:08:06 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/knownfun.lisp,v 1.33 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package :c)
+(intl:textdomain "cmucl")
 
 (export '(call unsafe unwind any foldable flushable movable predicate))
 
@@ -194,7 +195,7 @@
 	   (type (member t nil) important)
 	   (type (member :native :byte :both) when))
   (let* ((ctype (specifier-type type))
-	 (note (or note "optimize"))
+	 (note (or note _"optimize"))
 	 (info (function-info-or-lose name))
 	 (old (find-if #'(lambda (x)
 			   (and (type= (transform-type x) ctype)
@@ -247,7 +248,7 @@
   (let ((*info-environment* (or (backend-info-environment *target-backend*)
 				*info-environment*)))
     (let ((old (info function info name)))
-      (unless old (error "~S is not a known function." name))
+      (unless old (error _"~S is not a known function." name))
       (setf (info function info name) (copy-function-info old)))))
 
 
diff --git a/compiler/life.lisp b/compiler/life.lisp
index d1388500fff486b4d4c1f2ffd80a99107d15c259..7e704a8264208927f36fb9fe47cd76698d9b2a71 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/life.lisp,v 1.23 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/life.lisp,v 1.24 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Utilities:
@@ -335,7 +336,7 @@
 				(not (eq ref op)))
 		       (return nil)))))
 	    (and (frob (tn-reads tn)) (frob (tn-writes tn))))
-	  () "More operand ~S used more than once in its VOP." op)
+	  () _"More operand ~S used more than once in its VOP." op)
 	(assert (not (find-in #'global-conflicts-next tn
 			      (ir2-block-global-tns block)
 			      :key #'global-conflicts-tn)))
diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index 633b0c92cd53ae642420aef20b204cac7fda0993..433c34f499e813579fa94d9196775286a7f1cf36 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.60 2007/12/10 18:48:57 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.61 2010/03/19 15:19:00 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,6 +23,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package :c)
+(intl:textdomain "cmucl")
 
 
 ;;; Propagate-To-Args  --  Interface
@@ -341,7 +342,7 @@
 		 res)
 		(t
 		 (let ((*compiler-error-context* call))
-		   (compiler-note "Couldn't inline expand because expansion ~
+		   (compiler-note _N"Couldn't inline expand because expansion ~
 				   calls this let-converted local function:~
 				   ~%  ~S"
 				  (leaf-name res)))
@@ -457,7 +458,7 @@
 	   (convert-call ref call fun))
 	  (t
 	   (compiler-warning
-	    "Function called with ~R argument~:P, but wants exactly ~R."
+	    _N"Function called with ~R argument~:P, but wants exactly ~R."
 	    call-args nargs)
 	   (setf (basic-combination-kind call) :error)))))
 
@@ -479,7 +480,7 @@
 	(max-args (optional-dispatch-max-args fun))
 	(call-args (length (combination-args call))))
     (cond ((< call-args min-args)
-	   (compiler-warning "Function called with ~R argument~:P, but wants at least ~R."
+	   (compiler-warning _N"Function called with ~R argument~:P, but wants at least ~R."
 			     call-args min-args)
 	   (setf (basic-combination-kind call) :error))
 	  ((<= call-args max-args)
@@ -489,7 +490,7 @@
 	  ((optional-dispatch-more-entry fun)
 	   (convert-more-call ref call fun))
 	  (t
-	   (compiler-warning "Function called with ~R argument~:P, but wants at most ~R."
+	   (compiler-warning _N"Function called with ~R argument~:P, but wants at most ~R."
 			     call-args max-args)
 	   (setf (basic-combination-kind call) :error))))
   (undefined-value))
@@ -565,7 +566,7 @@
 	       (key-vars var))
 	      ((:rest :optional))
 	      ((:more-context :more-count)
-	       (compiler-warning "Can't local-call functions with &MORE args.")
+	       (compiler-warning _N"Can't local-call functions with &MORE args.")
 	       (setf (basic-combination-kind call) :error)
 	       (return-from convert-more-call))))))
 
@@ -577,7 +578,7 @@
 
       (when (optional-dispatch-keyp fun)
 	(when (oddp (length more))
-	  (compiler-warning "Function called with odd number of ~
+	  (compiler-warning _N"Function called with odd number of ~
 	  		     arguments in keyword portion.")
 
 	  (setf (basic-combination-kind call) :error)
@@ -589,7 +590,7 @@
 	  (let ((cont (first key)))
 	    (unless (constant-continuation-p cont)
 	      (when flame
-		(compiler-note "Non-constant keyword in keyword call."))
+		(compiler-note _N"Non-constant keyword in keyword call."))
 	      (setf (basic-combination-kind call) :error)
 	      (return-from convert-more-call))
 	    
@@ -604,7 +605,7 @@
 			       allowp (continuation-value val)))
 			(t
 			 (when flame
-			   (compiler-note "non-constant :ALLOW-OTHER-KEYS value"))
+			   (compiler-note _N"non-constant :ALLOW-OTHER-KEYS value"))
 			 (setf (basic-combination-kind call) :error)
 			 (return-from convert-more-call)))))
 	      (dolist (var (key-vars)
@@ -623,7 +624,7 @@
 		    (return)))))))
 	
 	(when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
-	  (compiler-warning "Function called with unknown argument keyword ~S."
+	  (compiler-warning _N"Function called with unknown argument keyword ~S."
 			    (car loser))
 	  (setf (basic-combination-kind call) :error)
 	  (return-from convert-more-call)))
diff --git a/compiler/loop.lisp b/compiler/loop.lisp
index f160e184312a53512b7180343993fa77ee3b50a8..f435dcb2e447fa368741cfa6294c18dbfe1d64d5 100644
--- a/compiler/loop.lisp
+++ b/compiler/loop.lisp
@@ -5,13 +5,14 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loop.lisp,v 1.1 2004/11/05 21:57:25 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loop.lisp,v 1.2 2010/03/19 15:19:00 rtoy Rel $")
 ;;; **********************************************************************
 ;;;
 ;;; Stuff to annotate the flow graph with information about the loops in it.
 ;;;
 ;;; Written by Rob MacLachlan
 (in-package "C")
+(intl:textdomain "cmucl")
 
 ;;; FIND-DOMINATORS  --  Internal
 ;;;
diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index 81193e88f10bf9e5981a4ff3844bfe8cfa46956a..37709ce4c41b11edb69641c4c1a53260e704e29e 100644
--- a/compiler/ltn.lisp
+++ b/compiler/ltn.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.43 2005/04/22 14:04:14 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.44 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,8 @@
 ;;;
 (in-package "C")
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(*efficiency-note-limit* *efficiency-note-cost-threshold*))
 (in-package "C")
 
@@ -273,7 +275,7 @@
 	   (*compiler-error-context* dest))
       (when (and (policy-safe-p policy)
 		 (policy dest (>= safety brevity)))
-	(compiler-note "Unable to check type assertion in unknown-values ~
+	(compiler-note _N"Unable to check type assertion in unknown-values ~
 	                context:~% ~S"
 		       (continuation-asserted-type cont))))
     (setf (continuation-%type-check cont) :deleted))
@@ -598,7 +600,7 @@
 		(and (eq (tn-kind tn) :constant)
 		     (funcall (second restr) (tn-value tn))))
 	       (t
-		(error "Neither CONT nor TN supplied.")))))))
+		(error _"Neither CONT nor TN supplied.")))))))
 
   
 ;;; Template-Args-OK  --  Internal
@@ -647,7 +649,7 @@
   (declare (type template template)
 	   (type ctype result-type))
   (when (template-more-results-type template)
-    (error "~S has :MORE results with :TRANSLATE." (template-name template)))
+    (error _"~S has :MORE results with :TRANSLATE." (template-name template)))
   (let ((types (template-result-types template)))
     (cond
      ((values-type-p result-type)
@@ -792,12 +794,12 @@
 
 
 (defvar *efficiency-note-limit* 2
-  "This is the maximum number of possible optimization alternatives will be
+  _N"This is the maximum number of possible optimization alternatives will be
   mentioned in a particular efficiency note.  NIL means no limit.")
 (declaim (type (or index null) *efficiency-note-limit*))
 
 (defvar *efficiency-note-cost-threshold* 5
-  "This is the minumum cost difference between the chosen implementation and
+  _N"This is the minumum cost difference between the chosen implementation and
   the next alternative that justifies an efficiency note.")
 (declaim (type index *efficiency-note-cost-threshold*))
 
@@ -812,24 +814,24 @@
 (defun strange-template-failure (template call policy frob)
   (declare (type template template) (type combination call)
 	   (type policies policy) (type function frob))
-  (funcall frob "This shouldn't happen!  Bug?")
+  (funcall frob _"This shouldn't happen!  Bug?")
   (multiple-value-bind (win why)
 		       (is-ok-template-use template call
 					   (policy-safe-p policy))
     (assert (not win))
     (ecase why
       (:guard
-       (funcall frob "Template guard failed."))
+       (funcall frob _"Template guard failed."))
       (:arg-check
-       (funcall frob "Template is not safe, yet we were counting on it."))
+       (funcall frob _"Template is not safe, yet we were counting on it."))
       (:arg-types
-       (funcall frob "Argument types invalid.")
-       (funcall frob "Argument primitive types:~%  ~S"
+       (funcall frob _"Argument types invalid.")
+       (funcall frob _"Argument primitive types:~%  ~S"
 		(mapcar #'(lambda (x)
 			    (primitive-type-name
 			     (continuation-ptype x)))
 			(combination-args call)))
-       (funcall frob "Argument type assertions:~%  ~S"
+       (funcall frob _"Argument type assertions:~%  ~S"
 		(mapcar #'(lambda (x)
 			    (if (atom x)
 				x
@@ -839,9 +841,9 @@
 				  (:constant `(:constant ,(third x))))))
 			(template-arg-types template))))
       (:conditional
-       (funcall frob "Conditional in a non-conditional context."))
+       (funcall frob _"Conditional in a non-conditional context."))
       (:result-types
-       (funcall frob "Result types invalid.")))))
+       (funcall frob _"Result types invalid.")))))
 
 
 ;;; Note-Rejected-Templates  --  Internal
@@ -901,14 +903,15 @@
 	  (dolist (loser (losers))
 	    (when (and *efficiency-note-limit*
 		       (>= (count) *efficiency-note-limit*))
-	      (frob "etc.")
+	      (frob _"etc.")
 	      (return))
 	    (let* ((type (template-type loser))
 		   (valid (valid-function-use call type))
 		   (strict-valid (valid-function-use call type
 						     :strict-result t)))
-	      (frob "Unable to do ~A (cost ~D) because:"
-		    (or (template-note loser) (template-name loser))
+	      (frob _"Unable to do ~A (cost ~D) because:"
+		    (intl:dgettext (template-note-domain loser)
+				   (or (template-note loser) (template-name loser)))
 		    (template-cost loser))
 	      (cond
 	       ((and valid strict-valid)
@@ -919,21 +922,21 @@
 						 :warning-function #'frob))))
 	       (t
 		(assert (policy-safe-p policy))
-		(frob "Can't trust output type assertion under safe ~
+		(frob _"Can't trust output type assertion under safe ~
 		       policy.")))
 	      (count 1))))
 
 	(let ((*compiler-error-context* call))
 	  (efficiency-note "~{~?~^~&~6T~}"
 			   (if template
-			       `("Forced to do ~A (cost ~D)."
-				 (,(or (template-note template)
-				       (template-name template))
-				   ,(template-cost template))
-				 . ,(messages))
-			       `("Forced to do full call."
-				 nil
-				 . ,(messages))))))))
+			       (list* _"Forced to do ~A (cost ~D)."
+				      `(,(or (template-note template)
+					     (template-name template))
+					 ,(template-cost template))
+				      (messages))
+			       (list* _"Forced to do full call."
+				      nil
+				      (messages))))))))
   (undefined-value))
 
 
@@ -1008,7 +1011,7 @@
 			      (ir1-attributep (function-info-attributes info)
 					      recursive)))))
 	  (let ((*compiler-error-context* call))
-	    (compiler-warning "Recursive known function definition.")))
+	    (compiler-warning _N"Recursive known function definition.")))
 	(ltn-default-call call policy)
 	(return-from ltn-analyze-known-call (undefined-value)))
       (setf (basic-combination-info call) template)
diff --git a/compiler/ltv.lisp b/compiler/ltv.lisp
index 070101df86da97d0f9b4b023e8a32c410fc80c3f..41c82465d18e372a7c7875fe43bca848cc861579 100644
--- a/compiler/ltv.lisp
+++ b/compiler/ltv.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltv.lisp,v 1.2 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltv.lisp,v 1.3 2010/03/19 15:19:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 (in-package "C")
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
+
 (export 'load-time-value)
 
 (in-package "C")
@@ -23,7 +25,7 @@
 (defknown %load-time-value (t) t (flushable movable))
 
 (def-ir1-translator load-time-value ((form &optional read-only-p) start cont)
-  "Arrange for FORM to be evaluated at load-time and use the value produced
+  _N"Arrange for FORM to be evaluated at load-time and use the value produced
    as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant
    object is guaranteed to never be modified, so it can be put in read-only
    storage."
@@ -41,7 +43,7 @@
       (let ((value
 	     (handler-case (eval form)
 	       (error (condition)
-		 (compiler-error "(during EVAL of LOAD-TIME-VALUE)~%~A"
+		 (compiler-error _N"(during EVAL of LOAD-TIME-VALUE)~%~A"
 				 condition)))))
 	(ir1-convert start cont
 		     (if read-only-p
diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 9b99006ffdc4696329c85271ddfbe9211bf886f0..2b028001fc472d93305fabb3314a9f9aed127e6f 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.56 2007/11/14 10:04:34 cshapiro Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.57 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(lisp::with-compilation-unit) "LISP")
 
@@ -74,7 +75,7 @@
 ;;; the compiler policy parameters.
 ;;;
 (defmacro policy (node &rest conditions)
-  "Policy Node Condition*
+  _N"Policy Node Condition*
   Test whether some conditions apply to the current compiler policy for Node.
   Each condition is a predicate form which accesses the policy values by
   referring to them as the variables SPEED, SPACE, SAFETY, CSPEED, BREVITY and
@@ -126,7 +127,7 @@
 (defun special-form-function (&rest stuff)
   (declare (ignore stuff))
   (error 'simple-undefined-function
-	 :format-control "Can't funcall the SYMBOL-FUNCTION of special forms."))
+	 :format-control _"Can't funcall the SYMBOL-FUNCTION of special forms."))
 
 ;;; CONVERT-CONDITION-INTO-COMPILER-ERROR  --  Internal
 ;;;
@@ -150,7 +151,7 @@
 (defmacro def-ir1-translator (name (lambda-list start-var cont-var
 						&key (kind :special-form))
 				   &body body)
-  "Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)
+  _N"Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)
                       [Doc-String] Form*
   Define a function that converts a Special-Form or other magical thing into
   IR1.  Lambda-List is a defmacro style lambda list.  Start-Var and Cont-Var
@@ -185,7 +186,7 @@
 		 (declare (ignore stuff))
 		 (error 'simple-undefined-function
 			:name ',name
-			:format-control "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+			:format-control _"Can't funcall the SYMBOL-FUNCTION of the special form ~A."
 			:format-arguments (list ',name)))
 	       (setf (symbol-function ',name)
 		     (function ,(symbolicate "SPECIAL-FORM-FUNCTION-" name)))))))))
@@ -197,7 +198,7 @@
 ;;; invalid.
 ;;;
 (defmacro def-source-transform (name lambda-list &body body)
-  "Def-Source-Transform Name Lambda-List Form*
+  _N"Def-Source-Transform Name Lambda-List Form*
   Define a macro-like source-to-source transformation for the function Name.
   A source transform may \"pass\" by returning a non-nil second value.  If the
   transform passes, then the form is converted as a normal function call.  If
@@ -238,7 +239,7 @@
 
 
 (defmacro def-primitive-translator (name lambda-list &body body)
-  "Def-Primitive-Translator Name Lambda-List Form*
+  _N"Def-Primitive-Translator Name Lambda-List Form*
   Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp
   code.  Lambda-List is a defmacro style lambda list."
   (let ((fn-name (symbolicate "PRIMITIVE-TRANSLATE-" name))
@@ -352,7 +353,7 @@
 					  &key result policy node defun-only
 					  eval-name important (when :native))
 			     &parse-body (body decls doc))
-  "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)
+  _N"Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)
                Declaration* [Doc-String] Form*
   Define an IR1 transformation for Name.  An IR1 transformation computes a
   lambda that replaces the function variable reference for the call.  A
@@ -412,7 +413,7 @@
               byte-code or both (default :native.)"
 
   (when (and eval-name defun-only)
-    (error "Can't specify both DEFUN-ONLY and EVAL-NAME."))
+    (error _"Can't specify both DEFUN-ONLY and EVAL-NAME."))
   (let ((n-args (gensym))
 	(n-node (or node (gensym)))
 	(n-decls (gensym))
@@ -460,7 +461,7 @@
 ;;;
 (defmacro defknown (name arg-types result-type &optional (attributes '(any))
 			 &rest keys)
-  "Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* 
+  _N"Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* 
   Declare the function Name to be a known function.  We construct a type
   specifier for the function by wrapping (FUNCTION ...) around the Arg-Types
   and Result-Type.  Attributes is a an unevaluated list of the boolean
@@ -505,7 +506,7 @@
   optimizers that the function might have."
   (when (and (intersection attributes '(any call unwind))
 	     (intersection attributes '(movable)))
-    (error "Function cannot have both good and bad attributes: ~S" attributes))
+    (error _"Function cannot have both good and bad attributes: ~S" attributes))
   
   `(%defknown ',(if (and (consp name)
 			 (not (eq (car name) 'setf)))
@@ -526,7 +527,7 @@
 (defmacro defoptimizer (what (lambda-list &optional (n-node (gensym))
 					  &rest vars)
 			     &body body)
-  "Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)
+  _N"Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)
                 Declaration* Form*
   Define some Kind of optimizer for the named Function.  Function must be a
   known function.  Lambda-List is used to parse the arguments to the
@@ -565,7 +566,7 @@
 ;;; Do-Blocks, Do-Blocks-Backwards  --  Interface
 ;;;    
 (defmacro do-blocks ((block-var component &optional ends result) &body body)
-  "Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*
+  _N"Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*
   Iterate over the blocks in a component, binding Block-Var to each block in
   turn.  The value of Ends determines whether to iterate over dummy head and
   tail blocks:
@@ -576,7 +577,7 @@
 
   If supplied, Result-Form is the value to return."
   (unless (member ends '(nil :head :tail :both))
-    (error "Losing Ends value: ~S." ends))
+    (error _"Losing Ends value: ~S." ends))
   (let ((n-component (gensym))
 	(n-tail (gensym)))
     `(let* ((,n-component ,component)
@@ -591,10 +592,10 @@
 	 ,@body))))
 ;;;
 (defmacro do-blocks-backwards ((block-var component &optional ends result) &body body)
-  "Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*
+  _N"Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*
   Like Do-Blocks, only iterate over the blocks in reverse order."
   (unless (member ends '(nil :head :tail :both))
-    (error "Losing Ends value: ~S." ends))
+    (error _"Losing Ends value: ~S." ends))
   (let ((n-component (gensym))
 	(n-head (gensym)))
     `(let* ((,n-component ,component)
@@ -614,7 +615,7 @@
 ;;;    Could change it not to replicate the code someday perhaps...
 ;;;
 (defmacro do-uses ((node-var continuation &optional result) &body body)
-  "Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*
+  _N"Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*
   Iterate over the uses of Continuation, binding Node to each one succesively."
   (once-only ((n-cont continuation))
     `(ecase (continuation-kind ,n-cont)
@@ -647,7 +648,7 @@
 ;;; BLOCK-LAST each time.
 ;;;
 (defmacro do-nodes ((node-var cont-var block &key restart-p) &body body)
-  "Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*
+  _N"Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*
   Iterate over the nodes in Block, binding Node-Var to the each node and
   Cont-Var to the node's Cont.  The only keyword option is Restart-P, which
   causes iteration to be restarted when a node is deleted out from under us (if
@@ -679,7 +680,7 @@
 	   (return nil))))))
 ;;;
 (defmacro do-nodes-backwards ((node-var cont-var block) &body body)
-  "Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*
+  _N"Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*
   Like Do-Nodes, only iterates in reverse order."
   (let ((n-block (gensym))
 	(n-start (gensym))
@@ -703,7 +704,7 @@
 ;;;    The lexical environment is presumably already null...
 ;;;
 (defmacro with-ir1-environment (node &rest forms)
-  "With-IR1-Environment Node Form*
+  _N"With-IR1-Environment Node Form*
   Bind the IR1 context variables so that IR1 conversion can be done after the
   main conversion pass has finished."
   (let ((n-node (gensym)))
@@ -734,7 +735,7 @@
 ;;; LEXENV-FIND  --  Interface
 ;;;
 (defmacro lexenv-find (name slot &key test)
-  "LEXENV-FIND Name Slot {Key Value}*
+  _N"LEXENV-FIND Name Slot {Key Value}*
   Look up Name in the lexical environment namespace designated by Slot,
   returning the <value, T>, or <NIL, NIL> if no entry.  The :TEST keyword
   may be used to determine the name equality predicate."
@@ -781,7 +782,7 @@
 ;;;; The Defprinter macro:
 
 (defvar *defprint-pretty* nil
-  "If true, defprinter print functions print each slot on a separate line.")
+  _N"If true, defprinter print functions print each slot on a separate line.")
 
 
 ;;; Defprinter-Prin1, Defprinter-Princ  --  Internal
@@ -808,7 +809,7 @@
   (princ value stream))
 
 (defmacro defprinter (name &rest slots)
-  "Defprinter Name Slot-Desc*
+  _N"Defprinter Name Slot-Desc*
   Define some kind of reasonable defstruct structure-print function.  Name
   is the name of the structure.  We define a function %PRINT-name which
   prints the slots in the structure in the way described by the Slot-Descs.
@@ -852,7 +853,7 @@
 			       stream)))
 		    (:test (setq test (second option)))
 		    (t
-		     (error "Losing Defprinter option: ~S."
+		     (error _"Losing Defprinter option: ~S."
 			    (first option)))))))))
 	     
       `(defun ,(symbolicate "%PRINT-" name) (structure stream depth)
@@ -860,7 +861,7 @@
 		  (declare (ignorable stream))
 		  ,@(prints)))
 	   (cond (*print-readably*
-		  (error "~S cannot be printed readably." structure))
+		  (error _"~S cannot be printed readably." structure))
 		 ((and *print-level* (>= depth *print-level*))
 		  (format stream "#<~S ~X>"
 			  ',name
@@ -904,7 +905,7 @@
     (dolist (name names)
       (let ((mask (cdr (assoc name alist))))
 	(unless mask
-	  (error "Unknown attribute name: ~S." name))
+	  (error _"Unknown attribute name: ~S." name))
 	(res mask)))
     (res)))
 
@@ -915,7 +916,7 @@
 ;;;    Parse the specification and generate some accessor macros.
 ;;;
 (defmacro def-boolean-attribute (name &rest attribute-names)
-  "Def-Boolean-Attribute Name Attribute-Name*
+  _N"Def-Boolean-Attribute Name Attribute-Name*
   Define a new class of boolean attributes, with the attributes havin the
   specified Attribute-Names.  Name is the name of the class, which is used to
   generate some macros to manipulate sets of the attributes: 
@@ -941,7 +942,7 @@
 	   (defconstant ,const-name ',(alist)))
 	 
 	 (defmacro ,test-name (attributes &rest attribute-names)
-	   "Automagically generated boolean attribute test function.  See
+	   _N"Automagically generated boolean attribute test function.  See
 	    Def-Boolean-Attribute."
 	   `(logtest ,(compute-attribute-mask attribute-names ,const-name)
 		     (the attributes ,attributes)))
@@ -949,7 +950,7 @@
 	 (define-setf-expander ,test-name (place &rest attributes
 						 &environment env)
 	   
-	   "Automagically generated boolean attribute setter.  See
+	   _N"Automagically generated boolean attribute setter.  See
 	    Def-Boolean-Attribute."
 	   (multiple-value-bind (temps values stores set get)
 				(get-setf-method place env)
@@ -968,7 +969,7 @@
 		       `(,',test-name ,n-place ,@attributes)))))
 	 
 	 (defmacro ,(symbolicate name "-ATTRIBUTES") (&rest attribute-names)
-	   "Automagically generated boolean attribute creation function.  See
+	   _N"Automagically generated boolean attribute creation function.  See
 	    Def-Boolean-Attribute."
 	   (compute-attribute-mask attribute-names ,const-name))))))
 
@@ -978,13 +979,13 @@
 ;;;    And now for some gratuitous pseudo-abstraction...
 ;;;
 (defmacro attributes-union (&rest attributes)
-  "Returns the union of all the sets of boolean attributes which are its
+  _N"Returns the union of all the sets of boolean attributes which are its
   arguments." 
   `(the attributes
 	(logior ,@(mapcar #'(lambda (x) `(the attributes ,x)) attributes))))
 ;;;
 (defmacro attributes-intersection (&rest attributes)
-  "Returns the intersection of all the sets of boolean attributes which are its
+  _N"Returns the intersection of all the sets of boolean attributes which are its
   arguments." 
   `(the attributes
 	(logand ,@(mapcar #'(lambda (x) `(the attributes ,x)) attributes))))
@@ -992,7 +993,7 @@
 (declaim (inline attributes=))
 (defun attributes= (attr1 attr2)
   (declare (type attributes attr1 attr2))
-  "Returns true if the attributes present in Attr1 are indentical to those in
+  _N"Returns true if the attributes present in Attr1 are indentical to those in
   Attr2."
   (eql attr1 attr2))
 
@@ -1035,7 +1036,7 @@
   (declare (values event-info))
   (let ((res (gethash name *event-info*)))
     (unless res
-      (error "~S is not the name of an event." name))
+      (error _"~S is not the name of an event." name))
     res))
 
 ); Eval-When (Compile Load Eval)
@@ -1044,12 +1045,12 @@
 ;;; Event-Count, Event-Action, Event-Level  --  Interface
 ;;;
 (defun event-count (name)
-  "Return the number of times that Event has happened."
+  _N"Return the number of times that Event has happened."
   (declare (symbol name) (values fixnum))
   (event-info-count (event-info-or-lose name)))
 ;;;
 (defun event-action (name)
-  "Return the function that is called when Event happens.  If this is null,
+  _N"Return the function that is called when Event happens.  If this is null,
   there is no action.  The function is passed the node to which the event
   happened, or NIL if there is no relevant node.  This may be set with SETF."
   (declare (symbol name) (values (or function null)))
@@ -1064,7 +1065,7 @@
 (defsetf event-action %set-event-action)
 ;;;
 (defun event-level (name)
-  "Return the non-negative integer which represents the level of significance
+  _N"Return the non-negative integer which represents the level of significance
   of the event Name.  This is used to determine whether to print a message when
   the event happens.  This may be set with SETF."
   (declare (symbol name) (values unsigned-byte))
@@ -1085,7 +1086,7 @@
 ;;; it quickly.
 ;;;
 (defmacro defevent (name description &optional (level 0))
-  "Defevent Name Description
+  _N"Defevent Name Description
   Define a new kind of event.  Name is a symbol which names the event and
   Description is a string which describes the event.  Level (default 0) is the
   level of significance associated with this event; it is used to determine
@@ -1100,7 +1101,7 @@
 
 (declaim (type unsigned-byte *event-note-threshold*))
 (defvar *event-note-threshold* 1
-  "This variable is a non-negative integer specifying the lowest level of
+  _N"This variable is a non-negative integer specifying the lowest level of
   event that will print a Note when it occurs.")
 
 ;;; Event  --  Interface
@@ -1109,7 +1110,7 @@
 ;;; policy indicates.
 ;;;
 (defmacro event (name &optional node)
-  "Event Name Node
+  _N"Event Name Node
   Note that the event with the specified Name has happened.  Node is evaluated
   to determine the node to which the event happened."
   `(%event ,(event-info-var (event-info-or-lose name)) ,node))
@@ -1119,7 +1120,7 @@
 ;;;
 (defun event-statistics (&optional (min-count 1) (stream *standard-output*))
   (declare (type unsigned-byte min-count) (stream stream) (values))
-  "Print a listing of events and their counts, sorted by the count.  Events
+  _N"Print a listing of events and their counts, sorted by the count.  Events
   that happened fewer than Min-Count times will not be printed.  Stream is the
   stream to write to."
   (collect ((info))
@@ -1150,11 +1151,11 @@
 ;;;
 (defun find-in (next element list &key (key #'identity)
 		     (test #'eql test-p) (test-not nil not-p))
-  "Find Element in a null-terminated List linked by the accessor function
+  _N"Find Element in a null-terminated List linked by the accessor function
   Next.  Key, Test and Test-Not are the same as for generic sequence
   functions."
   (when (and test-p not-p)
-    (error "Silly to supply both :Test and :Test-Not."))
+    (error _"Silly to supply both :Test and :Test-Not."))
   (if not-p
       (do ((current list (funcall next current)))
 	  ((null current) nil)
@@ -1169,11 +1170,11 @@
 ;;;
 (defun position-in (next element list &key (key #'identity)
 		     (test #'eql test-p) (test-not nil not-p))
-  "Return the position of Element (or NIL if absent) in a null-terminated List
+  _N"Return the position of Element (or NIL if absent) in a null-terminated List
   linked by the accessor function Next.  Key, Test and Test-Not are the same as
   for generic sequence functions."
   (when (and test-p not-p)
-    (error "Silly to supply both :Test and :Test-Not."))
+    (error _"Silly to supply both :Test and :Test-Not."))
   (if not-p
       (do ((current list (funcall next current))
 	   (i 0 (1+ i)))
@@ -1190,7 +1191,7 @@
 ;;; Map-In  --  Interface
 ;;;
 (defun map-in (next function list)
-  "Map Function over the elements in a null-terminated List linked by the
+  _N"Map Function over the elements in a null-terminated List linked by the
   accessor function Next, returning a list of the results."
   (collect ((res))
     (do ((current list (funcall next current)))
@@ -1202,7 +1203,7 @@
 ;;; Deletef-In  --  Interface
 ;;;
 (defmacro deletef-in (next place item &environment env)
-  "Deletef-In Next Place Item
+  _N"Deletef-In Next Place Item
   Delete Item from a null-terminated list linked by the accessor function Next
   that is stored in Place.  Item must appear exactly once in the list."
   (multiple-value-bind
@@ -1230,7 +1231,7 @@
 ;;; Push-In  --  Interface
 ;;;
 (defmacro push-in (next item place &environment env)
-  "Push Item onto a list linked by the accessor function Next that is stored in
+  _N"Push Item onto a list linked by the accessor function Next that is stored in
   Place."
   (multiple-value-bind
       (temps vals stores store access)
@@ -1246,7 +1247,7 @@
 ;;;
 (defmacro eposition (&rest args)
   `(or (position ,@args)
-       (error "Shouldn't happen?")))
+       (error _"Shouldn't happen?")))
 
 
 ;;; Modular functions
@@ -1284,7 +1285,7 @@
                      (= (length lambda-list)
                         (length (modular-fun-info-lambda-list info))))
           (setf (modular-fun-info-name info) name)
-          (warn "Redefining modular version ~S of ~S for width ~S."
+          (warn _"Redefining modular version ~S of ~S for width ~S."
 		name prototype width))
         (setf (gethash prototype kernel::*modular-funs*)
               (merge 'list
@@ -1303,7 +1304,7 @@
   (check-type width unsigned-byte)
   (dolist (arg lambda-list)
     (when (member arg lambda-list-keywords)
-      (error "Lambda list keyword ~S is not supported for ~
+      (error _"Lambda list keyword ~S is not supported for ~
               modular function lambda lists." arg)))
   `(progn
      (%define-modular-fun ',name ',lambda-list ',prototype ,width)
@@ -1336,7 +1337,7 @@
   (check-type name symbol)
   (dolist (arg lambda-list)
     (when (member arg lambda-list-keywords)
-      (error "Lambda list keyword ~S is not supported for ~
+      (error _"Lambda list keyword ~S is not supported for ~
               modular function lambda lists." arg)))
   (let ((call (gensym))
 	(args (gensym)))
diff --git a/compiler/main.lisp b/compiler/main.lisp
index 7e2ef3a8a79fd8b1b696ff93d184e246cb0e01a7..c752bb839558bae7e266edeff6591bb29b5a1082 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.152 2010/03/18 16:43:12 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.153 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,8 @@
 ;;;
 (in-package "C")
 (in-package "EXTENSIONS")
+(intl:textdomain "cmucl")
+
 (export '(*compile-progress* compile-from-stream *block-compile-default*
 			     start-block end-block
 			     *byte-compile-default*
@@ -42,22 +44,22 @@
 
 ;;; Exported:
 (defvar *block-compile-default* :specified
-  "The default value for the :Block-Compile argument to COMPILE-FILE.")
+  _N"The default value for the :Block-Compile argument to COMPILE-FILE.")
 (declaim (type (member t nil :specified) *block-compile-default*))
 
 ;;; Exported:
 (defvar *byte-compile-default* :maybe
-  "The default value for the :Byte-Compile argument to COMPILE-FILE.")
+  _N"The default value for the :Byte-Compile argument to COMPILE-FILE.")
 
 ;;; Exported:
 (defvar *byte-compile-top-level* t
-  "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level
+  _N"Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level
    forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE
    (the default.)  When true, we decide to byte-compile.")
 
 ;;; Exported:
 (defvar *loop-analyze* nil
-  "Whether loop analysis should be done or not.")
+  _N"Whether loop analysis should be done or not.")
 
 ;;; Value of the :byte-compile argument to the compiler.
 (defvar *byte-compile* :maybe)
@@ -80,7 +82,7 @@
 (defvar *check-consistency* nil)
 
 (defvar *record-xref-info* nil
-  "Whether the compiler should record cross-reference information.")
+  _N"Whether the compiler should record cross-reference information.")
 
 (defvar *all-components*)
 
@@ -107,17 +109,17 @@
 (declaim (list *top-level-lambdas*))
 
 (defvar *compile-verbose* t
-  "The default for the :VERBOSE argument to COMPILE-FILE.")
+  _N"The default for the :VERBOSE argument to COMPILE-FILE.")
 (defvar *compile-print* t
-  "The default for the :PRINT argument to COMPILE-FILE.")
+  _N"The default for the :PRINT argument to COMPILE-FILE.")
 (defvar *compile-progress* nil
-  "The default for the :PROGRESS argument to COMPILE-FILE.")
+  _N"The default for the :PROGRESS argument to COMPILE-FILE.")
 
 (defvar *compile-file-pathname* nil
-  "The defaulted pathname of the file currently being compiled, or NIL if not
+  _N"The defaulted pathname of the file currently being compiled, or NIL if not
   compiling.")
 (defvar *compile-file-truename* nil
-  "The TRUENAME of the file currently being compiled, or NIL if not
+  _N"The TRUENAME of the file currently being compiled, or NIL if not
   compiling.")
 
 (declaim (type (or pathname null) *compile-file-pathname*
@@ -136,7 +138,7 @@
 (defvar *source-info* nil)
 
 (defvar *user-source-info* nil
-  "The user supplied source-info for the current compilation.  
+  _N"The user supplied source-info for the current compilation.  
 This is the :source-info argument to COMPILE-FROM-STREAM and will be
 stored in the INFO slot of the DEBUG-SOURCE in code components and 
 in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
@@ -160,7 +162,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;; Component compilation:
 
 (defparameter max-optimize-iterations 6
-  "The upper limit on the number of times that we will consecutively do IR1
+  _N"The upper limit on the number of times that we will consecutively do IR1
   optimization that doesn't introduce any new code.  A finite limit is
   necessary, since type inference may take arbitrarily long to converge.")
 
@@ -215,7 +217,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 (defparameter *reoptimize-after-type-check-max* 10)
 
 (defevent reoptimize-maxed-out
-  "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded.")
+  _N"*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded.")
 
 
 ;;; DFO-AS-NEEDED  --  Internal
@@ -353,7 +355,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	    (when (and *compiler-trace-output*
 		       (backend-disassem-params *backend*))
 	      (format *compiler-trace-output*
-		      "~|~%Disassembly of code for ~S~2%" component)
+		      _"~|~%Disassembly of code for ~S~2%" component)
 	      (disassem:disassemble-assem-segment *code-segment*
 						  *compiler-trace-output*
 						  *backend*))
@@ -433,7 +435,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
     (when *compile-print*
       (compiler-mumble "~&")
       (pprint-logical-block (*compiler-error-output* nil :per-line-prefix "; ")
-	(compiler-mumble "~:[~;Byte ~]Compiling ~A: "
+	(compiler-mumble _"~:[~;Byte ~]Compiling ~A: "
 		       *byte-compiling*
 		       (component-name component))))
 
@@ -582,12 +584,12 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 		  (warnings (undefined-warning-warnings undef))
 		  (count (undefined-warning-count undef)))
 	      (dolist (*compiler-error-context* warnings)
-		(compiler-warning "Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
+		(compiler-warning _N"Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
 	      
 	      (let ((warn-count (length warnings)))
 		(when (and warnings (> count warn-count))
 		  (let ((more (- count warn-count)))
-		    (compiler-warning "~D more use~:P of undefined ~(~A~) ~S."
+		    (compiler-warning _N"~D more use~:P of undefined ~(~A~) ~S."
 				      more kind name)))))))
 	
 	(dolist (kind '(:variable :function :type))
@@ -596,7 +598,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 					 :key #'undefined-warning-kind))))
 	    (when summary
 	      (compiler-warning
-	       "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
+	       _N"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
 		~%  ~{~<~%  ~1:;~S~>~^ ~}"
 	       (cdr summary) kind summary)))))))
   
@@ -606,7 +608,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 		   (zerop *compiler-warning-count*)
 		   (zerop *compiler-note-count*)))
     (compiler-mumble
-     "~2&; Compilation unit ~:[finished~;aborted~].~
+     _"~2&; Compilation unit ~:[finished~;aborted~].~
       ~[~:;~:*~&;   ~D fatal error~:P~]~
       ~[~:;~:*~&;   ~D error~:P~]~
       ~[~:;~:*~&;   ~D warning~:P~]~
@@ -626,17 +628,17 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;
 (defun describe-component (component *standard-output*)
   (declare (type component component))
-  (format t "~|~%;;;; Component: ~S~2%" (component-name component))
+  (format t _"~|~%;;;; Component: ~S~2%" (component-name component))
   (print-blocks component)  
   (undefined-value))
 
 
 (defun describe-ir2-component (component *standard-output*)
-  (format t "~%~|~%;;;; IR2 component: ~S~2%" (component-name component))
+  (format t _"~%~|~%;;;; IR2 component: ~S~2%" (component-name component))
   
-  (format t "Entries:~%")
+  (format t _"Entries:~%")
   (dolist (entry (ir2-component-entries (component-info component)))
-    (format t "~4TL~D: ~S~:[~; [Closure]~]~%"
+    (format t _"~4TL~D: ~S~:[~; [Closure]~]~%"
 	    (label-id (entry-info-offset entry))
 	    (entry-info-name entry)
 	    (entry-info-closure-p entry)))
@@ -782,7 +784,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	      (end (file-position stream)))
 	  (when (>= end pos)
 	    (compiler-read-error 
-	     pos "Read error at ~D:~% \"~A/\\~A\"~%~A"
+	     pos _"Read error at ~D:~% \"~A/\\~A\"~%~A"
 	     pos (string-left-trim '(#\space #\tab)
 				   (subseq line 0 (- pos start)))
 	     (subseq line (- pos start))
@@ -806,7 +808,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 		  (read stream))
     (error (condition)
       (declare (ignore condition))
-      (compiler-error "Unable to recover from read error."))))
+      (compiler-error _N"Unable to recover from read error."))))
 
 
 ;;; Unexpected-EOF-Error  --  Internal
@@ -830,7 +832,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	   (setq res line))))
 
     (compiler-read-error 
-     pos "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
+     pos _"Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
      pos res condition)
 
     (file-position stream eof-pos)
@@ -851,8 +853,8 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
           (progn
             (normal-read-error stream pos condition)
             (ignore-error-form stream pos)))
-      '(cerror "Skip this form."
-	       "Attempt to load a file having a compile-time read error."))))
+      '(cerror _"Skip this form."
+	       _"Attempt to load a file having a compile-time read error."))))
 
 
 ;;; Get-Source-Stream  --  Internal
@@ -1054,7 +1056,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 (defun preprocessor-macroexpand (form)
   (handler-case (macroexpand-1 form *lexical-environment*)
     (error (condition)
-       (compiler-error "(during macroexpansion)~%~A" condition))))
+       (compiler-error _N"(during macroexpansion)~%~A" condition))))
 
 
 ;;; PROCESS-LOCALLY  --  Internal
@@ -1087,15 +1089,15 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;
 (defun process-file-comment (form)
   (unless (and (= (length form) 2) (stringp (second form)))
-    (compiler-error "Bad FILE-COMMENT form: ~S." form))
+    (compiler-error _N"Bad FILE-COMMENT form: ~S." form))
   (let ((file (first (source-info-current-file *source-info*))))
     (cond ((file-info-comment file)
-	   (compiler-warning "Ignoring extra file comment:~%  ~S." form))
+	   (compiler-warning _N"Ignoring extra file comment:~%  ~S." form))
 	  (t
 	   (let ((comment (coerce (second form) 'simple-string)))
 	     (setf (file-info-comment file) comment)
 	     (when *compile-verbose*
-	       (compiler-mumble "~&; Comment: ~A~2&" comment)))))))
+	       (compiler-mumble _"~&; Comment: ~A~2&" comment)))))))
 
 
 ;;; PROCESS-COLD-LOAD-FORM  --  Internal
@@ -1157,7 +1159,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	    #'(lambda ()
 		(convert-and-maybe-compile
 		 `(error 'simple-program-error
-		    :format-control "Execution of a form compiled with errors:~% ~S"
+		    :format-control _"Execution of a form compiled with errors:~% ~S"
 		    :format-arguments (list ',form))
 		 path)
 		(throw 'process-form-error-abort nil))))
@@ -1175,7 +1177,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	     (compile-top-level-lambdas () t))
 	    ((eval-when)
 	     (unless (>= (length form) 2)
-	       (compiler-error "EVAL-WHEN form is too short: ~S." form))
+	       (compiler-error _N"EVAL-WHEN form is too short: ~S." form))
 	     (do-eval-when-stuff
 	      (cadr form) (cddr form)
 	      #'(lambda (forms)
@@ -1183,7 +1185,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	      t))
 	    ((macrolet)
 	     (unless (>= (length form) 2)
-	       (compiler-error "MACROLET form is too short: ~S." form))
+	       (compiler-error _N"MACROLET form is too short: ~S." form))
 	     ;; Macrolets can have declarations.
 	     (multiple-value-bind (body decls)
 		 (system:parse-body (cddr form) nil nil)
@@ -1226,7 +1228,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 (defun compile-load-time-value
        (form &optional
 	     (name (let ((*print-level* 2) (*print-length* 3))
-		     (format nil "Load Time Value of ~S"
+		     (format nil _"Load Time Value of ~S"
 			     (if (and (listp form)
 				      (eq (car form) 'make-value-cell))
 				 (second form)
@@ -1346,7 +1348,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
                 (ext:without-package-locks
                  (make-structure-load-form constant)))
 	  (error (condition)
-            (compiler-error "(while making load form for ~S)~%~A"
+            (compiler-error _N"(while making load form for ~S)~%~A"
                             constant condition)))
       (case creation-form
 	(:just-dump-it-normally
@@ -1374,10 +1376,10 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 		    constant
 		    (compile-load-time-value
 		     creation-form
-		     (format nil "Creation Form for ~A" name))
+		     (format nil _"Creation Form for ~A" name))
 		    *compile-object*)
 		   nil)
-	       (compiler-error "Circular references in creation form for ~S"
+	       (compiler-error _N"Circular references in creation form for ~S"
 			       constant)))
 	   (when (cdr info)
 	     (let* ((*constants-created-since-last-init* nil)
@@ -1389,7 +1391,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 			 finally
 			 (compile-make-load-form-init-forms
 			  forms
-			  (format nil "Init Form~:[~;s~] for ~{~A~^, ~}"
+			  (format nil _"Init Form~:[~;s~] for ~{~A~^, ~}"
 				  (cdr forms) names)))
 		       nil)))
 	       (when circular-ref
@@ -1583,7 +1585,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	   (*compiler-error-bailout*
 	    #'(lambda ()
 		(compiler-mumble
-		 "~2&Fatal error, aborting compilation...~%")
+		 _"~2&Fatal error, aborting compilation...~%")
 		(return-from sub-compile-file :error)))
 	   (*current-path* nil)
 	   (*last-source-context* nil)
@@ -1632,7 +1634,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 		   new
 		   (and error-p (truename new))))))
       (unless stuff
-	(error "Can't compile with no source files."))
+	(error _"Can't compile with no source files."))
       (mapcar #'(lambda (x)
 		  (let ((x (pathname (merge-pathnames x))))
 		    (cond ((typep x 'logical-pathname)
@@ -1660,7 +1662,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	       ((:byte-compile *byte-compile*) *byte-compile-default*)
 	       source-info
 	       (language :lisp))
-  "Similar to COMPILE-FILE, but compiles text from Stream into the current lisp
+  _N"Similar to COMPILE-FILE, but compiles text from Stream into the current lisp
   environment.  Stream is closed when compilation is complete.  These keywords
   are supported:
 
@@ -1677,7 +1679,8 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
         If true, then may compile to interpreted byte code."
   (declare (type (member :lisp) language))
   (let ((info (make-stream-source-info stream language))
-	(*backend* *native-backend*))
+	(*backend* *native-backend*)
+	(intl::*default-domain* intl::*default-domain*))
     (unwind-protect
 	(let* ((*compile-object* (make-core-object))
 	       (won (sub-compile-file info source-info)))
@@ -1700,14 +1703,14 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;
 (defun start-error-output (source-info)
   (declare (type source-info source-info))
-  (compiler-mumble "~2&; Python version ~A, VM version ~A on ~A.~%"
+  (compiler-mumble _"~2&; Python version ~A, VM version ~A on ~A.~%"
 		   compiler-version (backend-version *backend*)
 		   (ext:format-universal-time nil (get-universal-time)
 					      :style :government
 					      :print-weekday nil
 					      :print-timezone nil))
   (dolist (x (source-info-files source-info))
-    (compiler-mumble "; Compiling: ~A ~A~%"
+    (compiler-mumble _"; Compiling: ~A ~A~%"
 		     (namestring (file-info-name x))
 		     (ext:format-universal-time nil (file-info-write-date x)
 						:style :government
@@ -1718,7 +1721,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;
 (defun finish-error-output (source-info won)
   (declare (type source-info source-info))
-  (compiler-mumble "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
+  (compiler-mumble _"~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
 		   won
 		   (elapsed-time-to-string
 		    (- (get-universal-time)
@@ -1749,7 +1752,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 			     *byte-compile-default*)
 		            ((:xref *record-xref-info*)
 			     *record-xref-info*))
-  "Compiles Source, producing a corresponding .FASL file.  Source may be a list
+  _N"Compiles Source, producing a corresponding .FASL file.  Source may be a list
    of files, in which case the files are compiled as a unit, producing a single
    .FASL file.  The output file names are defaulted from the first (or only)
    input file name.  Other options available via keywords:
@@ -1859,7 +1862,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	(close-fasl-file fasl-file (not compile-won))
 	(setq output-file-pathname (pathname (fasl-file-stream fasl-file)))
 	(when (and compile-won *compile-verbose*)
-	  (compiler-mumble "~2&; ~A written.~%"
+	  (compiler-mumble _"~2&; ~A written.~%"
 			   (namestring output-file-pathname))))
 
       (when *compile-verbose*
@@ -1880,7 +1883,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 
     (when load
       (unless output-file
-	(error "Can't :LOAD with no output file."))
+	(error _"Can't :LOAD with no output file."))
       (load output-file-pathname :verbose *compile-verbose*))
 
     (values (if output-file
@@ -1901,9 +1904,9 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
       (multiple-value-bind (def env-p)
 			   (function-lambda-expression definition)
 	(when env-p
-	  (error "~S was defined in a non-null environment." definition))
+	  (error _"~S was defined in a non-null environment." definition))
 	(unless def
-	  (error "Can't find a definition for ~S." definition))
+	  (error _"Can't find a definition for ~S." definition))
 	def)))
 
 
@@ -1933,9 +1936,9 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;;
 (defun compile (name &optional (definition (or (macro-function name)
 					       (fdefinition name))))
-  "Compiles the function (or macro-function) whose name is NAME.  If
-  DEFINITION is supplied, it should be a lambda expression that is
-  compiled.  IF NAME names a macro, then the compiled expression
+  _N"Compiles the function (or macro-function) whose name is NAME.  If
+  DEFINITION is supplied, it should be a lambda expression which will
+  be compiled.  IF NAME names a macro, then the compiled expression
   replaces the existing macro-function.  If NAME names a function, the
   compiled expression is placed in the function cell of NAME.  If NAME
   is Nil, the compiled code object is returned."
@@ -1978,7 +1981,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	     (*compiler-error-bailout*
 	      #'(lambda ()
 		  (compiler-mumble
-		   "~2&Fatal error, aborting compilation...~%")
+		   _"~2&Fatal error, aborting compilation...~%")
 		  (return-from compile (values nil t nil))))
 	     (*compiler-error-output* *error-output*)
 	     (*compiler-trace-output* nil)
@@ -1991,7 +1994,8 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	     (*last-message-count* 0)
 	     (*compile-object* (make-core-object))
 	     (*gensym-counter* 0)
-	     (*current-function-names* (list name)))
+	     (*current-function-names* (list name))
+	     (intl::*default-domain* intl::*default-domain*))
 	(with-debug-counters
 	  (clear-stuff)
 	  (find-source-paths form 0)
@@ -2031,12 +2035,12 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 ;;; UNCOMPILE  --  Public
 ;;;
 (defun uncompile (name)
-  "Attempt to replace Name's definition with an interpreted version of that
+  _N"Attempt to replace Name's definition with an interpreted version of that
   definition.  If no interpreted definition is to be found, then signal an
   error."
   (let ((def (fdefinition name)))
     (if (eval:interpreted-function-p def)
-	(warn "~S is already interpreted." name)
+	(warn _"~S is already interpreted." name)
 	(setf (fdefinition name)
 	      (coerce (get-lambda-to-compile def) 'function))))
   name)
@@ -2064,7 +2068,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 			      (byte-compile *byte-compile-default*)
 			      (output-file t output-file-supplied-p)
 			      &allow-other-keys)
-  "Return a pathname describing what file COMPILE-FILE would write to given
+  _N"Return a pathname describing what file COMPILE-FILE would write to given
    these arguments."
   (declare (type (or string pathname stream) input-file)
 	   (type (or string pathname stream (member t)) output-file)
@@ -2076,7 +2080,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	     (error 'simple-type-error
 		    :datum input-file
 		    :expected-type 'file-stream
-		    :format-control "The ~A parameter is a ~S, which is an invalid value ~@
+		    :format-control _"The ~A parameter is a ~S, which is an invalid value ~@
             to COMPILE-FILE-PATHNAME."
 		    :format-arguments (list name (type-of input-file))))
 	   ;; Maybe this is too much.  CLHS says "might".
diff --git a/compiler/meta-vmdef.lisp b/compiler/meta-vmdef.lisp
index 9a72480e9003582ec731ace8c5c311d93e0f9324..78e757b664cedb0d61d41b5b2d9910c661eea745 100644
--- a/compiler/meta-vmdef.lisp
+++ b/compiler/meta-vmdef.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/meta-vmdef.lisp,v 1.9 2003/04/11 15:28:11 emarsden Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/meta-vmdef.lisp,v 1.10 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,8 @@
 ;;;
 (in-package :c)
 
+(intl:textdomain "cmucl")
+
 (export '(define-storage-base define-storage-class define-move-function
 	  define-move-function define-move-vop 
 	  meta-primitive-type-or-lose
@@ -36,7 +38,7 @@
 ;;; missing slots at load time.
 ;;;
 (defmacro define-storage-base (name kind &key size)
-  "Define-Storage-Base Name Kind {Key Value}*
+  _N"Define-Storage-Base Name Kind {Key Value}*
   Define a storage base having the specified Name.  Kind may be :Finite,
   :Unbounded or :Non-Packed.  The following keywords are legal:
 
@@ -48,9 +50,9 @@
   (ecase kind
     (:non-packed
      (when size
-       (error "Size specification meaningless in a ~S SB." kind)))
+       (error _"Size specification meaningless in a ~S SB." kind)))
     ((:finite :unbounded)
-     (unless size (error "Size not specified in a ~S SB." kind))
+     (unless size (error _"Size not specified in a ~S SB." kind))
      (check-type size unsigned-byte)))
     
   (let ((res (if (eq kind :non-packed)
@@ -86,7 +88,7 @@
 (defmacro define-storage-class (name number sb-name &key (element-size '1)
 				     (alignment '1) locations reserve-locations
 				     save-p alternate-scs constant-scs)
-  "Define-Storage-Class Name Number Storage-Base {Key Value}*
+  _N"Define-Storage-Class Name Number Storage-Base {Key Value}*
   Define a storage class Name that uses the named Storage-Base.  Number is a
   small, non-negative integer that is used as an alias.  The following
   keywords are defined:
@@ -131,7 +133,7 @@
   (check-type alternate-scs list)
   (check-type constant-scs list)
   (unless (= (logcount alignment) 1)
-    (error "Alignment is not a power of two: ~S" alignment))
+    (error _"Alignment is not a power of two: ~S" alignment))
 
   (let ((sb (meta-sb-or-lose sb-name)))
     (if (eq (sb-kind sb) :finite)
@@ -141,16 +143,16 @@
 	  (dolist (el locations)
 	    (check-type el unsigned-byte)
 	    (unless (<= 1 (+ el element-size) size)
-	      (error "SC element ~D out of bounds for ~S." el sb))))
+	      (error _"SC element ~D out of bounds for ~S." el sb))))
 	(when locations
-	  (error ":Locations is meaningless in a ~S SB." (sb-kind sb))))
+	  (error _":Locations is meaningless in a ~S SB." (sb-kind sb))))
 
     (unless (subsetp reserve-locations locations)
-      (error "Reserve-Locations not a subset of Locations."))
+      (error _"Reserve-Locations not a subset of Locations."))
 
     (when (and (or alternate-scs constant-scs)
 	       (eq (sb-kind sb) :non-packed))
-      (error "Meaningless to specify alternate or constant SCs in a ~S SB."
+      (error _"Meaningless to specify alternate or constant SCs in a ~S SB."
 	     (sb-kind sb))))
 
   (let ((nstack-p
@@ -181,7 +183,7 @@
 
        (let ((old (svref (backend-sc-numbers *target-backend*) ',number)))
 	 (when (and old (not (eq (sc-name old) ',name)))
-	   (warn "Redefining SC number ~D from ~S to ~S." ',number
+	   (warn _"Redefining SC number ~D from ~S to ~S." ',number
 		 (sc-name old) ',name)))
        
        (setf (svref (backend-sc-numbers *target-backend*) ',number)
@@ -213,7 +215,7 @@
 ;;; DEFINE-MOVE-FUNCTION  --  Public
 ;;;
 (defmacro define-move-function ((name cost) lambda-list scs &body body)
-  "Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*
+  _N"Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*
   Define the function Name and note it as the function used for moving operands
   from the From-SCs to the To-SCs.  Cost is the cost of this move operation.
   The function is called with three arguments: the VOP (for context), and the
@@ -221,7 +223,7 @@
   All uses of DEFINE-MOVE-FUNCTION should be compiled before any uses of
   DEFINE-VOP."
   (when (or (oddp (length scs)) (null scs))
-    (error "Malformed SCs spec: ~S." scs))
+    (error _"Malformed SCs spec: ~S." scs))
   (check-type cost index)
   `(progn
      (eval-when (compile load eval)
@@ -245,14 +247,14 @@
 ;;; (including implicit loading).
 ;;;
 (defmacro define-move-vop (name kind &rest scs)
-  "Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*
+  _N"Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*
   Make Name be the VOP used to move values in the specified From-SCs to the
   representation of the To-SCs.  If kind is :Move-Argument, then the VOP takes
   an extra argument, which is the frame pointer of the frame to move into." 
   (when (or (oddp (length scs)) (null scs))
-    (error "Malformed SCs spec: ~S." scs))
+    (error _"Malformed SCs spec: ~S." scs))
   (let ((accessor (or (cdr (assoc kind sc-vop-slots))
-		      (error "Unknown kind ~S." kind))))
+		      (error _"Unknown kind ~S." kind))))
     `(progn
        ,@(when (eq kind :move)
 	   `((eval-when (compile load eval)
@@ -282,7 +284,7 @@
 (defun meta-primitive-type-or-lose (name)
   (the primitive-type
        (or (gethash name (backend-meta-primitive-type-names *target-backend*))
-	   (error "~S is not a defined primitive type." name))))
+	   (error _"~S is not a defined primitive type." name))))
 
 ;;; Def-Primitive-Type  --  Public
 ;;;
@@ -292,7 +294,7 @@
 ;;; break the running compiler.
 ;;;
 (defmacro def-primitive-type (name scs &key (type name))
-  "Def-Primitive-Type Name (SC*) {Key Value}*
+  _N"Def-Primitive-Type Name (SC*) {Key Value}*
    Define a primitive type Name.  Each SC specifies a Storage Class that values
    of this type may be allocated in.  The following keyword options are
    defined:
@@ -331,7 +333,7 @@
 ;;; Just record the translation.
 ;;; 
 (defmacro def-primitive-type-alias (name result)
-  "DEF-PRIMITIVE-TYPE-ALIAS Name Result
+  _N"DEF-PRIMITIVE-TYPE-ALIAS Name Result
   Define name to be an alias for Result in VOP operand type restrictions."
   `(eval-when (compile load eval)
      (setf (gethash ',name (backend-primitive-type-aliases *target-backend*))
@@ -344,7 +346,7 @@
 ;;; Primitive-Type-Vop  --  Public
 ;;;
 (defmacro primitive-type-vop (vop kinds &rest types)
-  "Primitive-Type-VOP Vop (Kind*) Type*
+  _N"Primitive-Type-VOP Vop (Kind*) Type*
   Annotate all the specified primitive Types with the named VOP under each of
   the specified kinds:
 
@@ -361,7 +363,7 @@
 		    #'(lambda (kind)
 			(let ((slot (or (cdr (assoc kind
 						    primitive-type-slot-alist))
-					(error "Unknown kind: ~S." kind))))
+					(error _"Unknown kind: ~S." kind))))
 			  `(setf (,slot ,n-type) ,n-vop)))
 		    kinds)))
 	  types)
@@ -577,9 +579,9 @@
 		     :key #'operand-parse-name)))
     (if found
 	(unless (member (operand-parse-kind found) kinds)
-	  (error "Operand ~S isn't one of these kinds: ~S." name kinds))
+	  (error _"Operand ~S isn't one of these kinds: ~S." name kinds))
 	(when error-p
-	  (error "~S is not an operand to ~S." name (vop-parse-name parse))))
+	  (error _"~S is not an operand to ~S." name (vop-parse-name parse))))
     found))
 
 
@@ -592,7 +594,7 @@
 (defun vop-parse-or-lose (name &optional (backend *target-backend*))
   (the vop-parse
        (or (gethash name (backend-parsed-vops backend))
-	   (error "~S is not the name of a defined VOP." name))))
+	   (error _"~S is not the name of a defined VOP." name))))
 
 
 ;;; Access-Operands  --  Internal
@@ -634,12 +636,12 @@
 (defun vop-spec-arg (spec type &optional (n 1) (last t))
   (let ((len (length spec)))
     (when (<= len n)
-      (error "~:R argument missing: ~S." n spec))
+      (error _"~:R argument missing: ~S." n spec))
     (when (and last (> len (1+ n)))
-      (error "Extra junk at end of ~S." spec))
+      (error _"Extra junk at end of ~S." spec))
     (let ((thing (elt spec n)))
       (unless (typep thing type)
-	(error "~:R argument is not a ~S: ~S." n type spec))
+	(error _"~:R argument is not a ~S: ~S." n type spec))
       thing)))
 
 
@@ -656,7 +658,7 @@
   (let ((dspec (if (atom spec) (list spec 0) spec)))
     (unless (and (= (length dspec) 2)
 		 (typep (second dspec) 'unsigned-byte))
-      (error "Malformed time specifier: ~S." spec))
+      (error _"Malformed time specifier: ~S." spec))
 
     (cons (case (first dspec)
 	    (:load 0)
@@ -665,7 +667,7 @@
 	    (:result 3)
 	    (:save 4)
 	    (t
-	     (error "Unknown phase in time specifier: ~S." spec)))
+	     (error _"Unknown phase in time specifier: ~S." spec)))
 	  (second dspec))))
 
 
@@ -711,7 +713,7 @@
       (dolist (op (vop-parse-operands parse))
 	(when (operand-parse-target op)
 	  (unless (member (operand-parse-kind op) '(:argument :temporary))
-	    (error "Cannot target a ~S operand: ~S." (operand-parse-kind op)
+	    (error _"Cannot target a ~S operand: ~S." (operand-parse-kind op)
 		   (operand-parse-name op)))
 	  (let ((target (find-operand (operand-parse-target op) parse
 				      '(:temporary :result))))
@@ -800,13 +802,13 @@
 		     (found (or (assoc alt (funs) :test #'member)
 				(rassoc name (funs)))))
 		(unless name
-		  (error "No move function defined to ~:[save~;load~] SC ~S~
+		  (error _"No move function defined to ~:[save~;load~] SC ~S~
 			  ~:[to~;from~] from SC ~S."
 			 load-p sc-name load-p (sc-name alt)))
 		
 		(cond (found
 		       (unless (eq (cdr found) name)
-			 (error "Can't tell whether to ~:[save~;load~] with ~S~@
+			 (error _"Can't tell whether to ~:[save~;load~] with ~S~@
 				 or ~S when operand is in SC ~S."
 				load-p name (cdr found) (sc-name alt)))
 		       (pushnew alt (car found)))
@@ -814,7 +816,7 @@
 		       (funs (cons (list alt) name))))))))
 	 ((member (sb-kind (sc-sb sc)) '(:non-packed :unbounded)))
 	 (t
-	  (error "SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@
+	  (error _"SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@
 	          mentioned in the restriction for operand ~S."
 		 sc-name load-p (operand-parse-name op))))))
     (funs)))
@@ -853,7 +855,7 @@
 	      `(when (eq ,load-tn ,(operand-parse-name op))
 		 ,form)))
 	`(when ,load-tn
-	   (error "Load TN allocated, but no move function?~@
+	   (error _"Load TN allocated, but no move function?~@
 	           VM definition inconsistent, recompile and try again.")))))
 
 ;;; DECIDE-TO-LOAD  --  Internal
@@ -955,9 +957,9 @@
     (collect ((operands))
       (dolist (spec specs)
 	(unless (and (consp spec) (symbolp (first spec)) (oddp (length spec)))
-	  (error "Malformed operand specifier: ~S." spec))
+	  (error _"Malformed operand specifier: ~S." spec))
 	(when more
-	  (error "More operand isn't last: ~S." specs)) 
+	  (error _"More operand isn't last: ~S." specs)) 
 	(let* ((name (first spec))
 	       (old (if (vop-parse-inherits parse)
 			(find-operand name
@@ -1010,21 +1012,21 @@
 		 (setf (operand-parse-target res) value))
 		(:from
 		 (unless (eq kind :result)
-		   (error "Can only specify :FROM in a result: ~S" spec))
+		   (error _"Can only specify :FROM in a result: ~S" spec))
 		 (setf (operand-parse-born res) (parse-time-spec value)))
 		(:to
 		 (unless (eq kind :argument)
-		   (error "Can only specify :TO in an argument: ~S" spec))
+		   (error _"Can only specify :TO in an argument: ~S" spec))
 		 (setf (operand-parse-dies res) (parse-time-spec value)))
 		(t
-		 (error "Unknown keyword in operand specifier: ~S." spec)))))
+		 (error _"Unknown keyword in operand specifier: ~S." spec)))))
 
 	  (cond ((not more)
 		 (operands res))
 		((operand-parse-target more)
-		 (error "Cannot specify :TARGET in a :MORE operand."))
+		 (error _"Cannot specify :TARGET in a :MORE operand."))
 		((operand-parse-load more)
-		 (error "Cannot specify :LOAD-IF in a :MORE operand.")))))
+		 (error _"Cannot specify :LOAD-IF in a :MORE operand.")))))
       (values (the list (operands)) more))))
 
 
@@ -1038,16 +1040,16 @@
 	   (type vop-parse parse))
   (let ((len (length spec)))
     (unless (>= len 2)
-      (error "Malformed temporary spec: ~S." spec))
+      (error _"Malformed temporary spec: ~S." spec))
     (unless (listp (second spec))
-      (error "Malformed options list: ~S." (second spec)))
+      (error _"Malformed options list: ~S." (second spec)))
     (unless (evenp (length (second spec)))
-      (error "Odd number of arguments in keyword options: ~S." spec))
+      (error _"Odd number of arguments in keyword options: ~S." spec))
     (unless (consp (cddr spec))
-      (warn "Temporary spec allocates no temps:~%  ~S" spec))
+      (warn _"Temporary spec allocates no temps:~%  ~S" spec))
     (dolist (name (cddr spec))
       (unless (symbolp name)
-	(error "Bad temporary name: ~S." name))
+	(error _"Bad temporary name: ~S." name))
       (let ((res (make-operand-parse :name name  :kind :temporary
 				     :temp-temp (gensym)
 				     :born (parse-time-spec :load)
@@ -1074,20 +1076,20 @@
 	    (:scs
 	     (let ((scs (vop-spec-arg opt 'list 1 nil)))
 	       (unless (= (length scs) 1)
-		 (error "Must specify exactly one SC for a temporary."))
+		 (error _"Must specify exactly one SC for a temporary."))
 	       (setf (operand-parse-sc res) (first scs))))
 	    (:type)
 	    (t
-	     (error "Unknown temporary option: ~S." opt))))
+	     (error _"Unknown temporary option: ~S." opt))))
 
 	(unless (and (time-spec-order (operand-parse-dies res)
 				      (operand-parse-born res))
 		     (not (time-spec-order (operand-parse-born res)
 					   (operand-parse-dies res))))
-	  (error "Temporary lifetime doesn't begin before it ends: ~S." spec))
+	  (error _"Temporary lifetime doesn't begin before it ends: ~S." spec))
 
 	(unless (operand-parse-sc res)
-	  (error "Must specifiy :SC for all temporaries: ~S" spec))
+	  (error _"Must specifiy :SC for all temporaries: ~S" spec))
 
 	(setf (vop-parse-temps parse)
 	      (cons res
@@ -1105,7 +1107,7 @@
   (declare (type vop-parse parse) (list specs))
   (dolist (spec specs)
     (unless (consp spec)
-      (error "Malformed option specification: ~S." spec))
+      (error _"Malformed option specification: ~S." spec))
     (case (first spec)
       (:args
        (multiple-value-bind
@@ -1175,7 +1177,7 @@
 	     (vop-spec-arg spec
 			   '(member t nil :compute-only :force-to-stack))))
       (t
-       (error "Unknown option specifier: ~S." (first spec)))))
+       (error _"Unknown option specifier: ~S." (first spec)))))
   (undefined-value))
 
 
@@ -1210,7 +1212,7 @@
 			   (aref (sc-load-costs load-sc) op-scn)
 			   (aref (sc-load-costs op-sc) load-scn))))
 	    (unless load
-	      (error "No move function defined to move ~:[from~;to~] SC ~
+	      (error _"No move function defined to move ~:[from~;to~] SC ~
 	              ~S~%~:[to~;from~] alternate or constant SC ~S."
 		     load-p sc-name load-p (sc-name op-sc)))
 	    
@@ -1311,7 +1313,7 @@
 			  (parse-operand-type alias)
 			  `(:or ,spec))))
 		   ((atom spec)
-		    (error "Bad thing to be a operand type: ~S." spec))
+		    (error _"Bad thing to be a operand type: ~S." spec))
 		   (t
 		    (case (first spec)
 		      (:or
@@ -1319,7 +1321,7 @@
 			 (results :or)
 			 (dolist (item (cdr spec))
 			   (unless (symbolp item)
-			     (error "Bad PRIMITIVE-TYPE name in ~S: ~S"
+			     (error _"Bad PRIMITIVE-TYPE name in ~S: ~S"
 				    spec item))
 			   (let ((alias
 				  (gethash item
@@ -1328,7 +1330,7 @@
 			     (if alias
 				 (let ((alias (parse-operand-type alias)))
 				   (unless (eq (car alias) :or)
-				     (error "Can't include primitive-type ~
+				     (error _"Can't include primitive-type ~
 				             alias ~S in a :OR restriction: ~S."
 					    item spec))
 				   (dolist (x (cdr alias))
@@ -1339,12 +1341,12 @@
 					    :start 1)))
 		      (:constant
 		       (unless args-p
-			 (error "Can't :CONSTANT for a result."))
+			 (error _"Can't :CONSTANT for a result."))
 		       (unless (= (length spec) 2)
-			 (error "Bad :CONSTANT argument type spec: ~S." spec))
+			 (error _"Bad :CONSTANT argument type spec: ~S." spec))
 		       spec)
 		      (t
-		       (error "Bad thing to be a operand type: ~S." spec)))))))
+		       (error _"Bad thing to be a operand type: ~S." spec)))))))
     (mapcar #'parse-operand-type specs)))
 
 
@@ -1372,7 +1374,7 @@
 				(meta-primitive-type-or-lose ptype))
 			       nil)
 		    (when (svref load-scs rep) (return t)))
-	    (error "In the ~A ~:[result~;argument~] to VOP ~S,~@
+	    (error _"In the ~A ~:[result~;argument~] to VOP ~S,~@
 	            none of the SCs allowed by the operand type ~S can ~
 		    directly be loaded~@
 		    into any of the restriction's SCs:~%  ~S~:[~;~@
@@ -1388,7 +1390,7 @@
 			     (meta-sc-or-lose sc)
 			     (meta-primitive-type-or-lose ptype))
 			(return t))))
-	  (warn "~:[Result~;Argument~] ~A to VOP ~S~@
+	  (warn _"~:[Result~;Argument~] ~A to VOP ~S~@
 	         has SC restriction ~S which is ~
 		 not allowed by the operand type:~%  ~S"
 		load-p (operand-parse-name op) (vop-parse-name parse)
@@ -1412,13 +1414,15 @@
 					(eq (car x) :constant)))
 			       types)
 		 num)
-	(error "Expected ~D ~:[result~;argument~] type~P: ~S."
+	(error (intl:ngettext "Expected ~D ~:[result~;argument~] type: ~S."
+			      "Expected ~D ~:[result~;argument~] types: ~S."
+			      (length types))
 	       num load-p types num)))
     
     (when more-op
       (let ((mtype (car (last types))))
 	(when (and (consp mtype) (eq (first mtype) :constant))
-	  (error "Can't use :CONSTANT on VOP more args.")))))
+	  (error _"Can't use :CONSTANT on VOP more args.")))))
   
   (when (vop-parse-translate parse)
     (let ((types (specify-operand-types types ops more-op)))
@@ -1589,7 +1593,7 @@
 
     (let ((nvars (length (vop-parse-variant-vars parse))))
       (unless (= (length variant) nvars)
-	(error "Expected ~D variant values: ~S." nvars variant)))
+	(error _"Expected ~D variant values: ~S." nvars variant)))
 
     `(make-vop-info
       :name ',(vop-parse-name parse)
@@ -1597,6 +1601,7 @@
       :guard ,(when (vop-parse-guard parse)
 		`#'(lambda () ,(vop-parse-guard parse)))
       :note ',(vop-parse-note parse)
+      :note-domain ,intl::*default-domain*
       :info-arg-count ,(length (vop-parse-info-args parse))
       :policy ',(vop-parse-policy parse)
       :save-p ',(vop-parse-save-p parse)
@@ -1621,7 +1626,7 @@
 ;;; inheritance by copying the VOP-Parse structure for the inherited structure.
 ;;;
 (defmacro define-vop ((name &optional inherits) &rest specs)
-  "Define-VOP (Name [Inherits]) Spec*
+  _N"Define-VOP (Name [Inherits]) Spec*
   Define the symbol Name to be a Virtual OPeration in the compiler.  If
   specified, Inherits is the name of a VOP that we default unspecified
   information from.  Each Spec is a list beginning with a keyword indicating
@@ -1837,7 +1842,7 @@
 ;;; Emit-Template  -- Interface
 ;;;
 (defmacro emit-template (node block template args results &optional info)
-  "Emit-Template Node Block Template Args Results [Info]
+  _N"Emit-Template Node Block Template Args Results [Info]
   Call the emit function for Template, linking the result in at the end of
   Block."
   (let ((n-first (gensym))
@@ -1856,7 +1861,7 @@
 ;;; VOP  --  Interface
 ;;;
 (defmacro vop (name node block &rest operands)
-  "VOP Name Node Block Arg* Info* Result*
+  _N"VOP Name Node Block Arg* Info* Result*
   Emit the VOP (or other template) Name at the end of the IR2-Block Block,
   using Node for the source context.  The interpretation of the remaining
   arguments depends on the number of operands of various kinds that are
@@ -1878,9 +1883,9 @@
 	 (n-template (gensym)))
     
     (when (or (vop-parse-more-args parse) (vop-parse-more-results parse))
-      (error "Cannot use VOP with variable operand count templates."))
+      (error _"Cannot use VOP with variable operand count templates."))
     (unless (= noperands (length operands))
-      (error "Called with ~D operands, but was expecting ~D."
+      (error _"Called with ~D operands, but was expecting ~D."
 	     (length operands) noperands))
     
     (multiple-value-bind
@@ -1915,7 +1920,7 @@
 ;;; VOP*  --  Interface
 ;;;
 (defmacro vop* (name node block args results &rest info)
-  "VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*
+  _N"VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*
   Like VOP, but allows for emission of templates with arbitrary numbers of
   arguments, and for emission of templates using already-created TN-Ref lists.
 
@@ -1941,12 +1946,12 @@
     
     (unless (or (vop-parse-more-args parse)
 		(<= (length fixed-args) arg-count))
-      (error "Too many fixed arguments."))
+      (error _"Too many fixed arguments."))
     (unless (or (vop-parse-more-results parse)
 		(<= (length fixed-results) result-count))
-      (error "Too many fixed results."))
+      (error _"Too many fixed results."))
     (unless (= (length info) info-count)
-      (error "Expected ~D info args." info-count))
+      (error _"Expected ~D info args." info-count))
     
     (multiple-value-bind
 	(acode abinds n-args)
@@ -1973,7 +1978,7 @@
 ;;; SC-Case  --  Public
 ;;;
 (defmacro sc-case (tn &rest forms)
-  "SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*
+  _N"SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*
   Case off of TN's SC.  The first clause containing TN's SC is evaulated,
   returning the values of the last form.  A clause beginning with T specifies a
   default.  If it appears, it must be last.  If no default is specified, and no
@@ -1983,15 +1988,15 @@
     (collect ((clauses))
       (do ((cases forms (rest cases)))
 	  ((null cases)
-	   (clauses `(t (error "Unknown SC to SC-Case for ~S:~%  ~S" ,n-tn
+	   (clauses `(t (error _"Unknown SC to SC-Case for ~S:~%  ~S" ,n-tn
 			       (sc-name (tn-sc ,n-tn))))))
 	(let ((case (first cases)))
 	  (when (atom case) 
-	    (error "Illegal SC-Case clause: ~S." case))
+	    (error _"Illegal SC-Case clause: ~S." case))
 	  (let ((head (first case)))
 	    (when (eq head t)
 	      (when (rest cases)
-		(error "T case is not last in SC-Case."))
+		(error _"T case is not last in SC-Case."))
 	      (clauses `(t nil ,@(rest case)))
 	      (return))
 	    (clauses `((or ,@(mapcar #'(lambda (x)
@@ -2008,7 +2013,7 @@
 ;;; SC-Is  --  Interface
 ;;;
 (defmacro sc-is (tn &rest scs)
-  "SC-Is TN SC*
+  _N"SC-Is TN SC*
   Returns true if TNs SC is any of the named SCs, false otherwise."
   (once-only ((n-sc `(sc-number (tn-sc ,tn))))
     `(or ,@(mapcar #'(lambda (x)
@@ -2019,7 +2024,7 @@
 ;;;
 (defmacro do-ir2-blocks ((block-var component &optional result)
 			 &body forms)
-  "Do-IR2-Blocks (Block-Var Component [Result]) Form*
+  _N"Do-IR2-Blocks (Block-Var Component [Result]) Form*
   Iterate over the IR2 blocks in component, in emission order."
   `(do ((,block-var (block-info (component-head ,component))
 		    (ir2-block-next ,block-var)))
@@ -2030,7 +2035,7 @@
 ;;; DO-LIVE-TNS  --  Interface
 ;;;
 (defmacro do-live-tns ((tn-var live block &optional result) &body body)
-  "DO-LIVE-TNS (TN-Var Live Block [Result]) Form*
+  _N"DO-LIVE-TNS (TN-Var Live Block [Result]) Form*
   Iterate over all the TNs live at some point, with the live set represented by
   a local conflicts bit-vector and the IR2-Block containing the location."
   (let ((n-conf (gensym))
@@ -2073,7 +2078,7 @@
 ;;;
 (defmacro do-environment-ir2-blocks ((block-var env &optional result)
 				     &body body)
-  "DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*
+  _N"DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*
   Iterate over all the IR2 blocks in the environment Env, in emit order."
   (once-only ((n-env env))
     (once-only ((n-first `(node-block
diff --git a/compiler/new-assem.lisp b/compiler/new-assem.lisp
index 97156f0db87ad84860fede61c09df2bbc2706cb8..5adbdebc20f3169305f5b749821b6251b0215599 100644
--- a/compiler/new-assem.lisp
+++ b/compiler/new-assem.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/new-assem.lisp,v 1.34 2004/08/02 16:04:42 cwang Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/new-assem.lisp,v 1.35 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 (in-package :new-assem)
 
 (in-package :c)
+(intl:textdomain "cmucl")
+
 (import '(branch flushable) :new-assem)
 (import '(sset-element sset make-sset do-elements
 	  sset-adjoin sset-delete sset-empty)
@@ -48,7 +50,7 @@
 ;;; DEF-ASSEMBLER-PARAMS -- Interface.
 ;;;
 (defmacro def-assembler-params (&rest options)
-  "Set up the assembler."
+  _N"Set up the assembler."
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      (setf (c:backend-assembler-params c:*target-backend*)
 	   (make-assem-params :backend c:*target-backend*
@@ -308,7 +310,7 @@
 ;;;
 (defmacro without-scheduling ((&optional (segment '(%%current-segment%%)))
 			      &body body)
-  "Execute BODY (as a progn) without scheduling any of the instructions
+  _N"Execute BODY (as a progn) without scheduling any of the instructions
    generated inside it.  DO NOT throw or return-from out of it."
   (let ((var (gensym))
 	(seg (gensym)))
@@ -330,7 +332,7 @@
 (defun note-read-dependency (segment inst read)
   (multiple-value-bind (loc-num size)
       (c:location-number read)
-    #+debug (format *trace-output* "~&~S reads ~S[~D for ~D]~%"
+    #+debug (format *trace-output* _"~&~S reads ~S[~D for ~D]~%"
 	    inst read loc-num size)
     (when loc-num
       ;; Iterate over all the locations for this TN.
@@ -366,7 +368,7 @@
 (defun note-write-dependency (segment inst write &key partially)
   (multiple-value-bind (loc-num size)
       (c:location-number write)
-    #+debug (format *trace-output* "~&~S writes ~S[~D for ~D]~%"
+    #+debug (format *trace-output* _"~&~S writes ~S[~D for ~D]~%"
 	    inst write loc-num size)
     (when loc-num
       ;; Iterate over all the locations for this TN.
@@ -399,9 +401,9 @@
 ;;; computed, so we just have to check to see if the basic block is terminated.
 ;;; 
 (defun queue-inst (segment inst)
-  #+debug (format *trace-output* "~&Queuing ~S~%" inst)
+  #+debug (format *trace-output* _"~&Queuing ~S~%" inst)
   #+debug
-  (format *trace-output* "  reads ~S~%  writes ~S~%"
+  (format *trace-output* _"  reads ~S~%  writes ~S~%"
 	  (ext:collect ((reads))
 	    (do-elements (read (inst-read-dependencies inst))
 	      (reads read))
@@ -447,7 +449,7 @@
 		 (ext:undefined-value)))
   ;;
   #+debug
-  (format *trace-output* "~&Scheduling pending instructions...~%")
+  (format *trace-output* _"~&Scheduling pending instructions...~%")
   ;;
   ;; Note that any values live at the end of the block have to be computed
   ;; last.
@@ -486,7 +488,7 @@
 			   (instruction-attributep (inst-attributes inst)
 						   flushable))
 		      #+debug
-		      (format *trace-output* "Flushing ~S~%" inst)
+		      (format *trace-output* _"Flushing ~S~%" inst)
 		      (setf (inst-emitter inst) nil)
 		      (setf (inst-depth inst) max))
 		     (t
@@ -505,13 +507,13 @@
     (dolist (branch (segment-queued-branches segment))
       (grovel-inst (cdr branch))))
   #+debug
-  (format *trace-output* "Queued branches: ~S~%"
+  (format *trace-output* _"Queued branches: ~S~%"
 	  (segment-queued-branches segment))
   #+debug
-  (format *trace-output* "Initially emittable: ~S~%"
+  (format *trace-output* _"Initially emittable: ~S~%"
 	  (segment-emittable-insts-queue segment))
   #+debug
-  (format *trace-output* "Initially delayed: ~S~%"
+  (format *trace-output* _"Initially delayed: ~S~%"
 	  (segment-delayed segment))
   ;;
   ;; Accumulate the results in reverse order.  Well, actually, this list will
@@ -570,7 +572,7 @@
  			      (schedule-one-inst segment t)
 			      :nop)))
 		#+debug
-		(format *trace-output* "Filling branch delay slot with ~S~%"
+		(format *trace-output* _"Filling branch delay slot with ~S~%"
 			fill)
 		(push fill results)))
 	    (advance-one-inst segment)
@@ -578,7 +580,7 @@
 	  (note-resolved-dependencies segment inst)
 	  (push inst results)
 	  #+debug
-	  (format *trace-output* "Emitting ~S~%" inst)
+	  (format *trace-output* _"Emitting ~S~%" inst)
 	  (advance-one-inst segment))))
     ;;
     ;; Keep scheduling stuff until we run out.
@@ -639,7 +641,7 @@
 					   variable-length))
 	;; We've got us a live one here.  Go for it.
 	#+debug
-	(format *Trace-output* "Emitting ~S~%" inst)
+	(format *Trace-output* _"Emitting ~S~%" inst)
 	;; Delete it from the list of insts.
 	(if prev
 	    (setf (cdr prev) (cdr remaining))
@@ -661,7 +663,7 @@
   (cond ((segment-delayed segment)
 	 ;; No emittable instructions, but we have more work to do.  Emit
 	 ;; a NOP to fill in a delay slot.
-	 #+debug (format *trace-output* "Emitting a NOP.~%")
+	 #+debug (format *trace-output* _"Emitting a NOP.~%")
 	 :nop)
 	(t
 	 ;; All done.
@@ -731,7 +733,7 @@
 (defun insert-emittable-inst (segment inst)
   (unless (instruction-attributep (inst-attributes inst) branch)
     #+debug
-    (format *Trace-output* "Now emittable: ~S~%" inst)
+    (format *Trace-output* _"Now emittable: ~S~%" inst)
     (do ((my-depth (inst-depth inst))
 	 (remaining (segment-emittable-insts-queue segment) (cdr remaining))
 	 (prev nil remaining))
@@ -917,7 +919,7 @@
 ;;; 
 (declaim (inline emit-byte))
 (defun emit-byte (segment byte)
-  "Emit BYTE to SEGMENT."
+  _N"Emit BYTE to SEGMENT."
   (declare (type segment segment)
 	   (type (or assembly-unit (signed-byte #.assembly-unit-bits)) byte))
   (let* ((orig-ptr (segment-fill-pointer segment))
@@ -933,7 +935,7 @@
 ;;; EMIT-SKIP -- interface.
 ;;; 
 (defun emit-skip (segment amount &optional (fill-byte 0))
-  "Output AMOUNT zeros (in bytes) to SEGMENT."
+  _N"Output AMOUNT zeros (in bytes) to SEGMENT."
   (declare (type segment segment)
 	   (type index amount))
   (dotimes (i amount)
@@ -950,7 +952,7 @@
   (declare (type segment segment)
 	   (type annotation note))
   (when (annotation-posn note)
-    (error "Attempt to emit ~S for the second time." note))
+    (error _"Attempt to emit ~S for the second time." note))
   (setf (annotation-posn note) (segment-current-posn segment))
   (setf (annotation-index note) (segment-current-index segment))
   (let ((last (segment-last-annotation segment))
@@ -964,7 +966,7 @@
 ;;; EMIT-BACK-PATCH -- interface.
 ;;; 
 (defun emit-back-patch (segment size function)
-  "Note that the instruction stream has to be back-patched when label positions
+  _N"Note that the instruction stream has to be back-patched when label positions
    are finally known.  SIZE bytes are reserved in SEGMENT, and function will
    be called with two arguments: the segment and the position.  The function
    should look at the position and the position of any labels it wants to
@@ -977,7 +979,7 @@
 ;;; EMIT-CHOOSER -- interface.
 ;;; 
 (defun emit-chooser (segment size alignment maybe-shrink worst-case-fun)
-  "Note that the instruction stream here depends on the actual positions of
+  _N"Note that the instruction stream here depends on the actual positions of
    various labels, so can't be output until label positions are known.  Space
    is made in SEGMENT for at least SIZE bytes.  When all output has been
    generated, the MAYBE-SHRINK functions for all choosers are called with
@@ -1157,12 +1159,12 @@
 				 (chooser-index note)))
 		    (old-size (chooser-size note)))
 		(when (> new-size old-size)
-		  (error "~S emitted ~D bytes, but claimed it's max was ~D"
+		  (error _"~S emitted ~D bytes, but claimed it's max was ~D"
 			 note new-size old-size))
 		(let ((additional-delta (- old-size new-size)))
 		  (when (< (find-alignment additional-delta)
 			   (chooser-alignment note))
-		    (error "~S shrunk by ~D bytes, but claimed that it ~
+		    (error _"~S shrunk by ~D bytes, but claimed that it ~
 			    preserve ~D bits of alignment."
 			   note additional-delta (chooser-alignment note)))
 		  (incf delta additional-delta)
@@ -1176,7 +1178,7 @@
 	      ;; The chooser passed on shrinking.  Make sure it didn't emit
 	      ;; anything.
 	      (unless (= (segment-current-index segment) (chooser-index note))
-		(error "Chooser ~S passed, but not before emitting ~D bytes."
+		(error _"Chooser ~S passed, but not before emitting ~D bytes."
 		       note
 		       (- (segment-current-index segment)
 			  (chooser-index note))))
@@ -1205,7 +1207,7 @@
 		       (old-size (alignment-size note))
 		       (additional-delta (- old-size size)))
 		  (when (minusp additional-delta)
-		    (error "Alignment ~S needs more space now?  It was ~D, ~
+		    (error _"Alignment ~S needs more space now?  It was ~D, ~
 			    and is ~D now."
 			   note old-size size))
 		  (when (plusp additional-delta)
@@ -1285,7 +1287,7 @@
 		 (funcall function segment posn)
 		 (let ((new-size (- (segment-current-index segment) index)))
 		   (unless (= new-size old-size)
-		     (error "~S emitted ~D bytes, but claimed it's was ~D"
+		     (error _"~S emitted ~D bytes, but claimed it's was ~D"
 			    note new-size old-size)))
 		 (let ((tail (segment-last-annotation segment)))
 		   (if tail
@@ -1336,7 +1338,7 @@
 ;;; does anything like that...
 (defmacro assemble ((&optional segment vop &key labels) &body body
 		    &environment env)
-  "Execute BODY (as a progn) with SEGMENT as the current segment."
+  _N"Execute BODY (as a progn) with SEGMENT as the current segment."
   (flet ((label-name-p (thing)
 	   (and thing (symbolp thing))))
     (let* ((seg-var (gensym "SEGMENT-"))
@@ -1353,7 +1355,7 @@
 	   (nested-labels (set-difference (append inherited-labels new-labels)
 					  visable-labels)))
       (when (intersection labels inherited-labels)
-	(error "Duplicate nested labels: ~S"
+	(error _"Duplicate nested labels: ~S"
 	       (intersection labels inherited-labels)))
       `(let* ((,seg-var ,(or segment '(%%current-segment%%)))
               (,vop-var ,(or vop '(%%current-vop%%)))
@@ -1378,12 +1380,12 @@
 ;;; INST -- interface.
 ;;; 
 (defmacro inst (&whole whole instruction &rest args &environment env)
-  "Emit the specified instruction to the current segment."
+  _N"Emit the specified instruction to the current segment."
   (let ((inst (gethash (symbol-name instruction)
 		       (assem-params-instructions
 			(c:backend-assembler-params c:*target-backend*)))))
     (cond ((null inst)
-	   (error "Unknown instruction: ~S" instruction))
+	   (error _"Unknown instruction: ~S" instruction))
 	  ((functionp inst)
 	   (funcall inst (cdr whole) env))
 	  (t
@@ -1395,7 +1397,7 @@
 ;;; and %%CURRENT-VOP%% prevents this from being an ordinary function
 ;;; (likewise for EMIT-POSTIT and ALIGN, below).
 (defmacro emit-label (label)
-  "Emit LABEL at this location in the current segment."
+  _N"Emit LABEL at this location in the current segment."
   `(%emit-label (%%current-segment%%) (%%current-vop%%) ,label))
 
 ;;; EMIT-POSTIT -- interface.
@@ -1406,13 +1408,13 @@
 ;;; ALIGN -- interface.
 ;;; 
 (defmacro align (bits &optional (fill-byte 0))
-  "Emit an alignment restriction to the current segment."
+  _N"Emit an alignment restriction to the current segment."
   `(emit-alignment (%%current-segment%%) (%%current-vop%%) ,bits ,fill-byte))
 
 ;;; LABEL-POSITION -- interface.
 ;;; 
 (defun label-position (label &optional if-after delta)
-  "Return the current position for LABEL.  Chooser maybe-shrink functions
+  _N"Return the current position for LABEL.  Chooser maybe-shrink functions
    should supply IF-AFTER and DELTA to assure correct results."
   (let ((posn (label-posn label)))
     (if (and if-after (> posn if-after))
@@ -1422,7 +1424,7 @@
 ;;; APPEND-SEGMENT -- interface.
 ;;; 
 (defun append-segment (segment other-segment)
-  "Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT
+  _N"Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT
    for anything after this."
   (when (segment-run-scheduler segment)
     (schedule-pending-instructions segment))
@@ -1469,7 +1471,7 @@
 ;;; FINALIZE-SEGMENT -- interface.
 ;;; 
 (defun finalize-segment (segment)
-  "Does any final processing of SEGMENT and returns the total number of bytes
+  _N"Does any final processing of SEGMENT and returns the total number of bytes
    covered by this segment."
   (when (segment-run-scheduler segment)
     (schedule-pending-instructions segment))
@@ -1489,7 +1491,7 @@
 ;;; SEGMENT-MAP-OUTPUT -- interface.
 ;;;
 (defun segment-map-output (segment function)
-  "Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called
+  _N"Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called
    zero or more times with two arguments: a SAP and a number of bytes."
   (let ((old-index 0)
 	(blocks (segment-output-blocks segment))
@@ -1526,7 +1528,7 @@
 ;;; RELEASE-SEGMENT -- interface.
 ;;; 
 (defun release-segment (segment)
-  "Releases any output buffers held on to by segment."
+  _N"Releases any output buffers held on to by segment."
   (let ((blocks (segment-output-blocks segment)))
     (loop
       for block across blocks
@@ -1551,7 +1553,7 @@
 			  (quo rem)
 			  (truncate total-bits assembly-unit-bits)
 			(unless (zerop rem)
-			  (error "~D isn't an even multiple of ~D"
+			  (error _"~D isn't an even multiple of ~D"
 				 total-bits assembly-unit-bits))
 			quo))
 	   (bytes (make-array num-bytes :initial-element nil))
@@ -1562,7 +1564,7 @@
 	       (byte-posn (byte-position byte-spec))
 	       (arg (gensym (format nil "~:@(ARG-FOR-~S-~)" byte-spec-expr))))
 	  (when (ldb-test (byte byte-size byte-posn) overall-mask)
-	    (error "Byte spec ~S either overlaps another byte spec, or ~
+	    (error _"Byte spec ~S either overlaps another byte spec, or ~
 		    extends past the end."
 		   byte-spec-expr))
 	  (setf (ldb byte-spec overall-mask) -1)
@@ -1612,7 +1614,7 @@
 				,arg)
 			  (svref bytes end-byte))))))))))
       (unless (= overall-mask -1)
-	(error "There are holes."))
+	(error _"There are holes."))
       (let ((forms nil))
 	(dotimes (i num-bytes)
 	  (let ((pieces (svref bytes i)))
@@ -1723,7 +1725,7 @@
 	(case option
 	  (:emitter
 	   (when emitter
-	     (error "Can only specify one emitter per instruction."))
+	     (error _"Can only specify one emitter per instruction."))
 	   (setf emitter args))
 	  (:declare
 	   (setf decls (append decls args)))
@@ -1735,13 +1737,13 @@
 	   (setf dependencies (append dependencies args)))
 	  (:delay
 	   (when delay
-	     (error "Can only specify delay once per instruction."))
+	     (error _"Can only specify delay once per instruction."))
 	   (setf delay args))
 	  (:pinned
 	   (setf pinned t))
 	  (:vop-var
 	   (if vop-var
-	       (error "Can only specify :vop-var once.")
+	       (error _"Can only specify :vop-var once.")
 	       (setf vop-var (car args))))
 	  (:printer
 	   (push
@@ -1763,7 +1765,7 @@
 				,(cadr option-spec)))))
 	    pdefs))
 	  (t
-	   (error "Unknown option: ~S" option)))))
+	   (error _"Unknown option: ~S" option)))))
     (setf pdefs (nreverse pdefs))
     (multiple-value-bind
 	(new-lambda-list segment-name vop-name arg-reconstructor)
@@ -1820,7 +1822,7 @@
 	   (let ((,postits (segment-postits ,segment-name)))
 	     (setf (segment-postits ,segment-name) nil)
              (macrolet ((%%current-segment%% ()
-                          (error "You can't use INST without an ASSEMBLE inside emitters.")))
+                          (error _"You can't use INST without an ASSEMBLE inside emitters.")))
 	       ,@emitter))
 	   (ext:undefined-value))
 	 (eval-when (compile load eval)
diff --git a/compiler/node.lisp b/compiler/node.lisp
index 0ef18ef2b44581902daa236a0d1f4b622cbbd0f7..adaea5256201292a3215099bbe60fd1ea3db8f13 100644
--- a/compiler/node.lisp
+++ b/compiler/node.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.46 2004/12/16 21:55:38 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.47 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "C")
 
+(intl:textdomain "cmucl")
+
 (export '(component component-info block-number))
 
 ;;; Defvars for these variables appear later.
diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 706bfe02cfc7179d8570b760b2f2579b7b030451..0f2be287f1e8a97ff6644a8fea7487ef1b1c776a 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.59 2004/05/24 22:52:35 cwang Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.60 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (declaim (optimize (inhibit-warnings 1)))
 
diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp
index 8217e21e6ad2093c2cb6f18d90d98b7a0cae4079..0fdff1e01a7259ebe959c860ac5c41f5d34e3ac1 100644
--- a/compiler/proclaim.lisp
+++ b/compiler/proclaim.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.45 2010/03/18 16:43:12 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.46 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (in-package "EXTENSIONS")
 (export '(inhibit-warnings freeze-type optimize-interface constant-function))
@@ -134,35 +135,35 @@
                           (char= (char name 0) #\&))))
           (unless (member arg lambda-list-keywords)
             (compiler-note
-             "~S uses lambda-list keyword naming convention, but is not a recognized lambda-list keyword."
+             _N"~S uses lambda-list keyword naming convention, but is not a recognized lambda-list keyword."
              arg)))
 	(if (member arg lambda-list-keywords)
 	    (ecase arg
 	      (&optional
 	       (unless (eq state :required)
-		 (compiler-error "Misplaced &optional in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &optional in lambda-list: ~S." list))
 	       (setq state '&optional))
 	      (&rest
 	       (unless (member state '(:required &optional))
-		 (compiler-error "Misplaced &rest in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &rest in lambda-list: ~S." list))
 	       (setq state '&rest))
 	      (&more
 	       (unless (member state '(:required &optional))
-		 (compiler-error "Misplaced &more in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &more in lambda-list: ~S." list))
 	       (setq morep t  state '&more-context))
 	      (&key
 	       (unless (member state '(:required &optional :post-rest
 						 :post-more))
-		 (compiler-error "Misplaced &key in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &key in lambda-list: ~S." list))
 	       (setq keyp t)
 	       (setq state '&key))
 	      (&allow-other-keys
 	       (unless (eq state '&key)
-		 (compiler-error "Misplaced &allow-other-keys in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &allow-other-keys in lambda-list: ~S." list))
 	       (setq allowp t  state '&allow-other-keys))
 	      (&aux
 	       (when (member state '(&rest &more-context &more-count))
-		 (compiler-error "Misplaced &aux in lambda-list: ~S." list))
+		 (compiler-error _N"Misplaced &aux in lambda-list: ~S." list))
 	       (setq state '&aux)))
 	    (case state
 	      (:required (required arg))
@@ -176,10 +177,10 @@
 	      (&key (keys arg))
 	      (&aux (aux arg))
 	      (t
-	       (compiler-error "Found garbage in lambda-list when expecting a keyword: ~S." arg)))))
+	       (compiler-error _N"Found garbage in lambda-list when expecting a keyword: ~S." arg)))))
 
       (when (eq state '&rest)
-	(compiler-error "&rest not followed by required variable."))
+	(compiler-error _N"&rest not followed by required variable."))
       
       (values (required) (optional) restp rest keyp (keys) allowp (aux)
 	      morep more-context more-count))))
@@ -195,14 +196,14 @@
   (typecase name
     (list
      (unless (valid-function-name-p name)
-       (compiler-error "Illegal function name: ~S." name))
+       (compiler-error _N"Illegal function name: ~S." name))
      name)
     (symbol
      (when (eq (info function kind name) :special-form)
-       (compiler-error "Special form is an illegal function name: ~S." name))
+       (compiler-error _N"Special form is an illegal function name: ~S." name))
      name)
     (t
-     (compiler-error "Illegal function name: ~S." name))))
+     (compiler-error _N"Illegal function name: ~S." name))))
 
 
 ;;; NOTE-IF-SETF-FUNCTION-AND-MACRO  --  Interface
@@ -219,7 +220,7 @@
     (when (or (info setf inverse name)
 	      (info setf expander name))
       (compiler-warning
-       "Defining as a SETF function a name that already has a SETF macro:~
+       _N"Defining as a SETF function a name that already has a SETF macro:~
        ~%  ~S"
        name)))
   (undefined-value))
@@ -233,8 +234,8 @@
 (defun note-if-accessor (name)
   (let ((for (info function accessor-for name)))
     (when for
-      (cerror "Assume redefinition is compatible and allow it"
-	      "Redefining slot accessor ~S for structure type ~S"
+      (cerror _"Assume redefinition is compatible and allow it"
+	      _"Redefining slot accessor ~S for structure type ~S"
 	      name (%class-name for))
       ;;(undefine-structure for)
       (setf (info function kind name) :function))))
@@ -254,7 +255,7 @@
     (:function
      (note-if-accessor name))
     (:macro
-     (compiler-warning "~S previously defined as a macro." name)
+     (compiler-warning _N"~S previously defined as a macro." name)
      (setf (info function kind name) :function)
      (setf (info function where-from name) :assumed)
      (clear-info function macro-function name))
@@ -310,10 +311,10 @@
 		((inhibit-warnings brevity) (setf (cookie-brevity res) value))
 		((debug-info debug) (setf (cookie-debug res) value))
 		(t
-		 (compiler-warning "Unknown optimization quality ~S in ~S."
+		 (compiler-warning _N"Unknown optimization quality ~S in ~S."
 				   (car quality) spec))))
 	    (compiler-warning
-	     "Malformed optimization quality specifier ~S in ~S."
+	     _N"Malformed optimization quality specifier ~S in ~S."
 	     quality spec))))
     res))
 
@@ -322,7 +323,7 @@
 ;;;
 
 (defmacro declaim (&rest specs)
-  "DECLAIM Declaration*
+  _N"DECLAIM Declaration*
   Do a declaration for the global environment."
   `(progn
      (eval-when (:load-toplevel :execute)
@@ -346,7 +347,7 @@
 ;;;
 (defun proclaim (form)
   (unless (consp form)
-    (error "Malformed PROCLAIM spec: ~S." form))
+    (error _"Malformed PROCLAIM spec: ~S." form))
 
   (when (boundp '*proclamation-hooks*)
     (dolist (hook *proclamation-hooks*)
@@ -358,7 +359,7 @@
       (special
        (dolist (name args)
 	 (unless (symbolp name)
-	   (error "Variable name is not a symbol: ~S." name))
+	   (error _"Variable name is not a symbol: ~S." name))
 	 (unless (or (member (info variable kind name) '(:global :special))
 		     ;; If we are still in cold-load, and the package system
 		     ;; is not set up, the global db will claim all variables
@@ -367,18 +368,18 @@
 		     (null (symbol-package :end)))
 	   (cond
 	     ((eq name 'nil)
-	      (error "Nihil ex nihil, can't declare ~S special." name))
+	      (error _"Nihil ex nihil, can't declare ~S special." name))
 	     ((eq name 't)
-	      (error "Veritas aeterna, can't declare ~S special." name))
+	      (error _"Veritas aeterna, can't declare ~S special." name))
 	     ((keywordp name)
-	      (error "Can't declare ~S special, it is a keyword." name))
+	      (error _"Can't declare ~S special, it is a keyword." name))
 	     (t
-	      (cerror "Proceed anyway."
-		      "Trying to declare ~S special, which is ~A." name
+	      (cerror _"Proceed anyway."
+		      _"Trying to declare ~S special, which is ~A." name
 		      (ecase (info variable kind name)
-			(:constant "a constant")
-			(:alien "an alien variable")
-			(:macro "a symbol macro"))))))
+			(:constant _"a constant")
+			(:alien _"an alien variable")
+			(:macro _"a symbol macro"))))))
 	 (clear-info variable constant-value name)
 	 (setf (info variable kind name) :special)))
       (type
@@ -386,18 +387,18 @@
 	 (let ((type (specifier-type (first args))))
 	   (dolist (name (rest args))
 	     (unless (symbolp name)
-	       (error "Variable name is not a symbol: ~S." name))
+	       (error _"Variable name is not a symbol: ~S." name))
 	     (setf (info variable type name) type)
 	     (setf (info variable where-from name) :declared)))))
       (ftype
        (when *type-system-initialized*
 	 (let ((type (specifier-type (first args))))
 	   (unless (csubtypep type (specifier-type 'function))
-	     (error "Declared functional type is not a function type: ~S."
+	     (error _"Declared functional type is not a function type: ~S."
 		    (first args)))
 	   (dolist (name (rest args))
 	     (cond ((info function accessor-for name)
-		    (warn "Ignoring FTYPE declaration for slot accesor:~%  ~S"
+		    (warn _"Ignoring FTYPE declaration for slot accesor:~%  ~S"
 			  name))
 		   (t
 		    (define-function-name name)
@@ -446,9 +447,9 @@
       (declaration
        (dolist (decl args)
 	 (unless (symbolp decl)
-	   (error "Declaration to be RECOGNIZED is not a symbol: ~S." decl))
+	   (error _"Declaration to be RECOGNIZED is not a symbol: ~S." decl))
 	 (when (info type kind decl)
-	   (error "Declaration already names a type: ~S." decl))
+	   (error _"Declaration already names a type: ~S." decl))
 	 (setf (info declaration recognized decl) t)))
       ((start-block end-block)) ; ignore.
       (t
@@ -458,7 +459,7 @@
 		  (and (consp kind) (info type translator (car kind))))
 	      (proclaim `(type . ,form)))
 	     ((not (info declaration recognized kind))
-	      (warn "Unrecognized proclamation: ~S." form))))))
+	      (warn _"Unrecognized proclamation: ~S." form))))))
   (undefined-value))
 
 
diff --git a/compiler/pseudo-vops.lisp b/compiler/pseudo-vops.lisp
index ec34544801842b4d1da4f06ece3613a44a2eef35..2e90e24334a21fd8e43d842f87100086e902639b 100644
--- a/compiler/pseudo-vops.lisp
+++ b/compiler/pseudo-vops.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pseudo-vops.lisp,v 1.9 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pseudo-vops.lisp,v 1.10 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
-
+(intl:textdomain "cmucl")
 
 ;;; Notes the place at which the environment is properly initialized, for
 ;;; debug-info purposes.
diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index b6812ba768bca70b89c9ae74cf21bacae608ce68..2eb9d2b6982014b1088a89fef961f297117236bb 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.38 2004/12/17 21:44:07 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.39 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Error routines:
@@ -51,7 +52,7 @@
 		  (values arg-p
 			  (+ n
 			     (or (position-in #'tn-ref-across ref refs)
-				 (error "Couldn't find REF?"))
+				 (error _"Couldn't find REF?"))
 			     1)
 			  t
 			  more-cost
@@ -117,10 +118,10 @@
 	    (losers (svref (backend-sc-numbers *backend*) scn))))
 
 	(unless (losers)
-	  (error "Representation selection flamed out for no obvious reason.~@
+	  (error _"Representation selection flamed out for no obvious reason.~@
 	          Try again after recompiling the VM definition."))
 	
-	(error "~S is not valid as the ~:R ~:[result~;argument~] to the~@
+	(error _"~S is not valid as the ~:R ~:[result~;argument~] to the~@
 	        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@
 		~:[which cannot be coerced or loaded into the allowed SCs:~
 		~%  ~S~;~*~]~:[~;~@
@@ -168,14 +169,14 @@
 			   (dolist (vop vops) (move-lose (template-name vop)))
 			   (no-move-scs i-sc))))
 		    (t
-		     (error "Representation selection flamed out for no ~
+		     (error _"Representation selection flamed out for no ~
 		             obvious reason."))))))
 	
 	(unless (or (load-lose) (no-move-scs) (move-lose))
-	  (error "Representation selection flamed out for no obvious reason.~@
+	  (error _"Representation selection flamed out for no obvious reason.~@
 	          Try again after recompiling the VM definition."))
 
-	(error "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~
+	(error _"~S is not valid as the ~:R ~:[result~;argument~] to VOP:~
 	        ~%  ~S~%Primitive type: ~S~@
 		SC restrictions:~%  ~S~@
 		~@[The primitive type disallows these loadable SCs:~%  ~S~%~]~
@@ -200,7 +201,7 @@
 ;;;
 (defun bad-move-arg-error (val pass)
   (declare (type tn val pass))
-  (error "No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~
+  (error _"No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~
           ~S (SC ~S.)"
 	 val (sc-name (tn-sc val))
 	 pass (sc-name (tn-sc pass))))
@@ -220,17 +221,17 @@
 	(let ((moves (sc-move-functions sc)))
 	  (dolist (const (sc-constant-scs sc))
 	    (unless (svref moves (sc-number const))
-	      (warn "No move function defined to load SC ~S from constant ~
+	      (warn _"No move function defined to load SC ~S from constant ~
 	             SC ~S."
 		    (sc-name sc) (sc-name const))))
 	  
 	  (dolist (alt (sc-alternate-scs sc))
 	    (unless (svref moves (sc-number alt))
-	      (warn "No move function defined to load SC ~S from alternate ~
+	      (warn _"No move function defined to load SC ~S from alternate ~
 	             SC ~S."
 		    (sc-name sc) (sc-name alt)))
 	    (unless (svref (sc-move-functions alt) i)
-	      (warn "No move function defined to save SC ~S to alternate ~
+	      (warn _"No move function defined to save SC ~S to alternate ~
 	             SC ~S."
 		    (sc-name sc) (sc-name alt)))))))))
 
@@ -386,7 +387,7 @@
     (cond ((lambda-var-p leaf) (leaf-name leaf))
 	  ((and (not arg-p) reads
 		(return-p (vop-node (tn-ref-vop reads))))
-	   "<return value>")
+	   _"<return value>")
 	  (t
 	   nil))))
 
@@ -418,14 +419,14 @@
 					    (if arg-p
 						(vop-args op-vop)
 						(vop-results op-vop)))
-			       (error "Couldn't fine op?  Bug!")))))
+			       (error _"Couldn't fine op?  Bug!")))))
 	     (compiler-note
-	      "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~
+	      _N"Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~
 	       The ~:R ~:[result~;argument~] of ~A."
 	      note cost name arg-p name
 	      pos arg-p op-note)))
 	  (t
-	   (compiler-note "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
+	   (compiler-note _N"Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
 			  note cost (get-operand-name op-tn t)
 			  (get-operand-name dest-tn nil)))))
   (undefined-value))
diff --git a/compiler/saptran.lisp b/compiler/saptran.lisp
index edf3a9f4686a51989db3ce7776fe249dd28804e1..55768968b2576b9a041d743a0c716d298aedd38b 100644
--- a/compiler/saptran.lisp
+++ b/compiler/saptran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.18 2008/01/03 11:41:52 cshapiro Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.19 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 
@@ -54,7 +55,7 @@
 	 symbol))
       (t
        (compiler-error
-        "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA" flav)))))
+        _N"FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA" flav)))))
 
 (defknown (sap< sap<= sap= sap>= sap>)
 	  (system-area-pointer system-area-pointer) boolean
diff --git a/compiler/seqtran.lisp b/compiler/seqtran.lisp
index 18e169d714a93241d26e560d99c6bf99cde24cf6..57073fc9bd3bf5f5d219e09d16765a36e2a3a3b9 100644
--- a/compiler/seqtran.lisp
+++ b/compiler/seqtran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/seqtran.lisp,v 1.33 2009/07/02 21:00:48 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/seqtran.lisp,v 1.34 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; written by Wholey and Fahlman.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 (defun mapper-transform (fn arglists accumulate take-car)
@@ -77,7 +78,7 @@
 (deftransform map-into ((result fun &rest seqs)
                         (vector * &rest *)
                         *)
-  "open code"
+  _N"open code"
   (let ((seqs-names (mapcar (lambda (x)
                               (declare (ignore x))
                               (gensym))
@@ -142,17 +143,17 @@
   (destructuring-bind (fun eq-fun) x
     (deftransform fun ((item list &key test) '(t list &rest t) '*
 			:eval-name t)
-      "convert to EQ test"
+      _N"convert to EQ test"
       (cond (test
 	     (unless (continuation-function-is test '(eq))
 	       (give-up)))
 	    ((types-intersect (continuation-type item)
 			      (specifier-type 'number))
-	     (give-up "Item might be a number")))
+	     (give-up _"Item might be a number")))
       `(,eq-fun item list))))
 
 (deftransform delete-if ((pred list) (t list))
-  "inline expand"
+  _N"inline expand"
   '(do ((x list (cdr x))
 	(splice '()))
        ((endp x) list)
@@ -164,14 +165,14 @@
 
 (deftransform fill ((seq item &key (start 0) (end (length seq)))
 		    (simple-array t &key (:start t) (:end index)))
-  "open code"
+  _N"open code"
   '(do ((i start (1+ i)))
        ((= i end) seq)
      (declare (type index i))
      (setf (aref seq i) item)))
 
 (deftransform position ((item list &key (test #'eql)) (t list))
-  "open code"
+  _N"open code"
   '(do ((i 0 (1+ i))
 	(l list (cdr l)))
        ((endp l) nil)
@@ -181,7 +182,7 @@
 (deftransform position ((item vec &key (test #'eql) (start 0)
 			      (end (length vec)))
 			(t simple-array &key (:start t) (:end index)))
-  "open code"
+  _N"open code"
   '(do ((i start (1+ i)))
        ((= i end) nil)
      (declare (type index i))
@@ -295,7 +296,7 @@
   (if (and arg (arg-cont arg))
       (let ((cont (arg-cont arg)))
 	(unless (constant-continuation-p cont)
-	  (give-up "Argument is not constant: ~S." (arg-name arg)))
+	  (give-up _"Argument is not constant: ~S." (arg-name arg)))
 	(continuation-value from-end))
       default))
 
@@ -327,7 +328,7 @@
   ;;
   ;; A form that returns the current value.  This may be set with SETF to set
   ;; the current value.
-  (current (error "Must specify CURRENT."))
+  (current (error _"Must specify CURRENT."))
   ;;
   ;; In a :Normal iterator, a form that tests whether there is a current value.
   (done nil)
@@ -338,11 +339,11 @@
   ;;
   ;; A form that returns the initial total number of values.  The result is
   ;; undefined after NEXT has been evaluated.
-  (length (error "Must specify LENGTH."))
+  (length (error _"Must specify LENGTH."))
   ;;
   ;; A form that advances the state to the next value.  It is an error to call
   ;; this when the iterator is Done.
-  (next (error "Must specify NEXT.")))
+  (next (error _"Must specify NEXT.")))
 
 
 ;;; Type of an index var that can go negative (in the from-end case.)
@@ -419,7 +420,7 @@
 					`(1- ,index)
 					`(1+ ,index)))))))))
 	  (t
-	   (give-up "Can't tell whether sequence is a list or a vector.")))))
+	   (give-up _"Can't tell whether sequence is a list or a vector.")))))
 
 
 ;;; MAKE-RESULT-SEQUENCE-ITERATOR  --  Interface
@@ -439,7 +440,7 @@
 ;;; function, give them an efficiency note and reference a coerced version.
 ;;;
 (defmacro coerce-functions (specs &body body)
-  "COERCE-FUNCTIONS ({(Name Fun-Arg Default)}*) Form*"
+  _N"COERCE-FUNCTIONS ({(Name Fun-Arg Default)}*) Form*"
   (collect ((binds)
 	    (defs))
     (dolist (spec specs)
@@ -454,7 +455,7 @@
 				(specifier-type 'function)))
 		(when (policy *compiler-error-context* (> speed brevity))
 		  (compiler-note
-		   "~S may not be a function, so must coerce at run-time."
+		   _N"~S may not be a function, so must coerce at run-time."
 		   n-fun))
 		(once-only ((n-fun `(if (functionp ,n-fun)
 					,n-fun
@@ -478,7 +479,7 @@
 (defmacro with-sequence-test ((name test test-not) &body body)
   `(let ((not-p (arg-cont ,test-not)))
      (when (and (arg-cont ,test) not-p)
-       (abort-transform "Both ~S and ~S supplied." (arg-name ,test)
+       (abort-transform _"Both ~S and ~S supplied." (arg-name ,test)
 			(arg-name ,test-not)))
      (coerce-functions ((,name (if not-p ,test-not ,test) eql))
        ,@body)))
@@ -650,7 +651,7 @@
     (let ((spec (continuation-value output-spec)))
       (if (subtypep spec 'sequence)
 	  (specifier-type spec)
-	  (compiler-warning "Specified output type ~S is not a sequence type" spec)))))
+	  (compiler-warning _N"Specified output type ~S is not a sequence type" spec)))))
 
 (defoptimizer (concatenate derive-type) ((output-spec  seq &rest more-seq))
   ;; The result type of CONCATENATE is OUTPUT-SPEC, but check to see
diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp
index 7827e666e6388946e4141c692efb5b53313bb501..b213685d17d1df7bebe7cd87ea7661ac8d375eb6 100644
--- a/compiler/sparc/alloc.lisp
+++ b/compiler/sparc/alloc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.23 2005/05/09 13:27:02 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.24 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;; 
 
 (in-package "SPARC")
-
+(intl:textdomain "cmucl-sparc-vm")
 
 ;;;; Dynamic-Extent.
 
diff --git a/compiler/sparc/arith.lisp b/compiler/sparc/arith.lisp
index ee75a8d1d4124cd56b1d04314a6d041b089887e2..658ff6040b60048237678f616f59a82777fca950 100644
--- a/compiler/sparc/arith.lisp
+++ b/compiler/sparc/arith.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.46 2008/08/18 20:40:02 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.47 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,7 +18,7 @@
 ;;; Enhancements/debugging by Raymond Toy 1999, 2000
 
 (in-package "SPARC")
-
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Unary operations.
@@ -32,14 +32,14 @@
 (define-vop (fixnum-unop fast-safe-arith-op)
   (:args (x :scs (any-reg)))
   (:results (res :scs (any-reg)))
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:arg-types tagged-num)
   (:result-types tagged-num))
 
 (define-vop (signed-unop fast-safe-arith-op)
   (:args (x :scs (signed-reg)))
   (:results (res :scs (signed-reg)))
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:arg-types signed-num)
   (:result-types signed-num))
 
@@ -74,7 +74,7 @@
   (:arg-types tagged-num tagged-num)
   (:results (r :scs (any-reg)))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic"))
+  (:note _N"inline fixnum arithmetic"))
 
 (define-vop (fast-unsigned-binop fast-safe-arith-op)
   (:args (x :target r :scs (unsigned-reg zero))
@@ -82,7 +82,7 @@
   (:arg-types unsigned-num unsigned-num)
   (:results (r :scs (unsigned-reg)))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic"))
+  (:note _N"inline (unsigned-byte 32) arithmetic"))
 
 (define-vop (fast-signed-binop fast-safe-arith-op)
   (:args (x :target r :scs (signed-reg zero))
@@ -90,7 +90,7 @@
   (:arg-types signed-num signed-num)
   (:results (r :scs (signed-reg)))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic"))
+  (:note _N"inline (signed-byte 32) arithmetic"))
 
 (define-vop (fast-fixnum-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (any-reg zero)))
@@ -99,7 +99,7 @@
 	      (:constant (and (signed-byte #.(- 13 vm:fixnum-tag-bits)) (not (integer 0 0)))))
   (:results (r :scs (any-reg)))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic"))
+  (:note _N"inline fixnum arithmetic"))
 
 (define-vop (fast-unsigned-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (unsigned-reg zero)))
@@ -108,7 +108,7 @@
 	      (:constant (and (signed-byte 13) (not (integer 0 0)))))
   (:results (r :scs (unsigned-reg)))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic"))
+  (:note _N"inline (unsigned-byte 32) arithmetic"))
 
 (define-vop (fast-signed-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (signed-reg zero)))
@@ -117,7 +117,7 @@
 	      (:constant (and (signed-byte 13) (not (integer 0 0)))))
   (:results (r :scs (signed-reg)))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic"))
+  (:note _N"inline (signed-byte 32) arithmetic"))
 
 (eval-when (compile load eval)
 
@@ -226,7 +226,7 @@
   (:results (r :scs (unsigned-reg)))
   (:result-types unsigned-num)
   (:translate abs)
-  (:note "inline 32-bit abs")
+  (:note _N"inline 32-bit abs")
   (:temporary (:scs (signed-reg)) y)
   (:generator 1
     ;; From Hacker's Delight
@@ -247,7 +247,7 @@
   (:policy :safe)
   (:results (r :scs (any-reg descriptor-reg)))
   (:result-types tagged-num)
-  (:note "safe inline fixnum arithmetic")
+  (:note _N"safe inline fixnum arithmetic")
   (:generator 4
     (inst taddcctv r x y)))
 
@@ -255,7 +255,7 @@
   (:policy :safe)
   (:results (r :scs (any-reg descriptor-reg)))
   (:result-types tagged-num)
-  (:note "safe inline fixnum arithmetic")
+  (:note _N"safe inline fixnum arithmetic")
   (:generator 3
     (inst taddcctv r x (fixnumize y))))
 
@@ -263,7 +263,7 @@
   (:policy :safe)
   (:results (r :scs (any-reg descriptor-reg)))
   (:result-types tagged-num)
-  (:note "safe inline fixnum arithmetic")
+  (:note _N"safe inline fixnum arithmetic")
   (:generator 4
     (inst tsubcctv r x y)))
 
@@ -271,7 +271,7 @@
   (:policy :safe)
   (:results (r :scs (any-reg descriptor-reg)))
   (:result-types tagged-num)
-  (:note "safe inline fixnum arithmetic")
+  (:note _N"safe inline fixnum arithmetic")
   (:generator 3
     (inst tsubcctv r x (fixnumize y))))
 
@@ -289,7 +289,7 @@
   (:results (quo :scs (any-reg))
 	    (rem :scs (any-reg)))
   (:result-types tagged-num tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:temporary (:scs (any-reg) :target quo) q)
   (:temporary (:scs (any-reg)) r)
   (:temporary (:scs (signed-reg)) y-int)
@@ -325,7 +325,7 @@
   (:results (quo :scs (signed-reg))
 	    (rem :scs (signed-reg)))
   (:result-types signed-num signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:temporary (:scs (signed-reg) :target quo) q)
   (:temporary (:scs (signed-reg)) r)
   (:vop-var vop)
@@ -359,7 +359,7 @@
   (:results (quo :scs (unsigned-reg))
 	    (rem :scs (unsigned-reg)))
   (:result-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:temporary (:scs (unsigned-reg) :target quo) q)
   (:temporary (:scs (unsigned-reg)) r)
   (:vop-var vop)
@@ -391,7 +391,7 @@
   (:results (quo :scs (signed-reg))
 	    (rem :scs (signed-reg)))
   (:result-types signed-num signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:temporary (:scs (signed-reg) :target quo) q)
   (:temporary (:scs (signed-reg)) r)
   (:vop-var vop)
@@ -420,7 +420,7 @@
   (:results (quo :scs (signed64-reg))
 	    (rem :scs (signed64-reg)))
   (:result-types signed64-num signed64-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:temporary (:scs (signed64-reg) :target quo) q)
   (:temporary (:scs (signed64-reg)) r)
   (:vop-var vop)
@@ -447,7 +447,7 @@
   (:results (quo :scs (unsigned-reg))
 	    (rem :scs (unsigned-reg)))
   (:result-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:temporary (:scs (unsigned-reg) :target quo) q)
   (:temporary (:scs (unsigned-reg)) r)
   (:vop-var vop)
@@ -470,7 +470,7 @@
 ;;; Shifting
 
 (define-vop (fast-ash/signed=>signed)
-  (:note "inline (signed-byte 32) ASH")
+  (:note _N"inline (signed-byte 32) ASH")
   (:args (number :scs (signed-reg) :to :save)
 	 (amount :scs (signed-reg immediate) :to :save))
   (:arg-types signed-num signed-num)
@@ -527,7 +527,7 @@
 		  (move result number))))))))
 
 (define-vop (fast-ash/unsigned=>unsigned)
-  (:note "inline (unsigned-byte 32) ASH")
+  (:note _N"inline (unsigned-byte 32) ASH")
   (:args (number :scs (unsigned-reg) :to :save)
 	 (amount :scs (signed-reg immediate) :to :save))
   (:arg-types unsigned-num signed-num)
@@ -583,7 +583,7 @@
 		(move result number))))))))
 
 (define-vop (fast-ash-c/unsigned=>unsigned)
-  (:note "inline constant ASH")
+  (:note _N"inline constant ASH")
   (:args (number :scs (unsigned-reg)))
   (:info count)
   (:arg-types unsigned-num (:constant integer))
@@ -596,14 +596,14 @@
       ((< count -31) (move result zero-tn))
       ((< count 0) (inst srl result number (min (- count) 31)))
       ((> count 0) (inst sll result number (min count 31)))
-      (t (error "identity ASH not transformed away")))))
+      (t (error _"identity ASH not transformed away")))))
 
 ;; Some special cases where we know we want a left shift.  Just do the
 ;; shift, instead of checking for the sign of the shift.
 (macrolet
     ((frob (name sc-type type result-type cost)
        `(define-vop (,name)
-	 (:note "inline ASH")
+	 (:note _N"inline ASH")
 	 (:translate ash)
 	 (:args (number :scs (,sc-type))
 	        (amount :scs (signed-reg unsigned-reg immediate)))
@@ -630,7 +630,7 @@
 (macrolet
     ((frob (name sc-type type result-type cost)
        `(define-vop (,name)
-	  (:note "inline ASH")
+	  (:note _N"inline ASH")
 	  (:translate ash)
 	  (:args (number :scs (,sc-type)))
 	  (:info amount)
@@ -653,7 +653,7 @@
 ;;#+sparc-v9
 #+nil
 (define-vop (fast-ash-left/signed64=>signed64)
-    (:note "inline ASH")
+    (:note _N"inline ASH")
   (:translate ash)
   (:args (number :scs (signed64-reg))
 	 (amount :scs (signed-reg unsigned-reg immediate)))
@@ -705,7 +705,7 @@
 (macrolet
     ((frob (trans name sc-type type shift-inst cost)
        `(define-vop (,name)
-	 (:note "inline right ASH")
+	 (:note _N"inline right ASH")
 	 (:translate ,trans)
 	 (:args (number :scs (,sc-type))
 	        (amount :scs (signed-reg unsigned-reg immediate)))
@@ -736,7 +736,7 @@
 (macrolet
     ((frob (trans name sc-type type shift-inst cost max-shift)
        `(define-vop (,name)
-	 (:note "inline right ASH")
+	 (:note _N"inline right ASH")
 	 (:translate ,trans)
 	 (:args (number :target result :scs (,sc-type)))
 	 (:info amount)
@@ -769,7 +769,7 @@
   (:results (r :scs (signed-reg)))
   (:result-types signed-num)
   (:translate ash-right-signed)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:generator 1
     (if (zerop y)
 	(move r x)
@@ -777,7 +777,7 @@
 
   
 (define-vop (fast-ash-right/fixnum=>fixnum)
-    (:note "inline right ASH")
+    (:note _N"inline right ASH")
   (:translate ash-right-signed)
   (:args (number :scs (any-reg))
 	 (amount :scs (signed-reg unsigned-reg immediate)))
@@ -801,7 +801,7 @@
 
 (define-vop (signed-byte-32-len)
   (:translate integer-length)
-  (:note "inline (signed-byte 32) integer-length")
+  (:note _N"inline (signed-byte 32) integer-length")
   (:policy :fast-safe)
   (:args (arg :scs (signed-reg) :target shift))
   (:arg-types signed-num)
@@ -827,7 +827,7 @@
 
 (define-vop (unsigned-byte-32-len)
   (:translate integer-length)
-  (:note "inline (unsigned-byte 32) integer-length")
+  (:note _N"inline (unsigned-byte 32) integer-length")
   (:policy :fast-safe)
   (:args (arg :scs (unsigned-reg) :target shift))
   (:arg-types unsigned-num)
@@ -852,7 +852,7 @@
 
 (define-vop (unsigned-byte-32-count)
   (:translate logcount)
-  (:note "inline (unsigned-byte 32) logcount")
+  (:note _N"inline (unsigned-byte 32) logcount")
   (:policy :fast-safe)
   (:args (arg :scs (unsigned-reg)))
   (:arg-types unsigned-num)
@@ -915,7 +915,7 @@
 	      (:constant (and (signed-byte 13) (not (integer 0 0)))))
   (:results (r :scs (any-reg)))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:translate *)
   (:guard (or (backend-featurep :sparc-v8)
 	      (and (backend-featurep :sparc-v9)
@@ -978,13 +978,13 @@
 	 (let ((bound (ash 1 (1- s))))
 	   `(integer ,(- bound) ,(- bound bite 1))))
 	(t
-	 (error "Bad size specified for SIGNED-BYTE type specifier: ~S." s))))
+	 (error _"Bad size specified for SIGNED-BYTE type specifier: ~S." s))))
 
 (define-vop (fast-conditional/fixnum fast-conditional)
   (:args (x :scs (any-reg zero))
 	 (y :scs (any-reg zero)))
   (:arg-types tagged-num tagged-num)
-  (:note "inline fixnum comparison"))
+  (:note _N"inline fixnum comparison"))
 
 (define-vop (fast-conditional-c/fixnum fast-conditional/fixnum)
   (:args (x :scs (any-reg zero)))
@@ -995,7 +995,7 @@
   (:args (x :scs (signed-reg zero))
 	 (y :scs (signed-reg zero)))
   (:arg-types signed-num signed-num)
-  (:note "inline (signed-byte 32) comparison"))
+  (:note _N"inline (signed-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/signed fast-conditional/signed)
   (:args (x :scs (signed-reg zero)))
@@ -1006,7 +1006,7 @@
   (:args (x :scs (unsigned-reg zero))
 	 (y :scs (unsigned-reg zero)))
   (:arg-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) comparison"))
+  (:note _N"inline (unsigned-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/unsigned fast-conditional/unsigned)
   (:args (x :scs (unsigned-reg zero)))
@@ -1057,7 +1057,7 @@
   (:args (x :scs (any-reg descriptor-reg zero))
 	 (y :scs (any-reg zero)))
   (:arg-types tagged-num tagged-num)
-  (:note "inline fixnum comparison")
+  (:note _N"inline fixnum comparison")
   (:translate eql)
   (:generator 4
     (inst cmp x y)
@@ -1180,13 +1180,13 @@
 
 (define-vop (shift-towards-start shift-towards-someplace)
   (:translate shift-towards-start)
-  (:note "shift-towards-start")
+  (:note _N"shift-towards-start")
   (:generator 1
     (inst slln r num amount)))
 
 (define-vop (shift-towards-end shift-towards-someplace)
   (:translate shift-towards-end)
-  (:note "shift-towards-end")
+  (:note _N"shift-towards-end")
   (:generator 1
     (inst srln r num amount)))
 
@@ -1297,7 +1297,7 @@
 ;;; routines.
 ;;; 
 (defun emit-multiply (multiplier multiplicand result-high result-low)
-  "Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result
+  _N"Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result
   in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.
   Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
   (declare (type tn multiplier result-high result-low)
@@ -1573,7 +1573,7 @@
   (:results (quo :scs (signed-reg))
             (rem :scs (signed-reg)))
   (:result-types signed-num signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:guard (or (backend-featurep :sparc-v8)
               (and (backend-featurep :sparc-v9)
                    (not (backend-featurep :sparc-64)))))
@@ -1618,7 +1618,7 @@
   (:results (quo :scs (unsigned-reg))
             (rem :scs (unsigned-reg)))
   (:result-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:guard (or (backend-featurep :sparc-v8)
               (and (backend-featurep :sparc-v9)
                    (not (backend-featurep :sparc-64)))))
@@ -1784,7 +1784,7 @@
   (:arg-types (:or signed64-num signed-num unsigned-num))
   (:result-types signed64-num)
   (:temporary (:scs (signed64-reg)) x64)
-  (:note "inline (signed-byte 64) arithmetic"))
+  (:note _N"inline (signed-byte 64) arithmetic"))
 
 (define-vop (fast-signed64-binop fast-safe-arith-op)
   (:args (x :target r :scs (signed64-reg unsigned-reg signed-reg zero))
@@ -1793,7 +1793,7 @@
 	      (:or signed64-num signed-num unsigned-num))
   (:results (r :scs (signed64-reg)))
   (:result-types signed64-num)
-  (:note "inline (signed-byte 64) arithmetic"))
+  (:note _N"inline (signed-byte 64) arithmetic"))
 
 (define-vop (fast-signed64-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (signed64-reg unsigned-reg signed-reg zero)))
@@ -1802,7 +1802,7 @@
 	      (:constant (and (signed-byte 13) (not (integer 0 0)))))
   (:results (r :scs (signed64-reg)))
   (:result-types signed64-num)
-  (:note "inline (signed-byte 64) arithmetic"))
+  (:note _N"inline (signed-byte 64) arithmetic"))
 
 (define-vop (fast-unsigned64-binop fast-safe-arith-op)
   (:args (x :target r :scs (unsigned64-reg unsigned-reg zero))
@@ -1811,7 +1811,7 @@
 	      (:or unsigned64-num unsigned-num))
   (:results (r :scs (unsigned64-reg)))
   (:result-types unsigned64-num)
-  (:note "inline (unsigned-byte 64) arithmetic"))
+  (:note _N"inline (unsigned-byte 64) arithmetic"))
 
 (define-vop (fast-unsigned64-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (unsigned64-reg unsigned-reg zero)))
@@ -1820,7 +1820,7 @@
 	      (:constant (and (signed-byte 13) (not (integer 0 0)))))
   (:results (r :scs (unsigned64-reg)))
   (:result-types unsigned64-num)
-  (:note "inline (unsigned-byte 64) arithmetic"))
+  (:note _N"inline (unsigned-byte 64) arithmetic"))
 
 ;; Extend the sign of Y appropriately and perform the desired
 ;; operation. R is where the result should go, X is the first arg, Y
@@ -2014,7 +2014,7 @@
   (:result-types signed64-num)
   (:temporary (:scs (signed64-reg)) x64 y64)
   (:translate *)
-  (:note "inline (signed-byte 64) arithmetic")
+  (:note _N"inline (signed-byte 64) arithmetic")
   (:guard (backend-featurep :sparc-v9))
   (:generator 3
     (sc-dispatch r x y x64 y64 mulx)))
@@ -2028,7 +2028,7 @@
   (:result-types unsigned64-num)
   (:temporary (:scs (signed64-reg)) x64 y64)
   (:translate *)
-  (:note "inline (signed-byte 64) arithmetic")
+  (:note _N"inline (signed-byte 64) arithmetic")
   (:guard (backend-featurep :sparc-v9))
   (:generator 3
     (sc-dispatch r x y x64 y64 mulx)))
@@ -2044,7 +2044,7 @@
   (:result-types signed64-num)
   (:temporary (:scs (signed64-reg)) x64 y64)
   (:translate *)
-  (:note "inline (signed-byte 64) arithmetic")
+  (:note _N"inline (signed-byte 64) arithmetic")
   (:guard (backend-featurep :sparc-v9))
   (:generator 3
     (sc-dispatch r x y x64 y64 mulx)))
@@ -2059,13 +2059,13 @@
   (:result-types unsigned64-num)
   (:temporary (:scs (unsigned64-reg)) x64 y64)
   (:translate *)
-  (:note "inline (unsigned-byte 64) arithmetic")
+  (:note _N"inline (unsigned-byte 64) arithmetic")
   (:guard (backend-featurep :sparc-v9))
   (:generator 3
     (sc-dispatch r x y x64 y64 mulx)))
 
 (define-vop (fast-ash/signed64=>signed64)
-  (:note "inline (signed-byte 64) ASH")
+  (:note _N"inline (signed-byte 64) ASH")
   (:args (number :scs (signed64-reg unsigned-reg signed-reg) :to :save)
 	 (amount :scs (signed64-reg signed-reg unsigned-reg) :to :save))
   (:arg-types (:or signed64-num signed-num unsigned-num)
@@ -2131,7 +2131,7 @@
 		(move result num64))))))))
 
 (define-vop (fast-ash/unsigned64=>unsigned64)
-  (:note "inline (signed-byte 64) ASH")
+  (:note _N"inline (signed-byte 64) ASH")
   (:args (number :scs (unsigned64-reg unsigned-reg) :to :save)
 	 (amount :scs (signed64-reg signed-reg unsigned-reg immediate) :to :save))
   (:arg-types (:or unsigned64-num unsigned-num)
@@ -2208,28 +2208,28 @@
 	 (y :scs (signed64-reg unsigned-reg signed-reg zero)))
   (:arg-types (:or signed64-num unsigned-num signed-num)
 	      (:or signed64-num unsigned-num signed-num))
-  (:note "inline (signed-byte 64) comparison"))
+  (:note _N"inline (signed-byte 64) comparison"))
 
 (define-vop (fast-conditional-c/signed64 fast-conditional)
   (:args (x :scs (signed64-reg unsigned-reg signed-reg zero)))
   (:arg-types (:or signed64-num unsigned-num signed-num)
 	      (:constant (signed-byte 13)))
   (:info target not-p y)
-  (:note "inline (signed-byte 64) comparison"))
+  (:note _N"inline (signed-byte 64) comparison"))
 
 (define-vop (fast-conditional/unsigned64 fast-conditional)
   (:args (x :scs (unsigned64-reg zero))
 	 (y :scs (unsigned64-reg zero)))
   (:arg-types (:or unsigned64-num)
 	      (:or unsigned64-num))
-  (:note "inline (unsigned-byte 64) comparison"))
+  (:note _N"inline (unsigned-byte 64) comparison"))
 
 (define-vop (fast-conditional-c/unsigned64 fast-conditional)
   (:args (x :scs (unsigned64-reg zero)))
   (:arg-types (:or unsigned64-num)
 	      (:constant (unsigned-byte 12)))
   (:info target not-p y)
-  (:note "inline (signed-byte 64) comparison"))
+  (:note _N"inline (signed-byte 64) comparison"))
 
 ;; If I were smarter, This would be a macro like it is for the 32-bit
 ;; versions.  It's easier this way to see what's happening, though.
@@ -2577,12 +2577,12 @@
 (deftransform * ((x y)
 		 ((unsigned-byte 32) (constant-argument (unsigned-byte 32)))
 		 (unsigned-byte 32))
-  "recode as shifts and adds"
+  _N"recode as shifts and adds"
   (*-transformer y))
 
 #+modular-arith
 (deftransform vm::*-mod32 ((x y)
 		 ((unsigned-byte 32) (constant-argument (unsigned-byte 32)))
 		 (unsigned-byte 32))
-  "recode as shifts and adds"
+  _N"recode as shifts and adds"
   (*-transformer y))
diff --git a/compiler/sparc/array.lisp b/compiler/sparc/array.lisp
index 66e10a5993605ceebc2e4b25ef0bd5148f2bdadf..d966c8682d068da89da360debf17976d9f1e4fef 100644
--- a/compiler/sparc/array.lisp
+++ b/compiler/sparc/array.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.36 2009/06/11 16:04:00 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.37 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Complex-float and long-float support by Douglas Crosher 1998.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Allocator for the array header.
@@ -116,7 +117,7 @@
 		  ,(intern (concatenate 'simple-string
 					(string variant)
 					"-REF")))
-       (:note "inline array access")
+       (:note _N"inline array access")
        (:variant vm:vector-data-offset vm:other-pointer-type)
        (:translate data-vector-ref)
        (:arg-types ,type positive-fixnum)
@@ -128,7 +129,7 @@
 		  ,(intern (concatenate 'simple-string
 					(string variant)
 					"-SET")))
-       (:note "inline array store")
+       (:note _N"inline array store")
        (:variant vm:vector-data-offset vm:other-pointer-type)
        (:translate data-vector-set)
        (:arg-types ,type positive-fixnum ,element-type)
@@ -174,7 +175,7 @@
 	 (bit-shift (1- (integer-length elements-per-word))))
     `(progn
        (define-vop (,(symbolicate 'data-vector-ref/ type))
-	 (:note "inline array access")
+	 (:note _N"inline array access")
 	 (:translate data-vector-ref)
 	 (:policy :fast-safe)
 	 (:args (object :scs (descriptor-reg))
@@ -230,7 +231,7 @@
 	     (unless (= extra ,(1- elements-per-word))
 	       (inst and result ,(1- (ash 1 bits)))))))
        (define-vop (,(symbolicate 'data-vector-set/ type))
-	 (:note "inline array store")
+	 (:note _N"inline array store")
 	 (:translate data-vector-set)
 	 (:policy :fast-safe)
 	 (:args (object :scs (descriptor-reg))
@@ -341,7 +342,7 @@
 ;;; 
 
 (define-vop (data-vector-ref/simple-array-single-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -356,7 +357,7 @@
     (inst ldf value object offset)))
 
 (define-vop (data-vector-ref-c/simple-array-single-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg)))
@@ -377,7 +378,7 @@
 
 
 (define-vop (data-vector-set/simple-array-single-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -396,7 +397,7 @@
       (inst fmovs result value))))
 
 (define-vop (data-vector-set-c/simple-array-single-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -421,7 +422,7 @@
 	(inst fmovs result value)))))
 
 (define-vop (data-vector-ref/simple-array-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -437,7 +438,7 @@
     (inst lddf value object offset)))
 
 (define-vop (data-vector-ref-c/simple-array-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg)))
@@ -457,7 +458,7 @@
 	    (inst lddf value object temp))))))
 
 (define-vop (data-vector-set/simple-array-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -476,7 +477,7 @@
       (move-double-reg result value))))
 
 (define-vop (data-vector-set-c/simple-array-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -502,7 +503,7 @@
 
 #+long-float
 (define-vop (data-vector-ref/simple-array-long-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -519,7 +520,7 @@
 
 #+long-float
 (define-vop (data-vector-set/simple-array-long-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg))
@@ -555,7 +556,7 @@
 
 ;;;
 (define-vop (data-vector-ref/simple-array-signed-byte-8 signed-byte-index-ref)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:variant vm:vector-data-offset vm:other-pointer-type)
   (:translate data-vector-ref)
   (:arg-types simple-array-signed-byte-8 positive-fixnum)
@@ -563,7 +564,7 @@
   (:result-types tagged-num))
 
 (define-vop (data-vector-set/simple-array-signed-byte-8 byte-index-set)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:variant vm:vector-data-offset vm:other-pointer-type)
   (:translate data-vector-set)
   (:arg-types simple-array-signed-byte-8 positive-fixnum tagged-num)
@@ -576,7 +577,7 @@
 
 (define-vop (data-vector-ref/simple-array-signed-byte-16
 	     signed-halfword-index-ref)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:variant vm:vector-data-offset vm:other-pointer-type)
   (:translate data-vector-ref)
   (:arg-types simple-array-signed-byte-16 positive-fixnum)
@@ -584,7 +585,7 @@
   (:result-types tagged-num))
 
 (define-vop (data-vector-set/simple-array-signed-byte-16 halfword-index-set)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:variant vm:vector-data-offset vm:other-pointer-type)
   (:translate data-vector-set)
   (:arg-types simple-array-signed-byte-16 positive-fixnum tagged-num)
@@ -598,7 +599,7 @@
 ;;; Complex float arrays.
 
 (define-vop (data-vector-ref/simple-array-complex-single-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -618,7 +619,7 @@
       (inst ldf imag-tn object offset))))
 
 (define-vop (data-vector-ref-c/simple-array-complex-single-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result))
@@ -644,7 +645,7 @@
 	     (inst ldf imag-tn object temp))))))
 
 (define-vop (data-vector-set/simple-array-complex-single-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -672,7 +673,7 @@
 	(inst fmovs result-imag value-imag)))))
 
 (define-vop (data-vector-set-c/simple-array-complex-single-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -706,7 +707,7 @@
 	(inst fmovs result-imag value-imag)))))
 
 (define-vop (data-vector-ref/simple-array-complex-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -726,7 +727,7 @@
       (inst lddf imag-tn object offset))))
 
 (define-vop (data-vector-ref-c/simple-array-complex-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result))
@@ -751,7 +752,7 @@
 	     (inst lddf imag-tn object temp))))))
 
 (define-vop (data-vector-set/simple-array-complex-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -779,7 +780,7 @@
 	(move-double-reg result-imag value-imag)))))
 
 (define-vop (data-vector-set-c/simple-array-complex-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -818,7 +819,7 @@
 
 #+long-float
 (define-vop (data-vector-ref/simple-array-complex-long-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -839,7 +840,7 @@
 
 #+long-float
 (define-vop (data-vector-set/simple-array-complex-long-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -976,14 +977,14 @@
 ;;; 
 
 (define-vop (raw-bits word-index-ref)
-  (:note "raw-bits VOP")
+  (:note _N"raw-bits VOP")
   (:translate %raw-bits)
   (:results (value :scs (unsigned-reg)))
   (:result-types unsigned-num)
   (:variant 0 vm:other-pointer-type))
 
 (define-vop (set-raw-bits word-index-set)
-  (:note "setf raw-bits VOP")
+  (:note _N"setf raw-bits VOP")
   (:translate %set-raw-bits)
   (:args (object :scs (descriptor-reg))
 	 (index :scs (any-reg zero immediate))
@@ -997,7 +998,7 @@
 #+double-double
 (progn
 (define-vop (data-vector-ref/simple-array-double-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -1017,7 +1018,7 @@
       (inst lddf lo-tn object offset))))
 
 (define-vop (data-vector-ref-c/simple-array-double-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result))
@@ -1042,7 +1043,7 @@
 	     (inst lddf lo-tn object temp))))))
 
 (define-vop (data-vector-set/simple-array-double-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -1070,7 +1071,7 @@
 	(move-double-reg result-lo value-lo)))))
 
 (define-vop (data-vector-set-c/simple-array-double-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -1108,7 +1109,7 @@
 	(move-double-reg result-lo value-lo)))))
 
 (define-vop (data-vector-ref/simple-array-complex-double-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -1134,7 +1135,7 @@
       (inst lddf imag-tn object offset))))
 
 (define-vop (data-vector-ref-c/simple-array-complex-double-double-float)
-  (:note "inline array access")
+  (:note _N"inline array access")
   (:translate data-vector-ref)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result))
@@ -1167,7 +1168,7 @@
 	     (inst lddf imag-lo-tn object temp))))))
 
 (define-vop (data-vector-set/simple-array-complex-double-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
@@ -1207,7 +1208,7 @@
 	(move-double-reg result-imag value-imag)))))
 
 (define-vop (data-vector-set-c/simple-array-complex-double-double-float)
-  (:note "inline array store")
+  (:note _N"inline array store")
   (:translate data-vector-set)
   (:policy :fast-safe)
   (:args (object :scs (descriptor-reg) :to :result)
diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp
index 5ba80880e6ea85791958a39b0f095fc18128dda5..172d0475bd0edf2fa0e7b570aa140739cfb181c8 100644
--- a/compiler/sparc/c-call.lisp
+++ b/compiler/sparc/c-call.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.27 2005/11/29 17:02:53 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.28 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 (use-package "ALIEN")
 (use-package "ALIEN-INTERNALS")
 
@@ -89,7 +90,7 @@
 (def-alien-type-method (values :result-tn) (type state)
   (let ((values (alien-values-type-values type)))
     (when (> (length values) 2)
-      (error "Too many result values from c-call."))
+      (error _"Too many result values from c-call."))
     (mapcar #'(lambda (type)
 		(invoke-alien-type-method :result-tn type state))
 	    values)))
@@ -365,7 +366,7 @@
       (eq (machine-rep type1) (machine-rep type2)))))
 
 (defun make-callback-trampoline (index fn-type)
-  "Cons up a piece of code which calls call-callback with INDEX and a
+  _N"Cons up a piece of code which calls call-callback with INDEX and a
 pointer to the arguments."
   (let ((return-type (alien-function-type-result-type fn-type)))
     (flet ((def-reg-tn (offset)
diff --git a/compiler/sparc/call.lisp b/compiler/sparc/call.lisp
index ab94d6811f4012a01b6cd86d780c3509c48ee0f2..81102883be2783c9270070910040d6dc185d731a 100644
--- a/compiler/sparc/call.lisp
+++ b/compiler/sparc/call.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.38 2005/02/11 21:02:34 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.39 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Interfaces to IR2 conversion:
@@ -1248,7 +1249,7 @@ default-value-8
   (:results (context :scs (descriptor-reg))
 	    (count :scs (any-reg)))
   (:result-types t tagged-num)
-  (:note "more-arg-context")
+  (:note _N"more-arg-context")
   (:generator 5
     (inst sub count supplied (fixnumize fixed))
     (inst sub context csp-tn count)))
diff --git a/compiler/sparc/cell.lisp b/compiler/sparc/cell.lisp
index 0165331489121c207f3c639c4f5f9930192ec650..f87461f5b36aa76af1f83a88121b86012c4f021f 100644
--- a/compiler/sparc/cell.lisp
+++ b/compiler/sparc/cell.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.26 2004/05/18 01:14:05 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.27 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;; 
 
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Data object ref/set stuff.
diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 15f9cfadc078151e7c10258345aa452e2d3d4449..9ff41ec610fbfa10cd12c14fbc56795a1e771e38 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.12 2003/10/20 01:25:01 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.13 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -16,6 +16,7 @@
 ;;; And then to the SPARC by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 
@@ -26,7 +27,7 @@
 (define-vop (move-to-base-char)
   (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (base-char-reg)))
-  (:note "character untagging")
+  (:note _N"character untagging")
   (:generator 1
     (inst srln y x vm:type-bits)))
 ;;;
@@ -39,7 +40,7 @@
 (define-vop (move-from-base-char)
   (:args (x :scs (base-char-reg)))
   (:results (y :scs (any-reg descriptor-reg)))
-  (:note "character tagging")
+  (:note _N"character tagging")
   (:generator 1
     (inst slln y x vm:type-bits)
     (inst or y vm:base-char-type)))
@@ -55,7 +56,7 @@
 	    :load-if (not (location= x y))))
   (:results (y :scs (base-char-reg)
 	       :load-if (not (location= x y))))
-  (:note "character move")
+  (:note _N"character move")
   (:effects)
   (:affected)
   (:generator 0
@@ -74,7 +75,7 @@
 	     :load-if (not (sc-is y base-char-reg))))
   (:results (y))
   (:temporary (:sc non-descriptor-reg) temp)
-  (:note "character arg move")
+  (:note _N"character arg move")
   (:generator 0
     (sc-case y
       (base-char-reg
@@ -126,7 +127,7 @@
   (:conditional)
   (:info target not-p)
   (:policy :fast-safe)
-  (:note "inline comparison")
+  (:note _N"inline comparison")
   (:variant-vars condition not-condition)
   (:generator 3
     (inst cmp x y)
@@ -151,7 +152,7 @@
   (:conditional)
   (:info target not-p y)
   (:policy :fast-safe)
-  (:note "inline comparison")
+  (:note _N"inline comparison")
   (:variant-vars condition not-condition)
   (:generator 2
     (inst cmp x (char-code y))
diff --git a/compiler/sparc/debug.lisp b/compiler/sparc/debug.lisp
index 2a6dfa34a10415469fdd847a5c298a2ce3ac6dc8..37bce7b7ec4b3157fce55b2e20a257f2ff27d8b8 100644
--- a/compiler/sparc/debug.lisp
+++ b/compiler/sparc/debug.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/debug.lisp,v 1.6 2003/10/27 18:30:27 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/debug.lisp,v 1.7 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;; 
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 (defknown di::current-sp () system-area-pointer (movable flushable))
 (defknown di::current-fp () system-area-pointer (movable flushable))
diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 0fed3b63435644ede39b5c2e89ae8d51240c2f21..253c766416b0bba0d3028b9b00fb4fbfd2f35ec8 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.62 2009/06/15 18:03:25 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.63 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Complex-float and long-float support by Douglas Crosher 1998.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Move functions:
@@ -141,7 +142,7 @@
 			    :load-if (not (location= x y))))
 		  (:results (y :scs (,sc)
 			       :load-if (not (location= x y))))
-		  (:note "float move")
+		  (:note _N"float move")
 		  (:generator 0
 		    (unless (location= y x)
 		      ,@(ecase format
@@ -158,7 +159,7 @@
 (define-vop (move-from-float)
   (:args (x :to :save))
   (:results (y))
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:temporary (:scs (non-descriptor-reg)) ndescr)
   (:variant-vars format size type data)
   (:generator 13
@@ -192,7 +193,7 @@
 		(define-vop (,name)
 		  (:args (x :scs (descriptor-reg)))
 		  (:results (y :scs (,sc)))
-		  (:note "pointer to float coercion")
+		  (:note _N"pointer to float coercion")
 		  (:generator 2
 		    (inst ,(ecase format
 			     (:single 'ldf)
@@ -207,7 +208,7 @@
 (define-vop (move-to-long)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (long-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
     (load-long-reg y x (- (* vm:long-float-value-slot vm:word-bytes)
 			  vm:other-pointer-type))))
@@ -221,7 +222,7 @@
 			 (nfp :scs (any-reg)
 			      :load-if (not (sc-is y ,sc))))
 		  (:results (y))
-		  (:note "float argument move")
+		  (:note _N"float argument move")
 		  (:generator ,(ecase format (:single 1) (:double 2))
 		    (sc-case y
 		      (,sc
@@ -245,7 +246,7 @@
   (:args (x :scs (long-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y long-reg))))
   (:results (y))
-  (:note "float argument move")
+  (:note _N"float argument move")
   (:generator 3
     (sc-case y
       (long-reg
@@ -396,7 +397,7 @@
   (:args (x :scs (complex-single-reg) :target y
 	    :load-if (not (location= x y))))
   (:results (y :scs (complex-single-reg) :load-if (not (location= x y))))
-  (:note "complex single float move")
+  (:note _N"complex single float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the complex-float-regs are aligned to every second
@@ -415,7 +416,7 @@
   (:args (x :scs (complex-double-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (complex-double-reg) :load-if (not (location= x y))))
-  (:note "complex double float move")
+  (:note _N"complex double float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the complex-float-regs are aligned to every second
@@ -435,7 +436,7 @@
   (:args (x :scs (complex-long-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (complex-long-reg) :load-if (not (location= x y))))
-  (:note "complex long float move")
+  (:note _N"complex long float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the complex-float-regs are aligned to every second
@@ -456,7 +457,7 @@
   (:args (x :scs (complex-double-double-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (complex-double-double-reg) :load-if (not (location= x y))))
-  (:note "complex double-double float move")
+  (:note _N"complex double-double float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the complex-float-regs are aligned to every second
@@ -486,7 +487,7 @@
   (:args (x :scs (complex-single-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
-  (:note "complex single float to pointer coercion")
+  (:note _N"complex single float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y ndescr vm:complex-single-float-type
 			       vm:complex-single-float-size))
@@ -506,7 +507,7 @@
   (:args (x :scs (complex-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
-  (:note "complex double float to pointer coercion")
+  (:note _N"complex double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y ndescr vm:complex-double-float-type
 			       vm:complex-double-float-size))
@@ -527,7 +528,7 @@
   (:args (x :scs (complex-long-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
-  (:note "complex long float to pointer coercion")
+  (:note _N"complex long float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y ndescr vm:complex-long-float-type
 			       vm:complex-long-float-size))
@@ -549,7 +550,7 @@
   (:args (x :scs (complex-double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
-  (:note "complex double-double float to pointer coercion")
+  (:note _N"complex double-double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y ndescr vm::complex-double-double-float-type
 			       vm::complex-double-double-float-size))
@@ -580,7 +581,7 @@
 (define-vop (move-to-complex-single)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-single-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (let ((real-tn (complex-single-reg-real-tn y)))
       (inst ldf real-tn x (- (* complex-single-float-real-slot word-bytes)
@@ -594,7 +595,7 @@
 (define-vop (move-to-complex-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-double-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (let ((real-tn (complex-double-reg-real-tn y)))
       (inst lddf real-tn x (- (* complex-double-float-real-slot word-bytes)
@@ -609,7 +610,7 @@
 (define-vop (move-to-complex-long)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-long-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (let ((real-tn (complex-long-reg-real-tn y)))
       (load-long-reg real-tn x (- (* complex-long-float-real-slot word-bytes)
@@ -625,7 +626,7 @@
 (define-vop (move-to-complex-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-double-double-reg)))
-  (:note "pointer to complex double-double float coercion")
+  (:note _N"pointer to complex double-double float coercion")
   (:generator 2
     (let ((real-tn (complex-double-double-reg-real-hi-tn y)))
       (inst lddf real-tn x (- (* complex-double-double-float-real-hi-slot word-bytes)
@@ -650,7 +651,7 @@
   (:args (x :scs (complex-single-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y complex-single-reg))))
   (:results (y))
-  (:note "complex single-float argument move")
+  (:note _N"complex single-float argument move")
   (:generator 1
     (sc-case y
       (complex-single-reg
@@ -674,7 +675,7 @@
   (:args (x :scs (complex-double-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y complex-double-reg))))
   (:results (y))
-  (:note "complex double-float argument move")
+  (:note _N"complex double-float argument move")
   (:generator 2
     (sc-case y
       (complex-double-reg
@@ -699,7 +700,7 @@
   (:args (x :scs (complex-long-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y complex-long-reg))))
   (:results (y))
-  (:note "complex long-float argument move")
+  (:note _N"complex long-float argument move")
   (:generator 2
     (sc-case y
       (complex-long-reg
@@ -726,7 +727,7 @@
   (:args (x :scs (complex-double-double-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y complex-double-double-reg))))
   (:results (y))
-  (:note "complex double-double float argument move")
+  (:note _N"complex double-double float argument move")
   (:generator 2
     (sc-case y
       (complex-double-double-reg
@@ -771,7 +772,7 @@
   (:args (x) (y))
   (:results (r))
   (:policy :fast-safe)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only))
 
@@ -822,7 +823,7 @@
 		(:policy :fast-safe)
 		(:arg-types ,type)
 		(:result-types ,type)
-		(:note "inline float arithmetic")
+		(:note _N"inline float arithmetic")
 		(:vop-var vop)
 		(:save-p :compute-only)
 		(:generator 1
@@ -868,7 +869,7 @@
   (:policy :fast-safe)
   (:arg-types double-float)
   (:result-types double-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -882,7 +883,7 @@
   (:policy :fast-safe)
   (:arg-types double-float)
   (:result-types double-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -897,7 +898,7 @@
   (:policy :fast-safe)
   (:arg-types long-float)
   (:result-types long-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -925,7 +926,7 @@
   (:policy :fast-safe)
   (:arg-types long-float)
   (:result-types long-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -954,7 +955,7 @@
   (:info target not-p)
   (:variant-vars format yep nope)
   (:policy :fast-safe)
-  (:note "inline float comparison")
+  (:note _N"inline float comparison")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 3
@@ -1073,7 +1074,7 @@
 		(:arg-types signed-num)
 		(:result-types ,to-type)
 		(:policy :fast-safe)
-		(:note "inline float coercion")
+		(:note _N"inline float coercion")
 		(:translate ,translate)
 		(:vop-var vop)
 		(:save-p :compute-only)
@@ -1138,7 +1139,7 @@
 		(:arg-types ,from-type)
 		(:result-types ,to-type)
 		(:policy :fast-safe)
-		(:note "inline float coercion")
+		(:note _N"inline float coercion")
 		(:translate ,translate)
 		(:vop-var vop)
 		(:save-p :compute-only)
@@ -1173,7 +1174,7 @@
 		(:result-types signed-num)
 		(:translate ,trans)
 		(:policy :fast-safe)
-		(:note "inline float truncate")
+		(:note _N"inline float truncate")
 		(:vop-var vop)
 		(:save-p :compute-only)
 		(:generator 5
@@ -1205,7 +1206,7 @@
   (:policy :fast-safe)
   (:translate c::fast-unary-ftruncate)
   (:guard (not (backend-featurep :sparc-v9)))
-  (:note "inline ftruncate")
+  (:note _N"inline ftruncate")
   (:generator 2
     (inst fstoi r x)
     (inst fitos r r)))
@@ -1218,7 +1219,7 @@
   (:policy :fast-safe)
   (:translate c::fast-unary-ftruncate)
   (:guard (not (backend-featurep :sparc-v9)))
-  (:note "inline ftruncate")
+  (:note _N"inline ftruncate")
   (:generator 2
     (inst fdtoi r x)
     (inst fitod r r)))
@@ -1233,7 +1234,7 @@
   (:policy :fast-safe)
   (:translate c::fast-unary-ftruncate)
   (:guard (backend-featurep :sparc-v9))
-  (:note "inline ftruncate")
+  (:note _N"inline ftruncate")
   (:generator 2
     (inst fstox temp x)
     (inst fxtos r temp)))
@@ -1246,7 +1247,7 @@
   (:policy :fast-safe)
   (:translate c::fast-unary-ftruncate)
   (:guard (backend-featurep :sparc-v9))
-  (:note "inline ftruncate")
+  (:note _N"inline ftruncate")
   (:generator 2
     (inst fdtox r x)
     (inst fxtod r r)))
@@ -1695,7 +1696,7 @@
 	      (backend-featurep :sparc-v9)))
   (:arg-types double-float)
   (:result-types double-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -1710,7 +1711,7 @@
   (:policy :fast-safe)
   (:arg-types long-float)
   (:result-types long-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -1729,7 +1730,7 @@
   (:results (r :scs (complex-single-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-single-stack))))
   (:result-types complex-single-float)
-  (:note "inline complex single-float creation")
+  (:note _N"inline complex single-float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -1757,7 +1758,7 @@
   (:results (r :scs (complex-double-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-double-stack))))
   (:result-types complex-double-float)
-  (:note "inline complex double-float creation")
+  (:note _N"inline complex double-float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -1786,7 +1787,7 @@
   (:results (r :scs (complex-long-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-long-stack))))
   (:result-types complex-long-float)
-  (:note "inline complex long-float creation")
+  (:note _N"inline complex long-float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -1835,12 +1836,12 @@
 
 (define-vop (realpart/complex-single-float complex-single-float-value)
   (:translate realpart)
-  (:note "complex single float realpart")
+  (:note _N"complex single float realpart")
   (:variant :real))
 
 (define-vop (imagpart/complex-single-float complex-single-float-value)
   (:translate imagpart)
-  (:note "complex single float imagpart")
+  (:note _N"complex single float imagpart")
   (:variant :imag))
 
 (define-vop (complex-double-float-value)
@@ -1873,12 +1874,12 @@
 
 (define-vop (realpart/complex-double-float complex-double-float-value)
   (:translate realpart)
-  (:note "complex double float realpart")
+  (:note _N"complex double float realpart")
   (:variant :real))
 
 (define-vop (imagpart/complex-double-float complex-double-float-value)
   (:translate imagpart)
-  (:note "complex double float imagpart")
+  (:note _N"complex double float imagpart")
   (:variant :imag))
 
 #+long-float
@@ -1907,13 +1908,13 @@
 #+long-float
 (define-vop (realpart/complex-long-float complex-long-float-value)
   (:translate realpart)
-  (:note "complex long float realpart")
+  (:note _N"complex long float realpart")
   (:variant :real))
 
 #+long-float
 (define-vop (imagpart/complex-long-float complex-long-float-value)
   (:translate imagpart)
-  (:note "complex long float imagpart")
+  (:note _N"complex long float imagpart")
   (:variant :imag))
 
 
@@ -1947,7 +1948,7 @@
 	    (:results (r :scs (,complex-reg)))
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float arithmetic")
+	    (:note _N"inline complex float arithmetic")
 	    (:translate %negate)
 	    (:generator ,cost
 	      (let ((xr (,real-tn x))
@@ -1973,7 +1974,7 @@
 	   (:arg-types ,c-type ,c-type)
 	   (:result-types ,c-type)
 	   (:policy :fast-safe)
-	   (:note "inline complex float arithmetic")
+	   (:note _N"inline complex float arithmetic")
 	   (:translate ,op)
 	   (:generator ,cost
 	    (let ((xr (,real-part x))
@@ -2020,7 +2021,7 @@
 	    (:policy :fast-safe)
 	    (:temporary (:scs (,real-reg)) zero)
 	    (:temporary (:scs (descriptor-reg)) zero-val)
-	    (:note "inline complex float/float arithmetic")
+	    (:note _N"inline complex float/float arithmetic")
 	    (:translate ,op)
 	    (:generator ,cost
 	      (let ((xr (,real-part x))
@@ -2072,7 +2073,7 @@
 	    (:temporary (:scs (,real-reg)) zero)
 	    (:temporary (:scs (descriptor-reg)) zero-val)
 	    (:policy :fast-safe)
-	    (:note "inline complex float/float arithmetic")
+	    (:note _N"inline complex float/float arithmetic")
 	    (:translate +)
 	    (:generator ,cost
 	      (let ((xr (,real-part x))
@@ -2115,7 +2116,7 @@
 	    (:temporary (:scs (,real-reg)) zero)
 	    (:temporary (:scs (descriptor-reg)) zero-val)
 	    (:policy :fast-safe)
-	    (:note "inline complex float/float arithmetic")
+	    (:note _N"inline complex float/float arithmetic")
 	    (:translate -)
 	    (:generator ,cost
 	      (let ((yr (,real-part y))
@@ -2147,7 +2148,7 @@
 	    (:arg-types ,c-type ,c-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float multiplication")
+	    (:note _N"inline complex float multiplication")
 	    (:translate *)
 	    (:temporary (:scs (,real-reg)) p1 p2)
 	    (:generator ,cost
@@ -2210,7 +2211,7 @@
 	     (:arg-types ,c-type ,r-type)
 	     (:result-types ,c-type)
 	     (:policy :fast-safe)
-	     (:note "inline complex float arithmetic")
+	     (:note _N"inline complex float arithmetic")
 	     (:translate *)
 	     (:temporary (:scs (,real-sc-type)) temp)
 	     (:generator ,cost
@@ -2233,7 +2234,7 @@
 	     (:arg-types ,r-type ,c-type)
 	     (:result-types ,c-type)
 	     (:policy :fast-safe)
-	     (:note "inline complex float arithmetic")
+	     (:note _N"inline complex float arithmetic")
 	     (:translate *)
 	     (:temporary (:scs (,real-sc-type)) temp)
 	     (:generator ,cost
@@ -2304,7 +2305,7 @@
 	    (:arg-types ,c-type ,c-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float division")
+	    (:note _N"inline complex float division")
 	    (:translate /)
 	    (:temporary (:sc ,real-reg) ratio)
 	    (:temporary (:sc ,real-reg) den)
@@ -2376,7 +2377,7 @@
 	   (:arg-types ,c-type ,r-type)
 	   (:result-types ,c-type)
 	   (:policy :fast-safe)
-	   (:note "inline complex float arithmetic")
+	   (:note _N"inline complex float arithmetic")
 	   (:translate /)
 	   (:temporary (:sc ,real-sc-type) tmp)
 	   (:generator ,cost
@@ -2413,7 +2414,7 @@
 	    (:arg-types ,r-type ,c-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float division")
+	    (:note _N"inline complex float division")
 	    (:translate /)
 	    (:temporary (:sc ,real-reg) ratio)
 	    (:temporary (:sc ,real-reg) den)
@@ -2472,7 +2473,7 @@
 	    (:arg-types ,c-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex conjugate")
+	    (:note _N"inline complex conjugate")
 	    (:translate conjugate)
 	    (:generator ,cost
 	      (let ((xr (,real-part x))
@@ -2532,7 +2533,7 @@
 	      (:conditional)
 	      (:info target not-p)
 	      (:policy :fast-safe)
-	      (:note "inline complex float/float comparison")
+	      (:note _N"inline complex float/float comparison")
 	      (:vop-var vop)
 	      (:save-p :compute-only)
 	      (:temporary (:sc ,real-reg) fp-zero)
@@ -2559,7 +2560,7 @@
 	      (:conditional)
 	      (:info target not-p)
 	      (:policy :fast-safe)
-	      (:note "inline complex float/float comparison")
+	      (:note _N"inline complex float/float comparison")
 	      (:vop-var vop)
 	      (:save-p :compute-only)
 	      (:temporary (:sc ,real-reg) fp-zero)
@@ -2599,7 +2600,7 @@
 	    (:conditional)
 	    (:info target not-p)
 	    (:policy :fast-safe)
-	    (:note "inline complex float comparison")
+	    (:note _N"inline complex float comparison")
 	    (:vop-var vop)
 	    (:save-p :compute-only)
 	    (:guard (not (backend-featurep :sparc-v9)))
@@ -2636,7 +2637,7 @@
 	    (:conditional)
 	    (:info target not-p)
 	    (:policy :fast-safe)
-	    (:note "inline complex float comparison")
+	    (:note _N"inline complex float comparison")
 	    (:vop-var vop)
 	    (:save-p :compute-only)
 	    (:temporary (:sc descriptor-reg) true)
@@ -2736,13 +2737,13 @@
 		     (inst ,cmov ,max r x ,cc)
 		     (inst ,cmov ,min r y ,cc))))))))
   (frob max single-reg single-float fcmps cfmovs 3
-	:fcc0 :ge :l "inline float max")
+	:fcc0 :ge :l _N"inline float max")
   (frob max double-reg double-float fcmpd cfmovd 3
-	:fcc0 :ge :l "inline float max")
+	:fcc0 :ge :l _N"inline float max")
   (frob min single-reg single-float fcmps cfmovs 3
-	:fcc0 :l :ge "inline float min")
+	:fcc0 :l :ge _N"inline float min")
   (frob min double-reg double-float fcmpd cfmovd 3
-	:fcc0 :l :ge "inline float min")
+	:fcc0 :l :ge _N"inline float min")
   ;; Strictly speaking these aren't float ops, but it's convenient to
   ;; do them here.
   ;;
@@ -2750,21 +2751,21 @@
   ;; 32-bit integer operands, we add 2 more to account for the
   ;; untagging of fixnums, if necessary.
   (frob max signed-reg signed-num cmp cmove 5
-	:icc :ge :lt "inline (signed-byte 32) max")
+	:icc :ge :lt _N"inline (signed-byte 32) max")
   (frob max unsigned-reg unsigned-num cmp cmove 5
-	:icc :ge :lt "inline (unsigned-byte 32) max")
+	:icc :ge :lt _N"inline (unsigned-byte 32) max")
   ;; For fixnums, make the cost lower so we don't have to untag the
   ;; numbers.
   (frob max any-reg tagged-num cmp cmove 3
-	:icc :ge :lt "inline fixnum max")
+	:icc :ge :lt _N"inline fixnum max")
   (frob min signed-reg signed-num cmp cmove 5
-	:icc :lt :ge "inline (signed-byte 32) min")
+	:icc :lt :ge _N"inline (signed-byte 32) min")
   (frob min unsigned-reg unsigned-num cmp cmove 5
-	:icc :lt :ge "inline (unsigned-byte 32) min")
+	:icc :lt :ge _N"inline (unsigned-byte 32) min")
   ;; For fixnums, make the cost lower so we don't have to untag the
   ;; numbers.
   (frob min any-reg tagged-num cmp cmove 3
-	:icc :lt :ge "inline fixnum min"))
+	:icc :lt :ge _N"inline fixnum min"))
 	   
 #+nil
 (define-vop (max-boxed-double-float=>boxed-double-float)
@@ -2774,7 +2775,7 @@
   (:arg-types double-float double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline float max/min")
+  (:note _N"inline float max/min")
   (:translate %max-double-float)
   (:temporary (:scs (double-reg)) xval)
   (:temporary (:scs (double-reg)) yval)
@@ -2951,7 +2952,7 @@
   (:args (x :scs (double-double-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (double-double-reg) :load-if (not (location= x y))))
-  (:note "double-double float move")
+  (:note _N"double-double float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the double-float-regs are aligned to every second
@@ -2973,7 +2974,7 @@
   (:args (x :scs (double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
-  (:note "double-double float to pointer coercion")
+  (:note _N"double-double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y ndescr vm::double-double-float-type
 			       vm::double-double-float-size))
@@ -2994,7 +2995,7 @@
 (define-vop (move-to-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (double-double-reg)))
-  (:note "pointer to double-double float coercion")
+  (:note _N"pointer to double-double float coercion")
   (:generator 2
     (let ((hi-tn (double-double-reg-hi-tn y)))
       (inst lddf hi-tn x (- (* double-double-float-hi-slot word-bytes)
@@ -3012,7 +3013,7 @@
   (:args (x :scs (double-double-reg) :target y)
 	 (nfp :scs (any-reg) :load-if (not (sc-is y double-double-reg))))
   (:results (y))
-  (:note "double-double float argument move")
+  (:note _N"double-double float argument move")
   (:generator 2
     (sc-case y
       (double-double-reg
@@ -3043,7 +3044,7 @@
   (:arg-types double-float double-float)
   (:result-types double-double-float)
   (:translate kernel::%make-double-double-float)
-  (:note "inline double-double float creation")
+  (:note _N"inline double-double float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -3092,12 +3093,12 @@
 
 (define-vop (hi/double-double-value double-double-float-value)
   (:translate kernel::double-double-hi)
-  (:note "double-double high part")
+  (:note _N"double-double high part")
   (:variant :hi))
 
 (define-vop (lo/double-double-value double-double-float-value)
   (:translate kernel::double-double-lo)
-  (:note "double-double low part")
+  (:note _N"double-double low part")
   (:variant :lo))
 
 
@@ -3110,7 +3111,7 @@
   (:results (r :scs (complex-double-double-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-double-double-stack))))
   (:result-types complex-double-double-float)
-  (:note "inline complex double-double float creation")
+  (:note _N"inline complex double-double float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -3189,12 +3190,12 @@
 
 (define-vop (realpart/complex-double-double-float complex-double-double-float-value)
   (:translate realpart)
-  (:note "complex double-double float realpart")
+  (:note _N"complex double-double float realpart")
   (:variant :real))
 
 (define-vop (imagpart/complex-double-double-float complex-double-double-float-value)
   (:translate imagpart)
-  (:note "complex double-double float imagpart")
+  (:note _N"complex double-double float imagpart")
   (:variant :imag))
 
 ); progn
diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 46e4f82bd645cccbc94de9533c5c57f9aa9de433..3039df0459ac3907dfc8bb288b5684770dab0e68 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.53 2006/06/30 18:41:32 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.54 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 (use-package "NEW-ASSEM")
 (use-package "EXT")
@@ -34,12 +35,12 @@
     (t
      (if (eq (sb-name (sc-sb (tn-sc tn))) 'registers)
 	 (tn-offset tn)
-	 (error "~S isn't a register." tn)))))
+	 (error _"~S isn't a register." tn)))))
 
 (defun fp-reg-tn-encoding (tn)
   (declare (type tn tn))
   (unless (eq (sb-name (sc-sb (tn-sc tn))) 'float-registers)
-    (error "~S isn't a floating-point register." tn))
+    (error _"~S isn't a floating-point register." tn))
   (let ((offset (tn-offset tn)))
     (cond ((> offset 31)
 	   ;; Use the sparc v9 double float register encoding.
@@ -55,7 +56,7 @@
 			      :opcode-column-width 11)
 
 (defvar *disassem-use-lisp-reg-names* t
-  "If non-NIL, print registers using the Lisp register names.
+  _N"If non-NIL, print registers using the Lisp register names.
 Otherwise, use the Sparc register names")
 
 (def-vm-support-routine location-number (loc)
@@ -101,7 +102,7 @@ Otherwise, use the Sparc register names")
 	   (cond ((null name) nil)
 		 (t (make-symbol (concatenate 'string "%" name)))))
        sparc::*register-names*)
-  "The Lisp names for the Sparc integer registers")
+  _N"The Lisp names for the Sparc integer registers")
 
 (defparameter sparc-reg-symbols
   (map 'vector
@@ -112,7 +113,7 @@ Otherwise, use the Sparc register names")
 	 "O0" "O1" "O2" "O3" "O4" "O5" "O6" "O7"
 	 "L0" "L1" "L2" "L3" "L4" "L5" "L6" "L7"
 	 "I0" "I1" "I2" "I3" "I4" "I5" "I6" "I7"))
-  "The standard names for the Sparc integer registers")
+  _N"The standard names for the Sparc integer registers")
     
 (defun get-reg-name (index)
   (if *disassem-use-lisp-reg-names*
@@ -120,7 +121,7 @@ Otherwise, use the Sparc register names")
       (aref sparc-reg-symbols index)))
 
 (defvar *note-sethi-inst* nil
-  "An alist for the disassembler indicating the target register and
+  _N"An alist for the disassembler indicating the target register and
 value used in a SETHI instruction.  This is used to make annotations
 about function addresses and register values.")
 
@@ -290,7 +291,7 @@ about function addresses and register values.")
 		   (= rd alloc-offset)
 		   (not *pseudo-atomic-set*))
 	      ;; "ADD 4, %ALLOC" sets the flag
-	      (disassem:note "Set pseudo-atomic flag" dstate)
+	      (disassem:note _"Set pseudo-atomic flag" dstate)
 	      (setf *pseudo-atomic-set* t))
 	     ((= rd alloc-offset)
 	      ;; "ADD n, %ALLOC" is either allocating space or
@@ -298,17 +299,17 @@ about function addresses and register values.")
 	      (cond (immed-p
 		     (cond ((= immed-val -4)
 			    (disassem:note
-			     (format nil "Reset pseudo-atomic")
+			     (format nil _"Reset pseudo-atomic")
 			     dstate)
 			    (setf *pseudo-atomic-set* nil))
 			   (t
 			    (disassem:note
-			     (format nil "Allocating ~D bytes" immed-val)
+			     (format nil _"Allocating ~D bytes" immed-val)
 			     dstate))))
 		    (t
 		     ;; Some other allocation
 		     (disassem:note
-			     (format nil "Allocating bytes")
+			     (format nil _"Allocating bytes")
 			     dstate))))))
       ((and (= rs1 zero-offset) *pseudo-atomic-set*)
        ;; "ADD %ZERO, num, RD" inside a pseudo-atomic is very
@@ -317,7 +318,7 @@ about function addresses and register values.")
        (let ((type (second (assoc (logand immed-val #xff) header-word-type-alist)))
 	     (size (ldb (byte 24 8) immed-val)))
 	 (when type
-	   (disassem:note (format nil "Header word ~A, size ~D?" type size)
+	   (disassem:note (format nil _"Header word ~A, size ~D?" type size)
 			  dstate)))))))
 
 (defun handle-or-inst (rs1 immed-val rd dstate immed-p)
@@ -330,7 +331,7 @@ about function addresses and register values.")
 		 (= rd alloc-offset)
 		 (not *pseudo-atomic-set*))
 	    ;; "OR 4, %ALLOC" sets the flag
-	    (disassem:note "Set pseudo-atomic flag" dstate)
+	    (disassem:note _"Set pseudo-atomic flag" dstate)
 	    (setf *pseudo-atomic-set* t))))))
 
 (defun handle-andn-inst (rs1 immed-val rd dstate immed-p)
@@ -343,7 +344,7 @@ about function addresses and register values.")
 		 *pseudo-atomic-set*)
 	    ;; "ANDN 4, %ALLOC" resets the flag
 	    ;;(format t "Got reset~%")
-	    (disassem:note "Reset pseudo-atomic flag" dstate)
+	    (disassem:note _"Reset pseudo-atomic flag" dstate)
 	    (setf *pseudo-atomic-set* nil))))))
 
 (defun handle-jmpl-inst (rs1 immed-val rd dstate)
@@ -383,7 +384,7 @@ about function addresses and register values.")
 (defun handle-andcc-inst (rs1 immed-val rd dstate)
   ;; ANDCC %ALLOC, 3, %ZERO instruction
   (when (and (= rs1 alloc-offset) (= rd zero-offset) (= immed-val 3))
-    (disassem:note "pseudo-atomic interrupted?" dstate)))
+    (disassem:note _"pseudo-atomic interrupted?" dstate)))
 	 
 (eval-when (compile load eval)
 (defun reg-arg-printer (value stream dstate)
@@ -455,7 +456,7 @@ about function addresses and register values.")
 
 (defun branch-condition (condition)
   (or (position condition branch-conditions)
-      (error "Unknown branch condition: ~S~%Must be one of: ~S"
+      (error _"Unknown branch condition: ~S~%Must be one of: ~S"
 	     condition branch-conditions)))
 
 (defconstant branch-cond-true
@@ -477,7 +478,7 @@ about function addresses and register values.")
 
 (defun fp-branch-condition (condition)
   (or (position condition branch-fp-conditions)
-      (error "Unknown fp-branch condition: ~S~%Must be one of: ~S"
+      (error _"Unknown fp-branch condition: ~S~%Must be one of: ~S"
 	     condition branch-fp-conditions)))
 
 
@@ -546,12 +547,12 @@ about function addresses and register values.")
 (defun integer-condition (condition-reg)
   (declare (type (member :icc :xcc) condition-reg))
   (or (position condition-reg integer-condition-registers)
-      (error "Unknown integer condition register:  ~S~%"
+      (error _"Unknown integer condition register:  ~S~%"
 	     condition-reg)))
 
 (defun branch-prediction (pred)
   (or (position pred branch-predictions)
-      (error "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
+      (error _"Unknown branch prediction:  ~S~%Must be one of: ~S~%"
 	     pred branch-predictions)))
 
 (defconstant branch-pred-printer
@@ -766,12 +767,12 @@ about function addresses and register values.")
   (let ((posn (position condition-reg cond-move-condition-registers)))
     (if posn
 	(truncate posn 4)
-	(error "Unknown conditional move condition register:  ~S~%"
+	(error _"Unknown conditional move condition register:  ~S~%"
 	       condition-reg))))
 
 (defun cond-move-condition (condition-reg)
   (or (position condition-reg cond-move-condition-registers)
-      (error "Unknown conditional move condition register:  ~S~%" condition-reg)))
+      (error _"Unknown conditional move condition register:  ~S~%" condition-reg)))
 
 (defconstant cond-move-printer
   `(:name cond :tab
@@ -828,7 +829,7 @@ about function addresses and register values.")
 
 (defun register-condition (rcond)
   (or (position rcond cond-move-integer-conditions)
-      (error "Unknown register condition:  ~S~%" rcond)))
+      (error _"Unknown register condition:  ~S~%" rcond)))
 
 (disassem:define-instruction-format
     (format-4-cond-move-integer 32 :default-printer cond-move-integer-printer)
@@ -980,7 +981,7 @@ about function addresses and register values.")
 			  op3 (reg-tn-encoding src1) 1 src2))
     (fixup
      (unless (or load-store fixup)
-       (error "Fixups aren't allowed."))
+       (error _"Fixups aren't allowed."))
      (note-fixup segment :add src2)
      (emit-format-3-immed segment op
 			  (if dest-kind
@@ -1697,9 +1698,9 @@ about function addresses and register values.")
     (let ((*package* (find-package :vm)))
       (case value
 	(#.pseudo-atomic-trap
-	 (disassem:note "Pseudo atomic interrupted trap?" dstate))
+	 (disassem:note _"Pseudo atomic interrupted trap?" dstate))
 	(#.allocation-trap
-	 (disassem:note "Allocation trap" dstate)))
+	 (disassem:note _"Allocation trap" dstate)))
       (format stream "~A" value))))
 
 ;; The Sparc Compliance Definition 2.4.1 says only trap numbers 16-31
@@ -1741,8 +1742,8 @@ about function addresses and register values.")
 	;; src2 shouldn't be given (or should be NIL) in this case.
 	(assert (null src2))
 	(unless (typep src1-or-imm '(integer 16 31))
-	  (cerror "Use it anyway"
-		  "Immediate trap number ~A specified, but only trap numbers
+	  (cerror _"Use it anyway"
+		  _"Immediate trap number ~A specified, but only trap numbers
    16 to 31 are available to the application"
 		  src1-or-imm))
 	(emit-format-4-trap segment
diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index e3d8a9b50e37d1e82ee2afd1ad2b4984f3934560..9b771f1707572b7e3ea1fb20e8253c2541d82f42 100644
--- a/compiler/sparc/macros.lisp
+++ b/compiler/sparc/macros.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.34 2006/06/30 18:41:32 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.35 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.34 2006/06/30 18:41:32 rtoy Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.35 2010/03/19 15:19:01 rtoy Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -17,12 +17,13 @@
 ;;; 
 
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;; Instruction-like macros.
 
 (defmacro move (dst src)
-  "Move SRC into DST unless they are location=."
+  _N"Move SRC into DST unless they are location=."
   (once-only ((n-dst dst)
 	      (n-src src))
     `(unless (location= ,n-dst ,n-src)
@@ -108,7 +109,7 @@
   (frob function))
 
 (defmacro load-type (target source &optional (offset 0))
-  "Loads the type bits of a pointer into target independent of
+  _N"Loads the type bits of a pointer into target independent of
   byte-ordering issues."
   (once-only ((n-target target)
 	      (n-source source)
@@ -123,14 +124,14 @@
 ;;; return instructions. 
 
 (defmacro lisp-jump (function)
-  "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
+  _N"Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
   `(progn
      (inst j ,function
 	   (- (ash function-code-offset word-shift) vm:function-pointer-type))
      (move code-tn ,function)))
 
 (defmacro lisp-return (return-pc &key (offset 0) (frob-code t))
-  "Return to RETURN-PC."
+  _N"Return to RETURN-PC."
   `(progn
      (inst j ,return-pc
 	   (- (* (1+ ,offset) word-bytes) other-pointer-type))
@@ -139,7 +140,7 @@
 	  '(inst nop))))
 
 (defmacro emit-return-pc (label)
-  "Emit a return-pc header word.  LABEL is the label to use for this return-pc."
+  _N"Emit a return-pc header word.  LABEL is the label to use for this return-pc."
   `(progn
      (align lowtag-bits)
      (emit-label ,label)
@@ -173,7 +174,7 @@
 ;;; MAYBE-LOAD-STACK-TN  --  Interface
 ;;;
 (defmacro maybe-load-stack-tn (reg reg-or-stack)
-  "Move the TN Reg-Or-Stack into Reg if it isn't already there."
+  _N"Move the TN Reg-Or-Stack into Reg if it isn't already there."
   (once-only ((n-reg reg)
 	      (n-stack reg-or-stack))
     `(sc-case ,n-reg
@@ -294,7 +295,7 @@
 					    &key (lowtag other-pointer-type)
 					    stack-p)
 				 &body body)
-  "Do stuff to allocate an other-pointer object of fixed Size with a single
+  _N"Do stuff to allocate an other-pointer object of fixed Size with a single
   word header having the specified Type-Code.  The result is placed in
   Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly used
   by the body.)  The body is placed inside the PSEUDO-ATOMIC, and presumably
@@ -335,13 +336,13 @@
 		   (push (cons start end) tests))))
 	(dolist (value values)
 	  (cond ((< value min)
-		 (error "~S is less than the specified minimum of ~S"
+		 (error _"~S is less than the specified minimum of ~S"
 			value min))
 		((> value max)
-		 (error "~S is greater than the specified maximum of ~S"
+		 (error _"~S is greater than the specified maximum of ~S"
 			value max))
 		((not (zerop (rem (- value min) seperation)))
-		 (error "~S isn't an even multiple of ~S from ~S"
+		 (error _"~S isn't an even multiple of ~S from ~S"
 			value seperation min))
 		((null start)
 		 (setf start value))
@@ -365,7 +366,7 @@
 		(let ((start (car test))
 		      (end (cdr test)))
 		  (cond ((and (= start min) (= end max))
-			 (warn "The values ~S cover the entire range from ~
+			 (warn _"The values ~S cover the entire range from ~
 			 ~S to ~S [step ~S]."
 			       values min max seperation)
 			 (push `(unless ,not-p (inst b ,target)) insts))
@@ -467,18 +468,18 @@
 	 (headers (set-difference extended immediate-types :test #'eql))
 	 (function-p nil))
     (unless type-codes
-      (error "Must supply at least on type for test-type."))
+      (error _"Must supply at least on type for test-type."))
     (when (and headers (member other-pointer-type lowtags))
-      (warn "OTHER-POINTER-TYPE supersedes the use of ~S" headers)
+      (warn _"OTHER-POINTER-TYPE supersedes the use of ~S" headers)
       (setf headers nil))
     (when (and immediates
 	       (or (member other-immediate-0-type lowtags)
 		   (member other-immediate-1-type lowtags)))
-      (warn "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S" immediates)
+      (warn _"OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S" immediates)
       (setf immediates nil))
     (when (intersection headers function-subtypes)
       (unless (subsetp headers function-subtypes)
-	(error "Can't test for mix of function subtypes and normal ~
+	(error _"Can't test for mix of function subtypes and normal ~
 		header types."))
       (setq function-p t))
       
@@ -545,20 +546,20 @@
 	(align word-shift)))))
 
 (defmacro error-call (vop error-code &rest values)
-  "Cause an error.  ERROR-CODE is the error to cause."
+  _N"Cause an error.  ERROR-CODE is the error to cause."
   (cons 'progn
 	(emit-error-break vop error-trap error-code values)))
 
 
 (defmacro cerror-call (vop label error-code &rest values)
-  "Cause a continuable error.  If the error is continued, execution resumes at
+  _N"Cause a continuable error.  If the error is continued, execution resumes at
   LABEL."
   `(progn
      (inst b ,label)
      ,@(emit-error-break vop cerror-trap error-code values)))
 
 (defmacro generate-error-code (vop error-code &rest values)
-  "Generate-Error-Code Error-code Value*
+  _N"Generate-Error-Code Error-code Value*
   Emit code for an error with the specified Error-Code and context Values."
   `(assemble (*elsewhere*)
      (let ((start-lab (gen-label)))
@@ -567,7 +568,7 @@
        start-lab)))
 
 (defmacro generate-cerror-code (vop error-code &rest values)
-  "Generate-CError-Code Error-code Value*
+  _N"Generate-CError-Code Error-code Value*
   Emit code for a continuable error with the specified Error-Code and
   context Values.  If the error is continued, execution resumes after
   the GENERATE-CERROR-CODE form."
diff --git a/compiler/sparc/move.lisp b/compiler/sparc/move.lisp
index 20fa8d394a6d2adc35224d9897d30d4d2737143b..0da7a81869ac95f4743f168298de73a8e5993b31 100644
--- a/compiler/sparc/move.lisp
+++ b/compiler/sparc/move.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.15 2004/05/13 14:37:06 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.16 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.15 2004/05/13 14:37:06 rtoy Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.16 2010/03/19 15:19:01 rtoy Rel $
 ;;;
 ;;;    This file contains the SPARC VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -18,6 +18,7 @@
 ;;; SPARC conversion by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 (define-move-function (load-immediate 1) (vop x y)
@@ -162,7 +163,7 @@
   (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (signed-reg unsigned-reg)))
   (:arg-types tagged-num)
-  (:note "fixnum untagging")
+  (:note _N"fixnum untagging")
   (:generator 1
     (inst sran y x fixnum-tag-bits)))
 
@@ -174,7 +175,7 @@
 (define-vop (move-to-word-c)
   (:args (x :scs (constant)))
   (:results (y :scs (signed-reg unsigned-reg)))
-  (:note "constant load")
+  (:note _N"constant load")
   (:generator 1
     (inst li y (tn-value x))))
 
@@ -187,7 +188,7 @@
 (define-vop (move-to-word/integer)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (signed-reg unsigned-reg)))
-  (:note "integer to untagged word coercion")
+  (:note _N"integer to untagged word coercion")
   (:temporary (:scs (non-descriptor-reg)) temp)
   (:generator 4
     (let ((done (gen-label)))
@@ -205,7 +206,7 @@
 (define-vop (move-to-word/integer)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (signed-reg unsigned-reg)))
-  (:note "integer to untagged word coercion")
+  (:note _N"integer to untagged word coercion")
   (:temporary (:scs (non-descriptor-reg)) temp)
   (:generator 4
     (let ((done (gen-label)))
@@ -231,7 +232,7 @@
   (:args (x :scs (signed-reg unsigned-reg)))
   (:results (y :scs (any-reg descriptor-reg)))
   (:result-types tagged-num)
-  (:note "fixnum tagging")
+  (:note _N"fixnum tagging")
   (:generator 1
     (inst slln y x fixnum-tag-bits)))
 ;;;
@@ -246,7 +247,7 @@
   (:args (arg :scs (signed-reg unsigned-reg) :target x))
   (:results (y :scs (any-reg descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) x temp)
-  (:note "signed word to integer coercion")
+  (:note _N"signed word to integer coercion")
   (:generator 20
     (move x arg)
     (let ((done (gen-label)))
@@ -284,7 +285,7 @@
   (:args (arg :scs (signed-reg unsigned-reg) :target x))
   (:results (y :scs (any-reg descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) x temp)
-  (:note "unsigned word to integer coercion")
+  (:note _N"unsigned word to integer coercion")
   (:generator 20
     (move x arg)
     (let ((done (gen-label))
@@ -315,7 +316,7 @@
   (:args (arg :scs (signed-reg unsigned-reg) :target x))
   (:results (y :scs (any-reg descriptor-reg)))
   (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) x temp)
-  (:note "unsigned word to integer coercion")
+  (:note _N"unsigned word to integer coercion")
   (:generator 20
     (move x arg)
     (let ((done (gen-label)))
@@ -351,7 +352,7 @@
 	       :load-if (not (location= x y))))
   (:effects)
   (:affected)
-  (:note "word integer move")
+  (:note _N"word integer move")
   (:generator 0
     (move y x)))
 ;;;
@@ -367,7 +368,7 @@
 	     :load-if (not (sc-is y sap-reg))))
   (:results (y))
   (:temporary (:scs (non-descriptor-reg)) temp)
-  (:note "word integer argument move")
+  (:note _N"word integer argument move")
   (:generator 0
     (sc-case y
       ((signed-reg unsigned-reg)
@@ -421,7 +422,7 @@
   (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (signed64-reg unsigned64-reg)))
   (:arg-types tagged-num)
-  (:note "fixnum untagging")
+  (:note _N"fixnum untagging")
   (:generator 0
     ;; Sign-extend the fixnum and then remove the tag.  (Can't just
     ;; remove the tag because we don't know for sure if X has been
@@ -436,7 +437,7 @@
 (define-vop (move-to-64bit-word-c)
   (:args (x :scs (constant)))
   (:results (y :scs (signed64-reg unsigned64-reg)))
-  (:note "constant load")
+  (:note _N"constant load")
   (:generator 1
     (inst li64 y (tn-value x))))
 
@@ -447,7 +448,7 @@
 (define-vop (move-to-64bit-word/integer)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (signed64-reg)))
-  (:note "integer to untagged word coercion")
+  (:note _N"integer to untagged word coercion")
   (:temporary (:scs (signed64-reg)) temp)
   (:generator 4
     (let ((done (gen-label)))
@@ -517,7 +518,7 @@
   (:args (arg :scs (signed64-reg) :target x))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (signed64-reg) :from (:argument 0)) x temp)
-  (:note "signed 64-bit word to integer coercion")
+  (:note _N"signed 64-bit word to integer coercion")
   (:generator 20
     (move x arg)
     (let ((fixnum (gen-label))
@@ -557,7 +558,7 @@
   (:args (arg :scs (unsigned64-reg) :target x))
   (:results (y :scs (descriptor-reg)))
   (:temporary (:scs (unsigned64-reg) :from (:argument 0)) x temp)
-  (:note "unsigned 64-bit word to integer coercion")
+  (:note _N"unsigned 64-bit word to integer coercion")
   (:generator 20
     (move x arg)
     (let ((two-words (gen-label))
@@ -596,7 +597,7 @@
 (define-vop (move-to-unsigned-64bit-word/integer)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (unsigned64-reg)))
-  (:note "integer to untagged word coercion")
+  (:note _N"integer to untagged word coercion")
   (:temporary (:scs (unsigned64-reg)) temp)
   (:generator 4
     (let ((done (gen-label)))
@@ -643,7 +644,7 @@
 	       :load-if (not (location= x y))))
   (:effects)
   (:affected)
-  (:note "word integer move")
+  (:note _N"word integer move")
   (:generator 0
     (move y x)))
 
@@ -657,7 +658,7 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y sap-reg))))
   (:results (y))
-  (:note "word integer argument move")
+  (:note _N"word integer argument move")
   (:generator 0
     (sc-case y
       ((signed64-reg unsigned64-reg)
diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp
index 238c255da3bb3cb7a8acffe7cb8c2d50e5b7d806..3c835bb5b562bb994156fe69105f810975e28564 100644
--- a/compiler/sparc/parms.lisp
+++ b/compiler/sparc/parms.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.59 2009/11/25 00:04:40 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.60 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;;
 
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 (use-package "C")
 
 
@@ -86,41 +87,41 @@
 (eval-when (compile load eval)
 
 (defconstant word-bits 32
-  "Number of bits per word where a word holds one lisp descriptor.")
+  _N"Number of bits per word where a word holds one lisp descriptor.")
 
 (defconstant byte-bits 8
-  "Number of bits per byte where a byte is the smallest addressable object.")
+  _N"Number of bits per byte where a byte is the smallest addressable object.")
 
 (defconstant char-bits #-unicode 8 #+unicode 16
-  "Number of bits needed to represent a character")
+  _N"Number of bits needed to represent a character")
 
 (defconstant char-bytes (truncate char-bits byte-bits)
-  "Number of bytes needed to represent a character")
+  _N"Number of bytes needed to represent a character")
 
 (defconstant word-shift (1- (integer-length (/ word-bits byte-bits)))
-  "Number of bits to shift between word addresses and byte addresses.")
+  _N"Number of bits to shift between word addresses and byte addresses.")
 
 (defconstant word-bytes (/ word-bits byte-bits)
-  "Number of bytes in a word.")
+  _N"Number of bytes in a word.")
 
 (defconstant lowtag-bits 3
-  "Number of bits at the low end of a pointer used for type information.")
+  _N"Number of bits at the low end of a pointer used for type information.")
 
 (defconstant lowtag-mask (1- (ash 1 lowtag-bits))
-  "Mask to extract the low tag bits from a pointer.")
+  _N"Mask to extract the low tag bits from a pointer.")
   
 (defconstant lowtag-limit (ash 1 lowtag-bits)
-  "Exclusive upper bound on the value of the low tag bits from a
+  _N"Exclusive upper bound on the value of the low tag bits from a
   pointer.")
 
 (defconstant fixnum-tag-bits (1- lowtag-bits)
-  "Number of tag bits used for a fixnum")
+  _N"Number of tag bits used for a fixnum")
 
 (defconstant fixnum-tag-mask (1- (ash 1 fixnum-tag-bits))
-  "Mask to get the fixnum tag")
+  _N"Mask to get the fixnum tag")
 
 (defconstant positive-fixnum-bits (- word-bits fixnum-tag-bits 1)
-  "Maximum number of bits in a positive fixnum")
+  _N"Maximum number of bits in a positive fixnum")
 
 (defconstant float-sign-shift 31)
 
diff --git a/compiler/sparc/sap.lisp b/compiler/sparc/sap.lisp
index ae19ff5425882fd5453a18c220c76d11d82b0116..09998889a2767ea74d970e0a452648329156a77b 100644
--- a/compiler/sparc/sap.lisp
+++ b/compiler/sparc/sap.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/sap.lisp,v 1.10 2000/08/12 07:33:42 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/sap.lisp,v 1.11 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 ;;;; Moves and coercions:
@@ -23,7 +24,7 @@
 (define-vop (move-to-sap)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (sap-reg)))
-  (:note "pointer to SAP coercion")
+  (:note _N"pointer to SAP coercion")
   (:generator 1
     (loadw y x sap-pointer-slot other-pointer-type)))
 
@@ -38,7 +39,7 @@
   (:args (sap :scs (sap-reg) :to :save))
   (:temporary (:scs (non-descriptor-reg)) ndescr)
   (:results (res :scs (descriptor-reg)))
-  (:note "SAP to pointer coercion") 
+  (:note _N"SAP to pointer coercion") 
   (:generator 20
     (with-fixed-allocation (res ndescr sap-type sap-size)
       (storew sap res sap-pointer-slot other-pointer-type))))
@@ -55,7 +56,7 @@
 	    :load-if (not (location= x y))))
   (:results (y :scs (sap-reg)
 	       :load-if (not (location= x y))))
-  (:note "SAP move")
+  (:note _N"SAP move")
   (:effects)
   (:affected)
   (:generator 0
@@ -73,7 +74,7 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y sap-reg))))
   (:results (y))
-  (:note "SAP argument move")
+  (:note _N"SAP argument move")
   (:generator 0
     (sc-case y
       (sap-reg
diff --git a/compiler/sparc/static-fn.lisp b/compiler/sparc/static-fn.lisp
index efd4e2d90980d76c419d46e3e44b24648c1c1f9c..23fec49a772c216c968619d1ea41ab6eea2db33e 100644
--- a/compiler/sparc/static-fn.lisp
+++ b/compiler/sparc/static-fn.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/static-fn.lisp,v 1.7 2003/10/27 18:30:27 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/static-fn.lisp,v 1.8 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/static-fn.lisp,v 1.7 2003/10/27 18:30:27 toy Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/static-fn.lisp,v 1.8 2010/03/19 15:19:01 rtoy Exp $
 ;;;
 ;;; This file contains the VOPs and macro magic necessary to call static
 ;;; functions.
@@ -17,6 +17,7 @@
 ;;; Written by William Lott.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 
@@ -54,7 +55,7 @@
   (assert (and (<= num-args register-arg-count)
 	       (<= num-results register-arg-count))
 	  (num-args num-results)
-	  "Either too many args (~D) or too many results (~D).  Max = ~D"
+	  _"Either too many args (~D) or too many results (~D).  Max = ~D"
 	  num-args num-results register-arg-count)
   (let ((num-temps (max num-args num-results)))
     (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results))
diff --git a/compiler/sparc/system.lisp b/compiler/sparc/system.lisp
index 12021e9fe1fa4e84fe25a7e212343318ca003477..a8bda269f4fdceb9d769c84f966b1613eb3768c1 100644
--- a/compiler/sparc/system.lisp
+++ b/compiler/sparc/system.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.17 2004/01/16 03:24:49 toy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.18 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Mips conversion by William Lott and Christopher Hoover.
 ;;;
 (in-package "SPARC")
+(intl:textdomain "cmucl-sparc-vm")
 
 
 
@@ -279,7 +280,7 @@
 
 #+sparc-v9
 (defun read-cycle-counter ()
-  "Read the instruction cycle counter available on UltraSparcs.  The
+  _N"Read the instruction cycle counter available on UltraSparcs.  The
 64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit
 result is the first value."
   (read-cycle-counter))
diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 50ae3960feced0490a0dc2b3ab8d163f4da9e412..af77d1a4b2e0cddeb7e8ad1ea194c0396a70a359 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.170 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.171 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Propagate-float-type extension by Raymond Toy.
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 #+conservative-float-type
 (sys:register-lisp-feature :conservative-float-type)
@@ -67,7 +68,7 @@
 ;;; things out.
 ;;;
 (deftransform complement ((fun) * * :node node :when :both)
-  "open code"
+  _N"open code"
   (multiple-value-bind (min max)
 		       (function-type-nargs (continuation-type fun))
     (cond
@@ -81,7 +82,7 @@
       '#'(lambda (&rest args)
 	   (not (apply fun args))))
      (t
-      (give-up "Function doesn't have fixed argument count.")))))
+      (give-up _"Function doesn't have fixed argument count.")))))
 
 
 ;;;; List hackery:
@@ -148,7 +149,7 @@
 (defvar *extreme-nthcdr-open-code-limit* 20)
 
 (deftransform nthcdr ((n l) (unsigned-byte t) * :node node)
-  "convert NTHCDR to CAxxR"
+  _N"convert NTHCDR to CAxxR"
   (unless (constant-continuation-p n) (give-up))
   (let ((n (continuation-value n)))
     (when (> n
@@ -279,7 +280,7 @@
 			;; Bound exists, so keep it open still
 			(list new-val))))
 		   (t
-		    (error "Unknown bound type in make-interval!")))))
+		    (error _"Unknown bound type in make-interval!")))))
     (%make-interval :low (normalize-bound low)
 		    :high (normalize-bound high))))
 
@@ -770,7 +771,7 @@
 			      :high (bound-mul (interval-high x)
 					       (interval-high y)))))
 	    (t
-	     (error "This shouldn't happen!"))))))
+	     (error _"This shouldn't happen!"))))))
 
 ;;; INTERVAL-DIV
 ;;;
@@ -835,7 +836,7 @@
 			      :high (bound-div (interval-high top)
 					       (interval-low bot) t))))
 	    (t
-	     (error "This shouldn't happen!"))))))
+	     (error _"This shouldn't happen!"))))))
 
 
 ;;; INTERVAL-FUNC
@@ -2861,7 +2862,7 @@
 (deftransform %ldb ((size posn int)
 		    (fixnum fixnum integer)
 		    (unsigned-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   ;; Try to help out the compiler by precomputing things if SIZE or
   ;; POSN are constants.  This helps out modular arithmetic in some
   ;; cases.  (I think it's a deficiency in modular arithmetic that it
@@ -2881,7 +2882,7 @@
 (deftransform %mask-field ((size posn int)
 			   (fixnum fixnum integer)
 			   (unsigned-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   `(logand int
 	   (ash (ash ,(1- (ash 1 vm:word-bits))
 		     (- size ,vm:word-bits))
@@ -2895,7 +2896,7 @@
 (deftransform %dpb ((new size posn int)
 		    *
 		    (unsigned-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   `(let ((mask (ldb (byte size 0) -1)))
      (logior (ash (logand new mask) posn)
 	     (logand int (lognot (ash mask posn))))))
@@ -2903,7 +2904,7 @@
 (deftransform %dpb ((new size posn int)
 		    *
 		    (signed-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   `(let ((mask (ldb (byte size 0) -1)))
      (logior (ash (logand new mask) posn)
 	     (logand int (lognot (ash mask posn))))))
@@ -2911,7 +2912,7 @@
 (deftransform %deposit-field ((new size posn int)
 			      *
 			      (unsigned-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   `(let ((mask (ash (ldb (byte size 0) -1) posn)))
      (logior (logand new mask)
 	     (logand int (lognot mask)))))
@@ -2919,7 +2920,7 @@
 (deftransform %deposit-field ((new size posn int)
 			      *
 			      (signed-byte #.vm:word-bits))
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   `(let ((mask (ash (ldb (byte size 0) -1) posn)))
      (logior (logand new mask)
 	     (logand int (lognot mask)))))
@@ -2947,9 +2948,9 @@
 ;;; Handle the case of a constant boole-code.
 ;;;
 (deftransform boole ((op x y) * * :when :both)
-  "convert to inline logical ops"
+  _N"convert to inline logical ops"
   (unless (constant-continuation-p op)
-    (give-up "BOOLE code is not a constant."))
+    (give-up _"BOOLE code is not a constant."))
   (let ((control (continuation-value op)))
     (case control
       (#.boole-clr 0)
@@ -2969,7 +2970,7 @@
       (#.boole-orc1 '(logorc1 x y))
       (#.boole-orc2 '(logorc2 x y))
       (t
-       (abort-transform "~S illegal control arg to BOOLE." control)))))
+       (abort-transform _"~S illegal control arg to BOOLE." control)))))
 
 
 ;;;; Convert multiply/divide to shifts.
@@ -2977,7 +2978,7 @@
 ;;; If arg is a constant power of two, turn * into a shift.
 ;;;
 (deftransform * ((x y) (integer integer) * :when :both)
-  "convert x*2^k to shift"
+  _N"convert x*2^k to shift"
   (unless (constant-continuation-p y) (give-up))
   (let* ((y (continuation-value y))
 	 (y-abs (abs y))
@@ -3011,17 +3012,17 @@
 		     `(values (ash x ,shift)
 			      (- (logand x ,mask) ,delta))))))))
   (deftransform floor ((x y) (integer integer) *)
-    "convert division by 2^k to shift"
+    _N"convert division by 2^k to shift"
     (frob y nil))
   (deftransform ceiling ((x y) (integer integer) *)
-    "convert division by 2^k to shift"
+    _N"convert division by 2^k to shift"
     (frob y t)))
 
 
 ;;; Do the same for mod.
 ;;;
 (deftransform mod ((x y) (integer integer) * :when :both)
-  "convert remainder mod 2^k to LOGAND"
+  _N"convert remainder mod 2^k to LOGAND"
   (unless (constant-continuation-p y) (give-up))
   (let* ((y (continuation-value y))
 	 (y-abs (abs y))
@@ -3038,7 +3039,7 @@
 ;;; If arg is a constant power of two, turn truncate into a shift and mask.
 ;;;
 (deftransform truncate ((x y) (integer integer))
-  "convert division by 2^k to shift"
+  _N"convert division by 2^k to shift"
   (unless (constant-continuation-p y) (give-up))
   (let* ((y (continuation-value y))
 	 (y-abs (abs y))
@@ -3061,7 +3062,7 @@
 ;;; And the same for rem.
 ;;;
 (deftransform rem ((x y) (integer integer) * :when :both)
-  "convert remainder mod 2^k to LOGAND"
+  _N"convert remainder mod 2^k to LOGAND"
   (unless (constant-continuation-p y) (give-up))
   (let* ((y (continuation-value y))
 	 (y-abs (abs y))
@@ -3091,11 +3092,11 @@
   (destructuring-bind (name identity result) stuff
     (deftransform name ((x y) `(* (constant-argument (member ,identity))) '*
 			:eval-name t :when :both)
-      "fold identity operations"
+      _N"fold identity operations"
       result)))
 
 (deftransform logand ((x y) (* (constant-argument t)) *)
-  "fold identity operation"
+  _N"fold identity operation"
   (let ((y (continuation-value y)))
     (unless (and (plusp y)
                  (= y (1- (ash 1 (integer-length y)))))
@@ -3111,14 +3112,14 @@
 ;;;
 (deftransform - ((x y) ((constant-argument (member 0)) rational) *
 		 :when :both)
-  "convert (- 0 x) to negate"
+  _N"convert (- 0 x) to negate"
   '(%negate y))
 
 ;;; Restricted to rationals, because (* 0 -4.0) is -0.0.
 ;;;
 (deftransform * ((x y) (rational (constant-argument (member 0))) *
 		 :when :both)
-  "convert (* x 0) to 0."
+  _N"convert (* x 0) to 0."
   0)
 
 ;;; Fold (+ x 0).
@@ -3127,7 +3128,7 @@
 ;;;
 (deftransform + ((x y) (rational (constant-argument (member 0))) *
 		 :when :both)
-  "fold zero arg"
+  _N"fold zero arg"
   'x)
 
 
@@ -3178,7 +3179,7 @@
 		((and (eq class1 'float) (member class2 '(integer rational)))
 		 Nil)
 		(t
-		 (error "Unexpected types: ~s ~s~%" type1 type2)))))))
+		 (error _"Unexpected types: ~s ~s~%" type1 type2)))))))
 
 ;;; Fold (- x 0).
 ;;;
@@ -3186,7 +3187,7 @@
 ;;; float -0.0 then give up because (- -0.0 -0.0) is 0.0, not -0.0.
 ;;;
 (deftransform - ((x y) (t (constant-argument number)) * :when :both)
-  "fold zero arg"
+  _N"fold zero arg"
   (let ((val (continuation-value y)))
     (unless (and (zerop val)
 		 (not (and (floatp val) (minusp (float-sign val))))
@@ -3202,7 +3203,7 @@
   (destructuring-bind (name result minus-result) stuff
     (deftransform name ((x y) '(t (constant-argument real)) '* :eval-name t
 			:when :both)
-      "fold identity operations"
+      _N"fold identity operations"
       (let ((val (continuation-value y)))
 	(unless (and (= (abs val) 1)
 		     (not-more-contagious y x))
@@ -3213,7 +3214,7 @@
 ;;; N; convert (expt x 1/2) to sqrt.
 ;;;
 (deftransform expt ((x y) (t (constant-argument real)) *)
-  "recode as multiplication or sqrt"
+  _N"recode as multiplication or sqrt"
   (let ((val (continuation-value y)))
     ;; If Y would cause the result to be promoted to the same type as
     ;; Y, we give up.  If not, then the result will be the same type
@@ -3244,13 +3245,13 @@
 (dolist (name '(ash /))
   (deftransform name ((x y) '((constant-argument (integer 0 0)) integer) '*
 		      :eval-name t :when :both)
-    "fold zero arg"
+    _N"fold zero arg"
     0))
 
 (dolist (name '(truncate round floor ceiling))
   (deftransform name ((x y) '((constant-argument (integer 0 0)) integer) '*
 		      :eval-name t :when :both)
-    "fold zero arg"
+    _N"fold zero arg"
     '(values 0 0)))
 
     
@@ -3258,7 +3259,7 @@
 ;;;; Character operations:
 
 (deftransform char-equal ((a b) (base-char base-char))
-  "open code"
+  _N"open code"
   #-(and unicode (not unicode-bootstrap))
   '(let* ((ac (char-code a))
 	  (bc (char-code b))
@@ -3283,7 +3284,7 @@
 	    (lisp::equal-char-code b)))))
 
 (deftransform char-upcase ((x) (base-char))
-  "open code"
+  _N"open code"
   #-(and unicode (not unicode-bootstrap))
   '(if (lower-case-p x)
        (code-char (- (char-code x) 32))
@@ -3295,7 +3296,7 @@
 	   (t x))))
 
 (deftransform char-downcase ((x) (base-char))
-  "open code"
+  _N"open code"
   #-(and unicode (not unicode-bootstrap))
   '(if (upper-case-p x)
        (code-char (+ (char-code x) 32))
@@ -3359,7 +3360,7 @@
 ;;;    that case, otherwise give an efficency note.
 ;;;
 (deftransform eql ((x y) * * :when :both)
-  "convert to simpler equality predicate"
+  _N"convert to simpler equality predicate"
   (let ((x-type (continuation-type x))
 	(y-type (continuation-type y))
 	(char-type (specifier-type 'character))
@@ -3389,7 +3390,7 @@
 ;;; and the same for both.
 ;;; 
 (deftransform = ((x y) * * :when :both)
-  "open code"
+  _N"open code"
   (let ((x-type (continuation-type x))
 	(y-type (continuation-type y)))
     (if (and (csubtypep x-type (specifier-type 'number))
@@ -3409,8 +3410,8 @@
 	       ;; to EQL.
 	       '(eql x y))
 	      (t
-	       (give-up "Operands might not be the same type.")))
-	(give-up "Operands might not be the same type."))))
+	       (give-up _"Operands might not be the same type.")))
+	(give-up _"Operands might not be the same type."))))
 
 
 ;;; Numeric-Type-Or-Lose  --  Interface
@@ -3731,10 +3732,10 @@
       (cond ((stringp min-args)
 	     (compiler-warning "~a" min-args))
 	    ((< nargs min-args)
-	     (compiler-warning "~s: too few args (~d), need at least ~d"
+	     (compiler-warning _N"~s: too few args (~d), need at least ~d"
 			       context nargs min-args))
 	    ((> nargs max-args)
-	     (compiler-note "~s: too many args (~d), wants at most ~d"
+	     (compiler-note _N"~s: too many args (~d), wants at most ~d"
 			    context nargs max-args))))))
 
 (defun check-format-args-1 (string args context)
@@ -3753,7 +3754,7 @@
 (deftransform format ((dest control &rest args) (t simple-string &rest t) *)
   (cond ((policy nil (> speed space))
 	 (unless (constant-continuation-p control)
-	   (give-up "Control string is not a constant."))
+	   (give-up _"Control string is not a constant."))
 	 (let ((string (continuation-value control)))
 	   (check-format-args-1 string args 'format)
 	   (let ((arg-names (loop repeat (length args) collect (gensym))))
@@ -3958,7 +3959,7 @@
               )))))))
 
 (defvar *enable-modular-arithmetic* t
-  "When non-NIL, the compiler will generate code utilizing modular
+  _N"When non-NIL, the compiler will generate code utilizing modular
   arithmetic.  Set to NIL to disable this, if you don't want modular
   arithmetic in some cases.")
 
diff --git a/compiler/sset.lisp b/compiler/sset.lisp
index c5ef99949d9b4d4eaae0876e7c8024e94825bd58..0071fd7334d2f4a8d968c94a22c9de1b2112c8f6 100644
--- a/compiler/sset.lisp
+++ b/compiler/sset.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sset.lisp,v 1.7 2000/07/07 09:33:05 dtc Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sset.lisp,v 1.8 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; Each structure that may be placed in a SSet must include the SSet-Element
diff --git a/compiler/stack.lisp b/compiler/stack.lisp
index bbbbae435d8df2e9f278a39b8d0b2525b14e2692..b50325c545ed9db09cc861561cc5dda7aad336c1 100644
--- a/compiler/stack.lisp
+++ b/compiler/stack.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/stack.lisp,v 1.7 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/stack.lisp,v 1.8 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;; Find-Pushed-Continuations  --  Internal
diff --git a/compiler/statcount.lisp b/compiler/statcount.lisp
index b4522f9b235a7b12aee61612aefb33fbcd117b38..95d254cf531f1531514943d5f3c59dc95b063854 100644
--- a/compiler/statcount.lisp
+++ b/compiler/statcount.lisp
@@ -5,17 +5,18 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.6 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.7 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.6 1994/10/31 04:27:28 ram Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/statcount.lisp,v 1.7 2010/03/19 15:19:01 rtoy Rel $
 ;;;
 ;;; Functions and utilities for collecting statistics on static vop usages.
 ;;;
 ;;; Written by William Lott
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(*count-vop-usages*))
 
diff --git a/compiler/tn.lisp b/compiler/tn.lisp
index 495012a1465b74a33942d6fbf4a288e602b526d4..1de81754411a18856ac66a8c600d69ba2998abd5 100644
--- a/compiler/tn.lisp
+++ b/compiler/tn.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.20 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.21 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package "C")
 
+(intl:textdomain "cmucl")
+
 (export '(make-normal-tn make-representation-tn make-wired-tn
 	  make-restricted-tn environment-live-tn
 	  environment-debug-live-tn component-live-tn specify-save-tn
@@ -32,7 +34,7 @@
 ;;; Do-Packed-TNs  --  Interface
 ;;;
 (defmacro do-packed-tns ((tn component &optional result) &body body)
-  "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
+  _N"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
   Iterate over all packed TNs allocated in Component."
   (let ((n-component (gensym)))
     `(let ((,n-component (component-info ,component)))
@@ -563,7 +565,7 @@
     (unless (and (not (sc-save-p sc))
 		 (eq (sb-kind (sc-sb sc)) :unbounded))
       (dolist (alt (sc-alternate-scs sc)
-		   (error "SC ~S has no :unbounded :save-p NIL alternate SC."
+		   (error _"SC ~S has no :unbounded :save-p NIL alternate SC."
 			  (sc-name sc)))
 	(when (and (not (sc-save-p alt))
 		   (eq (sb-kind (sc-sb alt)) :unbounded))
diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp
index 96324cd6ef0dc0562f6e0d9b9ae2d812de6148bb..aff79bf03906d86184f39cdeab3e6cf0cd67e20b 100644
--- a/compiler/typetran.lisp
+++ b/compiler/typetran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.45 2005/02/07 17:27:16 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.46 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 
 ;;;; Type predicate translation:
@@ -41,7 +42,7 @@
 ;;; Define-Type-Predicate  --  Interface
 ;;;
 (defmacro define-type-predicate (name type)
-  "Define-Type-Predicate Name Type
+  _N"Define-Type-Predicate Name Type
   Establish an association between the type predicate Name and the
   corresponding Type.  This causes the type predicate to be recognized for
   purposes of optimization."
@@ -70,7 +71,7 @@
 ;;;
 (deftransform typep ((object type))
   (unless (constant-continuation-p type)
-    (give-up "Can't open-code test of non-constant type."))
+    (give-up _"Can't open-code test of non-constant type."))
   `(typep object ',(continuation-value type)))
 
 
@@ -124,7 +125,7 @@
   (let* ((name (continuation-value name))
 	 (cell (find-class-cell name)))
     `(or (class-cell-class ',cell)
-	 (error "Class not yet defined: ~S" ',name))))
+	 (error _"Class not yet defined: ~S" ',name))))
 
 ;;;; Standard type predicates:
 
@@ -247,7 +248,7 @@
   (let ((spec (hairy-type-specifier type)))
     (cond ((unknown-type-p type)
 	   (when (policy nil (> speed brevity))
-	     (compiler-note "Can't open-code test of unknown type ~S."
+	     (compiler-note _N"Can't open-code test of unknown type ~S."
 			    (type-specifier type)))
 	   `(%typep ,object ',spec))
 	  (t
@@ -413,7 +414,7 @@
       ((csubtypep otype class) 't)
       ;; If not properly named, error.
       ((not (and name (eq (kernel::find-class name) class)))
-       (compiler-error "Can't compile TYPEP of anonymous or undefined ~
+       (compiler-error _N"Can't compile TYPEP of anonymous or undefined ~
 			class:~%  ~S"
 		       class))
       (t
@@ -515,7 +516,7 @@
 	      (member-type
 	       `(member ,object ',(member-type-members type)))
 	      (args-type
-	       (compiler-warning "Illegal type specifier for Typep: ~S."
+	       (compiler-warning _N"Illegal type specifier for Typep: ~S."
 				 (cadr spec))
 	       `(%typep ,object ,spec))
 	      (t nil))
diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index 513313fe747d5122d8dd1565e8abd8b58add4dae..4ea9412fa87c628012dc227822b0db2fcabb5897 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.49 1994/10/31 04:27:28 ram Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.50 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 ;;;
 (in-package :c)
 
+(intl:textdomain "cmucl")
+
 (export '(template-or-lose sc-or-lose sb-or-lose sc-number-or-lose
 	  meta-sc-or-lose meta-sb-or-lose meta-sc-number-or-lose
 	  primitive-type-or-lose note-this-location note-next-instruction))
@@ -27,7 +29,7 @@
 (defun template-or-lose (x &optional (backend *target-backend*))
   (the template
        (or (gethash x (backend-template-names backend))
-	   (error "~S is not a defined template." x))))
+	   (error _"~S is not a defined template." x))))
 
 
 ;;; SC-Or-Lose, SB-Or-Lose, SC-Number-Or-Lose  --  Internal
@@ -38,12 +40,12 @@
 (defun sc-or-lose (x &optional (backend *target-backend*))
   (the sc
        (or (gethash x (backend-sc-names backend))
-	   (error "~S is not a defined storage class." x))))
+	   (error _"~S is not a defined storage class." x))))
 ;;;
 (defun sb-or-lose (x &optional (backend *target-backend*))
   (the sb
        (or (gethash x (backend-sb-names backend))
-	   (error "~S is not a defined storage base." x))))
+	   (error _"~S is not a defined storage base." x))))
 ;;;
 (defun sc-number-or-lose (x &optional (backend *target-backend*))
   (the sc-number (sc-number (sc-or-lose x backend))))
@@ -58,12 +60,12 @@
 (defun meta-sc-or-lose (x)
   (the sc
        (or (gethash x (backend-meta-sc-names *target-backend*))
-	   (error "~S is not a defined storage class." x))))
+	   (error _"~S is not a defined storage class." x))))
 ;;;
 (defun meta-sb-or-lose (x)
   (the sb
        (or (gethash x (backend-meta-sb-names *target-backend*))
-	   (error "~S is not a defined storage base." x))))
+	   (error _"~S is not a defined storage base." x))))
 ;;;
 (defun meta-sc-number-or-lose (x)
   (the sc-number (sc-number (meta-sc-or-lose x))))
@@ -112,7 +114,7 @@
 (defun primitive-type-or-lose (name &optional (backend *target-backend*))
   (the primitive-type
        (or (gethash name (backend-primitive-type-names backend))
-	   (error "~S is not a defined primitive type." name))))
+	   (error _"~S is not a defined primitive type." name))))
 
 
 ;;; SC-ALLOWED-BY-PRIMITIVE-TYPE  --  Interface
@@ -276,7 +278,7 @@
 ;;; NOTE-THIS-LOCATION  --  Interface
 ;;;
 (defun note-this-location (vop kind)
-  "NOTE-THIS-LOCATION VOP Kind
+  _N"NOTE-THIS-LOCATION VOP Kind
   Note that the current code location is an interesting (to the debugger)
   location of the specified Kind.  VOP is the VOP responsible for this code.
   This VOP must specify some non-null :SAVE-P value (perhaps :COMPUTE-ONLY) so
@@ -288,7 +290,7 @@
 ;;; NOTE-NEXT-INSTRUCTION -- interface.
 ;;; 
 (defun note-next-instruction (vop kind)
-  "NOTE-NEXT-INSTRUCTION VOP Kind
+  _N"NOTE-NEXT-INSTRUCTION VOP Kind
    Similar to NOTE-THIS-LOCATION, except the use the location of the next
    instruction for the code location, wherever the scheduler decided to put
    it."
diff --git a/compiler/vop.lisp b/compiler/vop.lisp
index a99016e2e807f3ffdddbc627f8b73060813f1318..e048909eb890495a002017bd0dca52f2f2a629f3 100644
--- a/compiler/vop.lisp
+++ b/compiler/vop.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vop.lisp,v 1.43 2004/12/16 21:55:38 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vop.lisp,v 1.44 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;; Written by Rob MacLachlan
 ;;;
 (in-package "C")
+(intl:textdomain "cmucl")
 
 (export '(tn-ref tn-ref-p make-tn-ref tn-ref-tn tn-ref-write-p
 	  tn-ref-next tn-ref-vop tn-ref-next-ref tn-ref-across
@@ -726,7 +727,10 @@
   ;; Two values are returned: the first and last VOP emitted.  This vop
   ;; sequence must be linked into the VOP Next/Prev chain for the block.  At
   ;; least one VOP is always emitted.
-  (emit-function (required-argument) :type function))
+  (emit-function (required-argument) :type function)
+  ;;
+  ;; The text domain for the note.
+  (note-domain intl::*default-domain* :type (or string null)))
 
 (defprinter template
   name
diff --git a/compiler/x86/alloc.lisp b/compiler/x86/alloc.lisp
index f32e123225f4293f2a1cde6b451ed578f8cacc25..23472b6bc11927835b69b734a3564ae59969bb17 100644
--- a/compiler/x86/alloc.lisp
+++ b/compiler/x86/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.13 2005/05/10 16:32:41 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.14 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;; 
 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;;; Dynamic-Extent
diff --git a/compiler/x86/arith.lisp b/compiler/x86/arith.lisp
index 81955fd9af84342dfe74a6cf7809c8ce9f7ef038..5b6e0a64b04a74c741f859620a19cc2cbdf102c2 100644
--- a/compiler/x86/arith.lisp
+++ b/compiler/x86/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.22 2008/08/18 20:40:07 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.23 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,7 +20,7 @@
 ;;; 
 
 (in-package :x86)
-
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;;; Unary operations.
@@ -34,14 +34,14 @@
 (define-vop (fixnum-unop fast-safe-arith-op)
   (:args (x :scs (any-reg) :target res))
   (:results (res :scs (any-reg)))
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:arg-types tagged-num)
   (:result-types tagged-num))
 
 (define-vop (signed-unop fast-safe-arith-op)
   (:args (x :scs (signed-reg) :target res))
   (:results (res :scs (signed-reg)))
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:arg-types signed-num)
   (:result-types signed-num))
 
@@ -89,7 +89,7 @@
 				  (sc-is r control-stack)
 				  (location= x r)))))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic"))
+  (:note _N"inline fixnum arithmetic"))
 
 (define-vop (fast-unsigned-binop fast-safe-arith-op)
   (:args (x :target r :scs (unsigned-reg)
@@ -105,7 +105,7 @@
 			       (sc-is r unsigned-stack)
 			       (location= x r)))))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic"))
+  (:note _N"inline (unsigned-byte 32) arithmetic"))
 
 (define-vop (fast-signed-binop fast-safe-arith-op)
   (:args (x :target r :scs (signed-reg)
@@ -121,7 +121,7 @@
 			       (sc-is r signed-stack)
 			       (location= x r)))))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic"))
+  (:note _N"inline (signed-byte 32) arithmetic"))
 
 (define-vop (fast-fixnum-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (any-reg control-stack)))
@@ -130,7 +130,7 @@
   (:results (r :scs (any-reg)
 	       :load-if (not (location= x r))))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic"))
+  (:note _N"inline fixnum arithmetic"))
 
 (define-vop (fast-unsigned-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (unsigned-reg unsigned-stack)))
@@ -139,7 +139,7 @@
   (:results (r :scs (unsigned-reg)
 	       :load-if (not (location= x r))))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic"))
+  (:note _N"inline (unsigned-byte 32) arithmetic"))
 
 (define-vop (fast-signed-binop-c fast-safe-arith-op)
   (:args (x :target r :scs (signed-reg signed-stack)))
@@ -148,7 +148,7 @@
   (:results (r :scs (signed-reg)
 	       :load-if (not (location= x r))))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic"))
+  (:note _N"inline (signed-byte 32) arithmetic"))
 
 
 (eval-when (compile load eval)
@@ -220,7 +220,7 @@
 				  (sc-is r control-stack)
 				  (location= x r)))))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:generator 2
     (cond ((and (sc-is x any-reg) (sc-is y any-reg) (sc-is r any-reg)
 		(not (location= x r)))
@@ -237,7 +237,7 @@
   (:results (r :scs (any-reg)
 	       :load-if (not (location= x r))))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:generator 1
     (cond ((and (sc-is x any-reg) (sc-is r any-reg) (not (location= x r)))
 	   (inst lea r (make-ea :dword :base x :disp (fixnumize y))))
@@ -259,7 +259,7 @@
 				  (sc-is y signed-reg)
 				  (location= x r)))))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:generator 5
     (cond ((and (sc-is x signed-reg) (sc-is y signed-reg) (sc-is r signed-reg)
 		(not (location= x r)))
@@ -276,7 +276,7 @@
   (:results (r :scs (signed-reg)
 	       :load-if (not (location= x r))))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:generator 4
     (cond ((and (sc-is x signed-reg) (sc-is r signed-reg)
 		(not (location= x r)))
@@ -302,7 +302,7 @@
 				  (sc-is r unsigned-stack)
 				  (location= x r)))))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:generator 5
     (cond ((and (sc-is x unsigned-reg) (sc-is y unsigned-reg)
 		(sc-is r unsigned-reg) (not (location= x r)))
@@ -319,7 +319,7 @@
   (:results (r :scs (unsigned-reg)
 	       :load-if (not (location= x r))))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:generator 4
     (cond ((and (sc-is x unsigned-reg)
 		(sc-is r unsigned-reg)
@@ -371,7 +371,7 @@
   (:arg-types tagged-num tagged-num)
   (:results (r :scs (any-reg) :from (:argument 0)))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:generator 4
     (move r x)
     (inst sar r 2)
@@ -385,7 +385,7 @@
   (:arg-types tagged-num (:constant (signed-byte 30)))
   (:results (r :scs (any-reg)))
   (:result-types tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:generator 3
     (inst imul r x y)))
 
@@ -397,7 +397,7 @@
   (:arg-types signed-num signed-num)
   (:results (r :scs (signed-reg) :from (:argument 0)))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:generator 5
     (move r x)
     (inst imul r y)))
@@ -410,7 +410,7 @@
   (:arg-types signed-num (:constant (signed-byte 32)))
   (:results (r :scs (signed-reg)))
   (:result-types signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:generator 4
     (inst imul r x y)))
 
@@ -426,7 +426,7 @@
   (:ignore edx)
   (:results (result :scs (unsigned-reg)))
   (:result-types unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 6
@@ -447,7 +447,7 @@
   (:results (quo :scs (any-reg))
 	    (rem :scs (any-reg)))
   (:result-types tagged-num tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 31
@@ -477,7 +477,7 @@
   (:results (quo :scs (any-reg))
 	    (rem :scs (any-reg)))
   (:result-types tagged-num tagged-num)
-  (:note "inline fixnum arithmetic")
+  (:note _N"inline fixnum arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 30
@@ -502,7 +502,7 @@
   (:results (quo :scs (unsigned-reg))
 	    (rem :scs (unsigned-reg)))
   (:result-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 33
@@ -530,7 +530,7 @@
   (:results (quo :scs (unsigned-reg))
 	    (rem :scs (unsigned-reg)))
   (:result-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) arithmetic")
+  (:note _N"inline (unsigned-byte 32) arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 32
@@ -553,7 +553,7 @@
   (:results (quo :scs (signed-reg))
 	    (rem :scs (signed-reg)))
   (:result-types signed-num signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 33
@@ -581,7 +581,7 @@
   (:results (quo :scs (signed-reg))
 	    (rem :scs (signed-reg)))
   (:result-types signed-num signed-num)
-  (:note "inline (signed-byte 32) arithmetic")
+  (:note _N"inline (signed-byte 32) arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 32
@@ -609,7 +609,7 @@
 				       (sc-is result control-stack)
 				       (location= number result)))))
   (:result-types tagged-num)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 2
     (cond ((and (= amount 1) (not (location= number result)))
 	   (inst lea result (make-ea :dword :index number :scale 2)))
@@ -646,7 +646,7 @@
 				       (location= number result)))))
   (:result-types tagged-num)
   (:policy :fast-safe)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 3
     (move result number)
     (move ecx amount)
@@ -667,7 +667,7 @@
 				       (sc-is result unsigned-stack)
 				       (location= number result)))))
   (:result-types unsigned-num)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 3
     (cond ((and (= amount 1) (not (location= number result)))
 	   (inst lea result (make-ea :dword :index number :scale 2)))
@@ -700,7 +700,7 @@
 				       (sc-is result signed-stack)
 				       (location= number result)))))
   (:result-types signed-num)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 3
     (cond ((and (= amount 1) (not (location= number result)))
 	   (inst lea result (make-ea :dword :index number :scale 2)))
@@ -735,7 +735,7 @@
 				       (location= number result)))))
   (:result-types unsigned-num)
   (:policy :fast-safe)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 4
     (move result number)
     (move ecx amount)
@@ -757,7 +757,7 @@
 				       (location= number result)))))
   (:result-types signed-num)
   (:policy :fast-safe)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 4
     (move result number)
     (move ecx amount)
@@ -773,7 +773,7 @@
   (:results (result :scs (unsigned-reg) :from (:argument 0)))
   (:result-types unsigned-num)
   (:temporary (:sc signed-reg :offset ecx-offset :from (:argument 1)) ecx)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 5
     (move result number)
     (move ecx amount)
@@ -803,7 +803,7 @@
   (:results (result :scs (signed-reg) :from (:argument 0)))
   (:result-types signed-num)
   (:temporary (:sc signed-reg :offset ecx-offset :from (:argument 1)) ecx)
-  (:note "inline ASH")
+  (:note _N"inline ASH")
   (:generator 5
     (move result number)
     (move ecx amount)
@@ -827,7 +827,7 @@
 ;;; note documentation for this function is wrong - rtfm
 (define-vop (signed-byte-32-len)
   (:translate integer-length)
-  (:note "inline (signed-byte 32) integer-length")
+  (:note _N"inline (signed-byte 32) integer-length")
   (:policy :fast-safe)
   (:args (arg :scs (signed-reg) :target res))
   (:arg-types signed-num)
@@ -850,7 +850,7 @@
 
 (define-vop (unsigned-byte-32-count)
   (:translate logcount)
-  (:note "inline (unsigned-byte 32) logcount")
+  (:note _N"inline (unsigned-byte 32) logcount")
   (:policy :fast-safe)
   (:args (arg :scs (unsigned-reg)))
   (:arg-types unsigned-num)
@@ -907,7 +907,7 @@
 			       (sc-is y any-reg))))
 	 (y :scs (any-reg control-stack)))
   (:arg-types tagged-num tagged-num)
-  (:note "inline fixnum comparison"))
+  (:note _N"inline fixnum comparison"))
 
 (define-vop (fast-conditional-c/fixnum fast-conditional/fixnum)
   (:args (x :scs (any-reg control-stack)))
@@ -920,7 +920,7 @@
 			       (sc-is y signed-reg))))
 	 (y :scs (signed-reg signed-stack)))
   (:arg-types signed-num signed-num)
-  (:note "inline (signed-byte 32) comparison"))
+  (:note _N"inline (signed-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/signed fast-conditional/signed)
   (:args (x :scs (signed-reg signed-stack)))
@@ -933,7 +933,7 @@
 			       (sc-is y unsigned-reg))))
 	 (y :scs (unsigned-reg unsigned-stack)))
   (:arg-types unsigned-num unsigned-num)
-  (:note "inline (unsigned-byte 32) comparison"))
+  (:note _N"inline (unsigned-byte 32) comparison"))
 
 (define-vop (fast-conditional-c/unsigned fast-conditional/unsigned)
   (:args (x :scs (unsigned-reg unsigned-stack)))
@@ -1012,7 +1012,7 @@
 			       (sc-is y any-reg))))
 	 (y :scs (any-reg control-stack)))
   (:arg-types tagged-num tagged-num)
-  (:note "inline fixnum comparison")
+  (:note _N"inline fixnum comparison")
   (:translate eql)
   (:generator 4
     (inst cmp x y)
@@ -1147,7 +1147,7 @@
 
 (define-vop (shift-towards-start shift-towards-someplace)
   (:translate shift-towards-start)
-  (:note "SHIFT-TOWARDS-START")
+  (:note _N"SHIFT-TOWARDS-START")
   (:generator 1
     (move r num)
     (move ecx amount)
@@ -1155,7 +1155,7 @@
 
 (define-vop (shift-towards-end shift-towards-someplace)
   (:translate shift-towards-end)
-  (:note "SHIFT-TOWARDS-END")
+  (:note _N"SHIFT-TOWARDS-END")
   (:generator 1
     (move r num)
     (move ecx amount)
diff --git a/compiler/x86/array.lisp b/compiler/x86/array.lisp
index 66c95b133c99c24f5b564439c94c48d9ec06ce76..6991df3f8be4c9d87eb981ff0a10e1a1077162f1 100644
--- a/compiler/x86/array.lisp
+++ b/compiler/x86/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/array.lisp,v 1.25 2009/06/11 16:04:00 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/array.lisp,v 1.26 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997,1998,1999.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;;; Allocator for the array header.
@@ -178,7 +179,7 @@
 	 (bit-shift (1- (integer-length elements-per-word))))
     `(progn
        (define-vop (,(symbolicate 'data-vector-ref/ type))
-	 (:note "inline array access")
+	 (:note _N"inline array access")
 	 (:translate data-vector-ref)
 	 (:policy :fast-safe)
 	 (:args (object :scs (descriptor-reg))
@@ -217,7 +218,7 @@
 	     (unless (= extra ,(1- elements-per-word))
 	       (inst and result ,(1- (ash 1 bits)))))))
        (define-vop (,(symbolicate 'data-vector-set/ type))
-	 (:note "inline array store")
+	 (:note _N"inline array store")
 	 (:translate data-vector-set)
 	 (:policy :fast-safe)
 	 (:args (object :scs (descriptor-reg) :target ptr)
diff --git a/compiler/x86/c-call.lisp b/compiler/x86/c-call.lisp
index 984b6ba5c4c195e06b4fd5e7516a2883cfaf6c44..b85abd0839c06d616363b41eb9b92a3704dcc2a0 100644
--- a/compiler/x86/c-call.lisp
+++ b/compiler/x86/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.20 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.21 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,6 +23,7 @@
 (in-package :x86)
 (use-package :alien)
 (use-package :alien-internals)
+(intl:textdomain "cmucl-x86-vm")
 
 ;; The move-argument vop is going to store args on the stack for
 ;; call-out. These tn's will be used for that. move-arg is normally
@@ -121,7 +122,7 @@
 (def-alien-type-method (values :result-tn) (type state)
   (let ((values (alien-values-type-values type)))
     (when (> (length values) 2)
-      (error "Too many result values from c-call."))
+      (error _"Too many result values from c-call."))
     (mapcar #'(lambda (type)
 		(invoke-alien-type-method :result-tn type state))
 	    (alien-values-type-values type))))
@@ -266,7 +267,7 @@
       (eq (machine-rep type1) (machine-rep type2)))))
 
 (defun make-callback-trampoline (index fn-type)
-  "Cons up a piece of code which calls call-callback with INDEX and a
+  _N"Cons up a piece of code which calls call-callback with INDEX and a
 pointer to the arguments."
   (let* ((return-type (alien-function-type-result-type fn-type))
 	 (segment (make-segment))
diff --git a/compiler/x86/call.lisp b/compiler/x86/call.lisp
index d93387a6bc254acaef40d5e0f0436f345497ffa8..c9e83486a140a328c45ae90f7210e8f564146359 100644
--- a/compiler/x86/call.lisp
+++ b/compiler/x86/call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/call.lisp,v 1.21 2008/04/01 07:25:09 cshapiro Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/call.lisp,v 1.22 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 ;;;
 
@@ -1421,7 +1422,7 @@
   (:results (context :scs (descriptor-reg))
 	    (count :scs (any-reg)))
   (:result-types t tagged-num)
-  (:note "more-arg-context")
+  (:note _N"more-arg-context")
   (:generator 5
     (move count supplied)
     ;; SP at this point points at the last arg pushed.
diff --git a/compiler/x86/cell.lisp b/compiler/x86/cell.lisp
index 5e2bc97b07caf414a1fd1cf6c693cadbc3e1f2d2..339571f20e31bd56c17d9099e873b59abf1bb41c 100644
--- a/compiler/x86/cell.lisp
+++ b/compiler/x86/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.15 2004/05/18 02:29:12 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.16 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,7 +21,7 @@
 ;;; 
 
 (in-package :x86)
-
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;;; Data object ref/set stuff.
diff --git a/compiler/x86/char.lisp b/compiler/x86/char.lisp
index 9457929aa3e16358ce407cc71bead978d6631cce..6676db897680c15a9a5a3db3eb7fc444a8bfc70a 100644
--- a/compiler/x86/char.lisp
+++ b/compiler/x86/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.8 2008/04/21 23:59:12 cshapiro Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.9 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -23,6 +23,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;;; Moves and coercions:
@@ -32,7 +33,7 @@
 (define-vop (move-to-base-char)
   (:args (x :scs (any-reg control-stack) :target y))
   (:results (y :scs (base-char-reg)))
-  (:note "character untagging")
+  (:note _N"character untagging")
   (:generator 1
     (move y x)
     (inst shr y type-bits)))
@@ -46,7 +47,7 @@
 (define-vop (move-from-base-char)
   (:args (x :scs (base-char-reg base-char-stack) :target y))
   (:results (y :scs (any-reg descriptor-reg)))
-  (:note "character tagging")
+  (:note _N"character tagging")
   (:generator 1
     (move y x)
     (inst shl y type-bits)
@@ -64,7 +65,7 @@
 	    :load-if (not (location= x y))))
   (:results (y :scs (base-char-reg base-char-stack)
 	       :load-if (not (location= x y))))
-  (:note "character move")
+  (:note _N"character move")
   (:effects)
   (:affected)
   (:generator 0
@@ -82,7 +83,7 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y base-char-reg))))
   (:results (y))
-  (:note "character arg move")
+  (:note _N"character arg move")
   (:generator 0
     (sc-case y
       (base-char-reg
@@ -136,7 +137,7 @@
   (:conditional)
   (:info target not-p)
   (:policy :fast-safe)
-  (:note "inline comparison")
+  (:note _N"inline comparison")
   (:variant-vars condition not-condition)
   (:generator 3
     (inst cmp x y)
@@ -160,7 +161,7 @@
   (:conditional)
   (:info target not-p y)
   (:policy :fast-safe)
-  (:note "inline comparison")
+  (:note _N"inline comparison")
   (:variant-vars condition not-condition)
   (:generator 2
     (inst cmp x (char-code y))
diff --git a/compiler/x86/debug.lisp b/compiler/x86/debug.lisp
index 19c6b6179838d360ae4e7b98f4762c7f56a82bdf..cdd387c765302eb596dde9ae302068db42acb78a 100644
--- a/compiler/x86/debug.lisp
+++ b/compiler/x86/debug.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/debug.lisp,v 1.4 1998/02/19 19:34:54 dtc Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/debug.lisp,v 1.5 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997.
 ;;; 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 (define-vop (debug-cur-sp)
   (:translate current-sp)
diff --git a/compiler/x86/float-sse2.lisp b/compiler/x86/float-sse2.lisp
index 307175fdc8a8d3aa73ea0c3e1e1c70355188eb8c..08d1903460d4dfba1a797a8b6f632b1924821df6 100644
--- a/compiler/x86/float-sse2.lisp
+++ b/compiler/x86/float-sse2.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.11 2010/02/24 01:43:22 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.12 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-sse2")
 
 ;;; Popping the FP stack.
 ;;;
@@ -183,7 +184,7 @@
 	     (single-reg (inst xorps y y))
 	     (double-reg (inst xorpd y y))))
 	  (t
-	   (warn "Ignoring bogus i387 Constant ~a" value)))))
+	   (warn _"Ignoring bogus i387 Constant ~a" value)))))
 
 
 ;;;; Complex float move functions
@@ -303,7 +304,7 @@
 (define-vop (float-move)
   (:args (x))
   (:results (y))
-  (:note "float move")
+  (:note _N"float move")
   (:generator 0
      (unless (location= x y)
        (inst movq y x))))
@@ -370,7 +371,7 @@
   (:args (x :scs (single-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:single-float-type vm:single-float-size node)
        (inst movss (ea-for-sf-desc y) x))))
@@ -381,7 +382,7 @@
   (:args (x :scs (double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:double-float-type vm:double-float-size node)
        (inst movsd (ea-for-df-desc y) x))))
@@ -393,7 +394,7 @@
   (:args (x :scs (long-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:long-float-type vm:long-float-size node)
        (with-tn@fp-top(x)
@@ -422,7 +423,7 @@
 (define-vop (move-to-single)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (single-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
     (inst movss y (ea-for-sf-desc x))))
 (define-move-vop move-to-single :move (descriptor-reg) (single-reg))
@@ -430,7 +431,7 @@
 (define-vop (move-to-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (double-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
     (inst movsd y (ea-for-df-desc x))))
 (define-move-vop move-to-double :move (descriptor-reg) (double-reg))
@@ -439,7 +440,7 @@
 (define-vop (move-to-long)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (long-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
      (with-empty-tn@fp-top(y)
        (inst fldl (ea-for-lf-desc x)))))
@@ -455,7 +456,7 @@
   (:args (x :scs (complex-single-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-single-float-type
 			       vm:complex-single-float-size node)
@@ -467,7 +468,7 @@
   (:args (x :scs (complex-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-double-float-type
 			       vm:complex-double-float-size node)
@@ -481,7 +482,7 @@
   (:args (x :scs (complex-long-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-long-float-type
 			       vm:complex-long-float-size node)
@@ -500,7 +501,7 @@
   (:args (x :scs (complex-double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex double-double float to pointer coercion")
+  (:note _N"complex double-double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm::complex-double-double-float-type
 			       vm::complex-double-double-float-size node)
@@ -522,7 +523,7 @@
 (define-vop (move-to-complex-single)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-single-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (inst movlps y (ea-for-csf-real-desc x))))
 
@@ -532,7 +533,7 @@
 (define-vop (move-to-complex-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-double-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (inst movupd y (ea-for-cdf-real-desc x))))
 
@@ -554,7 +555,7 @@
 			 (fp :scs (any-reg)
 			     :load-if (not (sc-is y ,sc))))
 		  (:results (y))
-		  (:note "float argument move")
+		  (:note _N"float argument move")
 		  (:generator ,(case format (:single 2) (:double 3) (:long 4))
 		    (sc-case y
 		      (,sc
@@ -589,7 +590,7 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y complex-single-reg))))
   (:results (y))
-  (:note "complex float argument move")
+  (:note _N"complex float argument move")
   (:generator 3
     (sc-case y
       (complex-single-reg
@@ -606,7 +607,7 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y complex-double-reg))))
   (:results (y))
-  (:note "complex float argument move")
+  (:note _N"complex float argument move")
   (:generator 3
     (sc-case y
       (complex-double-reg
@@ -623,7 +624,7 @@
   (:args (x :scs (complex-double-double-reg) :target y)
 	 (fp :scs (any-reg) :load-if (not (sc-is y complex-double-double-reg))))
   (:results (y))
-  (:note "complex double-double-float argument move")
+  (:note _N"complex double-double-float argument move")
   (:generator 2
     (sc-case y
       (complex-double-double-reg
@@ -700,7 +701,7 @@
   (:args (x) (y))
   (:results (r))
   (:policy :fast-safe)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only))
 
@@ -752,7 +753,7 @@
   (:policy :fast-safe)
   (:arg-types double-float)
   (:result-types double-float)
-  (:note "inline float arithmetic")
+  (:note _N"inline float arithmetic")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 1
@@ -768,7 +769,7 @@
                 (:arg-types ,type)
                 (:result-types ,type)
                 (:temporary (:sc ,sc) tmp)
-                (:note "inline float arithmetic")
+                (:note _N"inline float arithmetic")
                 (:vop-var vop)
                 (:save-p :compute-only)
                 (:generator 1
@@ -816,7 +817,7 @@
   (:policy :fast-safe)
   (:vop-var vop)
   (:save-p :compute-only)
-  (:note "inline float comparison"))
+  (:note _N"inline float comparison"))
 
 ;;; comiss and comisd can cope with one or other arg in memory: we
 ;;; could (should, indeed) extend these to cope with descriptor args
@@ -933,7 +934,7 @@
                 (:arg-types signed-num)
                 (:result-types ,to-type)
                 (:policy :fast-safe)
-                (:note "inline float coercion")
+                (:note _N"inline float coercion")
                 (:translate ,translate)
                 (:vop-var vop)
                 (:save-p :compute-only)
@@ -956,7 +957,7 @@
                (:arg-types ,from-type)
                (:result-types ,to-type)
                (:policy :fast-safe)
-               (:note "inline float coercion")
+               (:note _N"inline float coercion")
                (:translate ,translate)
                (:vop-var vop)
                (:save-p :compute-only)
@@ -979,7 +980,7 @@
                (:result-types signed-num)
                (:translate ,trans)
                (:policy :fast-safe)
-               (:note "inline float truncate")
+               (:note _N"inline float truncate")
                (:vop-var vop)
                (:save-p :compute-only)
                (:generator 5
@@ -1306,7 +1307,7 @@
 	       :load-if (not (sc-is r complex-single-stack))))
   (:result-types complex-single-float)
   (:temporary (:sc complex-single-reg) temp)
-  (:note "inline complex single-float creation")
+  (:note _N"inline complex single-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -1329,7 +1330,7 @@
 	       :load-if (not (sc-is r complex-double-stack))))
   (:result-types complex-double-float)
   (:temporary (:sc complex-double-reg) temp)
-  (:note "inline complex double-float creation")
+  (:note _N"inline complex double-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -1350,7 +1351,7 @@
   (:result-types single-float)
   (:temporary (:sc complex-single-reg) temp)
   (:policy :fast-safe)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:generator 3
     (sc-case x
       (complex-single-reg
@@ -1369,7 +1370,7 @@
   (:result-types double-float)
   (:temporary (:sc complex-double-reg) temp)
   (:policy :fast-safe)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:generator 3
     (sc-case x
       (complex-double-reg
@@ -1388,7 +1389,7 @@
   (:result-types single-float)
   (:temporary (:sc complex-single-reg) temp)
   (:policy :fast-safe)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:generator 3
     (sc-case x
       (complex-single-reg
@@ -1412,7 +1413,7 @@
   (:result-types double-float)
   (:temporary (:sc complex-double-reg) temp)
   (:policy :fast-safe)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:generator 3
     (sc-case x
       (complex-double-reg
@@ -1434,7 +1435,7 @@
   (:args (x :scs (double-reg double-stack) :load-if nil))
   (:arg-types double-float)
   (:policy :fast-safe)
-  (:note "inline dummy FP register bias")
+  (:note _N"inline dummy FP register bias")
   (:ignore x)
   (:generator 0))
 
@@ -1445,7 +1446,7 @@
   (:args (x :scs (single-reg single-stack) :load-if nil))
   (:arg-types single-float)
   (:policy :fast-safe)
-  (:note "inline dummy FP register bias")
+  (:note _N"inline dummy FP register bias")
   (:ignore x)
   (:generator 0))
 
@@ -1482,7 +1483,7 @@
   (:args (x :scs (double-double-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (double-double-reg) :load-if (not (location= x y))))
-  (:note "double-double float move")
+  (:note _N"double-double float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the double-float-regs are aligned to every second
@@ -1504,7 +1505,7 @@
   (:args (x :scs (double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "double double float to pointer coercion")
+  (:note _N"double double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:double-double-float-type
 			       vm:double-double-float-size node)
@@ -1521,7 +1522,7 @@
 (define-vop (move-to-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (double-double-reg)))
-  (:note "pointer to double-double-float coercion")
+  (:note _N"pointer to double-double-float coercion")
   (:generator 2
     (let ((real-tn (double-double-reg-hi-tn y)))
       (inst movsd real-tn (ea-for-cdf-real-desc x)))
@@ -1537,7 +1538,7 @@
   (:args (x :scs (double-double-reg) :target y)
 	 (fp :scs (any-reg) :load-if (not (sc-is y double-double-reg))))
   (:results (y))
-  (:note "double double-float argument move")
+  (:note _N"double double-float argument move")
   (:generator 2
     (sc-case y
       (double-double-reg
@@ -1561,7 +1562,7 @@
 (define-vop (move-to-complex-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-double-double-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (let ((real-tn (complex-double-double-reg-real-hi-tn y)))
       (inst movsd real-tn (ea-for-cddf-real-hi-desc x)))
@@ -1585,7 +1586,7 @@
   (:arg-types double-float double-float)
   (:result-types double-double-float)
   (:translate kernel::%make-double-double-float)
-  (:note "inline double-double-float creation")
+  (:note _N"inline double-double-float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -1636,7 +1637,7 @@
   (:arg-types double-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "double-double high part")
+  (:note _N"double-double high part")
   (:variant 0))
 
 (define-vop (lo/double-double-value double-double-value)
@@ -1646,7 +1647,7 @@
   (:arg-types double-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "double-double low part")
+  (:note _N"double-double low part")
   (:variant 1))
 
 (define-vop (make-complex-double-double-float)
@@ -1659,7 +1660,7 @@
   (:results (r :scs (complex-double-double-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-double-double-stack))))
   (:result-types complex-double-double-float)
-  (:note "inline complex double-double-float creation")
+  (:note _N"inline complex double-double-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -1734,12 +1735,12 @@
 
 (define-vop (realpart/complex-double-double-float complex-double-double-float-value)
   (:translate realpart)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:variant :real))
 
 (define-vop (imagpart/complex-double-double-float complex-double-double-float-value)
   (:translate imagpart)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:variant :imag))
 
 ); progn
@@ -1853,7 +1854,7 @@
 	   (:arg-types ,c-type ,c-type)
 	   (:result-types ,c-type)
 	   (:policy :fast-safe)
-	   (:note "inline complex float arithmetic")
+	   (:note _N"inline complex float arithmetic")
 	   (:translate ,op)
 	   (:temporary (:sc ,complex-reg) tmp)
 	   (:generator ,cost
@@ -1900,7 +1901,7 @@
 	    (:arg-types ,c-type ,r-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float/float arithmetic")
+	    (:note _N"inline complex float/float arithmetic")
 	    (:translate ,op)
 	    (:temporary (:sc ,complex-reg) tmp)
 	    (:temporary (:sc ,real-reg) rtmp)
@@ -1962,7 +1963,7 @@
 	    (:arg-types ,r-type ,c-type)
 	    (:result-types ,c-type)
 	    (:policy :fast-safe)
-	    (:note "inline complex float/float arithmetic")
+	    (:note _N"inline complex float/float arithmetic")
 	    (:translate ,op)
 	    (:temporary (:sc ,complex-reg) tmp)
 	    (:temporary (:sc ,real-reg) rtmp)
@@ -2008,7 +2009,7 @@
 	     (:arg-types ,c-type ,r-type)
 	     (:result-types ,c-type)
 	     (:policy :fast-safe)
-	     (:note "inline complex float arithmetic")
+	     (:note _N"inline complex float arithmetic")
 	     (:translate *)
 	     (:temporary (:scs (,complex-sc-type)) t0)
 	     (:generator ,cost
@@ -2024,7 +2025,7 @@
 	     (:arg-types ,r-type ,c-type)
 	     (:result-types ,c-type)
 	     (:policy :fast-safe)
-	     (:note "inline complex float arithmetic")
+	     (:note _N"inline complex float arithmetic")
 	     (:translate *)
 	     (:temporary (:scs (,complex-sc-type)) t0)
 	     (:generator ,cost
@@ -2043,7 +2044,7 @@
   (:arg-types complex-double-float double-float)
   (:result-types complex-double-float)
   (:policy :fast-safe)
-  (:note "inline complex float arithmetic")
+  (:note _N"inline complex float arithmetic")
   (:translate /)
   (:temporary (:sc complex-double-reg) t0)
   (:generator 4
@@ -2059,7 +2060,7 @@
   (:arg-types complex-single-float single-float)
   (:result-types complex-single-float)
   (:policy :fast-safe)
-  (:note "inline complex float arithmetic")
+  (:note _N"inline complex float arithmetic")
   (:translate /)
   (:temporary (:sc complex-single-reg) t0 t1)
   (:generator 5
diff --git a/compiler/x86/float.lisp b/compiler/x86/float.lisp
index d1830d0a90917da0fa3a8c58b34db71e3104f05b..eb00db15b91d85c9e27aa075f6fdc67097001943 100644
--- a/compiler/x86/float.lisp
+++ b/compiler/x86/float.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.58 2009/01/05 22:26:26 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.59 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,6 +22,8 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
+
 
 
 
@@ -240,7 +242,7 @@
 	     (inst fldlg2))
 	    ((= value (log 2l0 2.718281828459045235360287471352662L0))
 	     (inst fldln2))
-	    (t (warn "Ignoring bogus i387 Constant ~a" value))))))
+	    (t (warn _"Ignoring bogus i387 Constant ~a" value))))))
 
 
 ;;;; Complex float move functions
@@ -407,7 +409,7 @@
 (define-vop (float-move)
   (:args (x))
   (:results (y))
-  (:note "float move")
+  (:note _N"float move")
   (:generator 0
      (unless (location= x y)
         (cond ((zerop (tn-offset y))
@@ -442,7 +444,7 @@
 (define-vop (complex-float-move)
   (:args (x :target y :load-if (not (location= x y))))
   (:results (y :load-if (not (location= x y))))
-  (:note "complex float move")
+  (:note _N"complex float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the complex-float-regs are aligned to every second
@@ -495,7 +497,7 @@
   (:args (x :scs (single-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:single-float-type vm:single-float-size node)
        (with-tn@fp-top(x)
@@ -507,7 +509,7 @@
   (:args (x :scs (double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:double-float-type vm:double-float-size node)
        (with-tn@fp-top(x)
@@ -520,7 +522,7 @@
   (:args (x :scs (long-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "float to pointer coercion")
+  (:note _N"float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:long-float-type vm:long-float-size node)
        (with-tn@fp-top(x)
@@ -563,7 +565,7 @@
 (define-vop (move-to-single)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (single-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
      (with-empty-tn@fp-top(y)
        (inst fld (ea-for-sf-desc x)))))
@@ -572,7 +574,7 @@
 (define-vop (move-to-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (double-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
      (with-empty-tn@fp-top(y)
        (inst fldd (ea-for-df-desc x)))))
@@ -582,7 +584,7 @@
 (define-vop (move-to-long)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (long-reg)))
-  (:note "pointer to float coercion")
+  (:note _N"pointer to float coercion")
   (:generator 2
      (with-empty-tn@fp-top(y)
        (inst fldl (ea-for-lf-desc x)))))
@@ -598,7 +600,7 @@
   (:args (x :scs (complex-single-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-single-float-type
 			       vm:complex-single-float-size node)
@@ -615,7 +617,7 @@
   (:args (x :scs (complex-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-double-float-type
 			       vm:complex-double-float-size node)
@@ -633,7 +635,7 @@
   (:args (x :scs (complex-long-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex float to pointer coercion")
+  (:note _N"complex float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:complex-long-float-type
 			       vm:complex-long-float-size node)
@@ -652,7 +654,7 @@
   (:args (x :scs (complex-double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex double-double float to pointer coercion")
+  (:note _N"complex double-double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm::complex-double-double-float-type
 			       vm::complex-double-double-float-size node)
@@ -680,7 +682,7 @@
 		(define-vop (,name)
 		  (:args (x :scs (descriptor-reg)))
 		  (:results (y :scs (,sc)))
-		  (:note "pointer to complex float coercion")
+		  (:note _N"pointer to complex float coercion")
 		  (:generator 2
 		    (let ((real-tn (complex-double-reg-real-tn y)))
 		      (with-empty-tn@fp-top(real-tn)
@@ -717,7 +719,7 @@
 			 (fp :scs (any-reg)
 			     :load-if (not (sc-is y ,sc))))
 		  (:results (y))
-		  (:note "float argument move")
+		  (:note _N"float argument move")
 		  (:generator ,(case format (:single 2) (:double 3) (:long 4))
 		    (sc-case y
 		      (,sc
@@ -769,7 +771,7 @@
 			 (fp :scs (any-reg)
 			     :load-if (not (sc-is y ,sc))))
 		  (:results (y))
-		  (:note "complex float argument move")
+		  (:note _N"complex float argument move")
 		  (:generator ,(ecase format (:single 2) (:double 3) (:long 4))
 		    (sc-case y
 		      (,sc
@@ -844,7 +846,7 @@
   (:args (x :scs (complex-double-double-reg) :target y)
 	 (fp :scs (any-reg) :load-if (not (sc-is y complex-double-double-reg))))
   (:results (y))
-  (:note "complex double-double-float argument move")
+  (:note _N"complex double-double-float argument move")
   (:generator 2
     (sc-case y
       (complex-double-double-reg
@@ -974,7 +976,7 @@
 	   (:arg-types single-float single-float)
 	   (:result-types single-float)
 	   (:policy :fast-safe)
-	   (:note "inline float arithmetic")
+	   (:note _N"inline float arithmetic")
 	   (:vop-var vop)
 	   (:save-p :compute-only)
 	   (:node-var node)
@@ -1134,7 +1136,7 @@
 	   (:arg-types double-float double-float)
 	   (:result-types double-float)
 	   (:policy :fast-safe)
-	   (:note "inline float arithmetic")
+	   (:note _N"inline float arithmetic")
 	   (:vop-var vop)
 	   (:save-p :compute-only)
 	   (:node-var node)
@@ -1279,7 +1281,7 @@
 	   (:arg-types long-float long-float)
 	   (:result-types long-float)
 	   (:policy :fast-safe)
-	   (:note "inline float arithmetic")
+	   (:note _N"inline float arithmetic")
 	   (:vop-var vop)
 	   (:save-p :compute-only)
 	   (:node-var node)
@@ -1384,7 +1386,7 @@
 	       (:temporary (:sc double-reg :offset fr0-offset
 				:from :argument :to :result) fr0)
 	       (:ignore fr0)
-	       (:note "inline float arithmetic")
+	       (:note _N"inline float arithmetic")
 	       (:vop-var vop)
 	       (:save-p :compute-only)
 	       (:generator 1
@@ -1429,7 +1431,7 @@
   (:policy :fast-safe)
   (:vop-var vop)
   (:save-p :compute-only)
-  (:note "inline float comparison")
+  (:note _N"inline float comparison")
   (:ignore temp)
   (:generator 3
      (note-this-location vop :internal-error)
@@ -1481,7 +1483,7 @@
 		(:info target not-p)
 		(:policy :fast-safe)
 		(:guard (not (backend-featurep :ppro)))
-		(:note "inline float comparison")
+		(:note _N"inline float comparison")
 		(:ignore temp fr0)
 		(:generator 3
 		   ;; Handle a few special cases
@@ -1570,7 +1572,7 @@
 		(:info target not-p)
 		(:policy :fast-safe)
 		(:guard (not (backend-featurep :ppro)))
-		(:note "inline float comparison")
+		(:note _N"inline float comparison")
 		(:ignore temp fr0)
 		(:generator 3
 		   ;; Handle a few special cases
@@ -1658,7 +1660,7 @@
 		(:info target not-p)
 		(:policy :fast-safe)
 		(:guard (not (backend-featurep :ppro)))
-		(:note "inline float comparison")
+		(:note _N"inline float comparison")
 		(:ignore temp)
 		(:generator 3
 		   (cond
@@ -1716,7 +1718,7 @@
   (:policy :fast-safe)
   (:vop-var vop)
   (:save-p :compute-only)
-  (:note "inline float comparison")
+  (:note _N"inline float comparison")
   (:ignore temp y)
   (:guard (not (backend-featurep :sse2)))
   (:generator 2
@@ -1783,7 +1785,7 @@
   (:info target not-p)
   (:policy :fast-safe)
   (:guard (backend-featurep :ppro))
-  (:note "inline float comparison")
+  (:note _N"inline float comparison")
   (:generator 3
     ;; Handle a few special cases
     (cond
@@ -1823,7 +1825,7 @@
   (:info target not-p)
   (:policy :fast-safe)
   (:guard (backend-featurep :ppro))
-  (:note "inline float comparison")
+  (:note _N"inline float comparison")
   (:generator 3
     ;; Handle a few special cases
     (cond
@@ -1868,7 +1870,7 @@
 		(:arg-types signed-num)
 		(:result-types ,to-type)
 		(:policy :fast-safe)
-		(:note "inline float coercion")
+		(:note _N"inline float coercion")
 		(:translate ,translate)
 		(:vop-var vop)
 		(:save-p :compute-only)
@@ -1897,7 +1899,7 @@
   (:arg-types signed-num)
   (:result-types single-float)
   (:policy :fast-safe)
-  (:note "inline float coercion")
+  (:note _N"inline float coercion")
   (:translate %single-float)
   (:vop-var vop)
   (:save-p :compute-only)
@@ -1925,7 +1927,7 @@
 		(:arg-types unsigned-num)
 		(:result-types ,to-type)
 		(:policy :fast-safe)
-		(:note "inline float coercion")
+		(:note _N"inline float coercion")
 		(:translate ,translate)
 		(:vop-var vop)
 		(:save-p :compute-only)
@@ -1949,7 +1951,7 @@
   (:arg-types unsigned-num)
   (:result-types single-float)
   (:policy :fast-safe)
-  (:note "inline float coercion")
+  (:note _N"inline float coercion")
   (:translate %single-float)
   (:vop-var vop)
   (:save-p :compute-only)
@@ -1972,7 +1974,7 @@
 	       (:arg-types ,from-type)
 	       (:result-types ,to-type)
 	       (:policy :fast-safe)
-	       (:note "inline float coercion")
+	       (:note _N"inline float coercion")
 	       (:translate ,translate)
 	       (:vop-var vop)
 	       (:save-p :compute-only)
@@ -2017,7 +2019,7 @@
   (:arg-types double-float)
   (:result-types single-float)
   (:policy :fast-safe)
-  (:note "inline float coercion")
+  (:note _N"inline float coercion")
   (:translate %single-float)
   (:temporary (:sc single-stack) sf-temp)
   (:vop-var vop)
@@ -2072,7 +2074,7 @@
 	       (:result-types signed-num)
 	       (:translate ,trans)
 	       (:policy :fast-safe)
-	       (:note "inline float truncate")
+	       (:note _N"inline float truncate")
 	       (:vop-var vop)
 	       (:save-p :compute-only)
 	       (:generator 5
@@ -2120,7 +2122,7 @@
 	       (:result-types unsigned-num)
 	       (:translate ,trans)
 	       (:policy :fast-safe)
-	       (:note "inline float truncate")
+	       (:note _N"inline float truncate")
 	       (:vop-var vop)
 	       (:save-p :compute-only)
 	       (:guard (not (backend-featurep :sse2)))
@@ -2462,7 +2464,7 @@
 	       (:result-types double-float)
 	       (:translate ,trans)
 	       (:policy :fast-safe)
-	       (:note "inline NPX function")
+	       (:note _N"inline NPX function")
 	       (:vop-var vop)
 	       (:save-p :compute-only)
 	       (:node-var node)
@@ -2502,7 +2504,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -2548,7 +2550,7 @@
 		(:arg-types double-float)
 		(:result-types double-float)
 		(:policy :fast-safe)
-		(:note "inline sin/cos function")
+		(:note _N"inline sin/cos function")
 		(:vop-var vop)
 		(:save-p :compute-only)
 		(:ignore eax)
@@ -2593,7 +2595,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore eax)
@@ -2651,7 +2653,7 @@
 	        (:arg-types double-float)
 	        (:result-types double-float)
 		(:policy :fast-safe)
-		(:note "inline sin/cos function")
+		(:note _N"inline sin/cos function")
 		(:vop-var vop)
 		(:save-p :compute-only)
 	        (:ignore eax fr0)
@@ -2689,7 +2691,7 @@
   (:result-types double-float)
   (:ignore eax)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore eax fr0)
@@ -2737,7 +2739,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline exp function")
+  (:note _N"inline exp function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -2790,7 +2792,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline exp function")
+  (:note _N"inline exp function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore temp)
@@ -2847,7 +2849,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline expm1 function")
+  (:note _N"inline expm1 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore temp fr0)
@@ -2904,7 +2906,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline log function")
+  (:note _N"inline log function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:guard (not (backend-featurep :sse2)))
@@ -2956,7 +2958,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline log10 function")
+  (:note _N"inline log10 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:guard (not (backend-featurep :sse2)))
@@ -3011,7 +3013,7 @@
   (:arg-types double-float double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline pow function")
+  (:note _N"inline pow function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:guard (not (backend-featurep :sse2)))
@@ -3127,7 +3129,7 @@
   (:arg-types double-float signed-num)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline scalbn function")
+  (:note _N"inline scalbn function")
   (:ignore fr0)
   (:guard (not (backend-featurep :sse2)))
   (:generator 5
@@ -3193,7 +3195,7 @@
   (:arg-types double-float double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline scalb function")
+  (:note _N"inline scalb function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -3301,7 +3303,7 @@
   (:policy :fast-safe)
   (:guard (or (not (backend-featurep :pentium))
 	      (not (backend-featurep :sse2))))
-  (:note "inline log1p function")
+  (:note _N"inline log1p function")
   (:ignore temp)
   (:generator 5
      ;; x is in a FP reg, not fr0, fr1.
@@ -3356,7 +3358,7 @@
   (:policy :fast-safe)
   (:guard (and (backend-featurep :pentium)
 	       (not (backend-featurep :sse2))))
-  (:note "inline log1p with limited x range function")
+  (:note _N"inline log1p with limited x range function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -3406,7 +3408,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline logb function")
+  (:note _N"inline logb function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -3454,7 +3456,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline atan function")
+  (:note _N"inline atan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:guard (not (backend-featurep :sse2)))
@@ -3502,7 +3504,7 @@
   (:arg-types double-float double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:note "inline atan2 function")
+  (:note _N"inline atan2 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:guard (not (backend-featurep :sse2)))
@@ -3625,7 +3627,7 @@
 	       (:result-types long-float)
 	       (:translate ,trans)
 	       (:policy :fast-safe)
-	       (:note "inline NPX function")
+	       (:note _N"inline NPX function")
 	       (:vop-var vop)
 	       (:save-p :compute-only)
 	       (:node-var node)
@@ -3662,7 +3664,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -3707,7 +3709,7 @@
 		(:arg-types long-float)
 		(:result-types long-float)
 		(:policy :fast-safe)
-		(:note "inline sin/cos function")
+		(:note _N"inline sin/cos function")
 		(:vop-var vop)
 		(:save-p :compute-only)
 		(:ignore eax)
@@ -3752,7 +3754,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore eax)
@@ -3810,7 +3812,7 @@
 	        (:arg-types long-float)
 	        (:result-types long-float)
 		(:policy :fast-safe)
-		(:note "inline sin/cos function")
+		(:note _N"inline sin/cos function")
 		(:vop-var vop)
 		(:save-p :compute-only)
 	        (:ignore eax fr0)
@@ -3847,7 +3849,7 @@
   (:result-types long-float)
   (:ignore eax)
   (:policy :fast-safe)
-  (:note "inline tan function")
+  (:note _N"inline tan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore eax fr0)
@@ -3897,7 +3899,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline exp function")
+  (:note _N"inline exp function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore temp)
@@ -3953,7 +3955,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline expm1 function")
+  (:note _N"inline expm1 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore temp fr0)
@@ -4009,7 +4011,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline log function")
+  (:note _N"inline log function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -4060,7 +4062,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline log10 function")
+  (:note _N"inline log10 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -4114,7 +4116,7 @@
   (:arg-types long-float long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline pow function")
+  (:note _N"inline pow function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -4229,7 +4231,7 @@
   (:arg-types long-float signed-num)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline scalbn function")
+  (:note _N"inline scalbn function")
   (:ignore fr0)
   (:generator 5
      ;; Setup x in fr0 and y in fr1
@@ -4294,7 +4296,7 @@
   (:arg-types long-float long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline scalb function")
+  (:note _N"inline scalb function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -4400,7 +4402,7 @@
   (:result-types long-float)
   (:policy :fast-safe)
   (:guard (not (backend-featurep :pentium)))
-  (:note "inline log1p function")
+  (:note _N"inline log1p function")
   (:ignore temp)
   (:generator 5
      ;; x is in a FP reg, not fr0, fr1.
@@ -4454,7 +4456,7 @@
   (:result-types long-float)
   (:policy :fast-safe)
   (:guard (backend-featurep :pentium))
-  (:note "inline log1p function")
+  (:note _N"inline log1p function")
   (:generator 5
      (sc-case x
         (long-reg
@@ -4501,7 +4503,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline logb function")
+  (:note _N"inline logb function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:ignore fr0)
@@ -4548,7 +4550,7 @@
   (:arg-types long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline atan function")
+  (:note _N"inline atan function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -4595,7 +4597,7 @@
   (:arg-types long-float long-float)
   (:result-types long-float)
   (:policy :fast-safe)
-  (:note "inline atan2 function")
+  (:note _N"inline atan2 function")
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 5
@@ -4703,7 +4705,7 @@
   (:results (r :scs (complex-single-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-single-stack))))
   (:result-types complex-single-float)
-  (:note "inline complex single-float creation")
+  (:note _N"inline complex single-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -4747,7 +4749,7 @@
   (:results (r :scs (complex-double-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-double-stack))))
   (:result-types complex-double-float)
-  (:note "inline complex double-float creation")
+  (:note _N"inline complex double-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -4792,7 +4794,7 @@
   (:results (r :scs (complex-long-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-long-stack))))
   (:result-types complex-long-float)
-  (:note "inline complex long-float creation")
+  (:note _N"inline complex long-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -4895,7 +4897,7 @@
   (:arg-types complex-single-float)
   (:results (r :scs (single-reg)))
   (:result-types single-float)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:variant 0))
 
 (define-vop (realpart/complex-double-float complex-float-value)
@@ -4905,7 +4907,7 @@
   (:arg-types complex-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:variant 0))
 
 #+long-float
@@ -4916,7 +4918,7 @@
   (:arg-types complex-long-float)
   (:results (r :scs (long-reg)))
   (:result-types long-float)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:variant 0))
 
 (define-vop (imagpart/complex-single-float complex-float-value)
@@ -4926,7 +4928,7 @@
   (:arg-types complex-single-float)
   (:results (r :scs (single-reg)))
   (:result-types single-float)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:variant 1))
 
 (define-vop (imagpart/complex-double-float complex-float-value)
@@ -4936,7 +4938,7 @@
   (:arg-types complex-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:variant 1))
 
 #+long-float
@@ -4947,7 +4949,7 @@
   (:arg-types complex-long-float)
   (:results (r :scs (long-reg)))
   (:result-types long-float)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:variant 1))
 
 
@@ -4962,7 +4964,7 @@
   (:args (x :scs (double-reg double-stack) :load-if nil))
   (:arg-types double-float)
   (:policy :fast-safe)
-  (:note "inline dummy FP register bias")
+  (:note _N"inline dummy FP register bias")
   (:ignore x)
   (:generator 0))
 
@@ -4973,7 +4975,7 @@
   (:args (x :scs (single-reg single-stack) :load-if nil))
   (:arg-types single-float)
   (:policy :fast-safe)
-  (:note "inline dummy FP register bias")
+  (:note _N"inline dummy FP register bias")
   (:ignore x)
   (:generator 0))
 
@@ -5019,7 +5021,7 @@
   (:args (x :scs (double-double-reg)
 	    :target y :load-if (not (location= x y))))
   (:results (y :scs (double-double-reg) :load-if (not (location= x y))))
-  (:note "double-double float move")
+  (:note _N"double-double float move")
   (:generator 0
      (unless (location= x y)
        ;; Note the double-float-regs are aligned to every second
@@ -5050,7 +5052,7 @@
   (:args (x :scs (double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "double double float to pointer coercion")
+  (:note _N"double double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm:double-double-float-type
 			       vm:double-double-float-size node)
@@ -5069,7 +5071,7 @@
 (define-vop (move-to-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (double-double-reg)))
-  (:note "pointer to double-double-float coercion")
+  (:note _N"pointer to double-double-float coercion")
   (:generator 2
     (let ((real-tn (double-double-reg-hi-tn y)))
       (with-empty-tn@fp-top(real-tn)
@@ -5087,7 +5089,7 @@
   (:args (x :scs (double-double-reg) :target y)
 	 (fp :scs (any-reg) :load-if (not (sc-is y double-double-reg))))
   (:results (y))
-  (:note "double double-float argument move")
+  (:note _N"double double-float argument move")
   (:generator 2
     (sc-case y
       (double-double-reg
@@ -5127,7 +5129,7 @@
 (define-vop (move-to-complex-double-double)
   (:args (x :scs (descriptor-reg)))
   (:results (y :scs (complex-double-double-reg)))
-  (:note "pointer to complex float coercion")
+  (:note _N"pointer to complex float coercion")
   (:generator 2
     (let ((real-tn (complex-double-double-reg-real-hi-tn y)))
       (with-empty-tn@fp-top(real-tn)
@@ -5155,7 +5157,7 @@
   (:arg-types double-float double-float)
   (:result-types double-double-float)
   (:translate kernel::%make-double-double-float)
-  (:note "inline double-double-float creation")
+  (:note _N"inline double-double-float creation")
   (:policy :fast-safe)
   (:vop-var vop)
   (:generator 5
@@ -5233,7 +5235,7 @@
   (:arg-types double-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "double-double high part")
+  (:note _N"double-double high part")
   (:variant 0))
 
 (define-vop (lo/double-double-value double-double-value)
@@ -5243,7 +5245,7 @@
   (:arg-types double-double-float)
   (:results (r :scs (double-reg)))
   (:result-types double-float)
-  (:note "double-double low part")
+  (:note _N"double-double low part")
   (:variant 1))
 
 (define-vop (make-complex-double-double-float)
@@ -5256,7 +5258,7 @@
   (:results (r :scs (complex-double-double-reg) :from (:argument 0)
 	       :load-if (not (sc-is r complex-double-double-stack))))
   (:result-types complex-double-double-float)
-  (:note "inline complex double-double-float creation")
+  (:note _N"inline complex double-double-float creation")
   (:policy :fast-safe)
   (:generator 5
     (sc-case r
@@ -5387,12 +5389,12 @@
 
 (define-vop (realpart/complex-double-double-float complex-double-double-float-value)
   (:translate realpart)
-  (:note "complex float realpart")
+  (:note _N"complex float realpart")
   (:variant :real))
 
 (define-vop (imagpart/complex-double-double-float complex-double-double-float-value)
   (:translate imagpart)
-  (:note "complex float imagpart")
+  (:note _N"complex float imagpart")
   (:variant :imag))
 
 ); progn
diff --git a/compiler/x86/insts.lisp b/compiler/x86/insts.lisp
index 6b86e2579fe96f1c7b221e5d1ef0dcd068d0c5a0..0e6b31c253c154c06aef90e030ac3daa3cf7d694 100644
--- a/compiler/x86/insts.lisp
+++ b/compiler/x86/insts.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.34 2010/03/01 13:55:09 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.35 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 (use-package :new-assem)
 
diff --git a/compiler/x86/macros.lisp b/compiler/x86/macros.lisp
index e1bdbad9789d491286f3cafbbdc29339a01ede95..94e853cc4621e7b7a8829fad85aaedd1bbfda176 100644
--- a/compiler/x86/macros.lisp
+++ b/compiler/x86/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.26 2008/05/19 15:12:36 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.27 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997,1998,1999.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 
 ;;; We can load/store into fp registers through the top of
@@ -49,7 +50,7 @@
 
 ;;; Instruction-like macros.
 (defmacro move (dst src)
-  "Move SRC into DST unless they are location=."
+  _N"Move SRC into DST unless they are location=."
   (once-only ((n-dst dst)
 	      (n-src src))
     `(unless (location= ,n-dst ,n-src)
@@ -102,7 +103,7 @@
 		    (- other-pointer-type))))
 
 (defmacro load-type (target source &optional (offset 0))
-  "Loads the type bits of a pointer into target independent of
+  _N"Loads the type bits of a pointer into target independent of
    byte-ordering issues."
   (once-only ((n-target target)
 	      (n-source source)
@@ -252,7 +253,7 @@
   (values))
 
 (defun allocation (alloc-tn size &optional inline dynamic-extent)
-  "Allocate an object with a size in bytes given by Size.
+  _N"Allocate an object with a size in bytes given by Size.
    The size may be an integer or a TN.
    If Inline is a VOP node-var then it is used to make an appropriate
    speed vs size decision.  If Dynamic-Extent is true, and otherwise
@@ -270,7 +271,7 @@
 
 (defmacro with-fixed-allocation ((result-tn type-code size &optional inline)
 				 &rest forms)
-  "Allocate an other-pointer object of fixed Size with a single
+  _N"Allocate an other-pointer object of fixed Size with a single
    word header having the specified Type-Code.  The result is placed in
    Result-TN."
   `(pseudo-atomic
@@ -310,20 +311,20 @@
 	      (inst byte (aref ,vector i)))))))))
 
 (defmacro error-call (vop error-code &rest values)
-  "Cause an error.  ERROR-CODE is the error to cause."
+  _N"Cause an error.  ERROR-CODE is the error to cause."
   (cons 'progn
 	(emit-error-break vop error-trap error-code values)))
 
 
 (defmacro cerror-call (vop label error-code &rest values)
-  "Cause a continuable error.  If the error is continued, execution resumes at
+  _N"Cause a continuable error.  If the error is continued, execution resumes at
   LABEL."
   `(progn
      ,@(emit-error-break vop cerror-trap error-code values)
      (inst jmp ,label)))
 
 (defmacro generate-error-code (vop error-code &rest values)
-  "Generate-Error-Code Error-code Value*
+  _N"Generate-Error-Code Error-code Value*
   Emit code for an error with the specified Error-Code and context Values."
   `(assemble (*elsewhere*)
      (let ((start-lab (gen-label)))
@@ -332,7 +333,7 @@
        start-lab)))
 
 (defmacro generate-cerror-code (vop error-code &rest values)
-  "Generate-CError-Code Error-code Value*
+  _N"Generate-CError-Code Error-code Value*
   Emit code for a continuable error with the specified Error-Code and
   context Values.  If the error is continued, execution resumes after
   the GENERATE-CERROR-CODE form."
diff --git a/compiler/x86/memory.lisp b/compiler/x86/memory.lisp
index 9f3a6e49de169421279693e15e90298b32f57b3e..3566eae0aa5ef8ad53ba073573f130c995911aa1 100644
--- a/compiler/x86/memory.lisp
+++ b/compiler/x86/memory.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/memory.lisp,v 1.9 2003/08/03 11:27:45 gerd Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/memory.lisp,v 1.10 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,6 +21,7 @@
 ;;; 
 
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 ;;; Cell-Ref and Cell-Set are used to define VOPs like CAR, where the offset to
 ;;; be read or written is a property of the VOP used.  Cell-Setf is similar to
diff --git a/compiler/x86/move.lisp b/compiler/x86/move.lisp
index 02142c53e8082950626b5048431d5073e6a19d73..8f3bfac6652374420c2cf21b0a029c1a856b9c36 100644
--- a/compiler/x86/move.lisp
+++ b/compiler/x86/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/move.lisp,v 1.8 2003/08/03 11:27:45 gerd Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/move.lisp,v 1.9 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl-x86-vm")
 
 (define-move-function (load-immediate 1) (vop x y)
   ((immediate)
@@ -209,7 +210,7 @@
   (:results (y :scs (signed-reg unsigned-reg)
 	       :load-if (not (location= x y))))
   (:arg-types tagged-num)
-  (:note "fixnum untagging")
+  (:note _N"fixnum untagging")
   (:generator 1
     (move y x)
     (inst sar y 2)))
@@ -221,7 +222,7 @@
 (define-vop (move-to-word-c)
   (:args (x :scs (constant)))
   (:results (y :scs (signed-reg unsigned-reg)))
-  (:note "constant load")
+  (:note _N"constant load")
   (:generator 1
     (inst mov y (tn-value x))))
 ;;;
@@ -233,7 +234,7 @@
 (define-vop (move-to-word/integer)
   (:args (x :scs (descriptor-reg) :target eax))
   (:results (y :scs (signed-reg unsigned-reg)))
-  (:note "integer to untagged word coercion")
+  (:note _N"integer to untagged word coercion")
   (:temporary (:sc unsigned-reg :offset eax-offset
 		   :from (:argument 0) :to (:result 0) :target y) eax)
   (:generator 4
@@ -260,7 +261,7 @@
   (:results (y :scs (any-reg descriptor-reg)
 	       :load-if (not (location= x y))))
   (:result-types tagged-num)
-  (:note "fixnum tagging")
+  (:note _N"fixnum tagging")
   (:generator 1
     (cond ((and (sc-is x signed-reg unsigned-reg)
 		(not (location= x y)))
@@ -287,7 +288,7 @@
 		   :from (:argument 0) :to (:result 0)) ecx)
   (:ignore ecx)
   (:results (y :scs (any-reg descriptor-reg)))
-  (:note "signed word to integer coercion")
+  (:note _N"signed word to integer coercion")
   (:generator 20
     (move eax x)
     (inst call (make-fixup 'move-from-signed :assembly-routine))
@@ -297,7 +298,7 @@
 (define-vop (move-from-signed)
   (:args (x :scs (signed-reg unsigned-reg) :to :result))
   (:results (y :scs (any-reg descriptor-reg) :from :argument))
-  (:note "signed word to integer coercion")
+  (:note _N"signed word to integer coercion")
   (:node-var node)
   (:generator 20
      (assert (not (location= x y)))
@@ -334,7 +335,7 @@
 		   :from (:argument 0) :to (:result 0)) ecx)
   (:ignore ecx)
   (:results (y :scs (any-reg descriptor-reg)))
-  (:note "unsigned word to integer coercion")
+  (:note _N"unsigned word to integer coercion")
   (:generator 20
     (move eax x)
     (inst call (make-fixup 'move-from-unsigned :assembly-routine))
@@ -346,7 +347,7 @@
   (:temporary (:sc unsigned-reg) alloc)
   (:results (y :scs (any-reg descriptor-reg)))
   (:node-var node)
-  (:note "unsigned word to integer coercion")
+  (:note _N"unsigned word to integer coercion")
   (:generator 20
     (assert (not (location= x y)))
     (assert (not (location= x alloc)))
@@ -400,7 +401,7 @@
 			     (sc-is y signed-stack unsigned-stack))))))
   (:effects)
   (:affected)
-  (:note "word integer move")
+  (:note _N"word integer move")
   (:generator 0
     (move y x)))
 ;;;
@@ -413,7 +414,7 @@
   (:args (x :scs (signed-reg unsigned-reg) :target y)
 	 (fp :scs (any-reg) :load-if (not (sc-is y sap-reg))))
   (:results (y))
-  (:note "word integer argument move")
+  (:note _N"word integer argument move")
   (:generator 0
     (sc-case y
       ((signed-reg unsigned-reg)
diff --git a/compiler/x86/nlx.lisp b/compiler/x86/nlx.lisp
index cf1a448fc14bff2995b20044651233e4f74b84d7..5bfa4c27e78ec3cca69ef59266f996f33586ebe9 100644
--- a/compiler/x86/nlx.lisp
+++ b/compiler/x86/nlx.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.16 2008/04/01 07:25:09 cshapiro Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.17 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997,1998.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 ;;; MAKE-NLX-SP-TN  --  Interface
 ;;;
diff --git a/compiler/x86/parms.lisp b/compiler/x86/parms.lisp
index f73583e0d1d4c7095c2688e0b76d4a278cdda64a..81b5139eec7eea6c66900cbb02df73a13166f0c9 100644
--- a/compiler/x86/parms.lisp
+++ b/compiler/x86/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.38 2009/11/25 00:03:54 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.39 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,6 +23,7 @@
 
 (in-package :x86)
 (use-package :c)
+(intl:textdomain "cmucl")
 
 ;;; ### Note: we simultaneously use ``word'' to mean a 32 bit quantity and
 ;;; a 16 bit quantity depending on context.  This is because Intel insists
diff --git a/compiler/x86/pred.lisp b/compiler/x86/pred.lisp
index 540ed9b64ec1ea62f2c247967ce459830fd4e8a5..02914d087efb465233fed00a215335573002dfab 100644
--- a/compiler/x86/pred.lisp
+++ b/compiler/x86/pred.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/pred.lisp,v 1.4 2003/08/03 11:27:45 gerd Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/pred.lisp,v 1.5 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;; 
 
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 ;;;; The Branch VOP.
diff --git a/compiler/x86/print.lisp b/compiler/x86/print.lisp
index fdd3823ac9e21a07dd42342c75f690f963a5c7f7..0733a32b41273e254640236c3d64b7100e37a388 100644
--- a/compiler/x86/print.lisp
+++ b/compiler/x86/print.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/print.lisp,v 1.5 2007/07/06 08:04:39 cshapiro Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/print.lisp,v 1.6 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 (define-vop (print)
   (:args (object :scs (descriptor-reg any-reg)))
diff --git a/compiler/x86/sap.lisp b/compiler/x86/sap.lisp
index 907c39575d0ca9b6fcbb5fe26d343708708b9861..66a00dd662d26b29994be8d31c2e521a43ce2fe3 100644
--- a/compiler/x86/sap.lisp
+++ b/compiler/x86/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sap.lisp,v 1.11 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sap.lisp,v 1.12 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,6 +19,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997,1998,1999.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 ;;;; Moves and coercions:
diff --git a/compiler/x86/sse2-array.lisp b/compiler/x86/sse2-array.lisp
index ac544961be33954a72556776cc64af346adfce3a..58d93d64e98f8cc4a07ba3cddd23940a99e15cb7 100644
--- a/compiler/x86/sse2-array.lisp
+++ b/compiler/x86/sse2-array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-array.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-array.lisp,v 1.3 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-sse2")
 
 (macrolet
     ((frob (type move copy scale)
diff --git a/compiler/x86/sse2-c-call.lisp b/compiler/x86/sse2-c-call.lisp
index bcf9a74d0dacf9ee4781f976afbe28cc2d285843..daeaaa0daa3cc87abd8f680c38ea2ff7843c98a6 100644
--- a/compiler/x86/sse2-c-call.lisp
+++ b/compiler/x86/sse2-c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-c-call.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-c-call.lisp,v 1.3 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 (in-package :x86)
 (use-package :alien)
 (use-package :alien-internals)
+(intl:textdomain "cmucl-sse2")
 
 ;; Note: other parts of the compiler depend on vops having exactly
 ;; these names.  Don't change them, unless you also change the other
diff --git a/compiler/x86/sse2-sap.lisp b/compiler/x86/sse2-sap.lisp
index 12de22e44ff95b3fa695fe3083695a5763036047..75d81de2c28a4bf0747dc757f38a0e598071f3ee 100644
--- a/compiler/x86/sse2-sap.lisp
+++ b/compiler/x86/sse2-sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-sap.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/sse2-sap.lisp,v 1.3 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-sse2")
 
 (macrolet
     ((frob (name type inst)
diff --git a/compiler/x86/static-fn.lisp b/compiler/x86/static-fn.lisp
index 885b413e86d337a0628a4dea2dc25ed6f2f0e992..02e1468c5b827db74a62be65a84e397f204c4d57 100644
--- a/compiler/x86/static-fn.lisp
+++ b/compiler/x86/static-fn.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/static-fn.lisp,v 1.6 2003/08/03 11:27:45 gerd Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/static-fn.lisp,v 1.7 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 (define-vop (static-function-template)
diff --git a/compiler/x86/subprim.lisp b/compiler/x86/subprim.lisp
index e3be604f357149bfea7ff679b935532c83d36a6c..4feb9eb4f1fc79fe78e02198e9b4965a81dcacd5 100644
--- a/compiler/x86/subprim.lisp
+++ b/compiler/x86/subprim.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/subprim.lisp,v 1.5 2003/08/03 11:27:45 gerd Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/subprim.lisp,v 1.6 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 ;;; Debugged by Paul F. Werkowski Spring/Summer 1995.
 ;;; 
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 
diff --git a/compiler/x86/system.lisp b/compiler/x86/system.lisp
index a243216a118fef93682e2da310dba413dcdefa8c..bedb70c42826d83562164e1295b4f81b9f1920f2 100644
--- a/compiler/x86/system.lisp
+++ b/compiler/x86/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.15 2009/01/09 21:45:17 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.16 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 ;;;; Type frobbing VOPs
diff --git a/compiler/x86/type-vops.lisp b/compiler/x86/type-vops.lisp
index 0adfb159886df51750f8a2e9a64988ab93cfddcc..2af9516c50025b4533f0160fc90fc51cbbebfc50 100644
--- a/compiler/x86/type-vops.lisp
+++ b/compiler/x86/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/type-vops.lisp,v 1.13 2006/06/30 18:41:32 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/type-vops.lisp,v 1.14 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -20,6 +20,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996,1997,1998.
 ;;;
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 
diff --git a/compiler/x86/values.lisp b/compiler/x86/values.lisp
index 43c0d71e39059fc585d13c486efdbca5f6c90d33..7a2bbb8421d43fa022c54158d8f83399f66e8590 100644
--- a/compiler/x86/values.lisp
+++ b/compiler/x86/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/values.lisp,v 1.6 2008/04/01 07:25:09 cshapiro Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/values.lisp,v 1.7 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;; Enhancements/debugging by Douglas T. Crosher 1996.
 
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 (define-vop (reset-stack-pointer)
   (:args (ptr :scs (any-reg)))
diff --git a/compiler/x86/vm.lisp b/compiler/x86/vm.lisp
index dc1e429f6b58bf90fcec121cba72acd832cbbcac..480d7f6b859d77fc9bc6297e459e29dd93ac25d1 100644
--- a/compiler/x86/vm.lisp
+++ b/compiler/x86/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.14 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.15 2010/03/19 15:19:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,6 +20,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl")
 
 
 ;;;; Register specs
diff --git a/compiler/x86/x87-array.lisp b/compiler/x86/x87-array.lisp
index d43545ba14df03a5c31a8a4b511ef817b1550174..a117b124c0edfa23650b85162aac9dfd3904742e 100644
--- a/compiler/x86/x87-array.lisp
+++ b/compiler/x86/x87-array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-array.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-array.lisp,v 1.3 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -17,6 +17,7 @@
 ;;; 
 
 (in-package :x86)
+(intl:textdomain "cmucl-x87")
 
 (define-vop (data-vector-ref/simple-array-single-float)
   (:note "inline array access")
diff --git a/compiler/x86/x87-c-call.lisp b/compiler/x86/x87-c-call.lisp
index 3fb9746d72e467591a1140d6cf40fec02c063ac0..8957de067d9031d3ebedc85d1562466a393ee224 100644
--- a/compiler/x86/x87-c-call.lisp
+++ b/compiler/x86/x87-c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-c-call.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-c-call.lisp,v 1.3 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,7 @@
 (in-package :x86)
 (use-package :alien)
 (use-package :alien-internals)
+(intl:textdomain "cmucl-x87")
 
 ;; Note: other parts of the compiler depend on vops having exactly
 ;; these names.  Don't change them, unless you also change the other
diff --git a/compiler/x86/x87-sap.lisp b/compiler/x86/x87-sap.lisp
index 14d3994c328901256a67e38e6aa6f07677807e43..f2a8d10cba01540f99135b978d9fb64691e42f75 100644
--- a/compiler/x86/x87-sap.lisp
+++ b/compiler/x86/x87-sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-sap.lisp,v 1.2 2008/11/12 15:04:23 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/x87-sap.lisp,v 1.3 2010/03/19 15:19:01 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,6 +15,7 @@
 ;;;
 
 (in-package :x86)
+(intl:textdomain "cmucl-x87")
 
 ;;; Sap-Ref-Double
 (define-vop (sap-ref-double)
diff --git a/compiler/xref.lisp b/compiler/xref.lisp
index db8b8ea620d55befd47912dd3cb76c604d8e8e87..d8b87fd060ee226bf2ee1e0d8e910464c7378f6e 100644
--- a/compiler/xref.lisp
+++ b/compiler/xref.lisp
@@ -3,7 +3,7 @@
 ;;; Author: Eric Marsden <emarsden@laas.fr>
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/xref.lisp,v 1.6 2005/06/13 14:29:26 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/xref.lisp,v 1.7 2010/03/19 15:19:01 rtoy Rel $")
 ;;
 ;; This code was written as part of the CMUCL project and has been
 ;; placed in the public domain.
@@ -43,6 +43,7 @@
 
 
 (in-package :xref)
+(intl:textdomain "cmucl")
 
 (export '(init-xref-database
           register-xref
diff --git a/general-info/release-20b.txt b/general-info/release-20b.txt
index fa50ab4afd0e5b270f9bc51ae155cac7e5cb86b9..ca189c91d5ad4c20824bdb341f576dfd2f2e13f6 100644
--- a/general-info/release-20b.txt
+++ b/general-info/release-20b.txt
@@ -36,9 +36,10 @@ New in this release:
       only arrays of character; 8, 16, and 32-bit integers (signed and
       unsigned); single and double floats; and complex single and
       double floats are supported.
-    - FROUND is much faster for single and double float numbers.  This
-      is not currently available for x87 (due to potential roundoff
-      errors), but is available everywhere else.
+    - FROUND and FTRUNCATE are much faster for single and double float
+      numbers.  This is not currently available for x87 (due to
+      potential roundoff errors), but is available everywhere else.
+
 
   * ANSI compliance fixes:
     - COMPILE will update the macro-function if the specified names a
diff --git a/i18n/locale/cmucl-bsd-os.pot b/i18n/locale/cmucl-bsd-os.pot
new file mode 100644
index 0000000000000000000000000000000000000000..380c17e4d691fc8ff5e68d74f722b925c6f73eaf
--- /dev/null
+++ b/i18n/locale/cmucl-bsd-os.pot
@@ -0,0 +1,33 @@
+#@ cmucl-bsd-os
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/bsd-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
+#: target:code/bsd-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-linux-os.pot b/i18n/locale/cmucl-linux-os.pot
new file mode 100644
index 0000000000000000000000000000000000000000..0d4984e78dea0b9fd73a86ab48cfe838dda01529
--- /dev/null
+++ b/i18n/locale/cmucl-linux-os.pot
@@ -0,0 +1,29 @@
+#@ cmucl-linux-os
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/linux-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/linux-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
+#: target:code/linux-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-mp.pot b/i18n/locale/cmucl-mp.pot
new file mode 100644
index 0000000000000000000000000000000000000000..a20855a4163574822b78461efe1f5884ec20a200
--- /dev/null
+++ b/i18n/locale/cmucl-mp.pot
@@ -0,0 +1,268 @@
+#@ cmucl-mp
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/multi-proc.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return the real time in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return the run time in seconds"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the process state which is either Run, Killed, or a wait reason."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Returns the current process."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "A list of all alive processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return a list of all the live processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Execute the body the scheduling disabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Increaments the reference by delta in a single atomic operation"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Decrements the reference by delta in a single atomic operation"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Atomically push object onto place."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Atomically pop place."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Make a process which will run FUNCTION when it starts up.  By\n"
+"  default the process is created in a runnable (active) state.\n"
+"  If FUNCTION is NIL, the process is started in a killed state; it may\n"
+"  be restarted later with process-preset.\n"
+"\n"
+"  :NAME\n"
+"	A name for the process displayed in process listings.\n"
+"\n"
+"  :RUN-REASONS\n"
+"	Initial value for process-run-reasons; defaults to (:ENABLE).  A\n"
+"	process needs a at least one run reason to be runnable.  Together with\n"
+"	arrest reasons, run reasons provide an alternative to process-wait for\n"
+"	controling whether or not a process is runnable.  To get the default\n"
+"	behavior of MAKE-PROCESS in Allegro Common Lisp, which is to create a\n"
+"	process which is active but not runnable, initialize RUN-REASONS to\n"
+"	NIL.\n"
+"\n"
+"  :ARREST-REASONS\n"
+"	Initial value for process-arrest-reasons; defaults to NIL.  A\n"
+"	process must have no arrest reasons in order to be runnable.\n"
+"\n"
+"  :INITIAL-BINDINGS\n"
+"	An alist of initial special bindings for the process.  At\n"
+"	startup the new process has a fresh set of special bindings\n"
+"	with a default binding of *package* setup to the CL-USER\n"
+"	package.  INITIAL-BINDINGS specifies additional bindings for\n"
+"	the process.  The cdr of each alist element is evaluated in\n"
+"	the fresh dynamic environment and then bound to the car of the\n"
+"	element."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Interrupt process and cause it to evaluate function."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Destroy a process. The process is sent a interrupt which throws to\n"
+"  the end of the process allowing it to unwind gracefully."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process by unwinding it to its initial state and calling its\n"
+"  initial function."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process, unwinding it to its initial state and calls\n"
+"  function with args."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Disable process from being runnable until enabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Allow process to become runnable again after it has been disabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True. Processes\n"
+"  can only call process-wait when scheduling is enabled, and the predicate\n"
+"  can not call process-wait. Since the predicate may be evaluated may\n"
+"  times by the scheduler it should be relative fast native compiled code.\n"
+"  The single True predicate value is returned."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True, or the\n"
+"  number of seconds specified by timeout has elapsed. The timeout may\n"
+"  be a fixnum or a float in seconds.  The single True predicate value is\n"
+"  returned, or NIL if the timeout was reached."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Try to gracefully destroy all the processes giving them some\n"
+"  chance to unwinding, before shutting down multi-processing. This is\n"
+"  currently necessary before a purify and is performed before a save-lisp.\n"
+"  Multi-processing can be restarted by calling init-multi-processing."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Destroyed ~d process; remaining ~d~%"
+msgid_plural "Destroyed ~d processes; remaining ~d~%"
+msgstr[0] ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"An idle loop to be run by the initial process. The select based event\n"
+"  server is called with a timeout calculated from the minimum of the\n"
+"  *idle-loop-timeout* and the time to the next process wait timeout.\n"
+"  To avoid this delay when there are runnable processes the *idle-process*\n"
+"  should be setup to the *initial-process*. If one of the processes quits\n"
+"  by throwing to %end-of-the-world then *quitting-lisp* will have been\n"
+"  set to the exit value which is noted by the idle loop which tries to\n"
+"  exit gracefully destroying all the processes and giving them a chance\n"
+"  to unwind."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Allow other processes to run."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued real time elapsed while the given process was\n"
+"  scheduled. The returned time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued run time elapsed for the given process. The returned\n"
+"  time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the real time elapsed since the given process was last\n"
+"  descheduled. The returned time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Start a regular SIGALRM interrupt which calls process-yield. An optional\n"
+"  time in seconds and micro seconds may be provided. Note that CMUCL code\n"
+"  base is not too interrupt safe so this may cause problems."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n"
+"  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds "
+"to\n"
+"  wait before giving up and returing NIL."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Executes body and returns the values of the last form in body. However, if\n"
+"  the execution takes longer than timeout seconds, abort it and evaluate\n"
+"  timeout-forms, returning the values of last form."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Show the all the processes, their whostate, and state. If the optional\n"
+"  verbose argument is true then the run, real, and idle times are also\n"
+"  shown."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Top-level READ-EVAL-PRINT loop for processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Enter the idle loop, starting a new process to run the top level loop.\n"
+"  The awaking of sleeping processes is timed better with the idle loop "
+"process\n"
+"  running, and starting a new process for the top level loop supports a\n"
+"  simultaneous interactive session. Such an initialisation will likely be "
+"the\n"
+"  default when there is better MP debug support etc."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Create a Lisp connection listener, listening on a TCP port for new\n"
+"  connections and starting a new top-level loop for each. If a password\n"
+"  is not given then one will be generated and reported.  A search is\n"
+"  performed for the first free port starting at the given port which\n"
+"  defaults to 1025."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Execute the body with the lock held. If the lock is held by another\n"
+"  process then the current process waits until the lock is released or\n"
+"  an optional timeout is reached. The optional wait timeout is a time in\n"
+"  seconds acceptable to process-wait-with-timeout.  The results of the\n"
+"  body are return upon success and NIL is return if the timeout is\n"
+"  reached. When the wait key is NIL and the lock is held by another\n"
+"  process then NIL is return immediately without processing the body."
+msgstr ""
+
diff --git a/i18n/locale/cmucl-sparc-svr4.pot b/i18n/locale/cmucl-sparc-svr4.pot
new file mode 100644
index 0000000000000000000000000000000000000000..6eaa0d73ec44de6145fd027052d29937057b609f
--- /dev/null
+++ b/i18n/locale/cmucl-sparc-svr4.pot
@@ -0,0 +1,37 @@
+#@ cmucl-sparc-svr4
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-sparc-vm.pot b/i18n/locale/cmucl-sparc-vm.pot
new file mode 100644
index 0000000000000000000000000000000000000000..efc7fe1dae8ecc8a48830a8a2932762d8a112ad1
--- /dev/null
+++ b/i18n/locale/cmucl-sparc-vm.pot
@@ -0,0 +1,757 @@
+#@ cmucl-sparc-vm
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes in a word."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of tag bits used for a fixnum"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to get the fixnum tag"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Maximum number of bits in a positive fixnum"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a register."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a floating-point register."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"If non-NIL, print registers using the Lisp register names.\n"
+"Otherwise, use the Sparc register names"
+msgstr ""
+
+#: target:assembly/sparc/arith.lisp target:assembly/sparc/array.lisp
+#: target:assembly/sparc/assem-rtns.lisp target:compiler/sparc/type-vops.lisp
+#: target:compiler/sparc/pred.lisp target:compiler/sparc/array.lisp
+#: target:compiler/sparc/print.lisp target:compiler/sparc/nlx.lisp
+#: target:compiler/sparc/call.lisp target:compiler/sparc/alloc.lisp
+#: target:compiler/sparc/values.lisp target:compiler/sparc/cell.lisp
+#: target:compiler/sparc/c-call.lisp target:compiler/sparc/debug.lisp
+#: target:compiler/sparc/subprim.lisp target:compiler/sparc/arith.lisp
+#: target:compiler/sparc/static-fn.lisp target:compiler/sparc/memory.lisp
+#: target:compiler/sparc/char.lisp target:compiler/sparc/system.lisp
+#: target:compiler/sparc/sap.lisp target:compiler/sparc/float.lisp
+#: target:compiler/sparc/move.lisp target:compiler/sparc/insts.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "The Lisp names for the Sparc integer registers"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "The standard names for the Sparc integer registers"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"An alist for the disassembler indicating the target register and\n"
+"value used in a SETHI instruction.  This is used to make annotations\n"
+"about function addresses and register values."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Set pseudo-atomic flag"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating ~D bytes"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating bytes"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Header word ~A, size ~D?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic flag"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "pseudo-atomic interrupted?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch condition: ~S~%Must be one of: ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown fp-branch condition: ~S~%Must be one of: ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown integer condition register:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown conditional move condition register:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown register condition:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Fixups aren't allowed."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Pseudo atomic interrupted trap?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocation trap"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Use it anyway"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"Immediate trap number ~A specified, but only trap numbers\n"
+"   16 to 31 are available to the application"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"  byte-ordering issues."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Return to RETURN-PC."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Emit a return-pc header word.  LABEL is the label to use for this "
+"return-pc."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move the TN Reg-Or-Stack into Reg if it isn't already there."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Do stuff to allocate an other-pointer object of fixed Size with a single\n"
+"  word header having the specified Type-Code.  The result is placed in\n"
+"  Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly "
+"used\n"
+"  by the body.)  The body is placed inside the PSEUDO-ATOMIC, and presumably"
+"\n"
+"  initializes the object."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is less than the specified minimum of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is greater than the specified maximum of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S isn't an even multiple of ~S from ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "The values ~S cover the entire range from ~\n"
+"			 ~S to ~S [step ~S]."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Must supply at least on type for test-type."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-POINTER-TYPE supersedes the use of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Can't test for mix of function subtypes and normal ~\n"
+"		header types."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum untagging"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "constant load"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"	           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "integer to untagged word coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum tagging"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "signed word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer move"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer argument move"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "signed 64-bit word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned 64-bit word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex double-double float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline ftruncate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex long-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float multiplication"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float division"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex conjugate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max/min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to double-double float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline double-double float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-double float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "pointer to SAP coercion"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP move"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP argument move"
+msgstr ""
+
+#: target:compiler/sparc/system.lisp
+msgid ""
+"Read the instruction cycle counter available on UltraSparcs.  The\n"
+"64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit\n"
+"result is the first value."
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character untagging"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character tagging"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character move"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character arg move"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "inline comparison"
+msgstr ""
+
+#: target:compiler/sparc/static-fn.lisp
+msgid "Either too many args (~D) or too many results (~D).  Max = ~D"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline 32-bit abs"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "safe inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline constant ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "identity ASH not transformed away"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline right ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-start"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-end"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid ""
+"Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result\n"
+"  in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.\n"
+"  Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "recode as shifts and adds"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+
+#: target:compiler/sparc/call.lisp
+msgid "more-arg-context"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array access"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array store"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "raw-bits VOP"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "setf raw-bits VOP"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-sse2.pot b/i18n/locale/cmucl-sse2.pot
new file mode 100644
index 0000000000000000000000000000000000000000..a0b53c98fde5c6c2ae5311866738a07d6a066e12
--- /dev/null
+++ b/i18n/locale/cmucl-sse2.pot
@@ -0,0 +1,144 @@
+#@ cmucl-sse2
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "Ignoring bogus i387 Constant ~a"
+msgstr ""
+
+#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp
+#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"	           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double-float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float realpart"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float imagpart"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline dummy FP register bias"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to double-double-float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double-float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline double-double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float arithmetic"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float/float arithmetic"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-sunos-os.pot b/i18n/locale/cmucl-sunos-os.pot
new file mode 100644
index 0000000000000000000000000000000000000000..0f8d5b050c4b1f1e80d5b06d82e0e76f31e5cf72
--- /dev/null
+++ b/i18n/locale/cmucl-sunos-os.pot
@@ -0,0 +1,33 @@
+#@ cmucl-sunos-os
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/sunos-os.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-unix-glibc2.pot b/i18n/locale/cmucl-unix-glibc2.pot
new file mode 100644
index 0000000000000000000000000000000000000000..a58d474445c459e31db621b50816647f6c67a78f
--- /dev/null
+++ b/i18n/locale/cmucl-unix-glibc2.pot
@@ -0,0 +1,2027 @@
+#@ cmucl-unix-glibc2
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/unix-glibc2.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unknown error [~d]"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for read permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for write permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for execute permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for presence of file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors accoridng to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by PATH\n"
+"   for reading and/or writing as specified by the FLAGS argument.\n"
+"   Returns an integer file descriptor.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"     o_excl          Error if the file already exists\n"
+"     o_noctty        Don't assign controlling tty\n"
+"     o_ndelay        Non-blocking I/O\n"
+"     o_sync          Synchronous I/O\n"
+"     o_async         Asynchronous I/O\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument MODE if the file doesn't exist."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for reading"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for writing"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write-only flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-write flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Access mode mask."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Create if nonexistant flag. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error if already exists. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't assign controlling tty. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Truncate flag. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Append flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-blocking I/O"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Asynchronous I/O"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Duplicate a file descriptor"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file desc. flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file desc. flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get lock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock, wait for release"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set owner (for sockets)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get owner (for sockets)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "for f-getfl and f-setfl"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "for fcntl and lockf"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "old bsd flock (depricated)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Shared lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exclusive lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block. Combine with F-LOCK-SH or F-LOCK-EX"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remove lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "depricated stuff"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the group-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the group-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the group-file stream, opening it if necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Size of control character vector."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "See errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No problem."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Authoritative Answer Host not found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-Authoritative Host not found,or SERVERFAIL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non recoverable errors, FORMERR, REFUSED, NOTIMP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open host data base files and mark them as staying open even after\n"
+"a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close host data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get next entry from host data base file.  Open data base if\n"
+"necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base which address match ADDR with\n"
+"length LEN and type TYPE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from host data base for host with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base for host with NAME.  AF must be\n"
+"   set to the address type which as `AF_INET' for IPv4 or `AF_INET6'\n"
+"   for IPv6."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open network data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close network data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from network data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base which address match NET and\n"
+"   type TYPE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from network data base for network with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open service data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close service data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from service data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base for network with NAME and\n"
+"   protocol PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from service data base which matches port PORT and\n"
+"   protocol PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open protocol data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close protocol data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from protocol data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base for network with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base which number is PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Establish network group NETGROUP for enumeration."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Free all space allocated by previous `setnetgrent' call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next member of netgroup established by last `setnetgrent' call\n"
+"   and return pointers to elements in HOSTP, USERP, and DOMAINP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket address is intended for `bind'."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Request for canonical name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid value for `ai_flags' field."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "NAME or SERVICE is unknown."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Temporary failure in name resolution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-recoverable failure in name res."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No address associated with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_family not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_socktype not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "SERVICE not supported for ai_socktype."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family for NAME not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Memory allocation failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "System error returned in errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Translate name of a service location and/or a service name to set of\n"
+"   socket addresses."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Free `addrinfo' structure AI including associated storage."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create pseudo tty master slave pair with NAME and set terminal\n"
+"   attributes according to TERMP and WINP and return handles for both\n"
+"   ends in AMASTER and ASLAVE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create child process and establish the slave pseudo terminal as the\n"
+"   child's controlling terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the password-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the password-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the password-file stream, opening it if necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "The calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Terminated child processes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Minimum priority a process can have"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Maximum priority a process can have"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process group ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a user ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set scheduling algorithm and/or parameters for a process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Retrieve scheduling algorithm for a particular purpose."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get maximum priority value for a scheduler."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get minimum priority value for a scheduler."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the SCHED_RR interval for the named process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Signal mask to be sent at exit."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if VM shared between processes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if fs info shared between processes"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if open files shared between processe"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if signal handlers shared."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if pid shared."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open database for reading."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close database."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get next entry from database, perhaps after opening the file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get shadow entry matching NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read shadow entry from STRING."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protect password file against multi writers."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock password file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "These bits determine file type."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "FIFO"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Character device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Regular file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Symbolic link."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Save swapped text after use (sticky)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute by owner."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal output speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal output speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bogus baud rate ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal input speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal input speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal attributes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal attributes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Send break"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for output for finish"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "See tcflush(3)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Flow control"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed "
+"program."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"	r_ok     Read permission.\n"
+"	w_ok     Write permission.\n"
+"	x_ok     Execute permission.\n"
+"	f_ok     Presence of file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "set the file pointer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "increment the file pointer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "extend the file size"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain OFFSET for that file.  WHENCE can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-READ attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Put the absolute pathname of the current working directory in BUF.\n"
+"   If successful, return BUF.  If not, put an error message in\n"
+"   BUF and return NULL.  BUF should be at least PATH_MAX bytes long."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file-specific configuration information about PATH."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the system variable NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the string-valued system variable NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a new session with the calling process as its leader.\n"
+"   The process group IDs of the session and the calling process\n"
+"   are set to the process ID of the calling process, which is returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the session ID of the given process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the effective user ID of the calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return nonzero iff the calling process is in group GID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Removes the variable Name from the environment"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not supplied,"
+"\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the login name of the user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-uname returns the name and information about the current kernel. The\n"
+"  values returned upon success are: sysname, nodename, release, version,\n"
+"  machine, and domainname. Upon failure, 'nil and the 'errno are returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Revoke access permissions to all processes currently communicating\n"
+"  with the control terminal, and then send a SIGHUP signal to the process\n"
+"  group of the control terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Revoke the access of all descriptors currently open on FILE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make PATH be the root directory (the starting point for absolute paths).\n"
+"   This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by LENGTH.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the maximum number of file descriptors\n"
+"   the current process could possibly have."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock a locked region"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Lock a region for exclusive use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test and lock a region for exclusive use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test a region for othwer processes locks"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-locks can lock, unlock and test files according to the cmd\n"
+"   which can be one of the following:\n"
+"\n"
+"   f_ulock  Unlock a locked region\n"
+"   f_lock   Lock a region for exclusive use\n"
+"   f_tlock  Test and lock a region for exclusive use\n"
+"   f_test   Test a region for othwer processes locks\n"
+"\n"
+"   The lock is for a region from the current location for a length\n"
+"   of length.\n"
+"\n"
+"   This is a simpler version of the interface provided by unix-fcntl.\n"
+"   "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block waiting."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Report status of stopped children."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for cloned process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change uid used for file access control to UID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change gid used for file access control to GID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "There is data to read."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "There is urgent data to read."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Writing now will not block."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error condition."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Hung up."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid polling request."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Canonical number of polling requests to read\n"
+"in at a time in poll."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Poll the file descriptors described by the NFDS structures starting at\n"
+"   FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for\n"
+"   an event to occur; if TIMEOUT is -1, block until an event occurs.\n"
+"   Returns the number of file descriptors with events, zero if timed out,\n"
+"   or -1 for errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the soft and hard limits for RESOURCE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the current soft and hard maximum limits for RESOURCE.\n"
+"   Only the super-user can increase hard limits."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Function depends on CMD:\n"
+"  1 = Return the limit on the size of a file, in units of 512 bytes.\n"
+"  2 = Set the limit on the size of a file to NEWLIMIT.  Only the\n"
+"      super-user can increase the limit.\n"
+"  3 = Return the maximum possible address of the data segment.\n"
+"  4 = Return the maximum number of files that the calling process can open.\n"
+"  Returns -1 on errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the highest priority of any process specified by WHICH and WHO\n"
+"   (see above); if WHO is zero, the current process, process group, or user\n"
+"   (as specified by WHO) is used.  A lower priority number means higher\n"
+"   priority.  Priorities range from PRIO_MIN to PRIO_MAX (above)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the priority of all processes specified by WHICH and WHO (see above)\n"
+"   to PRIO.  Returns 0 on success, -1 on errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Perform the UNIX select(2) system call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-STAT retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-FSTAT is similar to UNIX-STAT except the file is specified\n"
+"   by the file descriptor FD."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSTAT is similar to UNIX-STAT except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"\n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"  \n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the file creation mask of the current process to MASK,\n"
+"   and return the old creation mask."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a device file named PATH, with permission and special bits MODE\n"
+"  and device number DEV (which can be constructed from major and minor\n"
+"  device numbers with the `makedev' macro above)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Create a new FIFO named PATH, with permission bits MODE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return information about the filesystem on which FILE resides."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH available to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH unavailable to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read or write system parameters."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Time used by the program so far (user time + system time).\n"
+"   The result / CLOCKS_PER_SECOND is program time in seconds."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the current time and put it in *TIMER if TIMER is not NULL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Fill in TIMEBUF with information about the current time."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Store the CPU time used by this process and all its\n"
+"   dead children (and their dead children) in BUFFER.\n"
+"   Return the elapsed real time, or (clock_t) -1 for errors.\n"
+"   All times are in CLK_TCKths of a second."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child to die.  When one does, put its status in *STAT_LOC\n"
+"   and return its process ID.  For errors, return (pid_t) -1."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child matching PID to die.\n"
+"   If PID is greater than 0, match any process whose process ID is PID.\n"
+"   If PID is (pid_t) -1, match any process.\n"
+"   If PID is (pid_t) 0, match any process with the\n"
+"   same process group as the current process.\n"
+"   If PID is less than -1, match any process whose\n"
+"   process group is the absolute value of PID.\n"
+"   If the WNOHANG bit is set in OPTIONS, and that child\n"
+"   is not already dead, return (pid_t) 0.  If successful,\n"
+"   return PID and store the dead child's status in STAT_LOC.\n"
+"   Return (pid_t) -1 for errors.  If the WUNTRACED bit is\n"
+"   set in OPTIONS, return status for stopped children; otherwise don't."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Successful"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not permitted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such file or directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such process"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "I/O error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device or address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Arg list too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exec format error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad file number"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No children"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Try again"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of memory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Permission denied"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device required"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Device or resource busy"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File exists"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cross-device link"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a director"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid argument"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File table overflow"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many open files"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a typewriter"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Text file busy"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File too large"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No space left on device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal seek"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only file system"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many links"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Broken pipe"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Math argument out of domain"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Math result not representable"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Resource deadlock would occur"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File name too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No record locks available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Function not implemented"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory not empty"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many symbolic links encountered"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation would block"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No message of desired type"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Identifier removed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Channel number out of range"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 not synchronized"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 halted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 reset"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Link number out of range"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol driver not attached"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No CSI structure available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 halted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid exchange"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request descriptor"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exchange full"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No anode"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request code"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid slot"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File locking deadlock error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad font file format"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Device not a stream"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No data available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Timer expired"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of streams resources"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Machine is not on the network"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Package not installed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Object is remote"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Link has been severed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Advertise error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Srmount error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Communication error on send"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Multihop attempted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "RFS specific error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a data message"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Value too large for defined data type"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Name not unique on network"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File descriptor in bad state"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote address changed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Can not access a needed shared library"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Accessing a corrupted shared library"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot exec a shared library directly"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal byte sequence"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Streams pipe error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many users"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket operation on non-socket"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Destination address required"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Message too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol wrong type for socket"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket type not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol family not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family not supported by protocol"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address already in use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot assign requested address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is down"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is unreachable"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network dropped connection because of reset"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Software caused connection abort"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection reset by peer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No buffer space available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is already connected"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is not connected"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many references: cannot splice"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection timed out"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection refused"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Host is down"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No route to host"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation already in progress"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation now in progress"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Stale NFS file handle"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Structure needs cleaning"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a XENIX named type file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No XENIX semaphores available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a named type file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote I/O error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Quota exceeded"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
+"  then ioctl argument size and direction are included as for ioctls defined\n"
+"  by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type\n"
+"  is the characters code, else DEV may be an integer giving the type."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Save text image after execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error reading link ~S: ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if "
+"not found."
+msgstr ""
+
diff --git a/i18n/locale/cmucl-unix.pot b/i18n/locale/cmucl-unix.pot
new file mode 100644
index 0000000000000000000000000000000000000000..3354c764b7c5954755316e5c55e80a205c87a07e
--- /dev/null
+++ b/i18n/locale/cmucl-unix.pot
@@ -0,0 +1,1550 @@
+#@ cmucl-unix
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/unix.lisp
+msgid "Size of control character vector."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Successful"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not permitted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such file or directory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Interrupted system call"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "I/O error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device not configured"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Arg list too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Exec format error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad file descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No child process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource deadlock avoided"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No more processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Try again"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of memory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Permission denied"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Block device required"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device or resource busy"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File exists"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cross-device link"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a director"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Is a directory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid argument"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File table overflow"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many open files"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Inappropriate ioctl for device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Text file busy"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File too large"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No space left on device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Illegal seek"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-only file system"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many links"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Broken pipe"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Numerical argument out of domain"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Result too large"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Math result not representable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation would block"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource temporarily unavailable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation now in progress"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation already in progress"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket operation on non-socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Destination address required"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Message too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol wrong type for socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol not available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket type not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not supported on socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol family not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol family"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address already in use"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can't assign requested address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network is down"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network is unreachable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network dropped connection on reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Software caused connection abort"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection reset by peer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No buffer space available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket is already connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket is not connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can't send after socket shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many references: can't splice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection timed out"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection refused"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many levels of symbolic links"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File name too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Host is down"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No route to host"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Directory not empty"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many users"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Disc quota exceeded"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "namei should continue locally"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "namei was handled remotely"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote file system error _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "syscall was handled by Vice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No message of desired type"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Identifier removed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Channel number out of range"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 2 not synchronized"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 3 halted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 3 reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Link number out of range"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol driver not attached"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No CSI structure available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 2 halted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Deadlock situation detected/avoided"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No record locks available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 47"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 48"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad exchange descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad request descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Message tables full"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Anode table overflow"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad request code"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid slot"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File locking deadlock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad font file format"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a stream device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No data available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Timer expired"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of stream resources"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Machine is not on the network"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Package not installed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Object is remote"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Link has been severed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Advertise error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Srmount error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Communication error on send"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Multihop attempted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a data message"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Value too large for defined data type"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Name not unique on network"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File descriptor in bad state"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote address changed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can not access a needed shared library"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Accessing a corrupted shared library"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Attempting to link in more shared libraries than system limit"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can not exec a shared library directly"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 88"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not applicable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Number of symbolic links encountered during path name traversal exceeds "
+"MAXSYMLINKS"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 91"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 92"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Option not supported by protocol"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot assign requested address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network dropped connection because of reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is already connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is not connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot send after socket shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many references: cannot splice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Stale NFS file handle"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource deadlock would occur"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Function not implemented"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many symbolic links encountered"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid exchange"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid request descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Exchange full"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No anode"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid request code"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File locking deadlock error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device not a stream"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of streams resources"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "RFS specific error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot exec a shared library directly"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Illegal byte sequence"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Streams pipe error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Structure needs cleaning"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a XENIX named type file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No XENIX semaphores available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Is a named type file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote I/O error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Quota exceeded"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unknown error [~d]"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for read permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for write permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for execute permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for presence of file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"	r_ok     Read permission.\n"
+"	w_ok     Write permission.\n"
+"	x_ok     Execute permission.\n"
+"	f_ok     Presence of file."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set user ID on execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set group ID on execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Save text image after execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"  \n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"\n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Duplicate a file descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get file desc. flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set file desc. flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get file flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set file flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get lock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set lock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set lock, wait for release"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking reads"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Append on each write"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Signal pgrp when data ready"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Truncate to zero length"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error if already created"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors according to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "set the file pointer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "increment the file pointer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "extend the file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lseek accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain offset for that file.  Whence can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-only flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write-only flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-write flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking I/O"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Append flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Truncate flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error if already exists."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Don't assign controlling tty"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking mode"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by path\n"
+"   for reading and/or writing as specified by the flags argument.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument mode if the file doesn't exist.  An\n"
+"   integer file descriptor is returned by unix-open."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-read attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Perform the UNIX select(2) system call.\n"
+"  (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n"
+"	   (type (or (alien (* (struct fd-set))) null)\n"
+"		 read-fds write-fds exception-fds)\n"
+"	   (type (or null (unsigned-byte 31)) timeout-secs)\n"
+"	   (type (unsigned-byte 31) timeout-usecs)\n"
+"	   (optimize (speed 3) (safety 0) (inhibit-warnings 3)))"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by len.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal attributes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal attributes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal output speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal output speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bogus baud rate ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal input speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal input speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Send break"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Wait for output for finish"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "See tcflush(3)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Flow control"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not supplied,"
+"\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-stat retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lstat is similar to unix-stat except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fstat is similar to unix-stat except the file is specified\n"
+"   by the file descriptor fd."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "The calling process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Terminated child processes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-times returns information about the cpu time usage of the process\n"
+"   and its children."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Removes the variable Name from the environment"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error reading link ~S: ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed "
+"program."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "The maximum size of the group entry buffer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "CPU time per process (in milliseconds)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Maximum file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Data segment size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Stack size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Core file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Number of open files"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Maximum mapped memory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "CPU time per process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Addess space (resident set size)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Locked-in-memory address space"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Number of processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the limits on the consumption of system resouce specified by\n"
+"  Resource.  If successful, return three values: T, the current (soft)\n"
+"  limit, and the maximum (hard) limit."
+msgstr ""
+
diff --git a/i18n/locale/cmucl-x86-vm.pot b/i18n/locale/cmucl-x86-vm.pot
new file mode 100644
index 0000000000000000000000000000000000000000..50991297bfb07009a068efe425841a6b57672117
--- /dev/null
+++ b/i18n/locale/cmucl-x86-vm.pot
@@ -0,0 +1,274 @@
+#@ cmucl-x86-vm
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare object's slot value to test-value and if EQ store\n"
+"   new-value in the slot. The original value of the slot is returned."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare symbol's value to test-value and if EQ store\n"
+"  new-value in symbol's value slot and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the car of CONS to test-value and if EQ store\n"
+"  new-value its car and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the cdr of CONS to test-value and if EQ store\n"
+"  new-value its cdr and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare an element of vector to test-value and if EQ store\n"
+"  new-value the element and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the symbol global value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe pop from the list in the symbol global value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the car of cons."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the cdr of cons."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the vector element."
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"   byte-ordering issues."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an object with a size in bytes given by Size.\n"
+"   The size may be an integer or a TN.\n"
+"   If Inline is a VOP node-var then it is used to make an appropriate\n"
+"   speed vs size decision.  If Dynamic-Extent is true, and otherwise\n"
+"   appropriate, allocate from the stack."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an other-pointer object of fixed Size with a single\n"
+"   word header having the specified Type-Code.  The result is placed in\n"
+"   Result-TN."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+
+#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp
+#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp
+#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp
+#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp
+#: target:compiler/x86/move.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum untagging"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "constant load"
+msgstr ""
+
+#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp
+#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"	           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "integer to untagged word coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum tagging"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "signed word to integer coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "word integer move"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "word integer argument move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character untagging"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character tagging"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character arg move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "inline comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline ASH"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-START"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-END"
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+
+#: target:compiler/x86/call.lisp
+msgid "more-arg-context"
+msgstr ""
+
+#: target:compiler/x86/array.lisp
+msgid "inline array access"
+msgstr ""
+
+#: target:compiler/x86/array.lisp
+msgid "inline array store"
+msgstr ""
+
diff --git a/i18n/locale/cmucl-x87.pot b/i18n/locale/cmucl-x87.pot
new file mode 100644
index 0000000000000000000000000000000000000000..55e342cc9373f72a986d0b47c0f75b40a787a463
--- /dev/null
+++ b/i18n/locale/cmucl-x87.pot
@@ -0,0 +1,22 @@
+#@ cmucl-x87
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp
+#: target:compiler/x86/x87-sap.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
diff --git a/i18n/locale/cmucl.pot b/i18n/locale/cmucl.pot
new file mode 100644
index 0000000000000000000000000000000000000000..9e9efda704902f026c19c058384584bef4e41afa
--- /dev/null
+++ b/i18n/locale/cmucl.pot
@@ -0,0 +1,20211 @@
+#@ cmucl
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/intl.lisp
+msgid ""
+"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
+"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+msgstr ""
+
+#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp
+#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp
+#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp
+#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp
+#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp
+#: target:compiler/dump.lisp target:compiler/dyncount.lisp
+#: target:compiler/xref.lisp target:compiler/srctran.lisp
+#: target:compiler/typetran.lisp target:compiler/ir1util.lisp
+#: target:compiler/main.lisp target:compiler/knownfun.lisp
+#: target:compiler/new-assem.lisp target:compiler/disassem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/ctype.lisp target:compiler/node.lisp
+#: target:compiler/sset.lisp target:compiler/backend.lisp
+#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp
+#: target:code/intl.lisp target:compiler/globaldb.lisp
+#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp
+#: target:code/internet.lisp target:code/loop.lisp target:code/run-program.lisp
+#: target:code/parse-time.lisp target:code/profile.lisp target:code/ntrace.lisp
+#: target:code/rand-mt19937.lisp target:code/debug.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp target:code/eval.lisp
+#: target:code/filesys.lisp target:code/pathname.lisp
+#: target:code/fd-stream.lisp target:code/extfmts.lisp
+#: target:code/serve-event.lisp target:code/reader.lisp
+#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp
+#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp
+#: target:code/commandline.lisp target:code/unidata.lisp
+#: target:compiler/proclaim.lisp target:code/hash-new.lisp
+#: target:code/byte-interp.lisp target:code/c-call.lisp
+#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp
+#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp
+#: target:assembly/assemfile.lisp target:code/struct.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ="
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ~C"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expected : in ?: construct"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expected close-paren."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Unexpected token: ~S."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expecting end of expression.  ~S."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the current message domain and return its translation."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the current domain."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the specified message domain and return its translation."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the specified domain."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "_@ is a reserved reader macro prefix."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "~&Dumping ~D messages for domain ~S~%"
+msgstr ""
+
+#: target:code/struct.lisp
+msgid "The size of a stream in-buffer."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid "Register the feature as having influenced the CMUCL build process."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Register the feature as having influenced the CMUCL build process,\n"
+"and also the CMUCL C runtime."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Given any Array, binds Data-Var to the array's data vector and Start-Var "
+"and\n"
+"  End-Var to the start and end of the designated portion of the data "
+"vector.\n"
+"  Svalue and Evalue are any start and end specified to the original operatio"
+"n,\n"
+"  and are factored into the bindings of Start-Var and End-Var.  Offset-Var "
+"is\n"
+"  the cumulative offset of all displacements encountered, and does not\n"
+"  include Svalue."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid "Executes the forms in the body without doing a garbage collection."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the 24 bits of data in the header of object X, which must be an\n"
+"  other-pointer object."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Sets the 24 bits of data in the header of object X (which must be an\n"
+"  other-pointer object) to VAL."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns the length of the closure X.  This is one more than the number\n"
+"  of variables closed over."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the three-bit lowtag for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the 8-bit header type for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return a System-Area-Pointer pointing to the data for the vector X, which\n"
+"  must be simple."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns a System-Area-Pointer pointing to the next free work of the current\n"
+"  dynamic space."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the control stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the header typecode for FUNCTION.  Can be set with SETF."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the arglist from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the name from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the type from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the function from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the length of VECTOR.  There is no reason to use this, 'cause\n"
+"  (length (the vector foo)) is the same."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the SXHASH for the simple-string STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the SXHASH for the first LENGTH characters of the simple-string\n"
+"  STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extract the INDEXth slot from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
+"  WORDS words long.  Note: it is your responsibility to assure that the\n"
+"  relation between LENGTH and WORDS is correct."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Allocate an array header with type code TYPE and rank RANK."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Extract the INDEXth element from the header of CODE-OBJ.  Can be set with\n"
+"  setf."
+msgstr ""
+
+#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp
+#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp
+#: target:code/kernel.lisp
+msgid "Argument ~A is not a ~S: ~S."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of symbols that describe features provided by the\n"
+"   implementation."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Features affecting the runtime"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to positive infinity."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to negative infinity."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
+"will\n"
+"   enter the debugger prior to signalling that condition."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, nil is returned.  If\n"
+"   (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked "
+"before\n"
+"   any signalling is done."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Ignore the additional arguments."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"You may not supply additional arguments ~\n"
+"				     when giving ~S to ~S."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Bad argument to ~S: ~S"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked."
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "Help! "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid " nested errors.  "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Prints a message and invokes the debugger without allowing any possibility\n"
+"   of condition handling occurring."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Return from BREAK."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Warns about a situation by signalling a condition formed by datum and\n"
+"   arguments.  While the condition is being signaled, a muffle-warning "
+"restart\n"
+"   exists that causes WARN to immediately return nil."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "a warning condition"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Skip warning."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&~@<Warning:  ~3i~:_~A~:>~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked.  This function\n"
+"   is just like error, except that the condition type defaults to the type\n"
+"   simple-program-error, instead of program-error."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gives the world a shove and hopes it spins."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Functions to be invoked during cleanup at Lisp exit."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
+"  non-Nil."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Zero the unused portion of the control stack so that old objects are not\n"
+"   kept alive because of uninitialized stack variables."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of all the values returned by the most recent top-level EVAL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of / when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of // when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level EVAL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of * when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ** when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level READ."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of + when a new value is read."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ++ when a new value is read."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the form curently being evaluated."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"The top-level prompt string.  This also may be a function of no arguments\n"
+"   that returns a simple-string."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"True if we are within the Top-Level-Catcher.  This is used by interrupt\n"
+"  handlers to see whether it is o.k. to throw."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,"
+"\n"
+"  +, ///, //, /, and -."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Go on with * set to NIL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "EVAL returned an unbound marker."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"How many pages to reserve from the total heap space so we can handle\n"
+"heap overflow."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Top-level READ-EVAL-PRINT loop.  Do not call this."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Return to Top-Level."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"~&Received EOF on *standard-input*, ~\n"
+"					switching to *terminal-io*.~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&Received more than ~D EOFs; Aborting.~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&Received EOF.~%"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
+"          environment constructed by the PCL portable code walker.  These ~\n"
+"          environments are only useful for macroexpansion, they cannot be ~\n"
+"          used for evaluation.  ~\n"
+"          This error should never occur when using PCL.  ~\n"
+"          This most likely source of this error is a program which tries to "
+"~\n"
+"          to use the PCL portable code walker to build its own evaluator.~@:"
+">"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<~S is not a recognized variable declaration.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't get template for ~S.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<~S is a special form, not defined in the CommonLisp ~\n"
+"		      manual.  This code walker doesn't know how to walk it.  ~\n"
+"		      Define a template for this special form and try again.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<While handling repeat: ~\n"
+"                     Ran into stop while still in repeat template.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<Encountered declare ~S in a place where a ~\n"
+"         declare was not expected.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't understand something in the arglist ~S.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<In the form ~S: ~\n"
+"                       IF only accepts three arguments, you are using ~D. ~\n"
+"                       It is true that some Common Lisps support this, but "
+"~\n"
+"                       it is not truly legal Common Lisp.  For now, this "
+"code ~\n"
+"                       walker is interpreting the extra arguments as extra "
+"else clauses. ~\n"
+"                       Even if this is what you intended, you should fix "
+"your source code.~@:>"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"A funcallable instance used to implement fwrappers.\n"
+"   The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
+"   This function returns an instance closure closing over an \n"
+"   fwrapper object, which is installed as the funcallable-instance\n"
+"   function of the fwrapper object."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Print-function for struct FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return FUN if it is an fwrapper or nil if it isn't."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Evaluate BODY with VAR bound to consecutive fwrappers of\n"
+"   FDEFN.  Return RESULT at the end."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return tha last encapsulation of FDEFN or NIL if none."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
+"   Signal an error if FUNCTION-NAME is an undefined function."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
+"   from outermost to innermost."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Set FUNCTION-NAMES's fwrappers to elements of the list\n"
+"   FWRAPPERS, which is assumed to be ordered from outermost to\n"
+"   innermost.  FWRAPPERS null means remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
+"   created by calling CONSTRUCTOR.  CONSTRUCTOR is a function\n"
+"   defined with DEFINE-FWRAPPER, or the name of such a function.\n"
+"   Return the fwrapper created.  USER-DATA is arbitrary data to be\n"
+"   associated with the fwrapper.  It is accessible in wrapper\n"
+"   functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
+"   FWRAPPER)."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Remove fwrappers from the function named FUNCTION-NAME.\n"
+"   If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, remove fwrappers satisfying TEST.\n"
+"   If both are not specified, remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update the funcallable instance function of fwrapper F from its\n"
+"   constructor."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update fwrapper function definitions of FUNCTION-NAME.\n"
+"   If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, update fwrappers satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Find an fwrapper of FUNCTION-NAME.\n"
+"   If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
+"   If TEST is supplied, find an fwrapper satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Like DEFUN, but define a function wrapper.\n"
+"   In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
+"   executing fwrapper.  FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
+"   in BODY to call the next fwrapper or the primary function.  When\n"
+"   called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
+"   function with the original args to the fwrapper, otherwise it\n"
+"   invokes the next function with the supplied args."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return the expansion of a DEFINE-FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"First value is true if BODY refers to any of the variables in\n"
+"     OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
+"     returns.  Second value is true if BODY refers to REST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Fwrapper for old-style encapsulations."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "This function is deprecated; use fwrappers instead."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Define (NAME ...) to be a valid function name whose syntax is checked\n"
+"  by BODY.  In BODY, VAR is bound to an actual function name of the\n"
+"  form (NAME ...) to check.  BODY should return two values.\n"
+"  First value true means the function name is valid.  Second value\n"
+"  is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"First value is true if NAME has valid function name syntax.\n"
+"  Second value is the name, a symbol, to use as a block name in DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the fdefn object for NAME.  If it doesn't already exist and CREATE\n"
+"   is non-NIL, create a new (unbound) one."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Invalid function name: ~S"
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the FDEFN of NAME.  Signal an error if there is none\n"
+"   or if it's function is null."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Returns the definition for name, including any encapsulations.  Settable\n"
+"   with SETF."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return FUNCTION-NAME's global function definition.\n"
+"   If FUNCTION-NAME is fwrapped, return the primary function definition\n"
+"   stored in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"This holds functions that (SETF FDEFINITION) invokes before storing the\n"
+"   new value.  These functions take the function name and the new value."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
+"   If FUNCTION-NAME is fwrapped, set the primary function stored\n"
+"   in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Return true if name has a global function definition."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Make Name have no global function definition."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "&rest keyword is ~:[missing~;misplaced~]."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Return a list of all the currently active restarts ordered from most\n"
+"   recently established to less recently established.  If Condition is\n"
+"   specified, then only restarts associated with Condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Returns the name of the given restart object."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
+"   Evaluates the Forms in a dynamic environment where the restarts in the "
+"list\n"
+"   Restarts-Form are associated with the condition returned by Condition-For"
+"m.\n"
+"   This allows FIND-RESTART, etc., to recognize restarts that are not "
+"related\n"
+"   to the error currently being debugged.  See also RESTART-CASE."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms in a dynamic context where the given restart bindings are\n"
+"   in effect.  Users probably want to use RESTART-CASE.  When clauses "
+"contain\n"
+"   the same restart name, FIND-RESTART will find the first such clause."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Unnamed restart does not have a ~\n"
+"					report function -- ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Returns the first restart named name.  If name is a restart, it is returned\n"
+"   if it is currently active.  If no such restart is found, nil is "
+"returned.\n"
+"   It is an error to supply nil as a name.  If Condition is specified and "
+"not\n"
+"   NIL, then only restarts associated with that condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, passing any given\n"
+"   arguments.  If the argument restart is not a restart or a currently "
+"active\n"
+"   non-nil restart name, then a control-error is signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Restart ~S is not active."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, prompting for any\n"
+"   necessary arguments.  If the argument restart is not a restart or a\n"
+"   currently active non-nil restart name, then a control-error is "
+"signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(RESTART-CASE form\n"
+"   {(case-name arg-list {keyword value}* body)}*)\n"
+"   The form is evaluated in a dynamic context where the clauses have "
+"special\n"
+"   meanings as points to which control may be transferred (see INVOKE-RESTAR"
+"T).\n"
+"   When clauses contain the same case-name, FIND-RESTART will find the "
+"first\n"
+"   such clause.  If Expression is a call to SIGNAL, ERROR, CERROR or WARN "
+"(or\n"
+"   macroexpands into such) then the signalled condition will be associated "
+"with\n"
+"   the new restarts."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
+"   body)\n"
+"   If restart-name is not invoked, then all values returned by forms are\n"
+"   returned.  If control is transferred to this restart, it immediately\n"
+"   returns the values nil and t."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition ~S was signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "No REPORT?  Shouldn't happen!"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition slot is not bound: ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Slot ~S of ~S missing."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Make an instance of a condition object using the specified initargs."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~S is not a condition class."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Bad thing for class arg:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition already names a declaration: ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
+"   Define NAME as a condition type.  This new type inherits slots and its\n"
+"   report function from the specified PARENT-TYPEs.  A slot spec is either\n"
+"   a symbol denoting the name of the slot, or a list of the form:\n"
+"\n"
+"     (slot-name {slot-option value}*)\n"
+"\n"
+"   where slot-option is one of :READER, :WRITER, :ACCESSOR, :ALLOCATION,\n"
+"   :INITARG, :INITFORM, :DOCUMENTATION, and :TYPE.\n"
+"\n"
+"   Each overall option is of the form\n"
+"\n"
+"     (option-name {value}*)\n"
+"\n"
+"   where option-name is one of :DEFAULT-INITARGS, :DOCUMENTATION,\n"
+"   and :REPORT.\n"
+"\n"
+"   The :REPORT option is peculiar to DEFINE-CONDITION.  Its argument is "
+"either\n"
+"   a string or a two-argument lambda or function name.  If a function, the\n"
+"   function is called with the condition and stream to report the "
+"condition.\n"
+"   If a string, the string is printed.\n"
+"\n"
+"   Condition types are classes, but (as allowed by ANSI and not as described"
+" in\n"
+"   CLtL2) are neither STANDARD-OBJECTs nor STRUCTURE-OBJECTs.  WITH-SLOTS "
+"and\n"
+"   SLOT-VALUE may not be used on condition objects."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Keyword slot name indicates probable syntax error:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Malformed condition slot spec:~%  ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "More than one :INITFORM in:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "More than one slot :DOCUMENTATION in~%  ~s"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Slot :DOCUMENTATION is not a string in~%  ~s"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Unknown slot option:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Bad option:~%  ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp target:code/error.lisp
+msgid "Unknown option: ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-BIND ( {(type handler)}* )  body)\n"
+"   Executes body in a dynamic context where the given handler bindings are\n"
+"   in effect.  Each handler must take the condition being signalled as an\n"
+"   argument.  The bindings are searched first to last in the event of a\n"
+"   signalled condition."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Ill-formed handler bindings."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~&~@<Error in function ~S:  ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Control stack overflow"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Heap (dynamic space) overflow"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Layout-invalid error in ~S:~@\n"
+"		     Type test of class ~S was passed obsolete instance:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "End-of-File on ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the variable ~S is unbound."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the function ~S is undefined."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"~@<Destructive function ~S called on ~\n"
+"                         constant data.~@:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Arithmetic error ~S signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~%Operation was ~S, operands ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-CASE form\n"
+"   { (type ([var]) body) }* )\n"
+"   Executes form in a context with handlers established for the condition\n"
+"   types.  A peculiar property allows type to be :no-error.  If such a "
+"clause\n"
+"   occurs, and form returns normally, all its values are passed to this "
+"clause\n"
+"   as if by MULTIPLE-VALUE-CALL.  The :no-error clause accepts more than "
+"one\n"
+"   var specification."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms after establishing a handler for all error conditions that\n"
+"   returns from this form nil and the condition signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Found an \"abort\" restart that failed to transfer control dynamically."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named abort, signalling a control-error if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named muffle-warning, signalling a\n"
+"   control-error if none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control to a restart named continue, returning nil if none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named store-value, returning nil if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named use-value, returning nil if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Forms that must happen before top level forms are run."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Can't cold-load-init other forms along with an eval-when."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Missing type method for ~S"
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class method."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-CLASS Name [Inherits]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Layout for ~S~@[, Invalid=~S~]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "The inclusive upper bound on LAYOUT-HASH values."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Layout depth conflict: ~S~%  ~\n"
+"		        (~S collides at ~S with ~S)~%"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Can't use anonymous or undefined class as constant:~%  ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Return the class with the specified Name.  If ERRORP is false, then NIL is\n"
+"   returned when no such class exists."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Class not yet defined:~%  ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Illegal to redefine standard type ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Changing meta-class of ~S from ~S to ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Redefining DEFTYPE type to be a class: ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Return the class of the supplied object, which may be any Lisp object, not\n"
+"   just a CLOS STANDARD-OBJECT."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Modifing ~(~A~) class ~S; making it writable."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Subclassing sealed class ~S; unsealing it."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in superclasses of class ~S:~%  ~\n"
+"		  ~A superclasses: ~S~%  ~\n"
+"		  ~A superclasses: ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"In class ~S:~%  ~\n"
+"		    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
+"		    ~A definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in instance length of class ~S:~%  ~\n"
+"		   ~A length: ~D~%  ~\n"
+"		   ~A length: ~D"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in the inheritance structure of class ~S~%  ~\n"
+"		 between the ~A definition and the ~A definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Loading a reference to class ~S when the compile~\n"
+"		       ~%  time definition was incompatible with the current ~\n"
+"		       one."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Invalidate current definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "New definition of ~S must be loaded eventually."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Smash current layout, preserving old code."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"		      I hope you know what you're doing..."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Assuming the current definition of ~S is correct, and~@\n"
+"		      that the loaded code doesn't care about the ~\n"
+"		      incompatibility."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Topological sort failed due to constraint on ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Something strange with forward layout for ~S:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"*Use-Implementation-Types* is a semi-public flag which determines how\n"
+"   restrictive we are in determining type membership.  If two types are the\n"
+"   same in the implementation, then we will consider them them the same "
+"when\n"
+"   this switch is on.  When it is off, we try to be as restrictive as the\n"
+"   language allows, allowing us to detect more errors.  Currently, this "
+"only\n"
+"   affects array types."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Subtypep is illegal on this type:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "&Aux in a FUNCTION or VALUES type: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Keyword type description is not a two-list: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Repeated keyword ~S in lambda list: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"The maximum length of a union of integer types before we take a\n"
+"  short cut and return a simpler union."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad thing to be a type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "VALUES type illegal in this context:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The SATISFIES predicate name is not a symbol: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Weird CONS type ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not numeric: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not real: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"The component type for COMPLEX (EQL X) ~\n"
+"                                    is complex: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"~@<(known bug #145): The type ~S is too hairy to be \n"
+"                         used for a COMPLEX component.~:@>"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bound is not *, a ~A or a list of a ~A: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad N specified for MOD type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad float format: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Arrays can't have a negative number of dimensions: ~D."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Array type has too many dimensions: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad dimension in array type: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Array dimensions is not a list, integer or *:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type of characters that aren't base-char's.  None in CMU CL."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type corresponding to the charaters required by the standard."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type for any keyword symbol."
+msgstr ""
+
+#: target:compiler/generic/vm-type.lisp
+msgid "~S isn't an integer type?"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return the type of OBJECT."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Return the element type that will actually be used to implement an array\n"
+"   with the specifier :ELEMENT-TYPE Spec."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Return two values indicating the relationship between type1 and type2:\n"
+"  T and T: type1 definitely is a subtype of type2.\n"
+"  NIL and T: type1 definitely is not a subtype of type2.\n"
+"  NIL and NIL: who knows?"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return T iff OBJECT is of type TYPE."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "~@<unknown element type in array type: ~2I~_~S~:>"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Unknown type specifier: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Invalid type specifier: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Function types are not a legal argument to TYPEP:~%  ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Class has not yet been defined: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "TYPEP on obsolete object (was class ~S)."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Class is currently invalid: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Returns T if X and Y are EQL or if they are structured components\n"
+"  whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they\n"
+"  are the same length and have indentical components.  Other arrays must be\n"
+"  EQ to be EQUAL."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Just like EQUAL, but more liberal in several respects.\n"
+"  Numbers may be of different types, as long as the values are identical\n"
+"  after coercion.  Characters may differ in alphabetic case.  Vectors and\n"
+"  arrays must have identical dimensions and EQUALP elements, but may differ\n"
+"  in their type restriction."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No alien type class ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No method ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Parse the list structure TYPE as an alien type specifier and return\n"
+"   the resultant alien-type structure."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown alien type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No translator for primitive alien type ~S?"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Definition missing for alien type ~S?"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Attempt to multiple define ~A ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Attempt to shadow definition of ~A ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the alien-type structure TYPE back into a list specification of\n"
+"   the type."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for\n"
+"   STRUCT and UNION types, in which case the name is taken from the type\n"
+"   specifier."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is a built-in alien type."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~S to be:~%  ~S,~%was~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the\n"
+"   only supported subtype relationships are that any pointer type is a\n"
+"   subtype of (* t), and any array type's first dimension will match \n"
+"   (array <eltype> nil ...).  Otherwise, the two types have to be\n"
+"   ALIEN-TYPE-=."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return T iff OBJECT is an alien of type TYPE."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot represent ~S typed aliens."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot pass aliens of type ~S as arguments to call-out"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot return aliens of type ~S from call-out"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot extract ~D bit integers."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining alien enum ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown enum type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Empty enum type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "An enumeration must contain at least one element."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S is not a keyword."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S is not an integer."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S used more than once."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S used more than once."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Can't represent enums needing more than 32 bits."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot deposit aliens of type ~S (unknown size)."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "First dimension is not a non-negative fixnum or NIL: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Dimension is not a non-negative fixnum: ~S"
+msgstr ""
+
+#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp
+#: target:pcl/simple-streams/internal.lisp
+#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp
+#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp
+#: target:pcl/seal.lisp target:pcl/dfun.lisp
+#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp
+#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp
+#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp
+#: target:code/format.lisp target:code/pprint-loop.lisp target:code/pprint.lisp
+#: target:code/bignum.lisp target:code/alieneval.lisp
+msgid "Required argument missing"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Unknown size: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown alignment: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "A hash table used to detect cycles while comparing record types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
+"If so return true; otherwise call ALTERNATIVE."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot use values types here."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Badly formed alien name."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define NAME as an external alien variable of type TYPE.  NAME should be\n"
+"   a list of a string holding the alien name and a symbol to use as the "
+"Lisp\n"
+"   name.  If NAME is just a symbol or string, then the other name is "
+"guessed\n"
+"   from the one supplied."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Access the alien variable named NAME, assuming it is of type TYPE.  This\n"
+"   is SETFable."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Establish some local alien variables.  Each BINDING is of the form:\n"
+"     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
+"   ALLOCATION should be one of:\n"
+"     :LOCAL (the default)\n"
+"       The alien is allocated on the stack, and has dynamic extent.\n"
+"     :STATIC\n"
+"       The alien is allocated on the heap, and has infinate extent.  The "
+"alien\n"
+"       is allocated at load time, so the same piece of memory is used each "
+"time\n"
+"       this form executes.\n"
+"     :EXTERN\n"
+"       No alien is allocated, but VAR is established as a local name for\n"
+"       the external alien given by EXTERNAL-NAME."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return true if X (which must be an Alien pointer) is null, false otherwise."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
+"   evaluated.)  Type must be pointer-like."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot make aliens of type ~S out of SAPs"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return a System-Area-Pointer pointing to Alien's data."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE\n"
+"   is supplied, how it is interpreted depends on TYPE.  If TYPE is an array\n"
+"   type, SIZE is used as the first dimension for the allocated array.  If "
+"TYPE\n"
+"   is not an array, then SIZE is the number of elements to allocate.  The\n"
+"   memory is allocated using ``malloc'', so it can be passed to foreign\n"
+"   functions which use ``free''."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot override the size of zero-dimensional arrays."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Size of ~S unknown."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Alignment of ~S unknown."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated\n"
+"   by MAKE-ALIEN or ``malloc''."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No slot named ~S in ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Incorrect number of indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"De-reference an Alien pointer or array.  If an array, the indices are used\n"
+"   as the indices of the array element to access.  If a pointer, one index "
+"can\n"
+"   optionally be specified, giving the equivalent of C pointer arithmetic."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong; local-alien-info not found: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S isn't forced to memory.  Something went wrong."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return an Alien pointer to the data addressed by Expr, which must be a call\n"
+"   to SLOT or DEREF, or a reference to an Alien variable."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong, local-alien-info not found: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is not a valid L-value"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both "
+"types\n"
+"   must be Alien array, pointer or function types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S cannot be cast."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Cannot cast to alien type ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return the size of the alien type TYPE.  UNITS specifies the units to\n"
+"   use and can be either :BITS, :BYTES, or :WORDS."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown size for alien type ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Call the foreign function ALIEN with the specified arguments.  ALIEN's\n"
+"   type specifies the argument and result types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is not an alien function."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Def-Alien-Routine Name Result-Type\n"
+"                    {(Arg-Name Arg-Type [Style])}*\n"
+"\n"
+"  Define a foreign interface function for the routine with the specified "
+"Name,\n"
+"  which may be either a string, symbol or list of the form (string symbol).\n"
+"  Return-Type is the Alien type for the function return value.  VOID may be\n"
+"  used to specify a function with no result.\n"
+"\n"
+"  The remaining forms specify individual arguments that are passed to the\n"
+"  routine.  Arg-Name is a symbol that names the argument, primarily for\n"
+"  documentation.  Arg-Type is the C-Type of the argument.  Style specifies "
+"the\n"
+"  way that the argument is passed.\n"
+"\n"
+"  :IN\n"
+"        An :In argument is simply passed by value.  The value to be passed "
+"is\n"
+"        obtained from argument(s) to the interface function.  No values are\n"
+"        returned for :In arguments.  This is the default mode.\n"
+"\n"
+"  :OUT\n"
+"        The specified argument type must be a pointer to a fixed sized "
+"object.\n"
+"        A pointer to a preallocated object is passed to the routine, and "
+"the\n"
+"        the object is accessed on return, with the value being returned "
+"from\n"
+"        the interface function.  :OUT and :IN-OUT cannot be used with "
+"pointers\n"
+"        to arrays, records or functions.\n"
+"\n"
+"  :COPY\n"
+"        Similar to :IN, except that the argument values are stored in on\n"
+"        the stack, and a pointer to the object is passed instead of\n"
+"        the values themselves.\n"
+"\n"
+"  :IN-OUT\n"
+"        A combination of :OUT and :COPY.  A pointer to the argument is "
+"passed,\n"
+"        with the object being initialized from the supplied argument and\n"
+"        the return value being determined by accessing the object on "
+"return."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Bogus argument style ~S in ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Can't use :out or :in-out on pointer-like type:~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"A callback consists of a piece assembly code -- the trampoline --\n"
+"and a lisp function.  We store the function type (including return\n"
+"type and arg types), so we can detect incompatible redefinitions."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Vector of all callbacks."
+msgstr ""
+
+#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp
+#: target:compiler/main.lisp target:code/describe.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp
+#: target:code/foreign-linkage.lisp target:code/reader.lisp
+#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp
+#: target:code/alieneval.lisp
+msgid "~S is not an array with a fill-pointer."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return the trampoline pointer for the callback NAME."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"~\n"
+"Attempt to redefine callback with incompatible return type.\n"
+"   Old type was: ~A \n"
+"    New type is: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~\n"
+"Create new trampoline (old trampoline calls old lisp function)."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unsupported argument type: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unsupported return type: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
+"     {doc-string} {decls}* {FORM}*)\n"
+"\n"
+"Define a function which can be called by foreign code.  The pointer\n"
+"returned by (callback NAME), when called by foreign code, invokes the\n"
+"lisp function.  The lisp function expects alien arguments of the\n"
+"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n"
+"\n"
+"If (callback NAME) is already a callback function pointer, its value\n"
+"is not changed (though it's arranged that an updated version of the\n"
+"lisp callback function will be called).  This feature allows for\n"
+"incremental redefinition of callback functions."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a smaller or the same address as\n"
+"   the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to the same address as the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a larger or the same address as\n"
+"   the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a larger address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return a new sap OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return the byte offset between SAP1 and SAP2."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts a System Area Pointer into an integer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts an integer into a System Area Pointer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the long-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid "The number of bits to process at a time."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"The maximum number of bits that can be dealt with during a single call."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
+"  bits from the ``start.''  On big-endian machines this is a left-shift and\n"
+"  on little-endian machines this is a right-shift.  Note: only the low 5/6 "
+"bits\n"
+"  of count are significant."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
+"  bits from the ``end.''  On big-endian machines this is a right-shift and\n"
+"  on little-endian machines this is a left-shift."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
+"  the remaining ``end'' bits.  Only the lower 5 bits of COUNT are significan"
+"t."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
+"  the remaining ``start'' bits.  Only the lower 5 bits of COUNT are\n"
+"  significant."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid "Align the SAP to a word boundry, and update the offset accordingly."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "This is the interpreter's evaluation stack."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "This is the next free element of the interpreter's evaluation stack."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Unknown inline function, id=~D"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Unbound variable: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CAR: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CDR: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Undefined XOP."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Wrong number of arguments."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Not enough arguments."
+msgstr ""
+
+#: target:pcl/boot.lisp target:code/byte-interp.lisp
+msgid "Too many arguments."
+msgstr ""
+
+#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Odd number of keyword arguments."
+msgstr ""
+
+#: target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Unknown keyword: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "function-end breakpoints not supported."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the rank of an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound any given dimension of an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the total number of elements in an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "End ~D is greater than total size ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Start ~D is greater than end ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"List of weak-pointers to static vectors.  Needed for GCing static vectors"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make a static array of element type ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Failed to allocate space for static array of length ~S of type ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Creates an array of the specified Dimensions and properties.  See the\n"
+"  manual for details.\n"
+"\n"
+"  :Element-type\n"
+"      The type of objects that the array can hold \n"
+"  :Initial-element\n"
+"      Each element of the array is initialized to this value, if supplied.\n"
+"      If not supplied, 0 of the appropriate type is used.\n"
+"  :Initial-contents\n"
+"      The contents of the array are initialized to this.\n"
+"  :Adjustable\n"
+"      If non-Nil, make an expressly adjustable array.\n"
+"  :Fill-pointer\n"
+"      For one-dimensional array, set the fill-pointer to the given value.\n"
+"      If T, use the actual length of the array.\n"
+"  :Displaced-to\n"
+"      Create an array that is displaced to the target array specified\n"
+"      by :displaced-to.\n"
+"  :Displaced-index-offset\n"
+"      Index offset to the displaced array.  That is, index 0 of this array "
+"is\n"
+"      actually index displaced-index-offset of the target displaced array. \n"
+"  :Allocation\n"
+"      How to allocate the array.  If :MALLOC, a static, nonmovable array is\n"
+"      created.  This array is created by calling malloc."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Can't specify :displaced-index-offset without :displaced-to"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make an adjustable static array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make a displaced array static"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot specify both :initial-element and ~\n"
+"		:initial-contents"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~D elements in the initial-contents, but the ~\n"
+"		vector length is ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Only vectors can have fill pointers."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid fill-pointer ~D"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Neither :initial-element nor :initial-contents ~\n"
+"		   can be specified along with :displaced-to"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into ~\n"
+"                           another of type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S doesn't have enough elements."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~&Freeing foreign vector at #x~X~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Finalizing static vectors ~S~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "static vector ~A.  header = ~X~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "  static vector ~A in use~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "  Free static vector ~A~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply both :initial-contents and :initial-element to\n"
+"            either make-array or adjust-array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S cannot be used to initialize an array of type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  Dimension of ~\n"
+"			        axis ~D is ~D, but ~S is ~D long."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"			                       sequence, but ~D more layer needed."
+msgid_plural ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"			                       sequence, but ~D more layers needed."
+msgstr[0] ""
+
+#: target:code/array.lisp
+msgid "Constructs a simple-vector from the given objects."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Wrong number of subscripts, ~D, for array of rank ~D"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid index ~D in ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the element of the Array specified by the Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns the element of array corressponding to the row-major index.  This "
+"is\n"
+"   SETF'able."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the Index'th element of the given Simple-Vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Bit-Array at the specified Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the type of the elements of the array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the number of dimensions of the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns length of dimension Axis-Number of the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Vector axis is not zero: ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~D is too big; ~S only has ~D dimension"
+msgid_plural "~D is too big; ~S only has ~D dimensions"
+msgstr[0] ""
+
+#: target:code/array.lisp
+msgid "Returns a list whose elements are the dimensions of the array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the total number of elements in the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns values of :displaced-to and :displaced-index-offset options to\n"
+"   make-array, or the defaults nil and 0 if not a displaced array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns T if (adjust-array array...) would return an array identical\n"
+"   to the argument, this happens for complex arrays."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the Fill-Pointer of the given Vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "New fill pointer, ~S, is larger than the length of the vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to set the element of Array designated by the fill pointer\n"
+"   to New-El and increment fill pointer by one.  If the fill pointer is\n"
+"   too large, Nil is returned, otherwise the index of the pushed element is "
+"\n"
+"   returned."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Like Vector-Push except that if the fill pointer gets too large, the\n"
+"   Array is extended rather than Nil being returned."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to decrease the fill-pointer by 1 and return the element\n"
+"   pointer to by the new fill pointer.  If the original value of the fill\n"
+"   pointer is 0, an error occurs."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Nothing left to pop."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Number of dimensions not equal to rank of array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "New element type, ~S, is incompatible with old."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Static arrays are not adjustable."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Multidimensional arrays can't have fill pointers."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Initial contents may not be specified with ~\n"
+"		 the :initial-element or :displaced-to option."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"The :initial-element option may not be specified ~\n"
+"	       with :displaced-to."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into another of ~\n"
+"	               type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The :displaced-to array is too small."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
+"	            smaller than it's fill pointer (~S)."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
+"	   in adjust-array unless the array (~S) was originally ~\n"
+" 	   created with a fill pointer."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
+"	     than the new length of the vector (~S)."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Bogus value for :fill-pointer in adjust-array: ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Destructively alters the Vector, changing its length to New-Size, which\n"
+"   must be less than or equal to its current size."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Fills in array header with provided information.  Returns array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S and ~S do not have the same dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array is\n"
+"  created.  Both arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Structure used to implement hash tables."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Almost-Primify returns an almost prime number greater than or equal\n"
+"   to NUM."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Define a new kind of hash table test."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Creates and returns a new hash table.  The keywords are as follows:\n"
+"     :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,\n"
+"       and EQUALP are currently supported.\n"
+"     :SIZE -- A hint as to how many elements will be put in this hash\n"
+"       table.\n"
+"     :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
+"       If an integer, add space for that many elements.  If a floating\n"
+"       point number (which must be greater than 1.0), multiple the size\n"
+"       by that amount.\n"
+"     :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
+"       forcing a rehash.  Can be any positive number <= to 1, with density\n"
+"       approaching zero as the threshold approaches 0.  Density 1 means an\n"
+"       average of one entry per bucket.\n"
+"   CMUCL Extension:\n"
+"     :WEAK-P -- Weak hash table.  Can only be used when the key is 'eq or "
+"'eql.\n"
+"                An entry in the table is remains if the condition holds:\n"
+"\n"
+"                :KEY            -- key is referenced elsewhere\n"
+"                :VALUE          -- value is referenced elsewhere\n"
+"                :KEY-AND-VALUE  -- key and value are referenced elsewhere\n"
+"                :KEY-OR-VALUE   -- key or value is referenced elsewhere\n"
+"\n"
+"                If the condition does not hold, the entry is removed.  For\n"
+"                backward compatibility, a value of T is the same as :KEY."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Returns the number of entries in the given HASH-TABLE."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-size HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-threshold HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
+"   table that can hold however many entries HASH-TABLE can hold without\n"
+"   having to be grown."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the test HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return T if HASH-TABLE will not keep entries for keys that would\n"
+"   otherwise be garbage, and NIL if it will."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
+"   value and T as multiple values, or returns DEFAULT and NIL if there is "
+"no\n"
+"   such entry.  Entries can be added using SETF."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Remove the entry in HASH-TABLE associated with KEY.  Returns T if there\n"
+"   was such an entry, and NIL if not."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself, shrinking the size to free memory."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
+"   of the entry; returns NIL."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
+"   provides a method of manually looping over the elements of a hash-table.\n"
+"   FUNCTION is bound to a generator-macro that, within the scope of the\n"
+"   invocation, returns one or three values. The first value tells whether\n"
+"   any objects remain in the hash table. When the first value is non-NIL, \n"
+"   the second and third values are the key and the value of the next "
+"object."
+msgstr ""
+
+#: target:pcl/slots.lisp target:code/hash-new.lisp
+msgid "What kind of instance is this?"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Computes a hash code for S-EXPR and returns it as an integer."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the first object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list.  True if Object is nil,\n"
+"   false if Object is a cons, and an error for any other types of "
+"arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+"  Each Arg in Args must be a proper list except the last one, which\n"
+"  may be any object.  The function is not destructive: for all but the\n"
+"  last Arg, its list structure is copied.  The last argument is not\n"
+"  copied; it becomes the cdr of the final dotted pair of the\n"
+"  concatenation of the preceding lists, or is returned directly if\n"
+"  there are no preceding non-empty lists.  In the latter case, if the\n"
+"  last Arg is not a list, the returned value is not a list either."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+"   List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+"   Object.  If Object is not a tail of List, a copy of List is returned.\n"
+"   List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns what was passed to it."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+"   NIL whenever FUNCTION returns T."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+"   :test, or :test-not with a given item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+"   returns false. List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+"   and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate.  If\n"
+"   key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+"  If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate.  If key\n"
+"  is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+"  If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+"  It Maps function over the arglists in the appropriate way. It is done "
+"when any\n"
+"  of the arglists runs out.  Until then, it CDRs down the arglists calling "
+"the\n"
+"  function and accumulating results as desired."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+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/string.lisp
+msgid ""
+"Test if C is a surrogate.  C may be either an integer or a\n"
+"  character. Surrogate-type indicates what kind of surrogate to test\n"
+"  for.  :High means to test for the high (leading) surrogate; :Low\n"
+"  tests for the low (trailing surrogate).  A value of :Any or Nil\n"
+"  tests for any surrogate value (high or low)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert the given Hi and Lo surrogate characters to the\n"
+"  corresponding codepoint value"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return the codepoint value from String at position I.  If that\n"
+"  position is a surrogate, it is combined with either the previous or\n"
+"  following character (when possible) to compute the codepoint.  The\n"
+"  second return value is NIL if the position is not a surrogate pair.\n"
+"  Otherwise +1 or -1 is returned if the position is the high or low\n"
+"  surrogate value, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return the high and low surrogate characters for Codepoint.  If\n"
+"  Codepoint is in the BMP, the first return value is the corresponding\n"
+"  character and the second is NIL."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Set the codepoint at string position I to the Codepoint.  If the\n"
+"  codepoint requires a surrogate pair, the high (leading surrogate) is\n"
+"  stored at position I and the low (trailing) surrogate is stored at\n"
+"  I+1"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Check if String is a valid UTF-16 string.  If the string is valid,\n"
+"  T is returned.  If the string is not valid, NIL is returned, and the\n"
+"  second value is the index into the string of the invalid character.\n"
+"  A string is also invalid if it contains any unassigned codepoints."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Coerces X into a string.  If X is a string, X is returned.  If X is a\n"
+"  symbol, X's pname is returned.  If X is a character then a one element\n"
+"  string containing that character is returned.  If X cannot be coerced\n"
+"  into a string, an error occurs."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "~S cannot be coerced to a string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string and a non-negative integer index less than the length of\n"
+"  the string, returns the character object representing the character at\n"
+"  that position in the string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"SCHAR returns the character object at an indexed position in a string\n"
+"  just as CHAR does, except the string must be a simple-string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char=)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return a new string with the case folded according to Casing as follows:\n"
+"\n"
+"  :SIMPLE  Unicode simple case folding (preserving length)\n"
+"  :FULL    Unicode full case folding (possibly changing length)\n"
+"\n"
+"  Default Casing is :SIMPLE."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char-equal)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "Improper bounds for string comparison."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char-equal)"
+"\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "Improper substring for comparison."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a character count and an optional fill character, makes and returns\n"
+"  a new string Count long filled with the fill character."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars.  Casing is :simple or :full for\n"
+"  simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all lower case alphabetic\n"
+"  characters converted to uppercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all upper case alphabetic\n"
+"  characters converted to lowercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"GLYPH returns the glyph at the indexed position in a string, and the\n"
+"  position of the next glyph (or NIL) as a second value.  A glyph is\n"
+"  a substring consisting of the character at INDEX followed by all\n"
+"  subsequent combining characters."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
+"  except that the string must be a simple-string"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form D (NFD) using the\n"
+"  canonical decomposition.  The NFD string is returned"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
+"  compatible decomposition form.  The NFKD string is returned."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form C (NFC).  If the\n"
+"  string a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KC (NFKC).  If the\n"
+"  string is a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"Compares the substrings specified by String1 and String2 and returns\n"
+"NIL if the strings are String=, or the lowest index of String1 in\n"
+"which the two differ. If one string is longer than the other and the\n"
+"shorter is a prefix of the longer, the length of the shorter + start1 is\n"
+"returned. This would be done on the Vax with CMPC3. The arguments must\n"
+"be simple strings."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid "Like %sp-string-compare, only backwards."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask\n"
+"  The codes of the characters of String from Start to End are used as "
+"indices\n"
+"  into the Table, which is a U-Vector of 8-bit bytes. When the number "
+"picked\n"
+"  up from the table bitwise ANDed with Mask is non-zero, the current\n"
+"  index into the String is returned. The corresponds to SCANC on the Vax."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character  String, Start, End, Character\n"
+"  Searches String for the Character from Start to End.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Reverse-Find-Character  String, Start, End, Character\n"
+"  Searches String for Character from End to Start.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the first character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the last character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-String-Search  String1, Start1, End1, String2, Start2, End2\n"
+"   Searches for the substring of String1 specified in String2.\n"
+"   Returns an index into String2 or NIL if the substring wasn't\n"
+"   found."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current special\n"
+"  value is returned."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  Return NIL if this symbol is\n"
+"  unbound, T if it has a value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's special value cell is\n"
+"  set to the specified new value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Nihil ex nihil, can't set NIL."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Veritas aeterna, can't set T."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Can't set keywords."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol is made unbound,\n"
+"  removing any value it may currently have."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current definition\n"
+"   is returned.  Settable with SETF."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its print name."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its package."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Make and return a new symbol with the STRING as its print name."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Return the hash value for symbol."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on the property list of SYMBOL for the specified INDICATOR.  If this\n"
+"  is found, return the associated value, else return DEFAULT."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "~S has an odd number of items in its property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n"
+"  Returns VALUE."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on property list of SYMBOL for property with specified\n"
+"  INDICATOR.  If found, splice this indicator and its value out of\n"
+"  the plist, and return the tail of the original list starting with\n"
+"  INDICATOR.  If not found, return () with no side effects.\n"
+"\n"
+"  NOTE: The ANSI specification requires REMPROP to return true (not false)\n"
+"  or false (the symbol NIL). Portable code should not rely on any other "
+"value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Searches the property list stored in Place for an indicator EQ to "
+"Indicator.\n"
+"  If one is found, the corresponding value is returned, else the Default is\n"
+"  returned."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Malformed property list: ~S"
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Like GETF, except that Indicator-List is a list of indicators which will\n"
+"  be looked for in the property list stored in Place.  Three values are\n"
+"  returned, see manual for details."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Make and return a new uninterned symbol with the same print name\n"
+"  as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound\n"
+"  nor fbound and has no properties, else it has a copy of SYMBOL's\n"
+"  function, value and property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Returns true if Object is a symbol in the keyword package."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Counter for generating unique GENSYM symbols."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Creates a new uninterned symbol whose name is a prefix string (defaults\n"
+"   to \"G\"), followed by a decimal number.  Thing, when supplied, will\n"
+"   alter the prefix if it is a string, or be used for the decimal number\n"
+"   if it is a number, of this symbol. The default value of the number is\n"
+"   the current value of *gensym-counter* which is incremented each time\n"
+"   it is used."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Creates a new symbol interned in package Package with the given Prefix."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid ""
+"When the bignum pieces are smaller than this many words, we use the\n"
+"classical multiplication algorithm instead of recursing all the way\n"
+"down to individual words."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Use Karatsuba if the bignums have at least this many bits"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Unexpected zero bignums?"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Can't represent result of left shift."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Too large to be represented as a ~S:~%  ~S"
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "More types than vars."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Duplicate case: ~S."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "More vars than types."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n"
+"  A vaguely case-like macro that does number cross-product dispatches.  The\n"
+"  Vars are the variables we are dispatching off of.  The Type paired with "
+"each\n"
+"  Var is used in the error message when no case matches.  Each case specifie"
+"s a\n"
+"  Type for each var, and is executed when that signature holds.  A type may "
+"be\n"
+"  a list (FOREACH Each-Type*), causing that case to be repeatedly instantiat"
+"ed\n"
+"  for every Each-Type.  In the body of each case, any list of the form\n"
+"  (DISPATCH-TYPE Var-Name) is substituted with the type of that var in that\n"
+"  instance of the case.\n"
+"\n"
+"  As an alternate to a case spec, there may be a form whose CAR is a "
+"symbol.\n"
+"  In this case, we apply the CAR of the form to the CDR and treat the "
+"result of\n"
+"  the call as a list of cases.  This process is not applied recursively."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the element type of the most specialized COMPLEX number type that\n"
+"   can hold parts of type Spec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Assume this is a subtype of REAL anyway."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Cannot determine if ~S is a subtype of REAL."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Complex numbers cannot have components of type ~S."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Builds a complex number from the specified components."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extracts the real part of a number."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extracts the imaginary part of a number."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the complex conjugate of NUMBER.  For non-complex numbers, this is\n"
+"  an identity."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return the numerator of NUMBER, which must be rational."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return the denominator of NUMBER, which must be rational."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the sum of its arguments.  With no args, returns 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the product of its arguments.  With no args, returns 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Subtracts the second and all subsequent arguments from the first.\n"
+"  With one arg, negates it."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Divides the first arg by each of the following arguments, in turn.\n"
+"  With one arg, returns reciprocal."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER + 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER - 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns number (or number/divisor) as an integer, rounded toward 0.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest integer not greater than number, or number/divisor.\n"
+"  The second returned value is (mod number divisor)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the smallest integer not less than number, or number/divisor.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Rounds number (or number/divisor) to nearest integer.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns second result of TRUNCATE."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns second result of FLOOR."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as TRUNCATE, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as FLOOR, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as CEILING, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as ROUND, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if all of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if no two of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-increasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the greatest of its arguments."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the least of its arguments."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise or of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise exclusive or of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise and of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise equivalence of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical AND of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical OR of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise logical not of integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n"
+"  if INTEGER is negative."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate which returns T if logand of integer1 and integer2 is not zero."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate returns T if bit index of integer is a 1.  The least\n"
+"significant bit of INTEGER is bit 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Shifts integer left by count places preserving sign.  - count shifts right."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the number of significant bits in the absolute value of integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns a byte specifier which may be used by other byte functions."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the size part of the byte specifier bytespec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the position part of the byte specifier bytespec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extract the specified byte from integer, and right justify result."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if any of the specified bits in integer are 1's."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Extract the specified byte from integer,  but do not right justify result."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is right "
+"justified."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is not "
+"right justified."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return -1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logand of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logior of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return log nand of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logorc2 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Bit-wise boolean function on two integers.  Function chosen by OP:\n"
+"	0	BOOLE-CLR\n"
+"	1	BOOLE-SET\n"
+"	2	BOOLE-1\n"
+"  	3	BOOLE-2\n"
+"	4	BOOLE-C1\n"
+"	5	BOOLE-C2\n"
+"	6	BOOLE-AND\n"
+"	7	BOOLE-IOR\n"
+" 	8	BOOLE-XOR\n"
+"	9	BOOLE-EQV\n"
+"	10	BOOLE-NAND\n"
+"	11	BOOLE-NOR\n"
+"	12	BOOLE-ANDC1\n"
+"	13	BOOLE-ANDC2\n"
+"	14	BOOLE-ORC1\n"
+"	15	BOOLE-ORC2"
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest common divisor of the arguments, which must be\n"
+"  integers.  Gcd with no arguments is defined to be 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the least common multiple of one or more integers.  LCM of no\n"
+"  arguments is defined to be 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T iff X is a positive prime integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the root of the nearest integer less than n which is a perfect\n"
+"   square."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number = 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number > 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number < 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is odd, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is even, NIL otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown float trap kind: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function sets options controlling the floating-point hardware.  If a\n"
+"  keyword is not supplied, then the current value is preserved.  Possible\n"
+"  keywords:\n"
+"\n"
+"   :TRAPS\n"
+"       A list of the exception conditions that should cause traps.  Possible"
+"\n"
+"       exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+"       all traps except :INEXACT are enabled.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       The rounding mode to use when the result is not exact.  Possible "
+"values\n"
+"       are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+"       Initially, the rounding mode is :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       These arguments allow setting of the exception flags.  The main use "
+"is\n"
+"       setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Set the hardware's \"fast mode\" flag, if any.  When set, IEEE\n"
+"       conformance or debuggability may be impaired.  Some machines may not\n"
+"       have this feature, in which case the value is always NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+"   currently in effect."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+"  modes.  The list is in the same format as the keyword arguments to\n"
+"  SET-FLOATING-POINT-MODES, i.e. \n"
+"      (apply #'set-floating-point-modes (get-floating-point-modes))\n"
+"\n"
+"  sets the floating point modes to their current values (and thus is a "
+"no-op)."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Current-Float-Trap Trap-Name*\n"
+"  Return true if any of the named traps are currently trapped, false\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "SIGFPE with no exceptions currently enabled?"
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+"  masked (disabled).  TRAPS should be a list of possible exceptions\n"
+"  which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+"  :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+"  accrued exceptions are cleared at the start of the body to support\n"
+"  their testing within, and restored on exit."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is denormalized."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of significant digits in it's float argument.\n"
+"  Will be less than FLOAT-DIGITS if denormalized or zero."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a floating-point number that has the same sign as\n"
+"   float1 and, if float2 is given, has the same absolute value\n"
+"   as float2."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of radix-b digits used in the\n"
+"   representation of it's argument.  See Common Lisp: The Language\n"
+"   by Guy Steele for more details."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Returns (as an integer) the radix b of its floating-point\n"
+"   argument."
+msgstr ""
+
+#: target:code/irrat.lisp target:code/float.lisp
+msgid "Can't decode NAN or infinity: ~S."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) an integer representation of the significand.\n"
+"   2) the exponent for the power of 2 that the significand must be multiplie"
+"d\n"
+"      by to get the actual value.  This differs from the DECODE-FLOAT "
+"exponent\n"
+"      by FLOAT-DIGITS, since the significand has been scaled to have all "
+"its\n"
+"      digits before the radix point.\n"
+"   3) -1 or 1 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) a floating-point number representing the significand.  This is always\n"
+"      between 0.5 (inclusive) and 1.0 (exclusive).\n"
+"   2) an integer representing the exponent.\n"
+"   3) -1.0 or 1.0 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
+"  of precision or overflow."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a float.  If OTHER is not provided, it returns a\n"
+"  SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the\n"
+"  result is the same float format as OTHER."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"RATIONAL produces a rational number for any real numeric argument.  This is\n"
+"  more efficient than RATIONALIZE, but it assumes that floating-point is\n"
+"  completely accurate, giving a result that isn't as pretty."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a RATIONAL.  Floats are converted to a simple rational\n"
+"  representation exploiting the assumption that floats are only accurate to\n"
+"  their precision.  RATIONALIZE (and also RATIONAL) preserve the invariant:\n"
+"      (= x (float (rationalize x) x))"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return e raised to the power NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "The absolute value of ~S exceeds limit ~S."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation, update limit"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns BASE raised to the POWER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the square root of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns the absolute value of the number."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Returns the angle part of the polar representation of a complex number.\n"
+"  For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
+"  For non-complex positive numbers, this is 0.  For non-complex negative\n"
+"  numbers this is PI."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Argument to CIS is complex: ~S"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute 2^N * X without compute 2^N first (use properties of the\n"
+"underlying floating-point format"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Same as logb but X is not infinity and non-zero and not a NaN, so\n"
+"that we can always return an integer"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
+"For the special cases, the following values are used:\n"
+"\n"
+"    x             logb\n"
+"   NaN            NaN\n"
+"   +/- infinity   +infinity\n"
+"   0              -infinity\n"
+""
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Create complex number with real part X and imaginary part Y such that\n"
+"it has the same type as Z.  If Z has type (complex rational), the X\n"
+"and Y are coerced to single-float."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Principle square root of Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute log(2^j*z).\n"
+"\n"
+"This is for use with J /= 0 only when |z| is huge."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Log of Z = log |Z| + i * arg Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute tanh z = sinh z / cosh z"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acos z = pi/2 - asin z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asin z = asinh(i*z)/i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asinh z = log(z + sqrt(1 + z*z))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute atan z = atanh (i*z) / i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute tan z = -i * tanh(i * z)\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(most-positive-double-double-float)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(least-positive-double-double-float"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Log base 2 of e"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log2(e)-1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/4"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Sqrt(1/2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "exp(x) - 1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "396 (hex) digits of 2/pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Overflow"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"~S uses lambda-list keyword naming convention, but is not a recognized "
+"lambda-list keyword."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &optional in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &rest in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &more in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &key in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &allow-other-keys in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &aux in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Found garbage in lambda-list when expecting a keyword: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "&rest not followed by required variable."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Illegal function name: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Special form is an illegal function name: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"Defining as a SETF function a name that already has a SETF macro:~\n"
+"       ~%  ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Assume redefinition is compatible and allow it"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Redefining slot accessor ~S for structure type ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "~S previously defined as a macro."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Unknown optimization quality ~S in ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Malformed optimization quality specifier ~S in ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "DECLAIM Declaration*\n"
+"  Do a declaration for the global environment."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Malformed PROCLAIM spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Variable name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Nihil ex nihil, can't declare ~S special."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Veritas aeterna, can't declare ~S special."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Can't declare ~S special, it is a keyword."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Proceed anyway."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Trying to declare ~S special, which is ~A."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "a constant"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "an alien variable"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "a symbol macro"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Declared functional type is not a function type: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Ignoring FTYPE declaration for slot accesor:~%  ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration to be RECOGNIZED is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration already names a type: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Unrecognized proclamation: ~S."
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "The Unicode data file is broken."
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "Unicode data file is for Unicode ~D.~D.~D"
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "No data in file."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on values produced by CHAR-CODE."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on the value of a Unicode codepoint"
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"This is the alist of (character-name . character) for characters with\n"
+"  long names.  The first name in this list for a given character is used\n"
+"  on typeout and is the preferred form for input."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns the integer code of CHAR."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns the integer code of CHAR.  This is the same as char-code, as\n"
+"   CMU Common Lisp does not implement character bits or fonts."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns the character with the code CODE."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Coerces its argument into a character object if possible.  Accepts\n"
+"  characters, strings and symbols of length 1."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "String is not of length one: ~S"
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Symbol name is not of length one: ~S"
+msgstr ""
+
+#: target:code/char.lisp
+msgid "~S cannot be coerced to a character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given a character object, char-name returns the name for that\n"
+"  object (a symbol)."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given an argument acceptable to string, name-char returns a character\n"
+"  object whose name is that symbol, if one exists, otherwise NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Standard-char-p returns T if the\n"
+"   argument is a standard character -- one of the 95 ASCII printing characte"
+"rs\n"
+"   or <return>."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Return T if and only if THING is a standard-char.  Differs from\n"
+"  standard-char-p in that THING doesn't have to be a character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Graphic-char-p returns T if the\n"
+"  argument is a printing character, otherwise returns NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Alpha-char-p returns T if the\n"
+"  argument is an alphabetic character; otherwise NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; upper-case-p returns T if the\n"
+"  argument is an upper-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; lower-case-p returns T if the \n"
+"  argument is a lower-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; title-case-p returns T if the\n"
+"  argument is a title-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Both-case-p returns T if the\n"
+"  argument is an alphabetic character and if the character exists in\n"
+"  both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"If char is a digit in the specified radix, returns the fixnum for\n"
+"  which that digit stands, else returns NIL.  Radix defaults to 10\n"
+"  (decimal)."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given a character-object argument, alphanumericp returns T if the\n"
+"  argument is either numeric or alphabetic."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if all of its arguments are the same character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if no two of its arguments are the same character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if all of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if no two of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to upper-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to title-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to lower-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"All arguments must be integers.  Returns a character object that\n"
+"  represents a digit of the given weight in the specified radix.  Returns\n"
+"  NIL if no such character exists."
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp
+msgid ""
+"Returns the documentation string of Doc-Type for X, or NIL if\n"
+"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
+"  SETF, and T."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "~S is not the name of a structure type."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"If X is an atom, see if it is present in *FEATURES*.  Also\n"
+"  handle arbitrary combinations of atoms using NOT, AND, OR."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Unknown operator in feature expression: ~S."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation type."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation version."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid " Unicode"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string giving the name of the local machine."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the supporting software."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Unknown"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string with the abbreviated site name."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Site name not initialized"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string with the long form of the site name."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"With a file name as an argument, dribble opens the file and\n"
+"   sends a record of further I/O to that file.  Without an\n"
+"   argument, it closes the dribble file, and quits logging."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Not currently dribbling."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"Default implementation of ed.  This does nothing.  If hemlock is\n"
+"  loaded, ed can be used to edit a file"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"This function can be used as the default value for keyword arguments that\n"
+"  must be always be supplied.  Since it is known by the compiler to never\n"
+"  return, it will avoid any compile-time type warnings that would result "
+"from a\n"
+"  default value inconsistent with the declared type.  When this function is\n"
+"  called, it signals an error indicating that a required keyword argument "
+"was\n"
+"  not supplied.  This function is also useful for DEFSTRUCT slot defaults\n"
+"  corresponding to required arguments."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "A required keyword argument was not supplied."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"FILE-COMMENT String\n"
+"  When COMPILE-FILE sees this form at top-level, it places the constant "
+"string\n"
+"  in the run-time source location information.  DESCRIBE will print the "
+"file\n"
+"  comment for the file that a function was defined in.  The string is also\n"
+"  textually present in the FASL, so the RCS \"ident\" command can find it,\n"
+"  etc."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "See listen.  Any whitespace in the input stream will be flushed."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Does what one might expect, saving the old values and setting the generalize"
+"d\n"
+"  variables to the new values in sequence.  Unwind-protects and get-setf-met"
+"hod\n"
+"  are used to preserve the semantics one might expect in analogy to let*,\n"
+"  and the once-only evaluation of subforms."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Like letf*, but evaluates all the implicit subforms and new values of all\n"
+"  the implied setfs before altering any values.  However, the store forms\n"
+"  (see get-setf-method) must still be evaluated in sequence.  Uses unwind-\n"
+"  protects to protect the environment."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Causes the output of the indenting Stream to indent More spaces.  More is\n"
+"  evaluated twice."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Just like dolist, but with one-dimensional arrays."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n"
+"  This is syntactic sugar for Labels.  It creates a local function Name "
+"with\n"
+"  the specified Vars as its arguments and the Declarations and Forms as its\n"
+"  body.  This function is then called with the Initial-Values, and the "
+"result\n"
+"  of the call is return from the macro."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed iterate variable spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n"
+"  Collect some values somehow.  Each of the collections specifies a bunch "
+"of\n"
+"  things which collected during the evaluation of the body of the form.  "
+"The\n"
+"  name of the collection is used to define a local macro, a la MACROLET.\n"
+"  Within the body, this macro will evaluate each of its arguments and "
+"collect\n"
+"  the result, returning the current value after the collection is done.  "
+"The\n"
+"  body is evaluated as a PROGN; to get the final values when you are done, "
+"just\n"
+"  call the collection macro with no arguments.\n"
+"\n"
+"  Initial-Value is the value that the collection starts out with, which\n"
+"  defaults to NIL.  Function is the function which does the collection.  It "
+"is\n"
+"  a function which will accept two arguments: the value to be collected and "
+"the\n"
+"  current collection.  The result of the function is made the new value for "
+"the\n"
+"  collection.  As a totally magical special-case, the Function may be "
+"Collect,\n"
+"  which tells us to build a list in forward order; this is the default.  If "
+"an\n"
+"  Initial-Value is supplied for Collect, the stuff will be rplacd'd onto "
+"the\n"
+"  end.  Note that Function may be anything that can appear in the functional"
+"\n"
+"  position, including macros and lambdas."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed collection specifier: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Once-Only ({(Var Value-Expression)}*) Form*\n"
+"  Create a Let* which evaluates each Value-Expression, binding a temporary\n"
+"  variable to the result, and wrapping the Let* around the result of the\n"
+"  evaluation of Body.  Within the body, each Var is bound to the correspondi"
+"ng\n"
+"  temporary variable."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed Once-Only binding spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Ill-formed ~S -- possibly illegal old style DO?"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "~S step variable is not a symbol: ~S"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "~S is an illegal form for a ~S varlist."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Like DO, but has no implicit NIL block.  Each Var is initialized in "
+"parallel\n"
+"  to the value of the specified Init form.  On subsequent iterations, the "
+"Vars\n"
+"  are assigned the value of the Step form (if any) in paralell.  The Test "
+"is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n"
+"   Iterate over the entries in a hash-table."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n"
+"  Define a hash cache that associates some number of argument values to a\n"
+"  result value.  The Test-Function paired with each Arg-Name is used to "
+"compare\n"
+"  the value for that arg in a cache entry with a supplied arg.  The\n"
+"  Test-Function must not error when passed NIL as its first arg, but need "
+"not\n"
+"  return any particular value.  Test-Function may be any thing that can be\n"
+"  place in CAR position.\n"
+"\n"
+"  Name is used to define functions these functions:\n"
+"\n"
+"  <name>-CACHE-LOOKUP Arg*\n"
+"      See if there is an entry for the specified Args in the cache.  The if "
+"not\n"
+"      present, the :DEFAULT keyword (default NIL) determines the result(s).\n"
+"\n"
+"  <name>-CACHE-ENTER Arg* Value*\n"
+"      Encache the association of the specified args with Value.\n"
+"\n"
+"  <name>-CACHE-FLUSH-<arg-name> Arg\n"
+"      Flush all entries from the cache that have the value Arg for the "
+"named\n"
+"      arg.\n"
+"\n"
+"  <name>-CACHE-CLEAR\n"
+"      Reinitialize the cache, invalidating all entries and allowing the\n"
+"      arguments and result values to be GC'd.\n"
+"\n"
+"  These other keywords are defined:\n"
+"\n"
+"  :HASH-BITS <n>\n"
+"      The size of the cache as a power of 2.\n"
+"\n"
+"  :HASH-FUNCTION function\n"
+"      Some thing that can be placed in CAR position which will compute a "
+"value\n"
+"      between 0 and (1- (expt 2 <hash-bits>)).\n"
+"\n"
+"  :VALUES <n>\n"
+"      The number of values cached.\n"
+"\n"
+"   :INIT-FORM <name>\n"
+"      The DEFVAR for creating the cache is enclosed in a form with the\n"
+"      specified name.  Default PROGN."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Number of default values ~S differs from :VALUES ~D."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Bad arg spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n"
+"  Some syntactic sugar for defining a function whose values are cached by\n"
+"  DEFINE-HASH-CACHE."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Return an EQ hash of X.  The value of this hash for any given object can "
+"(of\n"
+"  course) change at arbitary times."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "A list of all the command line arguments after --"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of cmd-switch's representing the arguments used to invoke\n"
+"  this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "The string name that was used to invoke this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "A list of words between the utility name and the first switch."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of strings obtained from the command line that invoked this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "An Alist of (\"argument-name\" . demon-function)"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"When True runs lisp with its input coming from standard-input.\n"
+"   If an error is detected returns error code 1, otherwise 0."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"Accepts the name of a switch as a string and returns the value of the\n"
+"   switch.  If no value was specified, then any following words are returned"
+".\n"
+"   If there are no following words, then t is returned.  If the switch was "
+"not\n"
+"   specified, then nil is returned."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"When set, invoking switch demons complains about illegal switches that have\n"
+"   not been defined with DEFSWITCH."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "~S is an illegal switch"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"Associates function with the switch name in *command-switch-demons*.  Name\n"
+"   is a simple-string that does not begin with a hyphen, unless the switch "
+"name\n"
+"   really does begin with one.  Function is optional, but defining the "
+"switch\n"
+"   is necessary to keep invoking switch demons from complaining about "
+"illegal\n"
+"   switches.  This can be inhibited with *complain-about-illegal-switches*."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "a symbol or function"
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the symbol VAR in the lexical environment ENV.\n"
+"Three values are returned:\n"
+"  1) Type or binding of VAR.\n"
+"     NIL           No definition or binding\n"
+"     :special      VAR is special\n"
+"     :lexical      VAR is lexical\n"
+"     :symbol-macro VAR refers to a SYMBOL-MACROLET binding\n"
+"     :constant     VAR refers to a named constant or VAR is a keyword\n"
+"  2) non-NIL if there is a local binding\n"
+"  3) An a-list containing information about any declarations that apply."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about declarations named by the symbol DECLARATION-NAME"
+".\n"
+"Supported DECLARATION-NAMES are\n"
+"  1) OPTIMIZE\n"
+"     A list whose entries are of the form (QUALITY VALUE) is returned,\n"
+"     where QUALITY and VALUE are standard optimization qualities and\n"
+"     values.\n"
+"  2) EXT:OPTIMIZE-INTERFACE\n"
+"     Like OPTIMIZE, but for the EXT:OPTIMIZE-INTERFACE declaration.\n"
+"  3) DECLARATION.\n"
+"     A list of the declaration names the have been proclaimed as valid."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid "Unsupported declaration ~S."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Process a macro in the same way that DEFMACRO or MACROLET would.\n"
+"Three values are returned:\n"
+"  1) A lambda-expression that accepts two arguments\n"
+"  2) A form\n"
+"  3) An environment"
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the function name FUNCTION in the lexical environm"
+"ent ENV.\n"
+"Three values are returned:\n"
+"  1) Type of definition or binding:\n"
+"     NIL          No apparent definition\n"
+"    :function    FUNCTION refers to a function\n"
+"    :macro        FUNCTION refers to a macro\n"
+"    :special-form FUNCTION is a special form\n"
+"  2) non-NIL if definition is local\n"
+"  3) An a-list containing information about the declarations that apply."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Return a new environment containing information in ENV that is augmented\n"
+"by the specified parameters:\n"
+"  :VARIABLE     a list of symbols visible as bound variables in the new\n"
+"                environemnt\n"
+"  :SYMBOL-MACRO a list of symbol macro definitions\n"
+"  :FUNCTION     a list of function names that will be visible as local\n"
+"                functions\n"
+"  :MACRO        a list of local macro definitions\n"
+"  :DECLARE      a list of declaration specifiers"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by dfixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a + ~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by i (max half fixnum)"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "not a half-fixnum: ~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by dfixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a - ~a (~a/~a)"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by half-fixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid ""
+"increments dfixnum by an interger which may be bigger than fixnum.\n"
+"   May cons"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "returns a new dfixnum from number i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments a pair of halffixnums by another pair"
+msgstr ""
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a/~a + ~a/~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum pair by another pair"
+msgstr ""
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%~A:~%    ~:D bytes, ~:D object"
+msgid_plural "~%~A:~%    ~:D bytes, ~:D objects"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "~2&Breakdown for ~(~A~) space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D other object.~%"
+msgid_plural "  ~13:D bytes for ~9:D other objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object.~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid ""
+"Print out information about the heap memory in use.  :Print-Spaces is a "
+"list\n"
+"  of the spaces to print detailed information for.  :Count-Spaces is a list "
+"of\n"
+"  the spaces to scan.  For either one, T means all spaces (:Static, :Dyanmic"
+"\n"
+"  and :Read-Only.)  If :Print-Summary is true, then summary information "
+"will be\n"
+"  printed.  The defaults print only summary information for dynamic space.\n"
+"  If true, Cutoff is a fraction of the usage in a report below which types "
+"will\n"
+"  be combined as OTHER."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Print info about how much code and no-ops there are in Space."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Bogus type: ~D"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D words allocated for descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print a breakdown by instance type of all the instances allocated in\n"
+"  Space.  If TOP-N is true, print only information for the the TOP-N types "
+"with\n"
+"  largest usage."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "  ~32A: ~7:D bytes, ~5D object.~%"
+msgid_plural "  ~32A: ~7:D bytes, ~5D objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgid_plural "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
+msgid_plural "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "In ~A space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~D bytes at #x~X~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "No source for ~S"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
+msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid "~30@A: ~9:D bytes, ~9:D object.~%"
+msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%"
+msgstr[0] ""
+
+#: target:code/room.lisp
+msgid ""
+"Given a hashtable, print a histogram of the contents.  Function should give\n"
+"  the value to plot when applied to the hashtable values."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Report the Top-N entries in the hashtable Table, when sorted by Function\n"
+"  applied to the hash value.  If Top-N is NIL, report all entries."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Other~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Total~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable mapping each function in for which a call appears in\n"
+"  Space to the number of times such a call appears."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable translating code objects to function constant counts for\n"
+"  all code objects in Space with more than Above function constants."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Oh no.  The current dynamic space is missing!"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "The current dynamic space is ~D.~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Prints to *STANDARD-OUTPUT* information about the state of internal\n"
+"  storage and its management.  The optional argument controls the\n"
+"  verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of\n"
+"  information.  If it is NIL, ROOM prints out a minimal amount of\n"
+"  information.  If it is :DEFAULT or it is not supplied, ROOM prints out\n"
+"  an intermediate amount of information.  See also VM:MEMORY-USAGE and\n"
+"  VM:INSTANCE-USAGE for finer report control."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"No way man!  The optional argument to ROOM must be T, NIL, ~\n"
+"		 or :DEFAULT.~%What do you think you are doing?"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "resetting GC counters"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Returns the number of bytes consed since the first time this function\n"
+"  was called.  The first time it is called, it returns zero."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"This number specifies the minimum number of bytes of dynamic space\n"
+"   that must be consed before the next gc will occur."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"The total CPU time spend doing garbage collection (as reported by\n"
+"   GET-INTERNAL-RUN-TIME.)"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called before garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called after garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Should be bound to a function or NIL.  If it is a function, this\n"
+"  function should take one argument, the current amount of dynamic\n"
+"  usage.  The function should return NIL if garbage collection should\n"
+"  continue and non-NIL if it should be inhibited.  Use with caution."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n"
+"  *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n"
+"  occurs respectively.  If :BEEP, causes the default notify functions to "
+"beep\n"
+"  annoyingly."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"~&; [GC threshold exceeded with ~:D bytes in use.  ~\n"
+"             Commencing GC.]~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"This function bound to this variable is invoked before GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n"
+"  bytes).  It should notify the user that the system is going to GC."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"The function bound to this variable is invoked after GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n"
+"  free, the number of bytes freed by the GC, and the new GC trigger\n"
+"  threshold.  The function should notify the user that the system has\n"
+"  finished GC'ing."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Attempt to set GC trigger to something bogus: ~S"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n"
+"	       integer.  Resetting it to ~D."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The optional argument, VERBOSE-P,\n"
+"  which defaults to the value of the variable *GC-VERBOSE* controls\n"
+"  whether or not GC statistics are printed."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The keyword :VERBOSE, which\n"
+"   defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
+"   not GC statistics are printed. The keyword :GEN defaults to 0, and\n"
+"   controls the number of generations to garbage collect."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Return the amount of memory that will be allocated before the next garbage\n"
+"   collection is initiated.  This can be set with SETF."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Enables the garbage collector."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Disables the garbage collector."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Return some GC statistics for the specified GENERATION.  The\n"
+"  statistics are the number of bytes allocated in this generation; the\n"
+"  gc-trigger; the number of bytes consed between GCs; the number of\n"
+"  GCs that have occurred; the trigger age; the cumulative number of\n"
+"  bytes allocated in this generation; and the average age of this\n"
+"  generation.  See the gencgc source code for more info."
+msgstr ""
+
+#: target:code/purify.lisp
+msgid ""
+"This function optimizes garbage collection by moving all currently live\n"
+"   objects into non-collected storage.  ROOT-STRUCTURES is an optional list "
+"of\n"
+"   objects which should be copied first to maximize locality.\n"
+"\n"
+"   DEFSTRUCT structures defined with the (:PURE T) option are moved into\n"
+"   read-only storage, further reducing GC cost.  List and vector slots of "
+"pure\n"
+"   structures are also moved into read-only storage.\n"
+"\n"
+"   ENVIRONMENT-NAME is gratuitous documentation for compacted version of "
+"the\n"
+"   current global environment (as seen in C::*INFO-ENVIRONMENT*.)  If NIL "
+"is\n"
+"   supplied, then environment compaction is inhibited."
+msgstr ""
+
+#: target:code/purify.lisp
+msgid "[Doing purification: "
+msgstr ""
+
+#: target:code/purify.lisp
+msgid "Done.]"
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Create a new scavenger-hook with the specified VALUE and FUNCTION.  For\n"
+"   as long as the scavenger-hook is alive, the scavenger in the garbage\n"
+"   collector will note whenever VALUE is moved, and arrange for FUNCTION\n"
+"   to be funcalled."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Returns the FUNCTION invoked when the monitored value is moved.  Can be\n"
+"   setf."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called before creating a saved core\n"
+"  image.  These functions are executed in the child process which has no "
+"ports,\n"
+"  so they cannot do anything that tries to talk to the outside world."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called when a saved core image starts\n"
+"  up.  The system itself should be initialized at this point, but applicatio"
+"ns\n"
+"  might not be."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "An alist mapping environment variables (as keywords) to either values"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Non-NIL if environment-init has been called"
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"This is true if and only if the lisp was started with the -edit switch."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
+"  following keywords are defined:\n"
+"  \n"
+"  :purify\n"
+"      If true (the default), do a purifying GC which moves all dynamically\n"
+"  allocated objects into static space so that they stay pure.  This takes\n"
+"  somewhat longer than the normal GC which is otherwise done, but GC's will\n"
+"  be done less often and take less time in the resulting core file.  See\n"
+"  EXT:PURIFY.\n"
+"\n"
+"  :root-structures\n"
+"      This should be a list of the main entry points in any newly loaded\n"
+"  systems.  This need not be supplied, but locality and/or GC performance\n"
+"  will be better if they are.  Meaningless if :purify is NIL.  See EXT:PURIF"
+"Y.\n"
+"\n"
+"  :environment-name\n"
+"      Also passed to EXT:PURIFY when :PURIFY is T.  Rarely used.\n"
+"  \n"
+"  :init-function\n"
+"      This is the function that starts running when the created core file "
+"is\n"
+"  resumed.  The default function simply invokes the top level\n"
+"  read-eval-print loop.  If the function returns the lisp will exit.\n"
+"  \n"
+"  :load-init-file\n"
+"      If true, then look for an init.lisp or init.fasl file when the core\n"
+"  file is resumed.\n"
+"\n"
+"  :site-init\n"
+"      If true, then the name of the site init file to load.  The default is\n"
+"      library:site-init.  No error if this does not exist.\n"
+"\n"
+"  :print-herald\n"
+"      If true (the default), print out the lisp system herald when "
+"starting.\n"
+"\n"
+"  :process-command-line\n"
+"      If true (the default), process command-line switches via the normal\n"
+"  mechanisms, otherwise ignore all switches (except those processed by the\n"
+"  C startup code).\n"
+"\n"
+"  :executable\n"
+"      If nil (the default), save-lisp will save using the traditional\n"
+"   core-file format.  If true, save-lisp will create an executable\n"
+"   file that contains the lisp image built in. \n"
+"   (Not all architectures support this yet.)\n"
+"\n"
+"  :batch-mode\n"
+"      If nil (the default), then the presence of the -batch command-line\n"
+"  switch will invoke batch-mode processing.  If true, the produced core\n"
+"  will always be in batch-mode, regardless of any command-line switches."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Directory ~S does not exist"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Skip remaining initializations."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Error in batch processing:~%~A~%"
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Determines what PRINT-HERALD prints (the system startup banner.)  This is a\n"
+"   database which can be augmented by each loaded system.  The format is a\n"
+"   property list which maps from subsystem names to the banner information "
+"for\n"
+"   that system.  This list can be manipulated with GETF -- entries are "
+"printed\n"
+"   in, reverse order, so the newest entry is printed last.  Usually the "
+"system\n"
+"   feature keyword is used as the system name.  A given banner is a list of\n"
+"   strings and functions (or function names).  Strings are printed, and\n"
+"   functions are called with an output stream argument."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ", running on "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "With core: "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Dumped on: "
+msgstr ""
+
+#: target:code/save.lisp
+msgid " on "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "See <http://www.cons.org/cmucl/> for support information."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Loaded subsystems:"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "    Unicode "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "with Unicode version "
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Print some descriptive information about the Lisp system version and\n"
+"   configuration."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Unrecognized *HERALD-ITEMS* entry: ~S."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Change *PACKAGE* to the USER package and try again."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Terminal I/O stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Default input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Default output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Error output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Query I/O stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trace output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Interactive debugging stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not an input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not an output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a character input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a character output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a binary input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"~S is not a binary input stream ~\n"
+"                          or does not support multi-byte read operations."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a binary output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is closed."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is an unsupported Gray stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform input operations."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform output operations."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Return true if Stream is not closed."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a type specifier for the kind of object returned by the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Return true if Stream does I/O on a terminal or other interactive device."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Can't set interactive flag on ~S."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns the external format used by the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but inquiries\n"
+"  may still be made.  If :Abort is non-nil, an attempt is made to clean\n"
+"  up the side effects of having created the stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"With one argument returns the current position within the file\n"
+"   File-Stream is open to.  If the second argument is supplied, then\n"
+"   this becomes the new file position.  The second argument may also\n"
+"   be :start or :end for the start and end of the file, respectively."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"This function returns the length of the file that File-Stream is open to."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a line of text read from the Stream as a string, discarding the\n"
+"  newline character."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Inputs a character from Stream and returns it."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Puts the Character back on the front of the input Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Nothing to unread."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Impossible case reached in PEEK-CHAR"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Peeks at the next character in the input Stream.  See manual for details."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns T if a character is available on the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the next character from the Stream if one is available, or nil."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Clears any buffered input associated with the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns the next byte of the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Reads Numbytes bytes into the Buffer starting at Start, returning the "
+"number\n"
+"   of bytes read.\n"
+"   -- If EOF-ERROR-P is true, an END-OF-FILE condition is signalled if\n"
+"      end-of-file is encountered before Count bytes have been read.\n"
+"   -- If EOF-ERROR-P is false, READ-N-BYTES reads as much data as is "
+"currently\n"
+"      available (up to count bytes).  On pipes or similar devices, this\n"
+"      function returns as soon as any data is available, even if the amount\n"
+"      read is less than Count and eof has not been hit."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the Character to the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs a new line to the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the beginning "
+"of\n"
+"   a line.  Returns T if it output a new line, nil otherwise."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the String to the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs the String to the given Stream, followed by a newline character."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters on the current line of output of the given\n"
+"  Stream, or Nil if that information is not availible."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters that will fit on a line of output on the\n"
+"  given Stream, or Nil if that information is not available."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached its\n"
+"   destination, and only then returns."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Attempts to force any buffered output to be sent."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Clears the given output Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the Integer to the binary Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an output stream which sends its output to all of the given\n"
+"streams."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which performs its operations on the stream which is the\n"
+"   value of the dynamic variable named by Symbol."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which takes its input from each of the Streams in turn,\n"
+"   going on to the next at EOF."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an echo stream that takes input from Input-stream and sends\n"
+"output to Output-stream"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream.  In addition, all input is echoed to\n"
+"   the output stream"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an input stream which will supply the characters of String between\n"
+"  Start and End in order."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an Output stream which will accumulate all output given to it for\n"
+"   the benefit of the function Get-Output-Stream-String."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a string of all the characters sent to a stream made by\n"
+"   Make-String-Output-Stream since the last call to this function."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Dumps the characters buffer up in the In-Stream to the Out-Stream as\n"
+"  Get-Output-Stream-String would return them."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns an output stream which indents its output by some amount."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream that sends all output to the stream TARGET, but modifies\n"
+"   the case of letters, depending on KIND, which should be one of:\n"
+"     :upcase - convert to upper case.\n"
+"     :downcase - convert to lower case.\n"
+"     :capitalize - convert the first letter of words to upper case and the\n"
+"        rest of the word to lower case.\n"
+"     :capitalize-first - convert the first letter of the first word to "
+"upper\n"
+"        case and everything else to lower case."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"This takes a stream and waits for text or a command to appear on it.  If\n"
+"   text appears before a command, this returns nil, and otherwise it "
+"returns\n"
+"   a command."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Destructively modify SEQ by reading elements from STREAM.\n"
+"\n"
+"  Seq is bounded by Start and End. Seq is destructively modified by\n"
+"  copying successive elements into it from Stream. If the end of file\n"
+"  for Stream is reached before copying all elements of the subsequence,\n"
+"  then the extra elements near the end of sequence are not updated.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:	    a proper SEQUENCE\n"
+"  STREAM:   an input STREAM\n"
+"  START:    a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:      a bounding index designator which be NIL or an INTEGER of\n"
+"	    type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  POSITION: an INTEGER greater than or equal to zero, and less than or\n"
+"	    equal to the length of the SEQ. POSITION is the index of\n"
+"	    the first element of SEQ that was not updated, which might be\n"
+"	    less than END because the end of file was reached."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open for input."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to read characters from a binary stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to read binary data from a text stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Writes the elements of the Seq bounded by Start and End to Stream.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:     a proper SEQUENCE\n"
+"  STREAM:  an output STREAM\n"
+"  START:   a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:     a bounding index designator which be NIL or an INTEGER of\n"
+"           type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  SEQ:	a proper SEQUENCE\n"
+""
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open for output."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output an element of unproper type to a stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output a string to a binary stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output binary data to a text stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If true, all objects will printed readably.  If readably printing is\n"
+"  impossible, an error will be signalled.  This overrides the value of\n"
+"  *PRINT-ESCAPE*."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Flag which indicates that slashification is on.  See the manual"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Flag which indicates that pretty printing is to be used"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "The output base for integers and rationals."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "This flag requests to verify base when printing rationals."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "How many levels deep to print.  Unlimited if null."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "How many elements to print on each level.  Unlimited if null."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Whether to worry about circular list structures. See the manual."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "What kind of case the printer should use by default"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Whether the array should print it's guts out"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If true, symbols with no home package are printed with a #: prefix.\n"
+"  If false, no prefix is printed."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "The maximum number of lines to print.  If NIL, unlimited."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The position of the right margin in ems.  If NIL, try to determine this\n"
+"   from the stream in use."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If the remaining space between the current column and the right margin\n"
+"   is less than this, then print using ``miser-style'' output.  Miser\n"
+"   style conditional newlines are turned on, and all indentations are\n"
+"   turned off.  If NIL, never use miser mode."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The pprint-dispatch-table that controls how to pretty print objects.  See\n"
+"   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Bind the reader and printer control variables to values that enable READ\n"
+"   to reliably read the results of PRINT.  These values are:\n"
+"       *PACKAGE*			The COMMON-LISP-USER package\n"
+"       *PRINT-ARRAY*			T\n"
+"       *PRINT-BASE*			10\n"
+"       *PRINT-CASE*			:UPCASE\n"
+"       *PRINT-CIRCLE*			NIL\n"
+"       *PRINT-ESCAPE*			T\n"
+"       *PRINT-GENSYM*			T\n"
+"       *PRINT-LENGTH*			NIL\n"
+"       *PRINT-LEVEL*			NIL\n"
+"       *PRINT-LINES*			NIL\n"
+"       *PRINT-MISER-WIDTH*		NIL\n"
+"       *PRINT-PRETTY*			NIL\n"
+"       *PRINT-RADIX*			NIL\n"
+"       *PRINT-READABLY*			T\n"
+"       *PRINT-RIGHT-MARGIN*		NIL\n"
+"       *READ-BASE*			10\n"
+"       *READ-DEFAULT-FLOAT-FORMAT* 	SINGLE-FLOAT\n"
+"       *READ-EVAL*			T\n"
+"       *READ-SUPPRESS*			NIL\n"
+"       *READTABLE*			the standard readtable."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs OBJECT to the specified stream, defaulting to *standard-output*"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a mostly READable printed representation of OBJECT on the specified\n"
+"  stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs an asthetic but not READable printed representation of OBJECT on "
+"the\n"
+"  specified stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
+"  space to the stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Prettily outputs the Object preceded by a newline."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Returns the printed representation of OBJECT as a string."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with \n"
+"   slashification on."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with\n"
+"  slashification off."
+msgstr ""
+
+#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
+#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/node.lisp target:compiler/sset.lisp
+#: target:compiler/backend.lisp target:compiler/macros.lisp
+#: target:code/print.lisp
+msgid "~S cannot be printed readably."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Determines whether or not the character is considered whitespace."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Check to see if OBJECT is a circular reference, and return something "
+"non-NIL\n"
+"   if it is.  If ASSIGN is T, then the number to use in the #n= and #n# "
+"noise\n"
+"   is assigned at this time.  Note: CHECK-FOR-CIRCULARITY must be called\n"
+"   *EXACTLY* once with ASSIGN T, or the circularity detection noise will "
+"get\n"
+"   confused about when to use #n= and when to use #n#.  If this returns\n"
+"   non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then\n"
+"   you should go ahead and print the object.  If it returns NIL, then\n"
+"   you should blow it off."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n"
+"	       checking has not been initiated."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The current level we are printing at, to be compared against *PRINT-LEVEL*.\n"
+"   See the macro DESCEND-INTO for a handy interface to depth abbreviation."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Automatically handle *print-level* abbreviation.  If we are too deep, then\n"
+"   a # is printed to STREAM and BODY is ignored."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n"
+"   is NIL) by outputting \"...\" and returning from the block named NIL."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The current pretty printer.  Should be either a function that takes two\n"
+"   arguments (the object and the stream) or NIL to indicate that there is\n"
+"   no pretty printer installed."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Output OBJECT to STREAM observing all printer control variables."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Output OBJECT to STREAM observing all printer control variables except\n"
+"   for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n"
+"   printer will be used for any components of OBJECT, just not for OBJECT\n"
+"   itself."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Invalid *PRINT-CASE* value: ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Invalid READTABLE-CASE value: ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs the printed representation of any array in either the #< or #A\n"
+"   form."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Obsolete Instance"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unprintable Instance"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "~A is not a reasonable value for *Print-Base*."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n"
+"greater than n."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Convert digit into a character representation.  We use 0..9, a..z for\n"
+"10..35, and A..Z for 36..52."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "overflow in digit-to-char"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Print a fixnum N to stream S, maybe with leading zeros.  This isn't\n"
+"ever-so efficient, but we probably don't need to care."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Use the power list (see power-list) PL to split N roughly in half; then\n"
+"print the left and right halves using (cdr PL).  Make sure we count the\n"
+"leading zeroes correctly."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Primary fast bignum-printing interface.  Prints integer N to stream S in\n"
+"radix-R.  If you have a power-list then pass it in as PL."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Minimum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Maximum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Convert a DD number to a lisp rational"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Print out a double-double to a string"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Weak Pointer: "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Broken Weak Pointer"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Bogus Code Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Code Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Return PC Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "FDEFINITION object for "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Function "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Interpreted Function ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Byte Compiled Function"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Byte Compiled Closure"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Closure Over "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Function"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Value Cell "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Pointer Object, type="
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unbound Marker"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Immediate Object, lowtag="
+msgstr ""
+
+#: target:code/print.lisp
+msgid ", type="
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Continue anyway"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Cannot find ~S, so unicode support is not available"
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert an annotation into the pretty-printing stream STREAM.\n"
+"HANDLER is a function, and RECORD is an arbitrary datum.  The\n"
+"pretty-printing stream conceptionally queues annotations in sequence\n"
+"with the characters that are printed to the stream, until the stream\n"
+"has decided on the concrete layout.  When the characters are forwarded\n"
+"to the target stream, annotations are invoked at the right position.\n"
+"An annotation is invoked by calling the function HANDLER with the\n"
+"three arguments RECORD, TARGET-STREAM, and TRUNCATEP.  The argument\n"
+"TRUNCATEP is true if the text surrounding the annotation is suppressed\n"
+"due to line abbreviation (see *PRINT-LINES*).\n"
+"If STREAM is not a pretty-printing stream, simply call HANDLER\n"
+"with the arguments RECORD, STREAM and nil."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Insert ANNOTATION into the queue of annotations in STREAM."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert all annotations in STREAM from the queue of pending\n"
+"operations into the queue of annotations.  When END is non-nil, \n"
+"stop before reaching the queued-op END."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Dequeue the next annotation from the queue of annotations of STREAM\n"
+"and return it.  Return nil if there are no more annotations.  When\n"
+":END-POSN is given and the next annotation has a posn greater than\n"
+"this, also return nil."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output the buffer of STREAM up to (excluding) the buffer index END.\n"
+"When annotations are present, invoke them at the right positions."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Invoke all annotations in STREAM up to (including) the buffer index END."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Output-partial-line called when nothing can be output."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Group some output into a logical block.  STREAM-SYMBOL should be either a\n"
+"   stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The "
+"printer\n"
+"   control variable *PRINT-LEVEL* is automatically handled."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Cannot specify both a prefix and a per-line-prefix."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n"
+"   if it's list argument is exhausted.  Can only be used inside\n"
+"   PPRINT-LOGICAL-BLOCK, and only when the LIST argument to\n"
+"   PPRINT-LOGICAL-BLOCK is supplied."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n"
+"	  PPRINT-LOGICAL-BLOCK."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Return the next element from LIST argument to the closest enclosing\n"
+"   use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n"
+"   and *PRINT-CIRCLE*.  Can only be used inside PPRINT-LOGICAL-BLOCK.\n"
+"   If the LIST argument to PPRINT-LOGICAL-BLOCK was NIL, then nothing\n"
+"   is poped, but the *PRINT-LENGTH* testing still happens."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output a conditional newline to STREAM (which defaults to\n"
+"   *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n"
+"   nothing if not.  KIND can be one of:\n"
+"     :LINEAR - A line break is inserted if and only if the immediatly\n"
+"        containing section cannot be printed on one line.\n"
+"     :MISER - Same as LINEAR, but only if ``miser-style'' is in effect.\n"
+"        (See *PRINT-MISER-WIDTH*.)\n"
+"     :FILL - A line break is inserted if and only if either:\n"
+"       (a) the following section cannot be printed on the end of the\n"
+"           current line,\n"
+"       (b) the preceding section was not printed on a single line, or\n"
+"       (c) the immediately containing section cannot be printed on one\n"
+"           line and miser-style is in effect.\n"
+"     :MANDATORY - A line break is always inserted.\n"
+"   When a line break is inserted by any type of conditional newline, any\n"
+"   blanks that immediately precede the conditional newline are ommitted\n"
+"   from the output and indentation is introduced at the beginning of the\n"
+"   next line.  (See PPRINT-INDENT.)"
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Specify the indentation to use in the current logical block if STREAM\n"
+"   (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n"
+"   and do nothing if not.  (See PPRINT-LOGICAL-BLOCK.)  N is the indention\n"
+"   to use (in ems, the width of an ``m'') and RELATIVE-TO can be either:\n"
+"     :BLOCK - Indent relative to the column the current logical block\n"
+"        started on.\n"
+"     :CURRENT - Indent relative to the current column.\n"
+"   The new indention value does not take effect until the following line\n"
+"   break.  The indention value is silently truncated to an integer."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n"
+"   stream, perform tabbing based on KIND, otherwise do nothing.  KIND can\n"
+"   be one of:\n"
+"     :LINE - Tab to column COLNUM.  If already past COLNUM tab to the next\n"
+"       multiple of COLINC.\n"
+"     :SECTION - Same as :LINE, but count from the start of the current\n"
+"       section, not the start of the line.\n"
+"     :LINE-RELATIVE - Output COLNUM spaces, then tab to the next multiple "
+"of\n"
+"       COLINC.\n"
+"     :SECTION-RELATIVE - Same as :LINE-RELATIVE, but count from the start\n"
+"       of the current section, not the start of the line."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :FILL conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-FILL\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :LINEAR conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-LINEAR"
+"\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM tabbing to the next column that is an even multiple\n"
+"   of TABSIZE (which defaults to 16) between each element.  :FILL style\n"
+"   conditional newlines are also output between each element.  If COLON? is\n"
+"   NIL (defaults to T), then no parens are printed around the output.\n"
+"   ATSIGN? is ignored (but allowed so that PPRINT-TABULAR can be used with\n"
+"   the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
+msgstr ""
+
+#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp
+#: target:pcl/defclass.lisp target:code/format.lisp
+#: target:code/pprint-loop.lisp target:code/pprint.lisp
+msgid "No more arguments."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~:[~;Error in format: ~]~\n"
+"	      ~?~@[~%  ~A~%  ~V@T^~]"
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"A justification directive cannot be in the same format string~%~\n"
+"                         as ~~W, ~~I, ~~:T, or a logical-block directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "String ended before directive was found."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many colons supplied."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many at-signs supplied."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No matching closing slash."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Provides various facilities for formatting output.\n"
+"  CONTROL-STRING contains a string to be output, possibly with embedded\n"
+"  directives, which are flagged with the escape character \"~\".  Directives\n"
+"  generally expand into additional text to be output, usually consuming one\n"
+"  or more of the FORMAT-ARGUMENTS in the process.  A few useful directives\n"
+"  are:\n"
+"        ~A or ~nA     Prints one argument as if by PRINC\n"
+"        ~S or ~nS     Prints one argument as if by PRIN1\n"
+"        ~D or ~nD     Prints one argument as a decimal integer\n"
+"        ~%            Does a TERPRI\n"
+"        ~&            Does a FRESH-LINE\n"
+"\n"
+"         where n is the width of the field in which the object is printed.\n"
+"  \n"
+"  DESTINATION controls where the result will go.  If DESTINATION is T, then\n"
+"  the output is sent to the standard output stream.  If it is NIL, then the\n"
+"  output is returned in a string as the value of the call.  Otherwise,\n"
+"  DESTINATION must be a stream to which the output will be sent.\n"
+"\n"
+"  Example:   (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\"\n"
+"\n"
+"  FORMAT has many additional capabilities not described here.  Consult\n"
+"  Section 22.3 (Formatted Output) of the ANSI Common Lisp standard for\n"
+"  details."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Unknown format directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Unknown directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than ~D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than 0"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal ones-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal tens-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds.  Should have been ~\n"
+"				    between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds.  Should have been ~\n"
+"				between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds.  Should have been ~\n"
+"				   between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"			       between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr ""
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~D illegal directive found inside justification block"
+msgid_plural "~D illegal directives found inside justification block"
+msgstr[0] ""
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+"			       ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"The list of packages to use by default of no :USE argument is supplied\n"
+"   to MAKE-PACKAGE or other package creation forms."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Standard structure for the description of a package.  Consists of \n"
+"   a list of all hash tables, the name of the package, the nicknames of\n"
+"   the package, the use-list for the package, the used-by- list, hash-\n"
+"   tables for the internal and external symbols, and a list of the\n"
+"   shadowing symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The ~A package, ~D/~D internal, ~D/~D external"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The ~A package"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "deleted package"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The current package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "redefining function ~A"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Ignore the lock and continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's definition-lock, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable all package locks, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus ~A name: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't do anything to a deleted package: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n"
+"  parent package.  If there is not a parent, signal an error."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The parent of ~a does not exist."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "There is no parent of ~a."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n"
+"  packages which are in the hierarchy 'under' the given package.  If\n"
+"  :recurse is nil, then only return the immediate children of the package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Find the package having the specified name."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Make this package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs at least once for each symbol accessible in the given\n"
+"   PACKAGE with VAR bound to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each external symbol in the given PACKAGE "
+"with\n"
+"   VAR bound to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each symbol in every package with VAR bound\n"
+"   to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Within the lexical scope of the body forms, MNAME is defined via macrolet\n"
+"   such that successive invocations of (mname) will return the symbols,\n"
+"   one by one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be\n"
+"   any of :inherited :external :internal."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~@<~S does not name a package ~:>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Must supply at least one of :internal, ~\n"
+"	                             :external, or :inherited."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"~S is not one of :internal, :external, ~\n"
+"		                       or :inherited."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Defines a new package called PACKAGE.  Each of OPTIONS should be one of the\n"
+"   following:\n"
+"     (:NICKNAMES {package-name}*)\n"
+"     (:SIZE <integer>)\n"
+"     (:SHADOW {symbol-name}*)\n"
+"     (:SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:USE {package-name}*)\n"
+"     (:IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:INTERN {symbol-name}*)\n"
+"     (:EXPORT {symbol-name}*)\n"
+"     (:DOCUMENTATION doc-string)\n"
+"   All options except :SIZE and :DOCUMENTATION can be used multiple times."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus DEFPACKAGE option: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't specify :SIZE twice."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus :SIZE, must be a positive integer: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't specify :DOCUMENTATION twice."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Parameters ~S and ~S must be disjoint ~\n"
+"	                             but have common elements ~%   ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A is a nick-name for the package ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A also shadows the following symbols:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A previously used the following packages:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A also exports the following symbols:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A does not contain a symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Ignore this nickname."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is a package name, so it cannot be a nickname for ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Redefine this nickname."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is already a nickname for ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Makes a new package having the specified Name and Nicknames.  The\n"
+"  package will inherit all external symbols from each package in\n"
+"  the use list.  :Internal-Symbols and :External-Symbols are\n"
+"  estimates for the number of internal and external symbols which\n"
+"  will ultimately be present in the package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Leave existing package alone."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Sets *PACKAGE* to package with given NAME, creating the package if\n"
+"   it does not exist.  If the package already exists then it is modified\n"
+"   to agree with the :USE and :NICKNAMES arguments.  Any new nicknames\n"
+"   are added without removing any old ones not specified.  If any package\n"
+"   in the :Use list is not currently used, then it is added to the use\n"
+"   list."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Old-style IN-PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The package named ~S doesn't exist."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Changes the name and nicknames for a package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Delete the PACKAGE-OR-NAME from the package system data structures."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Return NIL"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "No package of name ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Remove dependency in other packages."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Returns a list of all existing packages."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Returns a symbol having the specified name, creating it if necessary."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Returns the symbol NAME in PACKAGE.  If such a symbol is found\n"
+"  then the second value is :internal, :external or :inherited to indicate\n"
+"  how the symbol is accessible.  If no symbol is found then both values\n"
+"  are NIL."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "interning symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present\n"
+"  then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home\n"
+"  package, then it is made uninterned."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "uninterning symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Unlock all packages, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "prompt for a symbol to shadowing-import."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Symbol to shadowing-import: "
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not a symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not one of the conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is neither a symbol nor a list of symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Exporting these symbols from the ~A package:~%~S~%~\n"
+"	      results in name conflicts with these packages:~%~{~A ~}"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Unintern conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Skip exporting conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Import these symbols into the ~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "These symbols are not accessible in the ~A package:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Makes SYMBOLS no longer exported from PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "unexporting symbols ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not accessible in the ~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol\n"
+"  is already accessible then it has no effect.  If a name conflict\n"
+"  would result from the importation, then a correctable error is signalled."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Import these symbols with Shadowing-Import."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Importing these symbols into the ~A package ~\n"
+"		causes a name conflict:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Import SYMBOLS into PACKAGE, disregarding any name conflict.  If\n"
+"  a symbol of the same name is present, then it is uninterned.\n"
+"  The symbols are added to the Package-Shadowing-Symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Make an internal symbol in PACKAGE with the same name as each of the\n"
+"  specified SYMBOLS, adding the new symbols to the Package-Shadowing-Symbols"
+".\n"
+"  If a symbol with the given name is already present in PACKAGE, then\n"
+"  the existing symbol is placed in the shadowing symbols list if it is\n"
+"  not already present."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n"
+"  the external symbols of the used packages are accessible as internal\n"
+"  symbols in PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Unintern the conflicting symbols in the ~2*~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Return a list of all symbols in the system having the specified name."
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "special variable"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "constant"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "undefined variable"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "symbol macro"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "alien variable"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "value: "
+msgstr ""
+
+#: target:code/package.lisp
+msgid "macro"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "special operator"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "function"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "class"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "type"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Call FUN with each symbol that contains STRING.\n"
+"  If PACKAGE is supplied then only use symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is true then only use\n"
+"  symbols exported from the specified package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Briefly describe all symbols which contain the specified STRING.\n"
+"  If PACKAGE is supplied then only describe symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is non-NIL then only describe\n"
+"  external symbols in the specified package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Identical to APROPOS, except that it returns a list of the symbols\n"
+"  found instead of describing them."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Float format for 1.0E1"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Variable bound to current readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unexpected EOF on ~S ~A."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Standard lisp readtable. This is for recovery from broken\n"
+"   read-tables, and should not normally be user-visible."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Readtable is a data structure that maps characters into syntax\n"
+"   types for the Common Lisp expression reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Value of *package* at the start of the last read or Nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Undefined read-macro character ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A copy is made of from-readtable and place into to-readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes the syntax of to-char to be the same as from-char in the \n"
+"  optional readtable (defaults to the current readtable).  The\n"
+"  from-table defaults the standard lisp readtable by being nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to be a macro character which invokes function when\n"
+"   seen by the reader.  The non-terminatingp flag can be used to\n"
+"   make the macro character non-terminating.  The optional readtable\n"
+"   argument defaults to the current readtable.  Set-macro-character\n"
+"   returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the function associated with the specified char which is a macro\n"
+"  character.  The optional readtable argument defaults to the current\n"
+"  readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Bind *read-buffer* to a fresh buffer and execute Body."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"If true, only warn when there is an extra close paren, otherwise error."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads from stream and returns the object read, preserving the whitespace\n"
+"   that followed the object."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads in the next object in the stream, which defaults to\n"
+"   *standard-input*. For details see the I/O chapter of\n"
+"   the manual."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads objects from input-stream until the next character after an\n"
+"   object's representation is endchar.  A list of those objects read\n"
+"   is returned."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears before . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears after . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "More than one object follows . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Ignoring unmatched close parenthesis~\n"
+"		  ~@[ at file position ~D~]."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unmatched close parenthesis."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside extended token"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "invalid constituent"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Suppresses most interpreting of the reader when T"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The radix that Lisp reads numbers in."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "impossible!"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "dot context error"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many dots"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many colons in ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after reading a colon"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "package ~S not found"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Use symbol anyway."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The symbol ~S is not external in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Symbol ~S not found in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: returns 3 values: the string for the token,\n"
+"   a flag for whether there was an escape char, and the position of any\n"
+"   package delimiter."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: read an extended token with the first character\n"
+"  escaped.  Returns the string for the token."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Holds the mapping of base to 'safe' number of digits to read for a fixnum."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Holds the largest fixnum power of the base for make-integer."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n"
+"  then multiplying by a power of the base and adding."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Fast bignum-reading interface.  Reads from stream S an integer in radix\n"
+"R.  If we find some kind of error (bad characters, EOF), then NIL is\n"
+"returned; otherwise the number.  Reads at least one digit, but may not get "
+"to\n"
+"the end of the stream."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Internal error in floating point reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Underflow"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Floating-point number not representable"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Invalid ratio: ~S/~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch function defined for ~S."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to become a dispatching macro character in readtable\n"
+"   (which defaults to the current readtable).  If the non-terminating-p\n"
+"   flag is set to T, the char will be non-terminating.  Make-dispatch-\n"
+"   macro-character returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes function to be called whenever the reader reads\n"
+"   disp-char followed by sub-char. Set-dispatch-macro-character\n"
+"   returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "~S is not a dispatch character."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the macro character function for sub-char under disp-char\n"
+"   or nil if there is no associated function."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside dispatch character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch table for dispatch char."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A resource of string streams for Read-From-String."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"The characters of string are successively given to the lisp reader\n"
+"   and the lisp object built by the reader is returned.  Macro chars\n"
+"   will take effect."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Examine the substring of string delimited by start and end\n"
+"  (default to the beginning and end of the string)  It skips over\n"
+"  whitespace characters and then tries to parse an integer.  The\n"
+"  radix parameter must be between 2 and 36."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+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 ""
+
+#: target:code/backq.lisp
+msgid ",@ after backquote in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",. after backquote in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid "Comma not inside a backquote."
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",@ after dot in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",. after dot in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ""
+"Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n"
+"  BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n"
+"  corresponding backquote input form.  In this form, `,' `,@' and `,.' are\n"
+"  represented by lists whose cars are BACKQ-COMMA, BACKQ-COMMA-AT, and\n"
+"  BACKQ-COMMA-DOT respectively, and whose cadrs are the form after the "
+"comma.\n"
+"  SPLICING indicates whether a comma-escape return should be modified for\n"
+"  splicing with other forms: a value of T or :NCONC meaning that an extra\n"
+"  level of parentheses should be added."
+msgstr ""
+
+#: target:code/backq.lisp
+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 ""
+
+#.  This needs more work.
+#: target:code/serve-event.lisp
+msgid "Remove bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Retry bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Go on, leaving handlers marked as bogus."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "~S ~[have~;has a~:;have~] bad file descriptor."
+msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
+msgstr[0] ""
+
+#: 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/time.lisp target:code/serve-event.lisp
+msgid "Syscall ~A failed: ~A"
+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 ""
+
+#: target:code/extfmts.lisp
+msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External-format aliases file ends early."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Bad entry in external-format aliases file: ~S => ~S."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External-format aliasing depth exceeded."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is a Composing-External-Format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is not a Composing-External-Format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is not a valid external format name."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External format ~S not found."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Attempting I/O through void external-format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Convert String to octets using the specified External-format.  The\n"
+"   string is bounded by Start (defaulting to 0) and End (defaulting to\n"
+"   the end of the string.  If Buffer is given, the octets are stored\n"
+"   there.  If not, a new buffer is created."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Octets-to-string converts an array of octets in Octets to a string\n"
+"  according to the specified External-format.  The array of octets is\n"
+"  bounded by Start (defaulting ot 0) and End (defaulting to the end of\n"
+"  the array.  If String is not given, a new string is created.  If\n"
+"  String is given, the converted octets are stored in String, starting\n"
+"  at S-Start (defaulting to the 0) and ending at S-End (defaulting to\n"
+"  the length of String).  If the string is not large enough to hold\n"
+"  all of characters, then some octets will not be converted.  A State\n"
+"  may also be specified; this is used as the state of the external\n"
+"  format.\n"
+"\n"
+"  Four values are returned: the string, the number of characters read,\n"
+"  the number of octets actually consumed and the new state of the\n"
+"  external format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Encode the given String using External-Format and return a new\n"
+"  string.  The characters of the new string are the octets of the\n"
+"  encoded result, with each octet converted to a character via\n"
+"  code-char.  This is the inverse to String-Decode"
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Decode String using the given External-Format and return the new\n"
+"  string.  The input string is treated as if it were an array of\n"
+"  octets, where the char-code of each character is the octet.  This is\n"
+"  the inverse of String-Encode."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Change the external format of the standard streams to Terminal.\n"
+"  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
+"  sys::*stderr*, which are normally the input and/or output streams\n"
+"  for *standard-input* and *standard-output*.  Also sets sys::*tty*\n"
+"  (normally *terminal-io* to the given external format.  If the\n"
+"  optional argument Filenames is gvien, then the filename encoding is\n"
+"  set to the specified format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Can't find external-format ~S."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Change it anyway."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "The external-format for encoding filenames is already set."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of available buffers.  Each buffer is an sap pointing to\n"
+"  bytes-per-buffer of memory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Number of bytes per buffer."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The maximum supported byte size for a stream element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available output routines. Each element is a list of the\n"
+"  element-type output, the kind of buffering, the function name, and the "
+"number\n"
+"  of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Write would have blocked, but SERVER told us to go."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "While writing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Output THING to stream.  THING can be any kind of vector or a sap.  If "
+"THING\n"
+"  is a SAP, END must be supplied (as length won't work)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available input routines. Each element is a list of the\n"
+"  element-type input, the function name, and the number of bytes per "
+"element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error reading ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any input routine for ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any output routine for ~S buffered ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Input type (~S) and output type (~S) are unrelated?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error lseek'ing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Invalid position given to file-position: ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Create a stream for the given unix file descriptor.\n"
+"  If input is non-nil, allow input operations.\n"
+"  If output is non-nil, allow output operations.\n"
+"  If neither input nor output are specified, default to allowing input.\n"
+"  Element-type indicates the element type to use (as for open).\n"
+"  Buffering indicates the kind of buffering to use.\n"
+"  Timeout (if true) is the number of seconds to wait for input.  If NIL "
+"(the\n"
+"    default), then wait forever.  When we time out, we signal IO-TIMEOUT.\n"
+"  File is the name of the file (will be returned by PATHNAME).\n"
+"  Name is used to identify the stream when printed."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File descriptor must be opened either for input or output."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"This is a string that OPEN tacks on the end of a file namestring to produce\n"
+"   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
+"   this can be a function that takes a namestring and returns a complete\n"
+"   namestring."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Return NIL."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr ""
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return a stream which reads from or writes to Filename.\n"
+"  Defined keywords:\n"
+"   :direction - one of :input, :output, :io, or :probe\n"
+"   :element-type - Type of object to read or write, default BASE-CHAR\n"
+"   :if-exists - one of :error, :new-version, :rename, :rename-and-delete,\n"
+"                       :overwrite, :append, :supersede or nil\n"
+"   :if-does-not-exist - one of :error, :create or nil\n"
+"   :external-format - an external format name\n"
+"  See the manual for details."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Unable to open streams of class ~S."
+msgstr ""
+
+#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp
+#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp
+msgid "Odd-length property list in REMF."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"The stream connected to the controlling terminal or NIL if there is none."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard input (file descriptor 0)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard output (file descriptor 1)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard error output (file descriptor 2)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "This is called in BEEP to feep the user.  It takes a stream."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
+"   Object to Stream.  Non-trivial only in implementations that support\n"
+"   international character sets."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Setting external-format on Gray streams not supported."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"When non-nil, attempt to load \"library:<host>.translations\" to resolve\n"
+"   an otherwise undefined logical host."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "A path specification, either a string, file-stream or pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Convert thing (a pathname, string or stream) into a pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Construct a filled in pathname by completing the unspecified components\n"
+"   from the defaults."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S is not allowed as a directory component."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Makes a new pathname from the component arguments.  Note that host is\n"
+"a host-structure or string."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix ~A: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix PATHNAME-NAME: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Illegal pathname: ~\n"
+"                                Directory with ~S immediately followed by "
+"~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's host."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for pathname's device."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's directory list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's name."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's version."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"When Host arg is not supplied, Defaults arg must ~\n"
+"		  have a non-null PATHNAME-HOST."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Host in namestring: ~S~@\n"
+"		    does not match explicit host argument: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Converts pathname, a pathname designator, into a pathname structure,\n"
+"   for a physical pathname, returns the printed representation. Host may be\n"
+"   a physical host structure or host namestring."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"A LIST representing a pathname host is not ~\n"
+"                              supported in this implementation:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Hosts do not match: ~S and ~S."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Can't figure out the file associated with stream:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Construct the full (name)string form of the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Cannot determine the namestring for pathnames with no ~\n"
+"		  host:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the name of the host in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Cannot determine the namestring for pathnames with no host:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the directories used in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Returns a string representation of the name used in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns an abbreviated pathname sufficent to identify the pathname relative\n"
+"   to the defaults."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Predicate for determining whether pathname contains any wildcards."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Pathname matches the wildname template?"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Not enough wildcards in FROM pattern to match ~\n"
+"		       TO pattern:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Can't substitute this into the middle of a word:~\n"
+"			  ~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n"
+"	  did not match:~%  ~S ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ":WILD-INFERIORS not paired in from and to ~\n"
+"			   patterns:~%  ~S ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Use the source pathname to translate the from-wildname's wild and\n"
+"   unspecified elements into a completed to-pathname based on the to-wildnam"
+"e."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S doesn't match ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Search-list ~a not defined."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the current definition for the search-list NAME.  Returns T if such\n"
+"   a definition existed, and NIL if not."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the definition for all search-lists.  Only use this if you know\n"
+"   what you are doing."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S doesn't start with a search-list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Return the expansions for the search-list starting PATHNAME.  If PATHNAME\n"
+"   does not start with a search-list, then an error is signaled.  If\n"
+"   the search-list has not been defined yet, then an error is signaled.\n"
+"   The expansion for a search-list can be set with SETF."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Search list ~S has not been defined yet."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns T if the search-list starting PATHNAME is currently defined, and\n"
+"   NIL otherwise.  An error is signaled if PATHNAME does not start with a\n"
+"   search-list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "That would result in a circularity:~%  ~\n"
+"		     ~A~{ -> ~A~} -> ~A"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Search-lists cannot expand into pathnames that have ~\n"
+"		       a name, type, or ~%version specified:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Execute BODY with VAR bound to each successive possible expansion for\n"
+"   PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a\n"
+"   search-list, then BODY is executed exactly once.  Everything is wrapped\n"
+"   in a block named NIL, so RETURN can be used to terminate early.  Note:\n"
+"   VAR is *not* bound inside of RESULT."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Undefined search list: ~A"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Logical namestring character ~\n"
+"			     is not alphanumeric or hyphen:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical host not yet defined: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Double asterisk inside of logical ~\n"
+"				     word: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Illegal character for logical pathname:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a host name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a directory name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a file name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Expecting a dot, got ~S."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a file type"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a positive integer, * or NEWEST"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Expected a positive integer, ~\n"
+"					    got ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Extra stuff after end of file name."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Converts the pathspec argument to a logical-pathname and returns it."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical namestring does not specify a host:~%  ~S"
+msgstr ""
+
+#: target:code/filesys.lisp target:code/pathname.lisp
+msgid "Invalid directory component: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Invalid keyword: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical pathname translation is not a two-list:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Return the (logical) host object argument's list of translations."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Set the translations list for the logical host argument.\n"
+"   Return translations."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Clobber search-list host with logical pathname host"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S names a CMUCL search-list"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Search for a logical pathname named host, if not already defined. If "
+"already\n"
+"   defined no attempt to find or load a definition is attempted and NIL is\n"
+"   returned. If host is not already defined, but definition is found and "
+"loaded\n"
+"   successfully, T is returned, else error."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ";; Loading pathname translations from ~A~%"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Translates pathname to a physical pathname, which is returned."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "No translation for ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Remove any occurrences of \\ from the string because we've already\n"
+"   checked for whatever may have been backslashed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Backslash in bad place."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
+"  pathname namestrings.  They are also ignored when computing\n"
+"  namestrings for pathname objects.  Thus, *, ?, etc. are not\n"
+"  wildcards when parsing a namestring, and are not escaped when\n"
+"  printing pathnames."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "``['' with no corresponding ``]''"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~A already names a logical host"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid pattern piece: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ":BACK cannot be represented in namestrings."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid value for a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify the type without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a version without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S cannot be represented relative to ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot supply a type without a name:~%  ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Convert PATHNAME into a string that can be used with UNIX system calls.\n"
+"   Search-lists and wild-cards are expanded. If optional argument\n"
+"   FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.\n"
+"   If optional argument EXECUTABLE-ONLY is true, NIL is returned\n"
+"   unless an executable version of PATHNAME exists."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S is ambiguous:~{~%  ~A~}"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return the pathname for the actual file described by the pathname\n"
+"  An error of type file-error is signalled if no such file exists,\n"
+"  or the pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Bad place for a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "The file ~S does not exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a pathname which is the truename of the file if it exists, NIL\n"
+"  otherwise. An error of type file-error is signalled if pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Rename File to have the specified New-Name.  If file is a stream open to a\n"
+"  file, then the associated file is renamed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S can't be created."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Failed to rename ~A to ~A: ~A"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Delete the specified file."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S doesn't exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Could not delete ~A: ~A."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Delete old versions of files matching the given Pathname,\n"
+"optionally keeping some of the most recent old versions."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the home directory of the logged in user as a pathname.\n"
+"  This is obtained from the logical name \"home:\"."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return file's creation date, or NIL if it doesn't exist.\n"
+" An error of type file-error is signalled if file is a wild pathname"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the file author as a string, or nil if the author cannot be\n"
+" determined.  Signals an error of type file-error if file doesn't exist,\n"
+" or file is a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns a list of pathnames, one for each file that matches the given\n"
+"   pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  "
+"This\n"
+"   never includes Unix dot and dot-dot in the result.  If :TRUENAMEP is NIL,"
+"\n"
+"   then symbolic links in the result are not expanded, which is not the\n"
+"   default because TRUENAME does follow links and the result pathnames are\n"
+"   defined to be the TRUENAME of the pathname (the truename of a link may "
+"well\n"
+"   be in another directory).  If FOLLOW-LINKS is NIL then symbolic links "
+"are\n"
+"   not followed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Like Directory, but prints a terse, multi-column directory listing\n"
+"   instead of returning a list of pathnames.  When :all is supplied and\n"
+"   non-nil, then Unix dot files are included too (as ls -a).  When :verbose\n"
+"   is supplied and non-nil, then a long listing of miscellaneous\n"
+"   information is output one file per line."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Directory of ~A:~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Couldn't stat ~A -- ~A.~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a list of all files which are possible completions of Pathname.\n"
+"   We look in the directory specified by Defaults as well as looking down\n"
+"   the search list."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"File-writable accepts a pathname and returns T if the current\n"
+"  process can write it, and NIL otherwise."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the pathname for the default directory.  This is the place where\n"
+"  a file will be written if no directory is specified.  This may be changed\n"
+"  with setf."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Tests whether the directories containing the specified file\n"
+"  actually exist, and attempts to create them if they do not.\n"
+"  Portable programs should avoid using the :MODE keyword argument."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~&Creating directory: ~A~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Can't create directory ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :IF-SOURCE-NEWER argument to load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The source file types which LOAD recognizes."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "A list of the object file types recognized by LOAD."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"A list of the object file types recognized by LOAD for logical pathnames."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :VERBOSE argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :PRINT argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The TRUENAME of the file that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The defaulted pathname that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Count of the number of recursive loads."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"~A was compiled for fasl-file version ~X, ~\n"
+"                     but this is version ~X"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "List of free fop tables for the fasloader."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The fop stack (we only need one!)."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Vector indexed by a FaslOP that yields the FOP's name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
+"  will perform the operation."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading stuff from ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Attempt to load an empty FASL FILE:~%  ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Bad FASL file format."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loads the file named by Filename into the Lisp environment.  The file type\n"
+"   (a.k.a extension) is defaulted if missing.  These options are defined:\n"
+"\n"
+"   :IF-SOURCE-NEWER <keyword>\n"
+"	If the file type is not specified, and both source and object files\n"
+"        exist, then this argument controls which is loaded:\n"
+"	    :LOAD-OBJECT - load object file (default),\n"
+"	    :LOAD-SOURCE - load the source file,\n"
+"	    :COMPILE - compile the source and then load the object file, or\n"
+"	    :QUERY - ask the user which to load.\n"
+"\n"
+"   :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+"       If :ERROR (the default), signal an error if the file can't be "
+"located.\n"
+"       If NIL, simply return NIL (LOAD normally returns T.)\n"
+"\n"
+"   :VERBOSE {T | NIL}\n"
+"       If true (the default), print a line describing each file loaded.\n"
+"\n"
+"   :PRINT {T | NIL}\n"
+"       If true, print information about loaded values.  When loading the\n"
+"       source, the result of evaluating each top-level form is printed.\n"
+"\n"
+"   :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+"       Forces the input to be interpreted as a source or object file, "
+"instead\n"
+"       of guessing based on the file type.  This also inhibits file type\n"
+"       defaulting.  Probably only necessary if you have source files with a\n"
+"       \"fasl\" type. \n"
+"\n"
+"   The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-NEWER"
+"*\n"
+"   determine the defaults for the corresponding keyword arguments.  These\n"
+"   variables are also bound to the specified argument values, so specifying "
+"a\n"
+"   keyword affects nested loads.  The variables EXT:*LOAD-SOURCE-TYPES*,\n"
+"   EXT:*LOAD-OBJECT-TYPES*, and EXT:*LOAD-LP-OBJECT-TYPES* determine the "
+"file\n"
+"   types that we use for defaulting when none is specified."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Return NIL from load of ~S."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "See if it exists now."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Prompt for a new name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "New name: "
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load it as a source file."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "File has a fasl file type, but no fasl file header:~%  ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading object file ~A,~@\n"
+"		  which is older than the presumed source:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading source file ~A,~@\n"
+"		  which is newer than the presumed object file:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Compile of source failed, cannot load object."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Object file ~A is~@\n"
+"		       older than the presumed source:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load source file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load object file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fop-End-Header was executed???"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl table of improper size.  Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl stack not empty.  Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The package ~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing i-vector element size: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load ~A anyway"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~A was compiled for a ~A, but this is a ~A"
+msgstr ""
+
+#: target:compiler/dfo.lisp target:code/load.lisp
+msgid "Top-Level Form"
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unaligned function object, offset = #x~X."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S defined~%"
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Cannot load assembler code."
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Undefined assembler routine: ~S"
+msgstr ""
+
+#: target:code/foreign-linkage.lisp
+msgid "~A is not defined as a foreign symbol"
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"This is a list of module names that have been loaded into Lisp so far.\n"
+"   It is used by PROVIDE and REQUIRE."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "*load-verbose* is bound to this before loading files."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "See function documentation for REQUIRE"
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Defines a module by registering the files that need to be loaded when\n"
+"   the module is required.  If name is a symbol, its print name is used\n"
+"   after downcasing it."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Adds a new module name to *modules* indicating that it has been loaded.\n"
+"   Module-name may be any valid string designator.  All comparisons are\n"
+"   done using string=, i.e. module names are case-sensitive."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Loads a module when it has not been already.  Pathname, if supplied,\n"
+"   is a single pathname or list of pathnames to be loaded if the module\n"
+"   needs to be.  If pathname is not supplied, then functions from the list\n"
+"   *MODULE-PROVIDER-FUNCTIONS* are called in order with the stringified\n"
+"   MODULE-NAME as the argument, until one of them returns non-NIL.  By\n"
+"   default the functions MODULE-PROVIDE-CMUCL-DEFMODULE and MODULE-PROVIDE-\n"
+"   CMUCL-LIBRARY are on this list of functions, in that order.  The first\n"
+"   of those looks for a list of files that was registered by a EXT:DEFMODULE"
+"\n"
+"   form.  If the module has not been defined, then the second function\n"
+"   causes a file to be loaded whose name is formed by merging \"modules:\"\n"
+"   and the concatenation of module-name with the suffix \"-LIBRARY\".\n"
+"   Note that both the module-name and the suffix are each, separately,\n"
+"   converted from :case :common to :case :local.  This merged name will be\n"
+"   probed with both a .lisp and .fasl extensions, calling LOAD if it "
+"exists.\n"
+"\n"
+"   Note that in all cases covered above, user code is responsible for\n"
+"   calling PROVIDE to indicate a successful load of the module.\n"
+"\n"
+"   While loading any files, *load-verbose* is bound to *require-verbose*\n"
+"   which defaults to t."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "Don't know how to load ~A"
+msgstr ""
+
+#: target:code/module.lisp
+msgid "Coerce a string designator to a module name."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Derive a default pathname to try to load for an undefined module\n"
+"named module-name.  The default pathname is constructed from the\n"
+"module-name by appending the suffix \"-LIBRARY\" to it, and merging\n"
+"with \"modules:\".  Note that both the module-name and the suffix are\n"
+"each, separately, converted from :case :common to :case :local."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Keywords that you can put in a lambda-list, supposing you should want\n"
+"  to do such a thing."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of arguments which may be passed\n"
+"  to a function, including rest args."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of parameters which may be specifed\n"
+"  in a given lambda list.  This is actually the limit on required and "
+"optional\n"
+"  parameters.  With &key and &aux you can get more."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of multiple-values that you can\n"
+"  have."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"This variable controls whether assignments to unknown variables at top-level"
+"\n"
+"   (or in any other call to EVAL of SETQ) will implicitly declare the "
+"variable\n"
+"   SPECIAL.  These values are meaningful:\n"
+"     :WARN  -- Print a warning, but declare the variable special (the "
+"default.)\n"
+"      T     -- Quietly declare the variable special.\n"
+"      NIL   -- Never declare the variable, giving warnings on each use."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Evaluates its single arg in a null lexical environment, returns the\n"
+"  result or results."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to FUNCTION:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S is a macro."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S is a special operator."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to QUOTE:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Odd number of args to SETQ:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Declaring ~S special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:code/eval.lisp
+msgid "Bad Eval-When situation list: ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Attempt to evaluation a complex expression:~%     ~S~@\n"
+"	  This expression must be compiled, but the compiler is not loaded."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n"
+"	  ~%     ~S~%"
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Given a function, return three values:\n"
+"   1] A lambda expression that could be used to define the function, or NIL "
+"if\n"
+"      the definition isn't available.\n"
+"   2] NIL if the function was definitely defined in a null lexical environme"
+"nt,\n"
+"      and T otherwise.\n"
+"   3] Some object that \"names\" the function.  Although this is allowed to "
+"be\n"
+"      any object, CMU CL always returns a valid function name or a string."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "If the symbol globally names a special form, returns T, otherwise NIL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The value of this variable must be a function that can take three\n"
+"  arguments, a macro expander function, the macro form to be expanded,\n"
+"  and the lexical environment to expand in.  The function should\n"
+"  return the expanded form.  This function is called by MACROEXPAND-1\n"
+"  whenever a runtime expansion is needed.  Initially this is set to\n"
+"  FUNCALL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n"
+"   a function."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If SYMBOL names a macro in ENV, returns the expansion function,\n"
+"   else returns NIL.  If ENV is unspecified or NIL, use the global\n"
+"   environment only."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S names a special form."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Cannot funcall macro functions."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If form is a macro (or symbol macro), expands it once.  Returns two values,\n"
+"   the expanded form and a T-or-NIL flag indicating whether the form was, "
+"in\n"
+"   fact, a macro.  Env is the lexical environment to expand in, which "
+"defaults\n"
+"   to the null environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n"
+"   Returns the final resultant form, and T if it was expanded.  ENV is the\n"
+"   lexical environment to expand in, or NIL (the default) for the null\n"
+"   environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If NAME names a compiler-macro, returns the expansion function,\n"
+"   else returns NIL.  Note: if the name is shadowed in ENV by a local\n"
+"   definition, or declared NOTINLINE, NIL is returned.  Can be\n"
+"   set with SETF."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If FORM is a function call for which a compiler-macro has been defined,\n"
+"   invoke the expander function using *macroexpand-hook* and return the\n"
+"   results and T.  Otherwise, return the original form and NIL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n"
+"   expanded.  ENV is the lexical environment to expand in, or NIL (the\n"
+"   default) for the null environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"True of any Lisp object that has a constant value: types that eval to\n"
+"  themselves, keywords, constants, and list whose car is QUOTE."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n"
+"  the manner of LIST*.  That is, a list is made of the values of all but "
+"the\n"
+"  last argument, appended to the value of the last argument, which must be "
+"a\n"
+"  list."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Calls Function with the given Arguments."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Returns all of its arguments, in order, as values."
+msgstr ""
+
+#: target:code/eval.lisp
+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 "~S isn't one of the required args."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to THROW to a tag that does not exist: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Function with declared result type NIL returned:~%  ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Array has no elements."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S.  Should have greater than or equal to 0."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Should have been less than ~D"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Undefined foreign symbol: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"The maximum number of nested errors allowed.  Internal errors are\n"
+"   double-counted."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "The current number of nested errors."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown internal error, ~D?  args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Internal error ~D: ~A.  args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<A control stack overflow has occurred: ~\n"
+"            the program has entered the yellow control stack guard zone.  ~\n"
+"            Please note that you will be returned to the Top-Level if you ~\n"
+"            enter the red control stack guard zone while debugging.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Fatal control stack overflow.  You have entered~%~\n"
+"           the red control stack guard zone while debugging.~%~\n"
+"           Returning to Top-Level.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
+"            Only a small amount of dynamic space is available now.~%~\n"
+"            Please note that you will be returned to the Top-Level "
+"without~%~\n"
+"            warning if you run out of space while debugging.~@:>~%"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"All debug-conditions inherit from this type.  These are serious conditions\n"
+"    that must be handled, but they are not programmer errors."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "There is absolutely no debugging information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "No debugging information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The system could not return values from a frame with debug-function since\n"
+"    it lacked information about returning values."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~&Cannot return values from ~:[frame~;~:*~S~] since ~\n"
+"			the debug information lacks details about returning ~\n"
+"			values here."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-variable information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-variable information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The debug-function has no lambda-list since argument debug-variables are\n"
+"    unavailable."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no lambda-list information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has :invalid or :unknown value in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S names more than one valid variable in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"All programmer errors from using the interface for building debugging\n"
+"    tools inherit from this type."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Unhandled debug-condition:~%~A"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Invalid use of an unknown code-location -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S not in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Invalid control stack pointer."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the debug-variable.  The name is the name of the symbol\n"
+"   used as an identifier when writing the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the package name of the debug-variable.  This is the package name "
+"of\n"
+"   the symbol used as an identifier when writing the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the integer that makes debug-variable's name and package name "
+"unique\n"
+"   with respect to other debug-variable's in the same function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately above frame on the stack.  When frame is\n"
+"   the top of the stack, this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function for the function whose call frame represents."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the code-location where the frame's debug-function will continue\n"
+"   running when program execution returns to this frame.  If someone\n"
+"   interrupted this frame, the result could be an unknown code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "#<~A-Debug-Function ~S>"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the list of possible code-locations where execution may continue\n"
+"   when the basic-block represented by debug-block completes its execution."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether debug-block represents elsewhere code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the breakpoint's function the system calls when execution encounters"
+"\n"
+"   the breakpoint, and it is active.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's what specification."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's kind specification."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function representing information about the function\n"
+"   corresponding to the code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms processed by the compiler before\n"
+"   compiling this source.  If this source is uncompiled, this is zero.  "
+"This\n"
+"   may be zero even if the source is compiled since the first form in the "
+"first\n"
+"   file compiled in one compilation, for example, must have a root number "
+"of\n"
+"   zero -- the compiler saw no other top-level forms before it."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an indication of the type of source.  The following are the possible"
+"\n"
+"   values:\n"
+"      :file    from a file (obtained by COMPILE-FILE if compiled).\n"
+"      :lisp    from Lisp (obtained by COMPILE if compiled).\n"
+"      :stream  from a non-file stream."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the actual source in some sense represented by debug-source, which\n"
+"   is related to DEBUG-SOURCE-FROM:\n"
+"      :file    the pathname of the file.\n"
+"      :lisp    a lambda-expression.\n"
+"      :stream  some descriptive string that's otherwise useless."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the universal time someone created the source.  This may be nil if\n"
+"   it is unavailable."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the time someone compiled the source.  This is nil if the source\n"
+"   is uncompiled."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This function returns the file position of each top-level form as an array\n"
+"   if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or "
+":stream,\n"
+"   this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether object is a debug-source."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the top frame of the control stack as it was before calling this\n"
+"   function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Flush all of the frames above FRAME, and renumber all the frames below\n"
+"   FRAME."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately below frame on the stack.  When frame is\n"
+"   the bottom of the stack, this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"When set, the debugger foregoes making interpreted-frames, so you can\n"
+"   debug the functions that manifest the interpreter."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Zero or more than one ~A variable in ~\n"
+"			   EVAL::INTERNAL-APPLY-LOOP?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Return a string describing the foreign function near ADDRESS"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Foreign function call land"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Return t if COMPONENT contains code from assembly routines."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the name of the assembly routine at offset PC in COMPONENT.\n"
+"The result is a symbol or nil if the routine cannot be found."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an a-list mapping catch tags to code-locations.  These are\n"
+"   code-locations at which execution would continue with frame as the top\n"
+"   frame if someone threw to the corresponding tag."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes the forms in a context with block-var bound to each debug-block in\n"
+"   debug-function successively.  Result is an optional form to execute for\n"
+"   return values, and DO-DEBUG-FUNCTION-BLOCKS returns nil if there is no\n"
+"   result form.  This signals a no-debug-blocks condition when the\n"
+"   debug-function lacks debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes body in a context with var bound to each debug-variable in\n"
+"   debug-function.  This returns the value of executing result (defaults to\n"
+"   nil).  This may iterate over only some of debug-function's variables or "
+"none\n"
+"   depending on debug policy; for example, possibly the compilation only\n"
+"   preserved argument information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the Common Lisp function associated with the debug-function.  This\n"
+"   returns nil if the function is unavailable or is non-existent as a user\n"
+"   callable function object."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the function represented by debug-function.  This may\n"
+"   be a string or a cons; do not assume it is a symbol."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a debug-function that represents debug information for function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the kind of the function which is one of :optional, :external,\n"
+"   :top-level, :cleanup, nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether there is any variable information for debug-function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function having the same name\n"
+"   and package as symbol.  If symbol is uninterned, then this returns a "
+"list of\n"
+"   debug-variables without package names and with the same name as symbol.  "
+"The\n"
+"   result of this function is limited to the availability of variable\n"
+"   information in debug-function; for example, possibly debug-function only\n"
+"   knows about its arguments."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function whose names contain\n"
+"    name-prefix-string as an intial substring.  The result of this function "
+"is\n"
+"    limited to the availability of variable information in debug-function; "
+"for\n"
+"    example, possibly debug-function only knows about its arguments."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list representing the lambda-list for debug-function.  The list\n"
+"   has the following structure:\n"
+"      (required-var1 required-var2\n"
+"       ...\n"
+"       (:optional var3 suppliedp-var4)\n"
+"       (:optional var5)\n"
+"       ...\n"
+"       (:rest var6) (:rest var7)\n"
+"       ...\n"
+"       (:keyword keyword-symbol var8 suppliedp-var9)\n"
+"       (:keyword keyword-symbol var10)\n"
+"       ...\n"
+"      )\n"
+"   Each VARi is a debug-variable; however it may be the symbol :deleted it\n"
+"   is unreferenced in debug-function.  This signals a lambda-list-unavaliabl"
+"e\n"
+"   condition when there is no argument list information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Malformed arguments description."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns whether basic-code-location is unknown.  It returns nil when the\n"
+"   code-location is known."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-block containing code-location if it is available.  Some\n"
+"   debug policies inhibit debug-block information, and if none is available,"
+"\n"
+"   then this signals a no-debug-blocks condition."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the code-location's debug-source."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms before the one containing\n"
+"   code-location as seen by the compiler in some compilation unit.  A\n"
+"   compilation unit is not necessarily a single file, see the section on\n"
+"   debug-sources."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Unknown code location?  It should be known."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of the form corresponding to code-location.  The form\n"
+"   number is derived by a walking the subforms of a top-level form in\n"
+"   depth-first order."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the kind of CODE-LOCATION, one of:\n"
+"     :interpreted, :unknown-return, :known-return, :internal-error,\n"
+"     :non-local-exit, :block-start, :call-site, :single-value-return,\n"
+"     :non-local-entry"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether obj1 and obj2 are the same place in the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes forms in a context with code-var bound to each code-location in\n"
+"   debug-block.  This returns the value of executing result (defaults to "
+"nil)."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "??? Can't get name of debug-block's function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n"
+"   by DEBUG-VARIABLE-PACKAGE."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  If the value is not\n"
+"   :valid, then this signals an invalid-value error."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  The value may be\n"
+"   invalid.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns three values reflecting the validity of debug-variable's value\n"
+"   at basic-code-location:\n"
+"      :valid    The value is known to be available.\n"
+"      :invalid  The value is known to be unavailable.\n"
+"      :unknown  The value's availability is unknown."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a table mapping form numbers to source-paths.  A source-path\n"
+"   indicates a descent into the top-level-form form, going directly to the\n"
+"   subform corressponding to the form number."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Form is a top-level form, and path is a source-path into it.  This returns\n"
+"   the form indicated by the source-path.  Context is the number of enclosin"
+"g\n"
+"   forms to return instead of directly returning the source-path form.  "
+"When\n"
+"   context is non-zero, the form returned contains a marker, #:****HERE****,"
+"\n"
+"   immediately before the form indicated by path."
+msgstr ""
+
+#: target:code/debug.lisp target:code/debug-int.lisp
+msgid "Source path no longer exists."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return a function of one argument that evaluates form in the lexical\n"
+"   context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a\n"
+"   no-debug-variables condition when the loc's debug-function has no\n"
+"   debug-variable information available.  The returned function takes the "
+"frame\n"
+"   to get values from as its argument, and it returns the values of form.\n"
+"   The returned function signals the following conditions: invalid-value,\n"
+"   ambiguous-variable-name, and frame-function-mismatch"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning the results of the evaluation."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Find and return the debug catch tag for a given frame, if it exists."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning from the current frame the results of the evaluation."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This creates and returns a breakpoint.  When program execution encounters\n"
+"   the breakpoint, the system calls hook-function.  Hook-function takes the\n"
+"   current frame for the function in which the program is running and the\n"
+"   breakpoint object.\n"
+"      What and kind determine where in a function the system invokes\n"
+"   hook-function.  What is either a code-location or a debug-function.  "
+"Kind is\n"
+"   one of :code-location, :function-start, or :function-end.  Since the "
+"starts\n"
+"   and ends of functions may not have code-locations representing them,\n"
+"   designate these places by supplying what as a debug-function and kind\n"
+"   indicating the :function-start or :function-end.  When what is a\n"
+"   debug-function and kind is :function-end, then hook-function must take "
+"two\n"
+"   additional arguments, a list of values returned by the function and a\n"
+"   function-end-cookie.\n"
+"      Info is information supplied by and used by the user.\n"
+"      Function-end-cookie is a function.  To implement :function-end "
+"breakpoints,\n"
+"   the system uses starter breakpoints to establish the :function-end "
+"breakpoint\n"
+"   for each invocation of the function.  Upon each entry, the system "
+"creates a\n"
+"   unique cookie to identify the invocation, and when the user supplies a\n"
+"   function for this argument, the system invokes it on the frame and the\n"
+"   cookie.  The system later invokes the :function-end breakpoint hook on "
+"the\n"
+"   same cookie.  The user may save the cookie for comparison in the hook\n"
+"   function.\n"
+"      This signals an error if what is an unknown code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Cannot make a breakpoint at an unknown code location -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Breakpoints in interpreted code are currently unsupported."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+":FUNCTION-END breakpoints are currently unsupported ~\n"
+"		       for the known return convention."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+":function-end breakpoints are currently unsupported ~\n"
+"	     for interpreted-debug-functions."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This takes a function-end-cookie and a frame, and it returns whether the\n"
+"   cookie is still valid.  A cookie becomes invalid when the frame that\n"
+"   established the cookie has exited.  Sometimes cookie holders are unaware\n"
+"   of cookie invalidation because their :function-end breakpoint hooks didn'"
+"t\n"
+"   run due to THROW'ing.  This takes a frame as an efficiency hack since "
+"the\n"
+"   user probably has a frame object in hand when using this routine, and it\n"
+"   saves repeated parsing of the stack and consing when asking whether a\n"
+"   series of cookies is valid."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This causes the system to invoke the breakpoint's hook-function until the\n"
+"   next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system "
+"invokes\n"
+"   breakpoint hook functions in the opposite order that you activate them."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Cannot activate a deleted breakpoint -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "I don't know how you made this, but they're unsupported -- ~S"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "This stops the system from invoking the breakpoint's hook-function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns the user maintained info associated with breakpoint.  This\n"
+"   is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "This returns whether breakpoint is currently active."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This frees system storage and removes computational overhead associated "
+"with\n"
+"   breakpoint.  After calling this, breakpoint is completely impotent and "
+"can\n"
+"   never become active again."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Unknown breakpoint in ~S at offset ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Make a bogus LRA object that signals a breakpoint trap when returned to.  "
+"If\n"
+"   the breakpoint trap handler returns, REAL-LRA is returned to.  Three "
+"values\n"
+"   are returned: the bogus LRA object, the code component it is part of, "
+"and\n"
+"   the PC offset for the trap instruction."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this remotely in the slave to set breakpoints.  Package is\n"
+"   the string name of a package or nil, and name-str is a string representin"
+"g a\n"
+"   function name (for example, \"foo\" or \"(setf foo)\").  After finding\n"
+"   package, this READs name-str with *package* bound appropriately.  Path "
+"is\n"
+"   either a modified source-path or a symbol (:function-start or\n"
+"   :function-end).  If it is a modified source-path, it has no top-level-for"
+"m\n"
+"   offset or form-number component, and it is in descent order from the "
+"root of\n"
+"   the top-level form."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Editor installed breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "We don't currently support breakpoints in interpreted code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%Cannot set breakpoints for editor when source file no ~\n"
+"		    longer exists:~%  ~A."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Cannot set breakpoints for editor when ~\n"
+"				   there is no start positions map."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%While setting a breakpoint for the editor, noticed ~\n"
+"			source file has been modified since compilation:~%  ~A~@\n"
+"			Using form offset instead of character position.~%"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this in the slave with a remote-object representing a\n"
+"   code-location to set a breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The editor calls this remotely in the slave to delete a breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a code-location before the body of a function and after all\n"
+"   the arguments are in place.  If this cannot determine that location due "
+"to\n"
+"   a lack of debug information, it returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~S code location at ~D"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LEVEL* is bound to this value when debug prints a function call.  If\n"
+"  null, use *PRINT-LEVEL*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LENGTH* is bound to this value when debug prints a function call.  "
+"If\n"
+"  null, use *PRINT-LENGTH*."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"default value for the verbose argument to print-frame-call.  If set to >= 2,"
+" source will be printed for all frames"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "This is T while in the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Pushes and pops/exits inside the debugger change this."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"If this is bound before the debugger is invoked, it is used as the stack\n"
+"   top by the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This is a function of no arguments that prints the debugger prompt\n"
+"   on *debug-io*."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"\n"
+"The prompt is right square brackets, the number indicating how many\n"
+"  recursive command loops you are in.\n"
+"Debug commands do not affect * and friends, but evaluation in the debug "
+"loop\n"
+"  do affect these variables.\n"
+"Any command may be uniquely abbreviated.\n"
+"\n"
+"Getting in and out of DEBUG:\n"
+"  Q        throws to top level.\n"
+"  GO       calls CONTINUE which tries to proceed with the restart "
+"'continue.\n"
+"  RESTART  invokes restart numbered as shown (prompt if not given).\n"
+"  ERROR    prints the error condition and restart cases.\n"
+"  FLUSH    toggles *flush-debug-errors*, which is initially t.\n"
+" \n"
+"  The name of any restart, or its number, is a valid command, and is the "
+"same\n"
+"    as using RESTART to invoke that restart.\n"
+"\n"
+"Changing frames:\n"
+"  U  up frame        D  down frame       T  top frame       B  bottom frame\n"
+"\n"
+"  F n   goes to frame n.\n"
+"\n"
+"Inspecting frames:\n"
+"  BACKTRACE [n]  shows n frames going down the stack.\n"
+"  L [prefix]     lists locals starting with the given prefix in current "
+"function.\n"
+"  P              displays current function call.\n"
+"  PP             verbose display of current function, with source.\n"
+"  SOURCE [n]     displays frame's source form with n levels of enclosing "
+"forms.\n"
+"  VSOURCE [n]    displays frame's source form without any ellipsis.\n"
+"  DESCRIBE       describe the current function.\n"
+"\n"
+"Breakpoints and steps:\n"
+"  LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.\n"
+"    Specify :c for the current frame.  Abbreviation: LL\n"
+"  LIST-BREAKPOINTS                  list the active breakpoints.\n"
+"    Abbreviations: LB, LBP\n"
+"  DELETE-BREAKPOINT [n]             remove breakpoint n or all breakpoints.\n"
+"    Abbreviations: DEL, DBP    \n"
+"  BREAKPOINT {n | :end | :start} [:break form] [:function function]\n"
+"    [{:print form}*] [:condition form]    set a breakpoint.\n"
+"    Abbreviations: BR, BP\n"
+"  STEP [n]                          step to the next location or step n "
+"times.\n"
+"\n"
+"Actions on frames:\n"
+"  DEBUG-RETURN expression\n"
+"    returns expression's values from the current frame, exiting the debugger"
+".\n"
+"    Abbreviations: R\n"
+"\n"
+"Variables:\n"
+"  (DEBUG:VAR name [id])   Returns variable's value if possible.  If multiple"
+"\n"
+"                          variables with the same name exist, use id to "
+"select\n"
+"                          one\n"
+"  (DEBUG:ARG n)           Returns the n'th argument's value if possible.\n"
+"                          Argument zero is the first argument.\n"
+"\n"
+"See the CMU Common Lisp User's Manual for more information.\n"
+""
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When true, the LIST-LOCATIONS command only displays block start locations.\n"
+"   Otherwise, all locations are displayed."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "If true, list the code location type in the LIST-LOCATIONS command."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Unknown location: using block start.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: ~S in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-START in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-END in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Return values: ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&*Step (to a breakpoint)*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "*Step*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&*Breakpoint hit*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Error in main-hook-function: unknown breakpoint"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Cannot step, in elsewhere code~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Currently only compiled code can be stepped.~%~\n"
+"                Trying to compile the passed form resulted in ~\n"
+"                the following error:~%  ~A"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&Stepping the form~%  ~S~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&using the debugger.  Type HELP for help.~2%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"STEP implements a debugging paradigm wherein the programmer is allowed\n"
+"   to step through the evaluation of a form.  We use the debugger's stepping"
+"\n"
+"   facility to step through an anonymous function containing only form.\n"
+"\n"
+"   Currently the stepping facility only supports stepping compiled code,\n"
+"   so step will try to compile the resultant anonymous function.  If this\n"
+"   fails, e.g. because it closes over a non-null lexical environment, an\n"
+"   error is signalled."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Show a listing of the call stack going down from the current frame.  In the\n"
+"   debugger, the current frame is indicated by the prompt.  Count is how "
+"many\n"
+"   frames to show."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unavaliable-rest-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "lambda-list-unavailable"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "error printing object {~X}"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unused-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unavailable-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Source: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Error finding source: ~A"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unable to display error condition~@[: ~A~]"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This is either nil or a function of two arguments, a condition and the "
+"value\n"
+"   of *debugger-hook*.  This function can either handle the condition or "
+"return\n"
+"   which causes the standard debugger to execute.  The system passes the "
+"value\n"
+"   of this variable to the function because it binds *debugger-hook* to nil\n"
+"   around the invocation."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&~A~%   [Condition of type ~S]~2&"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "The CMU Common Lisp debugger.  Type h for help."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Restarts:~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&Debug  (type H for help)~2%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n"
+"   executing in the debugger.  The 'flush' command toggles this."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When non-NIL, becomes the system *READTABLE* in the debugger\n"
+"   read-eval-print loop"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "When non-NIL, print the current frame when entering the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Error flushed ..."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Return to debug level ~D."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unknown stream-command -- ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Ambiguous debugger command: ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Your command, ~S, is ambiguous:~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When set (the default), evaluations in the debugger's command loop occur\n"
+"   relative to the current frame's environment without the need of debugger\n"
+"   forms that explicitly control this kind of evaluation."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Setting * to NIL -- was unbound marker."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No known valid variables match ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Specification ambiguous:~%~{   ~A~%~}"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid variable ID, ~D, should have been one of ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Returns a variable's value if possible.  Name is a simple-string or symbol.\n"
+"   If it is a simple-string, it is an initial substring of the variable's "
+"name.\n"
+"   If name is a symbol, it has the same name and package as the variable "
+"whose\n"
+"   value this function returns.  If the symbol is uninterned, then the "
+"variable\n"
+"   has the same name as the symbol, but it has no package.\n"
+"\n"
+"   If name is the initial substring of variables with different names, then\n"
+"   this return no values after displaying the ambiguous names.  If name\n"
+"   determines multiple variables with the same name, then you must use the\n"
+"   optional id argument to specify which one you want.  If you left id\n"
+"   unspecified, then this returns no values after displaying the distinguish"
+"ing\n"
+"   id values.\n"
+"\n"
+"   The result of this function is limited to the availability of variable\n"
+"   information.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Returns the n'th argument's value if possible.  Argument zero is the first\n"
+"   argument in a frame's default printed representation.  Count keyword/valu"
+"e\n"
+"   pairs as separate arguments."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No argument values are available."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unused arguments have no values."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid argument value."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Argument specification out of range -- ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unused rest-arg before n'th argument."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid rest-arg before n'th argument."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invoking debugger command while outside the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unknown debug command name -- ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Top of stack."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Bottom of stack."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Frame number: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "You are here."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Bottom of stack encountered."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Top of stack encountered."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "debug-return: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"~@<can't find a tag for this frame ~\n"
+"                   ~2I~_(hint: try increasing the DEBUG optimization "
+"quality ~\n"
+"                   and recompiling)~:@>"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No restart named continue."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Restart: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~S is invalid as a restart name.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No such restart."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This controls how many lines the debugger's help command prints before\n"
+"   printing a prompting line to continue with output."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"No local variables ~@[starting with ~A ~]~\n"
+"	               in function."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"All variables ~@[starting with ~A ~]currently ~\n"
+"	               have invalid values."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No variable information available."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No start positions map."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Source file no longer exists:~%  ~A."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%; File: ~A~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"~%; File has been modified since compilation:~%;   ~A~@\n"
+"		 ; Using form offset instead of character position.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Couldn't continue."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "::FUNCTION-START "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid " *Active*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid " *Continue here*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&::FUNCTION-END *Active* "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Location number, :start, or :end: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Note: previous breakpoint removed.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Added."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Breakpoint ~S removed.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Breakpoint doesn't exist."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "All breakpoints deleted.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Errors now flushed."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Errors now create nested debug levels."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Can't figure out the function for this frame."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"The debugger's EDIT-SOURCE command only works in slave Lisps ~\n"
+"	    connected to a Hemlock editor."
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n"
+"   until the user enters y or Y as an affirmative, or either n or N as a\n"
+"   negative answer.  It ignores preceding whitespace and asks again if you\n"
+"   enter any other characters."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"y\" for yes or \"n\" for no. "
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n"
+"   input buffer, beeps, and uses READ-LINE to get the strings \n"
+"   YES or NO."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"yes\" for yes or \"no\" for no. "
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate an random state vector from the given SEED.  The seed can be\n"
+"  either an integer or a vector of (unsigned-byte 32)"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Make a random state object.  If STATE is not supplied, return a copy\n"
+"  of the default random state.  If STATE is a random state, then return a\n"
+"  copy of it.  If STATE is T then return a random state generated from\n"
+"  the universal time or /dev/urandom if available."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate a uniformly distributed pseudo-random number between zero\n"
+"  and Arg.  State, if supplied, is the random state to use."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a positive integer or a positive float: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"This is bound to the returned values when evaluating :BREAK-AFTER and\n"
+"   :PRINT-AFTER forms."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"If the trace indentation exceeds this value, then indentation restarts at\n"
+"   0."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "The default value for the :ENCAPSULATE option to trace."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"List of package names.  Encapsulate functions from these packages\n"
+"   by default.  This should at least include the packages of functions\n"
+"   used by TRACE, directly or indirectly."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't trace special form ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Breaking ~A traced call to ~S:"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "~S returned"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Function ~S already TRACE'd, retracing it."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Tracing shared code for ~S:~%  ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "~S name is not a defined global function: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace anonymous function ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace local flet/labels function ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Missing argument to ~S TRACE option."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Unknown TRACE option: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"TRACE {Option Global-Value}* {Name {Option Value}*}*\n"
+"   TRACE is a debugging tool that prints information when specified function"
+"s\n"
+"   are called.  In its simplest form:\n"
+"       (trace Name-1 Name-2 ...)\n"
+"\n"
+"   CLOS methods can be traced by specifying a name of the form\n"
+"   (METHOD {Qualifier}* ({Specializer}*)).\n"
+"\n"
+"   Labels and Flet functions can be traced by specifying a name of the form\n"
+"   (LABELS <lfun> <fun>) or (FLET <lfun> <fun>) where <lfun> is the Labels/F"
+"let\n"
+"   function in <fun>.\n"
+"\n"
+"   TRACE causes a printout on *TRACE-OUTPUT* each time that one of the "
+"named\n"
+"   functions is entered or returns (the Names are not evaluated.)  The "
+"output\n"
+"   is indented according to the number of pending traced calls, and this "
+"trace\n"
+"   depth is printed at the beginning of each line of output.\n"
+"\n"
+"   Options allow modification of the default behavior.  Each option is a "
+"pair\n"
+"   of an option keyword and a value form.  Options may be interspersed with\n"
+"   function names.  Options only affect tracing of the function whose name "
+"they\n"
+"   appear immediately after.  Global options are specified before the first\n"
+"   name, and affect all functions traced by a given use of TRACE.\n"
+"\n"
+"   The following options are defined:\n"
+"\n"
+"   :CONDITION Form\n"
+"   :CONDITION-AFTER Form\n"
+"   :CONDITION-ALL Form\n"
+"       If :CONDITION is specified, then TRACE does nothing unless Form\n"
+"       evaluates to true at the time of the call.  :CONDITION-AFTER is\n"
+"       similar, but suppresses the initial printout, and is tested when the\n"
+"       function returns.  :CONDITION-ALL tries both before and after.\n"
+"\n"
+"   :WHEREIN Names\n"
+"       If specified, Names is a function name or list of names.  TRACE does\n"
+"       nothing unless a call to one of those functions encloses the call to\n"
+"       this function (i.e. it would appear in a backtrace.)  Anonymous\n"
+"       functions have string names like \"DEFUN FOO\".\n"
+"   :WHEREIN-ONLY Names\n"
+"       Like :WHEREIN, but only if the immediate caller is one of Names,\n"
+"       instead of being any where in a backtrace.\n"
+"\n"
+"   :BREAK Form\n"
+"   :BREAK-AFTER Form\n"
+"   :BREAK-ALL Form\n"
+"       If specified, and Form evaluates to true, then the debugger is "
+"invoked\n"
+"       at the start of the function, at the end of the function, or both,\n"
+"       according to the respective option.\n"
+"\n"
+"   :PRINT Form\n"
+"   :PRINT-AFTER Form\n"
+"   :PRINT-ALL Form\n"
+"       In addition to the usual printout, the result of evaluating FORM is\n"
+"       printed at the start of the function, at the end of the function, or\n"
+"       both, according to the respective option.  Multiple print options "
+"cause\n"
+"       multiple values to be printed.\n"
+"\n"
+"   :FUNCTION Function-Form\n"
+"       This is a not really an option, but rather another way of specifying\n"
+"       what function to trace.  The Function-Form is evaluated immediately,\n"
+"       and the resulting function is traced.\n"
+"\n"
+"   :METHODS Function-Form\n"
+"       This is a not really an option, but rather a way of specifying\n"
+"       that all methods of a generic functions should be traced.  The\n"
+"       Function-Form is evaluated immediately, and the methods of the "
+"resulting\n"
+"       generic function are traced.\n"
+"\n"
+"   :ENCAPSULATE {:DEFAULT | T | NIL}\n"
+"       If T, the tracing is done via encapsulation (redefining the function\n"
+"       name) rather than by modifying the function.  :DEFAULT is the "
+"default,\n"
+"       and means to use encapsulation for interpreted functions and funcalla"
+"ble\n"
+"       instances, breakpoints otherwise.  When encapsulation is used, forms "
+"are\n"
+"       *not* evaluated in the function's lexical environment, but DEBUG:ARG "
+"can\n"
+"       still be used.\n"
+"\n"
+"   :CONDITION, :BREAK and :PRINT forms are evaluated in the lexical environm"
+"ent\n"
+"   of the called function; DEBUG:VAR and DEBUG:ARG can be used.  The -AFTER "
+"and\n"
+"   -ALL forms are evaluated in the null environment."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Function is not TRACE'd -- ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"Removes tracing from the specified functions.  With no args, untraces all\n"
+"   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/time.lisp
+msgid ""
+"The number of internal time units that fit into a second.  See\n"
+"  Get-Internal-Real-Time and Get-Internal-Run-Time."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Return the real time in the internal time format.  This is useful for\n"
+"  finding elapsed time.  See Internal-Time-Units-Per-Second."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Return the run time in the internal time format.  This is useful for\n"
+"  finding CPU usage."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Returns a single integer for the current time of\n"
+"   day in universal time format."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Returns nine values specifying the current time as follows:\n"
+"   second, minute, hour, date, month, year, day of week (0 = Monday), T\n"
+"   (daylight savings times) or NIL (standard time), and timezone."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Converts a universal-time to decoded time format returning the following\n"
+"   nine values: second, minute, hour, date, month, year, day of week (0 =\n"
+"   Monday), T (daylight savings time) or NIL (standard time), and timezone.\n"
+"   Completely ignores daylight-savings-time when time-zone is supplied."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"The time values specified in decoded format are converted to \n"
+"   universal time, which is returned."
+msgstr ""
+
+#: target:code/time.lisp
+msgid "Evaluates the Form and prints timing information on *Trace-Output*."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"TIME form in a non-null environment, forced to interpret.~@\n"
+"	       Compiling entire form will produce more accurate times."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Evaluation took:~%  ~\n"
+"		     ~S seconds of real time~%  ~\n"
+"		     ~S seconds of user run time~%  ~\n"
+"		     ~S seconds of system run time~%  "
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"~:D ~A cycle~%  ~\n"
+"		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgid_plural ""
+"~:D ~A cycles~%  ~\n"
+"		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgstr[0] ""
+
+#: target:code/time.lisp
+msgid "~S page fault and~%  "
+msgid_plural "~S page faults and~%  "
+msgstr[0] ""
+
+#: target:code/time.lisp
+msgid "~:D byte consed.~%"
+msgid_plural "~:D bytes consed.~%"
+msgstr[0] ""
+
+#: target:code/weak.lisp
+msgid "Allocates and returns a weak pointer which points to OBJECT."
+msgstr ""
+
+#: target:code/weak.lisp
+msgid ""
+"If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n"
+"   If the referent of WEAK-POINTER has been garbage collected, returns\n"
+"   the values NIL and NIL."
+msgstr ""
+
+#: target:code/weak.lisp
+msgid "Updates WEAK-POINTER to point to a new object."
+msgstr ""
+
+#: target:code/final.lisp
+msgid ""
+"Arrange for FUNCTION to be called when there are no more references to\n"
+"   OBJECT.  FUNCTION takes no arguments."
+msgstr ""
+
+#: target:code/final.lisp
+msgid "Cancel any finalization registers for OBJECT."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Depth of recursive descriptions allowed."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"If non-nil, descriptions may provide interpretations of information and\n"
+"  pointers to additional information.  Normally nil."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"*print-level* gets bound to this inside describe.  If null, use\n"
+"  *print-level*"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"*print-length* gets bound to this inside describe.  If null, use\n"
+"  *print-length*."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Number of spaces that sets off each line of a recursive description."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Used to tell whether we are doing a recursive describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Used to implement recursive description cutoff.  Don't touch."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "An output stream used by Describe for indenting and stuff."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"List of all objects describe within the current top-level call to describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "The last object passed to describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Prints a description of the object X."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "*describe-level* should be a nonnegative integer - ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its code is #x~4,'0x."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its name is ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~(~A~) of type ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~:[~;displaced ~]vector of length ~D."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It has a fill pointer, currently ~d"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It has no fill pointer."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is ~:[an~;a displaced~] array of rank ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~%Its dimensions are ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its element type is specialized to ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is adjustable."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is static."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a prime number."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a composite number."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its components are ~S and ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is an ~A hash table."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its size is ~D buckets."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-size is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-threshold is ~S."
+msgstr ""
+
+#: target:pcl/env.lisp target:code/describe.lisp
+msgid "~&It currently holds ~d entries."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is weak ~A table."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~d symbols total: ~d internal and ~d external."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@(~A documentation:~)~&  ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its ~(~A~) argument types are:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its result type is:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"~&It is currently declared ~(~A~);~\n"
+"		 ~:[no~;~] expansion is available."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@(~@[~A ~]arguments:~%~)"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "  There are no arguments."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its closure environment is:"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its definition is:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&On ~A it was compiled from:"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A~%  Created: "
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&  Comment: ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "  There is no argument information available."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Macro-function: ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Function: ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~S is a function."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is an unknown type of function."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A is an ~A symbol in the ~A package."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A is an uninterned symbol."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~@<Its current value is ~3I~:_~S.~:>"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A with expansion: ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; its value is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; no current value."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its declared type is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Special form"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Structure"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Type"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Setf macro"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Documentation on the ~(~A~):~%~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a class ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a PCL class ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a type specifier."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its ~S property is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is defined in:~&~A"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%That slot is unbound.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%This object contains nothing to inspect.~%~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Bottom of Stack.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Returning to INSPECTOR.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "TTY-Inspector Help:"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  R           -  recompute current object."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  D           -  redisplay current object."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  U           -  Move upward through the object stack."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  <number>    -  Inspect this slot."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  Q, E        -  Quit TTY-INSPECTOR."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  ?, H, Help  -  Show this help."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Unbound"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a symbol.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Value"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Function"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Plist"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Package"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is an instance of ~s.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "- (slot is unbound)"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a ~(~A~).~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Function ~s.~@[~%Argument List: ~a~]."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a LIST of length ~d.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a CONS.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid ""
+"Object is ~:[a displaced~;an~] array of ~a.~%~\n"
+"                       Its dimensions are ~s.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is an atom.~%"
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Universal-Time formats a string containing the time and date\n"
+"   given by universal-time in a common manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), :abbreviated (like :long but words\n"
+"   are abbreviated), :rfc1123 (conforming to RFC 1123), :government\n"
+"   (of the form \"XX Mon XX XX:XX:XX\"), or :iso8601 (conforming to\n"
+"   ISO 8601), which is the recommended way of printing date and time.\n"
+"   The keyword date-first, if nil, will print the time first instead of\n"
+"   the date (the default).  The print- keywords, if nil, inhibit the\n"
+"   printing of the obvious part of the time/date."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Not a valid format destination."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Universal-Time should be an integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be a rational between -24 and 24."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone is not a second (1/3600) multiple."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Unrecognized :style keyword value."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Decoded-Time formats a string containing decoded-time\n"
+"   expressed in a humanly-readable manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), or :abbreviated (like :long but words are\n"
+"   abbreviated).  The keyword date-first, if nil, will cause the time\n"
+"   to be printed first instead of the date (the default).  The print-\n"
+"   keywords, if nil, inhibit the printing of certain semi-obvious\n"
+"   parts of the string."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Seconds should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Minutes should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an integer between 0 and 23."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Day should be an integer between 1 and 31."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Month should be an integer between 1 and 12."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an non-negative integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be an integer between 0 and 32."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"If t, an error will be signalled if parse-time is unable\n"
+"   to determine the time/date format of the string."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized word or abbreviation."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"Can't parse time/date string.~%>>> ~A~\n"
+"				   ~%~VT^-- Bogus character encountered here."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol: ~A"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "~D is not an AM hour, dummy."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "~A isn't AM/PM - this shouldn't happen."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Invalid number of days (~D) for month ~D in ~D"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Ignore."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol in form list: ~A."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"Tries very hard to make sense out of the argument time-string and\n"
+"   returns a single integer representing the universal time if\n"
+"   successful.  If not, it returns nil.  If the :error-on-mismatch\n"
+"   keyword is true, parse-time will signal an error instead of\n"
+"   returning nil.  Default values for each part of the time/date\n"
+"   can be specified by the appropriate :default- keyword.  These\n"
+"   keywords can be given a numeric value or the keyword :current\n"
+"   to set them to the current value.  The default-default values\n"
+"   are 00:00:00 on the current date, current time-zone."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized time/date format."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Return any available status information on child processed. "
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of process structures for all active processes."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Return the current status of process.  The result is one of :running,\n"
+"   :stopped, :exited, :signaled."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Wait for PROC to quit running for some reason.  Returns PROC."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "TIOCPGRP ioctl failed: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Hand SIGNAL to PROC.  If whom is :pid, use the kill Unix system call.  If\n"
+"   whom is :process-group, use the killpg Unix system call.  If whom is\n"
+"   :pty-process-group deliver the signal to whichever process group is "
+"currently\n"
+"   in the foreground."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns T if the process is still alive, NIL otherwise."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Close all streams connected to PROC and stop maintaining the status slot."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM exits due to an error."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM returns in the parent."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of handlers installed by RUN-PROGRAM."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns the master fd, the slave fd, and the name of the tty"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not find a pty."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not UNIX:UNIX-DUP ~D: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"RUN-PROGRAM creates a new process and runs the unix program in the\n"
+"   file specified by the simple-string PROGRAM.  ARGS are the standard\n"
+"   arguments that can be passed to a Unix program, for no arguments\n"
+"   use NIL (which means just the name of the program is passed as arg 0).\n"
+"\n"
+"   RUN-PROGRAM will either return NIL or a PROCESS structure.  See the CMU\n"
+"   Common Lisp Users Manual for details about the PROCESS structure.\n"
+"\n"
+"   The keyword arguments have the following meanings:\n"
+"     :env -\n"
+"        An A-LIST mapping keyword environment variables to simple-string\n"
+"	values.\n"
+"     :wait -\n"
+"        If non-NIL (default), wait until the created process finishes.  If\n"
+"        NIL, continue running Lisp until the program finishes.\n"
+"     :pty -\n"
+"        Either T, NIL, or a stream.  Unless NIL, the subprocess is establish"
+"ed\n"
+"	under a PTY.  If :pty is a stream, all output to this pty is sent to\n"
+"	this stream, otherwise the PROCESS-PTY slot is filled in with a stream\n"
+"	connected to pty that can read output and write input.\n"
+"     :input -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the standard"
+"\n"
+"	input for the current process is inherited.  If NIL, /dev/null\n"
+"	is used.  If a pathname, the file so specified is used.  If a stream,\n"
+"	all the input is read from that stream and send to the subprocess.  If\n"
+"	:STREAM, the PROCESS-INPUT slot is filled in with a stream that sends \n"
+"	its output to the process. Defaults to NIL.\n"
+"     :if-input-does-not-exist (when :input is the name of a file) -\n"
+"        can be one of:\n"
+"           :error - generate an error.\n"
+"           :create - create an empty file.\n"
+"           nil (default) - return nil from run-program.\n"
+"     :output -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the standard"
+"\n"
+"	output for the current process is inherited.  If NIL, /dev/null\n"
+"	is used.  If a pathname, the file so specified is used.  If a stream,\n"
+"	all the output from the process is written to this stream. If\n"
+"	:STREAM, the PROCESS-OUTPUT slot is filled in with a stream that can\n"
+"	be read to get the output. Defaults to NIL.\n"
+"     :if-output-exists (when :output is the name of a file) -\n"
+"        can be one of:\n"
+"           :error (default) - generates an error if the file already "
+"exists.\n"
+"           :supersede - output from the program supersedes the file.\n"
+"           :append - output from the program is appended to the file.\n"
+"           nil - run-program returns nil without doing anything.\n"
+"     :error and :if-error-exists - \n"
+"        Same as :output and :if-output-exists, except that :error can also "
+"be\n"
+"	specified as :output in which case all error output is routed to the\n"
+"	same place as normal output.\n"
+"     :status-hook -\n"
+"        This is a function the system calls whenever the status of the\n"
+"        process changes.  The function takes the process as an argument."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "All args to program must be simple strings -- ~S."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "No such program: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not fork child process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not select on sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not read input from sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open \"/dev/null\": ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not duplicate file descriptor: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open a temporary file in /tmp"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Cound not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Invalid option to run-program: ~S"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP-BODY called with non-synched before- and after-loop lists."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~?~%Current LOOP context:~{ ~S~}."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Specified data type ~S is not a subtype of ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Causes the iteration to terminate \"normally\", the same as implicit\n"
+"termination by an iteration driving clause, or by use of WHILE or\n"
+"UNTIL -- the epilogue code (if any) will be run, and any implicitly\n"
+"collected result will be returned as the value of the LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where LOOP keyword expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in LOOP macro."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP source code ran out when another token was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Compound form expected, but found ~A."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP code ran out where a form was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"LOOP clause is providing a value for the iteration,~@\n"
+"	        however one was already established by a ~S clause."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a "
+"conditional."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "This LOOP clause is not permitted with anonymous collectors."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"This anonymous collection LOOP clause is not permitted with aggregate "
+"booleans."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern "
+"expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP keyword or LOOP type keyword expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S doesn't match variable pattern ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Duplicated LOOP iteration variable ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Duplicated variable ~S in LOOP parallel binding."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Bad variable ~S somewhere in LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Variable ~S has already been used"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Invalid LOOP variable passed in: ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where keyword expected getting LOOP clause after ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S does not introduce a LOOP clause that can follow ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an invalid name for your LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "The NAMED ~S clause occurs too late."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Value accumulation recipient name, ~S, is not a symbol."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Variable ~S cannot be used in INTO clause"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Incompatible kinds of LOOP value accumulation specified for collecting~@\n"
+"		    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Unequal datatypes specified in different LOOP value accumulations~@\n"
+"		   into ~S: ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Iteration in LOOP follows body code."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in FOR or AS clause in LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Use of QUOTE around stepping function in LOOP will be left verbatim."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where ITS or EACH expected in LOOP iteration path syntax."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP iteration path name was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is not the name of a LOOP iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unused USING variables: ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Value passed back by LOOP iteration path function for path ~S has invalid "
+"length."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "A ~S prepositional phrase occurs multiply for some LOOP clause."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Preposition ~S used when some other preposition has subsumed it."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"The variable substitution for ~S occurs twice in a USING phrase,~@\n"
+"		        with ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~S invalid preposition in sequencing or sequence path.~@\n"
+"	       Invalid prepositions specified in iteration path descriptor or "
+"something?"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Conflicting stepping directions in LOOP sequencing path"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN phrase in sequence path"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Don't know where to start stepping."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Too many prepositions!"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN in ~S iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unknown preposition ~S"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring is not valid for package symbol iteration."
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid "endian-swap ~a is illegal for element-type of vector ~a"
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Read from Stream into Vector.  The Start and End indices of Vector\n"
+"  is in octets, and must be an multiple of the octets per element of\n"
+"  the vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid "Wrong vector type ~a for read-vector on stream ~a."
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Write Vector to Stream.  The Start and End indices of Vector is in\n"
+"  octets, and must be an multiple of the octets per element of the\n"
+"  vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not create temporary file ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Not enough memory left."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the ELF magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Return the `osabi' field in the padding of the ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Given a file type number, determine whether the file is executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the mach-o magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Loading object file...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not open ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not an ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not a ~A executable, it's a ~A executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Parse symbol table file created by load-foreign script.  Modified\n"
+"to skip undefined symbols which don't have an address."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Parsing symbol table...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load-foreign loads a list of C object files into a running Lisp.  The files\n"
+"  argument should be a single file or a list of files.  The files may be\n"
+"  specified as namestrings or as pathnames.  The libraries argument should "
+"be a\n"
+"  list of library files as would be specified to ld.  They will be searched "
+"in\n"
+"  the order given.  The default is just \"-lc\", i.e., the C library.  The\n"
+"  base-file argument is used to specify a file to use as the starting place "
+"for\n"
+"  defined symbols.  The default is the C start up code for Lisp.  The env\n"
+"  argument is the Unix environment variable definitions for the invocation "
+"of\n"
+"  the linker.  The default is the environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running library:load-foreign.csh...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Object file is wrong format, so can't load-foreign:~\n"
+"		  ~%  ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Object file is not relocatable, so can't load-foreign:~\n"
+"		  ~%  ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run library:load-foreign.csh"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "library:load-foreign.csh failed:~%~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Done.~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Lazy function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Immediate function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Mask of binding time value"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"If set the symbols of the loaded object and its dependencies are\n"
+"   made visible as if the object were linked directly into the program"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open global symbol table: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open object ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Couldn't open library ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Reloaded library ~S~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Enter new library path: "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Trying as object file ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A failed:~%~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "AList of socket kinds and protocol values."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Invalid kind (~S) for internet domain sockets."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a host-entry for the given host. The host may be an address\n"
+"  string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error creating socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to path ~a: ~a"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error listening to socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error accepting a connection: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "bind Socket to (local) Host and Port"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "The host may be an address string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A:~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Get an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Set an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~S setting socket option on socket ~D."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error closing socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Return the peer host address and port in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting peer host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting socket host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Ignore it"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error recving oob data on ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "No oob handler defined for ~S on ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Got a SIGURG, but couldn't find any out-of-band data."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove any handlers for CHAR on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove all handlers for FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error sending ~S OOB to across ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix recvfrom call.  Returns three values:\n"
+"bytecount, source address as integer, and source port.  bytecount\n"
+"can of course be negative, to indicate faults."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "A packaging of the unix sendto call.  Return value like sendto"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix shutdown call.  An error is signaled if shutdown "
+"fails."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error on shutdown of socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a network stream.  HOST may be an address string or an integer\n"
+"IP address."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host format: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection to ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection from ~D.~D.~D.~D:~D"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "The wire the form we are currently evaluating came across."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this host."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Hash table mapping local objects to the corresponding remote id."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Hash table mapping remote id's to the curresponding local object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Next available id for remote objects."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "There is a problem with ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Received EOF on ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Error ~A ~A: ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Returns T iff the given remote object is defined locally."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Returns T iff the two objects refer to the same (eq) object in the same\n"
+"  process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Return the associated value for the given remote object. It is an error if\n"
+"  the remote object was not created in this process or if\n"
+"  FORGET-REMOTE-TRANSLATION has been called on this remote object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "~S is defined is a different process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Use the value of NIL"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Convert the given local object to a remote object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Forget the translation from the given local to the corresponding remote\n"
+"object. Passing that remote object to remote-object-value will new return "
+"NIL."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Return T iff anything is in the input buffer or available on the socket."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "listening to"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Read data off the socket, filling the input buffer. The buffer is cleared\n"
+"first. If fill-input-buffer returns, it is guarenteed that there will be at\n"
+"least one byte in the input buffer. If EOF was reached, as wire-eof error\n"
+"is signaled."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "reading"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Return the next byte from the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Read a number off the wire. Numbers are 4 bytes in network order.\n"
+"The optional argument controls weather or not the number should be considere"
+"d\n"
+"signed (defaults to T)."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
+"   return it."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Reads a string from the wire. The first four bytes spec the size."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Reads the next object from the wire and returns it."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Attempt to read symbol, ~A, of wire into non-existent ~\n"
+"		       package, ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "writing"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Not everything wrote."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Send any info still in the output buffer down the wire and clear it. "
+"Nothing\n"
+"harmfull will happen if called when the output buffer is empty."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Output the given (8-bit) byte on the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Output the given (32-bit) number on the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n"
+"then output the bytes."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given object on the given wire. If cache-it is T, enter this\n"
+"object in the cache for future reference."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Error: Cannot output objects of type ~s across a wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Send the function and args down the wire as a funcall."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "AList of wire . remote-wait structs"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Evaluates the given forms remotly. No values are returned, as the remote\n"
+"evaluation is asyncronus."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Bind VARS to the multiple values of FORM (which is executed remotely). The\n"
+"forms in BODY are only executed if the remote function returned (as apposed\n"
+"to aborting due to a throw)."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Remote server unwound"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Execute the single form remotly. The value of the form is returned.\n"
+"  The optional form on-server-unwind is only evaluated if the server "
+"unwinds\n"
+"  instead of returning."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Create a request server on the given port.  Whenever anyone connects to it,\n"
+"   call the given function with the newly created wire and the address of "
+"the\n"
+"   connector.  If the function returns NIL, the connection is destroyed;\n"
+"   otherwise, it is accepted.  This returns a manifestation of the server "
+"that\n"
+"   DESTROY-REQUEST-SERVER accepts to kill the request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Quit accepting connections to the given request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Connect to a remote request server addressed with the given host and port\n"
+"   pair.  This returns the created wire."
+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"
+"   options according to ANSI spec. MUST be NIL to compile CMUCL & PCL"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Allocate a new instance with LENGTH data slots."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Given an instance, return its length."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Class not yet defined or was undefined: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Class is not a structure class: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n"
+"   Define the structure type Name.  Instances are created by MAKE-<name>, "
+"which\n"
+"   takes keyword arguments allowing initial slot values to the specified.\n"
+"   A SETF'able function <name>-<slot> is defined for each slot to read&write"
+"\n"
+"   slot values.  <name>-p is a type predicate.\n"
+"\n"
+"   Popular DEFSTRUCT options (see manual for others):\n"
+"\n"
+"   (:CONSTRUCTOR Name)\n"
+"   (:PREDICATE Name)\n"
+"       Specify an alternate name for the constructor or predicate.\n"
+"\n"
+"   (:CONSTRUCTOR Name Lambda-List)\n"
+"       Explicitly specify the name and arguments to create a BOA constructor"
+"\n"
+"       (which is more efficient when keyword syntax isn't necessary.)\n"
+"\n"
+"   (:INCLUDE Supertype Slot-Spec*)\n"
+"       Make this type a subtype of the structure type Supertype.  The "
+"optional\n"
+"       Slot-Specs override inherited slot options.\n"
+"\n"
+"   Slot options:\n"
+"\n"
+"   :TYPE Type-Spec\n"
+"       Asserts that the value of this slot is always of the specified type.\n"
+"\n"
+"   :READ-ONLY {T | NIL}\n"
+"       If true, no setter function is defined for this slot."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "defining structure ~A"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Disable package's definition lock then continue"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Defstruct already names a declaration: ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Can't have more than one :INCLUDE option."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "~S is a bad :TYPE for Defstruct."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "The Defstruct option :NAMED takes no arguments."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Unknown DEFSTRUCT option~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Unrecognized DEFSTRUCT option: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Can't specify :OFFSET unless :TYPE is specified."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :PRINT-FUNCTION with :TYPE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Keyword slot name indicates probable syntax ~\n"
+"		      error in DEFSTRUCT -- ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Duplicate slot name ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Slot ~S must be read-only in subtype ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ":TYPE option mismatch between structures ~S and ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ":TYPE'd defstruct ~S not found for inclusion."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"~@<Non-overwritten accessor ~S does not access ~\n"
+"                        slot with name ~S (accessing an inherited slot ~\n"
+"                        instead).~:@>"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Obsolete structure accessor function called."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for accessor ~S is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for setter ~S is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "New-Value for setter ~S is not a ~S:~% ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for copier is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Shouldn't happen!  Some strange thing in LAYOUT-INFO:~\n"
+"		    ~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Incompatibly redefining slots of structure class ~S~@\n"
+"	  Make sure any uses of affected accessors are recompiled:~@\n"
+"	  ~@[  These slots were moved to new positions:~%    ~S~%~]~\n"
+"	  ~@[  These slots have new incompatible types:~%    ~S~%~]~\n"
+"	  ~@[  These slots were deleted:~%    ~S~%~]"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Redefining class ~S incompatibly with the current ~\n"
+"		definition."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Previously loaded ~S accessors will no longer work."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"	       I hope you know what you're doing..."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Removing old subclasses of ~S:~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Return a copy of Structure with the same (EQL) slot values."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Copying an obsolete structure:~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structures of type ~S cannot be dumped as constants."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "A list of tests that do argument counting at expansion time."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that are done to make lambda-list parsing possible."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that the user has explicitly supplied."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Unsupplied optional and keyword arguments get this value defaultly."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Returns as multiple-values a parsed body, any local-declarations that\n"
+"   should be made where this body is inserted, and a doc-string if there is\n"
+"   one."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&Whole must appear first in ~S lambda-list."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&environment not valid with ~S."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&environment only valid at top level of lambda-list."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Invalid ~a"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Ignore extra noise."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"More than variable, initform, and suppliedp ~\n"
+"			    in &optional binding - ~S"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Non-symbol in lambda-list - ~S."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Illegal optional variable name: ~S"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A in ~S:~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A ~S:~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Invalid number of elements in:~%  ~:S~%~\n"
+"	     to satisfy lambda-list:~%  ~:S~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected at least ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected exactly ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected between ~D and ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ", but got ~D."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info class."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info type."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Define-Info-Class Class\n"
+"  Define a new class of global information."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Out of INFO type numbers!"
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Define-Info-Type Class Type default Type-Spec\n"
+"  Define a new type of global information for Class.  Type is the symbol "
+"name\n"
+"  of the type, Default is the value for that type when it hasn't been set, "
+"and\n"
+"  Type-Spec is a type-specifier which values of the type must satisfy.  The\n"
+"  default expression is evaluated each time the information is needed, with\n"
+"  Name bound to the name for which the information is being looked up.  If "
+"the\n"
+"  default evaluates to something with the second value true, then the "
+"second\n"
+"  value of Info will also be true."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Redefine it."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Changing type number for ~A ~A."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Go for it."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Reusing type number for ~A ~A."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return the information of the specified Type and Class for Name.\n"
+"   The second value is true if there is any such information recorded.  If\n"
+"   there is no information, the first value is the default and the second "
+"value\n"
+"   is NIL."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Set the global information for Name."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"DO-INFO (Env &Key Name Class Type Value) Form*\n"
+"  Iterate over all the values stored in the Info-Env Env.  Name is bound to\n"
+"  the entry's name, Class and Type are bound to the class and type\n"
+"  (represented as strings), and Value is bound to the entry's value."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return a new compact info environment that holds the same information as\n"
+"  Env."
+msgstr ""
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "No info environment?"
+msgstr ""
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "Cannot modify this environment: ~S."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "0 is not a legal INFO name."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Clear the information of the specified Type and Class for Name in the\n"
+"  current environment, allowing any inherited info to become visible.  We\n"
+"  return true if there was any info."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"This function is to parse the declarations and doc-string out of the body "
+"of\n"
+"  a defun-like form.  Body is the list of stuff which is to be parsed.\n"
+"  Environment is ignored.  If Doc-String-Allowed is true, then a doc string\n"
+"  will be parsed out of the body and returned.  If it is false then a "
+"string\n"
+"  will terminate the search for declarations.  Three values are returned: "
+"the\n"
+"  tail of Body after the declarations and doc strings, a list of declare "
+"forms,\n"
+"  and the doc-string, or NIL if none."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "defining macro ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Disable the package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Define a compiler-macro for NAME."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:code/macros.lisp
+msgid "Symbol macro name is not a symbol: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared special: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared constant: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Syntax like DEFMACRO, but defines a new type."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Type name not a symbol."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "defining type ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Disable package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Deftype already names a declaration: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal to redefine standard type: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Redefining class ~S to be a DEFTYPE."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Setf expander for ~S cannot be called with ~S args."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body\n"
+"  must be a form that returns the five magical values."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete, use define-setf-expander."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Defining setf macro for destruct slot accessor; redefining as ~\n"
+"	        a normal function:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Defining setf macro for ~S, but ~S is fbound."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global constants at top level.  The DEFCONSTANT says that the\n"
+"  value is constant and may be compiled into code.  If the variable already "
+"has\n"
+"  a value, and this is not equal to the init, an error is signalled.  The "
+"third\n"
+"  argument is an optional documentation string for the variable."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Go ahead and change the value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Constant ~S being redefined."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global variables at top level.  Declares the variable\n"
+"  SPECIAL and, optionally, initializes it.  If the variable already has a\n"
+"  value, the old value is not clobbered.  The third argument is an optional\n"
+"  documentation string for the variable."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Defines a parameter that is not normally changed by the program,\n"
+"  but that may be changed without causing an error.  Declares the\n"
+"  variable special and sets its value to VAL.  The third argument is\n"
+"  an optional documentation string for the parameter."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is non-null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Cond clause is not a list: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Varlist is not a list of symbols: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Evaluates FORM and returns the Nth value (zero based).  This involves no\n"
+"  consing when N is a trivial constant integer."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Returns five values needed by the SETF machinery: a list of temporary\n"
+"   variables, a list of values with which to fill them, a list of temporarie"
+"s\n"
+"   for the new values, the setting function, and the accessing function."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"GET-SETF-METHOD used for a form with multiple store ~\n"
+"	      variables:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Associates a SETF update function or macro with the specified access\n"
+"  function or macro.  The format is complex.  See the manual for\n"
+"  details."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Ill-formed DEFSETF for ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes pairs of arguments like SETQ.  The first is a place and the second\n"
+"  is the value that is supposed to go into that place.  Returns the last\n"
+"  value.  The place argument may be any of the access forms for which SETF\n"
+"  knows a corresponding setting form."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of args to SETF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"This is to SETF as PSETQ is to SETQ.  Args are alternating place\n"
+"  expressions and values to go into those places.  All of the subforms and\n"
+"  values are determined, left to right, and only then are the locations\n"
+"  updated.  Returns NIL."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of args to PSETF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"One or more SETF-style place expressions, followed by a single\n"
+"   value expression.  Evaluates all of the expressions in turn, then\n"
+"   assigns the value of each expression to the place on its left,\n"
+"   returning the value of the leftmost."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes any number of SETF-style place expressions.  Evaluates all of the\n"
+"   expressions in turn, then assigns to each place the value of the form to\n"
+"   its right.  The rightmost form gets the value of the leftmost.\n"
+"   Returns NIL."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Creates a new read-modify-write macro like PUSH or INCF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Non-symbol &rest arg in definition of ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal stuff after &rest arg in Define-Modify-Macro."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S not allowed in Define-Modify-Macro lambda list."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal stuff in lambda list of Define-Modify-Macro."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  Conses the object onto\n"
+"  the list, returning the modified list.  OBJ is evaluated before PLACE."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  If the object is already\n"
+"  in the list, does nothing.  Else, conses the object onto the list.  "
+"Returns\n"
+"  NIL.  If there is a :TEST keyword, this is used for the comparison."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The argument is a location holding a list.  Pops one item off the front\n"
+"  of the list and returns it."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  incremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  decremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Place may be any place expression acceptable to SETF, and is expected\n"
+"  to hold a property list or ().  This list is destructively altered to\n"
+"  remove the property specified by the indicator.  Returns T if such a\n"
+"  property was present, NIL if not."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Setf of Apply is only defined for function args like #'symbol."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this\n"
+"  place with bits from the low-order end of the new value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this "
+"place\n"
+"  with bits from the corresponding position in the new value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Bad clause in ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "No default clause allowed in ~S: ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "T and OTHERWISE may not be used as key designators for ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Bad style to use T or OTHERWISE in ECASE or CCASE"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Supply a new value for ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value\n"
+"  of Keyform.  If a singleton key is T or Otherwise then the clause is\n"
+"  a default clause."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CCASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then a correctable error is\n"
+"  signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"ECASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then an error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"TYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform\n"
+"  and Type is true.  If a singleton key is T or Otherwise then the\n"
+"  clause is a default clause."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CTYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then a correctable error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"ETYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then an error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error if the value of test-form is nil.  Continuing from this\n"
+"   error using the CONTINUE restart will allow the user to alter the value "
+"of\n"
+"   some locations known to SETF, starting over with test-form.  Returns "
+"nil."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The assertion ~S failed."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Retry assertion"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid " with new value for ~{~S~^, ~}."
+msgid_plural " with new values for ~{~S~^, ~}."
+msgstr[0] ""
+
+#: target:code/macros.lisp
+msgid "The old value of ~S is ~S.~\n"
+"		  ~%Do you want to supply a new value? "
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~&Type a form to be evaluated:~%"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error of type type-error if the contents of place are not of the\n"
+"   specified type.  If an error is signaled, this can only return if\n"
+"   STORE-VALUE is invoked.  It will store into place and start over."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not ~A."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not of type ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Supply a new value of ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The file whose name is Filespec is opened using the Open-args and\n"
+"  bound to the variable Var. If the call to open is unsuccessful, the\n"
+"  forms are not evaluated.  The Forms are executed, and when they\n"
+"  terminate, normally or otherwise, the file is closed."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The form stream should evaluate to a stream.  VAR is bound\n"
+"   to the stream and the forms are evaluated as an implicit\n"
+"   progn.  The stream is closed upon exit."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Binds the Var to an input stream that returns characters from String and\n"
+"  executes the body.  See manual for details."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"If STRING is specified, it must be a string with a fill pointer;\n"
+"   the output is incrementally appended to the string (as if by use of\n"
+"   VECTOR-PUSH-EXTEND)."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized in parallel to the value of "
+"the\n"
+"  specified Init form.  On subsequent iterations, the Vars are assigned the\n"
+"  value of the Step form (if any) in paralell.  The Test is evaluated "
+"before\n"
+"  each evaluation of the body Forms.  When the Test is true, the Exit-Forms\n"
+"  are evaluated as a PROGN, with the result being the value of the DO.  A "
+"block\n"
+"  named NIL is established around the entire expansion, allowing RETURN to "
+"be\n"
+"  used as an laternate exit mechanism."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized sequentially (like LET*) to "
+"the\n"
+"  value of the specified Init form.  On subsequent iterations, the Vars are\n"
+"  sequentially assigned the value of the Step form (if any).  The Test is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO.  A block named NIL is established around the entire expansion,\n"
+"  allowing RETURN to be used as an laternate exit mechanism."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"PSETQ {var value}*\n"
+"   Set the variables to the values, like SETQ, except that assignments\n"
+"   happen in parallel, i.e. no assignments take place until all the\n"
+"   forms have been evaluated."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "variable ~S in PSETQ is not a SYMBOL"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Unknown declaration context: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Context declaration spec should have context and at ~\n"
+"	  least one DECLARE form:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"WITH-COMPILATION-UNIT ({Key Value}*) Form*\n"
+"  This form affects compilations that take place within its dynamic extent. "
+" It\n"
+"  is intended to be wrapped around the compilation of all files in the same\n"
+"  system.  These keywords are defined:\n"
+"    :OVERRIDE Boolean-Form\n"
+"        One of the effects of this form is to delay undefined warnings \n"
+"        until the end of the form, instead of giving them at the end of "
+"each\n"
+"        compilation.  If OVERRIDE is NIL (the default), then the outermost\n"
+"        WITH-COMPILATION-UNIT form grabs the undefined warnings.  Specifying"
+"\n"
+"        OVERRIDE true causes that form to grab any enclosed warnings, even "
+"if\n"
+"        it is enclosed by another WITH-COMPILATION-UNIT.\n"
+"    :OPTIMIZE Decl-Form\n"
+"        Decl-Form should evaluate to an OPTIMIZE declaration specifier.  "
+"This\n"
+"        declaration changes the `global' policy for compilations within the\n"
+"        body.\n"
+"    :OPTIMIZE-INTERFACE Decl-Form\n"
+"        Like OPTIMIZE, except that it specifies the value of the CMU "
+"extension\n"
+"        OPTIMIZE-INTERFACE policy (which controls argument type and syntax\n"
+"        checking.)\n"
+"    :CONTEXT-DECLARATIONS List-of-Context-Decls-Form\n"
+"        This is a CMU extension which allows compilation to be controlled\n"
+"        by pattern matching on the context in which a definition appears.  "
+"The\n"
+"        argument should evaluate to a list of lists of the form:\n"
+"            (Context-Spec Declare-Form+)\n"
+"        In the indicated context, the specified declare forms are inserted "
+"at\n"
+"        the head of each definition.  The declare forms for all contexts "
+"that\n"
+"	match are appended together, with earlier declarations getting\n"
+"	predecence over later ones.  A simple example:\n"
+"            :context-declarations\n"
+"            '((:external (declare (optimize (safety 2)))))\n"
+"        This will cause all functions that are named by external symbols to "
+"be\n"
+"        compiled with SAFETY 2.  The full syntax of context specs is:\n"
+"	:INTERNAL, :EXTERNAL\n"
+"	    True if the symbols is internal (external) in its home package.\n"
+"	:UNINTERNED\n"
+"	    True if the symbol has no home package.\n"
+"	:ANONYMOUS\n"
+"	    True if the function doesn't have any interesting name (not\n"
+"	    DEFMACRO, DEFUN, LABELS or FLET).\n"
+"	:MACRO, :FUNCTION\n"
+"	    :MACRO is a global (DEFMACRO) macro.  :FUNCTION is anything else.\n"
+"	:LOCAL, :GLOBAL\n"
+"	    :LOCAL is a LABELS or FLET.  :GLOBAL is anything else.\n"
+"	(:OR Context-Spec*)\n"
+"	    True in any specified context.\n"
+"	(:AND Context-Spec*)\n"
+"	    True only when all specs are true.\n"
+"	(:NOT Context-Spec)\n"
+"	    True when the spec is false.\n"
+"        (:MEMBER Name*)\n"
+"	    True when the name is one of these names (EQUAL test.)\n"
+"	(:MATCH Pattern*)\n"
+"	    True when any of the patterns is a substring of the name.  The name\n"
+"	    is wrapped with $'s, so $FOO matches names beginning with FOO,\n"
+"	    etc."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of key/value pairs: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Ignoring unknown option: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Policy Node Condition*\n"
+"  Test whether some conditions apply to the current compiler policy for "
+"Node.\n"
+"  Each condition is a predicate form which accesses the policy values by\n"
+"  referring to them as the variables SPEED, SPACE, SAFETY, CSPEED, BREVITY "
+"and\n"
+"  DEBUG.  The results of all the conditions are combined with AND and "
+"returned\n"
+"  as the result.\n"
+"\n"
+"  Node is a form which is evaluated to obtain the node which the policy is "
+"for.\n"
+"  If Node is NIL, then we use the current policy as defined by *default-cook"
+"ie*\n"
+"  and *current-cookie*.  This option is only well defined during IR1\n"
+"  conversion."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of special forms."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n"
+"                      [Doc-String] Form*\n"
+"  Define a function that converts a Special-Form or other magical thing "
+"into\n"
+"  IR1.  Lambda-List is a defmacro style lambda list.  Start-Var and Cont-Var"
+"\n"
+"  are bound to the start and result continuations for the resulting IR1.\n"
+"  This keyword is defined:\n"
+"      Kind\n"
+"          The function kind to associate with Name (default :special-form)."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp
+#: target:compiler/ir1tran.lisp target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Source-Transform Name Lambda-List Form*\n"
+"  Define a macro-like source-to-source transformation for the function "
+"Name.\n"
+"  A source transform may \"pass\" by returning a non-nil second value.  If "
+"the\n"
+"  transform passes, then the form is converted as a normal function call.  "
+"If\n"
+"  the supplied arguments are not compatible with the specified lambda-list,\n"
+"  then the transform automatically passes.\n"
+"  \n"
+"  Source-Transforms may only be defined for functions.  Source transformatio"
+"n\n"
+"  is not attempted if the function is declared Notinline.  Source transforms"
+"\n"
+"  should not examine their arguments.  If it matters how the function is "
+"used,\n"
+"  then Deftransform should be used to define an IR1 transformation.\n"
+"  \n"
+"  If the desirability of the transformation depends on the current Optimize\n"
+"  parameters, then the Policy macro should be used to determine when to "
+"pass."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Primitive-Translator Name Lambda-List Form*\n"
+"  Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n"
+"  code.  Lambda-List is a defmacro style lambda list."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n"
+"               Declaration* [Doc-String] Form*\n"
+"  Define an IR1 transformation for Name.  An IR1 transformation computes a\n"
+"  lambda that replaces the function variable reference for the call.  A\n"
+"  transform may pass (decide not to transform the call) by calling the Give-"
+"Up\n"
+"  function.  Lambda-List both determines how the current call is parsed and\n"
+"  specifies the Lambda-List for the resulting lambda.\n"
+"\n"
+"  We parse the call and bind each of the lambda-list variables to the\n"
+"  continuation which represents the value of the argument.  When parsing "
+"the\n"
+"  call, we ignore the defaults, and always bind the variables for unsupplied"
+"\n"
+"  arguments to NIL.  If a required argument is missing, an unknown keyword "
+"is\n"
+"  supplied, or an argument keyword is not a constant, then the transform\n"
+"  automatically passes.  The Declarations apply to the bindings made by\n"
+"  Deftransform at transformation time, rather than to the variables of the\n"
+"  resulting lambda.  Bound-but-not-referenced warnings are suppressed for "
+"the\n"
+"  lambda-list variables.  The Doc-String is used when printing efficiency "
+"notes\n"
+"  about the defined transform.\n"
+"\n"
+"  Normally, the body evaluates to a form which becomes the body of an\n"
+"  automatically constructed lambda.  We make Lambda-List the lambda-list "
+"for\n"
+"  the lambda, and automatically insert declarations of the argument and "
+"result\n"
+"  types.  If the second value of the body is non-null, then it is a list of\n"
+"  declarations which are to be inserted at the head of the lambda.  Automati"
+"c\n"
+"  lambda generation may be inhibited by explicitly returning a lambda from "
+"the\n"
+"  body.\n"
+"\n"
+"  The Arg-Types and Result-Type are used to create a function type which "
+"the\n"
+"  call must satisfy before transformation is attempted.  The function type\n"
+"  specifier is constructed by wrapping (FUNCTION ...) around these values, "
+"so\n"
+"  the lack of a restriction may be specified by omitting the argument or\n"
+"  supplying *.  The argument syntax specified in the Arg-Types need not be "
+"the\n"
+"  same as that in the Lambda-List, but the transform will never happen if\n"
+"  the syntaxes can't be satisfied simultaneously.  If there is an existing\n"
+"  transform for the same function that has the same type, then it is "
+"replaced\n"
+"  with the new definition.\n"
+"\n"
+"  These are the legal keyword options:\n"
+"    :Result - A variable which is bound to the result continuation.\n"
+"    :Node   - A variable which is bound to the combination node for the "
+"call.\n"
+"    :Policy - A form which is supplied to the Policy macro to determine "
+"whether\n"
+"              this transformation is appropriate.  If the result is false, "
+"then\n"
+"              the transform automatically passes.\n"
+"    :Eval-Name\n"
+"    	    - The name and argument/result types are actually forms to be\n"
+"              evaluated.  Useful for getting closures that transform "
+"similar\n"
+"              functions.\n"
+"    :Defun-Only\n"
+"            - Don't actually instantiate a transform, instead just DEFUN\n"
+"              Name with the specified transform definition function.  This "
+"may\n"
+"              be later instantiated with %Deftransform.\n"
+"    :Important\n"
+"            - If supplied and non-NIL, note this transform as ``important,''"
+"\n"
+"              which means effeciency notes will be generated when this\n"
+"              transform fails even if brevity=speed (but not if brevity>spee"
+"d)\n"
+"    :When {:Native | :Byte | :Both}\n"
+"            - Indicates whether this transform applies to native code,\n"
+"              byte-code or both (default :native.)"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Can't specify both DEFUN-ONLY and EVAL-NAME."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n"
+"  Declare the function Name to be a known function.  We construct a type\n"
+"  specifier for the function by wrapping (FUNCTION ...) around the Arg-Types"
+"\n"
+"  and Result-Type.  Attributes is a an unevaluated list of the boolean\n"
+"  attributes that the function has.  These attributes are meaningful here:\n"
+"      call\n"
+"         May call functions that are passed as arguments.  In order to "
+"determine\n"
+"         what other effects are present, we must find the effects of all "
+"arguments\n"
+"         that may be functions.\n"
+"        \n"
+"      unsafe\n"
+"         May incorporate arguments in the result or somehow pass them "
+"upward.\n"
+"        \n"
+"      unwind\n"
+"         May fail to return during correct execution.  Errors are O.K.\n"
+"        \n"
+"      any\n"
+"         The (default) worst case.  Includes all the other bad things, plus "
+"any\n"
+"         other possible bad thing.\n"
+"        \n"
+"      foldable\n"
+"         May be constant-folded.  The function has no side effects, but may "
+"be\n"
+"         affected by side effects on the arguments.  e.g. SVREF, MAPC.\n"
+"        \n"
+"      flushable\n"
+"         May be eliminated if value is unused.  The function has no side "
+"effects\n"
+"         except possibly CONS.  If a function is defined to signal errors, "
+"then\n"
+"         it is not flushable even if it is movable or foldable.\n"
+"        \n"
+"      movable\n"
+"         May be moved with impunity.  Has no side effects except possibly "
+"CONS,\n"
+"         and is affected only by its arguments.\n"
+"\n"
+"      predicate\n"
+"          A true predicate likely to be open-coded.  This is a hint to IR1\n"
+"	  conversion that it should ensure calls always appear as an IF test.\n"
+"	  Not usually specified to Defknown, since this is implementation\n"
+"	  dependent, and is usually automatically set by the Define-VOP\n"
+"	  :Conditional option.\n"
+"\n"
+"  Name may also be a list of names, in which case the same information is "
+"given\n"
+"  to all the names.  The keywords specify the initial values for various\n"
+"  optimizers that the function might have."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Function cannot have both good and bad attributes: ~S"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n"
+"                Declaration* Form*\n"
+"  Define some Kind of optimizer for the named Function.  Function must be a\n"
+"  known function.  Lambda-List is used to parse the arguments to the\n"
+"  combination as in Deftransform.  If the argument syntax is invalid or "
+"there\n"
+"  are non-constant keys, then we simply return NIL.\n"
+"\n"
+"  The function is DEFUN'ed as Function-Kind-OPTIMIZER.  Possible kinds are\n"
+"  DERIVE-TYPE, OPTIMIZER, LTN-ANNOTATE and IR2-CONVERT.  If a symbol is\n"
+"  specified instead of a (Function Kind) list, then we just do a DEFUN with "
+"the\n"
+"  symbol as its name, and don't do anything with the definition.  This is\n"
+"  useful for creating optimizers to be passed by name to DEFKNOWN.\n"
+"\n"
+"  If supplied, Node-Var is bound to the combination node being optimized.  "
+"If\n"
+"  additional Vars are supplied, then they are used as the rest of the "
+"optimizer\n"
+"  function's lambda-list.  LTN-ANNOTATE methods are passed an additional "
+"POLICY\n"
+"  argument, and IR2-CONVERT methods are passed an additional IR2-BLOCK\n"
+"  argument."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n"
+"  Iterate over the blocks in a component, binding Block-Var to each block "
+"in\n"
+"  turn.  The value of Ends determines whether to iterate over dummy head "
+"and\n"
+"  tail blocks:\n"
+"    NIL   -- Skip Head and Tail (the default)\n"
+"    :Head -- Do head but skip tail\n"
+"    :Tail -- Do tail but skip head\n"
+"    :Both -- Do both head and tail\n"
+"\n"
+"  If supplied, Result-Form is the value to return."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Losing Ends value: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}"
+"* {Form}*\n"
+"  Like Do-Blocks, only iterate over the blocks in reverse order."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n"
+"  Iterate over the uses of Continuation, binding Node to each one succesivel"
+"y."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n"
+"  Iterate over the nodes in Block, binding Node-Var to the each node and\n"
+"  Cont-Var to the node's Cont.  The only keyword option is Restart-P, which\n"
+"  causes iteration to be restarted when a node is deleted out from under us "
+"(if\n"
+"  not supplied, this is an error.)"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n"
+"  Like Do-Nodes, only iterates in reverse order."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"With-IR1-Environment Node Form*\n"
+"  Bind the IR1 context variables so that IR1 conversion can be done after "
+"the\n"
+"  main conversion pass has finished."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"LEXENV-FIND Name Slot {Key Value}*\n"
+"  Look up Name in the lexical environment namespace designated by Slot,\n"
+"  returning the <value, T>, or <NIL, NIL> if no entry.  The :TEST keyword\n"
+"  may be used to determine the name equality predicate."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"If true, defprinter print functions print each slot on a separate line."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defprinter Name Slot-Desc*\n"
+"  Define some kind of reasonable defstruct structure-print function.  Name\n"
+"  is the name of the structure.  We define a function %PRINT-name which\n"
+"  prints the slots in the structure in the way described by the Slot-Descs.\n"
+"  Each Slot-Desc can be a slot name, indicating that the slot should simply\n"
+"  be printed.  A Slot-Desc may also be a list of a slot name and other "
+"stuff.\n"
+"  The other stuff is composed of keywords followed by expressions.  The\n"
+"  expressions are evaluated with the variable which is the slot name bound\n"
+"  to the value of the slot.  These keywords are defined:\n"
+"  \n"
+"  :PRIN1    Print the value of the expression instead of the slot value.\n"
+"  :PRINC    Like :PRIN1, only princ the value\n"
+"  :TEST     Only print something if the test is true.\n"
+"  \n"
+"  If no printing thing is specified then the slot value is printed as "
+"PRIN1.\n"
+"  \n"
+"  The structure being printed is bound to Structure and the stream is bound "
+"to\n"
+"  Stream."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Losing Defprinter option: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Unknown attribute name: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Boolean-Attribute Name Attribute-Name*\n"
+"  Define a new class of boolean attributes, with the attributes havin the\n"
+"  specified Attribute-Names.  Name is the name of the class, which is used "
+"to\n"
+"  generate some macros to manipulate sets of the attributes: \n"
+"\n"
+"    NAME-attributep attributes attribute-name*\n"
+"      Return true if one of the named attributes is present, false otherwise"
+".\n"
+"      When set with SETF, updates the place Attributes setting or clearing "
+"the\n"
+"      specified attributes.\n"
+"\n"
+"    NAME-attributes attribute-name*\n"
+"      Return a set of the named attributes."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute test function.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute setter.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute creation function.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the union of all the sets of boolean attributes which are its\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the intersection of all the sets of boolean attributes which are "
+"its\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns true if the attributes present in Attr1 are indentical to those in\n"
+"  Attr2."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "~S is not the name of an event."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Return the number of times that Event has happened."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the function that is called when Event happens.  If this is null,\n"
+"  there is no action.  The function is passed the node to which the event\n"
+"  happened, or NIL if there is no relevant node.  This may be set with "
+"SETF."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the non-negative integer which represents the level of significance\n"
+"  of the event Name.  This is used to determine whether to print a message "
+"when\n"
+"  the event happens.  This may be set with SETF."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defevent Name Description\n"
+"  Define a new kind of event.  Name is a symbol which names the event and\n"
+"  Description is a string which describes the event.  Level (default 0) is "
+"the\n"
+"  level of significance associated with this event; it is used to determine\n"
+"  whether to print a Note when the event happens."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"This variable is a non-negative integer specifying the lowest level of\n"
+"  event that will print a Note when it occurs."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Event Name Node\n"
+"  Note that the event with the specified Name has happened.  Node is "
+"evaluated\n"
+"  to determine the node to which the event happened."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Print a listing of events and their counts, sorted by the count.  Events\n"
+"  that happened fewer than Min-Count times will not be printed.  Stream is "
+"the\n"
+"  stream to write to."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Find Element in a null-terminated List linked by the accessor function\n"
+"  Next.  Key, Test and Test-Not are the same as for generic sequence\n"
+"  functions."
+msgstr ""
+
+#: target:compiler/debug.lisp target:compiler/pack.lisp
+#: target:compiler/represent.lisp target:compiler/copyprop.lisp
+#: target:compiler/life.lisp target:compiler/macros.lisp
+msgid "Silly to supply both :Test and :Test-Not."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the position of Element (or NIL if absent) in a null-terminated List\n"
+"  linked by the accessor function Next.  Key, Test and Test-Not are the "
+"same as\n"
+"  for generic sequence functions."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Map Function over the elements in a null-terminated List linked by the\n"
+"  accessor function Next, returning a list of the results."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deletef-In Next Place Item\n"
+"  Delete Item from a null-terminated list linked by the accessor function "
+"Next\n"
+"  that is stored in Place.  Item must appear exactly once in the list."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Push Item onto a list linked by the accessor function Next that is stored "
+"in\n"
+"  Place."
+msgstr ""
+
+#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp
+#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp
+#: target:compiler/macros.lisp
+msgid "Shouldn't happen?"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Redefining modular version ~S of ~S for width ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Lambda list keyword ~S is not supported for ~\n"
+"              modular function lambda lists."
+msgstr ""
+
+#: target:compiler/generic/vm-macs.lisp
+msgid "No more slots can follow a :rest-p slot."
+msgstr ""
+
+#: target:compiler/generic/vm-macs.lisp
+msgid "Number of slots used by each ~S~\n"
+"				  ~@[~* including the header~]."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Machine specific support routine ~S ~\n"
+"				  undefined for ~S"
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Unknown VM support routine: ~A"
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend for the machine we are running on. Do not change this."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend we are attempting to compile."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend we are using to compile with."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Compute the *FEATURES* list to use with BACKEND."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits used in the header word of a data block for typeing."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the type from a header word."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-positive-fixnum in the target architecture."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-negative-fixnum in the target architecture."
+msgstr ""
+
+#: target:compiler/generic/interr.lisp
+msgid "Unknown internal error: ~S"
+msgstr ""
+
+#: target:compiler/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
+msgstr ""
+
+#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp
+#: target:compiler/life.lisp target:compiler/bit-util.lisp
+msgid ""
+"Argument and/or result bit arrays not the same length:~\n"
+"			 ~%  ~S~%  ~S  ~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants exactly ~R."
+msgid_plural "Function called with ~R arguments, but wants exactly ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants at least ~R."
+msgid_plural "Function called with ~R arguments, but wants at least ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants at most ~R."
+msgid_plural "Function called with ~R arguments, but wants at most ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the ~:R argument is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument never returns a value."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Can't tell whether the ~:R argument is a ~\n"
+"		             constant ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument (in keyword position) is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The value of ~S is not a constant"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~S is not a known argument keyword."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"	      the keyword portion."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument, but wants at least ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at least ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument, but wants at most ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at most ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether previous ~? argument type ~S is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with unknown argument keyword ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition's declared type for variable ~A:~%  ~S~@\n"
+"		   conflicts with this type from ~A:~%  ~S"
+msgstr ""
+
+#.  Translate FIXED above appropriately.
+#: target:compiler/ctype.lisp
+msgid "fixed"
+msgstr ""
+
+#.  Translate OPTIONAL above appropriately.
+#: target:compiler/ctype.lisp
+msgid "optional"
+msgstr ""
+
+#. updated to allow better translations.
+#: target:compiler/ctype.lisp
+msgid "Definition ~:[doesn't have~;has~] ~A, but ~\n"
+"		~A ~:[doesn't~;does~]."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "keyword args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Defining a ~S keyword not present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition lacks the ~S keyword present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R ~A arg, but ~A has ~R."
+msgid_plural "Definition has ~R ~A args, but ~A has ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has no ~A, but the ~A did."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "optional args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest arg"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R arg, but the ~A has ~R."
+msgid_plural "Definition has ~R args, but the ~A has ~R."
+msgstr[0] ""
+
+#: target:compiler/ctype.lisp
+msgid "previous declaration"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"The result type from ~A:~%  ~S~@\n"
+"	   conflicts with the definition's result type assertion:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Assignment to argument: ~S~%  ~\n"
+"			       prevents use of assertion from function ~\n"
+"			       type ~A:~%  ~S~%"
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined template."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage class."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage base."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+msgid "~S is not a defined primitive type."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-THIS-LOCATION VOP Kind\n"
+"  Note that the current code location is an interesting (to the debugger)\n"
+"  location of the specified Kind.  VOP is the VOP responsible for this "
+"code.\n"
+"  This VOP must specify some non-null :SAVE-P value (perhaps :COMPUTE-ONLY) "
+"so\n"
+"  that the live set is computed."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-NEXT-INSTRUCTION VOP Kind\n"
+"   Similar to NOTE-THIS-LOCATION, except the use the location of the next\n"
+"   instruction for the code location, wherever the scheduler decided to put\n"
+"   it."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Base Name Kind {Key Value}*\n"
+"  Define a storage base having the specified Name.  Kind may be :Finite,\n"
+"  :Unbounded or :Non-Packed.  The following keywords are legal:\n"
+"\n"
+"  :Size <Size>\n"
+"      Specify the number of locations in a :Finite SB or the initial size "
+"of a\n"
+"      :Unbounded SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size specification meaningless in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size not specified in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Class Name Number Storage-Base {Key Value}*\n"
+"  Define a storage class Name that uses the named Storage-Base.  Number is "
+"a\n"
+"  small, non-negative integer that is used as an alias.  The following\n"
+"  keywords are defined:\n"
+"\n"
+"  :Element-Size Size\n"
+"      The size of objects in this SC in whatever units the SB uses.  This\n"
+"      defaults to 1.\n"
+"\n"
+"  :Alignment Size\n"
+"      The alignment restrictions for this SC.  TNs will only be allocated "
+"at\n"
+"      offsets that are an even multiple of this number.  Defaults to 1.\n"
+"\n"
+"  :Locations (Location*)\n"
+"      If the SB is :Finite, then this is a list of the offsets within the "
+"SB\n"
+"      that are in this SC.\n"
+"\n"
+"  :Reserve-Locations (Location*)\n"
+"      A subset of the Locations that the register allocator should try to\n"
+"      reserve for operand loading (instead of to hold variable values.)\n"
+"\n"
+"  :Save-P {T | NIL}\n"
+"      If T, then values stored in this SC must be saved in one of the\n"
+"      non-save-p :Alternate-SCs across calls.\n"
+"\n"
+"  :Alternate-SCs (SC*)\n"
+"      Indicates other SCs that can be used to hold values from this SC "
+"across\n"
+"      calls or when storage in this SC is exhausted.  The SCs should be\n"
+"      specified in order of decreasing \"goodness\".  There must be at least\n"
+"      one SC in an unbounded SB, unless this SC is only used for restricted "
+"or\n"
+"      wired TNs.\n"
+"\n"
+"  :Constant-SCs (SC*)\n"
+"      A list of the names of all the constant SCs that can be loaded into "
+"this\n"
+"      SC by a move function."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Alignment is not a power of two: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "SC element ~D out of bounds for ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ":Locations is meaningless in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Reserve-Locations not a subset of Locations."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Meaningless to specify alternate or constant SCs in a ~S SB."
+msgstr ""
+
+#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n"
+"  Define the function Name and note it as the function used for moving "
+"operands\n"
+"  from the From-SCs to the To-SCs.  Cost is the cost of this move "
+"operation.\n"
+"  The function is called with three arguments: the VOP (for context), and "
+"the\n"
+"  source and destination TNs.  An ASSEMBLE form is wrapped around the body.\n"
+"  All uses of DEFINE-MOVE-FUNCTION should be compiled before any uses of\n"
+"  DEFINE-VOP."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed SCs spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n"
+"  Make Name be the VOP used to move values in the specified From-SCs to the\n"
+"  representation of the To-SCs.  If kind is :Move-Argument, then the VOP "
+"takes\n"
+"  an extra argument, which is the frame pointer of the frame to move into."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Def-Primitive-Type Name (SC*) {Key Value}*\n"
+"   Define a primitive type Name.  Each SC specifies a Storage Class that "
+"values\n"
+"   of this type may be allocated in.  The following keyword options are\n"
+"   defined:\n"
+"  \n"
+"  :Type\n"
+"      The type descriptor for the Lisp type that is equivalent to this type\n"
+"      (defaults to Name.)"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DEF-PRIMITIVE-TYPE-ALIAS Name Result\n"
+"  Define name to be an alias for Result in VOP operand type restrictions."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Primitive-Type-VOP Vop (Kind*) Type*\n"
+"  Annotate all the specified primitive Types with the named VOP under each "
+"of\n"
+"  the specified kinds:\n"
+"\n"
+"  :Check\n"
+"      A one argument one result VOP that moves the argument to the result,\n"
+"      checking that the value is of this type in the process."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Operand ~S isn't one of these kinds: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not an operand to ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not the name of a defined VOP."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument missing: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Extra junk at end of ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument is not a ~S: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed time specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown phase in time specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot target a ~S operand: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to ~:[save~;load~] SC ~S~\n"
+"			  ~:[to~;from~] from SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't tell whether to ~:[save~;load~] with ~S~@\n"
+"				 or ~S when operand is in SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n"
+"	          mentioned in the restriction for operand ~S."
+msgstr ""
+
+#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"	           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed operand specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "More operand isn't last: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :FROM in a result: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :TO in an argument: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown keyword in operand specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :TARGET in a :MORE operand."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :LOAD-IF in a :MORE operand."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed temporary spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed options list: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Odd number of arguments in keyword options: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary spec allocates no temps:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad temporary name: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specify exactly one SC for a temporary."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown temporary option: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary lifetime doesn't begin before it ends: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specifiy :SC for all temporaries: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed option specification: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown option specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to move ~:[from~;to~] SC ~\n"
+"	              ~S~%~:[to~;from~] alternate or constant SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad thing to be a operand type: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad PRIMITIVE-TYPE name in ~S: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't include primitive-type ~\n"
+"				             alias ~S in a :OR restriction: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't :CONSTANT for a result."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad :CONSTANT argument type spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"In the ~A ~:[result~;argument~] to VOP ~S,~@\n"
+"	            none of the SCs allowed by the operand type ~S can ~\n"
+"		    directly be loaded~@\n"
+"		    into any of the restriction's SCs:~%  ~S~:[~;~@\n"
+"		    [* type operand must allow T's SCs.]~]"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"~:[Result~;Argument~] ~A to VOP ~S~@\n"
+"	         has SC restriction ~S which is ~\n"
+"		 not allowed by the operand type:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't use :CONSTANT on VOP more args."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D ~:[result~;argument~] type: ~S."
+msgid_plural "Expected ~D ~:[result~;argument~] types: ~S."
+msgstr[0] ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D variant values: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-VOP (Name [Inherits]) Spec*\n"
+"  Define the symbol Name to be a Virtual OPeration in the compiler.  If\n"
+"  specified, Inherits is the name of a VOP that we default unspecified\n"
+"  information from.  Each Spec is a list beginning with a keyword indicating"
+"\n"
+"  the interpretation of the other forms in the Spec:\n"
+"  \n"
+"  :Args {(Name {Key Value}*)}*\n"
+"  :Results {(Name {Key Value}*)}*\n"
+"      The Args and Results are specifications of the operand TNs passed to "
+"the\n"
+"      VOP.  If there is an inherited VOP, any unspecified options are "
+"defaulted\n"
+"      from the inherited argument (or result) of the same name.  The "
+"following\n"
+"      operand options are defined: \n"
+"\n"
+"      :SCs (SC*)\n"
+"	  :SCs specifies good SCs for this operand.  Other SCs will be\n"
+"	  penalized according to move costs.  A load TN will be allocated if\n"
+"	  necessary, guaranteeing that the operand is always one of the\n"
+"	  specified SCs.\n"
+"\n"
+"      :Load-TN Load-Name\n"
+"          Load-Name is bound to the load TN allocated for this operand, or "
+"to\n"
+"	  NIL if no load TN was allocated.\n"
+"\n"
+"      :Load-If Expression\n"
+"          Controls whether automatic operand loading is done.  Expression "
+"is\n"
+"	  evaluated with the fixed operand TNs bound.  If Expression is true,\n"
+"	  then loading is done and the variable is bound to the load TN in\n"
+"	  the generator body.  Otherwise, loading is not done, and the variable\n"
+"	  is bound to the actual operand.\n"
+"\n"
+"      :More T-or-NIL\n"
+"	  If specified, Name is bound to the TN-Ref for the first argument or\n"
+"	  result following the fixed arguments or results.  A more operand must\n"
+"	  appear last, and cannot be targeted or restricted.\n"
+"\n"
+"      :Target Operand\n"
+"	  This operand is targeted to the named operand, indicating a desire to\n"
+"	  pack in the same location.  Not legal for results.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"	  Specify the beginning or end of the operand's lifetime.  :From can\n"
+"	  only be used with results, and :To only with arguments.  The default\n"
+"	  for the N'th argument/result is (:ARGUMENT N)/(:RESULT N).  These\n"
+"	  options are necessary primarily when operands are read or written out\n"
+"	  of order.\n"
+"   \n"
+"  :Conditional\n"
+"      This is used in place of :RESULTS with conditional branch VOPs.  "
+"There\n"
+"      are no result values: the result is a transfer of control.  The "
+"target\n"
+"      label is passed as the first :INFO arg.  The second :INFO arg is true "
+"if\n"
+"      the sense of the test should be negated.  A side-effect is to set the\n"
+"      PREDICATE attribute for functions in the :TRANSLATE option.\n"
+"  \n"
+"  :Temporary ({Key Value}*) Name*\n"
+"      Allocate a temporary TN for each Name, binding that variable to the "
+"TN\n"
+"      within the body of the generators.  In addition to :Target (which is \n"
+"      is the same as for operands), the following options are\n"
+"      defined:\n"
+"\n"
+"      :SC SC-Name\n"
+"      :Offset SB-Offset\n"
+"	  Force the temporary to be allocated in the specified SC with the\n"
+"	  specified offset.  Offset is evaluated at macroexpand time.  If\n"
+"	  Offset is emitted, the register allocator chooses a free location in\n"
+"	  SC.  If both SC and Offset are omitted, then the temporary is packed\n"
+"	  according to its primitive type.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"	  Similar to the argument/result option, this specifies the start and\n"
+"	  end of the temporarys' lives.  The defaults are :Load and :Save, i.e.\n"
+"	  the duration of the VOP.  The other intervening phases are :Argument,\n"
+"	  :Eval and :Result.  Non-zero sub-phases can be specified by a list,\n"
+"	  e.g. by default the second argument's life ends at (:Argument 1).\n"
+" \n"
+"  :Generator Cost Form*\n"
+"      Specifies the translation into assembly code. Cost is the estimated "
+"cost\n"
+"      of the code emitted by this generator. The body is arbitrary Lisp "
+"code\n"
+"      that emits the assembly language translation of the VOP.  An Assemble\n"
+"      form is wrapped around the body, so code may be emitted by using the\n"
+"      local Inst macro.  During the evaluation of the body, the names of "
+"the\n"
+"      operands and temporaries are bound to the actual TNs.\n"
+"  \n"
+"  :Effects Effect*\n"
+"  :Affected Effect*\n"
+"      Specifies the side effects that this VOP has and the side effects "
+"that\n"
+"      effect its execution.  If unspecified, these default to the worst "
+"case.\n"
+"  \n"
+"  :Info Name*\n"
+"      Define some magic arguments that are passed directly to the code\n"
+"      generator.  The corresponding trailing arguments to VOP or %Primitive "
+"are\n"
+"      stored in the VOP structure.  Within the body of the generators, the\n"
+"      named variables are bound to these values.  Except in the case of\n"
+"      :Conditional VOPs, :Info arguments cannot be specified for VOPS that "
+"are\n"
+"      the direct translation for a function (specified by :Translate).\n"
+"\n"
+"  :Ignore Name*\n"
+"      Causes the named variables to be declared IGNORE in the generator "
+"body.\n"
+"\n"
+"  :Variant Thing*\n"
+"  :Variant-Vars Name*\n"
+"      These options provide a way to parameterize families of VOPs that "
+"differ\n"
+"      only trivially.  :Variant makes the specified evaluated Things be the\n"
+"      \"variant\" associated with this VOP.  :Variant-Vars causes the named\n"
+"      variables to be bound to the corresponding Things within the body of "
+"the\n"
+"      generator.\n"
+"\n"
+"  :Variant-Cost Cost\n"
+"      Specifies the cost of this VOP, overriding the cost of any inherited\n"
+"      generator.\n"
+"\n"
+"  :Note {String | NIL}\n"
+"      A short noun-like phrase describing what this VOP \"does\", i.e. the\n"
+"      implementation strategy.  If supplied, efficency notes will be "
+"generated\n"
+"      when type uncertainty prevents :TRANSLATE from working.  NIL inhibits "
+"any\n"
+"      efficency note.\n"
+"\n"
+"  :Arg-Types    {* | PType | (:OR PType*) | (:CONSTANT Type)}*\n"
+"  :Result-Types {* | PType | (:OR PType*)}*\n"
+"      Specify the template type restrictions used for automatic "
+"translation.\n"
+"      If there is a :More operand, the last type is the more type.  :CONSTAN"
+"T\n"
+"      specifies that the argument must be a compile-time constant of the\n"
+"      specified Lisp type.  The constant values of :CONSTANT arguments are\n"
+"      passed as additional :INFO arguments rather than as :ARGS.\n"
+"  \n"
+"  :Translate Name*\n"
+"      This option causes the VOP template to be entered as an IR2 translatio"
+"n\n"
+"      for the named functions.\n"
+"\n"
+"  :Policy {:Small | :Fast | :Safe | :Fast-Safe}\n"
+"      Specifies the policy under which this VOP is the best translation.\n"
+"\n"
+"  :Guard Form\n"
+"      Specifies a Form that is evaluated in the global environment.  If\n"
+"      form returns NIL, then emission of this VOP is prohibited even when\n"
+"      all other restrictions are met.\n"
+"\n"
+"  :VOP-Var Name\n"
+"  :Node-Var Name\n"
+"      In the generator, bind the specified variable to the VOP or the Node "
+"that\n"
+"      generated this VOP.\n"
+"\n"
+"  :Save-P {NIL | T | :Compute-Only | :Force-To-Stack}\n"
+"      Indicates how a VOP wants live registers saved.\n"
+"\n"
+"  :Move-Args {NIL | :Full-Call | :Local-Call | :Known-Return}\n"
+"      Indicates if and how the more args should be moved into a different\n"
+"      frame."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Emit-Template Node Block Template Args Results [Info]\n"
+"  Call the emit function for Template, linking the result in at the end of\n"
+"  Block."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP Name Node Block Arg* Info* Result*\n"
+"  Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n"
+"  using Node for the source context.  The interpretation of the remaining\n"
+"  arguments depends on the number of operands of various kinds that are\n"
+"  declared in the template definition.  VOP cannot be used for templates "
+"that\n"
+"  have more-args or more-results, since the number of arguments and results "
+"is\n"
+"  indeterminate for these templates.  Use VOP* instead.\n"
+"  \n"
+"  Args and Results are the TNs that are to be referenced by the template\n"
+"  as arguments and results.  If the template has codegen-info arguments, "
+"then\n"
+"  the appropriate number of Info forms following the Arguments are used for\n"
+"  codegen info."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot use VOP with variable operand count templates."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Called with ~D operands, but was expecting ~D."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n"
+"  Like VOP, but allows for emission of templates with arbitrary numbers of\n"
+"  arguments, and for emission of templates using already-created TN-Ref "
+"lists.\n"
+"\n"
+"  The Arguments and Results are TNs to be referenced as the first arguments\n"
+"  and results to the template.  More-Args and More-Results are heads of "
+"TN-Ref\n"
+"  lists that are added onto the end of the TN-Refs for the explicitly "
+"supplied\n"
+"  operand TNs.  The TN-Refs for the more operands must have the TN and "
+"Write-P\n"
+"  slots correctly initialized.\n"
+"\n"
+"  As with VOP, the Info forms are evaluated and passed as codegen info\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed arguments."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed results."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D info args."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n"
+"  Case off of TN's SC.  The first clause containing TN's SC is evaulated,\n"
+"  returning the values of the last form.  A clause beginning with T specifie"
+"s a\n"
+"  default.  If it appears, it must be last.  If no default is specified, "
+"and no\n"
+"  clause matches, then an error is signalled."
+msgstr ""
+
+#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp
+#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp
+#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp
+#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp
+#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp
+#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Illegal SC-Case clause: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "T case is not last in SC-Case."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Is TN SC*\n"
+"  Returns true if TNs SC is any of the named SCs, false otherwise."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Do-IR2-Blocks (Block-Var Component [Result]) Form*\n"
+"  Iterate over the IR2 blocks in component, in emission order."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n"
+"  Iterate over all the TNs live at some point, with the live set represented"
+" by\n"
+"  a local conflicts bit-vector and the IR2-Block containing the location."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n"
+"  Iterate over all the IR2 blocks in the environment Env, in emit order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"The width of the column in which instruction-names are printed.\n"
+"  NIL means use the default.  A value of zero gives the effect of not\n"
+"  aligning the arguments at all."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The column in which end-of-line comments for notes are started."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Specify global disassembler params for C:*TARGET-BACKEND*.\n"
+"  Keyword arguments include:\n"
+"      \n"
+"  :INSTRUCTION-ALIGNMENT number\n"
+"      Minimum alignment of instructions, in bits.\n"
+"      \n"
+"  :ADDRESS-SIZE number\n"
+"      Size of a machine address, in bits.\n"
+"      \n"
+"  :OPCODE-COLUMN-WIDTH\n"
+"      Width of the column used for printing the opcode portion of the\n"
+"      instruction, or NIL to use the default."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
+"  Define a disassembler argument type NAME (which can then be referenced in\n"
+"  another argument definition using the :TYPE keyword argument).  Keyword\n"
+"  arguments are:\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction- format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-SUFFI"
+"X\n"
+"      must be done inside a prefilter.\n"
+"      \n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print an argument of\n"
+"      this type.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of an argument of this type is used as an\n"
+"      address, and if that address occurs inside the disassembled code, it "
+"is\n"
+"      replaced by a label.  If this is a function, it is called to filter "
+"the\n"
+"      value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
+"  Define an instruction format NAME for the disassembler's use.  LENGTH is\n"
+"  the length of the format in bits.\n"
+"  Possible FORMAT-KEYs:\n"
+"\n"
+"  :INCLUDE other-format-name\n"
+"      Inherit all arguments and properties of the given format.  Any\n"
+"      arguments defined in the current format definition will either modify\n"
+"      the copy of an existing argument (keeping in the same order with\n"
+"      respect to when pre-filter's are called), if it has the same name as\n"
+"      one, or be added to the end.\n"
+"  :DEFAULT-PRINTER printer-list\n"
+"      Use the given PRINTER-LIST as a format to print any instructions of\n"
+"      this format when they don't specify something else.\n"
+"\n"
+"  Each ARG-DEF defines one argument in the format, and is of the form\n"
+"    (Arg-Name {Arg-Key Value}*)\n"
+"\n"
+"  Possible ARG-KEYs (the values are evaulated unless otherwise specified):\n"
+"  \n"
+"  :FIELDS byte-spec-list\n"
+"      The argument takes values from these fields in the instruction.  If\n"
+"      the list is of length one, then the corresponding value is supplied "
+"by\n"
+"      itself; otherwise it is a list of the values.  The list may be NIL.\n"
+"  :FIELD byte-spec\n"
+"      The same as :FIELDS (list byte-spec).\n"
+"\n"
+"  :VALUE value\n"
+"      If the argument only has one field, this is the value it should have,\n"
+"      otherwise it's a list of the values of the individual fields.  This "
+"can\n"
+"      be overridden in an instruction-definition or a format definition\n"
+"      including this one by specifying another, or NIL to indicate that "
+"it's\n"
+"      variable.\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended,\n"
+"      immediately after being extracted from the instruction (before any\n"
+"      prefilters are run, for instance).  If the argument has multiple\n"
+"      fields, they are all sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of the given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction-format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-SUFFI"
+"X\n"
+"      must be done inside a prefilter.\n"
+"\n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print this argument.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of this argument is used as an address, and if\n"
+"      that address occurs inside the disassembled code, it is replaced by a\n"
+"      label.  If this is a function, it is called to filter the value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~d bits is not a byte-multiple"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
+"  OLD-CONS, otherwise return (cons CAR CDR)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"A simple (one list arg) mapcar that avoids consing up a new list\n"
+"  as long as the results of calling FUN on the elements of LIST are\n"
+"  eq to the original."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't dump functions, so function ref form must be quoted: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s must not have multiple values"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown arg-form kind ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Cannot label a multiple-field argument ~\n"
+"			      unless using a function: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus!  Can't use the :printed value of an arg!"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"number of constants doesn't match number of fields ~\n"
+"			  in: (~s :constant~{ ~s~})"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't compare differently sized fields: ~\n"
+"		          (~s :same-as ~s)"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus test-form: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Illegal printer: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown printer element: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "First arg to :USING must be a string or #'function"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No suitable choice found in ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a version of the disassembly-template PRINTER with compile-time\n"
+"  tests (e.g. :constant without a value), and any :CHOOSE operators resolved"
+"\n"
+"  properly for the args ARGS.  (:CHOOSE Sub*) simply returns the first Sub "
+"in\n"
+"  which every field reference refers to a valid arg."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Using cached function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Making new function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument type: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"          Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"				     Field ~s doesn't fit in an ~\n"
+"				     instruction-format ~d bits wide.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to specify global disassembler params.  See the\n"
+"  documentation for SET-DISASSEM-PARAMS for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define a disassembler argument type.  See\n"
+"  DEFINE-ARGUMENT-TYPE for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define an instruction format.  See\n"
+"  DEFINE-INSTRUCTION-FORMAT for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Field ~s in arg ~s overlaps some other field"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown instruction format ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
+"  GENERAL (i.e., the same instruction, but with more constraints)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an integer corresponding to the specifivity of the instruction "
+"INST."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Order the list of instructions INSTS with more specific (more constant\n"
+"  bits, or same-as argument constains) ones first.  Returns the ordered "
+"list."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Instructions either aren't related or conflict in some way:~% ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a list of instructions INSTS, Sees if one of these instructions is a\n"
+"  more general form of all the others, in which case they are put into its\n"
+"  specializers list, and it is returned.  Otherwise an error is signaled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Multiple specializing masters: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
+"  most specific instruction on INST's specializer list who's constraints "
+"are\n"
+"  met by CHUNK.  If none do, then INST is returned."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the instruction object within INST-SPACE corresponding to the\n"
+"  bit-pattern CHUNK, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an instruction-space object corresponding to the list of\n"
+"  instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, "
+"only\n"
+"  bits it has set are used."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Prints a nicely formatted version of INST-SPACE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Print the inst space for the specified backend"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a word-offset NUM to a byte-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a byte-offset NUM to a word-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the value of the property called NAME in DSTATE.  Also setf'able."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the current instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the next instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Offset of FUNCTION from the start of its code-component's instruction area."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Offset of FUNCTION from the start of its code-component."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the length of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the address of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first function in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Possible ~A header word"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the function-header (entry-point) pseudo-instruction at the current\n"
+"  location in DSTATE to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Iterate through the instructions in SEGMENT, calling FUNCTION\n"
+"  for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Make an initial non-printing disassembly pass through DSTATE, noting any\n"
+"  addresses that are referenced by instructions in this segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If any labels in DSTATE have been added since the last call to this\n"
+"  function, give them label-numbers, enter them in the hash-table, and make\n"
+"  sure the label list is in sorted order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the instruction-space from PARAMS, creating it if necessary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the current address in DSTATE to STREAM, plus any labels that\n"
+"  correspond to it, and leave the cursor in the instruction column."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
+"  end-of-line comments.  If there is more than one note, a separate line\n"
+"  will be used for each one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Make a disassembler-state object."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a memory segment located at the system-area-pointer returned by\n"
+"  SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
+"  Optional keyword arguments include :VIRTUAL-LOCATION (by default the same "
+"as\n"
+"  the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache\n"
+"  object), and :HOOKS (a list of offs-hook objects)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The source file ~s no longer seems to exist"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No start positions map"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Source file ~s has been modified; ~@\n"
+"					 Using form offset instead of file index"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Bogus form-number in form!  The source file has probably ~@\n"
+"		  been changed too much to cope with"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the vector of debug-variables currently associated with DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given the OFFSET of a location within the location-group called LG-NAME,\n"
+"  see if there's a current mapping to a source variable in DSTATE, and if "
+"so,\n"
+"  return the offset of that variable in the current debug-variable vector."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a new vector which has the same contents as the old one VEC, plus\n"
+"  new cells (for a total size of NEW-LEN).  The additional elements are\n"
+"  initailized to INITIAL-ELEMENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a STORAGE-INFO struction describing the object-to-source\n"
+"  variable mappings from DEBUG-FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; At offset ~d: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; SET: ~s[~d]~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Add hooks to track to track the source code in SEGMENT during\n"
+"  disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
+"  structure, in which case it is used to cache forms from files."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No-arg-parsing entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the PC of FUNCTION's header."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "If non-NIL, disassemble flets/labels too"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for the code-component CODE.  If START-OFFS and/or LENGTH is\n"
+"  supplied, only that part of the code-segment is used (but these are\n"
+"  constrained to lie within the code-segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return the address of the instructions for function and its length.\n"
+"  The length is computed using a heuristic, and so may not be accurate."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values:  the amount by which the last instruction in the\n"
+"  segment goes past the end of the segment, and the offset of the end of "
+"the\n"
+"  segment from the beginning of that instruction.  If all instructions fit\n"
+"  perfectly, this will return 0 and 0."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Computes labels for all the memory segments in SEGLIST and adds them to\n"
+"  DSTATE.  It's important to call this function with all the segments "
+"you're\n"
+"  interested in, so it can find references from one to another."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions in each memory segment in\n"
+"  SEGMENTS in turn to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Cannot compile a lexical closure"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't make a compiled function from ~S"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code associated with OBJECT, which can be a\n"
+"  function, a lambda expression, or a symbol with a function definition.  "
+"If\n"
+"  it is not already compiled, the compiler is called to produce something "
+"to\n"
+"  disassemble."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
+"  Note that if CODE-COMPONENT is NIL and this memory could move during a GC,"
+"\n"
+"  you'd better disable it around the call to this function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid " Address ~x not in the code component ~s."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  CODE-COMPONENT (this may include multiple entry points)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  ASSEM-SEGMENT (of type new-assem:segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
+"symbol object that we know about."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given ADDRESS, try and figure out if which slot of which symbol is being\n"
+"  refered to.  Of course we can just give up, so it's not a big deal...\n"
+"  Returns two values, the symbol and the name of the access function of the\n"
+"  slot."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
+"  symbol is being refered to.  Of course we can just give up, so it's not a "
+"big\n"
+"  deal...  Returns two values, the symbol and the access function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the lisp object located BYTE-OFFSET from NIL."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
+"  area of the code-object in the current segment and T, or NIL and NIL if\n"
+"  there is no code-object in the current segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Build an address-name hash-table from the name-address hash"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the name of the primitive lisp assembler routine or foreign\n"
+"  symbol located at ADDRESS, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store NOTE (which can be either a string or a function with a single\n"
+"  stream argument) to be printed as an end-of-line comment after the "
+"current\n"
+"  instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located at ADDR in the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid slot in a symbol, store a note describing which symbol and "
+"slot,\n"
+"  to be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid lisp object, store a note describing which symbol and slot, to\n"
+"  be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If ADDRESS is the address of a primitive assembler routine or\n"
+"  foreign symbol, store a note describing which one, to be printed as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded.  If NOTE-ADDRESS-P is non-NIL, a\n"
+"  note of the address is also made."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
+"  describing which one, to be printed as an end-of-line comment after\n"
+"  the current instruction is disassembled.  Returns non-NIL iff a note\n"
+"  was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
+"  source variable, make a note of the source-variable name, to be printed "
+"as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
+"  to a source variable, make a note equating ASSOC-WITH with the\n"
+"  source-variable name, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled.  Returns non-NIL iff a note was\n"
+"  recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"When called from an error break instruction's :DISASSEM-CONTROL (or\n"
+"  :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
+"  arguments to the break.\n"
+"\n"
+"  ERROR-PARSE-FUN should be a function that accepts:\n"
+"    1) a SYSTEM-AREA-POINTER\n"
+"    2) a BYTE-OFFSET from the SAP to begin at\n"
+"    3) optionally, LENGTH-ONLY, which if non-NIL, means to only return\n"
+"       the byte length of the arguments (to avoid unnecessary consing)\n"
+"  It should read information from the SAP starting at BYTE-OFFSET, and "
+"return\n"
+"  four values:\n"
+"    1) the error number\n"
+"    2) the total length, in bytes, of the information\n"
+"    3) a list of SC-OFFSETs of the locations of the error parameters\n"
+"    4) a list of the length (as read from the SAP), in bytes, of each of "
+"the\n"
+"       return-values."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Set up the assembler."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Execute BODY (as a progn) without scheduling any of the instructions\n"
+"   generated inside it.  DO NOT throw or return-from out of it."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S reads ~S[~D for ~D]~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S writes ~S[~D for ~D]~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&Queuing ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "  reads ~S~%  writes ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&Scheduling pending instructions...~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Flushing ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Queued branches: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Initially emittable: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Initially delayed: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Filling branch delay slot with ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting a NOP.~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Now emittable: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit BYTE to SEGMENT."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Output AMOUNT zeros (in bytes) to SEGMENT."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Attempt to emit ~S for the second time."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream has to be back-patched when label positions"
+"\n"
+"   are finally known.  SIZE bytes are reserved in SEGMENT, and function "
+"will\n"
+"   be called with two arguments: the segment and the position.  The function"
+"\n"
+"   should look at the position and the position of any labels it wants to\n"
+"   and emit the correct sequence.  (And it better be the same size as SIZE)"
+".\n"
+"   SIZE can be zero, which is useful if you just want to find out where "
+"things\n"
+"   ended up."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream here depends on the actual positions of\n"
+"   various labels, so can't be output until label positions are known.  "
+"Space\n"
+"   is made in SEGMENT for at least SIZE bytes.  When all output has been\n"
+"   generated, the MAYBE-SHRINK functions for all choosers are called with\n"
+"   three arguments: the segment, the position, and a magic value.  The "
+"MAYBE-\n"
+"   SHRINK decides if it can use a shorter sequence, and if so, emits that\n"
+"   sequence to the segment and returns T.  If it can't do better than the\n"
+"   worst case, it should return NIL (without emitting anything).  When "
+"calling\n"
+"   LABEL-POSITION, it should pass it the position and the magic-value it "
+"was\n"
+"   passed so that LABEL-POSITION can return the correct result.  If the "
+"chooser\n"
+"   never decides to use a shorter sequence, the WORST-CASE-FUN will be "
+"called,\n"
+"   just like a BACK-PATCH.  (See EMIT-BACK-PATCH.)"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's max was ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"~S shrunk by ~D bytes, but claimed that it ~\n"
+"			    preserve ~D bits of alignment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Chooser ~S passed, but not before emitting ~D bytes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Alignment ~S needs more space now?  It was ~D, ~\n"
+"			    and is ~D now."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's was ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Execute BODY (as a progn) with SEGMENT as the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Duplicate nested labels: ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit the specified instruction to the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Unknown instruction: ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit LABEL at this location in the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit an alignment restriction to the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Return the current position for LABEL.  Chooser maybe-shrink functions\n"
+"   should supply IF-AFTER and DELTA to assure correct results."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT\n"
+"   for anything after this."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Does any final processing of SEGMENT and returns the total number of bytes\n"
+"   covered by this segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called\n"
+"   zero or more times with two arguments: a SAP and a number of bytes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Releases any output buffers held on to by segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~D isn't an even multiple of ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Byte spec ~S either overlaps another byte spec, or ~\n"
+"		    extends past the end."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "There are holes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify one emitter per instruction."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify delay once per instruction."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify :vop-var once."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "You can't use INST without an ASSEMBLE inside emitters."
+msgstr ""
+
+#: target:compiler/alloc.lisp
+msgid ""
+"defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
+"                   (deinit-form*)\n"
+"		   (reinit-form*))}*"
+msgstr ""
+
+#: target:compiler/alloc.lisp
+msgid "~S already deallocated!"
+msgstr ""
+
+#: target:compiler/knownfun.lisp
+msgid "optimize"
+msgstr ""
+
+#: target:compiler/knownfun.lisp
+msgid "~S is not a known function."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Block-Compile argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Byte-Compile argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level"
+"\n"
+"   forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE\n"
+"   (the default.)  When true, we decide to byte-compile."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Whether loop analysis should be done or not."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Whether the compiler should record cross-reference information."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :VERBOSE argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :PRINT argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :PROGRESS argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The defaulted pathname of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The TRUENAME of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The user supplied source-info for the current compilation.  \n"
+"This is the :source-info argument to COMPILE-FROM-STREAM and will be\n"
+"stored in the INFO slot of the DEBUG-SOURCE in code components and \n"
+"in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The upper limit on the number of times that we will consecutively do IR1\n"
+"  optimization that doesn't introduce any new code.  A finite limit is\n"
+"  necessary, since type inference may take arbitrarily long to converge."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~|~%Disassembly of code for ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~:[~;Byte ~]Compiling ~A: "
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Undefined ~(~A~) ~S~@[ ~A~]"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~D more use~:P of undefined ~(~A~) ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n"
+"		~%  ~{~<~%  ~1:;~S~>~^ ~}"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"~2&; Compilation unit ~:[finished~;aborted~].~\n"
+"      ~[~:;~:*~&;   ~D fatal error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D warning~:P~]~\n"
+"      ~[~:;~:*~&;   ~D note~:P~]~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~|~%;;;; Component: ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~%~|~%;;;; IR2 component: ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Entries:~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~4TL~D: ~S~:[~; [Closure]~]~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Read error at ~D:~% \"~A/\\~A\"~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Unable to recover from read error."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Skip this form."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Attempt to load a file having a compile-time read error."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "(during macroexpansion)~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Bad FILE-COMMENT form: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Ignoring extra file comment:~%  ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~&; Comment: ~A~2&"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "Execution of a form compiled with errors:~% ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "EVAL-WHEN form is too short: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "MACROLET form is too short: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Load Time Value of ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "(while making load form for ~S)~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Creation Form for ~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Circular references in creation form for ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Init Form~:[~;s~] for ~{~A~^, ~}"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&Fatal error, aborting compilation...~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't compile with no source files."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to COMPILE-FILE, but compiles text from Stream into the current "
+"lisp\n"
+"  environment.  Stream is closed when compilation is complete.  These "
+"keywords\n"
+"  are supported:\n"
+"\n"
+"  :Error-Stream\n"
+"      The stream to write compiler error output to (default *ERROR-OUTPUT*.)"
+"\n"
+"  :Trace-Stream\n"
+"      The stream that we write compiler trace output to, or NIL (the "
+"default)\n"
+"      to inhibit trace output.\n"
+"  :Block-Compile {T, NIL, :SPECIFIED}\n"
+"        If true, then function names may be resolved at compile time.\n"
+"  :Source-Info\n"
+"        Some object to be placed in the DEBUG-SOURCE-INFO.\n"
+"  :Byte-Compile {T, NIL, :MAYBE}\n"
+"        If true, then may compile to interpreted byte code."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&; Python version ~A, VM version ~A on ~A.~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "; Compiling: ~A ~A~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles Source, producing a corresponding .FASL file.  Source may be a "
+"list\n"
+"   of files, in which case the files are compiled as a unit, producing a "
+"single\n"
+"   .FASL file.  The output file names are defaulted from the first (or only)"
+"\n"
+"   input file name.  Other options available via keywords:\n"
+"   :Output-File\n"
+"      The name of the fasl to output, NIL for none, T for the default.\n"
+"   :Error-File\n"
+"      The name of the error listing file, NIL for none (the default), T for\n"
+"      .err.\n"
+"   :Trace-File\n"
+"      If specified, internal data structures are dumped to this file.  T "
+"for\n"
+"      the .trace default.\n"
+"   :Error-Output\n"
+"      If a stream, then error output is sent there as well as to the "
+"listing\n"
+"      file.  NIL suppresses this additional error output.  The default is T,"
+"\n"
+"      which means use *ERROR-OUTPUT*.\n"
+"   :Block-Compile {NIL | :SPECIFIED | T}\n"
+"      Determines whether multiple functions are compiled together as a unit,"
+"\n"
+"      resolving function references at compile time.  NIL means that global\n"
+"      function names are never resolved at compilation time.  :SPECIFIED "
+"means\n"
+"      that names are resolved at compile-time when convenient (as in a\n"
+"      self-recursive call), but the compiler doesn't combine top-level "
+"DEFUNs.\n"
+"      With :SPECIFIED, an explicit START-BLOCK declaration will enable "
+"block\n"
+"      compilation.  A value of T indicates that all forms in the file(s) "
+"should\n"
+"      be compiled as a unit.  The default is the value of\n"
+"      EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED.\n"
+"   :Entry-Points\n"
+"      This specifies a list of function names for functions in the file(s) "
+"that\n"
+"      must be given global definitions.  This only applies to block\n"
+"      compilation, and is useful mainly when :BLOCK-COMPILE T is specified "
+"on a\n"
+"      file that lacks START-BLOCK declarations.  If the value is NIL (the\n"
+"      default) then all functions will be globally defined.\n"
+"   :Byte-Compile {T | NIL | :MAYBE}\n"
+"      Determines whether to compile into interpreted byte code instead of\n"
+"      machine instructions.  Byte code is several times smaller, but much\n"
+"      slower.  If :MAYBE, then only byte-compile when SPEED is 0 and\n"
+"      DEBUG <= 1.  The default is the value of EXT:*BYTE-COMPILE-DEFAULT*,\n"
+"      which is initially :MAYBE.\n"
+"   :Xref\n"
+"      If non-NIL, enable recording of cross-reference information.  The "
+"default\n"
+"      is the value of C:*RECORD-XREF-INFO*\n"
+"   :External-Format\n"
+"      The external format to use when opening the source file"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&; ~A written.~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't :LOAD with no output file."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~S was defined in a non-null environment."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't find a definition for ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles the function (or macro-function) whose name is NAME.  If\n"
+"  DEFINITION is supplied, it should be a lambda expression which will\n"
+"  be compiled.  IF NAME names a macro, then the compiled expression\n"
+"  replaces the existing macro-function.  If NAME names a function, the\n"
+"  compiled expression is placed in the function cell of NAME.  If NAME\n"
+"  is Nil, the compiled code object is returned."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Attempt to replace Name's definition with an interpreted version of that\n"
+"  definition.  If no interpreted definition is to be found, then signal an\n"
+"  error."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~S is already interpreted."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Return a pathname describing what file COMPILE-FILE would write to given\n"
+"   these arguments."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The ~A parameter is a ~S, which is an invalid value ~@\n"
+"            to COMPILE-FILE-PATHNAME."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If true, argument and result type information derived from compilation of\n"
+"  DEFUNs is used when compiling calls to that function.  If false, only\n"
+"  information from FTYPE proclamations will be used."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If NIL, never trust dynamic-extent declarations.\n"
+"\n"
+"   If T, always trust dynamic-extent declarations.\n"
+"\n"
+"   Otherwise, the value of this variable must be a function of four\n"
+"   arguments SAFETY, SPACE, SPEED, and DEBUG.  If the function returns\n"
+"   true when called, dynamic-extent declarations are trusted,\n"
+"   otherwise they are not trusted."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't find slot ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found macro name ~S ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found special-form name ~S ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Cannot dump objects of type ~S into fasl files."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S has already ended."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S already has successors."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S is already a predecessor of ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Misplaced declaration."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function call."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to reference undumpable constant."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Reading an ignored variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~&dynamic-extent args ~:s in ~s~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Conflicting type declarations ~\n"
+"				   ~S and ~S for ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't declare type of Alien variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring symbol-macro ~S special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignored variable ~S is being declared special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Ignoring ~A declaration not at ~\n"
+"				   definition of local function:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognizable function or variable name: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignoring free ignore declaration for ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignore declaration for unknown variable ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring special variable ~S to be ignored."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "If true, processing of the VALUES declaration is inhibited."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "No type specified in FTYPE declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Abbreviated type declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognized declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed declaration specifier ~S in ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring an alien variable to be special: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring a constant to be special: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-variable is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated variable in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Name of lambda-variable is a constant: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Multiple uses of keyword ~S in lambda-list."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found a ~S when expecting a lambda expression:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Expecting a lambda, but form begins with ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-list absent or not a list:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Arg specifier is too long: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed keyword arg specifier: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed &aux binding specifier: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Progn Form*\n"
+"  Evaluates each Form in order, returing the values of the last form.  With "
+"no\n"
+"  forms, returns NIL."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If Predicate Then [Else]\n"
+"  If Predicate evaluates to non-null, evaluate Then and returns its values,\n"
+"  otherwise evaluate Else and return its values.  Else defaults to NIL."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Block Name Form*\n"
+"  Evaluate the Forms as a PROGN.  Within the lexical scope of the body,\n"
+"  (RETURN-FROM Name Value-Form) can be used to exit the form, returning the\n"
+"  result of Value-Form."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Block name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Return-From Block-Name Value-Form\n"
+"  Evaluate the Value-Form, returning its values from the lexically enclosing"
+"\n"
+"  BLOCK Block-Name.  This is constrained to be used only within the dynamic\n"
+"  extent of the BLOCK."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Return for unknown block: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated tagbody tag: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal tagbody statement: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Tagbody {Tag | Statement}*\n"
+"  Define tags for used with GO.  The Statements are evaluated in order\n"
+"  (skipping Tags) and NIL is returned.  If a statement contains a GO to a\n"
+"  defined Tag within the lexical scope of the form, then control is transfer"
+"red\n"
+"  to the next statement following that tag.  A Tag must an integer or a\n"
+"  symbol.  A statement must be a list.  Other objects are illegal within "
+"the\n"
+"  body."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Go Tag\n"
+"  Transfer control to the named Tag in the lexically enclosing TAGBODY.  "
+"This\n"
+"  is constrained to be used only within the dynamic extent of the TAGBODY."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Go to nonexistent tag: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Bad compiler-let binding spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"EVAL-WHEN (Situation*) Form*\n"
+"  Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n"
+"  :LOAD-TOPLEVEL, :EXECUTE."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name ~S is not a symbol."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S has argument list that is not a list: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S is too short to be a legal definition."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n"
+"  Evaluate the Body-Forms in an environment with the specified local macros\n"
+"  defined.  Name is the local macro name, Lambda-List is the DEFMACRO style\n"
+"  destructuring lambda list, and the Forms evaluate to the expansion."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
+"   Establish the specified compiler options for the (lexical) duration of\n"
+"   the body.  The Value-Forms are evaluated at compile time."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Bogus binding for ~\n"
+"						     COMPILER-OPTION-BIND: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lisp error during evaluation of info args:~%~A"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Undefined primitive name: ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Primitive called with ~R argument~:P, ~\n"
+"	    		         but wants at least ~R."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Primitive called with ~R argument~:P, ~\n"
+"				 but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with a conditional template."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with an unknown values template."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "QUOTE Value\n"
+"  Return Value without evaluating it."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FUNCTION Name\n"
+"  Return the lexically apparent definition of the function Name.  Name may "
+"also\n"
+"  be a lambda."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function name: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Might be a symbol, so must call FDEFINITION at runtime."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
+"  Define the Names as symbol macros with the given Expansions.  Within the\n"
+"  body, references to a Name will effectively be replaced with the Expansion"
+"."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed symbol macro binding: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated name in SYMBOL-MACROLET: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "New proclaimed type ~S for ~S conflicts with old type ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to proclaim constant ~S to be special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed TYPE proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FUNCTION proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FTYPE proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S binding spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  During evaluation of the Forms, Bind the Vars to the result of evaluating "
+"the\n"
+"  Value forms.  The variables are bound in parallel after all of the Values "
+"are\n"
+"  evaluated."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LOCALLY Declaration* Form*\n"
+"   Sequentially evaluates a body of Form's in a lexical environment\n"
+"   where the given Declaration's have effect."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET* ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  Similar to LET, but the variables are bound sequentially, allowing each "
+"Value\n"
+"  form to reference any of the previous Vars."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S definition spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.   The "
+"bindings\n"
+"  do not enclose the definitions; any use of Name in the Forms will refer "
+"to\n"
+"  the lexically apparent function definition in the enclosing environment."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.  The "
+"bindings\n"
+"  enclose the new definitions, so the defined functions can call themselves "
+"or\n"
+"  each other."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"THE Type Form\n"
+"  Assert that Form evaluates to the specified type (which may be a VALUES\n"
+"  type.)"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Truly-The Type Value\n"
+"  Like the THE special form, except that it believes whatever you tell it.  "
+"It\n"
+"  will never generate a type check, but will cause a warning if the compiler"
+"\n"
+"  can prove the assertion is wrong."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SETQ {Var Value}*\n"
+"  Set the variables to the values.  If more than one pair is supplied, the\n"
+"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
+"  expansion."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Odd number of args to SETQ: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to set constant ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Setting an ignored variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Throw Tag Form\n"
+"  Do a non-local exit, return the values of Form from the CATCH whose tag\n"
+"  evaluates to the same thing as Tag."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Catch Tag Form*\n"
+"  Evaluates Tag and instantiates it as a catcher while the body forms are\n"
+"  evaluated in an implicit PROGN.  If a THROW is done to Tag within the "
+"dynamic\n"
+"  scope of the body, then control will be transferred to the end of the "
+"body\n"
+"  and the thrown values will be returned."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Unwind-Protect Protected Cleanup*\n"
+"  Evaluate the form Protected, returning its values.  The cleanup forms are\n"
+"  evaluated whenever the dynamic scope of the Protected form is exited "
+"(either\n"
+"  due to normal completion or a non-local exit such as THROW)."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL Function Values-Form*\n"
+"  Call Function, passing all the values of each Values-Form as arguments,\n"
+"  values from the first Values-Form making up the first argument, etc."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-PROG1 Values-Form Form*\n"
+"  Evaluate Values-Form and then the Forms, but return all the values of\n"
+"  Values-Form."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Defining ~S to be a macro when it was ~(~A~) to be a function."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to redefine special form ~S as a macro."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~&; Converted ~S.~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to define a compiler-macro for special form ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Constant name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change T."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Nihil ex nihil (Can't change NIL)."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change the value of keywords."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining constant ~S as:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining ~(~A~) ~S to be a constant."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return the tlf-number and form-number from an encoded FIXNUM."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return a source-location for the call site."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unused function~:[.~;~:*~%  ~S~]"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Block is already deleted."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Variable ~S defined but never used."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unreachable code."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If CONT is a call to FUN with NUM-ARGS args, change those arguments\n"
+"   to feed directly to the continuation-dest of CONT, which must be\n"
+"   a combination."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"An upper limit on the number of inline function calls that will be expanded\n"
+"   in any given code object (single function or block compilation.)"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"*Inline-Expansion-Limit* (~D) exceeded, ~\n"
+"			     probably trying to~%  ~\n"
+"			     inline a recursive function."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Level* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Length* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Lines* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"The maximum number of enclosing non-original source forms (i.e. from\n"
+"  macroexpansion) that we print in full.  For additional enclosing forms, "
+"we\n"
+"  print only the CAR."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"DEF-SOURCE-CONTEXT Name Lambda-List Form*\n"
+"   This macro defines how to extract an abbreviated source context from the\n"
+"   Named form when it appears in the compiler input.  Lambda-List is a "
+"DEFMACRO\n"
+"   style lambda-list used to parse the arguments.  The Body should return a\n"
+"   list of subforms suitable for a \"~{~S ~}\" format string."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Compiler-Error with no bailout."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"This is the function called by the compiler to specially note a\n"
+"warning, comment, or error. The function must take five arguments: the\n"
+"severity, a string describing the nature of the notification, a string\n"
+"for context, the file namestring, and the file position. The severity\n"
+"is one of :note, :warning, or :error. Except for the severity, all of\n"
+"these can be NIL if unavailable or inapplicable."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "[Last message occurs ~D times]"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "~2&File: ~A"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "replace form with call to ERROR."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "ignore it."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If non-null, then an upper limit on the number of unknown function or type\n"
+"  warnings that the compiler will print for any given name in a single\n"
+"  compilation.  This prevents excessive amounts of output when there really "
+"is\n"
+"  a missing definition (as opposed to a typo in the use.)"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Lisp error during ~A:~%~A"
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid "New inferred type ~S conflicts with old type:~\n"
+"		~%  ~S~%*** Bug?"
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid "The return value of ~A should not be discarded."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, aborting this\n"
+"  attempt to transform the call, but admitting the possibility that this or\n"
+"  some other transform will later suceed.  If arguments are supplied, they "
+"are\n"
+"  format arguments for an efficiency note."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform and force a normal\n"
+"  call to the function at run time.  No further optimizations will be\n"
+"  attempted."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, and delay the\n"
+"  transform on the node until later. The reasons specifies when the transfor"
+"m\n"
+"  will be later retried. The :optimize reason causes the transform to be\n"
+"  delayed until after the current IR1 optimization pass. The :constraint\n"
+"  reason causes the transform to be delayed until after constraint\n"
+"  propagation."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"	     at least ~R."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"	     at most ~R."
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid "Unable to ~A because:~%~6T~?"
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"Unable to ~A due to type uncertainty:~@\n"
+"	                      ~{~6T~?~^~&~}"
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"The result type from previous declaration:~%  ~S~@\n"
+"				  conflicts with the result type:~%  ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Element-Type is not constant."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Cannot open-code creation of ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Default initial element ~s is not a ~s."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Element-type not constant; cannot open code array creation"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list not constant; cannot open code array creation"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list contains something other than an integer: ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array rank not known at compile time: ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Axis not constant."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array dimensions unknown, must call array-dimension at runtime."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array has dimensions ~S, ~D is too large."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell if array is simple."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Vector length unknown, must call length at runtime."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell the rank at compile time."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid ""
+"Array type ambiguous; must call ~\n"
+"	              array-has-fill-pointer-p at runtime."
+msgstr ""
+
+#: target:compiler/srctran.lisp target:compiler/seqtran.lisp
+msgid "open code"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "convert to EQ test"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "Item might be a number"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "inline expand"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "Specified output type ~S is not a sequence type"
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid ""
+"Define-Type-Predicate Name Type\n"
+"  Establish an association between the type predicate Name and the\n"
+"  corresponding Type.  This causes the type predicate to be recognized for\n"
+"  purposes of optimization."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of non-constant type."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of unknown type ~S."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Can't compile TYPEP of anonymous or undefined ~\n"
+"			class:~%  ~S"
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Illegal type specifier for Typep: ~S."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline fixnum operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (unsigned-byte 32) operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (signed-byte 32) operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Shouldn't happen"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Can't open-code float to rational comparison."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "~S doesn't have a precise float representation."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                      because the argument range (~s) was not within 2^~D"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                   because the argument range (~s) was not within 2^~D"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Float zero bound ~s not correctly canonicalised?"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double-double B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double-double B0,B1 from A0,A1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute double-double = double - double-double"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double B from the double-double A0,A1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Split the double-float number a into a-hi and a-lo such that a =\n"
+"  a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n"
+"  a-lo contains the lower 26 bits."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a*b) and err(a*b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
+"  implementation of two-prod"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Multiply the double-double A0,A1 with B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double B"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Divide the double-double A0,A1 by B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Square"
+msgstr ""
+
+#: target:compiler/saptran.lisp
+msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Function doesn't have fixed argument count."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert NTHCDR to CAxxR"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Unknown bound type in make-interval!"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "This shouldn't happen!"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert to inline logical ops"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "BOOLE code is not a constant."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~S illegal control arg to BOOLE."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert x*2^k to shift"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert division by 2^k to shift"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert remainder mod 2^k to LOGAND"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operations"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operation"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert (- 0 x) to negate"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert (* x 0) to 0."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold zero arg"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Unexpected types: ~s ~s~%"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "recode as multiplication or sqrt"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert to simpler equality predicate"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Operands might not be the same type."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~s: too few args (~d), need at least ~d"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~s: too many args (~d), wants at most ~d"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Control string is not a constant."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid ""
+"When non-NIL, the compiler will generate code utilizing modular\n"
+"  arithmetic.  Set to NIL to disable this, if you don't want modular\n"
+"  arithmetic in some cases."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid ""
+"Couldn't inline expand because expansion ~\n"
+"				   calls this let-converted local function:~\n"
+"				   ~%  ~S"
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Can't local-call functions with &MORE args."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid ""
+"Function called with odd number of ~\n"
+"	  		     arguments in keyword portion."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Non-constant keyword in keyword call."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "non-constant :ALLOW-OTHER-KEYS value"
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with unknown argument keyword ~S."
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[A possible~;The~] binding of ~S"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "Type assertion too complex to check:~% ~S."
+msgstr ""
+
+#: target:compiler/constraint.lisp
+msgid "*** Unreachable code in constraint ~\n"
+"			  propagation...  Bug?"
+msgstr ""
+
+#: target:compiler/tn.lisp
+msgid ""
+"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n"
+"  Iterate over all packed TNs allocated in Component."
+msgstr ""
+
+#: target:compiler/tn.lisp
+msgid "SC ~S has no :unbounded :save-p NIL alternate SC."
+msgstr ""
+
+#: target:compiler/life.lisp
+msgid "More operand ~S used more than once in its VOP."
+msgstr ""
+
+#: target:compiler/debug-dump.lisp
+msgid ""
+"Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  \n"
+"Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n"
+"otherwise the truename."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~D is too big for a fixnum."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Returns the byte offset of the static symbol Symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~S is not a static symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Given a byte offset, Offset, returns the appropriate static symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Byte offset, ~D, is not correct."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Return the (byte) offset from NIL to the start of the fdefn object\n"
+"   for the static function NAME."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~S isn't a static function."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Given a byte offset, Offset, returns the appropriate static function\n"
+"   symbol."
+msgstr ""
+
+#: target:compiler/generic/primtype.lisp
+msgid ""
+"An a-list for mapping simple array element types to their\n"
+"  corresponding primitive types."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Slot is not constant, so cannot open code access."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "~S doesn't have a slot named ~S"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Too many indices for pointer deref: ~D"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element size."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element alignment."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Incorrect number of indices."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Element size unknown."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Element alignment unknown."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "~S not either a pointer or array type."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Info not constant; can't open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Local Alien Info isn't constant?"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Aliens of type ~S cannot be represented immediately."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "This should be dead-code eleminated."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "This shouldn't happen."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Alien type not constant; cannot open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid ""
+"Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n"
+"	    allocation of alien-value structure."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Type not constant at compile time; can't open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Can't tell function type at compile time."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Wrong number of arguments.  Expected ~D, got ~D."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Something is broken."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "No unique move-arg-vop for moves in SC ~S."
+msgstr ""
+
+#: target:compiler/ltv.lisp
+msgid ""
+"Arrange for FORM to be evaluated at load-time and use the value produced\n"
+"   as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant\n"
+"   object is guaranteed to never be modified, so it can be put in read-only\n"
+"   storage."
+msgstr ""
+
+#: target:compiler/ltv.lisp
+msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
+msgstr ""
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return value count mismatch prevents known return ~\n"
+"		       from these functions:~\n"
+"		       ~{~%  ~A~}"
+msgstr ""
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return type not fixed values, so can't use known return ~\n"
+"		      convention:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"Unable to check type assertion in unknown-values ~\n"
+"	                context:~% ~S"
+msgstr ""
+
+#: target:compiler/represent.lisp target:compiler/ir2tran.lisp
+#: target:compiler/ltn.lisp
+msgid "Neither CONT nor TN supplied."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "~S has :MORE results with :TRANSLATE."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the maximum number of possible optimization alternatives will be\n"
+"  mentioned in a particular efficiency note.  NIL means no limit."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the minumum cost difference between the chosen implementation and\n"
+"  the next alternative that justifies an efficiency note."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "This shouldn't happen!  Bug?"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Template guard failed."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Template is not safe, yet we were counting on it."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument types invalid."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument primitive types:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument type assertions:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Conditional in a non-conditional context."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Result types invalid."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "etc."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Unable to do ~A (cost ~D) because:"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Can't trust output type assertion under safe ~\n"
+"		       policy."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do ~A (cost ~D)."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do full call."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Recursive known function definition."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"Always perform stack clearing if non-NIL, independent of the\n"
+"compilation policy"
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"If non-NIL and the compilation policy allows, stack clearing is enabled."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid "~@<~2I~_~S ~_not found in ~_~S~:>"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Couldn't find REF?"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no obvious reason.~@\n"
+"	          Try again after recompiling the VM definition."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to the~@\n"
+"	        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@\n"
+"		~:[which cannot be coerced or loaded into the allowed SCs:~\n"
+"		~%  ~S~;~*~]~:[~;~@\n"
+"		Current cost info inconsistent with that in effect at compile ~\n"
+"		time.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no ~\n"
+"		             obvious reason."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n"
+"	        ~%  ~S~%Primitive type: ~S~@\n"
+"		SC restrictions:~%  ~S~@\n"
+"		~@[The primitive type disallows these loadable SCs:~%  ~S~%~]~\n"
+"		~@[No move VOPs are defined to coerce to these allowed SCs:~\n"
+"		~%  ~S~%~]~\n"
+"		~@[These move VOPs couldn't be used due to operand type ~\n"
+"		restrictions:~%  ~S~%~]~\n"
+"		~:[~;~@\n"
+"		Current cost info inconsistent with that in effect at compile ~\n"
+"		time.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n"
+"          ~S (SC ~S.)"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from constant ~\n"
+"	             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from alternate ~\n"
+"	             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to save SC ~S to alternate ~\n"
+"	             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "<return value>"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Couldn't fine op?  Bug!"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n"
+"	       The ~:R ~:[result~;argument~] of ~A."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
+msgstr ""
+
+#: target:compiler/generic/vm-tran.lisp
+msgid ""
+"Argument and result bit arrays not the same length:~\n"
+"	     	     ~%  ~S~%  ~S"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "Returns the number of bytes used by the code object header."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"The size of the Name'd SB in the currently compiled component.  Useful\n"
+"  mainly for finding the size for allocating stack frames."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in VOP's\n"
+"  function.  Returns NIL if no number stack frame was allocated."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in the\n"
+"  function designated by 2env.  Returns NIL if no number stack frame was\n"
+"  allocated."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN used for passing the return PC in a local call to the function"
+"\n"
+"  designated by 2env."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Set to NIL to inhibit assembly-level optimization.  For compiler debugging,\n"
+"  rather than policy control."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "In the ~A segment:~%"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "~|~%Assembly code for ~S~2%"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "Missing generator for ~S.~%"
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"This variable is bound to the format arguments when an error is signalled\n"
+"  by Barf or Burp."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Action taken by the Burp function when a possible compiler bug is detected.\n"
+"  One of :Warn, :Error or :None."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For\n"
+"  debugging use only.  Probably doesn't work on :COMPONENT TNs."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "~S already dumped?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Warning: dumping ~s as 0l0~%"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Unable to dump long-float"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Dumping reference to obsolete class: ~S"
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Unresolved forward reference."
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "#<Code Instruction Stream for ~S>"
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Writing ~D bytes to ~S would cause it to overflow."
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Writing another byte to ~S would cause it to overflow."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Fatal error, aborting evaluation."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong argument count, wanted ~D and got ~D."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong number of arguments passed -- ~S."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Function called with odd number of keyword arguments."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Unknown keyword argument -- ~S."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[PUSH: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "pushing ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "Attempt to pop empty eval stack."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "popping ~D --> ~S.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[EXTEND: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "extending to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "shrinking to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "setting top to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If the interpreted function cache has more functions than this come GC time,"
+"\n"
+"  then attempt to prune it according to\n"
+"  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If an interpreted function goes uncalled for more than this many GCs, then\n"
+"  it is eligible for flushing from the cache."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"Clear all entries in the eval function cache.  This allows the internal\n"
+"  representation of the functions to be reclaimed, and also lazily forces\n"
+"  macroexpansions to be recomputed."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown XOP ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown inline function: ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Can't find ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~|~%;;;; Byte component ~S~2%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid ";;; Functions:~%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~%;;;Disassembly:~2%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "<bogus index>"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Entry point, frame-size=~D~%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-local ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-arg ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-const ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-sys-const ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-int ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-neg-int ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-local ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-n ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]tail-call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]multiple-call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local tail-call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local multiple-call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "return, ~D vals"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "branch ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-true ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-false ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-eq ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "xop ~A~@[ ~D~]"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "inline ~A"
+msgstr ""
+
+#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp
+msgid "Malformed plist in doplist, odd number of elements."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "~@<~S is not a legal class name.~@:>"
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "No class named ~S."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "~S is not a legal class name."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid ""
+"Returns the PCL class metaobject named by SYMBOL. An error of type\n"
+"   SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n"
+"   is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid "Set the name of a compiled function object and return the function."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid ""
+"PCL debugging aid that breaks into the debugger each time\n"
+"`compile-lambda' is invoked."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid ""
+"If true (the default), then `compile-lambda' will try to silence\n"
+"the compiler as completely as possible.  Currently this means that\n"
+"`*compile-print*' will be bound to nil during compilation."
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid ""
+"~@<The declaration ~S is not understood by ~S. ~\n"
+"                               Please put ~S on one of the lists ~S, ~S, or "
+"~S. ~\n"
+"                               (Assuming it is a variable declarations "
+"without ~\n"
+"                               argument).~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access specifier ~s in ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access declaration ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile declaration ~s.~@:>"
+msgstr ""
+
+#: target:pcl/fin.lisp
+msgid ""
+"~@<Attempt to funcall a funcallable instance without first ~\n"
+"          setting its function.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~S is not a legal defclass option."
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The value of the ~s option (~s) is not a legal ~\n"
+"	        class name.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a legal slot specification.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<In the class definintion of ~s, the slot specification ~s ~\n"
+"                 is obsolete.  Convert it to ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a class in *early-class-definitions*.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<More than one early class defines a slot with the ~\n"
+"                    name ~S.  This can't work because the bootstrap ~\n"
+"                    object system doesn't know how to compute effective ~\n"
+"                    slots.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "Discard it."
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The defclass option ~S is not supported by ~\n"
+"                                 the bootstrap object system.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "Slot ~S not found in class ~S"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid ""
+"~@<Trying to load (or compile) PCL in an environment in which it ~\n"
+"            has already been loaded.  This doesn't work, you will have to ~\n"
+"            get a fresh lisp (reboot) and then load PCL.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "Try loading (or compiling) PCL anyways."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~@<~S is not a legal specializer type.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~@<~s is neither a type nor a specializer.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "Bad argument to type-class."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~s is not a type."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid ""
+"For class slots, the class defininig the slot.\n"
+"For inherited class slots, this is the superclass from which the slot\n"
+"was inherited."
+msgstr ""
+
+#: target:pcl/fngen.lisp
+msgid ""
+"Flush cached emf functions.  If GF is supplied, it should be a\n"
+"   generic function metaobject or the name of a generic function, and\n"
+"   this function flushes all cached emfs for the given generic\n"
+"   function.  If GF is not supplied, all cached emfs are flushed."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Wrapper ~S"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Unknown wrapper state"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<PCL cannot handle the specializer ~S ~\n"
+"                                (meta-specializer ~S).~@:>"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Line is reserved."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<Bad cache ~S: Value at location ~D is ~D ~\n"
+"                               lines from its home, limit is ~D.~@:>"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Attempt to fill a reserved cache line."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Transfering something into a reserved cache line."
+msgstr ""
+
+#: target:pcl/dlisp.lisp
+msgid "Every metatype is T."
+msgstr ""
+
+#: target:pcl/dlisp.lisp
+msgid "Can't do a slot reg for this metatype."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~a: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Invalid generic function parameter name ~a"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Optional and key parameters of generic functions ~\n"
+"                   may not have default values or supplied-p ~\n"
+"                   parameters: ~<~s~>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~s is not allowed in generic function lambda lists"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~~s: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "The option ~s appears more than once"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Declaration specifier ~s is not allowed"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Argument precedence order must list all ~\n"
+"                           required parameters and only those: ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Duplicate parameter names in argument ~\n"
+"                           precedence order: ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Special operators cannot be made generic functions"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Unsupported option ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "If true, allow inlining of methods in effective methods."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<Defining method ~s ~s ~s using inline slot access in a ~\n"
+"                   non-null lexical environment means that it cannot be ~\n"
+"                   automatically recompiled.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"The method-lambda argument to make-method-function, ~S,~\n"
+"            is not a lambda form"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Assignment to method parameter~p ~{~s~^, ~} ~\n"
+"                           might prevent CLOS optimizations"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Wrong number of args."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "1 or 2 args expected."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "1 arg expected."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The set of methods ~s applicable to argument~p ~\n"
+"                ~{~s~^, ~} to call-next-method is different from ~\n"
+"                the set of methods ~s applicable to the original ~\n"
+"                method argument~p ~{~s~^, ~}.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "When true, compile interpreted method functions."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~&~@<At the time the method with qualifiers ~S and ~\n"
+"               specializers ~S on the generic function ~S ~\n"
+"               was compiled, the method class for that generic function was "
+"~\n"
+"               ~S.  But, the method class is now ~S, this ~\n"
+"               may mean that this method was compiled improperly.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S already names an ordinary function or a macro.  ~\n"
+"	If you want to replace it with a generic function, you should remove ~\n"
+"        the existing definition beforehand.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<Discard the existing definition of ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The lambda-list ~S is incompatible with ~\n"
+"                      existing methods of ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~~@<Attempt to add the method ~~S to the generic ~\n"
+"                           function ~~S, but ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "more"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "fewer"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~A required arguments than the ~\n"
+"                 generic function"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~S optional arguments than the ~\n"
+"                 generic function"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method and generic function differ in whether ~\n"
+"                 they accept rest or keyword arguments"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method does not accept each of the keyword ~\n"
+"                   arguments ~S"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<The function ~S is not already defined.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<~S should be on the list ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"			 has not been set.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<No way to determine the lambda list~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The ~s argument (~S) was neither a class nor a ~\n"
+"                    symbol naming a class.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~S is not an early-method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get a funcallable instance."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get an early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get a funcallable instance."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get an early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Can't get early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<Qualifiers must be non-null atoms: ~s~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S used as a specializer, ~\n"
+"                             but is not the name of a class.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~S is not a legal specializer."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Set to true to activate the inline slot access optimization."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, check slot values against specified slot types."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, optimize slot access through slot reader/writer functions."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Cannot optimize slot access to"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not a standard class"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class doesn't contain a slot with name ~s"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Slot ~s is a class slot"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "There are non-standard accessors for slot ~s"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Slot ~s is not at the same location ~\n"
+"                               in the class and all of its subclasses"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Auto-compiling method ~s."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Methods may need to be recompiled for the changed ~\n"
+"                    class layout of"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not defined at compile time"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"~s has a method that is not a standard ~\n"
+"                                    slot accessor"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Methods of ~s access different slots"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid "~@<~S is not a standard-class.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                       does not have standard allocation.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                      does not have standard allocation.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<The wrapper for class ~S does not have ~\n"
+"                               the slot ~S.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp target:pcl/combin.lisp
+msgid "has more than one qualifier"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "has an invalid qualifier"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<~s was called outside the dynamic scope ~\n"
+"            of a method combination function (inside the body of ~\n"
+"            ~s or a method on the generic function ~s).~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "~@<~S used outside of a effective method form.~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<Invalid keyword argument~p ~{~s~^, ~}.  ~\n"
+"               Valid keywords are: ~{~s~^, ~}.~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "Invalid keyword argument ~s"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Cannot get standard value of slot ~s of class ~s ~\n"
+"                in object ~s~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"Precompute effective methods at method load time if the generic\n"
+"   function has less than this number of methods.  If zero,\n"
+"   no effective methods are precomputed at method load time."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<The function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~<The function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Vicious metacircle:  The computation of an ~\n"
+"	   effective method of ~s for arguments of types ~s uses ~\n"
+"	   the effective method being computed.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "This can't happen."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<~s cannot handle the second argument ~s.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&There are ~4d dfuns of type ~s"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&DFUN constructor caching is ~A."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "enabled"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "disabled"
+msgstr ""
+
+#: target:pcl/ctor.lisp
+msgid "~@<Not a property list: ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"                 has not been set.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Slot allocation ~S is not supported ~\n"
+"                          in bootstrap.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "The standard method combination."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"In *built-in-classes*: ~S has ~S as a superclass,~%~\n"
+"                but ~S is not itself a class in *built-in-classes*."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "~@<~S is not the name of a class.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<No matching method for the generic function ~\n"
+"                             ~S, when called with arguments ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "Retry call to ~S."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "~@<In method ~S: No next method for arguments ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Generic function ~S: ~\n"
+"                             No primary method given arguments ~S~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The method ~s has invalid qualifiers for method ~\n"
+"              combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The methods ~{~s~^, ~} have invalid qualifiers for ~\n"
+"              method combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "~@<The slot ~S is unbound in the object ~S.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is not a symbol and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is a keyword and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is a constant and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default "
+"~s ~\n"
+"                           method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s allocation, ~\n"
+"               so it can't be written by the default ~s method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default "
+"~s ~\n"
+"			   method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "Structure slots cannot be unbound."
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "Condition slots cannot be unbound."
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~~@<When attempting to ~A, the slot ~S is missing ~\n"
+"                from the object ~S.~~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "read the slot's value (slot-value)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "set the slot's value to ~S (setf of slot-value)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "test to see if slot is bound (slot-boundp)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "make the slot unbound (slot-makunbound)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "~@<Can't allocate an instance of class ~S.~@:>"
+msgstr ""
+
+#: target:pcl/init.lisp
+msgid ""
+"~@<Invalid initialization argument~P ~2I~_~\n"
+"                         ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
+msgstr ""
+
+#: target:pcl/seal.lisp
+msgid "~@<Invalid sealing specifier ~s.~@:>"
+msgstr ""
+
+#: target:pcl/seal.lisp
+msgid "~s is sealed wrt ~a"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"~~@<While computing the class precedence list ~\n"
+"                of the class ~A: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "named ~S"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "The class ~A is a forward referenced class"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"The class ~A is a forward referenced class. ~\n"
+"                      The class ~A is ~A."
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "a direct superclass of the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"reached from the class ~A by following~@\n"
+"                                  the direct superclass chain through: ~A~\n"
+"                                  ~%  ending at the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "~{~%  the class ~A,~}"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"It is not possible to compute the class precedence list because ~\n"
+"       there ~A in the local precedence relations.  ~\n"
+"       ~A because:~{~%  ~A~}."
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "are circularities"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "is a circularity"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "These arise"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "This arises"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A appears in the supers of the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A follows the class ~A in the supers of the class ~A"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "Instance"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<Structure slots must have ~s allocation.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<~S doesn't seem to have a method function.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Attempt to reinitialize the method ~S.  ~\n"
+"          Method objects cannot be reinitialized.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<When initializing the method ~S, ~\n"
+"                   the ~S initialization argument was ~S, ~\n"
+"                   which ~A.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a string or NULL"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a function"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "Contains ~S which ~A"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a non-null atom"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is neither a class object nor an eql specializer"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "The value of the ~s initarg, ~s, ~A."
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~~@<When initializing the generic-function ~S: ~\n"
+"                               The ~S initialization argument was ~A.  ~\n"
+"                               It must be ~A.~~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<~S does not name a generic function.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<There is no method for the generic function ~S ~\n"
+"                   matching argument specifiers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"           specializers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"            specializers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<The generic function ~s takes ~d required argument~p.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<The method ~S is already part of the generic ~\n"
+"            function ~S.  It can't be added to another generic ~\n"
+"            function until it is removed from the first one.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                        the standard method combination.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                          the method combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<Generic function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "In get-accessor-method-function."
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "The key for the last case arg to mcase was not T."
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<Invalid options to a short method combination type.  ~\n"
+"            The method combination type ~S accepts one option which ~\n"
+"            must be either ~s or ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<The method ~S ~A.  ~\n"
+"                    The method combination type ~S was defined with the ~\n"
+"                    short form of ~s and so requires all methods have ~\n"
+"		    either the single qualifier ~S or the single qualifier ~\n"
+"		    ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "has no qualifiers"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "has an illegal qualifier"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<More than one method of type ~S ~\n"
+"                                     with the same specializers.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "No ~S methods."
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<In the method group specifier ~S, ~\n"
+"                   ~S isn't a valid qualifier pattern.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching one of the patterns: ~{~S, ~} ~S"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching the pattern: ~S"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "Invalid parameter specifier: ~s"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~%~S is an instance of class ~S:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :INSTANCE allocation:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :CLASS allocation:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have allocation as shown:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~A is a generic function.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its lambda-list is:~%  ~S~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Generic function documentation:~%  ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its methods are:~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "    Method documentation: ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its proper name is ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its name is ~S, but this is not a proper name.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It has no name (the name is NIL).~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid ""
+"The direct superclasses are: ~:S, and the direct~%~\n"
+"           subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~\n"
+"           The class precedence list is:~%~S~%~\n"
+"           There are ~D methods specialized for this class."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its direct slots are:~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "  ~a, documentation ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~S is a ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It has ~D internal and ~D external symbols (~D total).~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It uses the packages ~{~S~^, ~}.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It is used by the packages ~{~S~^, ~}.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~S is an ~a hash table."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its size is ~d buckets."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-size is ~d."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-threshold is ~d."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Default ~s method for ~s called.~@>"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "Invalid function name ~s"
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "~@<~S is not the name of a structure type.~@:>"
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Returns a type specifier for the kind of object returned by the\n"
+"  Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n"
+"  which returns CHARACTER."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Return true if Stream is not closed.  A default method is provided\n"
+"  by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n"
+"  called on the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but\n"
+"  inquiries may still be made.  If :Abort is non-nil, an attempt is made\n"
+"  to clean up the side effects of having created the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This reads one character from the stream.  It returns either a\n"
+"  character object, or the symbol :EOF if the stream is at end-of-file.\n"
+"  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM must define a\n"
+"  method for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n"
+"  Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n"
+"  must define a method for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used to implement READ-CHAR-NO-HANG.  It returns either a\n"
+"  character, or NIL if no input is currently available, or :EOF if\n"
+"  end-of-file is reached.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-INPUT-STREAM simply calls STREAM-READ-CHAR; this\n"
+"  is sufficient for file streams, but interactive streams should define\n"
+"  their own method."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n"
+"  It returns either a character or :EOF.  The default method calls\n"
+"  STREAM-READ-CHAR and STREAM-UNREAD-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by LISTEN.  Returns true or false.  The default method uses\n"
+"  STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should \n"
+"  define their own method since it will usually be trivial and will\n"
+"  always be more efficient than the default method."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-LINE.  A string is returned as the first value.  The\n"
+"  second value is true if the string was terminated by end-of-file\n"
+"  instead of the end of a line.  The default method uses repeated\n"
+"  calls to STREAM-READ-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements CLEAR-INPUT for the stream, returning NIL.  The default\n"
+"  method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements READ-SEQUENCE for the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes character to the stream and returns the character.  Every\n"
+"  subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n"
+"  defined for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This function returns the column number where the next character\n"
+"  will be written, or NIL if that is not meaningful for this stream.\n"
+"  The first column on a line is numbered 0.  This function is used in\n"
+"  the implementation of PPRINT and the FORMAT ~T directive.  For every\n"
+"  character output stream class that is defined, a method must be\n"
+"  defined for this function, although it is permissible for it to\n"
+"  always return NIL."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Return the stream line length or Nil."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is a predicate which returns T if the stream is positioned at\n"
+"  the beginning of a line, else NIL.  It is permissible to always return\n"
+"  NIL.  This is used in the implementation of FRESH-LINE.  Note that\n"
+"  while a value of 0 from STREAM-LINE-COLUMN also indicates the\n"
+"  beginning of a line, there are cases where STREAM-START-LINE-P can be\n"
+"  meaningfully implemented although STREAM-LINE-COLUMN can't be.  For\n"
+"  example, for a window using variable-width characters, the column\n"
+"  number isn't very meaningful, but the beginning of the line does have\n"
+"  a clear meaning.  The default method for STREAM-START-LINE-P on class\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses STREAM-LINE-COLUMN, so if\n"
+"  that is defined to return NIL, then a method should be provided for\n"
+"  either STREAM-START-LINE-P or STREAM-FRESH-LINE."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used by WRITE-STRING.  It writes the string to the stream,\n"
+"  optionally delimited by start and end, which default to 0 and NIL.\n"
+"  The string argument is returned.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses repeated calls to\n"
+"  STREAM-WRITE-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes an end of line, as for TERPRI.  Returns NIL.  The default\n"
+"  method does (STREAM-WRITE-CHAR stream #NEWLINE)."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the\n"
+"  begining of a line.  Returns T if it output a new line, nil\n"
+"  otherwise. Used by FRESH-LINE. The default method uses\n"
+"  STREAM-START-LINE-P and STREAM-TERPRI."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached\n"
+"  its destination, and only then returns false. Implements\n"
+"  FINISH-OUTPUT.  The default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to force any buffered output to be sent. Implements\n"
+"  FORCE-OUTPUT.  The default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Clears the given output Stream. Implements CLEAR-OUTPUT.  The\n"
+"  default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes enough blank space so that the next character will be\n"
+"  written at the specified column.  Returns true if the operation is\n"
+"  successful, or NIL if it is not supported for this stream.  This is\n"
+"  intended for use by by PPRINT and FORMAT ~T.  The default method uses\n"
+"  STREAM-LINE-COLUMN and repeated calls to STREAM-WRITE-CHAR with a\n"
+"  #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements WRITE-SEQUENCE for the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-BYTE; returns either an integer, or the symbol :EOF\n"
+"  if the stream is at end-of-file."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements WRITE-BYTE; writes the integer to the stream and\n"
+"  returns the integer as the result."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "    Gray Streams Protocol Support"
+msgstr ""
+
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..47b26745b35310accd57a9e7f0371545c88ce282
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
@@ -0,0 +1,34 @@
+# @ cmucl-bsd-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
+"oftwaresay."
+
+#: target:code/bsd-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
+
+#: target:code/bsd-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr "Etpagesizegay ailedfay: ~Away"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..361f076283f2b794674634605053f101436b5fe6
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
@@ -0,0 +1,30 @@
+# @ cmucl-linux-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/linux-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
+"oftwaresay."
+
+#: target:code/linux-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
+
+#: target:code/linux-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr "Etpagesizegay ailedfay: ~Away"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-mp.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-mp.po
new file mode 100644
index 0000000000000000000000000000000000000000..213c72508f972652df5196345030aad2bf7f95ae
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-mp.po
@@ -0,0 +1,439 @@
+# @ cmucl-mp
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/multi-proc.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:code/multi-proc.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr "Yscallsay ~Away ailedfay: ~Away"
+
+#: target:code/multi-proc.lisp
+msgid "Return the real time in seconds."
+msgstr "Eturnray ethay ealray imetay inway econdssay."
+
+#: target:code/multi-proc.lisp
+msgid "Return the run time in seconds"
+msgstr "Eturnray ethay unray imetay inway econdssay"
+
+#: target:code/multi-proc.lisp
+msgid "Return the process state which is either Run, Killed, or a wait reason."
+msgstr ""
+"Eturnray ethay ocesspray tatesay ichwhay isway eitherway Unray, Illedkay, "
+"orway away aitway easonray."
+
+#: target:code/multi-proc.lisp
+msgid "Returns the current process."
+msgstr "Eturnsray ethay urrentcay ocesspray."
+
+#: target:code/multi-proc.lisp
+msgid "A list of all alive processes."
+msgstr "Away istlay ofway allway aliveway ocessespray."
+
+#: target:code/multi-proc.lisp
+msgid "Return a list of all the live processes."
+msgstr "Eturnray away istlay ofway allway ethay ivelay ocessespray."
+
+#: target:code/multi-proc.lisp
+msgid "Execute the body the scheduling disabled."
+msgstr "Executeway ethay odybay ethay edulingschay isabledday."
+
+#: target:code/multi-proc.lisp
+msgid "Increaments the reference by delta in a single atomic operation"
+msgstr ""
+"Increamentsway ethay eferenceray ybay eltaday inway away inglesay atomicway "
+"operationway"
+
+#: target:code/multi-proc.lisp
+msgid "Decrements the reference by delta in a single atomic operation"
+msgstr ""
+"Ecrementsday ethay eferenceray ybay eltaday inway away inglesay atomicway "
+"operationway"
+
+#: target:code/multi-proc.lisp
+msgid "Atomically push object onto place."
+msgstr "Atomicallyway ushpay objectway ontoway aceplay."
+
+#: target:code/multi-proc.lisp
+msgid "Atomically pop place."
+msgstr "Atomicallyway oppay aceplay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Make a process which will run FUNCTION when it starts up.  By\n"
+"  default the process is created in a runnable (active) state.\n"
+"  If FUNCTION is NIL, the process is started in a killed state; it may\n"
+"  be restarted later with process-preset.\n"
+"\n"
+"  :NAME\n"
+"\tA name for the process displayed in process listings.\n"
+"\n"
+"  :RUN-REASONS\n"
+"\tInitial value for process-run-reasons; defaults to (:ENABLE).  A\n"
+"\tprocess needs a at least one run reason to be runnable.  Together with\n"
+"\tarrest reasons, run reasons provide an alternative to process-wait for\n"
+"\tcontroling whether or not a process is runnable.  To get the default\n"
+"\tbehavior of MAKE-PROCESS in Allegro Common Lisp, which is to create a\n"
+"\tprocess which is active but not runnable, initialize RUN-REASONS to\n"
+"\tNIL.\n"
+"\n"
+"  :ARREST-REASONS\n"
+"\tInitial value for process-arrest-reasons; defaults to NIL.  A\n"
+"\tprocess must have no arrest reasons in order to be runnable.\n"
+"\n"
+"  :INITIAL-BINDINGS\n"
+"\tAn alist of initial special bindings for the process.  At\n"
+"\tstartup the new process has a fresh set of special bindings\n"
+"\twith a default binding of *package* setup to the CL-USER\n"
+"\tpackage.  INITIAL-BINDINGS specifies additional bindings for\n"
+"\tthe process.  The cdr of each alist element is evaluated in\n"
+"\tthe fresh dynamic environment and then bound to the car of the\n"
+"\telement."
+msgstr ""
+"Akemay away ocesspray ichwhay illway unray FUNCTION enwhay itway tartssay "
+"upway.  Ybay\n"
+"  efaultday ethay ocesspray isway eatedcray inway away unnableray "
+"(activeway) tatesay.\n"
+"  Ifway FUNCTION isway NIL, ethay ocesspray isway tartedsay inway away "
+"illedkay tatesay; itway aymay\n"
+"  ebay estartedray aterlay ithway ocesspray-esetpray.\n"
+"\n"
+"  :NAME\n"
+"\tAway amenay orfay ethay ocesspray isplayedday inway ocesspray istingslay.\n"
+"\n"
+"  :RUN-REASONS\n"
+"\tInitialway aluevay orfay ocesspray-unray-easonsray; efaultsday otay (:"
+"ENABLE).  Away\n"
+"\tocesspray eedsnay away atway eastlay oneway unray easonray otay ebay "
+"unnableray.  Ogethertay ithway\n"
+"\tarrestway easonsray, unray easonsray ovidepray anway alternativeway otay "
+"ocesspray-aitway orfay\n"
+"\tontrolingcay etherwhay orway otnay away ocesspray isway unnableray.  Otay "
+"etgay ethay efaultday\n"
+"\tehaviorbay ofway MAKE-PROCESS inway Allegroway Ommoncay Isplay, ichwhay "
+"isway otay eatecray away\n"
+"\tocesspray ichwhay isway activeway utbay otnay unnableray, initializeway "
+"RUN-REASONS otay\n"
+"\tNIL.\n"
+"\n"
+"  :ARREST-REASONS\n"
+"\tInitialway aluevay orfay ocesspray-arrestway-easonsray; efaultsday otay "
+"NIL.  Away\n"
+"\tocesspray ustmay avehay onay arrestway easonsray inway orderway otay ebay "
+"unnableray.\n"
+"\n"
+"  :INITIAL-BINDINGS\n"
+"\tAnway alistway ofway initialway ecialspay indingsbay orfay ethay "
+"ocesspray.  Atway\n"
+"\ttartupsay ethay ewnay ocesspray ashay away eshfray etsay ofway ecialspay "
+"indingsbay\n"
+"\tithway away efaultday indingbay ofway *package* etupsay otay ethay CL-"
+"USER\n"
+"\tackagepay.  INITIAL-BINDINGS ecifiesspay additionalway indingsbay orfay\n"
+"\tethay ocesspray.  Ethay drcay ofway eachway alistway elementway isway "
+"evaluatedway inway\n"
+"\tethay eshfray ynamicday environmentway andway enthay oundbay otay ethay "
+"arcay ofway ethay\n"
+"\telementway."
+
+#: target:code/multi-proc.lisp
+msgid "Interrupt process and cause it to evaluate function."
+msgstr ""
+"Interruptway ocesspray andway ausecay itway otay evaluateway unctionfay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Destroy a process. The process is sent a interrupt which throws to\n"
+"  the end of the process allowing it to unwind gracefully."
+msgstr ""
+"Estroyday away ocesspray. Ethay ocesspray isway entsay away interruptway "
+"ichwhay rowsthay otay\n"
+"  ethay endway ofway ethay ocesspray allowingway itway otay unwindway "
+"acefullygray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process by unwinding it to its initial state and calling its\n"
+"  initial function."
+msgstr ""
+"Estartray ocesspray ybay unwindingway itway otay itsway initialway tatesay "
+"andway allingcay itsway\n"
+"  initialway unctionfay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process, unwinding it to its initial state and calls\n"
+"  function with args."
+msgstr ""
+"Estartray ocesspray, unwindingway itway otay itsway initialway tatesay "
+"andway allscay\n"
+"  unctionfay ithway argsway."
+
+#: target:code/multi-proc.lisp
+msgid "Disable process from being runnable until enabled."
+msgstr "Isableday ocesspray omfray eingbay unnableray untilway enabledway."
+
+#: target:code/multi-proc.lisp
+msgid "Allow process to become runnable again after it has been disabled."
+msgstr ""
+"Allowway ocesspray otay ecomebay unnableray againway afterway itway ashay "
+"eenbay isabledday."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True. Processes\n"
+"  can only call process-wait when scheduling is enabled, and the predicate\n"
+"  can not call process-wait. Since the predicate may be evaluated may\n"
+"  times by the scheduler it should be relative fast native compiled code.\n"
+"  The single True predicate value is returned."
+msgstr ""
+"Ausescay ethay ocesspray otay aitway untilway edicatepray eturnsray Uetray. "
+"Ocessespray\n"
+"  ancay onlyway allcay ocesspray-aitway enwhay edulingschay isway "
+"enabledway, andway ethay edicatepray\n"
+"  ancay otnay allcay ocesspray-aitway. Incesay ethay edicatepray aymay ebay "
+"evaluatedway aymay\n"
+"  imestay ybay ethay edulerschay itway ouldshay ebay elativeray astfay "
+"ativenay ompiledcay odecay.\n"
+"  Ethay inglesay Uetray edicatepray aluevay isway eturnedray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True, or the\n"
+"  number of seconds specified by timeout has elapsed. The timeout may\n"
+"  be a fixnum or a float in seconds.  The single True predicate value is\n"
+"  returned, or NIL if the timeout was reached."
+msgstr ""
+"Ausescay ethay ocesspray otay aitway untilway edicatepray eturnsray Uetray, "
+"orway ethay\n"
+"  umbernay ofway econdssay ecifiedspay ybay imeouttay ashay elapsedway. "
+"Ethay imeouttay aymay\n"
+"  ebay away ixnumfay orway away oatflay inway econdssay.  Ethay inglesay "
+"Uetray edicatepray aluevay isway\n"
+"  eturnedray, orway NIL ifway ethay imeouttay asway eachedray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Try to gracefully destroy all the processes giving them some\n"
+"  chance to unwinding, before shutting down multi-processing. This is\n"
+"  currently necessary before a purify and is performed before a save-lisp.\n"
+"  Multi-processing can be restarted by calling init-multi-processing."
+msgstr ""
+"Ytray otay acefullygray estroyday allway ethay ocessespray ivinggay emthay "
+"omesay\n"
+"  ancechay otay unwindingway, eforebay uttingshay ownday ultimay-"
+"ocessingpray. Isthay isway\n"
+"  urrentlycay ecessarynay eforebay away urifypay andway isway erformedpay "
+"eforebay away avesay-isplay.\n"
+"  Ultimay-ocessingpray ancay ebay estartedray ybay allingcay initway-ultimay-"
+"ocessingpray."
+
+#: target:code/multi-proc.lisp
+msgid "Destroyed ~d process; remaining ~d~%"
+msgid_plural "Destroyed ~d processes; remaining ~d~%"
+msgstr[0] "Estroyedday ~d ocesspray; emainingray ~d~%"
+msgstr[1] "Estroyedday ~d ocessespray; emainingray ~d~%"
+
+#: target:code/multi-proc.lisp
+msgid ""
+"An idle loop to be run by the initial process. The select based event\n"
+"  server is called with a timeout calculated from the minimum of the\n"
+"  *idle-loop-timeout* and the time to the next process wait timeout.\n"
+"  To avoid this delay when there are runnable processes the *idle-process*\n"
+"  should be setup to the *initial-process*. If one of the processes quits\n"
+"  by throwing to %end-of-the-world then *quitting-lisp* will have been\n"
+"  set to the exit value which is noted by the idle loop which tries to\n"
+"  exit gracefully destroying all the processes and giving them a chance\n"
+"  to unwind."
+msgstr ""
+"Anway idleway ooplay otay ebay unray ybay ethay initialway ocesspray. Ethay "
+"electsay asedbay eventway\n"
+"  erversay isway alledcay ithway away imeouttay alculatedcay omfray ethay "
+"inimummay ofway ethay\n"
+"  *idle-loop-timeout* andway ethay imetay otay ethay extnay ocesspray aitway "
+"imeouttay.\n"
+"  Otay avoidway isthay elayday enwhay erethay areway unnableray ocessespray "
+"ethay *idle-process*\n"
+"  ouldshay ebay etupsay otay ethay *initial-process*. Ifway oneway ofway "
+"ethay ocessespray itsquay\n"
+"  ybay rowingthay otay %endway-ofway-ethay-orldway enthay *quitting-lisp* "
+"illway avehay eenbay\n"
+"  etsay otay ethay exitway aluevay ichwhay isway otednay ybay ethay idleway "
+"ooplay ichwhay iestray otay\n"
+"  exitway acefullygray estroyingday allway ethay ocessespray andway ivinggay "
+"emthay away ancechay\n"
+"  otay unwindway."
+
+#: target:code/multi-proc.lisp
+msgid "Allow other processes to run."
+msgstr "Allowway otherway ocessespray otay unray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued real time elapsed while the given process was\n"
+"  scheduled. The returned time is a double-float in seconds."
+msgstr ""
+"Eturnray ethay accruedway ealray imetay elapsedway ilewhay ethay ivengay "
+"ocesspray asway\n"
+"  eduledschay. Ethay eturnedray imetay isway away oubleday-oatflay inway "
+"econdssay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued run time elapsed for the given process. The returned\n"
+"  time is a double-float in seconds."
+msgstr ""
+"Eturnray ethay accruedway unray imetay elapsedway orfay ethay ivengay "
+"ocesspray. Ethay eturnedray\n"
+"  imetay isway away oubleday-oatflay inway econdssay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the real time elapsed since the given process was last\n"
+"  descheduled. The returned time is a double-float in seconds."
+msgstr ""
+"Eturnray ethay ealray imetay elapsedway incesay ethay ivengay ocesspray "
+"asway astlay\n"
+"  escheduledday. Ethay eturnedray imetay isway away oubleday-oatflay inway "
+"econdssay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Start a regular SIGALRM interrupt which calls process-yield. An optional\n"
+"  time in seconds and micro seconds may be provided. Note that CMUCL code\n"
+"  base is not too interrupt safe so this may cause problems."
+msgstr ""
+"Tartsay away egularray SIGALRM interruptway ichwhay allscay ocesspray-"
+"ieldyay. Anway optionalway\n"
+"  imetay inway econdssay andway icromay econdssay aymay ebay ovidedpray. "
+"Otenay atthay CMUCL odecay\n"
+"  asebay isway otnay ootay interruptway afesay osay isthay aymay ausecay "
+"oblemspray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n"
+"  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds "
+"to\n"
+"  wait before giving up and returing NIL."
+msgstr ""
+"Aitway untilway FD isway usableway orfay DIRECTION andway eturnray Uetray. "
+"DIRECTION ouldshay ebay\n"
+"  eitherway :INPUT orway :OUTPUT. TIMEOUT, ifway uppliedsay, isway ethay "
+"umbernay ofway econdssay otay\n"
+"  aitway eforebay ivinggay upway andway eturingray NIL."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+"Isthay unctionfay ausescay executionway otay ebay uspendedsay orfay N "
+"econdssay.  N aymay\n"
+"  ebay anyway onnay-egativenay, onnay-omplexcay umbernay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Executes body and returns the values of the last form in body. However, if\n"
+"  the execution takes longer than timeout seconds, abort it and evaluate\n"
+"  timeout-forms, returning the values of last form."
+msgstr ""
+"Executesway odybay andway eturnsray ethay aluesvay ofway ethay astlay ormfay "
+"inway odybay. Oweverhay, ifway\n"
+"  ethay executionway akestay ongerlay anthay imeouttay econdssay, abortway "
+"itway andway evaluateway\n"
+"  imeouttay-ormsfay, eturningray ethay aluesvay ofway astlay ormfay."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Show the all the processes, their whostate, and state. If the optional\n"
+"  verbose argument is true then the run, real, and idle times are also\n"
+"  shown."
+msgstr ""
+"Owshay ethay allway ethay ocessespray, eirthay ostatewhay, andway tatesay. "
+"Ifway ethay optionalway\n"
+"  erbosevay argumentway isway uetray enthay ethay unray, ealray, andway "
+"idleway imestay areway alsoway\n"
+"  ownshay."
+
+#: target:code/multi-proc.lisp
+msgid "Top-level READ-EVAL-PRINT loop for processes."
+msgstr "Optay-evellay READ-EVAL-PRINT ooplay orfay ocessespray."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Enter the idle loop, starting a new process to run the top level loop.\n"
+"  The awaking of sleeping processes is timed better with the idle loop "
+"process\n"
+"  running, and starting a new process for the top level loop supports a\n"
+"  simultaneous interactive session. Such an initialisation will likely be "
+"the\n"
+"  default when there is better MP debug support etc."
+msgstr ""
+"Enterway ethay idleway ooplay, tartingsay away ewnay ocesspray otay unray "
+"ethay optay evellay ooplay.\n"
+"  Ethay awakingway ofway eepingslay ocessespray isway imedtay etterbay "
+"ithway ethay idleway ooplay ocesspray\n"
+"  unningray, andway tartingsay away ewnay ocesspray orfay ethay optay "
+"evellay ooplay upportssay away\n"
+"  imultaneoussay interactiveway essionsay. Uchsay anway initialisationway "
+"illway ikelylay ebay ethay\n"
+"  efaultday enwhay erethay isway etterbay MP ebugday upportsay etcway."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Create a Lisp connection listener, listening on a TCP port for new\n"
+"  connections and starting a new top-level loop for each. If a password\n"
+"  is not given then one will be generated and reported.  A search is\n"
+"  performed for the first free port starting at the given port which\n"
+"  defaults to 1025."
+msgstr ""
+"Eatecray away Isplay onnectioncay istenerlay, isteninglay onway away TCP "
+"ortpay orfay ewnay\n"
+"  onnectionscay andway tartingsay away ewnay optay-evellay ooplay orfay "
+"eachway. Ifway away asswordpay\n"
+"  isway otnay ivengay enthay oneway illway ebay eneratedgay andway "
+"eportedray.  Away earchsay isway\n"
+"  erformedpay orfay ethay irstfay eefray ortpay tartingsay atway ethay "
+"ivengay ortpay ichwhay\n"
+"  efaultsday otay 1025."
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Execute the body with the lock held. If the lock is held by another\n"
+"  process then the current process waits until the lock is released or\n"
+"  an optional timeout is reached. The optional wait timeout is a time in\n"
+"  seconds acceptable to process-wait-with-timeout.  The results of the\n"
+"  body are return upon success and NIL is return if the timeout is\n"
+"  reached. When the wait key is NIL and the lock is held by another\n"
+"  process then NIL is return immediately without processing the body."
+msgstr ""
+"Executeway ethay odybay ithway ethay ocklay eldhay. Ifway ethay ocklay isway "
+"eldhay ybay anotherway\n"
+"  ocesspray enthay ethay urrentcay ocesspray aitsway untilway ethay ocklay "
+"isway eleasedray orway\n"
+"  anway optionalway imeouttay isway eachedray. Ethay optionalway aitway "
+"imeouttay isway away imetay inway\n"
+"  econdssay acceptableway otay ocesspray-aitway-ithway-imeouttay.  Ethay "
+"esultsray ofway ethay\n"
+"  odybay areway eturnray uponway uccesssay andway NIL isway eturnray ifway "
+"ethay imeouttay isway\n"
+"  eachedray. Enwhay ethay aitway eykay isway NIL andway ethay ocklay isway "
+"eldhay ybay anotherway\n"
+"  ocesspray enthay NIL isway eturnray immediatelyway ithoutway ocessingpray "
+"ethay odybay."
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po
new file mode 100644
index 0000000000000000000000000000000000000000..46dc84b196fe365c52e114ab6e229718b83361bf
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po
@@ -0,0 +1,42 @@
+# @ cmucl-sparc-svr4
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay ypetay ofway ethay ocallay "
+"achinemay."
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay ersionvay ofway ethay ocallay "
+"achinemay."
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr "Unalignedway instructionway?  offsetway=#x~X."
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr "Ancay't ealday ithway CALL ixupsfay, etyay."
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
+"XRS ID invalidway utbay attemptingway otay accessway oubleday-oatflay "
+"egisterray ~d!"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po
new file mode 100644
index 0000000000000000000000000000000000000000..22427ae1995854de9484b4913dd4d139718903c4
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po
@@ -0,0 +1,831 @@
+# @ cmucl-sparc-vm
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+"Umbernay ofway itsbay erpay ordway erewhay away ordway oldshay oneway isplay "
+"escriptorday."
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+"Umbernay ofway itsbay erpay ytebay erewhay away ytebay isway ethay "
+"mallestsay addressableway objectway."
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr "Umbernay ofway itsbay eedednay otay epresentray away aracterchay"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr "Umbernay ofway ytesbay eedednay otay epresentray away aracterchay"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+"Umbernay ofway itsbay otay iftshay etweenbay ordway addressesway andway "
+"ytebay addressesway."
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes in a word."
+msgstr "Umbernay ofway ytesbay inway away ordway."
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+"Umbernay ofway itsbay atway ethay owlay endway ofway away ointerpay usedway "
+"orfay ypetay informationway."
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr "Askmay otay extractway ethay owlay agtay itsbay omfray away ointerpay."
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+"Exclusiveway upperway oundbay onway ethay aluevay ofway ethay owlay agtay "
+"itsbay omfray away\n"
+"  ointerpay."
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of tag bits used for a fixnum"
+msgstr "Umbernay ofway agtay itsbay usedway orfay away ixnumfay"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to get the fixnum tag"
+msgstr "Askmay otay etgay ethay ixnumfay agtay"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Maximum number of bits in a positive fixnum"
+msgstr "Aximummay umbernay ofway itsbay inway away ositivepay ixnumfay"
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a register."
+msgstr "~S isnway't away egisterray."
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a floating-point register."
+msgstr "~S isnway't away oatingflay-ointpay egisterray."
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"If non-NIL, print registers using the Lisp register names.\n"
+"Otherwise, use the Sparc register names"
+msgstr ""
+"Ifway onnay-NIL, intpray egistersray usingway ethay Isplay egisterray "
+"amesnay.\n"
+"Otherwiseway, useway ethay Arcspay egisterray amesnay"
+
+#: target:assembly/sparc/arith.lisp target:assembly/sparc/array.lisp
+#: target:assembly/sparc/assem-rtns.lisp target:compiler/sparc/type-vops.lisp
+#: target:compiler/sparc/pred.lisp target:compiler/sparc/array.lisp
+#: target:compiler/sparc/print.lisp target:compiler/sparc/nlx.lisp
+#: target:compiler/sparc/call.lisp target:compiler/sparc/alloc.lisp
+#: target:compiler/sparc/values.lisp target:compiler/sparc/cell.lisp
+#: target:compiler/sparc/c-call.lisp target:compiler/sparc/debug.lisp
+#: target:compiler/sparc/subprim.lisp target:compiler/sparc/arith.lisp
+#: target:compiler/sparc/static-fn.lisp target:compiler/sparc/memory.lisp
+#: target:compiler/sparc/char.lisp target:compiler/sparc/system.lisp
+#: target:compiler/sparc/sap.lisp target:compiler/sparc/float.lisp
+#: target:compiler/sparc/move.lisp target:compiler/sparc/insts.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
+
+#: target:compiler/sparc/insts.lisp
+msgid "The Lisp names for the Sparc integer registers"
+msgstr "Ethay Isplay amesnay orfay ethay Arcspay integerway egistersray"
+
+#: target:compiler/sparc/insts.lisp
+msgid "The standard names for the Sparc integer registers"
+msgstr "Ethay tandardsay amesnay orfay ethay Arcspay integerway egistersray"
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"An alist for the disassembler indicating the target register and\n"
+"value used in a SETHI instruction.  This is used to make annotations\n"
+"about function addresses and register values."
+msgstr ""
+"Anway alistway orfay ethay isassemblerday indicatingway ethay argettay "
+"egisterray andway\n"
+"aluevay usedway inway away SETHI instructionway.  Isthay isway usedway otay "
+"akemay annotationsway\n"
+"aboutway unctionfay addressesway andway egisterray aluesvay."
+
+#: target:compiler/sparc/insts.lisp
+msgid "Set pseudo-atomic flag"
+msgstr "Etsay seudopay-atomicway agflay"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic"
+msgstr "Esetray seudopay-atomicway"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating ~D bytes"
+msgstr "Allocatingway ~D ytesbay"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating bytes"
+msgstr "Allocatingway ytesbay"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Header word ~A, size ~D?"
+msgstr "Eaderhay ordway ~Away, izesay ~D?"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic flag"
+msgstr "Esetray seudopay-atomicway agflay"
+
+#: target:compiler/sparc/insts.lisp
+msgid "pseudo-atomic interrupted?"
+msgstr "seudopay-atomicway interruptedway?"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch condition: ~S~%Must be one of: ~S"
+msgstr "Unknownway anchbray onditioncay: ~S~%Ustmay ebay oneway ofway: ~S"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown fp-branch condition: ~S~%Must be one of: ~S"
+msgstr "Unknownway pfay-anchbray onditioncay: ~S~%Ustmay ebay oneway ofway: ~S"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown integer condition register:  ~S~%"
+msgstr "Unknownway integerway onditioncay egisterray:  ~S~%"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
+msgstr "Unknownway anchbray edictionpray:  ~S~%Ustmay ebay oneway ofway: ~S~%"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown conditional move condition register:  ~S~%"
+msgstr "Unknownway onditionalcay ovemay onditioncay egisterray:  ~S~%"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown register condition:  ~S~%"
+msgstr "Unknownway egisterray onditioncay:  ~S~%"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Fixups aren't allowed."
+msgstr "Ixupsfay arenway't allowedway."
+
+#: target:compiler/sparc/insts.lisp
+msgid "Pseudo atomic interrupted trap?"
+msgstr "Seudopay atomicway interruptedway aptray?"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocation trap"
+msgstr "Allocationway aptray"
+
+#: target:compiler/sparc/insts.lisp
+msgid "Use it anyway"
+msgstr "Useway itway anywayway"
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"Immediate trap number ~A specified, but only trap numbers\n"
+"   16 to 31 are available to the application"
+msgstr ""
+"Immediateway aptray umbernay ~Away ecifiedspay, utbay onlyway aptray "
+"umbersnay\n"
+"   16 otay 31 areway availableway otay ethay applicationway"
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"  byte-ordering issues."
+msgstr ""
+"Oadslay ethay ypetay itsbay ofway away ointerpay intoway argettay "
+"independentway ofway\n"
+"  ytebay-orderingway issuesway."
+
+#: target:compiler/sparc/macros.lisp
+msgid "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
+msgstr ""
+"Umpjay otay ethay isplay unctionfay FUNCTION.  LIP isway anway interiorway-"
+"egray emporarytay."
+
+#: target:compiler/sparc/macros.lisp
+msgid "Return to RETURN-PC."
+msgstr "Eturnray otay RETURN-PC."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Emit a return-pc header word.  LABEL is the label to use for this return-pc."
+msgstr ""
+"Emitway away eturnray-cpay eaderhay ordway.  LABEL isway ethay abellay otay "
+"useway orfay isthay eturnray-cpay."
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move the TN Reg-Or-Stack into Reg if it isn't already there."
+msgstr ""
+"Ovemay ethay TN Egray-Orway-Tacksay intoway Egray ifway itway isnway't "
+"alreadyway erethay."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Do stuff to allocate an other-pointer object of fixed Size with a single\n"
+"  word header having the specified Type-Code.  The result is placed in\n"
+"  Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly "
+"used\n"
+"  by the body.)  The body is placed inside the PSEUDO-ATOMIC, and "
+"presumably\n"
+"  initializes the object."
+msgstr ""
+"Oday tuffsay otay allocateway anway otherway-ointerpay objectway ofway "
+"ixedfay Izesay ithway away inglesay\n"
+"  ordway eaderhay avinghay ethay ecifiedspay Ypetay-Odecay.  Ethay esultray "
+"isway acedplay inway\n"
+"  Esultray-TN, andway Emptay-TN isway away onnay-escriptorday emptay "
+"(ichwhay aymay ebay andomlyray usedway\n"
+"  ybay ethay odybay.)  Ethay odybay isway acedplay insideway ethay PSEUDO-"
+"ATOMIC, andway esumablypray\n"
+"  initializesway ethay objectway."
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is less than the specified minimum of ~S"
+msgstr "~S isway esslay anthay ethay ecifiedspay inimummay ofway ~S"
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is greater than the specified maximum of ~S"
+msgstr "~S isway eatergray anthay ethay ecifiedspay aximummay ofway ~S"
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S isn't an even multiple of ~S from ~S"
+msgstr "~S isnway't anway evenway ultiplemay ofway ~S omfray ~S"
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"The values ~S cover the entire range from ~\n"
+"\t\t\t ~S to ~S [step ~S]."
+msgstr ""
+"Ethay aluesvay ~S overcay ethay entireway angeray omfray ~\n"
+"\t\t\t ~S otay ~S [tepsay ~S]."
+
+#: target:compiler/sparc/macros.lisp
+msgid "Must supply at least on type for test-type."
+msgstr "Ustmay upplysay atway eastlay onway ypetay orfay esttay-ypetay."
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-POINTER-TYPE supersedes the use of ~S"
+msgstr "OTHER-POINTER-TYPE upersedessay ethay useway ofway ~S"
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S"
+msgstr "OTHER-IMMEDIATE-n-TYPE upersedessay ethay useway ofway ~S"
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Can't test for mix of function subtypes and normal ~\n"
+"\t\theader types."
+msgstr ""
+"Ancay't esttay orfay ixmay ofway unctionfay ubtypessay andway ormalnay ~\n"
+"\t\teaderhay ypestay."
+
+#: target:compiler/sparc/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr "Ausecay anway errorway.  ERROR-CODE isway ethay errorway otay ausecay."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+"Ausecay away ontinuablecay errorway.  Ifway ethay errorway isway "
+"ontinuedcay, executionway esumesray atway\n"
+"  LABEL."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+"Enerategay-Errorway-Odecay Errorway-odecay Alue*Vay\n"
+"  Emitway odecay orfay anway errorway ithway ethay ecifiedspay Errorway-"
+"Odecay andway ontextcay Aluesvay."
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+"Enerategay-Errorcay-Odecay Errorway-odecay Alue*Vay\n"
+"  Emitway odecay orfay away ontinuablecay errorway ithway ethay ecifiedspay "
+"Errorway-Odecay andway\n"
+"  ontextcay Aluesvay.  Ifway ethay errorway isway ontinuedcay, executionway "
+"esumesray afterway\n"
+"  ethay GENERATE-CERROR-CODE ormfay."
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum untagging"
+msgstr "ixnumfay untaggingway"
+
+#: target:compiler/sparc/move.lisp
+msgid "constant load"
+msgstr "onstantcay oadlay"
+
+#: target:compiler/sparc/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n"
+"\t           VM efinitionday inconsistentway, ecompileray andway ytray "
+"againway."
+
+#: target:compiler/sparc/move.lisp
+msgid "integer to untagged word coercion"
+msgstr "integerway otay untaggedway ordway oercioncay"
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum tagging"
+msgstr "ixnumfay aggingtay"
+
+#: target:compiler/sparc/move.lisp
+msgid "signed word to integer coercion"
+msgstr "ignedsay ordway otay integerway oercioncay"
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr "unsignedway ordway otay integerway oercioncay"
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer move"
+msgstr "ordway integerway ovemay"
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer argument move"
+msgstr "ordway integerway argumentway ovemay"
+
+#: target:compiler/sparc/move.lisp
+msgid "signed 64-bit word to integer coercion"
+msgstr "ignedsay 64-itbay ordway otay integerway oercioncay"
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned 64-bit word to integer coercion"
+msgstr "unsignedway 64-itbay ordway otay integerway oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "float move"
+msgstr "oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "float to pointer coercion"
+msgstr "oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to float coercion"
+msgstr "ointerpay otay oatflay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "float argument move"
+msgstr "oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float move"
+msgstr "omplexcay inglesay oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float move"
+msgstr "omplexcay oubleday oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float move"
+msgstr "omplexcay onglay oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float move"
+msgstr "omplexcay oubleday-oubleday oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float to pointer coercion"
+msgstr "omplexcay inglesay oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float to pointer coercion"
+msgstr "omplexcay oubleday oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float to pointer coercion"
+msgstr "omplexcay onglay oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr "omplexcay oubleday-oubleday oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex float coercion"
+msgstr "ointerpay otay omplexcay oatflay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex double-double float coercion"
+msgstr "ointerpay otay omplexcay oubleday-oubleday oatflay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single-float argument move"
+msgstr "omplexcay inglesay-oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-float argument move"
+msgstr "omplexcay oubleday-oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long-float argument move"
+msgstr "omplexcay onglay-oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float argument move"
+msgstr "omplexcay oubleday-oubleday oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float arithmetic"
+msgstr "inlineway oatflay arithmeticway"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float comparison"
+msgstr "inlineway oatflay omparisoncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float coercion"
+msgstr "inlineway oatflay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float truncate"
+msgstr "inlineway oatflay uncatetray"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline ftruncate"
+msgstr "inlineway truncatefay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex single-float creation"
+msgstr "inlineway omplexcay inglesay-oatflay eationcray"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-float creation"
+msgstr "inlineway omplexcay oubleday-oatflay eationcray"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex long-float creation"
+msgstr "inlineway omplexcay onglay-oatflay eationcray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float realpart"
+msgstr "omplexcay inglesay oatflay ealpartray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float imagpart"
+msgstr "omplexcay inglesay oatflay imagpartway"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float realpart"
+msgstr "omplexcay oubleday oatflay ealpartray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float imagpart"
+msgstr "omplexcay oubleday oatflay imagpartway"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float realpart"
+msgstr "omplexcay onglay oatflay ealpartray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float imagpart"
+msgstr "omplexcay onglay oatflay imagpartway"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float arithmetic"
+msgstr "inlineway omplexcay oatflay arithmeticway"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float arithmetic"
+msgstr "inlineway omplexcay oatflay/oatflay arithmeticway"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float multiplication"
+msgstr "inlineway omplexcay oatflay ultiplicationmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float division"
+msgstr "inlineway omplexcay oatflay ivisionday"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex conjugate"
+msgstr "inlineway omplexcay onjugatecay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float comparison"
+msgstr "inlineway omplexcay oatflay/oatflay omparisoncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float comparison"
+msgstr "inlineway omplexcay oatflay omparisoncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max"
+msgstr "inlineway oatflay axmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float min"
+msgstr "inlineway oatflay inmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) max"
+msgstr "inlineway (ignedsay-ytebay 32) axmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) max"
+msgstr "inlineway (unsignedway-ytebay 32) axmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum max"
+msgstr "inlineway ixnumfay axmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) min"
+msgstr "inlineway (ignedsay-ytebay 32) inmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) min"
+msgstr "inlineway (unsignedway-ytebay 32) inmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum min"
+msgstr "inlineway ixnumfay inmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max/min"
+msgstr "inlineway oatflay axmay/inmay"
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float move"
+msgstr "oubleday-oubleday oatflay ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float to pointer coercion"
+msgstr "oubleday-oubleday oatflay otay ointerpay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to double-double float coercion"
+msgstr "ointerpay otay oubleday-oubleday oatflay oercioncay"
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float argument move"
+msgstr "oubleday-oubleday oatflay argumentway ovemay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline double-double float creation"
+msgstr "inlineway oubleday-oubleday oatflay eationcray"
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double high part"
+msgstr "oubleday-oubleday ighhay artpay"
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double low part"
+msgstr "oubleday-oubleday owlay artpay"
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-double float creation"
+msgstr "inlineway omplexcay oubleday-oubleday oatflay eationcray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float realpart"
+msgstr "omplexcay oubleday-oubleday oatflay ealpartray"
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float imagpart"
+msgstr "omplexcay oubleday-oubleday oatflay imagpartway"
+
+#: target:compiler/sparc/sap.lisp
+msgid "pointer to SAP coercion"
+msgstr "ointerpay otay SAP oercioncay"
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP to pointer coercion"
+msgstr "SAP otay ointerpay oercioncay"
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP move"
+msgstr "SAP ovemay"
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP argument move"
+msgstr "SAP argumentway ovemay"
+
+#: target:compiler/sparc/system.lisp
+msgid ""
+"Read the instruction cycle counter available on UltraSparcs.  The\n"
+"64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit\n"
+"result is the first value."
+msgstr ""
+"Eadray ethay instructionway yclecay ountercay availableway onway "
+"Ultrasparcsway.  Ethay\n"
+"64-itbay ountercay isway eturnedray asway wotay 32-itbay unsignedway "
+"integersway.  Ethay owlay 32-itbay\n"
+"esultray isway ethay irstfay aluevay."
+
+#: target:compiler/sparc/char.lisp
+msgid "character untagging"
+msgstr "aracterchay untaggingway"
+
+#: target:compiler/sparc/char.lisp
+msgid "character tagging"
+msgstr "aracterchay aggingtay"
+
+#: target:compiler/sparc/char.lisp
+msgid "character move"
+msgstr "aracterchay ovemay"
+
+#: target:compiler/sparc/char.lisp
+msgid "character arg move"
+msgstr "aracterchay argway ovemay"
+
+#: target:compiler/sparc/char.lisp
+msgid "inline comparison"
+msgstr "inlineway omparisoncay"
+
+#: target:compiler/sparc/static-fn.lisp
+msgid "Either too many args (~D) or too many results (~D).  Max = ~D"
+msgstr ""
+"Eitherway ootay anymay argsway (~D) orway ootay anymay esultsray (~D).  "
+"Axmay = ~D"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr "inlineway ixnumfay arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr "inlineway (ignedsay-ytebay 32) arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr "inlineway (unsignedway-ytebay 32) arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline 32-bit abs"
+msgstr "inlineway 32-itbay absway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "safe inline fixnum arithmetic"
+msgstr "afesay inlineway ixnumfay arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) ASH"
+msgstr "inlineway (ignedsay-ytebay 32) ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) ASH"
+msgstr "inlineway (unsignedway-ytebay 32) ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline constant ASH"
+msgstr "inlineway onstantcay ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "identity ASH not transformed away"
+msgstr "identityway ASH otnay ansformedtray awayway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline ASH"
+msgstr "inlineway ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline right ASH"
+msgstr "inlineway ightray ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr "inlineway (ignedsay-ytebay 32) integerway-engthlay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) integer-length"
+msgstr "inlineway (unsignedway-ytebay 32) integerway-engthlay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr "inlineway (unsignedway-ytebay 32) ogcountlay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr "Adbay izesay ecifiedspay orfay SIGNED-BYTE ypetay ecifierspay: ~S."
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum comparison"
+msgstr "inlineway ixnumfay omparisoncay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr "inlineway (ignedsay-ytebay 32) omparisoncay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr "inlineway (unsignedway-ytebay 32) omparisoncay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-start"
+msgstr "iftshay-owardstay-tartsay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-end"
+msgstr "iftshay-owardstay-endway"
+
+#: target:compiler/sparc/arith.lisp
+msgid ""
+"Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result\n"
+"  in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.\n"
+"  Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
+msgstr ""
+"Emitway odecay otay ultiplymay MULTIPLIER ithway MULTIPLICAND, uttingpay "
+"ethay esultray\n"
+"  inway RESULT-HIGH andway RESULT-LOW.  KIND isway eitherway :ignedsay "
+"orway :unsignedway.\n"
+"  Otenay: ethay ifetimeslay ofway MULTIPLICAND andway RESULT-HIGH overlapway."
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) arithmetic"
+msgstr "inlineway (ignedsay-ytebay 64) arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) arithmetic"
+msgstr "inlineway (unsignedway-ytebay 64) arithmeticway"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) ASH"
+msgstr "inlineway (ignedsay-ytebay 64) ASH"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) comparison"
+msgstr "inlineway (ignedsay-ytebay 64) omparisoncay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) comparison"
+msgstr "inlineway (unsignedway-ytebay 64) omparisoncay"
+
+#: target:compiler/sparc/arith.lisp
+msgid "recode as shifts and adds"
+msgstr "ecoderay asway iftsshay andway addsway"
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr "Ootay anymay esultray aluesvay omfray c-allcay."
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr "Ethodmay ~S otnay efinedday orfay ~S"
+
+#: target:compiler/sparc/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+"Onscay upway away iecepay ofway odecay ichwhay allscay allcay-allbackcay "
+"ithway INDEX andway away\n"
+"ointerpay otay ethay argumentsway."
+
+#: target:compiler/sparc/call.lisp
+msgid "more-arg-context"
+msgstr "oremay-argway-ontextcay"
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array access"
+msgstr "inlineway arrayway accessway"
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array store"
+msgstr "inlineway arrayway toresay"
+
+#: target:compiler/sparc/array.lisp
+msgid "raw-bits VOP"
+msgstr "awray-itsbay VOP"
+
+#: target:compiler/sparc/array.lisp
+msgid "setf raw-bits VOP"
+msgstr "etfsay awray-itsbay VOP"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sse2.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sse2.po
new file mode 100644
index 0000000000000000000000000000000000000000..5b1444d569a5c62e2151551f47d3021cc6d43e0b
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sse2.po
@@ -0,0 +1,146 @@
+# @ cmucl-sse2
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "Ignoring bogus i387 Constant ~a"
+msgstr "Ignoringway ogusbay i387 Onstantcay ~away"
+
+#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp
+#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float move"
+msgstr "oatflay ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float to pointer coercion"
+msgstr "oatflay otay ointerpay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n"
+"\t           VM efinitionday inconsistentway, ecompileray andway ytray "
+"againway."
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to float coercion"
+msgstr "ointerpay otay oatflay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float to pointer coercion"
+msgstr "omplexcay oatflay otay ointerpay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr "omplexcay oubleday-oubleday oatflay otay ointerpay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to complex float coercion"
+msgstr "ointerpay otay omplexcay oatflay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float argument move"
+msgstr "oatflay argumentway ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float argument move"
+msgstr "omplexcay oatflay argumentway ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double-float argument move"
+msgstr "omplexcay oubleday-oubleday-oatflay argumentway ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float arithmetic"
+msgstr "inlineway oatflay arithmeticway"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float comparison"
+msgstr "inlineway oatflay omparisoncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float coercion"
+msgstr "inlineway oatflay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float truncate"
+msgstr "inlineway oatflay uncatetray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex single-float creation"
+msgstr "inlineway omplexcay inglesay-oatflay eationcray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-float creation"
+msgstr "inlineway omplexcay oubleday-oatflay eationcray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float realpart"
+msgstr "omplexcay oatflay ealpartray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float imagpart"
+msgstr "omplexcay oatflay imagpartway"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline dummy FP register bias"
+msgstr "inlineway ummyday FP egisterray iasbay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double float move"
+msgstr "oubleday-oubleday oatflay ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double float to pointer coercion"
+msgstr "oubleday oubleday oatflay otay ointerpay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to double-double-float coercion"
+msgstr "ointerpay otay oubleday-oubleday-oatflay oercioncay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double-float argument move"
+msgstr "oubleday oubleday-oatflay argumentway ovemay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline double-double-float creation"
+msgstr "inlineway oubleday-oubleday-oatflay eationcray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double high part"
+msgstr "oubleday-oubleday ighhay artpay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double low part"
+msgstr "oubleday-oubleday owlay artpay"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-double-float creation"
+msgstr "inlineway omplexcay oubleday-oubleday-oatflay eationcray"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float arithmetic"
+msgstr "inlineway omplexcay oatflay arithmeticway"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float/float arithmetic"
+msgstr "inlineway omplexcay oatflay/oatflay arithmeticway"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..994d4610b73709abb77c63a1e56e8d88e24376ae
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po
@@ -0,0 +1,34 @@
+# @ cmucl-sunos-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/sunos-os.lisp
+msgid "Version string for supporting software"
+msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
+
+#: target:code/sunos-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
+"oftwaresay."
+
+#: target:code/sunos-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
+
+#: target:code/sunos-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr "Etpagesizegay ailedfay: ~Away"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
new file mode 100644
index 0000000000000000000000000000000000000000..2ef4c096ab9faf9e949af8e9e0825e781334e540
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -0,0 +1,2661 @@
+# @ cmucl-unix-glibc2
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/unix-glibc2.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay errorway umbernay ichwhay asway "
+"eturnedray ybay away\n"
+"  UNIX ystemsay allcay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unknown error [~d]"
+msgstr "Unknownway errorway [~d]"
+
+#: target:code/unix-glibc2.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr "Yscallsay ~Away ailedfay: ~Away"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+"Unixway-enameray enamesray ethay ilefay ithway ingstray amenay1 otay ethay "
+"ingstray\n"
+"   amenay2.  NIL andway anway errorway odecay isway eturnedray ifway anway "
+"errorway occuredway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for read permission"
+msgstr "Esttay orfay eadray ermissionpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for write permission"
+msgstr "Esttay orfay itewray ermissionpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for execute permission"
+msgstr "Esttay orfay executeway ermissionpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for presence of file"
+msgstr "Esttay orfay esencepray ofway ilefay"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors accoridng to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+"Unixway-cntlfay anipulatesmay ilefay escriptorsday accoridngway otay ethay\n"
+"   argumentway CMD ichwhay ancay ebay oneway ofway ethay ollowingfay:\n"
+"\n"
+"   F-DUPFD         Uplicateday away ilefay escriptorday.\n"
+"   F-GETFD         Etgay ilefay escriptorday agsflay.\n"
+"   F-SETFD         Etsay ilefay escriptorday agsflay.\n"
+"   F-GETFL         Etgay ilefay agsflay.\n"
+"   F-SETFL         Etsay ilefay agsflay.\n"
+"   F-GETOWN        Etgay ownerway.\n"
+"   F-SETOWN        Etsay ownerway.\n"
+"\n"
+"   Ethay agsflay atthay ancay ebay ecifiedspay orfay F-SETFL areway:\n"
+"\n"
+"   FNDELAY         Onnay-ockingblay eadsray.\n"
+"   FAPPEND         Appendway onway eachway itewray.\n"
+"   FASYNC          Ignalsay grppay enwhay ataday eadyray.\n"
+"   FCREAT          Eatecray ifway onexistantnay.\n"
+"   FTRUNC          Uncatetray otay erozay engthlay.\n"
+"   FEXCL           Errorway ifway alreadyway eatedcray.\n"
+"   "
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by PATH\n"
+"   for reading and/or writing as specified by the FLAGS argument.\n"
+"   Returns an integer file descriptor.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"     o_excl          Error if the file already exists\n"
+"     o_noctty        Don't assign controlling tty\n"
+"     o_ndelay        Non-blocking I/O\n"
+"     o_sync          Synchronous I/O\n"
+"     o_async         Asynchronous I/O\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument MODE if the file doesn't exist."
+msgstr ""
+"Unixway-openway opensway ethay ilefay osewhay athnamepay isway ecifiedspay "
+"ybay PATH\n"
+"   orfay eadingray andway/orway itingwray asway ecifiedspay ybay ethay FLAGS "
+"argumentway.\n"
+"   Eturnsray anway integerway ilefay escriptorday.\n"
+"   Ethay agsflay argumentway ancay ebay:\n"
+"\n"
+"     o_donlyray        Eadray-onlyway agflay.\n"
+"     o_onlywray        Itewray-onlyway agflay.\n"
+"     o_dwrray          Eadray-andway-itewray agflay.\n"
+"     o_appendway        Appendway agflay.\n"
+"     o_eatcray         Eatecray-ifway-onexistantnay agflay.\n"
+"     o_unctray         Uncatetray-otay-izesay-0 agflay.\n"
+"     o_exclway          Errorway ifway ethay ilefay alreadyway existsway\n"
+"     o_octtynay        Onday't assignway ontrollingcay tytay\n"
+"     o_delaynay        Onnay-ockingblay Iway/O\n"
+"     o_yncsay          Ynchronoussay Iway/O\n"
+"     o_asyncway         Asynchronousway Iway/O\n"
+"\n"
+"   Ifway ethay o_eatcray agflay isway ecifiedspay, enthay ethay ilefay isway "
+"eatedcray ithway\n"
+"   away ermissionpay ofway argumentway MODE ifway ethay ilefay oesnday't "
+"existway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+"Unixway-etdtablesizegay eturnsray ethay aximummay izesay ofway ethay ilefay "
+"escriptorday\n"
+"   abletay. (i.e. ethay aximummay umbernay ofway escriptorsday atthay ancay "
+"existway atway\n"
+"   oneway imetay.)"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+"Unixway-oseclay akestay anway integerway ilefay escriptorday asway anway "
+"argumentway andway\n"
+"   osesclay ethay ilefay associatedway ithway itway.  T isway eturnedray "
+"uponway uccessfulsay\n"
+"   ompletioncay, otherwiseway NIL andway anway errorway umbernay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+"Unixway-eatcray acceptsway away ilefay amenay andway away odemay (amesay "
+"asway osethay orfay\n"
+"   unixway-modchay) andway eatescray away ilefay ybay atthay amenay ithway "
+"ethay ecifiedspay\n"
+"   ermissionpay odemay.  Itway eturnsray away ilefay escriptorday onway "
+"uccesssay,\n"
+"   orway NIL andway anway errorway  umbernay otherwiseway.\n"
+"\n"
+"   Isthay interfaceway isway ademay obsoleteway ybay UNIX-OPEN."
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for reading"
+msgstr "Openway orfay eadingray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for writing"
+msgstr "Openway orfay itingwray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only flag."
+msgstr "Eadray-onlyway agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Write-only flag."
+msgstr "Itewray-onlyway agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-write flag."
+msgstr "Eadray-itewray agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Access mode mask."
+msgstr "Accessway odemay askmay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Create if nonexistant flag. (not fcntl)"
+msgstr "Eatecray ifway onexistantnay agflay. (otnay cntlfay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Error if already exists. (not fcntl)"
+msgstr "Errorway ifway alreadyway existsway. (otnay cntlfay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't assign controlling tty. (not fcntl)"
+msgstr "Onday't assignway ontrollingcay tytay. (otnay cntlfay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Truncate flag. (not fcntl)"
+msgstr "Uncatetray agflay. (otnay cntlfay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Append flag."
+msgstr "Appendway agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-blocking I/O"
+msgstr "Onnay-ockingblay Iway/O"
+
+#: target:code/unix-glibc2.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr "Ynchronoussay iteswray (onway extway2)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Asynchronous I/O"
+msgstr "Asynchronousway Iway/O"
+
+#: target:code/unix-glibc2.lisp
+msgid "Duplicate a file descriptor"
+msgstr "Uplicateday away ilefay escriptorday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file desc. flags"
+msgstr "Etgay ilefay escday. agsflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file desc. flags"
+msgstr "Etsay ilefay escday. agsflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file flags"
+msgstr "Etgay ilefay agsflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file flags"
+msgstr "Etsay ilefay agsflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Get lock"
+msgstr "Etgay ocklay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock"
+msgstr "Etsay ocklay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock, wait for release"
+msgstr "Etsay ocklay, aitway orfay eleaseray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set owner (for sockets)"
+msgstr "Etsay ownerway (orfay ocketssay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Get owner (for sockets)"
+msgstr "Etgay ownerway (orfay ocketssay)"
+
+#: target:code/unix-glibc2.lisp
+msgid "for f-getfl and f-setfl"
+msgstr "orfay f-etflgay andway f-etflsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "for fcntl and lockf"
+msgstr "orfay cntlfay andway ockflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "old bsd flock (depricated)"
+msgstr "oldway sdbay ockflay (epricatedday)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Shared lock for bsd flock"
+msgstr "Aredshay ocklay orfay sdbay ockflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Exclusive lock for bsd flock"
+msgstr "Exclusiveway ocklay orfay sdbay ockflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block. Combine with F-LOCK-SH or F-LOCK-EX"
+msgstr "Onday't ockblay. Ombinecay ithway F-LOCK-SH orway F-LOCK-EX"
+
+#: target:code/unix-glibc2.lisp
+msgid "Remove lock for bsd flock"
+msgstr "Emoveray ocklay orfay sdbay ockflay"
+
+#: target:code/unix-glibc2.lisp
+msgid "depricated stuff"
+msgstr "epricatedday tuffsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the group-file stream."
+msgstr "Ewindray ethay oupgray-ilefay eamstray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the group-file stream."
+msgstr "Oseclay ethay oupgray-ilefay eamstray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the group-file stream, opening it if necessary."
+msgstr ""
+"Eadray anway entryway omfray ethay oupgray-ilefay eamstray, openingway itway "
+"ifway ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Size of control character vector."
+msgstr "Izesay ofway ontrolcay aracterchay ectorvay."
+
+#: target:code/unix-glibc2.lisp
+msgid "See errno."
+msgstr "Eesay errnoway."
+
+#: target:code/unix-glibc2.lisp
+msgid "No problem."
+msgstr "Onay oblempray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Authoritative Answer Host not found."
+msgstr "Authoritativeway Answerway Osthay otnay oundfay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-Authoritative Host not found,or SERVERFAIL."
+msgstr "Onnay-Authoritativeway Osthay otnay oundfay,orway SERVERFAIL."
+
+#: target:code/unix-glibc2.lisp
+msgid "Non recoverable errors, FORMERR, REFUSED, NOTIMP."
+msgstr "Onnay ecoverableray errorsway, FORMERR, REFUSED, NOTIMP."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open host data base files and mark them as staying open even after\n"
+"a later search if STAY_OPEN is non-zero."
+msgstr ""
+"Openway osthay ataday asebay ilesfay andway arkmay emthay asway tayingsay "
+"openway evenway afterway\n"
+"away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close host data base files and clear `stay open' flag."
+msgstr ""
+"Oseclay osthay ataday asebay ilesfay andway earclay `taysay openway' agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from host data base file.  Open data base if\n"
+"necessary."
+msgstr ""
+"Etgay extnay entryway omfray osthay ataday asebay ilefay.  Openway ataday "
+"asebay ifway\n"
+"ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base which address match ADDR with\n"
+"length LEN and type TYPE."
+msgstr ""
+"Eturnray entryway omfray osthay ataday asebay ichwhay addressway atchmay "
+"ADDR ithway\n"
+"engthlay LEN andway ypetay TYPE."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from host data base for host with NAME."
+msgstr ""
+"Eturnray entryway omfray osthay ataday asebay orfay osthay ithway NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base for host with NAME.  AF must be\n"
+"   set to the address type which as `AF_INET' for IPv4 or `AF_INET6'\n"
+"   for IPv6."
+msgstr ""
+"Eturnray entryway omfray osthay ataday asebay orfay osthay ithway NAME.  AF "
+"ustmay ebay\n"
+"   etsay otay ethay addressway ypetay ichwhay asway `AF_INET' orfay Ipvway4 "
+"orway `AF_INET6'\n"
+"   orfay Ipvway6."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open network data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+"Openway etworknay ataday asebay ilesfay andway arkmay emthay asway tayingsay "
+"openway evenway\n"
+"   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close network data base files and clear `stay open' flag."
+msgstr ""
+"Oseclay etworknay ataday asebay ilesfay andway earclay `taysay openway' "
+"agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from network data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+"Etgay extnay entryway omfray etworknay ataday asebay ilefay.  Openway ataday "
+"asebay ifway\n"
+"   ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base which address match NET and\n"
+"   type TYPE."
+msgstr ""
+"Eturnray entryway omfray etworknay ataday asebay ichwhay addressway atchmay "
+"NET andway\n"
+"   ypetay TYPE."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from network data base for network with NAME."
+msgstr ""
+"Eturnray entryway omfray etworknay ataday asebay orfay etworknay ithway NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open service data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+"Openway ervicesay ataday asebay ilesfay andway arkmay emthay asway tayingsay "
+"openway evenway\n"
+"   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close service data base files and clear `stay open' flag."
+msgstr ""
+"Oseclay ervicesay ataday asebay ilesfay andway earclay `taysay openway' "
+"agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from service data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+"Etgay extnay entryway omfray ervicesay ataday asebay ilefay.  Openway ataday "
+"asebay ifway\n"
+"   ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base for network with NAME and\n"
+"   protocol PROTO."
+msgstr ""
+"Eturnray entryway omfray etworknay ataday asebay orfay etworknay ithway NAME "
+"andway\n"
+"   otocolpray PROTO."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from service data base which matches port PORT and\n"
+"   protocol PROTO."
+msgstr ""
+"Eturnray entryway omfray ervicesay ataday asebay ichwhay atchesmay ortpay "
+"PORT andway\n"
+"   otocolpray PROTO."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open protocol data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+"Openway otocolpray ataday asebay ilesfay andway arkmay emthay asway "
+"tayingsay openway evenway\n"
+"   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close protocol data base files and clear `stay open' flag."
+msgstr ""
+"Oseclay otocolpray ataday asebay ilesfay andway earclay `taysay openway' "
+"agflay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from protocol data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+"Etgay extnay entryway omfray otocolpray ataday asebay ilefay.  Openway "
+"ataday asebay ifway\n"
+"   ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base for network with NAME."
+msgstr ""
+"Eturnray entryway omfray otocolpray ataday asebay orfay etworknay ithway "
+"NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base which number is PROTO."
+msgstr ""
+"Eturnray entryway omfray otocolpray ataday asebay ichwhay umbernay isway "
+"PROTO."
+
+#: target:code/unix-glibc2.lisp
+msgid "Establish network group NETGROUP for enumeration."
+msgstr "Establishway etworknay oupgray NETGROUP orfay enumerationway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Free all space allocated by previous `setnetgrent' call."
+msgstr ""
+"Eefray allway acespay allocatedway ybay eviouspray `etnetgrentsay' allcay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next member of netgroup established by last `setnetgrent' call\n"
+"   and return pointers to elements in HOSTP, USERP, and DOMAINP."
+msgstr ""
+"Etgay extnay embermay ofway etgroupnay establishedway ybay astlay "
+"`etnetgrentsay' allcay\n"
+"   andway eturnray ointerspay otay elementsway inway HOSTP, USERP, andway "
+"DOMAINP."
+
+#: target:code/unix-glibc2.lisp
+msgid "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
+msgstr ""
+"Esttay etherwhay NETGROUP ontainscay ethay ipletray (HOST,USER,DOMAIN)."
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket address is intended for `bind'."
+msgstr "Ocketsay addressway isway intendedway orfay `indbay'."
+
+#: target:code/unix-glibc2.lisp
+msgid "Request for canonical name."
+msgstr "Equestray orfay anonicalcay amenay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid value for `ai_flags' field."
+msgstr "Invalidway aluevay orfay `aiway_agsflay' ieldfay."
+
+#: target:code/unix-glibc2.lisp
+msgid "NAME or SERVICE is unknown."
+msgstr "NAME orway SERVICE isway unknownway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Temporary failure in name resolution."
+msgstr "Emporarytay ailurefay inway amenay esolutionray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-recoverable failure in name res."
+msgstr "Onnay-ecoverableray ailurefay inway amenay esray."
+
+#: target:code/unix-glibc2.lisp
+msgid "No address associated with NAME."
+msgstr "Onay addressway associatedway ithway NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_family not supported."
+msgstr "aiway_amilyfay otnay upportedsay."
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_socktype not supported."
+msgstr "aiway_ocktypesay otnay upportedsay."
+
+#: target:code/unix-glibc2.lisp
+msgid "SERVICE not supported for ai_socktype."
+msgstr "SERVICE otnay upportedsay orfay aiway_ocktypesay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family for NAME not supported."
+msgstr "Addressway amilyfay orfay NAME otnay upportedsay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Memory allocation failure."
+msgstr "Emorymay allocationway ailurefay."
+
+#: target:code/unix-glibc2.lisp
+msgid "System error returned in errno."
+msgstr "Ystemsay errorway eturnedray inway errnoway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Translate name of a service location and/or a service name to set of\n"
+"   socket addresses."
+msgstr ""
+"Anslatetray amenay ofway away ervicesay ocationlay andway/orway away "
+"ervicesay amenay otay etsay ofway\n"
+"   ocketsay addressesway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Free `addrinfo' structure AI including associated storage."
+msgstr ""
+"Eefray `addrinfoway' ucturestray AI includingway associatedway toragesay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create pseudo tty master slave pair with NAME and set terminal\n"
+"   attributes according to TERMP and WINP and return handles for both\n"
+"   ends in AMASTER and ASLAVE."
+msgstr ""
+"Eatecray seudopay tytay astermay aveslay airpay ithway NAME andway etsay "
+"erminaltay\n"
+"   attributesway accordingway otay TERMP andway WINP andway eturnray "
+"andleshay orfay othbay\n"
+"   endsway inway AMASTER andway ASLAVE."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create child process and establish the slave pseudo terminal as the\n"
+"   child's controlling terminal."
+msgstr ""
+"Eatecray ildchay ocesspray andway establishway ethay aveslay seudopay "
+"erminaltay asway ethay\n"
+"   ildchay's ontrollingcay erminaltay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the password-file stream."
+msgstr "Ewindray ethay asswordpay-ilefay eamstray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the password-file stream."
+msgstr "Oseclay ethay asswordpay-ilefay eamstray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the password-file stream, opening it if necessary."
+msgstr ""
+"Eadray anway entryway omfray ethay asswordpay-ilefay eamstray, openingway "
+"itway ifway ecessarynay."
+
+#: target:code/unix-glibc2.lisp
+msgid "The calling process."
+msgstr "Ethay allingcay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Terminated child processes."
+msgstr "Erminatedtay ildchay ocessespray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Minimum priority a process can have"
+msgstr "Inimummay ioritypray away ocesspray ancay avehay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Maximum priority a process can have"
+msgstr "Aximummay ioritypray away ocesspray ancay avehay"
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process ID"
+msgstr "WHO isway away ocesspray ID"
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process group ID"
+msgstr "WHO isway away ocesspray oupgray ID"
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a user ID"
+msgstr "WHO isway away userway ID"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set scheduling algorithm and/or parameters for a process."
+msgstr ""
+"Etsay edulingschay algorithmway andway/orway arameterspay orfay away "
+"ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Retrieve scheduling algorithm for a particular purpose."
+msgstr ""
+"Etrieveray edulingschay algorithmway orfay away articularpay urposepay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get maximum priority value for a scheduler."
+msgstr "Etgay aximummay ioritypray aluevay orfay away edulerschay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get minimum priority value for a scheduler."
+msgstr "Etgay inimummay ioritypray aluevay orfay away edulerschay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the SCHED_RR interval for the named process."
+msgstr "Etgay ethay SCHED_RR intervalway orfay ethay amednay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Signal mask to be sent at exit."
+msgstr "Ignalsay askmay otay ebay entsay atway exitway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if VM shared between processes."
+msgstr "Etsay ifway VM aredshay etweenbay ocessespray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if fs info shared between processes"
+msgstr "Etsay ifway sfay infoway aredshay etweenbay ocessespray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if open files shared between processe"
+msgstr "Etsay ifway openway ilesfay aredshay etweenbay ocessepray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if signal handlers shared."
+msgstr "Etsay ifway ignalsay andlershay aredshay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if pid shared."
+msgstr "Etsay ifway idpay aredshay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Open database for reading."
+msgstr "Openway atabaseday orfay eadingray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Close database."
+msgstr "Oseclay atabaseday."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get next entry from database, perhaps after opening the file."
+msgstr ""
+"Etgay extnay entryway omfray atabaseday, erhapspay afterway openingway ethay "
+"ilefay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get shadow entry matching NAME."
+msgstr "Etgay adowshay entryway atchingmay NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read shadow entry from STRING."
+msgstr "Eadray adowshay entryway omfray STRING."
+
+#: target:code/unix-glibc2.lisp
+msgid "Protect password file against multi writers."
+msgstr "Otectpray asswordpay ilefay againstway ultimay iterswray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock password file."
+msgstr "Unlockway asswordpay ilefay."
+
+#: target:code/unix-glibc2.lisp
+msgid "These bits determine file type."
+msgstr "Esethay itsbay etermineday ilefay ypetay."
+
+#: target:code/unix-glibc2.lisp
+msgid "FIFO"
+msgstr "FIFO"
+
+#: target:code/unix-glibc2.lisp
+msgid "Character device"
+msgstr "Aracterchay eviceday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory"
+msgstr "Irectoryday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device"
+msgstr "Ockblay eviceday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Regular file"
+msgstr "Egularray ilefay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Symbolic link."
+msgstr "Ymbolicsay inklay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket."
+msgstr "Ocketsay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution."
+msgstr "Etsay userway ID onway executionway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution."
+msgstr "Etsay oupgray ID onway executionway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Save swapped text after use (sticky)."
+msgstr "Avesay wappedsay exttay afterway useway (tickysay)."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by owner"
+msgstr "Eadray ybay ownerway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner."
+msgstr "Itewray ybay ownerway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute by owner."
+msgstr "Executeway ybay ownerway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal output speed."
+msgstr "Etgay erminaltay outputway eedspay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal output speed."
+msgstr "Etsay erminaltay outputway eedspay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Bogus baud rate ~S"
+msgstr "Ogusbay audbay ateray ~S"
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal input speed."
+msgstr "Etgay erminaltay inputway eedspay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal input speed."
+msgstr "Etsay erminaltay inputway eedspay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal attributes."
+msgstr "Etgay erminaltay attributesway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal attributes."
+msgstr "Etsay erminaltay attributesway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Send break"
+msgstr "Endsay eakbray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for output for finish"
+msgstr "Aitway orfay outputway orfay inishfay"
+
+#: target:code/unix-glibc2.lisp
+msgid "See tcflush(3)"
+msgstr "Eesay cflushtay(3)"
+
+#: target:code/unix-glibc2.lisp
+msgid "Flow control"
+msgstr "Owflay ontrolcay"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+"Executesway ethay Unixway execveway ystemsay allcay.  Ifway ethay ystemsay "
+"allcay uceedssay, isplay\n"
+"   illway onay ongerlay ebay unningray inway isthay ocesspray.  Ifway ethay "
+"ystemsay allcay ailsfay isthay\n"
+"   unctionfay eturnsray wotay aluesvay: NIL andway anway errorway odecay.  "
+"Argway-istlay ouldshay ebay away\n"
+"   istlay ofway implesay-ingsstray ichwhay areway assedpay asway "
+"argumentsway otay ethay execway'edway ogrampray.\n"
+"   Environmentway ouldshay ebay anway away-istlay appingmay ymbolssay otay "
+"implesay-ingsstray ichwhay isthay\n"
+"   unctionfay ashesbay ogethertay otay ormfay ethay environmentway orfay "
+"ethay execway'edway ogrampray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"\tr_ok     Read permission.\n"
+"\tw_ok     Write permission.\n"
+"\tx_ok     Execute permission.\n"
+"\tf_ok     Presence of file."
+msgstr ""
+"Ivengay away ilefay athpay (away ingstray) andway oneway ofway ourfay "
+"onstantcay odesmay,\n"
+"   unixway-accessway eturnsray T ifway ethay ilefay isway accessibleway "
+"ithway atthay\n"
+"   odemay andway NIL ifway otnay.  Itway alsoway eturnsray anway errnoway "
+"aluevay ithway\n"
+"   NIL ichwhay eterminesday ywhay ethay ilefay asway otnay accessibleway.\n"
+"\n"
+"   Ethay accessway odesmay areway:\n"
+"\tr_okway     Eadray ermissionpay.\n"
+"\tw_okway     Itewray ermissionpay.\n"
+"\tx_okway     Executeway ermissionpay.\n"
+"\tf_okway     Esencepray ofway ilefay."
+
+#: target:code/unix-glibc2.lisp
+msgid "set the file pointer"
+msgstr "etsay ethay ilefay ointerpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "increment the file pointer"
+msgstr "incrementway ethay ilefay ointerpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "extend the file size"
+msgstr "extendway ethay ilefay izesay"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain OFFSET for that file.  WHENCE can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  "
+msgstr ""
+"UNIX-LSEEK acceptsway away ilefay escriptorday andway ovesmay ethay ilefay "
+"ointerpay aheadway\n"
+"   away ertaincay OFFSET orfay atthay ilefay.  WHENCE ancay ebay anyway "
+"ofway ethay ollowingfay:\n"
+"\n"
+"   l_etsay        Etsay ethay ilefay ointerpay.\n"
+"   l_incrway       Incrementway ethay ilefay ointerpay.\n"
+"   l_tndxay       Extendway ethay ilefay izesay.\n"
+"  "
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-READ attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+"UNIX-READ attemptsway otay eadray omfray ethay ilefay escribedday ybay dfay "
+"intoway\n"
+"   ethay ufferbay ufbay untilway itway isway ullfay.  Enlay isway ethay "
+"engthlay ofway ethay ufferbay.\n"
+"   Ethay umbernay ofway ytesbay actuallyway eadray isway eturnedray orway "
+"NIL andway anway errorway\n"
+"   umbernay ifway anway errorway occuredway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+"Unixway-itewray attemptsway otay itewray away aracterchay ufferbay (ufbay) "
+"ofway engthlay\n"
+"   enlay otay ethay ilefay escribedday ybay ethay ilefay escriptorday dfay.  "
+"NIL andway anway\n"
+"   errorway isway eturnedray ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+"Unixway-ipepay etssay upway away unixway-ipingpay echanismmay onsistingcay "
+"ofway\n"
+"  anway inputway ipepay andway anway outputway ipepay.  Unixway-Ipepay "
+"eturnsray wotay\n"
+"  aluesvay: ifway onay errorway occurredway ethay irstfay aluevay isway "
+"ethay ipepay\n"
+"  otay ebay eadray omfray andway ethay econdsay isway ancay ebay ittenwray "
+"otay.  Ifway\n"
+"  anway errorway occurredway ethay irstfay aluevay isway NIL andway ethay "
+"econdsay\n"
+"  ethay unixway errorway odecay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+"Ivengay away ilefay athpay, anway integerway userway-idway, andway anway "
+"integerway oupgray-idway,\n"
+"   unixway-ownchay angeschay ethay ownerway ofway ethay ilefay andway ethay "
+"oupgray ofway ethay\n"
+"   ilefay otay osethay ecifiedspay.  Eitherway ethay ownerway orway ethay "
+"oupgray aymay ebay\n"
+"   eftlay unchangedway ybay ecifyingspay emthay asway -1.  Otenay: "
+"Ermissionpay illway\n"
+"   ailfay ifway ethay allercay isway otnay ethay uperusersay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+"Unixway-chownfay isway ikelay unixway-ownchay, exceptway atthay itway "
+"acceptsway anway integerway\n"
+"   ilefay escriptorday insteadway ofway away ilefay athpay amenay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+"Ivengay away ilefay athpay ingstray, unixway-dirchay angeschay ethay "
+"urrentcay orkingway \n"
+"   irectoryday otay ethay oneway ecifiedspay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Put the absolute pathname of the current working directory in BUF.\n"
+"   If successful, return BUF.  If not, put an error message in\n"
+"   BUF and return NULL.  BUF should be at least PATH_MAX bytes long."
+msgstr ""
+"Utpay ethay absoluteway athnamepay ofway ethay urrentcay orkingway "
+"irectoryday inway BUF.\n"
+"   Ifway uccessfulsay, eturnray BUF.  Ifway otnay, utpay anway errorway "
+"essagemay inway\n"
+"   BUF andway eturnray NULL.  BUF ouldshay ebay atway eastlay PATH_MAX "
+"ytesbay onglay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+"Unixway-upday uplicatesday anway existingway ilefay escriptorday (ivengay "
+"asway ethay\n"
+"   argumentway) andway eturnray itway.  Ifway FD isway otnay away alidvay "
+"ilefay escriptorday, NIL\n"
+"   andway anway errorway umbernay areway eturnedray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+"Unixway-upday2 uplicatesday anway existingway ilefay escriptorday ustjay "
+"asway unixway-upday\n"
+"   oesday onlyway ethay ewnay aluevay ofway ethay uplicateday escriptorday "
+"aymay ebay equestedray\n"
+"   roughthay ethay econdsay argumentway.  Ifway away ilefay alreadyway "
+"existsway ithway ethay\n"
+"   equestedray escriptorday umbernay, itway illway ebay osedclay andway "
+"ethay umbernay\n"
+"   assignedway otay ethay uplicateday."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+"Unixway-exitway erminatestay ethay urrentcay ocesspray ithway anway "
+"optionalway\n"
+"   errorway odecay.  Ifway uccessfulsay, ethay allcay oesnday't eturnray.  "
+"Ifway\n"
+"   unsuccessfulway, ethay allcay eturnsray NIL andway anway errorway "
+"umbernay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file-specific configuration information about PATH."
+msgstr "Etgay ilefay-ecificspay onfigurationcay informationway aboutway PATH."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the system variable NAME."
+msgstr "Etgay ethay aluevay ofway ethay ystemsay ariablevay NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the string-valued system variable NAME."
+msgstr ""
+"Etgay ethay aluevay ofway ethay ingstray-aluedvay ystemsay ariablevay NAME."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+"Unixway-etpidgay eturnsray ethay ocesspray-idway ofway ethay urrentcay "
+"ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+"Unixway-etppidgay eturnsray ethay ocesspray-idway ofway ethay arentpay ofway "
+"ethay urrentcay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+"Unixway-etpgrpgay eturnsray ethay oupgray-idway ofway ethay allingcay "
+"ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+"Unixway-etpgrpsay etssay ethay ocesspray oupgray onway ethay ocesspray idpay "
+"otay\n"
+"   grppay.  NIL andway anway errorway umbernay areway eturnedray uponway "
+"ailurefay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+"Unixway-etpgidsay etssay ethay ocesspray oupgray ofway ethay ocesspray idpay "
+"otay\n"
+"   grppay. Ifway gidpay isway equalway otay idpay, ethay ocesspray ecomesbay "
+"away ocesspray\n"
+"   oupgray eaderlay. NIL andway anway errorway umbernay areway eturnedray "
+"uponway ailurefay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a new session with the calling process as its leader.\n"
+"   The process group IDs of the session and the calling process\n"
+"   are set to the process ID of the calling process, which is returned."
+msgstr ""
+"Eatecray away ewnay essionsay ithway ethay allingcay ocesspray asway itsway "
+"eaderlay.\n"
+"   Ethay ocesspray oupgray Idsway ofway ethay essionsay andway ethay "
+"allingcay ocesspray\n"
+"   areway etsay otay ethay ocesspray ID ofway ethay allingcay ocesspray, "
+"ichwhay isway eturnedray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the session ID of the given process."
+msgstr "Eturnray ethay essionsay ID ofway ethay ivengay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+"Unixway-etuidgay eturnsray ethay ealray userway-idway associatedway ithway "
+"ethay\n"
+"   urrentcay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the effective user ID of the calling process."
+msgstr "Etgay ethay effectiveway userway ID ofway ethay allingcay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+"Unixway-etgidgay eturnsray ethay ealray oupgray-idway ofway ethay urrentcay "
+"ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+"Unixway-etegidgay eturnsray ethay effectiveway oupgray-idway ofway ethay "
+"urrentcay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return nonzero iff the calling process is in group GID."
+msgstr ""
+"Eturnray onzeronay iffway ethay allingcay ocesspray isway inway oupgray GID."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+"Etsay ethay userway ID ofway ethay allingcay ocesspray otay UID.\n"
+"   Ifway ethay allingcay ocesspray isway ethay upersay-userway, etsay ethay "
+"ealray\n"
+"   andway effectiveway userway Idsway, andway ethay avedsay etsay-userway-ID "
+"otay UID;\n"
+"   ifway otnay, ethay effectiveway userway ID isway etsay otay UID."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+"Unixway-etreuidsay etssay ethay ealray andway effectiveway userway-idway's "
+"ofway ethay urrentcay\n"
+"   ocesspray otay ethay ecifiedspay onesway.  NIL andway anway errorway "
+"umbernay isway eturnedray\n"
+"   ifway ethay allcay ailsfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+"Etsay ethay oupgray ID ofway ethay allingcay ocesspray otay GID.\n"
+"   Ifway ethay allingcay ocesspray isway ethay upersay-userway, etsay ethay "
+"ealray\n"
+"   andway effectiveway oupgray Idsway, andway ethay avedsay etsay-oupgray-ID "
+"otay GID;\n"
+"   ifway otnay, ethay effectiveway oupgray ID isway etsay otay GID."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+"Unixway-etregidsay etssay ethay ealray andway effectiveway oupgray-idway's "
+"ofway ethay urrentcay\n"
+"   ocesspray ocesspray otay ethay ecifiedspay onesway.  NIL andway anway "
+"errorway umbernay isway\n"
+"   eturnedray ifway ethay allcay ailsfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+"Executesway ethay unixway orkfay ystemsay allcay.  Eturnsray 0 inway ethay "
+"ildchay andway ethay idpay\n"
+"   ofway ethay ildchay inway ethay arentpay ifway itway orksway, orway NIL "
+"andway anway errorway umbernay ifway itway\n"
+"   oesnday't orkway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+"Etgay ethay aluevay ofway ethay environmentway ariablevay amednay Amenay.  "
+"Ifway onay uchsay\n"
+"  ariablevay existsway, Ilnay isway eturnedray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+"Addsway ethay environmentway ariablevay amednay Amenay otay ethay "
+"environmentway ithway\n"
+"  ethay ivengay Aluevay ifway Amenay oesday otnay alreadyway existway. Ifway "
+"Amenay oesday existway,\n"
+"  ethay aluevay isway angedchay otay Aluevay ifway Overwriteway isway onnay-"
+"erozay.  Otherwiseway,\n"
+"  ethay aluevay isway otnay angedchay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+"Addsway orway angeschay ethay environmentway.  Amenay-aluevay ustmay ebay "
+"away ingstray ofway\n"
+"  ethay ormfay \"amenay=aluevay\".  Ifway ethay amenay oesday otnay "
+"existway, itway isway addedway.\n"
+"  Ifway amenay oesday existway, ethay aluevay isway updatedway otay ethay "
+"ivengay aluevay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Removes the variable Name from the environment"
+msgstr "Emovesray ethay ariablevay Amenay omfray ethay environmentway"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+"Acceptsway away Unixway ilefay escriptorday andway eturnsray T ifway ethay "
+"eviceday\n"
+"  associatedway ithway itway isway away erminaltay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+"Unixway-inklay eatescray away ardhay inklay omfray ethay ilefay ithway "
+"amenay1 otay ethay\n"
+"   ilefay ithway amenay2."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+"Unixway-ymlinksay eatescray away ymbolicsay inklay amednay amenay2 otay "
+"ethay ilefay\n"
+"   amednay amenay1.  NIL andway anway errorway umbernay isway eturnedray "
+"ifway ethay allcay\n"
+"   isway unsuccessfulway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+"Unixway-eadlinkray invokesway ethay eadlinkray ystemsay allcay onway ethay "
+"ilefay amenay\n"
+"  ecifiedspay ybay ethay implesay ingstray athpay.  Itway eturnsray upway "
+"otay wotay aluesvay:\n"
+"  ethay ontentscay ofway ethay ymbolicsay inklay ifway ethay allcay isway "
+"uccessfulsay, orway\n"
+"  NIL andway ethay Unixway errorway umbernay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+"Unixway-unlinkway emovesray ethay irectoryday entryway orfay ethay amednay "
+"ilefay.\n"
+"   NIL andway anway errorway odecay isway eturnedray ifway ethay allcay "
+"ailsfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+"Unixway-mdirray attemptsway otay emoveray ethay irectoryday amenay.  NIL "
+"andway\n"
+"   anway errorway umbernay isway eturnedray ifway anway errorway occuredway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+"Etgay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not "
+"supplied,\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+"Etgay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD.  Ifway otnay uppliedsay,\n"
+"  FD efaultsday otay /evday/tytay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+"Etsay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD otay PGRP."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+"Etsay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD otay PGRP.  Ifway otnay\n"
+"  uppliedsay, FD efaultsday otay /evday/tytay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the login name of the user."
+msgstr "Eturnray ethay oginlay amenay ofway ethay userway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-uname returns the name and information about the current kernel. The\n"
+"  values returned upon success are: sysname, nodename, release, version,\n"
+"  machine, and domainname. Upon failure, 'nil and the 'errno are returned."
+msgstr ""
+"Unixway-unameway eturnsray ethay amenay andway informationway aboutway ethay "
+"urrentcay ernelkay. Ethay\n"
+"  aluesvay eturnedray uponway uccesssay areway: ysnamesay, odenamenay, "
+"eleaseray, ersionvay,\n"
+"  achinemay, andway omainnameday. Uponway ailurefay, 'ilnay andway ethay "
+"'errnoway areway eturnedray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+"Unixway-ethostnamegay eturnsray ethay amenay ofway ethay osthay achinemay "
+"asway away ingstray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+"Unixway-syncfay iteswray ethay orecay imageway ofway ethay ilefay "
+"escribedday ybay\n"
+"   dfay otay iskday."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Revoke access permissions to all processes currently communicating\n"
+"  with the control terminal, and then send a SIGHUP signal to the process\n"
+"  group of the control terminal."
+msgstr ""
+"Evokeray accessway ermissionspay otay allway ocessespray urrentlycay "
+"ommunicatingcay\n"
+"  ithway ethay ontrolcay erminaltay, andway enthay endsay away SIGHUP "
+"ignalsay otay ethay ocesspray\n"
+"  oupgray ofway ethay ontrolcay erminaltay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Revoke the access of all descriptors currently open on FILE."
+msgstr ""
+"Evokeray ethay accessway ofway allway escriptorsday urrentlycay openway "
+"onway FILE."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make PATH be the root directory (the starting point for absolute paths).\n"
+"   This call is restricted to the super-user."
+msgstr ""
+"Akemay PATH ebay ethay ootray irectoryday (ethay tartingsay ointpay orfay "
+"absoluteway athspay).\n"
+"   Isthay allcay isway estrictedray otay ethay upersay-userway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+"Unixway-ethostidgay eturnsray away 32-itbay integerway ichwhay ovidespray "
+"uniqueway\n"
+"   identificationway orfay ethay osthay achinemay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+"Unixway-yncsay iteswray allway informationway inway orecay emorymay ichwhay "
+"ashay eenbay\n"
+"   odifiedmay otay iskday.  Itway eturnsray NIL andway anway errorway odecay "
+"ifway anway errorway\n"
+"   occuredway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
+"ystemsay agepay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by LENGTH.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+"Unixway-uncatetray uncatestray ethay amednay ilefay otay ethay engthlay "
+"(inway\n"
+"   ytesbay) ecifiedspay ybay LENGTH.  NIL andway anway errorway umbernay "
+"isway eturnedray\n"
+"   ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+"Unixway-truncatefay isway imilarsay otay unixway-uncatetray exceptway atthay "
+"ethay irstfay\n"
+"   argumentway isway away ilefay escriptorday atherray anthay away ilefay "
+"amenay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the maximum number of file descriptors\n"
+"   the current process could possibly have."
+msgstr ""
+"Eturnray ethay aximummay umbernay ofway ilefay escriptorsday\n"
+"   ethay urrentcay ocesspray ouldcay ossiblypay avehay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock a locked region"
+msgstr "Unlockway away ockedlay egionray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Lock a region for exclusive use"
+msgstr "Ocklay away egionray orfay exclusiveway useway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Test and lock a region for exclusive use"
+msgstr "Esttay andway ocklay away egionray orfay exclusiveway useway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Test a region for othwer processes locks"
+msgstr "Esttay away egionray orfay othwerway ocessespray ockslay"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-locks can lock, unlock and test files according to the cmd\n"
+"   which can be one of the following:\n"
+"\n"
+"   f_ulock  Unlock a locked region\n"
+"   f_lock   Lock a region for exclusive use\n"
+"   f_tlock  Test and lock a region for exclusive use\n"
+"   f_test   Test a region for othwer processes locks\n"
+"\n"
+"   The lock is for a region from the current location for a length\n"
+"   of length.\n"
+"\n"
+"   This is a simpler version of the interface provided by unix-fcntl.\n"
+"   "
+msgstr ""
+"Unixway-ockslay ancay ocklay, unlockway andway esttay ilesfay accordingway "
+"otay ethay mdcay\n"
+"   ichwhay ancay ebay oneway ofway ethay ollowingfay:\n"
+"\n"
+"   f_ulockway  Unlockway away ockedlay egionray\n"
+"   f_ocklay   Ocklay away egionray orfay exclusiveway useway\n"
+"   f_locktay  Esttay andway ocklay away egionray orfay exclusiveway useway\n"
+"   f_esttay   Esttay away egionray orfay othwerway ocessespray ockslay\n"
+"\n"
+"   Ethay ocklay isway orfay away egionray omfray ethay urrentcay ocationlay "
+"orfay away engthlay\n"
+"   ofway engthlay.\n"
+"\n"
+"   Isthay isway away implersay ersionvay ofway ethay interfaceway ovidedpray "
+"ybay unixway-cntlfay.\n"
+"   "
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+"Unixway-utimesway etssay ethay 'astlay-accessedway' andway 'astlay-"
+"updatedway'\n"
+"   imestay onway away ecifiedspay ilefay.  NIL andway anway errorway "
+"umbernay isway\n"
+"   eturnedray ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block waiting."
+msgstr "Onday't ockblay aitingway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Report status of stopped children."
+msgstr "Eportray tatussay ofway toppedsay ildrenchay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for cloned process."
+msgstr "Aitway orfay onedclay ocesspray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+"Unixway-ioctlway erformspay away arietyvay ofway operationsway onway openway "
+"i/o\n"
+"   escriptorsday.  Eesay ethay UNIX Ogrammerpray's Anualmay orfay oremay\n"
+"   informationway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change uid used for file access control to UID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+"Angechay uidway usedway orfay ilefay accessway ontrolcay otay UID, ithoutway "
+"affectingway\n"
+"   otherway iveledgespray (uchsay asway owhay ancay endsay ignalssay atway "
+"ethay ocesspray)."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change gid used for file access control to GID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+"Angechay idgay usedway orfay ilefay accessway ontrolcay otay GID, ithoutway "
+"affectingway\n"
+"   otherway iveledgespray (uchsay asway owhay ancay endsay ignalssay atway "
+"ethay ocesspray)."
+
+#: target:code/unix-glibc2.lisp
+msgid "There is data to read."
+msgstr "Erethay isway ataday otay eadray."
+
+#: target:code/unix-glibc2.lisp
+msgid "There is urgent data to read."
+msgstr "Erethay isway urgentway ataday otay eadray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Writing now will not block."
+msgstr "Itingwray ownay illway otnay ockblay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Error condition."
+msgstr "Errorway onditioncay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Hung up."
+msgstr "Unghay upway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid polling request."
+msgstr "Invalidway ollingpay equestray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Canonical number of polling requests to read\n"
+"in at a time in poll."
+msgstr ""
+"Anonicalcay umbernay ofway ollingpay equestsray otay eadray\n"
+"inway atway away imetay inway ollpay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Poll the file descriptors described by the NFDS structures starting at\n"
+"   FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for\n"
+"   an event to occur; if TIMEOUT is -1, block until an event occurs.\n"
+"   Returns the number of file descriptors with events, zero if timed out,\n"
+"   or -1 for errors."
+msgstr ""
+" Ollpay ethay ilefay escriptorsday escribedday ybay ethay NFDS ucturesstray "
+"tartingsay atway\n"
+"   FDS.  Ifway TIMEOUT isway onzeronay andway otnay -1, allowway TIMEOUT "
+"illisecondsmay orfay\n"
+"   anway eventway otay occurway; ifway TIMEOUT isway -1, ockblay untilway "
+"anway eventway occursway.\n"
+"   Eturnsray ethay umbernay ofway ilefay escriptorsday ithway eventsway, "
+"erozay ifway imedtay outway,\n"
+"   orway -1 orfay errorsway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the soft and hard limits for RESOURCE."
+msgstr "Etgay ethay oftsay andway ardhay imitslay orfay RESOURCE."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the current soft and hard maximum limits for RESOURCE.\n"
+"   Only the super-user can increase hard limits."
+msgstr ""
+"Etsay ethay urrentcay oftsay andway ardhay aximummay imitslay orfay "
+"RESOURCE.\n"
+"   Onlyway ethay upersay-userway ancay increaseway ardhay imitslay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+"Ikelay allcay etrusagegay, utbay eturnray onlyway ethay ystemsay andway "
+"userway imetay, andway eturnsray\n"
+"   ethay econdssay andway icrosecondsmay asway eparatesay aluesvay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+"Unixway-etrusagegay eturnsray informationway aboutway ethay esourceray "
+"usageway\n"
+"   ofway ethay ocesspray ecifiedspay ybay owhay.  Owhay ancay ebay eitherway "
+"ethay\n"
+"   urrentcay ocesspray (usageray_elfsay) orway allway ofway ethay "
+"erminatedtay\n"
+"   ildchay ocessespray (usageray_ildrenchay).  NIL andway anway errorway "
+"umbernay\n"
+"   isway eturnedray ifway ethay allcay ailsfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Function depends on CMD:\n"
+"  1 = Return the limit on the size of a file, in units of 512 bytes.\n"
+"  2 = Set the limit on the size of a file to NEWLIMIT.  Only the\n"
+"      super-user can increase the limit.\n"
+"  3 = Return the maximum possible address of the data segment.\n"
+"  4 = Return the maximum number of files that the calling process can open.\n"
+"  Returns -1 on errors."
+msgstr ""
+"Unctionfay ependsday onway CMD:\n"
+"  1 = Eturnray ethay imitlay onway ethay izesay ofway away ilefay, inway "
+"unitsway ofway 512 ytesbay.\n"
+"  2 = Etsay ethay imitlay onway ethay izesay ofway away ilefay otay "
+"NEWLIMIT.  Onlyway ethay\n"
+"      upersay-userway ancay increaseway ethay imitlay.\n"
+"  3 = Eturnray ethay aximummay ossiblepay addressway ofway ethay ataday "
+"egmentsay.\n"
+"  4 = Eturnray ethay aximummay umbernay ofway ilesfay atthay ethay allingcay "
+"ocesspray ancay openway.\n"
+"  Eturnsray -1 onway errorsway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the highest priority of any process specified by WHICH and WHO\n"
+"   (see above); if WHO is zero, the current process, process group, or user\n"
+"   (as specified by WHO) is used.  A lower priority number means higher\n"
+"   priority.  Priorities range from PRIO_MIN to PRIO_MAX (above)."
+msgstr ""
+"Eturnray ethay ighesthay ioritypray ofway anyway ocesspray ecifiedspay ybay "
+"WHICH andway WHO\n"
+"   (eesay aboveway); ifway WHO isway erozay, ethay urrentcay ocesspray, "
+"ocesspray oupgray, orway userway\n"
+"   (asway ecifiedspay ybay WHO) isway usedway.  Away owerlay ioritypray "
+"umbernay eansmay igherhay\n"
+"   ioritypray.  Ioritiespray angeray omfray PRIO_MIN otay PRIO_MAX "
+"(aboveway)."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the priority of all processes specified by WHICH and WHO (see above)\n"
+"   to PRIO.  Returns 0 on success, -1 on errors."
+msgstr ""
+"Etsay ethay ioritypray ofway allway ocessespray ecifiedspay ybay WHICH "
+"andway WHO (eesay aboveway)\n"
+"   otay PRIO.  Eturnsray 0 onway uccesssay, -1 onway errorsway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Perform the UNIX select(2) system call."
+msgstr "Erformpay ethay UNIX electsay(2) ystemsay allcay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+"Unixway-electsay examinesway ethay etssay ofway escriptorsday assedpay asway "
+"argumentsway\n"
+"   otay eesay ifway eythay areway eadyray orfay eadingray andway itingwray.  "
+"Eesay ethay UNIX\n"
+"   Ogrammerspray Anualmay orfay oremay informationway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-STAT retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+"UNIX-STAT etrievesray informationway aboutway ethay ecifiedspay\n"
+"   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n"
+"   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
+"   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay NIL\n"
+"   andway anway errorway umbernay isway eturnedray insteadway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-FSTAT is similar to UNIX-STAT except the file is specified\n"
+"   by the file descriptor FD."
+msgstr ""
+"UNIX-FSTAT isway imilarsay otay UNIX-STAT exceptway ethay ilefay isway "
+"ecifiedspay\n"
+"   ybay ethay ilefay escriptorday FD."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSTAT is similar to UNIX-STAT except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+"UNIX-LSTAT isway imilarsay otay UNIX-STAT exceptway ethay ecifiedspay\n"
+"   ilefay ustmay ebay away ymbolicsay inklay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"\n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"  \n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+"Ivengay away ilefay athpay ingstray andway away onstantcay odemay, unixway-"
+"modchay angeschay ethay\n"
+"   ermissionpay odemay orfay atthay ilefay otay ethay oneway ecifiedspay. "
+"Ethay ewnay odemay\n"
+"   ancay ebay eatedcray ybay ogicallylay OR'ingway ethay ollowingfay:\n"
+"\n"
+"      etuidexecsay        Etsay userway ID onway executionway.\n"
+"      etgidexecsay        Etsay oupgray ID onway executionway.\n"
+"      avetextsay          Avesay exttay imageway afterway executionway.\n"
+"      eadownray           Eadray ybay ownerway.\n"
+"      iteownwray          Itewray ybay ownerway.\n"
+"      execownway           Executeway (earchsay irectoryday) ybay ownerway.\n"
+"      eadgrpray           Eadray ybay oupgray.\n"
+"      itegrpwray          Itewray ybay oupgray.\n"
+"      execgrpway           Executeway (earchsay irectoryday) ybay oupgray.\n"
+"      eadothray           Eadray ybay othersway.\n"
+"      iteothwray          Itewray ybay othersway.\n"
+"      execothway           Executeway (earchsay irectoryday) ybay "
+"othersway.\n"
+"\n"
+"  Usthay #o444 andway (ogiorlay unixway:eadownray unixway:eadgrpray unixway:"
+"eadothray)\n"
+"  areway equivalentway orfay 'odemay.  Ethay octalway-asebay isway amilarfay "
+"otay Unixway usersway.\n"
+"  \n"
+"  Itway eturnsray T onway uccessfullysay ompletioncay; NIL andway anway "
+"errorway umbernay\n"
+"  otherwiseway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+"Ivengay anway integerway ilefay escriptorday andway away odemay (ethay "
+"amesay asway osethay\n"
+"   usedway orfay unixway-modchay), unixway-chmodfay angeschay ethay "
+"ermissionpay odemay\n"
+"   orfay atthay ilefay otay ethay oneway ecifiedspay. T isway eturnedray "
+"ifway ethay allcay\n"
+"   asway uccessfulsay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the file creation mask of the current process to MASK,\n"
+"   and return the old creation mask."
+msgstr ""
+"Etsay ethay ilefay eationcray askmay ofway ethay urrentcay ocesspray otay "
+"MASK,\n"
+"   andway eturnray ethay oldway eationcray askmay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+"Unixway-kdirmay eatescray away ewnay irectoryday ithway ethay ecifiedspay "
+"amenay andway odemay.\n"
+"   (Amesay asway osethay orfay unixway-modchay.)  Itway eturnsray T uponway "
+"uccesssay, otherwiseway\n"
+"   NIL andway anway errorway umbernay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a device file named PATH, with permission and special bits MODE\n"
+"  and device number DEV (which can be constructed from major and minor\n"
+"  device numbers with the `makedev' macro above)."
+msgstr ""
+"Eatecray away eviceday ilefay amednay PATH, ithway ermissionpay andway "
+"ecialspay itsbay MODE\n"
+"  andway eviceday umbernay DEV (ichwhay ancay ebay onstructedcay omfray "
+"ajormay andway inormay\n"
+"  eviceday umbersnay ithway ethay `akedevmay' acromay aboveway)."
+
+#: target:code/unix-glibc2.lisp
+msgid "Create a new FIFO named PATH, with permission bits MODE."
+msgstr ""
+"Eatecray away ewnay FIFO amednay PATH, ithway ermissionpay itsbay MODE."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return information about the filesystem on which FILE resides."
+msgstr ""
+"Eturnray informationway aboutway ethay ilesystemfay onway ichwhay FILE "
+"esidesray."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH available to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+"Akemay ethay ockblay ecialspay eviceday PATH availableway otay ethay "
+"ystemsay orfay wappingsay.\n"
+"  Isthay allcay isway estrictedray otay ethay upersay-userway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH unavailable to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+"Akemay ethay ockblay ecialspay eviceday PATH unavailableway otay ethay "
+"ystemsay orfay wappingsay.\n"
+"  Isthay allcay isway estrictedray otay ethay upersay-userway."
+
+#: target:code/unix-glibc2.lisp
+msgid "Read or write system parameters."
+msgstr "Eadray orway itewray ystemsay arameterspay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Time used by the program so far (user time + system time).\n"
+"   The result / CLOCKS_PER_SECOND is program time in seconds."
+msgstr ""
+"Imetay usedway ybay ethay ogrampray osay arfay (userway imetay + ystemsay "
+"imetay).\n"
+"   Ethay esultray / CLOCKS_PER_SECOND isway ogrampray imetay inway econdssay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the current time and put it in *TIMER if TIMER is not NULL."
+msgstr ""
+"Eturnray ethay urrentcay imetay andway utpay itway inway timer*ay ifway "
+"TIMER isway otnay NULL."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+"Ifway itway orksway, unixway-ettimeofdaygay eturnsray 5 aluesvay: T, ethay "
+"econdssay andway\n"
+"   icrosecondsmay ofway ethay urrentcay imetay ofway ayday, ethay imezonetay "
+"(inway inutesmay estway\n"
+"   ofway Eenwichgray), andway away aylightday-avingssay agflay.  Ifway itway "
+"oesnday't orkway, itway\n"
+"   eturnsray NIL andway ethay errnoway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+"Unixway-etitimergay eturnsray ethay INTERVAL andway VALUE otsslay ofway "
+"oneway ofway\n"
+"   reethay ystemsay imerstay (:ealray :irtualvay orway :ofilepray). Onway "
+"uccesssay,\n"
+"   unixway-etitimergay eturnsray 5 aluesvay,\n"
+"   T, itway-intervalway-ecssay, itway-intervalway-usecway, itway-aluevay-"
+"ecssay, itway-aluevay-usecway."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+" Unixway-etitimersay etssay ethay INTERVAL andway VALUE otsslay ofway oneway "
+"ofway\n"
+"   reethay ystemsay imerstay (:ealray :irtualvay orway :ofilepray). Away "
+"SIGALRM ignalsay\n"
+"   illway ebay eliveredday VALUE <econdssay+icrosecondsmay> omfray ownay. "
+"INTERVAL,\n"
+"   enwhay onnay-erozay, isway <econdssay+icrosecondsmay> otay ebay oadedlay "
+"eachway imetay\n"
+"   ethay imertay expiresway. Ettingsay INTERVAL andway VALUE otay erozay "
+"isablesday\n"
+"   ethay imertay. Eesay ethay Unixway anmay agepay orfay oremay etailsday. "
+"Onway uccesssay,\n"
+"   unixway-etitimersay eturnsray ethay oldway ontentscay ofway ethay "
+"INTERVAL andway VALUE\n"
+"   otsslay asway inway unixway-etitimergay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Fill in TIMEBUF with information about the current time."
+msgstr ""
+"Illfay inway TIMEBUF ithway informationway aboutway ethay urrentcay imetay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Store the CPU time used by this process and all its\n"
+"   dead children (and their dead children) in BUFFER.\n"
+"   Return the elapsed real time, or (clock_t) -1 for errors.\n"
+"   All times are in CLK_TCKths of a second."
+msgstr ""
+"Toresay ethay CPU imetay usedway ybay isthay ocesspray andway allway itsway\n"
+"   eadday ildrenchay (andway eirthay eadday ildrenchay) inway BUFFER.\n"
+"   Eturnray ethay elapsedway ealray imetay, orway (ockclay_t) -1 orfay "
+"errorsway.\n"
+"   Allway imestay areway inway CLK_Ckthstay ofway away econdsay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child to die.  When one does, put its status in *STAT_LOC\n"
+"   and return its process ID.  For errors, return (pid_t) -1."
+msgstr ""
+"Aitway orfay away ildchay otay ieday.  Enwhay oneway oesday, utpay itsway "
+"tatussay inway stat*ay_LOC\n"
+"   andway eturnray itsway ocesspray ID.  Orfay errorsway, eturnray (idpay_t) "
+"-1."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child matching PID to die.\n"
+"   If PID is greater than 0, match any process whose process ID is PID.\n"
+"   If PID is (pid_t) -1, match any process.\n"
+"   If PID is (pid_t) 0, match any process with the\n"
+"   same process group as the current process.\n"
+"   If PID is less than -1, match any process whose\n"
+"   process group is the absolute value of PID.\n"
+"   If the WNOHANG bit is set in OPTIONS, and that child\n"
+"   is not already dead, return (pid_t) 0.  If successful,\n"
+"   return PID and store the dead child's status in STAT_LOC.\n"
+"   Return (pid_t) -1 for errors.  If the WUNTRACED bit is\n"
+"   set in OPTIONS, return status for stopped children; otherwise don't."
+msgstr ""
+"Aitway orfay away ildchay atchingmay PID otay ieday.\n"
+"   Ifway PID isway eatergray anthay 0, atchmay anyway ocesspray osewhay "
+"ocesspray ID isway PID.\n"
+"   Ifway PID isway (idpay_t) -1, atchmay anyway ocesspray.\n"
+"   Ifway PID isway (idpay_t) 0, atchmay anyway ocesspray ithway ethay\n"
+"   amesay ocesspray oupgray asway ethay urrentcay ocesspray.\n"
+"   Ifway PID isway esslay anthay -1, atchmay anyway ocesspray osewhay\n"
+"   ocesspray oupgray isway ethay absoluteway aluevay ofway PID.\n"
+"   Ifway ethay WNOHANG itbay isway etsay inway OPTIONS, andway atthay "
+"ildchay\n"
+"   isway otnay alreadyway eadday, eturnray (idpay_t) 0.  Ifway "
+"uccessfulsay,\n"
+"   eturnray PID andway toresay ethay eadday ildchay's tatussay inway "
+"STAT_LOC.\n"
+"   Eturnray (idpay_t) -1 orfay errorsway.  Ifway ethay WUNTRACED itbay "
+"isway\n"
+"   etsay inway OPTIONS, eturnray tatussay orfay toppedsay ildrenchay; "
+"otherwiseway onday't."
+
+#: target:code/unix-glibc2.lisp
+msgid "Successful"
+msgstr "Uccessfulsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not permitted"
+msgstr "Operationway otnay ermittedpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No such file or directory"
+msgstr "Onay uchsay ilefay orway irectoryday"
+
+#: target:code/unix-glibc2.lisp
+msgid "No such process"
+msgstr "Onay uchsay ocesspray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call"
+msgstr "Interruptedway ystemsay allcay"
+
+#: target:code/unix-glibc2.lisp
+msgid "I/O error"
+msgstr "Iway/O errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device or address"
+msgstr "Onay uchsay eviceday orway addressway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Arg list too long"
+msgstr "Argway istlay ootay onglay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Exec format error"
+msgstr "Execway ormatfay errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad file number"
+msgstr "Adbay ilefay umbernay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No children"
+msgstr "Onay ildrenchay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Try again"
+msgstr "Ytray againway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of memory"
+msgstr "Outway ofway emorymay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Permission denied"
+msgstr "Ermissionpay eniedday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad address"
+msgstr "Adbay addressway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device required"
+msgstr "Ockblay eviceday equiredray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Device or resource busy"
+msgstr "Eviceday orway esourceray usybay"
+
+#: target:code/unix-glibc2.lisp
+msgid "File exists"
+msgstr "Ilefay existsway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Cross-device link"
+msgstr "Osscray-eviceday inklay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device"
+msgstr "Onay uchsay eviceday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a director"
+msgstr "Otnay away irectorday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a directory"
+msgstr "Isway away irectoryday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid argument"
+msgstr "Invalidway argumentway"
+
+#: target:code/unix-glibc2.lisp
+msgid "File table overflow"
+msgstr "Ilefay abletay overflowway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many open files"
+msgstr "Ootay anymay openway ilesfay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a typewriter"
+msgstr "Otnay away ypewritertay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Text file busy"
+msgstr "Exttay ilefay usybay"
+
+#: target:code/unix-glibc2.lisp
+msgid "File too large"
+msgstr "Ilefay ootay argelay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No space left on device"
+msgstr "Onay acespay eftlay onway eviceday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal seek"
+msgstr "Illegalway eeksay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only file system"
+msgstr "Eadray-onlyway ilefay ystemsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many links"
+msgstr "Ootay anymay inkslay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Broken pipe"
+msgstr "Okenbray ipepay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Math argument out of domain"
+msgstr "Athmay argumentway outway ofway omainday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Math result not representable"
+msgstr "Athmay esultray otnay epresentableray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Resource deadlock would occur"
+msgstr "Esourceray eadlockday ouldway occurway"
+
+#: target:code/unix-glibc2.lisp
+msgid "File name too long"
+msgstr "Ilefay amenay ootay onglay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No record locks available"
+msgstr "Onay ecordray ockslay availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Function not implemented"
+msgstr "Unctionfay otnay implementedway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory not empty"
+msgstr "Irectoryday otnay emptyway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many symbolic links encountered"
+msgstr "Ootay anymay ymbolicsay inkslay encounteredway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation would block"
+msgstr "Operationway ouldway ockblay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No message of desired type"
+msgstr "Onay essagemay ofway esiredday ypetay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Identifier removed"
+msgstr "Identifierway emovedray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Channel number out of range"
+msgstr "Annelchay umbernay outway ofway angeray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 not synchronized"
+msgstr "Evellay 2 otnay ynchronizedsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 halted"
+msgstr "Evellay 3 altedhay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 reset"
+msgstr "Evellay 3 esetray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Link number out of range"
+msgstr "Inklay umbernay outway ofway angeray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol driver not attached"
+msgstr "Otocolpray iverdray otnay attachedway"
+
+#: target:code/unix-glibc2.lisp
+msgid "No CSI structure available"
+msgstr "Onay CSI ucturestray availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 halted"
+msgstr "Evellay 2 altedhay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid exchange"
+msgstr "Invalidway exchangeway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request descriptor"
+msgstr "Invalidway equestray escriptorday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Exchange full"
+msgstr "Exchangeway ullfay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No anode"
+msgstr "Onay anodeway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request code"
+msgstr "Invalidway equestray odecay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid slot"
+msgstr "Invalidway otslay"
+
+#: target:code/unix-glibc2.lisp
+msgid "File locking deadlock error"
+msgstr "Ilefay ockinglay eadlockday errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad font file format"
+msgstr "Adbay ontfay ilefay ormatfay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Device not a stream"
+msgstr "Eviceday otnay away eamstray"
+
+#: target:code/unix-glibc2.lisp
+msgid "No data available"
+msgstr "Onay ataday availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Timer expired"
+msgstr "Imertay expiredway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of streams resources"
+msgstr "Outway ofway eamsstray esourcesray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Machine is not on the network"
+msgstr "Achinemay isway otnay onway ethay etworknay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Package not installed"
+msgstr "Ackagepay otnay installedway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Object is remote"
+msgstr "Objectway isway emoteray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Link has been severed"
+msgstr "Inklay ashay eenbay everedsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Advertise error"
+msgstr "Advertiseway errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Srmount error"
+msgstr "Rmountsay errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Communication error on send"
+msgstr "Ommunicationcay errorway onway endsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol error"
+msgstr "Otocolpray errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Multihop attempted"
+msgstr "Ultihopmay attemptedway"
+
+#: target:code/unix-glibc2.lisp
+msgid "RFS specific error"
+msgstr "RFS ecificspay errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a data message"
+msgstr "Otnay away ataday essagemay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Value too large for defined data type"
+msgstr "Aluevay ootay argelay orfay efinedday ataday ypetay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Name not unique on network"
+msgstr "Amenay otnay uniqueway onway etworknay"
+
+#: target:code/unix-glibc2.lisp
+msgid "File descriptor in bad state"
+msgstr "Ilefay escriptorday inway adbay tatesay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote address changed"
+msgstr "Emoteray addressway angedchay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Can not access a needed shared library"
+msgstr "Ancay otnay accessway away eedednay aredshay ibrarylay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Accessing a corrupted shared library"
+msgstr "Accessingway away orruptedcay aredshay ibrarylay"
+
+#: target:code/unix-glibc2.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ".iblay ectionsay inway away.outway orruptedcay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr "Attemptingway otay inklay inway ootay anymay aredshay ibrarieslay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot exec a shared library directly"
+msgstr "Annotcay execway away aredshay ibrarylay irectlyday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal byte sequence"
+msgstr "Illegalway ytebay equencesay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr "Interruptedway ystemsay allcay ouldshay ebay estartedray _N"
+
+#: target:code/unix-glibc2.lisp
+msgid "Streams pipe error"
+msgstr "Eamsstray ipepay errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many users"
+msgstr "Ootay anymay usersway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket operation on non-socket"
+msgstr "Ocketsay operationway onway onnay-ocketsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Destination address required"
+msgstr "Estinationday addressway equiredray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Message too long"
+msgstr "Essagemay ootay onglay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol wrong type for socket"
+msgstr "Otocolpray ongwray ypetay orfay ocketsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not available"
+msgstr "Otocolpray otnay availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not supported"
+msgstr "Otocolpray otnay upportedsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket type not supported"
+msgstr "Ocketsay ypetay otnay upportedsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr "Operationway otnay upportedsay onway ansporttray endpointway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol family not supported"
+msgstr "Otocolpray amilyfay otnay upportedsay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family not supported by protocol"
+msgstr "Addressway amilyfay otnay upportedsay ybay otocolpray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Address already in use"
+msgstr "Addressway alreadyway inway useway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot assign requested address"
+msgstr "Annotcay assignway equestedray addressway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is down"
+msgstr "Etworknay isway ownday"
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is unreachable"
+msgstr "Etworknay isway unreachableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Network dropped connection because of reset"
+msgstr "Etworknay oppeddray onnectioncay ecausebay ofway esetray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Software caused connection abort"
+msgstr "Oftwaresay ausedcay onnectioncay abortway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection reset by peer"
+msgstr "Onnectioncay esetray ybay eerpay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No buffer space available"
+msgstr "Onay ufferbay acespay availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is already connected"
+msgstr "Ansporttray endpointway isway alreadyway onnectedcay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is not connected"
+msgstr "Ansporttray endpointway isway otnay onnectedcay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr "Annotcay endsay afterway ansporttray endpointway utdownshay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many references: cannot splice"
+msgstr "Ootay anymay eferencesray: annotcay licespay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection timed out"
+msgstr "Onnectioncay imedtay outway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection refused"
+msgstr "Onnectioncay efusedray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Host is down"
+msgstr "Osthay isway ownday"
+
+#: target:code/unix-glibc2.lisp
+msgid "No route to host"
+msgstr "Onay outeray otay osthay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation already in progress"
+msgstr "Operationway alreadyway inway ogresspray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation now in progress"
+msgstr "Operationway ownay inway ogresspray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Stale NFS file handle"
+msgstr "Talesay NFS ilefay andlehay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Structure needs cleaning"
+msgstr "Ucturestray eedsnay eaningclay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a XENIX named type file"
+msgstr "Otnay away XENIX amednay ypetay ilefay"
+
+#: target:code/unix-glibc2.lisp
+msgid "No XENIX semaphores available"
+msgstr "Onay XENIX emaphoressay availableway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a named type file"
+msgstr "Isway away amednay ypetay ilefay"
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote I/O error"
+msgstr "Emoteray Iway/O errorway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Quota exceeded"
+msgstr "Otaquay exceededway"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
+"  then ioctl argument size and direction are included as for ioctls defined\n"
+"  by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type\n"
+"  is the characters code, else DEV may be an integer giving the type."
+msgstr ""
+"Efineday anway ioctlway ommandcay. Ifway ethay optionalway ARG andway PARM-"
+"TYPE areway ivengay\n"
+"  enthay ioctlway argumentway izesay andway irectionday areway includedway "
+"asway orfay ioctlsway efinedday\n"
+"  ybay _IO, _IOR, _IOW, orway _IOWR. Ifway DEV isway away aracterchay enthay "
+"ethay ioctlway ypetay\n"
+"  isway ethay aracterschay odecay, elseway DEV aymay ebay anway integerway "
+"ivinggay ethay ypetay."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+"Etsay ethay ocketsay ocesspray-oupgray orfay ethay unixway ilefay-"
+"escriptorday FD otay PGRP."
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution"
+msgstr "Etsay userway ID onway executionway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution"
+msgstr "Etsay oupgray ID onway executionway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Save text image after execution"
+msgstr "Avesay exttay imageway afterway executionway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner"
+msgstr "Itewray ybay ownerway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by owner"
+msgstr "Executeway (earchsay irectoryday) ybay ownerway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by group"
+msgstr "Eadray ybay oupgray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by group"
+msgstr "Itewray ybay oupgray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by group"
+msgstr "Executeway (earchsay irectoryday) ybay oupgray"
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by others"
+msgstr "Eadray ybay othersway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by others"
+msgstr "Itewray ybay othersway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by others"
+msgstr "Executeway (earchsay irectoryday) ybay othersway"
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+"Eturnsray eitherway :ilefay, :irectoryday, :inklay, :ecialspay, orway NIL."
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+"Eturnsray ethay athnamepay ithway allway ymbolicsay inkslay esolvedray."
+
+#: target:code/unix-glibc2.lisp
+msgid "Error reading link ~S: ~S"
+msgstr "Errorway eadingray inklay ~S: ~S"
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
+"LOGIN, orway NIL ifway otnay oundfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
+"UID, orway NIL ifway otnay oundfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+"Eturnray away GROUP-INFO ucturestray orfay ethay oupgray identifiedway ybay "
+"NAME, orway NIL ifway otnay oundfay."
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away GROUP-INFO ucturestray orfay ethay oupgray identifiedway ybay "
+"GID, orway NIL ifway otnay oundfay."
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po
new file mode 100644
index 0000000000000000000000000000000000000000..fda47c0a6224079b26f952d7bc72f23446c8e5d1
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po
@@ -0,0 +1,1966 @@
+# @ cmucl-unix
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/unix.lisp
+msgid "Size of control character vector."
+msgstr "Izesay ofway ontrolcay aracterchay ectorvay."
+
+#: target:code/unix.lisp
+msgid "Successful"
+msgstr "Uccessfulsay"
+
+#: target:code/unix.lisp
+msgid "Operation not permitted"
+msgstr "Operationway otnay ermittedpay"
+
+#: target:code/unix.lisp
+msgid "No such file or directory"
+msgstr "Onay uchsay ilefay orway irectoryday"
+
+#: target:code/unix.lisp
+msgid "No such process"
+msgstr "Onay uchsay ocesspray"
+
+#: target:code/unix.lisp
+msgid "Interrupted system call"
+msgstr "Interruptedway ystemsay allcay"
+
+#: target:code/unix.lisp
+msgid "I/O error"
+msgstr "Iway/O errorway"
+
+#: target:code/unix.lisp
+msgid "Device not configured"
+msgstr "Eviceday otnay onfiguredcay"
+
+#: target:code/unix.lisp
+msgid "Arg list too long"
+msgstr "Argway istlay ootay onglay"
+
+#: target:code/unix.lisp
+msgid "Exec format error"
+msgstr "Execway ormatfay errorway"
+
+#: target:code/unix.lisp
+msgid "Bad file descriptor"
+msgstr "Adbay ilefay escriptorday"
+
+#: target:code/unix.lisp
+msgid "No child process"
+msgstr "Onay ildchay ocesspray"
+
+#: target:code/unix.lisp
+msgid "Resource deadlock avoided"
+msgstr "Esourceray eadlockday avoidedway"
+
+#: target:code/unix.lisp
+msgid "No more processes"
+msgstr "Onay oremay ocessespray"
+
+#: target:code/unix.lisp
+msgid "Try again"
+msgstr "Ytray againway"
+
+#: target:code/unix.lisp
+msgid "Out of memory"
+msgstr "Outway ofway emorymay"
+
+#: target:code/unix.lisp
+msgid "Permission denied"
+msgstr "Ermissionpay eniedday"
+
+#: target:code/unix.lisp
+msgid "Bad address"
+msgstr "Adbay addressway"
+
+#: target:code/unix.lisp
+msgid "Block device required"
+msgstr "Ockblay eviceday equiredray"
+
+#: target:code/unix.lisp
+msgid "Device or resource busy"
+msgstr "Eviceday orway esourceray usybay"
+
+#: target:code/unix.lisp
+msgid "File exists"
+msgstr "Ilefay existsway"
+
+#: target:code/unix.lisp
+msgid "Cross-device link"
+msgstr "Osscray-eviceday inklay"
+
+#: target:code/unix.lisp
+msgid "No such device"
+msgstr "Onay uchsay eviceday"
+
+#: target:code/unix.lisp
+msgid "Not a director"
+msgstr "Otnay away irectorday"
+
+#: target:code/unix.lisp
+msgid "Is a directory"
+msgstr "Isway away irectoryday"
+
+#: target:code/unix.lisp
+msgid "Invalid argument"
+msgstr "Invalidway argumentway"
+
+#: target:code/unix.lisp
+msgid "File table overflow"
+msgstr "Ilefay abletay overflowway"
+
+#: target:code/unix.lisp
+msgid "Too many open files"
+msgstr "Ootay anymay openway ilesfay"
+
+#: target:code/unix.lisp
+msgid "Inappropriate ioctl for device"
+msgstr "Inappropriateway ioctlway orfay eviceday"
+
+#: target:code/unix.lisp
+msgid "Text file busy"
+msgstr "Exttay ilefay usybay"
+
+#: target:code/unix.lisp
+msgid "File too large"
+msgstr "Ilefay ootay argelay"
+
+#: target:code/unix.lisp
+msgid "No space left on device"
+msgstr "Onay acespay eftlay onway eviceday"
+
+#: target:code/unix.lisp
+msgid "Illegal seek"
+msgstr "Illegalway eeksay"
+
+#: target:code/unix.lisp
+msgid "Read-only file system"
+msgstr "Eadray-onlyway ilefay ystemsay"
+
+#: target:code/unix.lisp
+msgid "Too many links"
+msgstr "Ootay anymay inkslay"
+
+#: target:code/unix.lisp
+msgid "Broken pipe"
+msgstr "Okenbray ipepay"
+
+#: target:code/unix.lisp
+msgid "Numerical argument out of domain"
+msgstr "Umericalnay argumentway outway ofway omainday"
+
+#: target:code/unix.lisp
+msgid "Result too large"
+msgstr "Esultray ootay argelay"
+
+#: target:code/unix.lisp
+msgid "Math result not representable"
+msgstr "Athmay esultray otnay epresentableray"
+
+#: target:code/unix.lisp
+msgid "Operation would block"
+msgstr "Operationway ouldway ockblay"
+
+#: target:code/unix.lisp
+msgid "Resource temporarily unavailable"
+msgstr "Esourceray emporarilytay unavailableway"
+
+#: target:code/unix.lisp
+msgid "Operation now in progress"
+msgstr "Operationway ownay inway ogresspray"
+
+#: target:code/unix.lisp
+msgid "Operation already in progress"
+msgstr "Operationway alreadyway inway ogresspray"
+
+#: target:code/unix.lisp
+msgid "Socket operation on non-socket"
+msgstr "Ocketsay operationway onway onnay-ocketsay"
+
+#: target:code/unix.lisp
+msgid "Destination address required"
+msgstr "Estinationday addressway equiredray"
+
+#: target:code/unix.lisp
+msgid "Message too long"
+msgstr "Essagemay ootay onglay"
+
+#: target:code/unix.lisp
+msgid "Protocol wrong type for socket"
+msgstr "Otocolpray ongwray ypetay orfay ocketsay"
+
+#: target:code/unix.lisp
+msgid "Protocol not available"
+msgstr "Otocolpray otnay availableway"
+
+#: target:code/unix.lisp
+msgid "Protocol not supported"
+msgstr "Otocolpray otnay upportedsay"
+
+#: target:code/unix.lisp
+msgid "Socket type not supported"
+msgstr "Ocketsay ypetay otnay upportedsay"
+
+#: target:code/unix.lisp
+msgid "Operation not supported on socket"
+msgstr "Operationway otnay upportedsay onway ocketsay"
+
+#: target:code/unix.lisp
+msgid "Protocol family not supported"
+msgstr "Otocolpray amilyfay otnay upportedsay"
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol family"
+msgstr "Addressway amilyfay otnay upportedsay ybay otocolpray amilyfay"
+
+#: target:code/unix.lisp
+msgid "Address already in use"
+msgstr "Addressway alreadyway inway useway"
+
+#: target:code/unix.lisp
+msgid "Can't assign requested address"
+msgstr "Ancay't assignway equestedray addressway"
+
+#: target:code/unix.lisp
+msgid "Network is down"
+msgstr "Etworknay isway ownday"
+
+#: target:code/unix.lisp
+msgid "Network is unreachable"
+msgstr "Etworknay isway unreachableway"
+
+#: target:code/unix.lisp
+msgid "Network dropped connection on reset"
+msgstr "Etworknay oppeddray onnectioncay onway esetray"
+
+#: target:code/unix.lisp
+msgid "Software caused connection abort"
+msgstr "Oftwaresay ausedcay onnectioncay abortway"
+
+#: target:code/unix.lisp
+msgid "Connection reset by peer"
+msgstr "Onnectioncay esetray ybay eerpay"
+
+#: target:code/unix.lisp
+msgid "No buffer space available"
+msgstr "Onay ufferbay acespay availableway"
+
+#: target:code/unix.lisp
+msgid "Socket is already connected"
+msgstr "Ocketsay isway alreadyway onnectedcay"
+
+#: target:code/unix.lisp
+msgid "Socket is not connected"
+msgstr "Ocketsay isway otnay onnectedcay"
+
+#: target:code/unix.lisp
+msgid "Can't send after socket shutdown"
+msgstr "Ancay't endsay afterway ocketsay utdownshay"
+
+#: target:code/unix.lisp
+msgid "Too many references: can't splice"
+msgstr "Ootay anymay eferencesray: ancay't licespay"
+
+#: target:code/unix.lisp
+msgid "Connection timed out"
+msgstr "Onnectioncay imedtay outway"
+
+#: target:code/unix.lisp
+msgid "Connection refused"
+msgstr "Onnectioncay efusedray"
+
+#: target:code/unix.lisp
+msgid "Too many levels of symbolic links"
+msgstr "Ootay anymay evelslay ofway ymbolicsay inkslay"
+
+#: target:code/unix.lisp
+msgid "File name too long"
+msgstr "Ilefay amenay ootay onglay"
+
+#: target:code/unix.lisp
+msgid "Host is down"
+msgstr "Osthay isway ownday"
+
+#: target:code/unix.lisp
+msgid "No route to host"
+msgstr "Onay outeray otay osthay"
+
+#: target:code/unix.lisp
+msgid "Directory not empty"
+msgstr "Irectoryday otnay emptyway"
+
+#: target:code/unix.lisp
+msgid "Too many processes"
+msgstr "Ootay anymay ocessespray"
+
+#: target:code/unix.lisp
+msgid "Too many users"
+msgstr "Ootay anymay usersway"
+
+#: target:code/unix.lisp
+msgid "Disc quota exceeded"
+msgstr "Iscday otaquay exceededway"
+
+#: target:code/unix.lisp
+msgid "namei should continue locally"
+msgstr "ameinay ouldshay ontinuecay ocallylay"
+
+#: target:code/unix.lisp
+msgid "namei was handled remotely"
+msgstr "ameinay asway andledhay emotelyray"
+
+#: target:code/unix.lisp
+msgid "Remote file system error _N"
+msgstr "Emoteray ilefay ystemsay errorway _N"
+
+#: target:code/unix.lisp
+msgid "syscall was handled by Vice"
+msgstr "yscallsay asway andledhay ybay Icevay"
+
+#: target:code/unix.lisp
+msgid "No message of desired type"
+msgstr "Onay essagemay ofway esiredday ypetay"
+
+#: target:code/unix.lisp
+msgid "Identifier removed"
+msgstr "Identifierway emovedray"
+
+#: target:code/unix.lisp
+msgid "Channel number out of range"
+msgstr "Annelchay umbernay outway ofway angeray"
+
+#: target:code/unix.lisp
+msgid "Level 2 not synchronized"
+msgstr "Evellay 2 otnay ynchronizedsay"
+
+#: target:code/unix.lisp
+msgid "Level 3 halted"
+msgstr "Evellay 3 altedhay"
+
+#: target:code/unix.lisp
+msgid "Level 3 reset"
+msgstr "Evellay 3 esetray"
+
+#: target:code/unix.lisp
+msgid "Link number out of range"
+msgstr "Inklay umbernay outway ofway angeray"
+
+#: target:code/unix.lisp
+msgid "Protocol driver not attached"
+msgstr "Otocolpray iverdray otnay attachedway"
+
+#: target:code/unix.lisp
+msgid "No CSI structure available"
+msgstr "Onay CSI ucturestray availableway"
+
+#: target:code/unix.lisp
+msgid "Level 2 halted"
+msgstr "Evellay 2 altedhay"
+
+#: target:code/unix.lisp
+msgid "Deadlock situation detected/avoided"
+msgstr "Eadlockday ituationsay etectedday/avoidedway"
+
+#: target:code/unix.lisp
+msgid "No record locks available"
+msgstr "Onay ecordray ockslay availableway"
+
+#: target:code/unix.lisp
+msgid "Error 47"
+msgstr "Errorway 47"
+
+#: target:code/unix.lisp
+msgid "Error 48"
+msgstr "Errorway 48"
+
+#: target:code/unix.lisp
+msgid "Bad exchange descriptor"
+msgstr "Adbay exchangeway escriptorday"
+
+#: target:code/unix.lisp
+msgid "Bad request descriptor"
+msgstr "Adbay equestray escriptorday"
+
+#: target:code/unix.lisp
+msgid "Message tables full"
+msgstr "Essagemay ablestay ullfay"
+
+#: target:code/unix.lisp
+msgid "Anode table overflow"
+msgstr "Anodeway abletay overflowway"
+
+#: target:code/unix.lisp
+msgid "Bad request code"
+msgstr "Adbay equestray odecay"
+
+#: target:code/unix.lisp
+msgid "Invalid slot"
+msgstr "Invalidway otslay"
+
+#: target:code/unix.lisp
+msgid "File locking deadlock"
+msgstr "Ilefay ockinglay eadlockday"
+
+#: target:code/unix.lisp
+msgid "Bad font file format"
+msgstr "Adbay ontfay ilefay ormatfay"
+
+#: target:code/unix.lisp
+msgid "Not a stream device"
+msgstr "Otnay away eamstray eviceday"
+
+#: target:code/unix.lisp
+msgid "No data available"
+msgstr "Onay ataday availableway"
+
+#: target:code/unix.lisp
+msgid "Timer expired"
+msgstr "Imertay expiredway"
+
+#: target:code/unix.lisp
+msgid "Out of stream resources"
+msgstr "Outway ofway eamstray esourcesray"
+
+#: target:code/unix.lisp
+msgid "Machine is not on the network"
+msgstr "Achinemay isway otnay onway ethay etworknay"
+
+#: target:code/unix.lisp
+msgid "Package not installed"
+msgstr "Ackagepay otnay installedway"
+
+#: target:code/unix.lisp
+msgid "Object is remote"
+msgstr "Objectway isway emoteray"
+
+#: target:code/unix.lisp
+msgid "Link has been severed"
+msgstr "Inklay ashay eenbay everedsay"
+
+#: target:code/unix.lisp
+msgid "Advertise error"
+msgstr "Advertiseway errorway"
+
+#: target:code/unix.lisp
+msgid "Srmount error"
+msgstr "Rmountsay errorway"
+
+#: target:code/unix.lisp
+msgid "Communication error on send"
+msgstr "Ommunicationcay errorway onway endsay"
+
+#: target:code/unix.lisp
+msgid "Protocol error"
+msgstr "Otocolpray errorway"
+
+#: target:code/unix.lisp
+msgid "Multihop attempted"
+msgstr "Ultihopmay attemptedway"
+
+#: target:code/unix.lisp
+msgid "Not a data message"
+msgstr "Otnay away ataday essagemay"
+
+#: target:code/unix.lisp
+msgid "Value too large for defined data type"
+msgstr "Aluevay ootay argelay orfay efinedday ataday ypetay"
+
+#: target:code/unix.lisp
+msgid "Name not unique on network"
+msgstr "Amenay otnay uniqueway onway etworknay"
+
+#: target:code/unix.lisp
+msgid "File descriptor in bad state"
+msgstr "Ilefay escriptorday inway adbay tatesay"
+
+#: target:code/unix.lisp
+msgid "Remote address changed"
+msgstr "Emoteray addressway angedchay"
+
+#: target:code/unix.lisp
+msgid "Can not access a needed shared library"
+msgstr "Ancay otnay accessway away eedednay aredshay ibrarylay"
+
+#: target:code/unix.lisp
+msgid "Accessing a corrupted shared library"
+msgstr "Accessingway away orruptedcay aredshay ibrarylay"
+
+#: target:code/unix.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ".iblay ectionsay inway away.outway orruptedcay"
+
+#: target:code/unix.lisp
+msgid "Attempting to link in more shared libraries than system limit"
+msgstr ""
+"Attemptingway otay inklay inway oremay aredshay ibrarieslay anthay ystemsay "
+"imitlay"
+
+#: target:code/unix.lisp
+msgid "Can not exec a shared library directly"
+msgstr "Ancay otnay execway away aredshay ibrarylay irectlyday"
+
+#: target:code/unix.lisp
+msgid "Error 88"
+msgstr "Errorway 88"
+
+#: target:code/unix.lisp
+msgid "Operation not applicable"
+msgstr "Operationway otnay applicableway"
+
+#: target:code/unix.lisp
+msgid ""
+"Number of symbolic links encountered during path name traversal exceeds "
+"MAXSYMLINKS"
+msgstr ""
+"Umbernay ofway ymbolicsay inkslay encounteredway uringday athpay amenay "
+"aversaltray exceedsway MAXSYMLINKS"
+
+#: target:code/unix.lisp
+msgid "Error 91"
+msgstr "Errorway 91"
+
+#: target:code/unix.lisp
+msgid "Error 92"
+msgstr "Errorway 92"
+
+#: target:code/unix.lisp
+msgid "Option not supported by protocol"
+msgstr "Optionway otnay upportedsay ybay otocolpray"
+
+#: target:code/unix.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr "Operationway otnay upportedsay onway ansporttray endpointway"
+
+#: target:code/unix.lisp
+msgid "Cannot assign requested address"
+msgstr "Annotcay assignway equestedray addressway"
+
+#: target:code/unix.lisp
+msgid "Network dropped connection because of reset"
+msgstr "Etworknay oppeddray onnectioncay ecausebay ofway esetray"
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is already connected"
+msgstr "Ansporttray endpointway isway alreadyway onnectedcay"
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is not connected"
+msgstr "Ansporttray endpointway isway otnay onnectedcay"
+
+#: target:code/unix.lisp
+msgid "Cannot send after socket shutdown"
+msgstr "Annotcay endsay afterway ocketsay utdownshay"
+
+#: target:code/unix.lisp
+msgid "Too many references: cannot splice"
+msgstr "Ootay anymay eferencesray: annotcay licespay"
+
+#: target:code/unix.lisp
+msgid "Stale NFS file handle"
+msgstr "Talesay NFS ilefay andlehay"
+
+#: target:code/unix.lisp
+msgid "Resource deadlock would occur"
+msgstr "Esourceray eadlockday ouldway occurway"
+
+#: target:code/unix.lisp
+msgid "Function not implemented"
+msgstr "Unctionfay otnay implementedway"
+
+#: target:code/unix.lisp
+msgid "Too many symbolic links encountered"
+msgstr "Ootay anymay ymbolicsay inkslay encounteredway"
+
+#: target:code/unix.lisp
+msgid "Invalid exchange"
+msgstr "Invalidway exchangeway"
+
+#: target:code/unix.lisp
+msgid "Invalid request descriptor"
+msgstr "Invalidway equestray escriptorday"
+
+#: target:code/unix.lisp
+msgid "Exchange full"
+msgstr "Exchangeway ullfay"
+
+#: target:code/unix.lisp
+msgid "No anode"
+msgstr "Onay anodeway"
+
+#: target:code/unix.lisp
+msgid "Invalid request code"
+msgstr "Invalidway equestray odecay"
+
+#: target:code/unix.lisp
+msgid "File locking deadlock error"
+msgstr "Ilefay ockinglay eadlockday errorway"
+
+#: target:code/unix.lisp
+msgid "Device not a stream"
+msgstr "Eviceday otnay away eamstray"
+
+#: target:code/unix.lisp
+msgid "Out of streams resources"
+msgstr "Outway ofway eamsstray esourcesray"
+
+#: target:code/unix.lisp
+msgid "RFS specific error"
+msgstr "RFS ecificspay errorway"
+
+#: target:code/unix.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr "Attemptingway otay inklay inway ootay anymay aredshay ibrarieslay"
+
+#: target:code/unix.lisp
+msgid "Cannot exec a shared library directly"
+msgstr "Annotcay execway away aredshay ibrarylay irectlyday"
+
+#: target:code/unix.lisp
+msgid "Illegal byte sequence"
+msgstr "Illegalway ytebay equencesay"
+
+#: target:code/unix.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr "Interruptedway ystemsay allcay ouldshay ebay estartedray _N"
+
+#: target:code/unix.lisp
+msgid "Streams pipe error"
+msgstr "Eamsstray ipepay errorway"
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol"
+msgstr "Addressway amilyfay otnay upportedsay ybay otocolpray"
+
+#: target:code/unix.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr "Annotcay endsay afterway ansporttray endpointway utdownshay"
+
+#: target:code/unix.lisp
+msgid "Structure needs cleaning"
+msgstr "Ucturestray eedsnay eaningclay"
+
+#: target:code/unix.lisp
+msgid "Not a XENIX named type file"
+msgstr "Otnay away XENIX amednay ypetay ilefay"
+
+#: target:code/unix.lisp
+msgid "No XENIX semaphores available"
+msgstr "Onay XENIX emaphoressay availableway"
+
+#: target:code/unix.lisp
+msgid "Is a named type file"
+msgstr "Isway away amednay ypetay ilefay"
+
+#: target:code/unix.lisp
+msgid "Remote I/O error"
+msgstr "Emoteray Iway/O errorway"
+
+#: target:code/unix.lisp
+msgid "Quota exceeded"
+msgstr "Otaquay exceededway"
+
+#: target:code/unix.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay errorway umbernay ichwhay asway "
+"eturnedray ybay away\n"
+"  UNIX ystemsay allcay."
+
+#: target:code/unix.lisp
+msgid "Unknown error [~d]"
+msgstr "Unknownway errorway [~d]"
+
+#: target:code/unix.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:code/unix.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr "Yscallsay ~Away ailedfay: ~Away"
+
+#: target:code/unix.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+"Etsay ethay userway ID ofway ethay allingcay ocesspray otay UID.\n"
+"   Ifway ethay allingcay ocesspray isway ethay upersay-userway, etsay ethay "
+"ealray\n"
+"   andway effectiveway userway Idsway, andway ethay avedsay etsay-userway-ID "
+"otay UID;\n"
+"   ifway otnay, ethay effectiveway userway ID isway etsay otay UID."
+
+#: target:code/unix.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+"Etsay ethay oupgray ID ofway ethay allingcay ocesspray otay GID.\n"
+"   Ifway ethay allingcay ocesspray isway ethay upersay-userway, etsay ethay "
+"ealray\n"
+"   andway effectiveway oupgray Idsway, andway ethay avedsay etsay-oupgray-ID "
+"otay GID;\n"
+"   ifway otnay, ethay effectiveway oupgray ID isway etsay otay GID."
+
+#: target:code/unix.lisp
+msgid "Test for read permission"
+msgstr "Esttay orfay eadray ermissionpay"
+
+#: target:code/unix.lisp
+msgid "Test for write permission"
+msgstr "Esttay orfay itewray ermissionpay"
+
+#: target:code/unix.lisp
+msgid "Test for execute permission"
+msgstr "Esttay orfay executeway ermissionpay"
+
+#: target:code/unix.lisp
+msgid "Test for presence of file"
+msgstr "Esttay orfay esencepray ofway ilefay"
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"\tr_ok     Read permission.\n"
+"\tw_ok     Write permission.\n"
+"\tx_ok     Execute permission.\n"
+"\tf_ok     Presence of file."
+msgstr ""
+"Ivengay away ilefay athpay (away ingstray) andway oneway ofway ourfay "
+"onstantcay odesmay,\n"
+"   unixway-accessway eturnsray T ifway ethay ilefay isway accessibleway "
+"ithway atthay\n"
+"   odemay andway NIL ifway otnay.  Itway alsoway eturnsray anway errnoway "
+"aluevay ithway\n"
+"   NIL ichwhay eterminesday ywhay ethay ilefay asway otnay accessibleway.\n"
+"\n"
+"   Ethay accessway odesmay areway:\n"
+"\tr_okway     Eadray ermissionpay.\n"
+"\tw_okway     Itewray ermissionpay.\n"
+"\tx_okway     Executeway ermissionpay.\n"
+"\tf_okway     Esencepray ofway ilefay."
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+"Ivengay away ilefay athpay ingstray, unixway-dirchay angeschay ethay "
+"urrentcay orkingway \n"
+"   irectoryday otay ethay oneway ecifiedspay."
+
+#: target:code/unix.lisp
+msgid "Set user ID on execution"
+msgstr "Etsay userway ID onway executionway"
+
+#: target:code/unix.lisp
+msgid "Set group ID on execution"
+msgstr "Etsay oupgray ID onway executionway"
+
+#: target:code/unix.lisp
+msgid "Save text image after execution"
+msgstr "Avesay exttay imageway afterway executionway"
+
+#: target:code/unix.lisp
+msgid "Read by owner"
+msgstr "Eadray ybay ownerway"
+
+#: target:code/unix.lisp
+msgid "Write by owner"
+msgstr "Itewray ybay ownerway"
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by owner"
+msgstr "Executeway (earchsay irectoryday) ybay ownerway"
+
+#: target:code/unix.lisp
+msgid "Read by group"
+msgstr "Eadray ybay oupgray"
+
+#: target:code/unix.lisp
+msgid "Write by group"
+msgstr "Itewray ybay oupgray"
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by group"
+msgstr "Executeway (earchsay irectoryday) ybay oupgray"
+
+#: target:code/unix.lisp
+msgid "Read by others"
+msgstr "Eadray ybay othersway"
+
+#: target:code/unix.lisp
+msgid "Write by others"
+msgstr "Itewray ybay othersway"
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by others"
+msgstr "Executeway (earchsay irectoryday) ybay othersway"
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"  \n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"\n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+"Ivengay away ilefay athpay ingstray andway away onstantcay odemay, unixway-"
+"modchay angeschay ethay\n"
+"   ermissionpay odemay orfay atthay ilefay otay ethay oneway ecifiedspay. "
+"Ethay ewnay odemay\n"
+"   ancay ebay eatedcray ybay ogicallylay OR'ingway ethay ollowingfay:\n"
+"\n"
+"      etuidexecsay        Etsay userway ID onway executionway.\n"
+"      etgidexecsay        Etsay oupgray ID onway executionway.\n"
+"      avetextsay          Avesay exttay imageway afterway executionway.\n"
+"      eadownray           Eadray ybay ownerway.\n"
+"      iteownwray          Itewray ybay ownerway.\n"
+"      execownway           Executeway (earchsay irectoryday) ybay ownerway.\n"
+"      eadgrpray           Eadray ybay oupgray.\n"
+"      itegrpwray          Itewray ybay oupgray.\n"
+"      execgrpway           Executeway (earchsay irectoryday) ybay oupgray.\n"
+"      eadothray           Eadray ybay othersway.\n"
+"      iteothwray          Itewray ybay othersway.\n"
+"      execothway           Executeway (earchsay irectoryday) ybay "
+"othersway.\n"
+"  \n"
+"  Usthay #o444 andway (ogiorlay unixway:eadownray unixway:eadgrpray unixway:"
+"eadothray)\n"
+"  areway equivalentway orfay 'odemay.  Ethay octalway-asebay isway amilarfay "
+"otay Unixway usersway.\n"
+"\n"
+"  Itway eturnsray T onway uccessfullysay ompletioncay; NIL andway anway "
+"errorway umbernay\n"
+"  otherwiseway."
+
+#: target:code/unix.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+"Ivengay anway integerway ilefay escriptorday andway away odemay (ethay "
+"amesay asway osethay\n"
+"   usedway orfay unixway-modchay), unixway-chmodfay angeschay ethay "
+"ermissionpay odemay\n"
+"   orfay atthay ilefay otay ethay oneway ecifiedspay. T isway eturnedray "
+"ifway ethay allcay\n"
+"   asway uccessfulsay."
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+"Ivengay away ilefay athpay, anway integerway userway-idway, andway anway "
+"integerway oupgray-idway,\n"
+"   unixway-ownchay angeschay ethay ownerway ofway ethay ilefay andway ethay "
+"oupgray ofway ethay\n"
+"   ilefay otay osethay ecifiedspay.  Eitherway ethay ownerway orway ethay "
+"oupgray aymay ebay\n"
+"   eftlay unchangedway ybay ecifyingspay emthay asway -1.  Otenay: "
+"Ermissionpay illway\n"
+"   ailfay ifway ethay allercay isway otnay ethay uperusersay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+"Unixway-chownfay isway ikelay unixway-ownchay, exceptway atthay itway "
+"acceptsway anway integerway\n"
+"   ilefay escriptorday insteadway ofway away ilefay athpay amenay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+"Unixway-etdtablesizegay eturnsray ethay aximummay izesay ofway ethay ilefay "
+"escriptorday\n"
+"   abletay. (i.e. ethay aximummay umbernay ofway escriptorsday atthay ancay "
+"existway atway\n"
+"   oneway imetay.)"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+"Unixway-oseclay akestay anway integerway ilefay escriptorday asway anway "
+"argumentway andway\n"
+"   osesclay ethay ilefay associatedway ithway itway.  T isway eturnedray "
+"uponway uccessfulsay\n"
+"   ompletioncay, otherwiseway NIL andway anway errorway umbernay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+"Unixway-eatcray acceptsway away ilefay amenay andway away odemay (amesay "
+"asway osethay orfay\n"
+"   unixway-modchay) andway eatescray away ilefay ybay atthay amenay ithway "
+"ethay ecifiedspay\n"
+"   ermissionpay odemay.  Itway eturnsray away ilefay escriptorday onway "
+"uccesssay,\n"
+"   orway NIL andway anway errorway  umbernay otherwiseway.\n"
+"\n"
+"   Isthay interfaceway isway ademay obsoleteway ybay UNIX-OPEN."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+"Unixway-upday uplicatesday anway existingway ilefay escriptorday (ivengay "
+"asway ethay\n"
+"   argumentway) andway eturnray itway.  Ifway FD isway otnay away alidvay "
+"ilefay escriptorday, NIL\n"
+"   andway anway errorway umbernay areway eturnedray."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+"Unixway-upday2 uplicatesday anway existingway ilefay escriptorday ustjay "
+"asway unixway-upday\n"
+"   oesday onlyway ethay ewnay aluevay ofway ethay uplicateday escriptorday "
+"aymay ebay equestedray\n"
+"   roughthay ethay econdsay argumentway.  Ifway away ilefay alreadyway "
+"existsway ithway ethay\n"
+"   equestedray escriptorday umbernay, itway illway ebay osedclay andway "
+"ethay umbernay\n"
+"   assignedway otay ethay uplicateday."
+
+#: target:code/unix.lisp
+msgid "Duplicate a file descriptor"
+msgstr "Uplicateday away ilefay escriptorday"
+
+#: target:code/unix.lisp
+msgid "Get file desc. flags"
+msgstr "Etgay ilefay escday. agsflay"
+
+#: target:code/unix.lisp
+msgid "Set file desc. flags"
+msgstr "Etsay ilefay escday. agsflay"
+
+#: target:code/unix.lisp
+msgid "Get file flags"
+msgstr "Etgay ilefay agsflay"
+
+#: target:code/unix.lisp
+msgid "Set file flags"
+msgstr "Etsay ilefay agsflay"
+
+#: target:code/unix.lisp
+msgid "Get owner"
+msgstr "Etgay ownerway"
+
+#: target:code/unix.lisp
+msgid "Get lock"
+msgstr "Etgay ocklay"
+
+#: target:code/unix.lisp
+msgid "Set owner"
+msgstr "Etsay ownerway"
+
+#: target:code/unix.lisp
+msgid "Set lock"
+msgstr "Etsay ocklay"
+
+#: target:code/unix.lisp
+msgid "Set lock, wait for release"
+msgstr "Etsay ocklay, aitway orfay eleaseray"
+
+#: target:code/unix.lisp
+msgid "Non-blocking reads"
+msgstr "Onnay-ockingblay eadsray"
+
+#: target:code/unix.lisp
+msgid "Append on each write"
+msgstr "Appendway onway eachway itewray"
+
+#: target:code/unix.lisp
+msgid "Signal pgrp when data ready"
+msgstr "Ignalsay grppay enwhay ataday eadyray"
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant"
+msgstr "Eatecray ifway onexistantnay"
+
+#: target:code/unix.lisp
+msgid "Truncate to zero length"
+msgstr "Uncatetray otay erozay engthlay"
+
+#: target:code/unix.lisp
+msgid "Error if already created"
+msgstr "Errorway ifway alreadyway eatedcray"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors according to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+"Unixway-cntlfay anipulatesmay ilefay escriptorsday accordingway otay ethay\n"
+"   argumentway CMD ichwhay ancay ebay oneway ofway ethay ollowingfay:\n"
+"\n"
+"   F-DUPFD         Uplicateday away ilefay escriptorday.\n"
+"   F-GETFD         Etgay ilefay escriptorday agsflay.\n"
+"   F-SETFD         Etsay ilefay escriptorday agsflay.\n"
+"   F-GETFL         Etgay ilefay agsflay.\n"
+"   F-SETFL         Etsay ilefay agsflay.\n"
+"   F-GETOWN        Etgay ownerway.\n"
+"   F-SETOWN        Etsay ownerway.\n"
+"\n"
+"   Ethay agsflay atthay ancay ebay ecifiedspay orfay F-SETFL areway:\n"
+"\n"
+"   FNDELAY         Onnay-ockingblay eadsray.\n"
+"   FAPPEND         Appendway onway eachway itewray.\n"
+"   FASYNC          Ignalsay grppay enwhay ataday eadyray.\n"
+"   FCREAT          Eatecray ifway onexistantnay.\n"
+"   FTRUNC          Uncatetray otay erozay engthlay.\n"
+"   FEXCL           Errorway ifway alreadyway eatedcray.\n"
+"   "
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+"Unixway-inklay eatescray away ardhay inklay omfray ethay ilefay ithway "
+"amenay1 otay ethay\n"
+"   ilefay ithway amenay2."
+
+#: target:code/unix.lisp
+msgid "set the file pointer"
+msgstr "etsay ethay ilefay ointerpay"
+
+#: target:code/unix.lisp
+msgid "increment the file pointer"
+msgstr "incrementway ethay ilefay ointerpay"
+
+#: target:code/unix.lisp
+msgid "extend the file size"
+msgstr "extendway ethay ilefay izesay"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lseek accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain offset for that file.  Whence can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  _N"
+msgstr ""
+"Unixway-seeklay acceptsway away ilefay escriptorday andway ovesmay ethay "
+"ilefay ointerpay aheadway\n"
+"   away ertaincay offsetway orfay atthay ilefay.  Encewhay ancay ebay anyway "
+"ofway ethay ollowingfay:\n"
+"\n"
+"   l_etsay        Etsay ethay ilefay ointerpay.\n"
+"   l_incrway       Incrementway ethay ilefay ointerpay.\n"
+"   l_tndxay       Extendway ethay ilefay izesay.\n"
+"  _N"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+"Unixway-kdirmay eatescray away ewnay irectoryday ithway ethay ecifiedspay "
+"amenay andway odemay.\n"
+"   (Amesay asway osethay orfay unixway-modchay.)  Itway eturnsray T uponway "
+"uccesssay, otherwiseway\n"
+"   NIL andway anway errorway umbernay."
+
+#: target:code/unix.lisp
+msgid "Read-only flag."
+msgstr "Eadray-onlyway agflay."
+
+#: target:code/unix.lisp
+msgid "Write-only flag."
+msgstr "Itewray-onlyway agflay."
+
+#: target:code/unix.lisp
+msgid "Read-write flag."
+msgstr "Eadray-itewray agflay."
+
+#: target:code/unix.lisp
+msgid "Non-blocking I/O"
+msgstr "Onnay-ockingblay Iway/O"
+
+#: target:code/unix.lisp
+msgid "Append flag."
+msgstr "Appendway agflay."
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant flag."
+msgstr "Eatecray ifway onexistantnay agflay."
+
+#: target:code/unix.lisp
+msgid "Truncate flag."
+msgstr "Uncatetray agflay."
+
+#: target:code/unix.lisp
+msgid "Error if already exists."
+msgstr "Errorway ifway alreadyway existsway."
+
+#: target:code/unix.lisp
+msgid "Don't assign controlling tty"
+msgstr "Onday't assignway ontrollingcay tytay"
+
+#: target:code/unix.lisp
+msgid "Non-blocking mode"
+msgstr "Onnay-ockingblay odemay"
+
+#: target:code/unix.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr "Ynchronoussay iteswray (onway extway2)"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by path\n"
+"   for reading and/or writing as specified by the flags argument.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument mode if the file doesn't exist.  An\n"
+"   integer file descriptor is returned by unix-open."
+msgstr ""
+"Unixway-openway opensway ethay ilefay osewhay athnamepay isway ecifiedspay "
+"ybay athpay\n"
+"   orfay eadingray andway/orway itingwray asway ecifiedspay ybay ethay "
+"agsflay argumentway.\n"
+"   Ethay agsflay argumentway ancay ebay:\n"
+"\n"
+"     o_donlyray        Eadray-onlyway agflay.\n"
+"     o_onlywray        Itewray-onlyway agflay.\n"
+"     o_dwrray          Eadray-andway-itewray agflay.\n"
+"     o_appendway        Appendway agflay.\n"
+"     o_eatcray         Eatecray-ifway-onexistantnay agflay.\n"
+"     o_unctray         Uncatetray-otay-izesay-0 agflay.\n"
+"\n"
+"   Ifway ethay o_eatcray agflay isway ecifiedspay, enthay ethay ilefay isway "
+"eatedcray ithway\n"
+"   away ermissionpay ofway argumentway odemay ifway ethay ilefay oesnday't "
+"existway.  Anway\n"
+"   integerway ilefay escriptorday isway eturnedray ybay unixway-openway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+"Unixway-ipepay etssay upway away unixway-ipingpay echanismmay onsistingcay "
+"ofway\n"
+"  anway inputway ipepay andway anway outputway ipepay.  Unixway-Ipepay "
+"eturnsray wotay\n"
+"  aluesvay: ifway onay errorway occurredway ethay irstfay aluevay isway "
+"ethay ipepay\n"
+"  otay ebay eadray omfray andway ethay econdsay isway ancay ebay ittenwray "
+"otay.  Ifway\n"
+"  anway errorway occurredway ethay irstfay aluevay isway NIL andway ethay "
+"econdsay\n"
+"  ethay unixway errorway odecay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-read attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+"Unixway-eadray attemptsway otay eadray omfray ethay ilefay escribedday ybay "
+"dfay intoway\n"
+"   ethay ufferbay ufbay untilway itway isway ullfay.  Enlay isway ethay "
+"engthlay ofway ethay ufferbay.\n"
+"   Ethay umbernay ofway ytesbay actuallyway eadray isway eturnedray orway "
+"NIL andway anway errorway\n"
+"   umbernay ifway anway errorway occuredway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+"Unixway-eadlinkray invokesway ethay eadlinkray ystemsay allcay onway ethay "
+"ilefay amenay\n"
+"  ecifiedspay ybay ethay implesay ingstray athpay.  Itway eturnsray upway "
+"otay wotay aluesvay:\n"
+"  ethay ontentscay ofway ethay ymbolicsay inklay ifway ethay allcay isway "
+"uccessfulsay, orway\n"
+"  NIL andway ethay Unixway errorway umbernay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+"Unixway-enameray enamesray ethay ilefay ithway ingstray amenay1 otay ethay "
+"ingstray\n"
+"   amenay2.  NIL andway anway errorway odecay isway eturnedray ifway anway "
+"errorway occuredway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+"Unixway-mdirray attemptsway otay emoveray ethay irectoryday amenay.  NIL "
+"andway\n"
+"   anway errorway umbernay isway eturnedray ifway anway errorway occuredway."
+
+#: target:code/unix.lisp
+msgid ""
+"Perform the UNIX select(2) system call.\n"
+"  (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n"
+"\t   (type (or (alien (* (struct fd-set))) null)\n"
+"\t\t read-fds write-fds exception-fds)\n"
+"\t   (type (or null (unsigned-byte 31)) timeout-secs)\n"
+"\t   (type (unsigned-byte 31) timeout-usecs)\n"
+"\t   (optimize (speed 3) (safety 0) (inhibit-warnings 3)))"
+msgstr ""
+"Erformpay ethay UNIX electsay(2) ystemsay allcay.\n"
+"  (eclareday (ypetay (integerway 0 #.FD-SETSIZE) umnay-escriptorsday)\n"
+"\t   (ypetay (orway (alienway (* (uctstray dfay-etsay))) ullnay)\n"
+"\t\t eadray-dsfay itewray-dsfay exceptionway-dsfay)\n"
+"\t   (ypetay (orway ullnay (unsignedway-ytebay 31)) imeouttay-ecssay)\n"
+"\t   (ypetay (unsignedway-ytebay 31) imeouttay-usecsway)\n"
+"\t   (optimizeway (eedspay 3) (afetysay 0) (inhibitway-arningsway 3)))"
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+"Unixway-electsay examinesway ethay etssay ofway escriptorsday assedpay asway "
+"argumentsway\n"
+"   otay eesay ifway eythay areway eadyray orfay eadingray andway itingwray.  "
+"Eesay ethay UNIX\n"
+"   Ogrammerspray Anualmay orfay oremay informationway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+"Unixway-yncsay iteswray allway informationway inway orecay emorymay ichwhay "
+"ashay eenbay\n"
+"   odifiedmay otay iskday.  Itway eturnsray NIL andway anway errorway odecay "
+"ifway anway errorway\n"
+"   occuredway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+"Unixway-syncfay iteswray ethay orecay imageway ofway ethay ilefay "
+"escribedday ybay\n"
+"   dfay otay iskday."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by len.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+"Unixway-uncatetray uncatestray ethay amednay ilefay otay ethay engthlay "
+"(inway\n"
+"   ytesbay) ecifiedspay ybay enlay.  NIL andway anway errorway umbernay "
+"isway eturnedray\n"
+"   ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+"Unixway-truncatefay isway imilarsay otay unixway-uncatetray exceptway atthay "
+"ethay irstfay\n"
+"   argumentway isway away ilefay escriptorday atherray anthay away ilefay "
+"amenay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+"Unixway-ymlinksay eatescray away ymbolicsay inklay amednay amenay2 otay "
+"ethay ilefay\n"
+"   amednay amenay1.  NIL andway anway errorway umbernay isway eturnedray "
+"ifway ethay allcay\n"
+"   isway unsuccessfulway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+"Unixway-unlinkway emovesray ethay irectoryday entryway orfay ethay amednay "
+"ilefay.\n"
+"   NIL andway anway errorway odecay isway eturnedray ifway ethay allcay "
+"ailsfay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+"Unixway-itewray attemptsway otay itewray away aracterchay ufferbay (ufbay) "
+"ofway engthlay\n"
+"   enlay otay ethay ilefay escribedday ybay ethay ilefay escriptorday dfay.  "
+"NIL andway anway\n"
+"   errorway isway eturnedray ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+"Unixway-ioctlway erformspay away arietyvay ofway operationsway onway openway "
+"i/o\n"
+"   escriptorsday.  Eesay ethay UNIX Ogrammerpray's Anualmay orfay oremay\n"
+"   informationway."
+
+#: target:code/unix.lisp
+msgid "Get terminal attributes."
+msgstr "Etgay erminaltay attributesway."
+
+#: target:code/unix.lisp
+msgid "Set terminal attributes."
+msgstr "Etsay erminaltay attributesway."
+
+#: target:code/unix.lisp
+msgid "Get terminal output speed."
+msgstr "Etgay erminaltay outputway eedspay."
+
+#: target:code/unix.lisp
+msgid "Set terminal output speed."
+msgstr "Etsay erminaltay outputway eedspay."
+
+#: target:code/unix.lisp
+msgid "Bogus baud rate ~S"
+msgstr "Ogusbay audbay ateray ~S"
+
+#: target:code/unix.lisp
+msgid "Get terminal input speed."
+msgstr "Etgay erminaltay inputway eedspay."
+
+#: target:code/unix.lisp
+msgid "Set terminal input speed."
+msgstr "Etsay erminaltay inputway eedspay."
+
+#: target:code/unix.lisp
+msgid "Send break"
+msgstr "Endsay eakbray"
+
+#: target:code/unix.lisp
+msgid "Wait for output for finish"
+msgstr "Aitway orfay outputway orfay inishfay"
+
+#: target:code/unix.lisp
+msgid "See tcflush(3)"
+msgstr "Eesay cflushtay(3)"
+
+#: target:code/unix.lisp
+msgid "Flow control"
+msgstr "Owflay ontrolcay"
+
+#: target:code/unix.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+"Etsay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD otay PGRP."
+
+#: target:code/unix.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+"Etgay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD."
+
+#: target:code/unix.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not "
+"supplied,\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+"Etgay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD.  Ifway otnay uppliedsay,\n"
+"  FD efaultsday otay /evday/tytay."
+
+#: target:code/unix.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+"Etsay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
+"FD otay PGRP.  Ifway otnay\n"
+"  uppliedsay, FD efaultsday otay /evday/tytay."
+
+#: target:code/unix.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+"Etsay ethay ocketsay ocesspray-oupgray orfay ethay unixway ilefay-"
+"escriptorday FD otay PGRP."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+"Unixway-exitway erminatestay ethay urrentcay ocesspray ithway anway "
+"optionalway\n"
+"   errorway odecay.  Ifway uccessfulsay, ethay allcay oesnday't eturnray.  "
+"Ifway\n"
+"   unsuccessfulway, ethay allcay eturnsray NIL andway anway errorway "
+"umbernay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-stat retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+"Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n"
+"   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n"
+"   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
+"   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay NIL\n"
+"   andway anway errorway umbernay isway eturnedray insteadway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lstat is similar to unix-stat except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+"Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay "
+"ecifiedspay\n"
+"   ilefay ustmay ebay away ymbolicsay inklay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fstat is similar to unix-stat except the file is specified\n"
+"   by the file descriptor fd."
+msgstr ""
+"Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay ilefay "
+"isway ecifiedspay\n"
+"   ybay ethay ilefay escriptorday dfay."
+
+#: target:code/unix.lisp
+msgid "The calling process."
+msgstr "Ethay allingcay ocesspray."
+
+#: target:code/unix.lisp
+msgid "Terminated child processes."
+msgstr "Erminatedtay ildchay ocessespray."
+
+#: target:code/unix.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+"Ikelay allcay etrusagegay, utbay eturnray onlyway ethay ystemsay andway "
+"userway imetay, andway eturnsray\n"
+"   ethay econdssay andway icrosecondsmay asway eparatesay aluesvay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+"Unixway-etrusagegay eturnsray informationway aboutway ethay esourceray "
+"usageway\n"
+"   ofway ethay ocesspray ecifiedspay ybay owhay.  Owhay ancay ebay eitherway "
+"ethay\n"
+"   urrentcay ocesspray (usageray_elfsay) orway allway ofway ethay "
+"erminatedtay\n"
+"   ildchay ocessespray (usageray_ildrenchay).  NIL andway anway errorway "
+"umbernay\n"
+"   isway eturnedray ifway ethay allcay ailsfay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-times returns information about the cpu time usage of the process\n"
+"   and its children."
+msgstr ""
+"Unixway-imestay eturnsray informationway aboutway ethay pucay imetay "
+"usageway ofway ethay ocesspray\n"
+"   andway itsway ildrenchay."
+
+#: target:code/unix.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+"Ifway itway orksway, unixway-ettimeofdaygay eturnsray 5 aluesvay: T, ethay "
+"econdssay andway\n"
+"   icrosecondsmay ofway ethay urrentcay imetay ofway ayday, ethay imezonetay "
+"(inway inutesmay estway\n"
+"   ofway Eenwichgray), andway away aylightday-avingssay agflay.  Ifway itway "
+"oesnday't orkway, itway\n"
+"   eturnsray NIL andway ethay errnoway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+"Unixway-utimesway etssay ethay 'astlay-accessedway' andway 'astlay-"
+"updatedway'\n"
+"   imestay onway away ecifiedspay ilefay.  NIL andway anway errorway "
+"umbernay isway\n"
+"   eturnedray ifway ethay allcay isway unsuccessfulway."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+"Unixway-etreuidsay etssay ethay ealray andway effectiveway userway-idway's "
+"ofway ethay urrentcay\n"
+"   ocesspray otay ethay ecifiedspay onesway.  NIL andway anway errorway "
+"umbernay isway eturnedray\n"
+"   ifway ethay allcay ailsfay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+"Unixway-etregidsay etssay ethay ealray andway effectiveway oupgray-idway's "
+"ofway ethay urrentcay\n"
+"   ocesspray ocesspray otay ethay ecifiedspay onesway.  NIL andway anway "
+"errorway umbernay isway\n"
+"   eturnedray ifway ethay allcay ailsfay."
+
+#: target:code/unix.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+"Unixway-etpidgay eturnsray ethay ocesspray-idway ofway ethay urrentcay "
+"ocesspray."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+"Unixway-etppidgay eturnsray ethay ocesspray-idway ofway ethay arentpay ofway "
+"ethay urrentcay ocesspray."
+
+#: target:code/unix.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+"Unixway-etgidgay eturnsray ethay ealray oupgray-idway ofway ethay urrentcay "
+"ocesspray."
+
+#: target:code/unix.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+"Unixway-etegidgay eturnsray ethay effectiveway oupgray-idway ofway ethay "
+"urrentcay ocesspray."
+
+#: target:code/unix.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+"Unixway-etpgrpgay eturnsray ethay oupgray-idway ofway ethay allingcay "
+"ocesspray."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+"Unixway-etpgrpsay etssay ethay ocesspray oupgray onway ethay ocesspray idpay "
+"otay\n"
+"   grppay.  NIL andway anway errorway umbernay areway eturnedray uponway "
+"ailurefay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+"Unixway-etpgidsay etssay ethay ocesspray oupgray ofway ethay ocesspray idpay "
+"otay\n"
+"   grppay. Ifway gidpay isway equalway otay idpay, ethay ocesspray ecomesbay "
+"away ocesspray\n"
+"   oupgray eaderlay. NIL andway anway errorway umbernay areway eturnedray "
+"uponway ailurefay."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+"Unixway-etuidgay eturnsray ethay ealray userway-idway associatedway ithway "
+"ethay\n"
+"   urrentcay ocesspray."
+
+#: target:code/unix.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
+"ystemsay agepay."
+
+#: target:code/unix.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+"Unixway-ethostnamegay eturnsray ethay amenay ofway ethay osthay achinemay "
+"asway away ingstray."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+"Unixway-ethostidgay eturnsray away 32-itbay integerway ichwhay ovidespray "
+"uniqueway\n"
+"   identificationway orfay ethay osthay achinemay."
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+"Executesway ethay unixway orkfay ystemsay allcay.  Eturnsray 0 inway ethay "
+"ildchay andway ethay idpay\n"
+"   ofway ethay ildchay inway ethay arentpay ifway itway orksway, orway NIL "
+"andway anway errorway umbernay ifway itway\n"
+"   oesnday't orkway."
+
+#: target:code/unix.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+"Etgay ethay aluevay ofway ethay environmentway ariablevay amednay Amenay.  "
+"Ifway onay uchsay\n"
+"  ariablevay existsway, Ilnay isway eturnedray."
+
+#: target:code/unix.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+"Addsway ethay environmentway ariablevay amednay Amenay otay ethay "
+"environmentway ithway\n"
+"  ethay ivengay Aluevay ifway Amenay oesday otnay alreadyway existway. Ifway "
+"Amenay oesday existway,\n"
+"  ethay aluevay isway angedchay otay Aluevay ifway Overwriteway isway onnay-"
+"erozay.  Otherwiseway,\n"
+"  ethay aluevay isway otnay angedchay."
+
+#: target:code/unix.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+"Addsway orway angeschay ethay environmentway.  Amenay-aluevay ustmay ebay "
+"away ingstray ofway\n"
+"  ethay ormfay \"amenay=aluevay\".  Ifway ethay amenay oesday otnay "
+"existway, itway isway addedway.\n"
+"  Ifway amenay oesday existway, ethay aluevay isway updatedway otay ethay "
+"ivengay aluevay."
+
+#: target:code/unix.lisp
+msgid "Removes the variable Name from the environment"
+msgstr "Emovesray ethay ariablevay Amenay omfray ethay environmentway"
+
+#: target:code/unix.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+"Eturnsray eitherway :ilefay, :irectoryday, :inklay, :ecialspay, orway NIL."
+
+#: target:code/unix.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+"Eturnsray ethay athnamepay ithway allway ymbolicsay inkslay esolvedray."
+
+#: target:code/unix.lisp
+msgid "Error reading link ~S: ~S"
+msgstr "Errorway eadingray inklay ~S: ~S"
+
+#: target:code/unix.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+"Acceptsway away Unixway ilefay escriptorday andway eturnsray T ifway ethay "
+"eviceday\n"
+"  associatedway ithway itway isway away erminaltay."
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+"Executesway ethay Unixway execveway ystemsay allcay.  Ifway ethay ystemsay "
+"allcay uceedssay, isplay\n"
+"   illway onay ongerlay ebay unningray inway isthay ocesspray.  Ifway ethay "
+"ystemsay allcay ailsfay isthay\n"
+"   unctionfay eturnsray wotay aluesvay: NIL andway anway errorway odecay.  "
+"Argway-istlay ouldshay ebay away\n"
+"   istlay ofway implesay-ingsstray ichwhay areway assedpay asway "
+"argumentsway otay ethay execway'edway ogrampray.\n"
+"   Environmentway ouldshay ebay anway away-istlay appingmay ymbolssay otay "
+"implesay-ingsstray ichwhay isthay\n"
+"   unctionfay ashesbay ogethertay otay ormfay ethay environmentway orfay "
+"ethay execway'edway ogrampray."
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+"Unixway-etitimergay eturnsray ethay INTERVAL andway VALUE otsslay ofway "
+"oneway ofway\n"
+"   reethay ystemsay imerstay (:ealray :irtualvay orway :ofilepray). Onway "
+"uccesssay,\n"
+"   unixway-etitimergay eturnsray 5 aluesvay,\n"
+"   T, itway-intervalway-ecssay, itway-intervalway-usecway, itway-aluevay-"
+"ecssay, itway-aluevay-usecway."
+
+#: target:code/unix.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+" Unixway-etitimersay etssay ethay INTERVAL andway VALUE otsslay ofway oneway "
+"ofway\n"
+"   reethay ystemsay imerstay (:ealray :irtualvay orway :ofilepray). Away "
+"SIGALRM ignalsay\n"
+"   illway ebay eliveredday VALUE <econdssay+icrosecondsmay> omfray ownay. "
+"INTERVAL,\n"
+"   enwhay onnay-erozay, isway <econdssay+icrosecondsmay> otay ebay oadedlay "
+"eachway imetay\n"
+"   ethay imertay expiresway. Ettingsay INTERVAL andway VALUE otay erozay "
+"isablesday\n"
+"   ethay imertay. Eesay ethay Unixway anmay agepay orfay oremay etailsday. "
+"Onway uccesssay,\n"
+"   unixway-etitimersay eturnsray ethay oldway ontentscay ofway ethay "
+"INTERVAL andway VALUE\n"
+"   otsslay asway inway unixway-etitimergay."
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
+"LOGIN, orway NIL ifway otnay oundfay."
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
+"UID, orway NIL ifway otnay oundfay."
+
+#: target:code/unix.lisp
+msgid "The maximum size of the group entry buffer"
+msgstr "Ethay aximummay izesay ofway ethay oupgray entryway ufferbay"
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+"Eturnray away GROUP-INFO ucturestray orfay ethay oupgray identifiedway ybay "
+"NAME, orway NIL ifway otnay oundfay."
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
+"found."
+msgstr ""
+"Eturnray away GROUP-INFO ucturestray orfay ethay oupgray identifiedway ybay "
+"GID, orway NIL ifway otnay oundfay."
+
+#: target:code/unix.lisp
+msgid "CPU time per process (in milliseconds)"
+msgstr "CPU imetay erpay ocesspray (inway illisecondsmay)"
+
+#: target:code/unix.lisp
+msgid "Maximum file size"
+msgstr "Aximummay ilefay izesay"
+
+#: target:code/unix.lisp
+msgid "Data segment size"
+msgstr "Ataday egmentsay izesay"
+
+#: target:code/unix.lisp
+msgid "Stack size"
+msgstr "Tacksay izesay"
+
+#: target:code/unix.lisp
+msgid "Core file size"
+msgstr "Orecay ilefay izesay"
+
+#: target:code/unix.lisp
+msgid "Number of open files"
+msgstr "Umbernay ofway openway ilesfay"
+
+#: target:code/unix.lisp
+msgid "Maximum mapped memory"
+msgstr "Aximummay appedmay emorymay"
+
+#: target:code/unix.lisp
+msgid "CPU time per process"
+msgstr "CPU imetay erpay ocesspray"
+
+#: target:code/unix.lisp
+msgid "File size"
+msgstr "Ilefay izesay"
+
+#: target:code/unix.lisp
+msgid "Addess space (resident set size)"
+msgstr "Addessway acespay (esidentray etsay izesay)"
+
+#: target:code/unix.lisp
+msgid "Locked-in-memory address space"
+msgstr "Ockedlay-inway-emorymay addressway acespay"
+
+#: target:code/unix.lisp
+msgid "Number of processes"
+msgstr "Umbernay ofway ocessespray"
+
+#: target:code/unix.lisp
+msgid ""
+"Get the limits on the consumption of system resouce specified by\n"
+"  Resource.  If successful, return three values: T, the current (soft)\n"
+"  limit, and the maximum (hard) limit."
+msgstr ""
+"Etgay ethay imitslay onway ethay onsumptioncay ofway ystemsay esouceray "
+"ecifiedspay ybay\n"
+"  Esourceray.  Ifway uccessfulsay, eturnray reethay aluesvay: T, ethay "
+"urrentcay (oftsay)\n"
+"  imitlay, andway ethay aximummay (ardhay) imitlay."
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
new file mode 100644
index 0000000000000000000000000000000000000000..c5041e95c6f922657b4343ca0586196f46ff4edf
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
@@ -0,0 +1,470 @@
+# @ cmucl-x86-vm
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay ypetay ofway ethay ocallay "
+"achinemay."
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay ersionvay ofway ethay ocallay "
+"achinemay."
+
+#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr "Unknownway odecay-objectway-ixupfay indkay ~s."
+
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr "Unknownway oreignfay ymbolsay: ~S"
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare object's slot value to test-value and if EQ store\n"
+"   new-value in the slot. The original value of the slot is returned."
+msgstr ""
+"Atomicallyway omparecay objectway's otslay aluevay otay esttay-aluevay "
+"andway ifway EQ toresay\n"
+"   ewnay-aluevay inway ethay otslay. Ethay originalway aluevay ofway ethay "
+"otslay isway eturnedray."
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare symbol's value to test-value and if EQ store\n"
+"  new-value in symbol's value slot and return the original value."
+msgstr ""
+"Atomicallyway omparecay ymbolsay's aluevay otay esttay-aluevay andway ifway "
+"EQ toresay\n"
+"  ewnay-aluevay inway ymbolsay's aluevay otslay andway eturnray ethay "
+"originalway aluevay."
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the car of CONS to test-value and if EQ store\n"
+"  new-value its car and return the original value."
+msgstr ""
+"Atomicallyway omparecay ethay arcay ofway CONS otay esttay-aluevay andway "
+"ifway EQ toresay\n"
+"  ewnay-aluevay itsway arcay andway eturnray ethay originalway aluevay."
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the cdr of CONS to test-value and if EQ store\n"
+"  new-value its cdr and return the original value."
+msgstr ""
+"Atomicallyway omparecay ethay drcay ofway CONS otay esttay-aluevay andway "
+"ifway EQ toresay\n"
+"  ewnay-aluevay itsway drcay andway eturnray ethay originalway aluevay."
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare an element of vector to test-value and if EQ store\n"
+"  new-value the element and return the original value."
+msgstr ""
+"Atomicallyway omparecay anway elementway ofway ectorvay otay esttay-aluevay "
+"andway ifway EQ toresay\n"
+"  ewnay-aluevay ethay elementway andway eturnray ethay originalway aluevay."
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the symbol global value."
+msgstr ""
+"Readthay afesay ushpay ofway alvay ontoway ethay istlay inway ethay ymbolsay "
+"obalglay aluevay."
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe pop from the list in the symbol global value."
+msgstr ""
+"Readthay afesay oppay omfray ethay istlay inway ethay ymbolsay obalglay "
+"aluevay."
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the car of cons."
+msgstr ""
+"Readthay afesay ushpay ofway alvay ontoway ethay istlay inway ethay arcay "
+"ofway onscay."
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the cdr of cons."
+msgstr ""
+"Readthay afesay ushpay ofway alvay ontoway ethay istlay inway ethay drcay "
+"ofway onscay."
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the vector element."
+msgstr ""
+"Readthay afesay ushpay ofway alvay ontoway ethay istlay inway ethay ectorvay "
+"elementway."
+
+#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:compiler/x86/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"   byte-ordering issues."
+msgstr ""
+"Oadslay ethay ypetay itsbay ofway away ointerpay intoway argettay "
+"independentway ofway\n"
+"   ytebay-orderingway issuesway."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an object with a size in bytes given by Size.\n"
+"   The size may be an integer or a TN.\n"
+"   If Inline is a VOP node-var then it is used to make an appropriate\n"
+"   speed vs size decision.  If Dynamic-Extent is true, and otherwise\n"
+"   appropriate, allocate from the stack."
+msgstr ""
+"Allocateway anway objectway ithway away izesay inway ytesbay ivengay ybay "
+"Izesay.\n"
+"   Ethay izesay aymay ebay anway integerway orway away TN.\n"
+"   Ifway Inlineway isway away VOP odenay-arvay enthay itway isway usedway "
+"otay akemay anway appropriateway\n"
+"   eedspay svay izesay ecisionday.  Ifway Ynamicday-Extentway isway uetray, "
+"andway otherwiseway\n"
+"   appropriateway, allocateway omfray ethay tacksay."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an other-pointer object of fixed Size with a single\n"
+"   word header having the specified Type-Code.  The result is placed in\n"
+"   Result-TN."
+msgstr ""
+"Allocateway anway otherway-ointerpay objectway ofway ixedfay Izesay ithway "
+"away inglesay\n"
+"   ordway eaderhay avinghay ethay ecifiedspay Ypetay-Odecay.  Ethay esultray "
+"isway acedplay inway\n"
+"   Esultray-TN."
+
+#: target:compiler/x86/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr "Ausecay anway errorway.  ERROR-CODE isway ethay errorway otay ausecay."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+"Ausecay away ontinuablecay errorway.  Ifway ethay errorway isway "
+"ontinuedcay, executionway esumesray atway\n"
+"  LABEL."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+"Enerategay-Errorway-Odecay Errorway-odecay Alue*Vay\n"
+"  Emitway odecay orfay anway errorway ithway ethay ecifiedspay Errorway-"
+"Odecay andway ontextcay Aluesvay."
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+"Enerategay-Errorcay-Odecay Errorway-odecay Alue*Vay\n"
+"  Emitway odecay orfay away ontinuablecay errorway ithway ethay ecifiedspay "
+"Errorway-Odecay andway\n"
+"  ontextcay Aluesvay.  Ifway ethay errorway isway ontinuedcay, executionway "
+"esumesray afterway\n"
+"  ethay GENERATE-CERROR-CODE ormfay."
+
+#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp
+#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp
+#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp
+#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp
+#: target:compiler/x86/move.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum untagging"
+msgstr "ixnumfay untaggingway"
+
+#: target:compiler/x86/move.lisp
+msgid "constant load"
+msgstr "onstantcay oadlay"
+
+#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp
+#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n"
+"\t           VM efinitionday inconsistentway, ecompileray andway ytray "
+"againway."
+
+#: target:compiler/x86/move.lisp
+msgid "integer to untagged word coercion"
+msgstr "integerway otay untaggedway ordway oercioncay"
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum tagging"
+msgstr "ixnumfay aggingtay"
+
+#: target:compiler/x86/move.lisp
+msgid "signed word to integer coercion"
+msgstr "ignedsay ordway otay integerway oercioncay"
+
+#: target:compiler/x86/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr "unsignedway ordway otay integerway oercioncay"
+
+#: target:compiler/x86/move.lisp
+msgid "word integer move"
+msgstr "ordway integerway ovemay"
+
+#: target:compiler/x86/move.lisp
+msgid "word integer argument move"
+msgstr "ordway integerway argumentway ovemay"
+
+#: target:compiler/x86/char.lisp
+msgid "character untagging"
+msgstr "aracterchay untaggingway"
+
+#: target:compiler/x86/char.lisp
+msgid "character tagging"
+msgstr "aracterchay aggingtay"
+
+#: target:compiler/x86/char.lisp
+msgid "character move"
+msgstr "aracterchay ovemay"
+
+#: target:compiler/x86/char.lisp
+msgid "character arg move"
+msgstr "aracterchay argway ovemay"
+
+#: target:compiler/x86/char.lisp
+msgid "inline comparison"
+msgstr "inlineway omparisoncay"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr "inlineway ixnumfay arithmeticway"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr "inlineway (ignedsay-ytebay 32) arithmeticway"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr "inlineway (unsignedway-ytebay 32) arithmeticway"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline ASH"
+msgstr "inlineway ASH"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr "inlineway (ignedsay-ytebay 32) integerway-engthlay"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr "inlineway (unsignedway-ytebay 32) ogcountlay"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum comparison"
+msgstr "inlineway ixnumfay omparisoncay"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr "inlineway (ignedsay-ytebay 32) omparisoncay"
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr "inlineway (unsignedway-ytebay 32) omparisoncay"
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-START"
+msgstr "SHIFT-TOWARDS-START"
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-END"
+msgstr "SHIFT-TOWARDS-END"
+
+#: target:compiler/x86/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr "Ootay anymay esultray aluesvay omfray c-allcay."
+
+#: target:compiler/x86/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr "Ethodmay ~S otnay efinedday orfay ~S"
+
+#: target:compiler/x86/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+"Onscay upway away iecepay ofway odecay ichwhay allscay allcay-allbackcay "
+"ithway INDEX andway away\n"
+"ointerpay otay ethay argumentsway."
+
+#: target:compiler/x86/call.lisp
+msgid "more-arg-context"
+msgstr "oremay-argway-ontextcay"
+
+#: target:compiler/x86/array.lisp
+msgid "inline array access"
+msgstr "inlineway arrayway accessway"
+
+#: target:compiler/x86/array.lisp
+msgid "inline array store"
+msgstr "inlineway arrayway toresay"
+
+#~ msgid "Ignoring bogus i387 Constant ~a"
+#~ msgstr "Ignoringway ogusbay i387 Onstantcay ~away"
+
+#~ msgid "float move"
+#~ msgstr "oatflay ovemay"
+
+#~ msgid "complex float move"
+#~ msgstr "omplexcay oatflay ovemay"
+
+#~ msgid "float to pointer coercion"
+#~ msgstr "oatflay otay ointerpay oercioncay"
+
+#~ msgid "pointer to float coercion"
+#~ msgstr "ointerpay otay oatflay oercioncay"
+
+#~ msgid "complex float to pointer coercion"
+#~ msgstr "omplexcay oatflay otay ointerpay oercioncay"
+
+#~ msgid "complex double-double float to pointer coercion"
+#~ msgstr "omplexcay oubleday-oubleday oatflay otay ointerpay oercioncay"
+
+#~ msgid "pointer to complex float coercion"
+#~ msgstr "ointerpay otay omplexcay oatflay oercioncay"
+
+#~ msgid "float argument move"
+#~ msgstr "oatflay argumentway ovemay"
+
+#~ msgid "complex float argument move"
+#~ msgstr "omplexcay oatflay argumentway ovemay"
+
+#~ msgid "complex double-double-float argument move"
+#~ msgstr "omplexcay oubleday-oubleday-oatflay argumentway ovemay"
+
+#~ msgid "inline float arithmetic"
+#~ msgstr "inlineway oatflay arithmeticway"
+
+#~ msgid "inline float comparison"
+#~ msgstr "inlineway oatflay omparisoncay"
+
+#~ msgid "inline float coercion"
+#~ msgstr "inlineway oatflay oercioncay"
+
+#~ msgid "inline float truncate"
+#~ msgstr "inlineway oatflay uncatetray"
+
+#~ msgid "inline NPX function"
+#~ msgstr "inlineway NPX unctionfay"
+
+#~ msgid "inline tan function"
+#~ msgstr "inlineway antay unctionfay"
+
+#~ msgid "inline sin/cos function"
+#~ msgstr "inlineway insay/oscay unctionfay"
+
+#~ msgid "inline exp function"
+#~ msgstr "inlineway expway unctionfay"
+
+#~ msgid "inline expm1 function"
+#~ msgstr "inlineway expmway1 unctionfay"
+
+#~ msgid "inline log function"
+#~ msgstr "inlineway oglay unctionfay"
+
+#~ msgid "inline log10 function"
+#~ msgstr "inlineway oglay10 unctionfay"
+
+#~ msgid "inline pow function"
+#~ msgstr "inlineway owpay unctionfay"
+
+#~ msgid "inline scalbn function"
+#~ msgstr "inlineway albnscay unctionfay"
+
+#~ msgid "inline scalb function"
+#~ msgstr "inlineway albscay unctionfay"
+
+#~ msgid "inline log1p function"
+#~ msgstr "inlineway oglay1p unctionfay"
+
+#~ msgid "inline log1p with limited x range function"
+#~ msgstr "inlineway oglay1p ithway imitedlay x angeray unctionfay"
+
+#~ msgid "inline logb function"
+#~ msgstr "inlineway ogblay unctionfay"
+
+#~ msgid "inline atan function"
+#~ msgstr "inlineway atanway unctionfay"
+
+#~ msgid "inline atan2 function"
+#~ msgstr "inlineway atanway2 unctionfay"
+
+#~ msgid "inline complex single-float creation"
+#~ msgstr "inlineway omplexcay inglesay-oatflay eationcray"
+
+#~ msgid "inline complex double-float creation"
+#~ msgstr "inlineway omplexcay oubleday-oatflay eationcray"
+
+#~ msgid "inline complex long-float creation"
+#~ msgstr "inlineway omplexcay onglay-oatflay eationcray"
+
+#~ msgid "complex float realpart"
+#~ msgstr "omplexcay oatflay ealpartray"
+
+#~ msgid "complex float imagpart"
+#~ msgstr "omplexcay oatflay imagpartway"
+
+#~ msgid "inline dummy FP register bias"
+#~ msgstr "inlineway ummyday FP egisterray iasbay"
+
+#~ msgid "double-double float move"
+#~ msgstr "oubleday-oubleday oatflay ovemay"
+
+#~ msgid "double double float to pointer coercion"
+#~ msgstr "oubleday oubleday oatflay otay ointerpay oercioncay"
+
+#~ msgid "pointer to double-double-float coercion"
+#~ msgstr "ointerpay otay oubleday-oubleday-oatflay oercioncay"
+
+#~ msgid "double double-float argument move"
+#~ msgstr "oubleday oubleday-oatflay argumentway ovemay"
+
+#~ msgid "inline double-double-float creation"
+#~ msgstr "inlineway oubleday-oubleday-oatflay eationcray"
+
+#~ msgid "double-double high part"
+#~ msgstr "oubleday-oubleday ighhay artpay"
+
+#~ msgid "double-double low part"
+#~ msgstr "oubleday-oubleday owlay artpay"
+
+#~ msgid "inline complex double-double-float creation"
+#~ msgstr "inlineway omplexcay oubleday-oubleday-oatflay eationcray"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po
new file mode 100644
index 0000000000000000000000000000000000000000..be451e0f7142a1da667dda8ff8cb4fd70d9ec4fa
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po
@@ -0,0 +1,21 @@
+# @ cmucl-x87
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp
+#: target:compiler/x86/x87-sap.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
new file mode 100644
index 0000000000000000000000000000000000000000..3509347c1931b36ac3923f88ee824a24c7e46f6e
--- /dev/null
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
@@ -0,0 +1,28709 @@
+# @ cmucl
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20A\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: Automatic translation\n"
+"Language-Team: Pig Latin (auto-translated)\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+#: target:code/intl.lisp
+msgid ""
+"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
+"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+msgstr ""
+"Ethay essagemay-ookuplay omainday usedway ybay INTL:GETTEXT andway INTL:"
+"NGETTEXT.\n"
+"  Useway (INTL:TEXTDOMAIN \"ateverwhay\") inway eachway ourcesay ilefay otay "
+"etsay isthay."
+
+#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp
+#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp
+#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp
+#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp
+#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp
+#: target:compiler/dump.lisp target:compiler/dyncount.lisp
+#: target:compiler/xref.lisp target:compiler/srctran.lisp
+#: target:compiler/typetran.lisp target:compiler/ir1util.lisp
+#: target:compiler/main.lisp target:compiler/knownfun.lisp
+#: target:compiler/new-assem.lisp target:compiler/disassem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/ctype.lisp target:compiler/node.lisp
+#: target:compiler/sset.lisp target:compiler/backend.lisp
+#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp
+#: target:code/intl.lisp target:compiler/globaldb.lisp
+#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp
+#: target:code/internet.lisp target:code/loop.lisp
+#: target:code/run-program.lisp target:code/parse-time.lisp
+#: target:code/profile.lisp target:code/ntrace.lisp
+#: target:code/rand-mt19937.lisp target:code/debug.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp
+#: target:code/eval.lisp target:code/filesys.lisp target:code/pathname.lisp
+#: target:code/fd-stream.lisp target:code/extfmts.lisp
+#: target:code/serve-event.lisp target:code/reader.lisp
+#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp
+#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp
+#: target:code/commandline.lisp target:code/unidata.lisp
+#: target:compiler/proclaim.lisp target:code/hash-new.lisp
+#: target:code/byte-interp.lisp target:code/c-call.lisp
+#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp
+#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp
+#: target:assembly/assemfile.lisp target:code/struct.lisp
+msgid "Class not yet defined: ~S"
+msgstr "Assclay otnay etyay efinedday: ~S"
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ="
+msgstr "Encounteredway illegalway okentay: ="
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ~C"
+msgstr "Encounteredway illegalway okentay: ~C"
+
+#: target:code/intl.lisp
+msgid "Expected : in ?: construct"
+msgstr "Expectedway : inway ?: onstructcay"
+
+#: target:code/intl.lisp
+msgid "Expected close-paren."
+msgstr "Expectedway oseclay-arenpay."
+
+#: target:code/intl.lisp
+msgid "Unexpected token: ~S."
+msgstr "Unexpectedway okentay: ~S."
+
+#: target:code/intl.lisp
+msgid "Expecting end of expression.  ~S."
+msgstr "Expectingway endway ofway expressionway.  ~S."
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the current message domain and return its translation."
+msgstr ""
+"Ooklay upway STRING inway ethay urrentcay essagemay omainday andway eturnray "
+"itsway anslationtray."
+
+#: target:code/intl.lisp
+msgid "Look up the singular or plural form of a message in the current domain."
+msgstr ""
+"Ooklay upway ethay ingularsay orway uralplay ormfay ofway away essagemay "
+"inway ethay urrentcay omainday."
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the specified message domain and return its translation."
+msgstr ""
+"Ooklay upway STRING inway ethay ecifiedspay essagemay omainday andway "
+"eturnray itsway anslationtray."
+
+#: target:code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the specified domain."
+msgstr ""
+"Ooklay upway ethay ingularsay orway uralplay ormfay ofway away essagemay "
+"inway ethay ecifiedspay omainday."
+
+#: target:code/intl.lisp
+msgid "_@ is a reserved reader macro prefix."
+msgstr "_@ isway away eservedray eaderray acromay efixpray."
+
+#: target:code/intl.lisp
+msgid "~&Dumping ~D messages for domain ~S~%"
+msgstr "~&Umpingday ~D essagesmay orfay omainday ~S~%"
+
+#: target:code/struct.lisp
+msgid "The size of a stream in-buffer."
+msgstr "Ethay izesay ofway away eamstray inway-ufferbay."
+
+#: target:code/sysmacs.lisp
+msgid "Register the feature as having influenced the CMUCL build process."
+msgstr ""
+"Egisterray ethay eaturefay asway avinghay influencedway ethay CMUCL uildbay "
+"ocesspray."
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Register the feature as having influenced the CMUCL build process,\n"
+"and also the CMUCL C runtime."
+msgstr ""
+"Egisterray ethay eaturefay asway avinghay influencedway ethay CMUCL uildbay "
+"ocesspray,\n"
+"andway alsoway ethay CMUCL C untimeray."
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Given any Array, binds Data-Var to the array's data vector and Start-Var "
+"and\n"
+"  End-Var to the start and end of the designated portion of the data "
+"vector.\n"
+"  Svalue and Evalue are any start and end specified to the original "
+"operation,\n"
+"  and are factored into the bindings of Start-Var and End-Var.  Offset-Var "
+"is\n"
+"  the cumulative offset of all displacements encountered, and does not\n"
+"  include Svalue."
+msgstr ""
+"Ivengay anyway Arrayway, indsbay Ataday-Arvay otay ethay arrayway's ataday "
+"ectorvay andway Tartsay-Arvay andway\n"
+"  Endway-Arvay otay ethay tartsay andway endway ofway ethay esignatedday "
+"ortionpay ofway ethay ataday ectorvay.\n"
+"  Valuesay andway Evalueway areway anyway tartsay andway endway ecifiedspay "
+"otay ethay originalway operatiowayn,\n"
+"  andway areway actoredfay intoway ethay indingsbay ofway Tartsay-Arvay "
+"andway Endway-Arvay.  Offsetway-Arvay isway\n"
+"  ethay umulativecay offsetway ofway allway isplacementsday encounteredway, "
+"andway oesday otnay\n"
+"  includeway Valuesay."
+
+#: target:code/sysmacs.lisp
+msgid "Executes the forms in the body without doing a garbage collection."
+msgstr ""
+"Executesway ethay ormsfay inway ethay odybay ithoutway oingday away "
+"arbagegay ollectioncay."
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the 24 bits of data in the header of object X, which must be an\n"
+"  other-pointer object."
+msgstr ""
+"Eturnray ethay 24 itsbay ofway ataday inway ethay eaderhay ofway objectway "
+"X, ichwhay ustmay ebay anway\n"
+"  otherway-ointerpay objectway."
+
+#: target:code/kernel.lisp
+msgid ""
+"Sets the 24 bits of data in the header of object X (which must be an\n"
+"  other-pointer object) to VAL."
+msgstr ""
+"Etssay ethay 24 itsbay ofway ataday inway ethay eaderhay ofway objectway X "
+"(ichwhay ustmay ebay anway\n"
+"  otherway-ointerpay objectway) otay VAL."
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns the length of the closure X.  This is one more than the number\n"
+"  of variables closed over."
+msgstr ""
+"Eturnsray ethay engthlay ofway ethay osureclay X.  Isthay isway oneway "
+"oremay anthay ethay umbernay\n"
+"  ofway ariablesvay osedclay overway."
+
+#: target:code/kernel.lisp
+msgid "Returns the three-bit lowtag for the object X."
+msgstr "Eturnsray ethay reethay-itbay owtaglay orfay ethay objectway X."
+
+#: target:code/kernel.lisp
+msgid "Returns the 8-bit header type for the object X."
+msgstr "Eturnsray ethay 8-itbay eaderhay ypetay orfay ethay objectway X."
+
+#: target:code/kernel.lisp
+msgid ""
+"Return a System-Area-Pointer pointing to the data for the vector X, which\n"
+"  must be simple."
+msgstr ""
+"Eturnray away Ystemsay-Areaway-Ointerpay ointingpay otay ethay ataday orfay "
+"ethay ectorvay X, ichwhay\n"
+"  ustmay ebay implesay."
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
+msgstr ""
+"Eturnray away Ystemsay-Areaway-Ointerpay ointingpay otay ethay endway ofway "
+"ethay indingbay tacksay."
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns a System-Area-Pointer pointing to the next free work of the current\n"
+"  dynamic space."
+msgstr ""
+"Eturnsray away Ystemsay-Areaway-Ointerpay ointingpay otay ethay extnay "
+"eefray orkway ofway ethay urrentcay\n"
+"  ynamicday acespay."
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the control stack."
+msgstr ""
+"Eturnray away Ystemsay-Areaway-Ointerpay ointingpay otay ethay endway ofway "
+"ethay ontrolcay tacksay."
+
+#: target:code/kernel.lisp
+msgid "Return the header typecode for FUNCTION.  Can be set with SETF."
+msgstr ""
+"Eturnray ethay eaderhay ypecodetay orfay FUNCTION.  Ancay ebay etsay ithway "
+"SETF."
+
+#: target:code/kernel.lisp
+msgid "Extracts the arglist from the function header FUNC."
+msgstr "Extractsway ethay arglistway omfray ethay unctionfay eaderhay FUNC."
+
+#: target:code/kernel.lisp
+msgid "Extracts the name from the function header FUNC."
+msgstr "Extractsway ethay amenay omfray ethay unctionfay eaderhay FUNC."
+
+#: target:code/kernel.lisp
+msgid "Extracts the type from the function header FUNC."
+msgstr "Extractsway ethay ypetay omfray ethay unctionfay eaderhay FUNC."
+
+#: target:code/kernel.lisp
+msgid "Extracts the function from CLOSURE."
+msgstr "Extractsway ethay unctionfay omfray CLOSURE."
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the length of VECTOR.  There is no reason to use this, 'cause\n"
+"  (length (the vector foo)) is the same."
+msgstr ""
+"Eturnray ethay engthlay ofway VECTOR.  Erethay isway onay easonray otay "
+"useway isthay, 'ausecay\n"
+"  (engthlay (ethay ectorvay oofay)) isway ethay amesay."
+
+#: target:code/kernel.lisp
+msgid "Return the SXHASH for the simple-string STRING."
+msgstr "Eturnray ethay SXHASH orfay ethay implesay-ingstray STRING."
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the SXHASH for the first LENGTH characters of the simple-string\n"
+"  STRING."
+msgstr ""
+"Eturnray ethay SXHASH orfay ethay irstfay LENGTH aracterschay ofway ethay "
+"implesay-ingstray\n"
+"  STRING."
+
+#: target:code/kernel.lisp
+msgid "Extract the INDEXth slot from CLOSURE."
+msgstr "Extractway ethay Indexthway otslay omfray CLOSURE."
+
+#: target:code/kernel.lisp
+msgid ""
+"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
+"  WORDS words long.  Note: it is your responsibility to assure that the\n"
+"  relation between LENGTH and WORDS is correct."
+msgstr ""
+"Allocateway away unboxedway, implesay ectorvay ithway ypetay odecay TYPE, "
+"engthlay LENGTH, andway\n"
+"  WORDS ordsway onglay.  Otenay: itway isway ouryay esponsibilityray otay "
+"assureway atthay ethay\n"
+"  elationray etweenbay LENGTH andway WORDS isway orrectcay."
+
+#: target:code/kernel.lisp
+msgid "Allocate an array header with type code TYPE and rank RANK."
+msgstr ""
+"Allocateway anway arrayway eaderhay ithway ypetay odecay TYPE andway ankray "
+"RANK."
+
+#: target:code/kernel.lisp
+msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
+msgstr ""
+"Eturnray away SAP ointingpay otay ethay instructionsway artpay ofway CODE-"
+"OBJ."
+
+#: target:code/kernel.lisp
+msgid ""
+"Extract the INDEXth element from the header of CODE-OBJ.  Can be set with\n"
+"  setf."
+msgstr ""
+"Extractway ethay Indexthway elementway omfray ethay eaderhay ofway CODE-"
+"OBJ.  Ancay ebay etsay ithway\n"
+"  etfsay."
+
+#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp
+#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp
+#: target:code/kernel.lisp
+msgid "Argument ~A is not a ~S: ~S."
+msgstr "Argumentway ~Away isway otnay away ~S: ~S."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of symbols that describe features provided by the\n"
+"   implementation."
+msgstr ""
+"Oldshay away istlay ofway ymbolssay atthay escribeday eaturesfay ovidedpray "
+"ybay ethay\n"
+"   implementationway."
+
+#: target:code/lispinit.lisp
+msgid "Features affecting the runtime"
+msgstr "Eaturesfay affectingway ethay untimeray"
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to positive infinity."
+msgstr "Ethay ixnumfay osestclay inway aluevay otay ositivepay infinityway."
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to negative infinity."
+msgstr "Ethay ixnumfay osestclay inway aluevay otay egativenay infinityway."
+
+#: target:code/lispinit.lisp
+msgid ""
+"When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
+"will\n"
+"   enter the debugger prior to signalling that condition."
+msgstr ""
+"Enwhay (ypeptay onditioncay *break-on-signals*) isway uetray, enthay allscay "
+"otay SIGNAL illway\n"
+"   enterway ethay ebuggerday iorpray otay ignallingsay atthay onditioncay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, nil is returned.  If\n"
+"   (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked "
+"before\n"
+"   any signalling is done."
+msgstr ""
+"Invokesway ethay ignalsay acilityfay onway away onditioncay ormedfay omfray "
+"atumday andway argumentsway.\n"
+"   Ifway ethay onditioncay isway otnay andledhay, ilnay isway eturnedray.  "
+"Ifway\n"
+"   (TYPEP onditioncay *BREAK-ON-SIGNALS*) isway uetray, ethay ebuggerday "
+"isway invokedway eforebay\n"
+"   anyway ignallingsay isway oneday."
+
+#: target:code/lispinit.lisp
+msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
+msgstr ""
+"~Away~%Eakbray enteredway ecausebay ofway *break-on-signals* (ownay NIL.)"
+
+#: target:code/lispinit.lisp
+msgid "Ignore the additional arguments."
+msgstr "Ignoreway ethay additionalway argumentsway."
+
+#: target:code/lispinit.lisp
+msgid ""
+"You may not supply additional arguments ~\n"
+"\t\t\t\t     when giving ~S to ~S."
+msgstr ""
+"Ouyay aymay otnay upplysay additionalway argumentsway ~\n"
+"\t\t\t\t     enwhay ivinggay ~S otay ~S."
+
+#: target:code/lispinit.lisp
+msgid "Bad argument to ~S: ~S"
+msgstr "Adbay argumentway otay ~S: ~S"
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked."
+msgstr ""
+"Invokesway ethay ignalsay acilityfay onway away onditioncay ormedfay omfray "
+"atumday andway argumentsway.\n"
+"   Ifway ethay onditioncay isway otnay andledhay, ethay ebuggerday isway "
+"invokedway."
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "Help! "
+msgstr "Elphay! "
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid " nested errors.  "
+msgstr " estednay errorsway.  "
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
+msgstr "KERNEL:*MAXIMUM-ERROR-DEPTH* exceededway."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Prints a message and invokes the debugger without allowing any possibility\n"
+"   of condition handling occurring."
+msgstr ""
+"Intspray away essagemay andway invokesway ethay ebuggerday ithoutway "
+"allowingway anyway ossibilitypay\n"
+"   ofway onditioncay andlinghay occurringway."
+
+#: target:code/lispinit.lisp
+msgid "Return from BREAK."
+msgstr "Eturnray omfray BREAK."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Warns about a situation by signalling a condition formed by datum and\n"
+"   arguments.  While the condition is being signaled, a muffle-warning "
+"restart\n"
+"   exists that causes WARN to immediately return nil."
+msgstr ""
+"Arnsway aboutway away ituationsay ybay ignallingsay away onditioncay "
+"ormedfay ybay atumday andway\n"
+"   argumentsway.  Ilewhay ethay onditioncay isway eingbay ignaledsay, away "
+"ufflemay-arningway estartray\n"
+"   existsway atthay ausescay WARN otay immediatelyway eturnray ilnay."
+
+#: target:code/lispinit.lisp
+msgid "a warning condition"
+msgstr "away arningway onditioncay"
+
+#: target:code/lispinit.lisp
+msgid "Skip warning."
+msgstr "Kipsay arningway."
+
+#: target:code/lispinit.lisp
+msgid "~&~@<Warning:  ~3i~:_~A~:>~%"
+msgstr "~&~@<Arningway:  ~3i~:_~Away~:>~%"
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked.  This function\n"
+"   is just like error, except that the condition type defaults to the type\n"
+"   simple-program-error, instead of program-error."
+msgstr ""
+"Invokesway ethay ignalsay acilityfay onway away onditioncay ormedfay omfray "
+"atumday andway argumentsway.\n"
+"   Ifway ethay onditioncay isway otnay andledhay, ethay ebuggerday isway "
+"invokedway.  Isthay unctionfay\n"
+"   isway ustjay ikelay errorway, exceptway atthay ethay onditioncay ypetay "
+"efaultsday otay ethay ypetay\n"
+"   implesay-ogrampray-errorway, insteadway ofway ogrampray-errorway."
+
+#: target:code/lispinit.lisp
+msgid "Gives the world a shove and hopes it spins."
+msgstr "Ivesgay ethay orldway away oveshay andway opeshay itway insspay."
+
+#: target:code/lispinit.lisp
+msgid "Functions to be invoked during cleanup at Lisp exit."
+msgstr ""
+"Unctionsfay otay ebay invokedway uringday eanupclay atway Isplay exitway."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
+"  non-Nil."
+msgstr ""
+"Erminatestay ethay urrentcay Isplay.  Ingsthay areway eanedclay upway "
+"unlessway Ecklesslyray-P isway\n"
+"  onnay-Ilnay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+"Isthay unctionfay ausescay executionway otay ebay uspendedsay orfay N "
+"econdssay.  N aymay\n"
+"  ebay anyway onnay-egativenay, onnay-omplexcay umbernay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Zero the unused portion of the control stack so that old objects are not\n"
+"   kept alive because of uninitialized stack variables."
+msgstr ""
+"Erozay ethay unusedway ortionpay ofway ethay ontrolcay tacksay osay atthay "
+"oldway objectsway areway otnay\n"
+"   eptkay aliveway ecausebay ofway uninitializedway tacksay ariablesvay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of all the values returned by the most recent top-level EVAL."
+msgstr ""
+"Oldshay away istlay ofway allway ethay aluesvay eturnedray ybay ethay ostmay "
+"ecentray optay-evellay EVAL."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of / when a new value is computed."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway / enwhay away ewnay aluevay isway "
+"omputedcay."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of // when a new value is computed."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway // enwhay away ewnay aluevay isway "
+"omputedcay."
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level EVAL."
+msgstr "Oldshay ethay aluevay ofway ethay ostmay ecentray optay-evellay EVAL."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of * when a new value is computed."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway * enwhay away ewnay aluevay isway "
+"omputedcay."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ** when a new value is computed."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway ** enwhay away ewnay aluevay isway "
+"omputedcay."
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level READ."
+msgstr "Oldshay ethay aluevay ofway ethay ostmay ecentray optay-evellay READ."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of + when a new value is read."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway + enwhay away ewnay aluevay isway "
+"eadray."
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ++ when a new value is read."
+msgstr ""
+"Etsgay ethay eviouspray aluevay ofway ++ enwhay away ewnay aluevay isway "
+"eadray."
+
+#: target:code/lispinit.lisp
+msgid "Holds the form curently being evaluated."
+msgstr "Oldshay ethay ormfay urentlycay eingbay evaluatedway."
+
+#: target:code/lispinit.lisp
+msgid ""
+"The top-level prompt string.  This also may be a function of no arguments\n"
+"   that returns a simple-string."
+msgstr ""
+"Ethay optay-evellay omptpray ingstray.  Isthay alsoway aymay ebay away "
+"unctionfay ofway onay argumentsway\n"
+"   atthay eturnsray away implesay-ingstray."
+
+#: target:code/lispinit.lisp
+msgid ""
+"True if we are within the Top-Level-Catcher.  This is used by interrupt\n"
+"  handlers to see whether it is o.k. to throw."
+msgstr ""
+"Uetray ifway eway areway ithinway ethay Optay-Evellay-Atchercay.  Isthay "
+"isway usedway ybay interruptway\n"
+"  andlershay otay eesay etherwhay itway isway o.k. otay rowthay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, +"
+"+,\n"
+"  +, ///, //, /, and -."
+msgstr ""
+"Evaluateway FORM, eturningray ateverwhay itway eturnsray utbay adjustway "
+"***, **, *, +++, ++,\n"
+"  +, ///, //, /, andway -."
+
+#: target:code/lispinit.lisp
+msgid "Go on with * set to NIL."
+msgstr "Ogay onway ithway * etsay otay NIL."
+
+#: target:code/lispinit.lisp
+msgid "EVAL returned an unbound marker."
+msgstr "EVAL eturnedray anway unboundway arkermay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"How many pages to reserve from the total heap space so we can handle\n"
+"heap overflow."
+msgstr ""
+"Owhay anymay agespay otay eserveray omfray ethay otaltay eaphay acespay osay "
+"eway ancay andlehay\n"
+"eaphay overflowway."
+
+#: target:code/lispinit.lisp
+msgid "Top-level READ-EVAL-PRINT loop.  Do not call this."
+msgstr "Optay-evellay READ-EVAL-PRINT ooplay.  Oday otnay allcay isthay."
+
+#: target:code/lispinit.lisp
+msgid "Return to Top-Level."
+msgstr "Eturnray otay Optay-Evellay."
+
+#: target:code/lispinit.lisp
+msgid ""
+"~&Received EOF on *standard-input*, ~\n"
+"\t\t\t\t\tswitching to *terminal-io*.~%"
+msgstr ""
+"~&Eceivedray EOF onway *standard-input*, ~\n"
+"\t\t\t\t\twitchingsay otay *terminal-io*.~%"
+
+#: target:code/lispinit.lisp
+msgid "~&Received more than ~D EOFs; Aborting.~%"
+msgstr "~&Eceivedray oremay anthay ~D Eofsway; Abortingway.~%"
+
+#: target:code/lispinit.lisp
+msgid "~&Received EOF.~%"
+msgstr "~&Eceivedray EOF.~%"
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
+"          environment constructed by the PCL portable code walker.  These ~\n"
+"          environments are only useful for macroexpansion, they cannot be ~\n"
+"          used for evaluation.  ~\n"
+"          This error should never occur when using PCL.  ~\n"
+"          This most likely source of this error is a program which tries to "
+"~\n"
+"          to use the PCL portable code walker to build its own evaluator.~@:>"
+msgstr ""
+"~@<Ethay evaluatorway asway alledcay otay evaluateway away ormfay inway away "
+"acroexpansionmay ~\n"
+"          environmentway onstructedcay ybay ethay PCL ortablepay odecay "
+"alkerway.  Esethay ~\n"
+"          environmentsway areway onlyway usefulway orfay acroexpansionmay, "
+"eythay annotcay ebay ~\n"
+"          usedway orfay evaluationway.  ~\n"
+"          Isthay errorway ouldshay evernay occurway enwhay usingway PCL.  ~\n"
+"          Isthay ostmay ikelylay ourcesay ofway isthay errorway isway away "
+"ogrampray ichwhay iestray otay ~\n"
+"          otay useway ethay PCL ortablepay odecay alkerway otay uildbay "
+"itsway ownway evaluatorway.~@:>"
+
+#: target:pcl/walk.lisp
+msgid "~@<~S is not a recognized variable declaration.~@:>"
+msgstr "~@<~S isway otnay away ecognizedray ariablevay eclarationday.~@:>"
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't get template for ~S.~@:>"
+msgstr "~@<Ancay't etgay emplatetay orfay ~S.~@:>"
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<~S is a special form, not defined in the CommonLisp ~\n"
+"\t\t      manual.  This code walker doesn't know how to walk it.  ~\n"
+"\t\t      Define a template for this special form and try again.~@:>"
+msgstr ""
+"~@<~S isway away ecialspay ormfay, otnay efinedday inway ethay Ommonlispcay "
+"~\n"
+"\t\t      anualmay.  Isthay odecay alkerway oesnday't nowkay owhay otay "
+"alkway itway.  ~\n"
+"\t\t      Efineday away emplatetay orfay isthay ecialspay ormfay andway "
+"ytray againway.~@:>"
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<While handling repeat: ~\n"
+"                     Ran into stop while still in repeat template.~@:>"
+msgstr ""
+"~@<Ilewhay andlinghay epeatray: ~\n"
+"                     Anray intoway topsay ilewhay tillsay inway epeatray "
+"emplatetay.~@:>"
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<Encountered declare ~S in a place where a ~\n"
+"         declare was not expected.~@:>"
+msgstr ""
+"~@<Encounteredway eclareday ~S inway away aceplay erewhay away ~\n"
+"         eclareday asway otnay expectedway.~@:>"
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't understand something in the arglist ~S.~@:>"
+msgstr "~@<Ancay't understandway omethingsay inway ethay arglistway ~S.~@:>"
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<In the form ~S: ~\n"
+"                       IF only accepts three arguments, you are using ~D. ~\n"
+"                       It is true that some Common Lisps support this, but "
+"~\n"
+"                       it is not truly legal Common Lisp.  For now, this "
+"code ~\n"
+"                       walker is interpreting the extra arguments as extra "
+"else clauses. ~\n"
+"                       Even if this is what you intended, you should fix "
+"your source code.~@:>"
+msgstr ""
+"~@<Inway ethay ormfay ~S: ~\n"
+"                       IF onlyway acceptsway reethay argumentsway, ouyay "
+"areway usingway ~D. ~\n"
+"                       Itway isway uetray atthay omesay Ommoncay Ispslay "
+"upportsay isthay, utbay ~\n"
+"                       itway isway otnay ulytray egallay Ommoncay Isplay.  "
+"Orfay ownay, isthay odecay ~\n"
+"                       alkerway isway interpretingway ethay extraway "
+"argumentsway asway extraway elseway ausesclay. ~\n"
+"                       Evenway ifway isthay isway atwhay ouyay intendedway, "
+"ouyay ouldshay ixfay ouryay ourcesay odecay.~@:>"
+
+#: target:code/fwrappers.lisp
+msgid ""
+"A funcallable instance used to implement fwrappers.\n"
+"   The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
+"   This function returns an instance closure closing over an \n"
+"   fwrapper object, which is installed as the funcallable-instance\n"
+"   function of the fwrapper object."
+msgstr ""
+"Away uncallablefay instanceway usedway otay implementway wrappersfay.\n"
+"   Ethay CONSTRUCTOR otslay isway away unctionfay efinedday ithway DEFINE-"
+"FWRAPPER.\n"
+"   Isthay unctionfay eturnsray anway instanceway osureclay osingclay overway "
+"anway \n"
+"   wrapperfay objectway, ichwhay isway installedway asway ethay "
+"uncallablefay-instanceway\n"
+"   unctionfay ofway ethay wrapperfay objectway."
+
+#: target:code/fwrappers.lisp
+msgid "Print-function for struct FWRAPPER."
+msgstr "Intpray-unctionfay orfay uctstray FWRAPPER."
+
+#: target:code/fwrappers.lisp
+msgid "Return FUN if it is an fwrapper or nil if it isn't."
+msgstr ""
+"Eturnray FUN ifway itway isway anway wrapperfay orway ilnay ifway itway "
+"isnway't."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Evaluate BODY with VAR bound to consecutive fwrappers of\n"
+"   FDEFN.  Return RESULT at the end."
+msgstr ""
+"Evaluateway BODY ithway VAR oundbay otay onsecutivecay wrappersfay ofway\n"
+"   FDEFN.  Eturnray RESULT atway ethay endway."
+
+#: target:code/fwrappers.lisp
+msgid "Return tha last encapsulation of FDEFN or NIL if none."
+msgstr ""
+"Eturnray athay astlay encapsulationway ofway FDEFN orway NIL ifway onenay."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
+"   Signal an error if FUNCTION-NAME is an undefined function."
+msgstr ""
+"Ependpray encapsulationway F otay ethay efinitionday ofway FUNCTION-NAME.\n"
+"   Ignalsay anway errorway ifway FUNCTION-NAME isway anway undefinedway "
+"unctionfay."
+
+#: target:code/fwrappers.lisp
+msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
+msgstr "Emoveray wrapperfay F omfray ethay efinitionday ofway FUNCTION-NAME."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
+"   from outermost to innermost."
+msgstr ""
+"Eturnray away istlay ofway allway wrappersfay ofway FUNCTION-NAME, "
+"orderedway\n"
+"   omfray outermostway otay innermostway."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Set FUNCTION-NAMES's fwrappers to elements of the list\n"
+"   FWRAPPERS, which is assumed to be ordered from outermost to\n"
+"   innermost.  FWRAPPERS null means remove all fwrappers."
+msgstr ""
+"Etsay FUNCTION-NAMES's wrappersfay otay elementsway ofway ethay istlay\n"
+"   FWRAPPERS, ichwhay isway assumedway otay ebay orderedway omfray "
+"outermostway otay\n"
+"   innermostway.  FWRAPPERS ullnay eansmay emoveray allway wrappersfay."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
+"   created by calling CONSTRUCTOR.  CONSTRUCTOR is a function\n"
+"   defined with DEFINE-FWRAPPER, or the name of such a function.\n"
+"   Return the fwrapper created.  USER-DATA is arbitrary data to be\n"
+"   associated with the fwrapper.  It is accessible in wrapper\n"
+"   functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
+"   FWRAPPER)."
+msgstr ""
+"Apwray ethay unctionfay amednay FUNCTION-NAME inway anway wrapperfay ofway "
+"ypetay TYPE,\n"
+"   eatedcray ybay allingcay CONSTRUCTOR.  CONSTRUCTOR isway away unctionfay\n"
+"   efinedday ithway DEFINE-FWRAPPER, orway ethay amenay ofway uchsay away "
+"unctionfay.\n"
+"   Eturnray ethay wrapperfay eatedcray.  USER-DATA isway arbitraryway ataday "
+"otay ebay\n"
+"   associatedway ithway ethay wrapperfay.  Itway isway accessibleway inway "
+"apperwray\n"
+"   unctionsfay efinedday ithway DEFINE-FWRAPPER asway (FWRAPPER-USER-DATA\n"
+"   FWRAPPER)."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Remove fwrappers from the function named FUNCTION-NAME.\n"
+"   If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, remove fwrappers satisfying TEST.\n"
+"   If both are not specified, remove all fwrappers."
+msgstr ""
+"Emoveray wrappersfay omfray ethay unctionfay amednay FUNCTION-NAME.\n"
+"   Ifway TYPE isway uppliedsay, emoveray wrappersfay osewhay ypetay isway "
+"equalway otay TYPE.\n"
+"   Ifway TEST isway uppliedsay, emoveray wrappersfay atisfyingsay TEST.\n"
+"   Ifway othbay areway otnay ecifiedspay, emoveray allway wrappersfay."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update the funcallable instance function of fwrapper F from its\n"
+"   constructor."
+msgstr ""
+"Updateway ethay uncallablefay instanceway unctionfay ofway wrapperfay F "
+"omfray itsway\n"
+"   onstructorcay."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update fwrapper function definitions of FUNCTION-NAME.\n"
+"   If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, update fwrappers satisfying TEST."
+msgstr ""
+"Updateway wrapperfay unctionfay efinitionsday ofway FUNCTION-NAME.\n"
+"   Ifway TYPE isway uppliedsay, updateway wrappersfay osewhay ypetay isway "
+"equalway otay TYPE.\n"
+"   Ifway TEST isway uppliedsay, updateway wrappersfay atisfyingsay TEST."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Find an fwrapper of FUNCTION-NAME.\n"
+"   If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
+"   If TEST is supplied, find an fwrapper satisfying TEST."
+msgstr ""
+"Indfay anway wrapperfay ofway FUNCTION-NAME.\n"
+"   Ifway TYPE isway uppliedsay, indfay anway wrapperfay osewhay ypetay isway "
+"equalway otay TYPE.\n"
+"   Ifway TEST isway uppliedsay, indfay anway wrapperfay atisfyingsay TEST."
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Like DEFUN, but define a function wrapper.\n"
+"   In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
+"   executing fwrapper.  FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
+"   in BODY to call the next fwrapper or the primary function.  When\n"
+"   called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
+"   function with the original args to the fwrapper, otherwise it\n"
+"   invokes the next function with the supplied args."
+msgstr ""
+"Ikelay DEFUN, utbay efineday away unctionfay apperwray.\n"
+"   Inway BODY, ethay ymbolsay FWRAPPERS:FWRAPPERS efersray otay ethay "
+"urrentlycay\n"
+"   executingway wrapperfay.  FWRAPPERS:CALL-NEXT-FUNCTION ancay ebay "
+"usedway\n"
+"   inway BODY otay allcay ethay extnay wrapperfay orway ethay imarypray "
+"unctionfay.  Enwhay\n"
+"   alledcay ithway onay argumentsway, CALL-NEXT-FUNCTION invokesway ethay "
+"extnay\n"
+"   unctionfay ithway ethay originalway argsway otay ethay wrapperfay, "
+"otherwiseway itway\n"
+"   invokesway ethay extnay unctionfay ithway ethay uppliedsay argsway."
+
+#: target:code/fwrappers.lisp
+msgid "Return the expansion of a DEFINE-FWRAPPER."
+msgstr "Eturnray ethay expansionway ofway away DEFINE-FWRAPPER."
+
+#: target:code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr "&MORE otnay upportedsay inway wrapperfay ambdalay istslay"
+
+#: target:code/fwrappers.lisp
+msgid ""
+"First value is true if BODY refers to any of the variables in\n"
+"     OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
+"     returns.  Second value is true if BODY refers to REST."
+msgstr ""
+"Irstfay aluevay isway uetray ifway BODY efersray otay anyway ofway ethay "
+"ariablesvay inway\n"
+"     OPTIONALS, KEYS orway REST, ichwhay areway atwhay KERNEL:PARSE-LAMBDA-"
+"LIST\n"
+"     eturnsray.  Econdsay aluevay isway uetray ifway BODY efersray otay REST."
+
+#: target:code/fwrappers.lisp
+msgid "Fwrapper for old-style encapsulations."
+msgstr "Wrapperfay orfay oldway-tylesay encapsulationsway."
+
+#: target:code/fwrappers.lisp
+msgid "This function is deprecated; use fwrappers instead."
+msgstr "Isthay unctionfay isway eprecatedday; useway wrappersfay insteadway."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Define (NAME ...) to be a valid function name whose syntax is checked\n"
+"  by BODY.  In BODY, VAR is bound to an actual function name of the\n"
+"  form (NAME ...) to check.  BODY should return two values.\n"
+"  First value true means the function name is valid.  Second value\n"
+"  is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+"Efineday (NAME ...) otay ebay away alidvay unctionfay amenay osewhay "
+"yntaxsay isway eckedchay\n"
+"  ybay BODY.  Inway BODY, VAR isway oundbay otay anway actualway unctionfay "
+"amenay ofway ethay\n"
+"  ormfay (NAME ...) otay eckchay.  BODY ouldshay eturnray wotay aluesvay.\n"
+"  Irstfay aluevay uetray eansmay ethay unctionfay amenay isway alidvay.  "
+"Econdsay aluevay\n"
+"  isway ethay amenay, away ymbolsay, ofway ethay unctionfay orfay useway "
+"inway ethay BLOCK ofway Efunsday\n"
+"  andway inway imilarsay ituationssay."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"First value is true if NAME has valid function name syntax.\n"
+"  Second value is the name, a symbol, to use as a block name in DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+"Irstfay aluevay isway uetray ifway NAME ashay alidvay unctionfay amenay "
+"yntaxsay.\n"
+"  Econdsay aluevay isway ethay amenay, away ymbolsay, otay useway asway away "
+"ockblay amenay inway Efunsday\n"
+"  andway inway imilarsay ituationssay."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the fdefn object for NAME.  If it doesn't already exist and CREATE\n"
+"   is non-NIL, create a new (unbound) one."
+msgstr ""
+"Eturnray ethay defnfay objectway orfay NAME.  Ifway itway oesnday't "
+"alreadyway existway andway CREATE\n"
+"   isway onnay-NIL, eatecray away ewnay (unboundway) oneway."
+
+#: target:code/fdefinition.lisp
+msgid "Invalid function name: ~S"
+msgstr "Invalidway unctionfay amenay: ~S"
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the FDEFN of NAME.  Signal an error if there is none\n"
+"   or if it's function is null."
+msgstr ""
+"Eturnray ethay FDEFN ofway NAME.  Ignalsay anway errorway ifway erethay "
+"isway onenay\n"
+"   orway ifway itway's unctionfay isway ullnay."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Returns the definition for name, including any encapsulations.  Settable\n"
+"   with SETF."
+msgstr ""
+"Eturnsray ethay efinitionday orfay amenay, includingway anyway "
+"encapsulationsway.  Ettablesay\n"
+"   ithway SETF."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return FUNCTION-NAME's global function definition.\n"
+"   If FUNCTION-NAME is fwrapped, return the primary function definition\n"
+"   stored in the innermost fwrapper."
+msgstr ""
+"Eturnray FUNCTION-NAME's obalglay unctionfay efinitionday.\n"
+"   Ifway FUNCTION-NAME isway wrappedfay, eturnray ethay imarypray unctionfay "
+"efinitionday\n"
+"   toredsay inway ethay innermostway wrapperfay."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"This holds functions that (SETF FDEFINITION) invokes before storing the\n"
+"   new value.  These functions take the function name and the new value."
+msgstr ""
+"Isthay oldshay unctionsfay atthay (SETF FDEFINITION) invokesway eforebay "
+"toringsay ethay\n"
+"   ewnay aluevay.  Esethay unctionsfay aketay ethay unctionfay amenay andway "
+"ethay ewnay aluevay."
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
+"   If FUNCTION-NAME is fwrapped, set the primary function stored\n"
+"   in the innermost fwrapper."
+msgstr ""
+"Etsay FUNCTION-NAME's obalglay unctionfay efinitionday otay NEW-VALUE.\n"
+"   Ifway FUNCTION-NAME isway wrappedfay, etsay ethay imarypray unctionfay "
+"toredsay\n"
+"   inway ethay innermostway wrapperfay."
+
+#: target:code/fdefinition.lisp
+msgid "Return true if name has a global function definition."
+msgstr ""
+"Eturnray uetray ifway amenay ashay away obalglay unctionfay efinitionday."
+
+#: target:code/fdefinition.lisp
+msgid "Make Name have no global function definition."
+msgstr "Akemay Amenay avehay onay obalglay unctionfay efinitionday."
+
+#: target:code/error.lisp
+msgid "&rest keyword is ~:[missing~;misplaced~]."
+msgstr "&estray eywordkay isway ~:[issingmay~;isplacedmay~]."
+
+#: target:code/error.lisp
+msgid ""
+"Return a list of all the currently active restarts ordered from most\n"
+"   recently established to less recently established.  If Condition is\n"
+"   specified, then only restarts associated with Condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+"Eturnray away istlay ofway allway ethay urrentlycay activeway estartsray "
+"orderedway omfray ostmay\n"
+"   ecentlyray establishedway otay esslay ecentlyray establishedway.  Ifway "
+"Onditioncay isway\n"
+"   ecifiedspay, enthay onlyway estartsray associatedway ithway Onditioncay "
+"(orway ithway onay\n"
+"   onditioncay) illway ebay eturnedray."
+
+#: target:code/error.lisp
+msgid "Returns the name of the given restart object."
+msgstr "Eturnsray ethay amenay ofway ethay ivengay estartray objectway."
+
+#: target:code/error.lisp
+msgid ""
+"WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
+"   Evaluates the Forms in a dynamic environment where the restarts in the "
+"list\n"
+"   Restarts-Form are associated with the condition returned by Condition-"
+"Form.\n"
+"   This allows FIND-RESTART, etc., to recognize restarts that are not "
+"related\n"
+"   to the error currently being debugged.  See also RESTART-CASE."
+msgstr ""
+"WITH-CONDITION-RESTARTS Onditioncay-Ormfay Estartsray-Ormfay Orm*Fay\n"
+"   Evaluatesway ethay Ormsfay inway away ynamicday environmentway erewhay "
+"ethay estartsray inway ethay istlay\n"
+"   Estartsray-Ormfay areway associatedway ithway ethay onditioncay "
+"eturnedray ybay Onditioncay-Orfaym.\n"
+"   Isthay allowsway FIND-RESTART, etcway., otay ecognizeray estartsray "
+"atthay areway otnay elatedray\n"
+"   otay ethay errorway urrentlycay eingbay ebuggedday.  Eesay alsoway "
+"RESTART-CASE."
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms in a dynamic context where the given restart bindings are\n"
+"   in effect.  Users probably want to use RESTART-CASE.  When clauses "
+"contain\n"
+"   the same restart name, FIND-RESTART will find the first such clause."
+msgstr ""
+"Executesway ormsfay inway away ynamicday ontextcay erewhay ethay ivengay "
+"estartray indingsbay areway\n"
+"   inway effectway.  Usersway obablypray antway otay useway RESTART-CASE.  "
+"Enwhay ausesclay ontaincay\n"
+"   ethay amesay estartray amenay, FIND-RESTART illway indfay ethay irstfay "
+"uchsay auseclay."
+
+#: target:code/error.lisp
+msgid ""
+"Unnamed restart does not have a ~\n"
+"\t\t\t\t\treport function -- ~S"
+msgstr ""
+"Unnamedway estartray oesday otnay avehay away ~\n"
+"\t\t\t\t\teportray unctionfay -- ~S"
+
+#: target:code/error.lisp
+msgid ""
+"Returns the first restart named name.  If name is a restart, it is returned\n"
+"   if it is currently active.  If no such restart is found, nil is "
+"returned.\n"
+"   It is an error to supply nil as a name.  If Condition is specified and "
+"not\n"
+"   NIL, then only restarts associated with that condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+"Eturnsray ethay irstfay estartray amednay amenay.  Ifway amenay isway away "
+"estartray, itway isway eturnedray\n"
+"   ifway itway isway urrentlycay activeway.  Ifway onay uchsay estartray "
+"isway oundfay, ilnay isway eturnedray.\n"
+"   Itway isway anway errorway otay upplysay ilnay asway away amenay.  Ifway "
+"Onditioncay isway ecifiedspay andway otnay\n"
+"   NIL, enthay onlyway estartsray associatedway ithway atthay onditioncay "
+"(orway ithway onay\n"
+"   onditioncay) illway ebay eturnedray."
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, passing any given\n"
+"   arguments.  If the argument restart is not a restart or a currently "
+"active\n"
+"   non-nil restart name, then a control-error is signalled."
+msgstr ""
+"Allscay ethay unctionfay associatedway ithway ethay ivengay estartray, "
+"assingpay anyway ivengay\n"
+"   argumentsway.  Ifway ethay argumentway estartray isway otnay away "
+"estartray orway away urrentlycay activeway\n"
+"   onnay-ilnay estartray amenay, enthay away ontrolcay-errorway isway "
+"ignalledsay."
+
+#: target:code/error.lisp
+msgid "Restart ~S is not active."
+msgstr "Estartray ~S isway otnay activeway."
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, prompting for any\n"
+"   necessary arguments.  If the argument restart is not a restart or a\n"
+"   currently active non-nil restart name, then a control-error is signalled."
+msgstr ""
+"Allscay ethay unctionfay associatedway ithway ethay ivengay estartray, "
+"omptingpray orfay anyway\n"
+"   ecessarynay argumentsway.  Ifway ethay argumentway estartray isway otnay "
+"away estartray orway away\n"
+"   urrentlycay activeway onnay-ilnay estartray amenay, enthay away ontrolcay-"
+"errorway isway ignalledsay."
+
+#: target:code/error.lisp
+msgid ""
+"(RESTART-CASE form\n"
+"   {(case-name arg-list {keyword value}* body)}*)\n"
+"   The form is evaluated in a dynamic context where the clauses have "
+"special\n"
+"   meanings as points to which control may be transferred (see INVOKE-"
+"RESTART).\n"
+"   When clauses contain the same case-name, FIND-RESTART will find the "
+"first\n"
+"   such clause.  If Expression is a call to SIGNAL, ERROR, CERROR or WARN "
+"(or\n"
+"   macroexpands into such) then the signalled condition will be associated "
+"with\n"
+"   the new restarts."
+msgstr ""
+"(RESTART-CASE ormfay\n"
+"   {(asecay-amenay argway-istlay {eywordkay aluevay}* odybay)}*)\n"
+"   Ethay ormfay isway evaluatedway inway away ynamicday ontextcay erewhay "
+"ethay ausesclay avehay ecialspay\n"
+"   eaningsmay asway ointspay otay ichwhay ontrolcay aymay ebay ansferredtray "
+"(eesay INVOKE-RESTART).\n"
+"   Enwhay ausesclay ontaincay ethay amesay asecay-amenay, FIND-RESTART "
+"illway indfay ethay irstfay\n"
+"   uchsay auseclay.  Ifway Expressionway isway away allcay otay SIGNAL, "
+"ERROR, CERROR orway WARN (orway\n"
+"   acroexpandsmay intoway uchsay) enthay ethay ignalledsay onditioncay "
+"illway ebay associatedway ithway\n"
+"   ethay ewnay estartsray."
+
+#: target:code/error.lisp
+msgid ""
+"(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
+"   body)\n"
+"   If restart-name is not invoked, then all values returned by forms are\n"
+"   returned.  If control is transferred to this restart, it immediately\n"
+"   returns the values nil and t."
+msgstr ""
+"(WITH-SIMPLE-RESTART (estartray-amenay ormatfay-ingstray ormatfay-"
+"argumentsway)\n"
+"   odybay)\n"
+"   Ifway estartray-amenay isway otnay invokedway, enthay allway aluesvay "
+"eturnedray ybay ormsfay areway\n"
+"   eturnedray.  Ifway ontrolcay isway ansferredtray otay isthay estartray, "
+"itway immediatelyway\n"
+"   eturnsray ethay aluesvay ilnay andway t."
+
+#: target:code/error.lisp
+msgid "Condition ~S was signalled."
+msgstr "Onditioncay ~S asway ignalledsay."
+
+#: target:code/error.lisp
+msgid "No REPORT?  Shouldn't happen!"
+msgstr "Onay REPORT?  Ouldnshay't appenhay!"
+
+#: target:code/error.lisp
+msgid "Condition slot is not bound: ~S"
+msgstr "Onditioncay otslay isway otnay oundbay: ~S"
+
+#: target:code/error.lisp
+msgid "Slot ~S of ~S missing."
+msgstr "Otslay ~S ofway ~S issingmay."
+
+#: target:code/error.lisp
+msgid "Make an instance of a condition object using the specified initargs."
+msgstr ""
+"Akemay anway instanceway ofway away onditioncay objectway usingway ethay "
+"ecifiedspay initargsway."
+
+#: target:code/error.lisp
+msgid "~S is not a condition class."
+msgstr "~S isway otnay away onditioncay assclay."
+
+#: target:code/error.lisp
+msgid "Bad thing for class arg:~%  ~S"
+msgstr "Adbay ingthay orfay assclay argway:~%  ~S"
+
+#: target:code/error.lisp
+msgid "Condition already names a declaration: ~S."
+msgstr "Onditioncay alreadyway amesnay away eclarationday: ~S."
+
+#: target:code/error.lisp
+msgid ""
+"DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
+"   Define NAME as a condition type.  This new type inherits slots and its\n"
+"   report function from the specified PARENT-TYPEs.  A slot spec is either\n"
+"   a symbol denoting the name of the slot, or a list of the form:\n"
+"\n"
+"     (slot-name {slot-option value}*)\n"
+"\n"
+"   where slot-option is one of :READER, :WRITER, :ACCESSOR, :ALLOCATION,\n"
+"   :INITARG, :INITFORM, :DOCUMENTATION, and :TYPE.\n"
+"\n"
+"   Each overall option is of the form\n"
+"\n"
+"     (option-name {value}*)\n"
+"\n"
+"   where option-name is one of :DEFAULT-INITARGS, :DOCUMENTATION,\n"
+"   and :REPORT.\n"
+"\n"
+"   The :REPORT option is peculiar to DEFINE-CONDITION.  Its argument is "
+"either\n"
+"   a string or a two-argument lambda or function name.  If a function, the\n"
+"   function is called with the condition and stream to report the "
+"condition.\n"
+"   If a string, the string is printed.\n"
+"\n"
+"   Condition types are classes, but (as allowed by ANSI and not as described "
+"in\n"
+"   CLtL2) are neither STANDARD-OBJECTs nor STRUCTURE-OBJECTs.  WITH-SLOTS "
+"and\n"
+"   SLOT-VALUE may not be used on condition objects."
+msgstr ""
+"DEFINE-CONDITION Amenay (Arentpay-Ype*Tay) (Otslay-Ec*Spay) Option*Way\n"
+"   Efineday NAME asway away onditioncay ypetay.  Isthay ewnay ypetay "
+"inheritsway otsslay andway itsway\n"
+"   eportray unctionfay omfray ethay ecifiedspay PARENT-Ypestay.  Away otslay "
+"ecspay isway eitherway\n"
+"   away ymbolsay enotingday ethay amenay ofway ethay otslay, orway away "
+"istlay ofway ethay ormfay:\n"
+"\n"
+"     (otslay-amenay {otslay-optionway aluevay}*)\n"
+"\n"
+"   erewhay otslay-optionway isway oneway ofway :READER, :WRITER, :ACCESSOR, :"
+"ALLOCATION,\n"
+"   :INITARG, :INITFORM, :DOCUMENTATION, andway :TYPE.\n"
+"\n"
+"   Eachway overallway optionway isway ofway ethay ormfay\n"
+"\n"
+"     (optionway-amenay {aluevay}*)\n"
+"\n"
+"   erewhay optionway-amenay isway oneway ofway :DEFAULT-INITARGS, :"
+"DOCUMENTATION,\n"
+"   andway :REPORT.\n"
+"\n"
+"   Ethay :REPORT optionway isway eculiarpay otay DEFINE-CONDITION.  Itsway "
+"argumentway isway eitherway\n"
+"   away ingstray orway away wotay-argumentway ambdalay orway unctionfay "
+"amenay.  Ifway away unctionfay, ethay\n"
+"   unctionfay isway alledcay ithway ethay onditioncay andway eamstray otay "
+"eportray ethay onditioncay.\n"
+"   Ifway away ingstray, ethay ingstray isway intedpray.\n"
+"\n"
+"   Onditioncay ypestay areway assesclay, utbay (asway allowedway ybay ANSI "
+"andway otnay asway escribedday inway\n"
+"   Tlclay2) areway eithernay STANDARD-Objectsway ornay STRUCTURE-"
+"Objectsway.  WITH-SLOTS andway\n"
+"   SLOT-VALUE aymay otnay ebay usedway onway onditioncay objectsway."
+
+#: target:code/error.lisp
+msgid "Keyword slot name indicates probable syntax error:~%  ~S"
+msgstr ""
+"Eywordkay otslay amenay indicatesway obablepray yntaxsay errorway:~%  ~S"
+
+#: target:code/error.lisp
+msgid "Malformed condition slot spec:~%  ~S."
+msgstr "Alformedmay onditioncay otslay ecspay:~%  ~S."
+
+#: target:code/error.lisp
+msgid "More than one :INITFORM in:~%  ~S"
+msgstr "Oremay anthay oneway :INITFORM inway:~%  ~S"
+
+#: target:code/error.lisp
+msgid "More than one slot :DOCUMENTATION in~%  ~s"
+msgstr "Oremay anthay oneway otslay :DOCUMENTATION inway~%  ~s"
+
+#: target:code/error.lisp
+msgid "Slot :DOCUMENTATION is not a string in~%  ~s"
+msgstr "Otslay :DOCUMENTATION isway otnay away ingstray inway~%  ~s"
+
+#: target:code/error.lisp
+msgid "Unknown slot option:~%  ~S"
+msgstr "Unknownway otslay optionway:~%  ~S"
+
+#: target:code/error.lisp
+msgid "Bad option:~%  ~S"
+msgstr "Adbay optionway:~%  ~S"
+
+#: target:compiler/new-assem.lisp target:code/error.lisp
+msgid "Unknown option: ~S"
+msgstr "Unknownway optionway: ~S"
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-BIND ( {(type handler)}* )  body)\n"
+"   Executes body in a dynamic context where the given handler bindings are\n"
+"   in effect.  Each handler must take the condition being signalled as an\n"
+"   argument.  The bindings are searched first to last in the event of a\n"
+"   signalled condition."
+msgstr ""
+"(HANDLER-BIND ( {(ypetay andlerhay)}* )  odybay)\n"
+"   Executesway odybay inway away ynamicday ontextcay erewhay ethay ivengay "
+"andlerhay indingsbay areway\n"
+"   inway effectway.  Eachway andlerhay ustmay aketay ethay onditioncay "
+"eingbay ignalledsay asway anway\n"
+"   argumentway.  Ethay indingsbay areway earchedsay irstfay otay astlay "
+"inway ethay eventway ofway away\n"
+"   ignalledsay onditioncay."
+
+#: target:code/error.lisp
+msgid "Ill-formed handler bindings."
+msgstr "Illway-ormedfay andlerhay indingsbay."
+
+#: target:code/error.lisp
+msgid "~&~@<Error in function ~S:  ~3i~:_~?~:>"
+msgstr "~&~@<Errorway inway unctionfay ~S:  ~3i~:_~?~:>"
+
+#: target:code/error.lisp
+msgid "Control stack overflow"
+msgstr "Ontrolcay tacksay overflowway"
+
+#: target:code/error.lisp
+msgid "Heap (dynamic space) overflow"
+msgstr "Eaphay (ynamicday acespay) overflowway"
+
+#: target:code/error.lisp
+msgid "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
+msgstr "~@<Ypetay-errorway inway ~S:  ~3i~:_~S isway otnay ofway ypetay ~S~:>"
+
+#: target:code/error.lisp
+msgid ""
+"Layout-invalid error in ~S:~@\n"
+"\t\t     Type test of class ~S was passed obsolete instance:~%  ~S"
+msgstr ""
+"Ayoutlay-invalidway errorway inway ~S:~@\n"
+"\t\t     Ypetay esttay ofway assclay ~S asway assedpay obsoleteway "
+"instanceway:~%  ~S"
+
+#: target:code/error.lisp
+msgid "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
+msgstr ""
+"~@<~S ellfay roughthay ~S expressionway.  ~:_Antedway oneway ofway ~:S.~:>"
+
+#: target:code/error.lisp
+msgid "End-of-File on ~S"
+msgstr "Endway-ofway-Ilefay onway ~S"
+
+#: target:code/error.lisp
+msgid "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
+msgstr "~&~@<Ilefay-errorway inway unctionfay ~S:  ~3i~:_~?~:>"
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the variable ~S is unbound."
+msgstr "Errorway inway ~S:  ethay ariablevay ~S isway unboundway."
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the function ~S is undefined."
+msgstr "Errorway inway ~S:  ethay unctionfay ~S isway undefinedway."
+
+#: target:code/error.lisp
+msgid ""
+"~@<Destructive function ~S called on ~\n"
+"                         constant data.~@:>"
+msgstr ""
+"~@<Estructiveday unctionfay ~S alledcay onway ~\n"
+"                         onstantcay ataday.~@:>"
+
+#: target:code/error.lisp
+msgid "Arithmetic error ~S signalled."
+msgstr "Arithmeticway errorway ~S ignalledsay."
+
+#: target:code/error.lisp
+msgid "~%Operation was ~S, operands ~S."
+msgstr "~%Operationway asway ~S, operandsway ~S."
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-CASE form\n"
+"   { (type ([var]) body) }* )\n"
+"   Executes form in a context with handlers established for the condition\n"
+"   types.  A peculiar property allows type to be :no-error.  If such a "
+"clause\n"
+"   occurs, and form returns normally, all its values are passed to this "
+"clause\n"
+"   as if by MULTIPLE-VALUE-CALL.  The :no-error clause accepts more than "
+"one\n"
+"   var specification."
+msgstr ""
+"(HANDLER-CASE ormfay\n"
+"   { (ypetay ([arvay]) odybay) }* )\n"
+"   Executesway ormfay inway away ontextcay ithway andlershay establishedway "
+"orfay ethay onditioncay\n"
+"   ypestay.  Away eculiarpay opertypray allowsway ypetay otay ebay :onay-"
+"errorway.  Ifway uchsay away auseclay\n"
+"   occursway, andway ormfay eturnsray ormallynay, allway itsway aluesvay "
+"areway assedpay otay isthay auseclay\n"
+"   asway ifway ybay MULTIPLE-VALUE-CALL.  Ethay :onay-errorway auseclay "
+"acceptsway oremay anthay oneway\n"
+"   arvay ecificationspay."
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms after establishing a handler for all error conditions that\n"
+"   returns from this form nil and the condition signalled."
+msgstr ""
+"Executesway ormsfay afterway establishingway away andlerhay orfay allway "
+"errorway onditionscay atthay\n"
+"   eturnsray omfray isthay ormfay ilnay andway ethay onditioncay ignalledsay."
+
+#: target:code/error.lisp
+msgid "Found an \"abort\" restart that failed to transfer control dynamically."
+msgstr ""
+"Oundfay anway \"abortway\" estartray atthay ailedfay otay ansfertray "
+"ontrolcay ynamicallyday."
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named abort, signalling a control-error if\n"
+"   none exists."
+msgstr ""
+"Ansferstray ontrolcay otay away estartray amednay abortway, ignallingsay "
+"away ontrolcay-errorway ifway\n"
+"   onenay existsway."
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named muffle-warning, signalling a\n"
+"   control-error if none exists."
+msgstr ""
+"Ansferstray ontrolcay otay away estartray amednay ufflemay-arningway, "
+"ignallingsay away\n"
+"   ontrolcay-errorway ifway onenay existsway."
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control to a restart named continue, returning nil if none exists."
+msgstr ""
+"Ansfertray ontrolcay otay away estartray amednay ontinuecay, eturningray "
+"ilnay ifway onenay existsway."
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named store-value, returning nil if\n"
+"   none exists."
+msgstr ""
+"Ansfertray ontrolcay andway aluevay otay away estartray amednay toresay-"
+"aluevay, eturningray ilnay ifway\n"
+"   onenay existsway."
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named use-value, returning nil if\n"
+"   none exists."
+msgstr ""
+"Ansfertray ontrolcay andway aluevay otay away estartray amednay useway-"
+"aluevay, eturningray ilnay ifway\n"
+"   onenay existsway."
+
+#: target:code/typedefs.lisp
+msgid "Forms that must happen before top level forms are run."
+msgstr ""
+"Ormsfay atthay ustmay appenhay eforebay optay evellay ormsfay areway unray."
+
+#: target:code/typedefs.lisp
+msgid "Can't cold-load-init other forms along with an eval-when."
+msgstr ""
+"Ancay't oldcay-oadlay-initway otherway ormsfay alongway ithway anway evalway-"
+"enwhay."
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class."
+msgstr "~S isway otnay away efinedday ypetay assclay."
+
+#: target:code/typedefs.lisp
+msgid "Missing type method for ~S"
+msgstr "Issingmay ypetay ethodmay orfay ~S"
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class method."
+msgstr "~S isway otnay away efinedday ypetay assclay ethodmay."
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
+msgstr ""
+"DEFINE-TYPE-METHOD (Assclay-Amenay Ethodmay-Amenay+) Ambdalay-Istlay Orm*Fay"
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-CLASS Name [Inherits]"
+msgstr "DEFINE-TYPE-CLASS Amenay [Inheritsway]"
+
+#: target:code/class.lisp
+msgid "Layout for ~S~@[, Invalid=~S~]"
+msgstr "Ayoutlay orfay ~S~@[, Invalidway=~S~]"
+
+#: target:code/class.lisp
+msgid "The inclusive upper bound on LAYOUT-HASH values."
+msgstr "Ethay inclusiveway upperway oundbay onway LAYOUT-HASH aluesvay."
+
+#: target:code/class.lisp
+msgid ""
+"Layout depth conflict: ~S~%  ~\n"
+"\t\t        (~S collides at ~S with ~S)~%"
+msgstr ""
+"Ayoutlay epthday onflictcay: ~S~%  ~\n"
+"\t\t        (~S ollidescay atway ~S ithway ~S)~%"
+
+#: target:code/class.lisp
+msgid "Can't use anonymous or undefined class as constant:~%  ~S"
+msgstr ""
+"Ancay't useway anonymousway orway undefinedway assclay asway onstantcay:~%  "
+"~S"
+
+#: target:code/class.lisp
+msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
+msgstr "~:[<anonymousway>~;~:*~S~]~@[ (~(~Away~))~]"
+
+#: target:code/class.lisp
+msgid ""
+"Return the class with the specified Name.  If ERRORP is false, then NIL is\n"
+"   returned when no such class exists."
+msgstr ""
+"Eturnray ethay assclay ithway ethay ecifiedspay Amenay.  Ifway ERRORP isway "
+"alsefay, enthay NIL isway\n"
+"   eturnedray enwhay onay uchsay assclay existsway."
+
+#: target:code/class.lisp
+msgid "Class not yet defined:~%  ~S"
+msgstr "Assclay otnay etyay efinedday:~%  ~S"
+
+#: target:code/class.lisp
+msgid "Illegal to redefine standard type ~S."
+msgstr "Illegalway otay edefineray tandardsay ypetay ~S."
+
+#: target:code/class.lisp
+msgid "Changing meta-class of ~S from ~S to ~S."
+msgstr "Angingchay etamay-assclay ofway ~S omfray ~S otay ~S."
+
+#: target:code/class.lisp
+msgid "Redefining DEFTYPE type to be a class: ~S."
+msgstr "Edefiningray DEFTYPE ypetay otay ebay away assclay: ~S."
+
+#: target:code/class.lisp
+msgid ""
+"Return the class of the supplied object, which may be any Lisp object, not\n"
+"   just a CLOS STANDARD-OBJECT."
+msgstr ""
+"Eturnray ethay assclay ofway ethay uppliedsay objectway, ichwhay aymay ebay "
+"anyway Isplay objectway, otnay\n"
+"   ustjay away CLOS STANDARD-OBJECT."
+
+#: target:code/class.lisp
+msgid "Modifing ~(~A~) class ~S; making it writable."
+msgstr "Odifingmay ~(~Away~) assclay ~S; akingmay itway itablewray."
+
+#: target:code/class.lisp
+msgid "Subclassing sealed class ~S; unsealing it."
+msgstr "Ubclassingsay ealedsay assclay ~S; unsealingway itway."
+
+#: target:code/class.lisp
+msgid ""
+"Change in superclasses of class ~S:~%  ~\n"
+"\t\t  ~A superclasses: ~S~%  ~\n"
+"\t\t  ~A superclasses: ~S"
+msgstr ""
+"Angechay inway uperclassessay ofway assclay ~S:~%  ~\n"
+"\t\t  ~Away uperclassessay: ~S~%  ~\n"
+"\t\t  ~Away uperclassessay: ~S"
+
+#: target:code/class.lisp
+msgid ""
+"In class ~S:~%  ~\n"
+"\t\t    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
+"\t\t    ~A definition."
+msgstr ""
+"Inway assclay ~S:~%  ~\n"
+"\t\t    ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway ithway~"
+"%  ~\n"
+"\t\t    ~Away efinitionday."
+
+#: target:code/class.lisp
+msgid ""
+"Change in instance length of class ~S:~%  ~\n"
+"\t\t   ~A length: ~D~%  ~\n"
+"\t\t   ~A length: ~D"
+msgstr ""
+"Angechay inway instanceway engthlay ofway assclay ~S:~%  ~\n"
+"\t\t   ~Away engthlay: ~D~%  ~\n"
+"\t\t   ~Away engthlay: ~D"
+
+#: target:code/class.lisp
+msgid ""
+"Change in the inheritance structure of class ~S~%  ~\n"
+"\t\t between the ~A definition and the ~A definition."
+msgstr ""
+"Angechay inway ethay inheritanceway ucturestray ofway assclay ~S~%  ~\n"
+"\t\t etweenbay ethay ~Away efinitionday andway ethay ~Away efinitionday."
+
+#: target:code/class.lisp
+msgid ""
+"Loading a reference to class ~S when the compile~\n"
+"\t\t       ~%  time definition was incompatible with the current ~\n"
+"\t\t       one."
+msgstr ""
+"Oadinglay away eferenceray otay assclay ~S enwhay ethay ompilecay~\n"
+"\t\t       ~%  imetay efinitionday asway incompatibleway ithway ethay "
+"urrentcay ~\n"
+"\t\t       oneway."
+
+#: target:code/class.lisp
+msgid "Invalidate current definition."
+msgstr "Invalidateway urrentcay efinitionday."
+
+#: target:code/class.lisp
+msgid "New definition of ~S must be loaded eventually."
+msgstr "Ewnay efinitionday ofway ~S ustmay ebay oadedlay eventuallyway."
+
+#: target:code/class.lisp
+msgid "Smash current layout, preserving old code."
+msgstr "Mashsay urrentcay ayoutlay, eservingpray oldway odecay."
+
+#: target:code/class.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"\t\t      I hope you know what you're doing..."
+msgstr ""
+"Anyway oldway ~S instancesway illway ebay inway away adbay ayway.~@\n"
+"\t\t      Iway opehay ouyay nowkay atwhay ouyay'eray oingday..."
+
+#: target:code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr "Ignoreway ethay incompatibilityway, eavelay assclay aloneway."
+
+#: target:code/class.lisp
+msgid ""
+"Assuming the current definition of ~S is correct, and~@\n"
+"\t\t      that the loaded code doesn't care about the ~\n"
+"\t\t      incompatibility."
+msgstr ""
+"Assumingway ethay urrentcay efinitionday ofway ~S isway orrectcay, andway~@\n"
+"\t\t      atthay ethay oadedlay odecay oesnday't arecay aboutway ethay ~\n"
+"\t\t      incompatibilityway."
+
+#: target:code/class.lisp
+msgid "Topological sort failed due to constraint on ~S."
+msgstr "Opologicaltay ortsay ailedfay ueday otay onstraintcay onway ~S."
+
+#: target:code/class.lisp
+msgid "Something strange with forward layout for ~S:~%  ~S"
+msgstr "Omethingsay angestray ithway orwardfay ayoutlay orfay ~S:~%  ~S"
+
+#: target:code/type.lisp
+msgid ""
+"*Use-Implementation-Types* is a semi-public flag which determines how\n"
+"   restrictive we are in determining type membership.  If two types are the\n"
+"   same in the implementation, then we will consider them them the same "
+"when\n"
+"   this switch is on.  When it is off, we try to be as restrictive as the\n"
+"   language allows, allowing us to detect more errors.  Currently, this "
+"only\n"
+"   affects array types."
+msgstr ""
+"*Use-Implementation-Types* isway away emisay-ublicpay agflay ichwhay "
+"eterminesday owhay\n"
+"   estrictiveray eway areway inway eterminingday ypetay embershipmay.  Ifway "
+"wotay ypestay areway ethay\n"
+"   amesay inway ethay implementationway, enthay eway illway onsidercay "
+"emthay emthay ethay amesay enwhay\n"
+"   isthay witchsay isway onway.  Enwhay itway isway offway, eway ytray otay "
+"ebay asway estrictiveray asway ethay\n"
+"   anguagelay allowsway, allowingway usway otay etectday oremay errorsway.  "
+"Urrentlycay, isthay onlyway\n"
+"   affectsway arrayway ypestay."
+
+#: target:code/type.lisp
+msgid "Subtypep is illegal on this type:~%  ~S"
+msgstr "Ubtypepsay isway illegalway onway isthay ypetay:~%  ~S"
+
+#: target:code/type.lisp
+msgid "&Aux in a FUNCTION or VALUES type: ~S."
+msgstr "&Auxway inway away FUNCTION orway VALUES ypetay: ~S."
+
+#: target:code/type.lisp
+msgid "Keyword type description is not a two-list: ~S."
+msgstr "Eywordkay ypetay escriptionday isway otnay away wotay-istlay: ~S."
+
+#: target:code/type.lisp
+msgid "Repeated keyword ~S in lambda list: ~S."
+msgstr "Epeatedray eywordkay ~S inway ambdalay istlay: ~S."
+
+#: target:code/type.lisp
+msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+msgstr "&KEY orway &ALLOW-OTHER-KEYS inway aluesvay ypetay: ~s"
+
+#: target:code/type.lisp
+msgid ""
+"The maximum length of a union of integer types before we take a\n"
+"  short cut and return a simpler union."
+msgstr ""
+"Ethay aximummay engthlay ofway away unionway ofway integerway ypestay "
+"eforebay eway aketay away\n"
+"  ortshay utcay andway eturnray away implersay unionway."
+
+#: target:code/type.lisp
+msgid "Bad thing to be a type specifier: ~S."
+msgstr "Adbay ingthay otay ebay away ypetay ecifierspay: ~S."
+
+#: target:code/type.lisp
+msgid "VALUES type illegal in this context:~%  ~S"
+msgstr "VALUES ypetay illegalway inway isthay ontextcay:~%  ~S"
+
+#: target:code/type.lisp
+msgid "The SATISFIES predicate name is not a symbol: ~S"
+msgstr "Ethay SATISFIES edicatepray amenay isway otnay away ymbolsay: ~S"
+
+#: target:code/type.lisp
+msgid "Weird CONS type ~S"
+msgstr "Eirdway CONS ypetay ~S"
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not numeric: ~S"
+msgstr "Ethay omponentcay ypetay orfay COMPLEX isway otnay umericnay: ~S"
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not real: ~S"
+msgstr "Ethay omponentcay ypetay orfay COMPLEX isway otnay ealray: ~S"
+
+#: target:code/type.lisp
+msgid ""
+"The component type for COMPLEX (EQL X) ~\n"
+"                                    is complex: ~S"
+msgstr ""
+"Ethay omponentcay ypetay orfay COMPLEX (EQL X) ~\n"
+"                                    isway omplexcay: ~S"
+
+#: target:code/type.lisp
+msgid ""
+"~@<(known bug #145): The type ~S is too hairy to be \n"
+"                         used for a COMPLEX component.~:@>"
+msgstr ""
+"~@<(nownkay ugbay #145): Ethay ypetay ~S isway ootay airyhay otay ebay \n"
+"                         usedway orfay away COMPLEX omponentcay.~:@>"
+
+#: target:code/type.lisp
+msgid "Bound is not *, a ~A or a list of a ~A: ~S"
+msgstr ""
+"Oundbay isway otnay *, away ~Away orway away istlay ofway away ~Away: ~S"
+
+#: target:code/type.lisp
+msgid "Bad N specified for MOD type specifier: ~S."
+msgstr "Adbay N ecifiedspay orfay MOD ypetay ecifierspay: ~S."
+
+#: target:code/type.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr "Adbay izesay ecifiedspay orfay SIGNED-BYTE ypetay ecifierspay: ~S."
+
+#: target:code/type.lisp
+msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+msgstr "Adbay izesay ecifiedspay orfay UNSIGNED-BYTE ypetay ecifierspay: ~S."
+
+#: target:code/type.lisp
+msgid "Bad float format: ~S."
+msgstr "Adbay oatflay ormatfay: ~S."
+
+#: target:code/type.lisp
+msgid "Arrays can't have a negative number of dimensions: ~D."
+msgstr ""
+"Arraysway ancay't avehay away egativenay umbernay ofway imensionsday: ~D."
+
+#: target:code/type.lisp
+msgid "Array type has too many dimensions: ~S."
+msgstr "Arrayway ypetay ashay ootay anymay imensionsday: ~S."
+
+#: target:code/type.lisp
+msgid "Bad dimension in array type: ~S."
+msgstr "Adbay imensionday inway arrayway ypetay: ~S."
+
+#: target:code/type.lisp
+msgid "Array dimensions is not a list, integer or *:~%  ~S"
+msgstr ""
+"Arrayway imensionsday isway otnay away istlay, integerway orway *:~%  ~S"
+
+#: target:code/type.lisp
+msgid "Type of characters that aren't base-char's.  None in CMU CL."
+msgstr ""
+"Ypetay ofway aracterschay atthay arenway't asebay-archay's.  Onenay inway "
+"CMU CL."
+
+#: target:code/type.lisp
+msgid "Type corresponding to the charaters required by the standard."
+msgstr ""
+"Ypetay orrespondingcay otay ethay araterschay equiredray ybay ethay "
+"tandardsay."
+
+#: target:code/type.lisp
+msgid "Type for any keyword symbol."
+msgstr "Ypetay orfay anyway eywordkay ymbolsay."
+
+#: target:compiler/generic/vm-type.lisp
+msgid "~S isn't an integer type?"
+msgstr "~S isnway't anway integerway ypetay?"
+
+#: target:code/pred.lisp
+msgid "Return the type of OBJECT."
+msgstr "Eturnray ethay ypetay ofway OBJECT."
+
+#: target:code/pred.lisp
+msgid ""
+"Return the element type that will actually be used to implement an array\n"
+"   with the specifier :ELEMENT-TYPE Spec."
+msgstr ""
+"Eturnray ethay elementway ypetay atthay illway actuallyway ebay usedway otay "
+"implementway anway arrayway\n"
+"   ithway ethay ecifierspay :ELEMENT-TYPE Ecspay."
+
+#: target:code/pred.lisp
+msgid ""
+"Return two values indicating the relationship between type1 and type2:\n"
+"  T and T: type1 definitely is a subtype of type2.\n"
+"  NIL and T: type1 definitely is not a subtype of type2.\n"
+"  NIL and NIL: who knows?"
+msgstr ""
+"Eturnray wotay aluesvay indicatingway ethay elationshipray etweenbay ypetay1 "
+"andway ypetay2:\n"
+"  T andway T: ypetay1 efinitelyday isway away ubtypesay ofway ypetay2.\n"
+"  NIL andway T: ypetay1 efinitelyday isway otnay away ubtypesay ofway "
+"ypetay2.\n"
+"  NIL andway NIL: owhay nowskay?"
+
+#: target:code/pred.lisp
+msgid "Return T iff OBJECT is of type TYPE."
+msgstr "Eturnray T iffway OBJECT isway ofway ypetay TYPE."
+
+#: target:code/pred.lisp
+msgid "~@<unknown element type in array type: ~2I~_~S~:>"
+msgstr "~@<unknownway elementway ypetay inway arrayway ypetay: ~2Iway~_~S~:>"
+
+#: target:code/pred.lisp
+msgid "Unknown type specifier: ~S"
+msgstr "Unknownway ypetay ecifierspay: ~S"
+
+#: target:code/pred.lisp
+msgid "Invalid type specifier: ~S"
+msgstr "Invalidway ypetay ecifierspay: ~S"
+
+#: target:code/pred.lisp
+msgid "Function types are not a legal argument to TYPEP:~%  ~S"
+msgstr ""
+"Unctionfay ypestay areway otnay away egallay argumentway otay TYPEP:~%  ~S"
+
+#: target:code/pred.lisp
+msgid "Class has not yet been defined: ~S"
+msgstr "Assclay ashay otnay etyay eenbay efinedday: ~S"
+
+#: target:code/pred.lisp
+msgid "TYPEP on obsolete object (was class ~S)."
+msgstr "TYPEP onway obsoleteway objectway (asway assclay ~S)."
+
+#: target:code/pred.lisp
+msgid "Class is currently invalid: ~S"
+msgstr "Assclay isway urrentlycay invalidway: ~S"
+
+#: target:code/pred.lisp
+msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
+msgstr ""
+"Eturnray T ifway OBJ1 andway OBJ2 areway ethay amesay objectway, "
+"otherwiseway NIL."
+
+#: target:code/pred.lisp
+msgid ""
+"Returns T if X and Y are EQL or if they are structured components\n"
+"  whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they\n"
+"  are the same length and have indentical components.  Other arrays must be\n"
+"  EQ to be EQUAL."
+msgstr ""
+"Eturnsray T ifway X andway Y areway EQL orway ifway eythay areway "
+"ucturedstray omponentscay\n"
+"  osewhay elementsway areway EQUAL.  Ingsstray andway itbay-ectorsvay areway "
+"EQUAL ifway eythay\n"
+"  areway ethay amesay engthlay andway avehay indenticalway omponentscay.  "
+"Otherway arraysway ustmay ebay\n"
+"  EQ otay ebay EQUAL."
+
+#: target:code/pred.lisp
+msgid ""
+"Just like EQUAL, but more liberal in several respects.\n"
+"  Numbers may be of different types, as long as the values are identical\n"
+"  after coercion.  Characters may differ in alphabetic case.  Vectors and\n"
+"  arrays must have identical dimensions and EQUALP elements, but may differ\n"
+"  in their type restriction."
+msgstr ""
+"Ustjay ikelay EQUAL, utbay oremay iberallay inway everalsay espectsray.\n"
+"  Umbersnay aymay ebay ofway ifferentday ypestay, asway onglay asway ethay "
+"aluesvay areway identicalway\n"
+"  afterway oercioncay.  Aracterschay aymay ifferday inway alphabeticway "
+"asecay.  Ectorsvay andway\n"
+"  arraysway ustmay avehay identicalway imensionsday andway EQUALP "
+"elementsway, utbay aymay ifferday\n"
+"  inway eirthay ypetay estrictionray."
+
+#: target:code/alieneval.lisp
+msgid "No alien type class ~S"
+msgstr "Onay alienway ypetay assclay ~S"
+
+#: target:code/alieneval.lisp
+msgid "No method ~S"
+msgstr "Onay ethodmay ~S"
+
+#: target:code/alieneval.lisp
+msgid "Method ~S not defined for ~S"
+msgstr "Ethodmay ~S otnay efinedday orfay ~S"
+
+#: target:code/alieneval.lisp
+msgid ""
+"Parse the list structure TYPE as an alien type specifier and return\n"
+"   the resultant alien-type structure."
+msgstr ""
+"Arsepay ethay istlay ucturestray TYPE asway anway alienway ypetay "
+"ecifierspay andway eturnray\n"
+"   ethay esultantray alienway-ypetay ucturestray."
+
+#: target:code/alieneval.lisp
+msgid "Unknown alien type: ~S"
+msgstr "Unknownway alienway ypetay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "No translator for primitive alien type ~S?"
+msgstr "Onay anslatortray orfay imitivepray alienway ypetay ~S?"
+
+#: target:code/alieneval.lisp
+msgid "Definition missing for alien type ~S?"
+msgstr "Efinitionday issingmay orfay alienway ypetay ~S?"
+
+#: target:code/alieneval.lisp
+msgid "Attempt to multiple define ~A ~S."
+msgstr "Attemptway otay ultiplemay efineday ~Away ~S."
+
+#: target:code/alieneval.lisp
+msgid "Attempt to shadow definition of ~A ~S."
+msgstr "Attemptway otay adowshay efinitionday ofway ~Away ~S."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the alien-type structure TYPE back into a list specification of\n"
+"   the type."
+msgstr ""
+"Onvertcay ethay alienway-ypetay ucturestray TYPE ackbay intoway away istlay "
+"ecificationspay ofway\n"
+"   ethay ypetay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for\n"
+"   STRUCT and UNION types, in which case the name is taken from the type\n"
+"   specifier."
+msgstr ""
+"Efineday ethay alienway ypetay NAME otay ebay equivalentway otay TYPE.  "
+"Amenay aymay ebay NIL orfay\n"
+"   STRUCT andway UNION ypestay, inway ichwhay asecay ethay amenay isway "
+"akentay omfray ethay ypetay\n"
+"   ecifierspay."
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
+msgstr "Edefiningray ~Away ~S otay ebay:~%  ~S,~%asway:~%  ~S"
+
+#: target:code/alieneval.lisp
+msgid "~S is a built-in alien type."
+msgstr "~S isway away uiltbay-inway alienway ypetay."
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~S to be:~%  ~S,~%was~%  ~S"
+msgstr "Edefiningray ~S otay ebay:~%  ~S,~%asway~%  ~S"
+
+#: target:code/alieneval.lisp
+msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
+msgstr ""
+"Eturnray T iffway TYPE1 andway TYPE2 escribeday equivalentway alienway "
+"ypestay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the\n"
+"   only supported subtype relationships are that any pointer type is a\n"
+"   subtype of (* t), and any array type's first dimension will match \n"
+"   (array <eltype> nil ...).  Otherwise, the two types have to be\n"
+"   ALIEN-TYPE-=."
+msgstr ""
+"Eturnray T iffway ethay alienway ypetay TYPE1 isway away ubtypesay ofway "
+"TYPE2.  Urrentlycay, ethay\n"
+"   onlyway upportedsay ubtypesay elationshipsray areway atthay anyway "
+"ointerpay ypetay isway away\n"
+"   ubtypesay ofway (* t), andway anyway arrayway ypetay's irstfay "
+"imensionday illway atchmay \n"
+"   (arrayway <eltypeway> ilnay ...).  Otherwiseway, ethay wotay ypestay "
+"avehay otay ebay\n"
+"   ALIEN-TYPE-=."
+
+#: target:code/alieneval.lisp
+msgid "Return T iff OBJECT is an alien of type TYPE."
+msgstr "Eturnray T iffway OBJECT isway anway alienway ofway ypetay TYPE."
+
+#: target:code/alieneval.lisp
+msgid "Cannot represent ~S typed aliens."
+msgstr "Annotcay epresentray ~S ypedtay aliensway."
+
+#: target:code/alieneval.lisp
+msgid "Cannot pass aliens of type ~S as arguments to call-out"
+msgstr ""
+"Annotcay asspay aliensway ofway ypetay ~S asway argumentsway otay allcay-"
+"outway"
+
+#: target:code/alieneval.lisp
+msgid "Cannot return aliens of type ~S from call-out"
+msgstr "Annotcay eturnray aliensway ofway ypetay ~S omfray allcay-outway"
+
+#: target:code/alieneval.lisp
+msgid "Cannot extract ~D bit integers."
+msgstr "Annotcay extractway ~D itbay integersway."
+
+#: target:code/alieneval.lisp
+msgid "Redefining alien enum ~S"
+msgstr "Edefiningray alienway enumway ~S"
+
+#: target:code/alieneval.lisp
+msgid "Unknown enum type: ~S"
+msgstr "Unknownway enumway ypetay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "Empty enum type: ~S"
+msgstr "Emptyway enumway ypetay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "An enumeration must contain at least one element."
+msgstr "Anway enumerationway ustmay ontaincay atway eastlay oneway elementway."
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S is not a keyword."
+msgstr "Enumerationway elementway ~S isway otnay away eywordkay."
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S is not an integer."
+msgstr "Elementway aluevay ~S isway otnay anway integerway."
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S used more than once."
+msgstr "Elementway aluevay ~S usedway oremay anthay onceway."
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S used more than once."
+msgstr "Enumerationway elementway ~S usedway oremay anthay onceway."
+
+#: target:code/alieneval.lisp
+msgid "Can't represent enums needing more than 32 bits."
+msgstr "Ancay't epresentray enumsway eedingnay oremay anthay 32 itsbay."
+
+#: target:code/alieneval.lisp
+msgid "Cannot deposit aliens of type ~S (unknown size)."
+msgstr "Annotcay epositday aliensway ofway ypetay ~S (unknownway izesay)."
+
+#: target:code/alieneval.lisp
+msgid "First dimension is not a non-negative fixnum or NIL: ~S"
+msgstr ""
+"Irstfay imensionday isway otnay away onnay-egativenay ixnumfay orway NIL: ~S"
+
+#: target:code/alieneval.lisp
+msgid "Dimension is not a non-negative fixnum: ~S"
+msgstr "Imensionday isway otnay away onnay-egativenay ixnumfay: ~S"
+
+#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp
+#: target:pcl/simple-streams/internal.lisp
+#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp
+#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp
+#: target:pcl/seal.lisp target:pcl/dfun.lisp
+#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp
+#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp
+#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp
+#: target:code/format.lisp target:code/pprint-loop.lisp
+#: target:code/pprint.lisp target:code/bignum.lisp target:code/alieneval.lisp
+msgid "Required argument missing"
+msgstr "Equiredray argumentway issingmay"
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Unknown size: ~S"
+msgstr "Unknownway izesay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "Unknown alignment: ~S"
+msgstr "Unknownway alignmentway: ~S"
+
+#: target:code/alieneval.lisp
+msgid "A hash table used to detect cycles while comparing record types."
+msgstr ""
+"Away ashhay abletay usedway otay etectday yclescay ilewhay omparingcay "
+"ecordray ypestay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
+"If so return true; otherwise call ALTERNATIVE."
+msgstr ""
+"Esttay ifway TYPE1 andway TYPE2 areway inway ethay *MATCH-HISTORY*.\n"
+"Ifway osay eturnray uetray; otherwiseway allcay ALTERNATIVE."
+
+#: target:code/alieneval.lisp
+msgid "Cannot use values types here."
+msgstr "Annotcay useway aluesvay ypestay erehay."
+
+#: target:code/alieneval.lisp
+msgid "Badly formed alien name."
+msgstr "Adlybay ormedfay alienway amenay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define NAME as an external alien variable of type TYPE.  NAME should be\n"
+"   a list of a string holding the alien name and a symbol to use as the "
+"Lisp\n"
+"   name.  If NAME is just a symbol or string, then the other name is "
+"guessed\n"
+"   from the one supplied."
+msgstr ""
+"Efineday NAME asway anway externalway alienway ariablevay ofway ypetay "
+"TYPE.  NAME ouldshay ebay\n"
+"   away istlay ofway away ingstray oldinghay ethay alienway amenay andway "
+"away ymbolsay otay useway asway ethay Isplay\n"
+"   amenay.  Ifway NAME isway ustjay away ymbolsay orway ingstray, enthay "
+"ethay otherway amenay isway uessedgay\n"
+"   omfray ethay oneway uppliedsay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Access the alien variable named NAME, assuming it is of type TYPE.  This\n"
+"   is SETFable."
+msgstr ""
+"Accessway ethay alienway ariablevay amednay NAME, assumingway itway isway "
+"ofway ypetay TYPE.  Isthay\n"
+"   isway Etfablesay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Establish some local alien variables.  Each BINDING is of the form:\n"
+"     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
+"   ALLOCATION should be one of:\n"
+"     :LOCAL (the default)\n"
+"       The alien is allocated on the stack, and has dynamic extent.\n"
+"     :STATIC\n"
+"       The alien is allocated on the heap, and has infinate extent.  The "
+"alien\n"
+"       is allocated at load time, so the same piece of memory is used each "
+"time\n"
+"       this form executes.\n"
+"     :EXTERN\n"
+"       No alien is allocated, but VAR is established as a local name for\n"
+"       the external alien given by EXTERNAL-NAME."
+msgstr ""
+"Establishway omesay ocallay alienway ariablesvay.  Eachway BINDING isway "
+"ofway ethay ormfay:\n"
+"     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
+"   ALLOCATION ouldshay ebay oneway ofway:\n"
+"     :LOCAL (ethay efaultday)\n"
+"       Ethay alienway isway allocatedway onway ethay tacksay, andway ashay "
+"ynamicday extentway.\n"
+"     :STATIC\n"
+"       Ethay alienway isway allocatedway onway ethay eaphay, andway ashay "
+"infinateway extentway.  Ethay alienway\n"
+"       isway allocatedway atway oadlay imetay, osay ethay amesay iecepay "
+"ofway emorymay isway usedway eachway imetay\n"
+"       isthay ormfay executesway.\n"
+"     :EXTERN\n"
+"       Onay alienway isway allocatedway, utbay VAR isway establishedway "
+"asway away ocallay amenay orfay\n"
+"       ethay externalway alienway ivengay ybay EXTERNAL-NAME."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return true if X (which must be an Alien pointer) is null, false otherwise."
+msgstr ""
+"Eturnray uetray ifway X (ichwhay ustmay ebay anway Alienway ointerpay) isway "
+"ullnay, alsefay otherwiseway."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
+"   evaluated.)  Type must be pointer-like."
+msgstr ""
+"Onvertcay ethay Ystemsay-Areaway-Ointerpay SAP otay anway Alienway ofway "
+"ethay ecifiedspay Ypetay (otnay\n"
+"   evaluatedway.)  Ypetay ustmay ebay ointerpay-ikelay."
+
+#: target:code/alieneval.lisp
+msgid "Cannot make aliens of type ~S out of SAPs"
+msgstr "Annotcay akemay aliensway ofway ypetay ~S outway ofway Apssay"
+
+#: target:code/alieneval.lisp
+msgid "Return a System-Area-Pointer pointing to Alien's data."
+msgstr ""
+"Eturnray away Ystemsay-Areaway-Ointerpay ointingpay otay Alienway's ataday."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE\n"
+"   is supplied, how it is interpreted depends on TYPE.  If TYPE is an array\n"
+"   type, SIZE is used as the first dimension for the allocated array.  If "
+"TYPE\n"
+"   is not an array, then SIZE is the number of elements to allocate.  The\n"
+"   memory is allocated using ``malloc'', so it can be passed to foreign\n"
+"   functions which use ``free''."
+msgstr ""
+"Allocateway anway alienway ofway ypetay TYPE andway eturnray anway alienway "
+"ointerpay otay itway.  Ifway SIZE\n"
+"   isway uppliedsay, owhay itway isway interpretedway ependsday onway TYPE.  "
+"Ifway TYPE isway anway arrayway\n"
+"   ypetay, SIZE isway usedway asway ethay irstfay imensionday orfay ethay "
+"allocatedway arrayway.  Ifway TYPE\n"
+"   isway otnay anway arrayway, enthay SIZE isway ethay umbernay ofway "
+"elementsway otay allocateway.  Ethay\n"
+"   emorymay isway allocatedway usingway ``allocmay'', osay itway ancay ebay "
+"assedpay otay oreignfay\n"
+"   unctionsfay ichwhay useway ``eefray''."
+
+#: target:code/alieneval.lisp
+msgid "Cannot override the size of zero-dimensional arrays."
+msgstr ""
+"Annotcay overrideway ethay izesay ofway erozay-imensionalday arraysway."
+
+#: target:code/alieneval.lisp
+msgid "Size of ~S unknown."
+msgstr "Izesay ofway ~S unknownway."
+
+#: target:code/alieneval.lisp
+msgid "Alignment of ~S unknown."
+msgstr "Alignmentway ofway ~S unknownway."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated\n"
+"   by MAKE-ALIEN or ``malloc''."
+msgstr ""
+"Isposeday ofway ethay toragesay ointedpay otay ybay ALIEN.  ALIEN ustmay "
+"avehay eenbay allocatedway\n"
+"   ybay MAKE-ALIEN orway ``allocmay''."
+
+#: target:code/alieneval.lisp
+msgid "No slot named ~S in ~S"
+msgstr "Onay otslay amednay ~S inway ~S"
+
+#: target:code/alieneval.lisp
+msgid ""
+"Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
+msgstr ""
+"Extractway SLOT omfray ethay Alienway STRUCT orway UNION ALIEN.  Aymay ebay "
+"etsay ithway SETF."
+
+#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr "Ootay anymay indicesway enwhay erefingday ~S: ~D"
+
+#: target:code/alieneval.lisp
+msgid "Incorrect number of indices when derefing ~S: ~D"
+msgstr "Incorrectway umbernay ofway indicesway enwhay erefingday ~S: ~D"
+
+#: target:code/alieneval.lisp
+msgid ""
+"De-reference an Alien pointer or array.  If an array, the indices are used\n"
+"   as the indices of the array element to access.  If a pointer, one index "
+"can\n"
+"   optionally be specified, giving the equivalent of C pointer arithmetic."
+msgstr ""
+"Eday-eferenceray anway Alienway ointerpay orway arrayway.  Ifway anway "
+"arrayway, ethay indicesway areway usedway\n"
+"   asway ethay indicesway ofway ethay arrayway elementway otay accessway.  "
+"Ifway away ointerpay, oneway indexway ancay\n"
+"   optionallyway ebay ecifiedspay, ivinggay ethay equivalentway ofway C "
+"ointerpay arithmeticway."
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong; local-alien-info not found: ~S"
+msgstr "Omethingsay isway ongwray; ocallay-alienway-infoway otnay oundfay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "~S isn't forced to memory.  Something went wrong."
+msgstr "~S isnway't orcedfay otay emorymay.  Omethingsay entway ongwray."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return an Alien pointer to the data addressed by Expr, which must be a call\n"
+"   to SLOT or DEREF, or a reference to an Alien variable."
+msgstr ""
+"Eturnray anway Alienway ointerpay otay ethay ataday addressedway ybay "
+"Exprway, ichwhay ustmay ebay away allcay\n"
+"   otay SLOT orway DEREF, orway away eferenceray otay anway Alienway "
+"ariablevay."
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong, local-alien-info not found: ~S"
+msgstr "Omethingsay isway ongwray, ocallay-alienway-infoway otnay oundfay: ~S"
+
+#: target:code/alieneval.lisp
+msgid "~S is not a valid L-value"
+msgstr "~S isway otnay away alidvay L-aluevay"
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both "
+"types\n"
+"   must be Alien array, pointer or function types."
+msgstr ""
+"Onvertcay ALIEN otay anway Alienway ofway ethay ecifiedspay TYPE (otnay "
+"evaluatedway).  Othbay ypestay\n"
+"   ustmay ebay Alienway arrayway, ointerpay orway unctionfay ypestay."
+
+#: target:code/alieneval.lisp
+msgid "~S cannot be cast."
+msgstr "~S annotcay ebay astcay."
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Cannot cast to alien type ~S"
+msgstr "Annotcay astcay otay alienway ypetay ~S"
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return the size of the alien type TYPE.  UNITS specifies the units to\n"
+"   use and can be either :BITS, :BYTES, or :WORDS."
+msgstr ""
+"Eturnray ethay izesay ofway ethay alienway ypetay TYPE.  UNITS ecifiesspay "
+"ethay unitsway otay\n"
+"   useway andway ancay ebay eitherway :BITS, :BYTES, orway :WORDS."
+
+#: target:code/alieneval.lisp
+msgid "Unknown size for alien type ~S."
+msgstr "Unknownway izesay orfay alienway ypetay ~S."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Call the foreign function ALIEN with the specified arguments.  ALIEN's\n"
+"   type specifies the argument and result types."
+msgstr ""
+"Allcay ethay oreignfay unctionfay ALIEN ithway ethay ecifiedspay "
+"argumentsway.  ALIEN's\n"
+"   ypetay ecifiesspay ethay argumentway andway esultray ypestay."
+
+#: target:code/alieneval.lisp
+msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
+msgstr ""
+"Ongwray umbernay ofway argumentsway orfay ~S~%Expectedway ~D, otgay ~D."
+
+#: target:code/alieneval.lisp
+msgid "~S is not an alien function."
+msgstr "~S isway otnay anway alienway unctionfay."
+
+#: target:code/alieneval.lisp
+msgid ""
+"Def-Alien-Routine Name Result-Type\n"
+"                    {(Arg-Name Arg-Type [Style])}*\n"
+"\n"
+"  Define a foreign interface function for the routine with the specified "
+"Name,\n"
+"  which may be either a string, symbol or list of the form (string symbol).\n"
+"  Return-Type is the Alien type for the function return value.  VOID may be\n"
+"  used to specify a function with no result.\n"
+"\n"
+"  The remaining forms specify individual arguments that are passed to the\n"
+"  routine.  Arg-Name is a symbol that names the argument, primarily for\n"
+"  documentation.  Arg-Type is the C-Type of the argument.  Style specifies "
+"the\n"
+"  way that the argument is passed.\n"
+"\n"
+"  :IN\n"
+"        An :In argument is simply passed by value.  The value to be passed "
+"is\n"
+"        obtained from argument(s) to the interface function.  No values are\n"
+"        returned for :In arguments.  This is the default mode.\n"
+"\n"
+"  :OUT\n"
+"        The specified argument type must be a pointer to a fixed sized "
+"object.\n"
+"        A pointer to a preallocated object is passed to the routine, and "
+"the\n"
+"        the object is accessed on return, with the value being returned "
+"from\n"
+"        the interface function.  :OUT and :IN-OUT cannot be used with "
+"pointers\n"
+"        to arrays, records or functions.\n"
+"\n"
+"  :COPY\n"
+"        Similar to :IN, except that the argument values are stored in on\n"
+"        the stack, and a pointer to the object is passed instead of\n"
+"        the values themselves.\n"
+"\n"
+"  :IN-OUT\n"
+"        A combination of :OUT and :COPY.  A pointer to the argument is "
+"passed,\n"
+"        with the object being initialized from the supplied argument and\n"
+"        the return value being determined by accessing the object on return."
+msgstr ""
+"Efday-Alienway-Outineray Amenay Esultray-Ypetay\n"
+"                    {(Argway-Amenay Argway-Ypetay [Tylesay])}*\n"
+"\n"
+"  Efineday away oreignfay interfaceway unctionfay orfay ethay outineray "
+"ithway ethay ecifiedspay Amenay,\n"
+"  ichwhay aymay ebay eitherway away ingstray, ymbolsay orway istlay ofway "
+"ethay ormfay (ingstray ymbolsay).\n"
+"  Eturnray-Ypetay isway ethay Alienway ypetay orfay ethay unctionfay "
+"eturnray aluevay.  VOID aymay ebay\n"
+"  usedway otay ecifyspay away unctionfay ithway onay esultray.\n"
+"\n"
+"  Ethay emainingray ormsfay ecifyspay individualway argumentsway atthay "
+"areway assedpay otay ethay\n"
+"  outineray.  Argway-Amenay isway away ymbolsay atthay amesnay ethay "
+"argumentway, imarilypray orfay\n"
+"  ocumentationday.  Argway-Ypetay isway ethay C-Ypetay ofway ethay "
+"argumentway.  Tylesay ecifiesspay ethay\n"
+"  ayway atthay ethay argumentway isway assedpay.\n"
+"\n"
+"  :IN\n"
+"        Anway :Inway argumentway isway implysay assedpay ybay aluevay.  "
+"Ethay aluevay otay ebay assedpay isway\n"
+"        obtainedway omfray argumentway(s) otay ethay interfaceway "
+"unctionfay.  Onay aluesvay areway\n"
+"        eturnedray orfay :Inway argumentsway.  Isthay isway ethay efaultday "
+"odemay.\n"
+"\n"
+"  :OUT\n"
+"        Ethay ecifiedspay argumentway ypetay ustmay ebay away ointerpay otay "
+"away ixedfay izedsay objectway.\n"
+"        Away ointerpay otay away eallocatedpray objectway isway assedpay "
+"otay ethay outineray, andway ethay\n"
+"        ethay objectway isway accessedway onway eturnray, ithway ethay "
+"aluevay eingbay eturnedray omfray\n"
+"        ethay interfaceway unctionfay.  :OUT andway :IN-OUT annotcay ebay "
+"usedway ithway ointerspay\n"
+"        otay arraysway, ecordsray orway unctionsfay.\n"
+"\n"
+"  :COPY\n"
+"        Imilarsay otay :IN, exceptway atthay ethay argumentway aluesvay "
+"areway toredsay inway onway\n"
+"        ethay tacksay, andway away ointerpay otay ethay objectway isway "
+"assedpay insteadway ofway\n"
+"        ethay aluesvay emselvesthay.\n"
+"\n"
+"  :IN-OUT\n"
+"        Away ombinationcay ofway :OUT andway :COPY.  Away ointerpay otay "
+"ethay argumentway isway assedpay,\n"
+"        ithway ethay objectway eingbay initializedway omfray ethay "
+"uppliedsay argumentway andway\n"
+"        ethay eturnray aluevay eingbay eterminedday ybay accessingway ethay "
+"objectway onway eturnray."
+
+#: target:code/alieneval.lisp
+msgid "Bogus argument style ~S in ~S."
+msgstr "Ogusbay argumentway tylesay ~S inway ~S."
+
+#: target:code/alieneval.lisp
+msgid "Can't use :out or :in-out on pointer-like type:~%  ~S"
+msgstr ""
+"Ancay't useway :outway orway :inway-outway onway ointerpay-ikelay ypetay:~%  "
+"~S"
+
+#: target:code/alieneval.lisp
+msgid ""
+"A callback consists of a piece assembly code -- the trampoline --\n"
+"and a lisp function.  We store the function type (including return\n"
+"type and arg types), so we can detect incompatible redefinitions."
+msgstr ""
+"Away allbackcay onsistscay ofway away iecepay assemblyway odecay -- ethay "
+"ampolinetray --\n"
+"andway away isplay unctionfay.  Eway toresay ethay unctionfay ypetay "
+"(includingway eturnray\n"
+"ypetay andway argway ypestay), osay eway ancay etectday incompatibleway "
+"edefinitionsray."
+
+#: target:code/alieneval.lisp
+msgid "Vector of all callbacks."
+msgstr "Ectorvay ofway allway allbackscay."
+
+#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp
+#: target:compiler/main.lisp target:code/describe.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp
+#: target:code/foreign-linkage.lisp target:code/reader.lisp
+#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp
+#: target:code/alieneval.lisp
+msgid "~S is not an array with a fill-pointer."
+msgstr "~S isway otnay anway arrayway ithway away illfay-ointerpay."
+
+#: target:code/alieneval.lisp
+msgid "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
+msgstr ""
+"Unableway otay protectmay ~S ytesbay (~S) atway ~S (~S).  Allbackscay aymay "
+"otnay orkway."
+
+#: target:code/alieneval.lisp
+msgid "Return the trampoline pointer for the callback NAME."
+msgstr "Eturnray ethay ampolinetray ointerpay orfay ethay allbackcay NAME."
+
+#: target:code/alieneval.lisp
+msgid ""
+"~\n"
+"Attempt to redefine callback with incompatible return type.\n"
+"   Old type was: ~A \n"
+"    New type is: ~A"
+msgstr ""
+"~\n"
+"Attemptway otay edefineray allbackcay ithway incompatibleway eturnray "
+"ypetay.\n"
+"   Oldway ypetay asway: ~Away \n"
+"    Ewnay ypetay isway: ~Away"
+
+#: target:code/alieneval.lisp
+msgid ""
+"~\n"
+"Create new trampoline (old trampoline calls old lisp function)."
+msgstr ""
+"~\n"
+"Eatecray ewnay ampolinetray (oldway ampolinetray allscay oldway isplay "
+"unctionfay)."
+
+#: target:code/alieneval.lisp
+msgid "Unsupported argument type: ~A"
+msgstr "Unsupportedway argumentway ypetay: ~Away"
+
+#: target:code/alieneval.lisp
+msgid "Unsupported return type: ~A"
+msgstr "Unsupportedway eturnray ypetay: ~Away"
+
+#: target:code/alieneval.lisp
+msgid ""
+"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
+"     {doc-string} {decls}* {FORM}*)\n"
+"\n"
+"Define a function which can be called by foreign code.  The pointer\n"
+"returned by (callback NAME), when called by foreign code, invokes the\n"
+"lisp function.  The lisp function expects alien arguments of the\n"
+"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n"
+"\n"
+"If (callback NAME) is already a callback function pointer, its value\n"
+"is not changed (though it's arranged that an updated version of the\n"
+"lisp callback function will be called).  This feature allows for\n"
+"incremental redefinition of callback functions."
+msgstr ""
+"(efcallbackday NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
+"     {ocday-ingstray} {eclsday}* {FORM}*)\n"
+"\n"
+"Efineday away unctionfay ichwhay ancay ebay alledcay ybay oreignfay odecay.  "
+"Ethay ointerpay\n"
+"eturnedray ybay (allbackcay NAME), enwhay alledcay ybay oreignfay odecay, "
+"invokesway ethay\n"
+"isplay unctionfay.  Ethay isplay unctionfay expectsway alienway argumentsway "
+"ofway ethay\n"
+"ecifiedspay ARG-Ypestay andway eturnsray anway alienway ofway ypetay RETURN-"
+"TYPE.\n"
+"\n"
+"Ifway (allbackcay NAME) isway alreadyway away allbackcay unctionfay "
+"ointerpay, itsway aluevay\n"
+"isway otnay angedchay (oughthay itway's arrangedway atthay anway updatedway "
+"ersionvay ofway ethay\n"
+"isplay allbackcay unctionfay illway ebay alledcay).  Isthay eaturefay "
+"allowsway orfay\n"
+"incrementalway edefinitionray ofway allbackcay unctionsfay."
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
+msgstr ""
+"Eturnray T iffway ethay SAP X ointspay otay away mallersay addressway enthay "
+"ethay SAP Y."
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a smaller or the same address as\n"
+"   the SAP Y."
+msgstr ""
+"Eturnray T iffway ethay SAP X ointspay otay away mallersay orway ethay "
+"amesay addressway asway\n"
+"   ethay SAP Y."
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to the same address as the SAP Y."
+msgstr ""
+"Eturnray T iffway ethay SAP X ointspay otay ethay amesay addressway asway "
+"ethay SAP Y."
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a larger or the same address as\n"
+"   the SAP Y."
+msgstr ""
+"Eturnray T iffway ethay SAP X ointspay otay away argerlay orway ethay amesay "
+"addressway asway\n"
+"   ethay SAP Y."
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a larger address then the SAP Y."
+msgstr ""
+"Eturnray T iffway ethay SAP X ointspay otay away argerlay addressway enthay "
+"ethay SAP Y."
+
+#: target:code/sap.lisp
+msgid "Return a new sap OFFSET bytes from SAP."
+msgstr "Eturnray away ewnay apsay OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Return the byte offset between SAP1 and SAP2."
+msgstr "Eturnray ethay ytebay offsetway etweenbay SAP1 andway SAP2."
+
+#: target:code/sap.lisp
+msgid "Converts a System Area Pointer into an integer."
+msgstr "Onvertscay away Ystemsay Areaway Ointerpay intoway anway integerway."
+
+#: target:code/sap.lisp
+msgid "Converts an integer into a System Area Pointer."
+msgstr "Onvertscay anway integerway intoway away Ystemsay Areaway Ointerpay."
+
+#: target:code/sap.lisp
+msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
+msgstr "Eturnsray ethay 8-itbay ytebay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 16-bit word at OFFSET bytes from SAP."
+msgstr "Eturnsray ethay 16-itbay ordway atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
+msgstr "Eturnsray ethay 32-itbay ualwordday atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
+msgstr "Eturnsray ethay 64-itbay adwordquay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay 32-itbay ystemsay-areaway-ointerpay atway OFFSET ytesbay "
+"omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay 32-itbay inglesay-oatflay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay 64-itbay oubleday-oatflay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the long-float at OFFSET bytes from SAP."
+msgstr "Eturnsray ethay onglay-oatflay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay ignedsay 8-itbay ytebay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay ignedsay 16-itbay ordway atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay ignedsay 32-itbay ualwordday atway OFFSET ytesbay omfray SAP."
+
+#: target:code/sap.lisp
+msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+"Eturnsray ethay ignedsay 64-itbay adwordquay atway OFFSET ytesbay omfray SAP."
+
+#: target:code/bit-bash.lisp
+msgid "The number of bits to process at a time."
+msgstr "Ethay umbernay ofway itsbay otay ocesspray atway away imetay."
+
+#: target:code/bit-bash.lisp
+msgid "The maximum number of bits that can be dealt with during a single call."
+msgstr ""
+"Ethay aximummay umbernay ofway itsbay atthay ancay ebay ealtday ithway "
+"uringday away inglesay allcay."
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
+"  bits from the ``start.''  On big-endian machines this is a left-shift and\n"
+"  on little-endian machines this is a right-shift.  Note: only the low 5/6 "
+"bits\n"
+"  of count are significant."
+msgstr ""
+"Iftshay NUMBER ybay COUNT itsbay, addingway erozay itsbay atway ethay "
+"``endway'' andway emovingray\n"
+"  itsbay omfray ethay ``tartsay.''  Onway igbay-endianway achinesmay isthay "
+"isway away eftlay-iftshay andway\n"
+"  onway ittlelay-endianway achinesmay isthay isway away ightray-iftshay.  "
+"Otenay: onlyway ethay owlay 5/6 itsbay\n"
+"  ofway ountcay areway ignificantsay."
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
+"  bits from the ``end.''  On big-endian machines this is a right-shift and\n"
+"  on little-endian machines this is a left-shift."
+msgstr ""
+"Iftshay NUMBER ybay COUNT itsbay, addingway erozay itsbay atway ethay "
+"``tartsay'' andway emovingray\n"
+"  itsbay omfray ethay ``endway.''  Onway igbay-endianway achinesmay isthay "
+"isway away ightray-iftshay andway\n"
+"  onway ittlelay-endianway achinesmay isthay isway away eftlay-iftshay."
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
+"  the remaining ``end'' bits.  Only the lower 5 bits of COUNT are "
+"significant."
+msgstr ""
+"Oducepray away askmay atthay ontainscay 1's orfay ethay COUNT ``tartsay'' "
+"itsbay andway 0's orfay\n"
+"  ethay emainingray ``endway'' itsbay.  Onlyway ethay owerlay 5 itsbay ofway "
+"COUNT areway ignificansayt."
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
+"  the remaining ``start'' bits.  Only the lower 5 bits of COUNT are\n"
+"  significant."
+msgstr ""
+"Oducepray away askmay atthay ontainscay 1's orfay ethay COUNT ``endway'' "
+"itsbay andway 0's orfay\n"
+"  ethay emainingray ``tartsay'' itsbay.  Onlyway ethay owerlay 5 itsbay "
+"ofway COUNT areway\n"
+"  ignificantsay."
+
+#: target:code/bit-bash.lisp
+msgid "Align the SAP to a word boundry, and update the offset accordingly."
+msgstr ""
+"Alignway ethay SAP otay away ordway oundrybay, andway updateway ethay "
+"offsetway accordinglyway."
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
+msgstr ""
+"Illfay DST ithway VALUE tartingsay atway DST-OFFSET andway ontinuingcay "
+"orfay LENGTH itsbay."
+
+#: target:code/byte-interp.lisp
+msgid "This is the interpreter's evaluation stack."
+msgstr "Isthay isway ethay interpreterway's evaluationway tacksay."
+
+#: target:code/byte-interp.lisp
+msgid "This is the next free element of the interpreter's evaluation stack."
+msgstr ""
+"Isthay isway ethay extnay eefray elementway ofway ethay interpreterway's "
+"evaluationway tacksay."
+
+#: target:code/byte-interp.lisp
+msgid "Unknown inline function, id=~D"
+msgstr "Unknownway inlineway unctionfay, idway=~D"
+
+#: target:code/byte-interp.lisp
+msgid "Unbound variable: ~S"
+msgstr "Unboundway ariablevay: ~S"
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CAR: ~S"
+msgstr "Onnay-istlay argumentway otay CAR: ~S"
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CDR: ~S"
+msgstr "Onnay-istlay argumentway otay CDR: ~S"
+
+#: target:code/byte-interp.lisp
+msgid "Undefined XOP."
+msgstr "Undefinedway XOP."
+
+#: target:code/byte-interp.lisp
+msgid "Wrong number of arguments."
+msgstr "Ongwray umbernay ofway argumentsway."
+
+#: target:code/byte-interp.lisp
+msgid "Not enough arguments."
+msgstr "Otnay enoughway argumentsway."
+
+#: target:pcl/boot.lisp target:code/byte-interp.lisp
+msgid "Too many arguments."
+msgstr "Ootay anymay argumentsway."
+
+#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Odd number of keyword arguments."
+msgstr "Oddway umbernay ofway eywordkay argumentsway."
+
+#: target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Unknown keyword: ~S"
+msgstr "Unknownway eywordkay: ~S"
+
+#: target:code/byte-interp.lisp
+msgid "function-end breakpoints not supported."
+msgstr "unctionfay-endway eakpointsbray otnay upportedsay."
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the rank of an array."
+msgstr ""
+"Ethay exclusiveway upperway oundbay onway ethay ankray ofway anway arrayway."
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound any given dimension of an array."
+msgstr ""
+"Ethay exclusiveway upperway oundbay anyway ivengay imensionday ofway anway "
+"arrayway."
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the total number of elements in an array."
+msgstr ""
+"Ethay exclusiveway upperway oundbay onway ethay otaltay umbernay ofway "
+"elementsway inway anway arrayway."
+
+#: target:code/array.lisp
+msgid "End ~D is greater than total size ~D."
+msgstr "Endway ~D isway eatergray anthay otaltay izesay ~D."
+
+#: target:code/array.lisp
+msgid "Start ~D is greater than end ~D."
+msgstr "Tartsay ~D isway eatergray anthay endway ~D."
+
+#: target:code/array.lisp
+msgid ""
+"List of weak-pointers to static vectors.  Needed for GCing static vectors"
+msgstr ""
+"Istlay ofway eakway-ointerspay otay taticsay ectorsvay.  Eedednay orfay "
+"Cinggay taticsay ectorsvay"
+
+#: target:code/array.lisp
+msgid "Cannot make a static array of element type ~S"
+msgstr "Annotcay akemay away taticsay arrayway ofway elementway ypetay ~S"
+
+#: target:code/array.lisp
+msgid "Failed to allocate space for static array of length ~S of type ~S"
+msgstr ""
+"Ailedfay otay allocateway acespay orfay taticsay arrayway ofway engthlay ~S "
+"ofway ypetay ~S"
+
+#: target:code/array.lisp
+msgid ""
+"Creates an array of the specified Dimensions and properties.  See the\n"
+"  manual for details.\n"
+"\n"
+"  :Element-type\n"
+"      The type of objects that the array can hold \n"
+"  :Initial-element\n"
+"      Each element of the array is initialized to this value, if supplied.\n"
+"      If not supplied, 0 of the appropriate type is used.\n"
+"  :Initial-contents\n"
+"      The contents of the array are initialized to this.\n"
+"  :Adjustable\n"
+"      If non-Nil, make an expressly adjustable array.\n"
+"  :Fill-pointer\n"
+"      For one-dimensional array, set the fill-pointer to the given value.\n"
+"      If T, use the actual length of the array.\n"
+"  :Displaced-to\n"
+"      Create an array that is displaced to the target array specified\n"
+"      by :displaced-to.\n"
+"  :Displaced-index-offset\n"
+"      Index offset to the displaced array.  That is, index 0 of this array "
+"is\n"
+"      actually index displaced-index-offset of the target displaced array. \n"
+"  :Allocation\n"
+"      How to allocate the array.  If :MALLOC, a static, nonmovable array is\n"
+"      created.  This array is created by calling malloc."
+msgstr ""
+"Eatescray anway arrayway ofway ethay ecifiedspay Imensionsday andway "
+"opertiespray.  Eesay ethay\n"
+"  anualmay orfay etailsday.\n"
+"\n"
+"  :Elementway-ypetay\n"
+"      Ethay ypetay ofway objectsway atthay ethay arrayway ancay oldhay \n"
+"  :Initialway-elementway\n"
+"      Eachway elementway ofway ethay arrayway isway initializedway otay "
+"isthay aluevay, ifway uppliedsay.\n"
+"      Ifway otnay uppliedsay, 0 ofway ethay appropriateway ypetay isway "
+"usedway.\n"
+"  :Initialway-ontentscay\n"
+"      Ethay ontentscay ofway ethay arrayway areway initializedway otay "
+"isthay.\n"
+"  :Adjustableway\n"
+"      Ifway onnay-Ilnay, akemay anway expresslyway adjustableway arrayway.\n"
+"  :Illfay-ointerpay\n"
+"      Orfay oneway-imensionalday arrayway, etsay ethay illfay-ointerpay otay "
+"ethay ivengay aluevay.\n"
+"      Ifway T, useway ethay actualway engthlay ofway ethay arrayway.\n"
+"  :Isplacedday-otay\n"
+"      Eatecray anway arrayway atthay isway isplacedday otay ethay argettay "
+"arrayway ecifiedspay\n"
+"      ybay :isplacedday-otay.\n"
+"  :Isplacedday-indexway-offsetway\n"
+"      Indexway offsetway otay ethay isplacedday arrayway.  Atthay isway, "
+"indexway 0 ofway isthay arrayway isway\n"
+"      actuallyway indexway isplacedday-indexway-offsetway ofway ethay "
+"argettay isplacedday arrayway. \n"
+"  :Allocationway\n"
+"      Owhay otay allocateway ethay arrayway.  Ifway :MALLOC, away taticsay, "
+"onmovablenay arrayway isway\n"
+"      eatedcray.  Isthay arrayway isway eatedcray ybay allingcay allocmay."
+
+#: target:code/array.lisp
+msgid "Can't specify :displaced-index-offset without :displaced-to"
+msgstr ""
+"Ancay't ecifyspay :isplacedday-indexway-offsetway ithoutway :isplacedday-otay"
+
+#: target:code/array.lisp
+msgid "Cannot make an adjustable static array"
+msgstr "Annotcay akemay anway adjustableway taticsay arrayway"
+
+#: target:code/array.lisp
+msgid "Cannot make a displaced array static"
+msgstr "Annotcay akemay away isplacedday arrayway taticsay"
+
+#: target:code/array.lisp
+msgid ""
+"Cannot specify both :initial-element and ~\n"
+"\t\t:initial-contents"
+msgstr ""
+"Annotcay ecifyspay othbay :initialway-elementway andway ~\n"
+"\t\t:initialway-ontentscay"
+
+#: target:code/array.lisp
+msgid ""
+"~D elements in the initial-contents, but the ~\n"
+"\t\tvector length is ~D."
+msgstr ""
+"~D elementsway inway ethay initialway-ontentscay, utbay ethay ~\n"
+"\t\tectorvay engthlay isway ~D."
+
+#: target:code/array.lisp
+msgid "Only vectors can have fill pointers."
+msgstr "Onlyway ectorsvay ancay avehay illfay ointerspay."
+
+#: target:code/array.lisp
+msgid "Invalid fill-pointer ~D"
+msgstr "Invalidway illfay-ointerpay ~D"
+
+#: target:code/array.lisp
+msgid ""
+"Neither :initial-element nor :initial-contents ~\n"
+"\t\t   can be specified along with :displaced-to"
+msgstr ""
+"Eithernay :initialway-elementway ornay :initialway-ontentscay ~\n"
+"\t\t   ancay ebay ecifiedspay alongway ithway :isplacedday-otay"
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into ~\n"
+"                           another of type ~S."
+msgstr ""
+"Oneway ancay't isplaceday anway arrayway ofway ypetay ~S intoway ~\n"
+"                           anotherway ofway ypetay ~S."
+
+#: target:code/array.lisp
+msgid "~S doesn't have enough elements."
+msgstr "~S oesnday't avehay enoughway elementsway."
+
+#: target:code/array.lisp
+msgid "~&Freeing foreign vector at #x~X~%"
+msgstr "~&Eeingfray oreignfay ectorvay atway #x~X~%"
+
+#: target:code/array.lisp
+msgid "Finalizing static vectors ~S~%"
+msgstr "Inalizingfay taticsay ectorsvay ~S~%"
+
+#: target:code/array.lisp
+msgid "static vector ~A.  header = ~X~%"
+msgstr "taticsay ectorvay ~Away.  eaderhay = ~X~%"
+
+#: target:code/array.lisp
+msgid "  static vector ~A in use~%"
+msgstr "  taticsay ectorvay ~Away inway useway~%"
+
+#: target:code/array.lisp
+msgid "  Free static vector ~A~%"
+msgstr "  Eefray taticsay ectorvay ~Away~%"
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply both :initial-contents and :initial-element to\n"
+"            either make-array or adjust-array."
+msgstr ""
+"Annotcay upplysay othbay :initialway-ontentscay andway :initialway-"
+"elementway otay\n"
+"            eitherway akemay-arrayway orway adjustway-arrayway."
+
+#: target:code/array.lisp
+msgid "~S cannot be used to initialize an array of type ~S."
+msgstr ""
+"~S annotcay ebay usedway otay initializeway anway arrayway ofway ypetay ~S."
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  Dimension of ~\n"
+"\t\t\t        axis ~D is ~D, but ~S is ~D long."
+msgstr ""
+"Alformedmay :initialway-ontentscay.  Imensionday ofway ~\n"
+"\t\t\t        axisway ~D isway ~D, utbay ~S isway ~D onglay."
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"\t\t\t                       sequence, but ~D more layer needed."
+msgid_plural ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"\t\t\t                       sequence, but ~D more layers needed."
+msgstr[0] ""
+"Alformedmay :initialway-ontentscay.  ~S isway otnay away ~\n"
+"\t\t\t                       equencesay, utbay ~D oremay ayerlay eedednay."
+msgstr[1] ""
+"Alformedmay :initialway-ontentscay.  ~S isway otnay away ~\n"
+"\t\t\t                       equencesay, utbay ~D oremay ayerslay eedednay."
+
+#: target:code/array.lisp
+msgid "Constructs a simple-vector from the given objects."
+msgstr "Onstructscay away implesay-ectorvay omfray ethay ivengay objectsway."
+
+#: target:code/array.lisp
+msgid "Wrong number of subscripts, ~D, for array of rank ~D"
+msgstr ""
+"Ongwray umbernay ofway ubscriptssay, ~D, orfay arrayway ofway ankray ~D"
+
+#: target:code/array.lisp
+msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
+msgstr "Invalidway indexway ~D~[~;~:; onway axisway ~:*~D~] inway ~S"
+
+#: target:code/array.lisp
+msgid "Invalid index ~D in ~S"
+msgstr "Invalidway indexway ~D inway ~S"
+
+#: target:code/array.lisp
+msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
+msgstr ""
+"Eturnsray T ifway ethay Ubsciptssay areway inway oundsbay orfay ethay "
+"Arrayway, Ilnay otherwiseway."
+
+#: target:code/array.lisp
+msgid "Returns the element of the Array specified by the Subscripts."
+msgstr ""
+"Eturnsray ethay elementway ofway ethay Arrayway ecifiedspay ybay ethay "
+"Ubscriptssay."
+
+#: target:code/array.lisp
+msgid ""
+"Returns the element of array corressponding to the row-major index.  This "
+"is\n"
+"   SETF'able."
+msgstr ""
+"Eturnsray ethay elementway ofway arrayway orresspondingcay otay ethay owray-"
+"ajormay indexway.  Isthay isway\n"
+"   SETF'ableway."
+
+#: target:code/array.lisp
+msgid "Returns the Index'th element of the given Simple-Vector."
+msgstr ""
+"Eturnsray ethay Indexway'thay elementway ofway ethay ivengay Implesay-"
+"Ectorvay."
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Bit-Array at the specified Subscripts."
+msgstr ""
+"Eturnsray ethay itbay omfray ethay Itbay-Arrayway atway ethay ecifiedspay "
+"Ubscriptssay."
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
+msgstr ""
+"Eturnsray ethay itbay omfray ethay Implesay-Itbay-Arrayway atway ethay "
+"ecifiedspay Ubscriptssay."
+
+#: target:code/array.lisp
+msgid "Returns the type of the elements of the array"
+msgstr "Eturnsray ethay ypetay ofway ethay elementsway ofway ethay arrayway"
+
+#: target:code/array.lisp
+msgid "Returns the number of dimensions of the Array."
+msgstr "Eturnsray ethay umbernay ofway imensionsday ofway ethay Arrayway."
+
+#: target:code/array.lisp
+msgid "Returns length of dimension Axis-Number of the Array."
+msgstr ""
+"Eturnsray engthlay ofway imensionday Axisway-Umbernay ofway ethay Arrayway."
+
+#: target:code/array.lisp
+msgid "Vector axis is not zero: ~S"
+msgstr "Ectorvay axisway isway otnay erozay: ~S"
+
+#: target:code/array.lisp
+msgid "~D is too big; ~S only has ~D dimension"
+msgid_plural "~D is too big; ~S only has ~D dimensions"
+msgstr[0] "~D isway ootay igbay; ~S onlyway ashay ~D imensionday"
+msgstr[1] "~D isway ootay igbay; ~S onlyway ashay ~D imensionsday"
+
+#: target:code/array.lisp
+msgid "Returns a list whose elements are the dimensions of the array"
+msgstr ""
+"Eturnsray away istlay osewhay elementsway areway ethay imensionsday ofway "
+"ethay arrayway"
+
+#: target:code/array.lisp
+msgid "Returns the total number of elements in the Array."
+msgstr ""
+"Eturnsray ethay otaltay umbernay ofway elementsway inway ethay Arrayway."
+
+#: target:code/array.lisp
+msgid ""
+"Returns values of :displaced-to and :displaced-index-offset options to\n"
+"   make-array, or the defaults nil and 0 if not a displaced array."
+msgstr ""
+"Eturnsray aluesvay ofway :isplacedday-otay andway :isplacedday-indexway-"
+"offsetway optionsway otay\n"
+"   akemay-arrayway, orway ethay efaultsday ilnay andway 0 ifway otnay away "
+"isplacedday arrayway."
+
+#: target:code/array.lisp
+msgid ""
+"Returns T if (adjust-array array...) would return an array identical\n"
+"   to the argument, this happens for complex arrays."
+msgstr ""
+"Eturnsray T ifway (adjustway-arrayway arrayway...) ouldway eturnray anway "
+"arrayway identicalway\n"
+"   otay ethay argumentway, isthay appenshay orfay omplexcay arraysway."
+
+#: target:code/array.lisp
+msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
+msgstr ""
+"Eturnsray T ifway ethay ivengay Arrayway ashay away illfay ointerpay, orway "
+"Ilnay otherwiseway."
+
+#: target:code/array.lisp
+msgid "Returns the Fill-Pointer of the given Vector."
+msgstr "Eturnsray ethay Illfay-Ointerpay ofway ethay ivengay Ectorvay."
+
+#: target:code/array.lisp
+msgid "New fill pointer, ~S, is larger than the length of the vector."
+msgstr ""
+"Ewnay illfay ointerpay, ~S, isway argerlay anthay ethay engthlay ofway ethay "
+"ectorvay."
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to set the element of Array designated by the fill pointer\n"
+"   to New-El and increment fill pointer by one.  If the fill pointer is\n"
+"   too large, Nil is returned, otherwise the index of the pushed element "
+"is \n"
+"   returned."
+msgstr ""
+"Attemptsway otay etsay ethay elementway ofway Arrayway esignatedday ybay "
+"ethay illfay ointerpay\n"
+"   otay Ewnay-Elway andway incrementway illfay ointerpay ybay oneway.  Ifway "
+"ethay illfay ointerpay isway\n"
+"   ootay argelay, Ilnay isway eturnedray, otherwiseway ethay indexway ofway "
+"ethay ushedpay elementway isway \n"
+"   eturnedray."
+
+#: target:code/array.lisp
+msgid ""
+"Like Vector-Push except that if the fill pointer gets too large, the\n"
+"   Array is extended rather than Nil being returned."
+msgstr ""
+"Ikelay Ectorvay-Ushpay exceptway atthay ifway ethay illfay ointerpay etsgay "
+"ootay argelay, ethay\n"
+"   Arrayway isway extendedway atherray anthay Ilnay eingbay eturnedray."
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to decrease the fill-pointer by 1 and return the element\n"
+"   pointer to by the new fill pointer.  If the original value of the fill\n"
+"   pointer is 0, an error occurs."
+msgstr ""
+"Attemptsway otay ecreaseday ethay illfay-ointerpay ybay 1 andway eturnray "
+"ethay elementway\n"
+"   ointerpay otay ybay ethay ewnay illfay ointerpay.  Ifway ethay "
+"originalway aluevay ofway ethay illfay\n"
+"   ointerpay isway 0, anway errorway occursway."
+
+#: target:code/array.lisp
+msgid "Nothing left to pop."
+msgstr "Othingnay eftlay otay oppay."
+
+#: target:code/array.lisp
+msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
+msgstr ""
+"Adjustsway ethay Arrayway's imensionsday otay ethay ivengay Imensionsday "
+"andway tuffsay."
+
+#: target:code/array.lisp
+msgid "Number of dimensions not equal to rank of array."
+msgstr "Umbernay ofway imensionsday otnay equalway otay ankray ofway arrayway."
+
+#: target:code/array.lisp
+msgid "New element type, ~S, is incompatible with old."
+msgstr "Ewnay elementway ypetay, ~S, isway incompatibleway ithway oldway."
+
+#: target:code/array.lisp
+msgid "Static arrays are not adjustable."
+msgstr "Taticsay arraysway areway otnay adjustableway."
+
+#: target:code/array.lisp
+msgid "Multidimensional arrays can't have fill pointers."
+msgstr "Ultidimensionalmay arraysway ancay't avehay illfay ointerspay."
+
+#: target:code/array.lisp
+msgid ""
+"Initial contents may not be specified with ~\n"
+"\t\t the :initial-element or :displaced-to option."
+msgstr ""
+"Initialway ontentscay aymay otnay ebay ecifiedspay ithway ~\n"
+"\t\t ethay :initialway-elementway orway :isplacedday-otay optionway."
+
+#: target:code/array.lisp
+msgid ""
+"The :initial-element option may not be specified ~\n"
+"\t       with :displaced-to."
+msgstr ""
+"Ethay :initialway-elementway optionway aymay otnay ebay ecifiedspay ~\n"
+"\t       ithway :isplacedday-otay."
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into another of ~\n"
+"\t               type ~S."
+msgstr ""
+"Oneway ancay't isplaceday anway arrayway ofway ypetay ~S intoway anotherway "
+"ofway ~\n"
+"\t               ypetay ~S."
+
+#: target:code/array.lisp
+msgid "The :displaced-to array is too small."
+msgstr "Ethay :isplacedday-otay arrayway isway ootay mallsay."
+
+#: target:code/array.lisp
+msgid ""
+"Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
+"\t            smaller than it's fill pointer (~S)."
+msgstr ""
+"Annotcay adjustway-arrayway anway arrayway (~S) otay away izesay (~S) atthay "
+"isway ~\n"
+"\t            mallersay anthay itway's illfay ointerpay (~S)."
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
+"\t   in adjust-array unless the array (~S) was originally ~\n"
+" \t   created with a fill pointer."
+msgstr ""
+"Annotcay upplysay away onnay-NIL aluevay (~S) orfay :illfay-ointerpay ~\n"
+"\t   inway adjustway-arrayway unlessway ethay arrayway (~S) asway "
+"originallyway ~\n"
+" \t   eatedcray ithway away illfay ointerpay."
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
+"\t     than the new length of the vector (~S)."
+msgstr ""
+"Annotcay upplysay away aluevay orfay :illfay-ointerpay (~S) atthay isway "
+"argerlay ~\n"
+"\t     anthay ethay ewnay engthlay ofway ethay ectorvay (~S)."
+
+#: target:code/array.lisp
+msgid "Bogus value for :fill-pointer in adjust-array: ~S"
+msgstr "Ogusbay aluevay orfay :illfay-ointerpay inway adjustway-arrayway: ~S"
+
+#: target:code/array.lisp
+msgid ""
+"Destructively alters the Vector, changing its length to New-Size, which\n"
+"   must be less than or equal to its current size."
+msgstr ""
+"Estructivelyday altersway ethay Ectorvay, angingchay itsway engthlay otay "
+"Ewnay-Izesay, ichwhay\n"
+"   ustmay ebay esslay anthay orway equalway otay itsway urrentcay izesay."
+
+#: target:code/array.lisp
+msgid "Fills in array header with provided information.  Returns array."
+msgstr ""
+"Illsfay inway arrayway eaderhay ithway ovidedpray informationway.  Eturnsray "
+"arrayway."
+
+#: target:code/array.lisp
+msgid "~S and ~S do not have the same dimensions."
+msgstr "~S andway ~S oday otnay avehay ethay amesay imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGAND onway ethay elementsway ofway BIT-ARRAY-1 "
+"andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGIOR onway ethay elementsway ofway BIT-ARRAY-1 "
+"andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGXOR onway ethay elementsway ofway BIT-ARRAY-1 "
+"andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGEQV onway ethay elementsway ofway BIT-ARRAY-1 "
+"andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGNAND onway ethay elementsway ofway BIT-ARRAY-"
+"1 andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGNOR onway ethay elementsway ofway BIT-ARRAY-1 "
+"andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGANDC1 onway ethay elementsway ofway BIT-ARRAY-"
+"1 andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGANDC2 onway ethay elementsway ofway BIT-ARRAY-"
+"1 andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGORC1 onway ethay elementsway ofway BIT-ARRAY-"
+"1 andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+"Erformpay away itbay-iseway LOGORC2 onway ethay elementsway ofway BIT-ARRAY-"
+"1 andway BIT-ARRAY-2,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY-1 isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Allway ethay arraysway ustmay avehay ethay amesay ankray "
+"andway imensionsday."
+
+#: target:code/array.lisp
+msgid ""
+"Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array is\n"
+"  created.  Both arrays must have the same rank and dimensions."
+msgstr ""
+"Erformspay away itbay-iseway ogicallay NOT onway ethay elementsway ofway BIT-"
+"ARRAY,\n"
+"  uttingpay ethay esultsray inway RESULT-BIT-ARRAY.  Ifway RESULT-BIT-ARRAY "
+"isway T,\n"
+"  BIT-ARRAY isway usedway.  Ifway RESULT-BIT-ARRAY isway NIL orway "
+"omittedway, away ewnay arrayway isway\n"
+"  eatedcray.  Othbay arraysway ustmay avehay ethay amesay ankray andway "
+"imensionsday."
+
+#: target:code/hash-new.lisp
+msgid "Structure used to implement hash tables."
+msgstr "Ucturestray usedway otay implementway ashhay ablestay."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Almost-Primify returns an almost prime number greater than or equal\n"
+"   to NUM."
+msgstr ""
+"Almostway-Imifypray eturnsray anway almostway imepray umbernay eatergray "
+"anthay orway equalway\n"
+"   otay NUM."
+
+#: target:code/hash-new.lisp
+msgid "Define a new kind of hash table test."
+msgstr "Efineday away ewnay indkay ofway ashhay abletay esttay."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Creates and returns a new hash table.  The keywords are as follows:\n"
+"     :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,\n"
+"       and EQUALP are currently supported.\n"
+"     :SIZE -- A hint as to how many elements will be put in this hash\n"
+"       table.\n"
+"     :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
+"       If an integer, add space for that many elements.  If a floating\n"
+"       point number (which must be greater than 1.0), multiple the size\n"
+"       by that amount.\n"
+"     :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
+"       forcing a rehash.  Can be any positive number <= to 1, with density\n"
+"       approaching zero as the threshold approaches 0.  Density 1 means an\n"
+"       average of one entry per bucket.\n"
+"   CMUCL Extension:\n"
+"     :WEAK-P -- Weak hash table.  Can only be used when the key is 'eq or "
+"'eql.\n"
+"                An entry in the table is remains if the condition holds:\n"
+"\n"
+"                :KEY            -- key is referenced elsewhere\n"
+"                :VALUE          -- value is referenced elsewhere\n"
+"                :KEY-AND-VALUE  -- key and value are referenced elsewhere\n"
+"                :KEY-OR-VALUE   -- key or value is referenced elsewhere\n"
+"\n"
+"                If the condition does not hold, the entry is removed.  For\n"
+"                backward compatibility, a value of T is the same as :KEY."
+msgstr ""
+"Eatescray andway eturnsray away ewnay ashhay abletay.  Ethay eywordskay "
+"areway asway ollowsfay:\n"
+"     :TEST -- Indicatesway atwhay indkay ofway esttay otay useway.  Onlyway "
+"EQ, EQL, EQUAL,\n"
+"       andway EQUALP areway urrentlycay upportedsay.\n"
+"     :SIZE -- Away inthay asway otay owhay anymay elementsway illway ebay "
+"utpay inway isthay ashhay\n"
+"       abletay.\n"
+"     :REHASH-SIZE -- Indicatesway owhay otay expandway ethay abletay enwhay "
+"itway illsfay upway.\n"
+"       Ifway anway integerway, addway acespay orfay atthay anymay "
+"elementsway.  Ifway away oatingflay\n"
+"       ointpay umbernay (ichwhay ustmay ebay eatergray anthay 1.0), "
+"ultiplemay ethay izesay\n"
+"       ybay atthay amountway.\n"
+"     :REHASH-THRESHOLD -- Indicatesway owhay enseday ethay abletay ancay "
+"ecomebay eforebay\n"
+"       orcingfay away ehashray.  Ancay ebay anyway ositivepay umbernay <= "
+"otay 1, ithway ensityday\n"
+"       approachingway erozay asway ethay resholdthay approachesway 0.  "
+"Ensityday 1 eansmay anway\n"
+"       averageway ofway oneway entryway erpay ucketbay.\n"
+"   CMUCL Extensionway:\n"
+"     :WEAK-P -- Eakway ashhay abletay.  Ancay onlyway ebay usedway enwhay "
+"ethay eykay isway 'eqway orway 'eqlway.\n"
+"                Anway entryway inway ethay abletay isway emainsray ifway "
+"ethay onditioncay oldshay:\n"
+"\n"
+"                :KEY            -- eykay isway eferencedray elsewhereway\n"
+"                :VALUE          -- aluevay isway eferencedray elsewhereway\n"
+"                :KEY-AND-VALUE  -- eykay andway aluevay areway eferencedray "
+"elsewhereway\n"
+"                :KEY-OR-VALUE   -- eykay orway aluevay isway eferencedray "
+"elsewhereway\n"
+"\n"
+"                Ifway ethay onditioncay oesday otnay oldhay, ethay entryway "
+"isway emovedray.  Orfay\n"
+"                ackwardbay ompatibilitycay, away aluevay ofway T isway ethay "
+"amesay asway :KEY."
+
+#: target:code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+msgstr "Unknownway :TEST orfay MAKE-HASH-TABLE: ~S"
+
+#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ";; Eatingcray unsupportedway eakway-p ashhay abletay~%"
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr "Annotcay akemay away eakway ~Away ashtablehay ithway esttay: ~S"
+
+#: target:code/hash-new.lisp
+msgid "Returns the number of entries in the given HASH-TABLE."
+msgstr ""
+"Eturnsray ethay umbernay ofway entriesway inway ethay ivengay HASH-TABLE."
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-size HASH-TABLE was created with."
+msgstr "Eturnray ethay ehashray-izesay HASH-TABLE asway eatedcray ithway."
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-threshold HASH-TABLE was created with."
+msgstr "Eturnray ethay ehashray-resholdthay HASH-TABLE asway eatedcray ithway."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
+"   table that can hold however many entries HASH-TABLE can hold without\n"
+"   having to be grown."
+msgstr ""
+"Eturnray away izesay atthay ancay ebay usedway ithway MAKE-HASH-TABLE otay "
+"eatecray away ashhay\n"
+"   abletay atthay ancay oldhay oweverhay anymay entriesway HASH-TABLE ancay "
+"oldhay ithoutway\n"
+"   avinghay otay ebay owngray."
+
+#: target:code/hash-new.lisp
+msgid "Return the test HASH-TABLE was created with."
+msgstr "Eturnray ethay esttay HASH-TABLE asway eatedcray ithway."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return T if HASH-TABLE will not keep entries for keys that would\n"
+"   otherwise be garbage, and NIL if it will."
+msgstr ""
+"Eturnray T ifway HASH-TABLE illway otnay eepkay entriesway orfay eyskay "
+"atthay ouldway\n"
+"   otherwiseway ebay arbagegay, andway NIL ifway itway illway."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
+"   value and T as multiple values, or returns DEFAULT and NIL if there is "
+"no\n"
+"   such entry.  Entries can be added using SETF."
+msgstr ""
+"Indsfay ethay entryway inway HASH-TABLE osewhay eykay isway KEY andway "
+"eturnsray ethay associatedway\n"
+"   aluevay andway T asway ultiplemay aluesvay, orway eturnsray DEFAULT "
+"andway NIL ifway erethay isway onay\n"
+"   uchsay entryway.  Entriesway ancay ebay addedway usingway SETF."
+
+#: target:code/hash-new.lisp
+msgid ""
+"Remove the entry in HASH-TABLE associated with KEY.  Returns T if there\n"
+"   was such an entry, and NIL if not."
+msgstr ""
+"Emoveray ethay entryway inway HASH-TABLE associatedway ithway KEY.  "
+"Eturnsray T ifway erethay\n"
+"   asway uchsay anway entryway, andway NIL ifway otnay."
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself."
+msgstr ""
+"Isthay emovesray allway ethay entriesway omfray HASH-TABLE andway eturnsray "
+"ethay ashhay abletay\n"
+"   itselfway."
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself, shrinking the size to free memory."
+msgstr ""
+"Isthay emovesray allway ethay entriesway omfray HASH-TABLE andway eturnsray "
+"ethay ashhay abletay\n"
+"   itselfway, rinkingshay ethay izesay otay eefray emorymay."
+
+#: target:code/hash-new.lisp
+msgid ""
+"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
+"   of the entry; returns NIL."
+msgstr ""
+"Orfay eachway entryway inway HASH-TABLE, allscay MAP-FUNCTION onway ethay "
+"eykay andway aluevay\n"
+"   ofway ethay entryway; eturnsray NIL."
+
+#: target:code/hash-new.lisp
+msgid ""
+"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
+"   provides a method of manually looping over the elements of a hash-table.\n"
+"   FUNCTION is bound to a generator-macro that, within the scope of the\n"
+"   invocation, returns one or three values. The first value tells whether\n"
+"   any objects remain in the hash table. When the first value is non-NIL, \n"
+"   the second and third values are the key and the value of the next object."
+msgstr ""
+"WITH-HASH-TABLE-ITERATOR ((unctionfay ashhay-abletay) &odybay odybay)\n"
+"   ovidespray away ethodmay ofway anuallymay oopinglay overway ethay "
+"elementsway ofway away ashhay-abletay.\n"
+"   FUNCTION isway oundbay otay away eneratorgay-acromay atthay, ithinway "
+"ethay opescay ofway ethay\n"
+"   invocationway, eturnsray oneway orway reethay aluesvay. Ethay irstfay "
+"aluevay ellstay etherwhay\n"
+"   anyway objectsway emainray inway ethay ashhay abletay. Enwhay ethay "
+"irstfay aluevay isway onnay-NIL, \n"
+"   ethay econdsay andway irdthay aluesvay areway ethay eykay andway ethay "
+"aluevay ofway ethay extnay objectway."
+
+#: target:pcl/slots.lisp target:code/hash-new.lisp
+msgid "What kind of instance is this?"
+msgstr "Atwhay indkay ofway instanceway isway isthay?"
+
+#: target:code/hash-new.lisp
+msgid "Computes a hash code for S-EXPR and returns it as an integer."
+msgstr ""
+"Omputescay away ashhay odecay orfay S-EXPR andway eturnsray itway asway "
+"anway integerway."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr "Eturnsray ethay 1tsay objectway inway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns all but the first object."
+msgstr "Eturnsray allway utbay ethay irstfay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr "Eturnsray ethay 2dnay objectway inway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr "Eturnsray ethay drcay ofway ethay 1tsay ublistsay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr "Eturnsray ethay arcay ofway ethay 1tsay ublistsay."
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr "Eturnsray allway utbay ethay 1tsay wotay objectsway ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay ddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay adrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay aarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay darcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay ddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay darcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay adrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay aaarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay aadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay addrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay dddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay dddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aaarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay daarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay ddarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay adarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay daarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay dadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay ddarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay adarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay addrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay dadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr ""
+"Eturnsray away istlay ithway esay1 asway ethay arcay andway esay2 asway "
+"ethay drcay."
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr ""
+"Eturnsray T ifway X andway Y areway isomorphicway eestray ithway "
+"identicalway eaveslay."
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list.  True if Object is nil,\n"
+"   false if Object is a cons, and an error for any other types of arguments."
+msgstr ""
+"Ethay ecommendedray ayway otay esttay orfay ethay endway ofway away istlay.  "
+"Uetray ifway Objectway isway ilnay,\n"
+"   alsefay ifway Objectway isway away onscay, andway anway errorway orfay "
+"anyway otherway ypestay ofway argumentsway."
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr ""
+"Eturnsray ethay engthlay ofway ethay ivengay Istlay, orway Ilnay ifway ethay "
+"Istlay isway ircularcay."
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr ""
+"Eturnsray ethay thnay objectway inway away istlay erewhay ethay arcay isway "
+"ethay erozay-thay elementway."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr ""
+"Eturnsray ethay 1tsay objectway inway away istlay orway NIL ifway ethay "
+"istlay isway emptyway."
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr ""
+"Eturnsray ethay 2dnay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 2dnay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr ""
+"Eturnsray ethay 3dray objectway inway away istlay orway NIL ifway erethay "
+"isway onay 3dray objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr ""
+"Eturnsray ethay 4thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 4thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr ""
+"Eturnsray ethay 5thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 5thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr ""
+"Eturnsray ethay 6thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 6thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr ""
+"Eturnsray ethay 7thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 7thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr ""
+"Eturnsray ethay 8thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 8thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr ""
+"Eturnsray ethay 9thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 9thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr ""
+"Eturnsray ethay 10thay objectway inway away istlay orway NIL ifway erethay "
+"isway onay 10thay objectway."
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr "Eansmay ethay amesay asway ethay drcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr "Erformspay ethay drcay unctionfay n imestay onway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr ""
+"Eturnsray ethay astlay N onsescay (otnay ethay astlay elementway!) ofway "
+"away istlay."
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr ""
+"Eturnsray onstructscay andway eturnsray away istlay ofway itsway "
+"argumentsway."
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr ""
+"Eturnsray away istlay ofway ethay argumentsway ithway astlay onscay away "
+"ottedday airpay"
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr ""
+"Onstructscay away istlay ithway izesay elementsway eachway etsay otay aluevay"
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr "~S isway otnay away operpray istlay"
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+"  Each Arg in Args must be a proper list except the last one, which\n"
+"  may be any object.  The function is not destructive: for all but the\n"
+"  last Arg, its list structure is copied.  The last argument is not\n"
+"  copied; it becomes the cdr of the final dotted pair of the\n"
+"  concatenation of the preceding lists, or is returned directly if\n"
+"  there are no preceding non-empty lists.  In the latter case, if the\n"
+"  last Arg is not a list, the returned value is not a list either."
+msgstr ""
+"Ypicallytay, eturnsray away ewnay istlay atthay isway ethay oncatenationcay "
+"ofway Argsway.\n"
+"\n"
+"  Eachway Argway inway Argsway ustmay ebay away operpray istlay exceptway "
+"ethay astlay oneway, ichwhay\n"
+"  aymay ebay anyway objectway.  Ethay unctionfay isway otnay estructiveday: "
+"orfay allway utbay ethay\n"
+"  astlay Argway, itsway istlay ucturestray isway opiedcay.  Ethay astlay "
+"argumentway isway otnay\n"
+"  opiedcay; itway ecomesbay ethay drcay ofway ethay inalfay ottedday airpay "
+"ofway ethay\n"
+"  oncatenationcay ofway ethay ecedingpray istslay, orway isway eturnedray "
+"irectlyday ifway\n"
+"  erethay areway onay ecedingpray onnay-emptyway istslay.  Inway ethay "
+"atterlay asecay, ifway ethay\n"
+"  astlay Argway isway otnay away istlay, ethay eturnedray aluevay isway "
+"otnay away istlay eitherway."
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr "~S isway otnay away istlay."
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr "Eturnsray away ewnay istlay EQUAL utbay otnay EQ otay istlay"
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr ""
+"Eturnsray away ewnay associationway istlay equalway otay alistway, "
+"onstructedcay inway acespay"
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr "Opycay-Eetray ecursivelyray opyscay eestray ofway onsescay."
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr "Eturnsray (appendway (everseray x) y)"
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr ""
+"Oncatenatescay ethay istslay ivengay asway argumentsway (ybay angingchay "
+"emthay)"
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr "Argumentway isway otnay away istlay -- ~S."
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr "Eturnsray (concnay (reversenay x) y)"
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr "Irstfay argumentway isway otnay away operpray istlay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+"   List must not be circular."
+msgstr ""
+"Eturnsray away ewnay istlay ethay amesay asway Istlay ithoutway ethay astlay "
+"N onsescay.\n"
+"   Istlay ustmay otnay ebay ircularcay."
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr ""
+"Odifiesmay Istlay otay emoveray ethay astlay N onsescay. Istlay ustmay otnay "
+"ebay ircularcay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+"   Object.  If Object is not a tail of List, a copy of List is returned.\n"
+"   List must be a proper list or a dotted list."
+msgstr ""
+"Eturnsray away ewnay istlay, osewhay elementsway areway osethay ofway Istlay "
+"atthay appearway eforebay\n"
+"   Objectway.  Ifway Objectway isway otnay away ailtay ofway Istlay, away "
+"opycay ofway Istlay isway eturnedray.\n"
+"   Istlay ustmay ebay away operpray istlay orway away ottedday istlay."
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr "Angeschay ethay arcay ofway x otay y andway eturnsray ethay ewnay x."
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr "Angeschay ethay drcay ofway x otay y andway eturnsray ethay ewnay x."
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr ""
+"Etssay ethay Thnay elementway ofway Istlay (erozay asedbay) otay Ewvalnay."
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr "~S isway ootay argelay anway indexway orfay SETF ofway NTH."
+
+#: target:code/list.lisp
+msgid "Returns what was passed to it."
+msgstr "Eturnsray atwhay asway assedpay otay itway."
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+"   NIL whenever FUNCTION returns T."
+msgstr ""
+"Uildsbay away ewnay unctionfay atthay eturnsray T eneverwhay FUNCTION "
+"eturnsray NIL andway\n"
+"   NIL eneverwhay FUNCTION eturnsray T."
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr ""
+"Uildsbay away unctionfay atthay alwaysway eturnsray VALUE, andway osisblypay "
+"MORE-VALUES."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr "Ubstitutessay ewnay orfay ubtreessay atchingmay oldway."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr ""
+"Ubstitutessay ewnay orfay ubtreessay orfay ichwhay esttay isway uetray."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr ""
+"Ubstitutessay ewnay orfay ubtreessay orfay ichwhay esttay isway alsefay."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr ""
+"Ubstitutessay ewnay orfay ubtreessay ofway eetray orfay ichwhay esttay isway "
+"uetray."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr ""
+"Ubstitutessay ewnay orfay ubtreessay ofway eetray orfay ichwhay esttay isway "
+"alsefay."
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr "Ubstitutessay omfray alistway intoway eetray ondestructivelynay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+"   :test, or :test-not with a given item."
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway "
+"atisfyingsay Eqlityway,\n"
+"   :esttay, orway :esttay-otnay ithway away ivengay itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway "
+"atisfyingsay esttay(elementway)"
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway otnay "
+"atisfyingsay esttay(elway)"
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+"   returns false. List must be a proper list or a dotted list."
+msgstr ""
+"Eturnsray uetray ifway Objectway isway ethay amesay asway omesay ailtay "
+"ofway Istlay, otherwiseway\n"
+"   eturnsray alsefay. Istlay ustmay ebay away operpray istlay orway away "
+"ottedday istlay."
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr ""
+"Addway itemway otay istlay unlessway itway isway alreadyway away embermay"
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr "Eturnsray ethay unionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr "Esttay andway esttay-otnay othbay uppliedsay."
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr "Estructivelyday eturnsray ethay unionway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr "Eturnsray ethay intersectionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr ""
+"Estructivelyday eturnsray ethay intersectionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr ""
+"Eturnsray ethay elementsway ofway istlay1 ichwhay areway otnay inway istlay2."
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr ""
+"Estructivelyday eturnsray ethay elementsway ofway istlay1 ichwhay areway "
+"otnay inway istlay2."
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr ""
+"Eturnray ewnay istlay ofway elementsway appearingway exactlyway onceway "
+"inway LIST1 andway LIST2."
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+"   and LIST2."
+msgstr ""
+"Estructivelyday eturnray away istlay ithway elementsway ichwhay appearway "
+"utbay onceway inway LIST1\n"
+"   andway LIST2."
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr ""
+"Eturnsray T ifway everyway elementway inway istlay1 isway alsoway inway "
+"istlay2."
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr ""
+"Onstructcay away ewnay alistway ybay addingway ethay airpay (eykay . "
+"atumday) otay alistway"
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr ""
+"Onstructcay anway associationway istlay omfray eyskay andway ataday "
+"(addingway otay alistway)"
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr ""
+"Ethay istslay ofway eyskay andway ataday areway ofway unequalway engthlay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+"Eturnsray ethay onscay inway alistway osewhay arcay isway equalway (ybay "
+"away ivengay esttay orway EQL) otay\n"
+"   ethay Itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate.  If\n"
+"   key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay arcay atisfiessay "
+"ethay Edicatepray.  Ifway\n"
+"   eykay isway uppliedsay, applyway itway otay ethay arcay ofway eachway "
+"onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+"  If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay arcay oesday otnay "
+"atisfiysay ethay Edicatepray.\n"
+"  Ifway eykay isway uppliedsay, applyway itway otay ethay arcay ofway "
+"eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+"Eturnsray ethay onscay inway alistway osewhay drcay isway equalway (ybay "
+"away ivengay esttay orway EQL) otay\n"
+"   ethay Itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate.  If key\n"
+"  is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay drcay atisfiessay "
+"ethay Edicatepray.  Ifway eykay\n"
+"  isway uppliedsay, applyway itway otay ethay drcay ofway eachway onscay "
+"eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+"  If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay drcay oesday otnay "
+"atisfysay ethay Edicatepray.\n"
+"  Ifway eykay isway uppliedsay, applyway itway otay ethay drcay ofway "
+"eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+"  It Maps function over the arglists in the appropriate way. It is done when "
+"any\n"
+"  of the arglists runs out.  Until then, it CDRs down the arglists calling "
+"the\n"
+"  function and accumulating results as desired."
+msgstr ""
+"Isthay unctionfay isway alledcay ybay apcmay, apcarmay, apcanmay, aplmay, "
+"aplistmay, andway apconmay.\n"
+"  Itway Apsmay unctionfay overway ethay arglistsway inway ethay "
+"appropriateway ayway. Itway isway oneday enwhay anyway\n"
+"  ofway ethay arglistsway unsray outway.  Untilway enthay, itway Drscay "
+"ownday ethay arglistsway allingcay ethay\n"
+"  unctionfay andway accumulatingway esultsray asway esiredday."
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+"Appliesway nfay otay uccessivesay elementsway ofway istslay, eturnsray "
+"itsway econdsay argumentway."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr ""
+"Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray istlay "
+"ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr ""
+"Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray NCONC "
+"ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr "Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray ()."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr ""
+"Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray istlay "
+"ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr ""
+"Appliesway nfay otay uccessivesay Drscay ofway istslay, eturnsray NCONC "
+"ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway eqway "
+"otay itemway"
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr ""
+"Eturnray ethay irstfay airpay ofway alistway erewhay itemway EQ ethay eykay "
+"ofway airpay"
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+msgstr ""
+"Eturnsray istlay ithway allway elementsway ithway allway elementsway EQ otay "
+"ITEM eletedday."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a list of the Nth element of each of the sequences.  Used by MAP\n"
+"   and friends."
+msgstr ""
+"Eturnsray away istlay ofway ethay Thnay elementway ofway eachway ofway ethay "
+"equencessay.  Usedway ybay MAP\n"
+"   andway iendsfray."
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
+msgstr ""
+"Eturnsray away equencesay ofway ethay amesay ypetay asway SEQUENCE andway "
+"ethay ivengay LENGTH."
+
+#: target:code/seq.lisp
+msgid "Returns the broad class of which TYPE is a specific subclass."
+msgstr ""
+"Eturnsray ethay oadbray assclay ofway ichwhay TYPE isway away ecificspay "
+"ubclasssay."
+
+#: target:code/seq.lisp
+msgid "NIL output type invalid for this sequence function."
+msgstr "NIL outputway ypetay invalidway orfay isthay equencesay unctionfay."
+
+#: target:code/seq.lisp
+msgid "~S is too hairy for sequence functions."
+msgstr "~S isway ootay airyhay orfay equencesay unctionsfay."
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequence functions."
+msgstr "~S isway away adbay ypetay ecifierspay orfay equencesay unctionsfay."
+
+#: target:code/seq.lisp
+msgid "Error in ~S: ~S: Index too large."
+msgstr "Errorway inway ~S: ~S: Indexway ootay argelay."
+
+#: target:code/seq.lisp
+msgid "Returns a sequence of the given TYPE and LENGTH."
+msgstr "Eturnsray away equencesay ofway ethay ivengay TYPE andway LENGTH."
+
+#: target:code/seq.lisp
+msgid "Returns the element of SEQUENCE specified by INDEX."
+msgstr "Eturnsray ethay elementway ofway SEQUENCE ecifiedspay ybay INDEX."
+
+#: target:code/seq.lisp
+msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
+msgstr ""
+"Toresay NEWVAL asway ethay omponentcay ofway SEQUENCE ecifiedspay ybay INDEX."
+
+#: target:code/seq.lisp
+msgid "Returns an integer that is the length of SEQUENCE."
+msgstr "Eturnsray anway integerway atthay isway ethay engthlay ofway SEQUENCE."
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences"
+msgstr "~S isway away adbay ypetay ecifierspay orfay equencessay"
+
+#: target:code/seq.lisp
+msgid "Shouldn't happen!  Weird type"
+msgstr "Ouldnshay't appenhay!  Eirdway ypetay"
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                          length of ~S."
+msgstr ""
+"Ethay engthlay ofway ~S oesday otnay atchmay ethay ecifiedspay ~\n"
+"                          engthlay ofway ~S."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the given Type and Length, with elements initialized\n"
+"  to :Initial-Element."
+msgstr ""
+"Eturnsray away equencesay ofway ethay ivengay Ypetay andway Engthlay, ithway "
+"elementsway initializedway\n"
+"  otay :Initialway-Elementway."
+
+#: target:code/seq.lisp
+msgid ""
+"The length of ~S does not match the specified ~\n"
+"                           length  of ~S."
+msgstr ""
+"Ethay engthlay ofway ~S oesday otnay atchmay ethay ecifiedspay ~\n"
+"                           engthlay  ofway ~S."
+
+#: target:code/seq.lisp
+msgid "~S is a bad type specifier for sequences."
+msgstr "~S isway away adbay ypetay ecifierspay orfay equencessay."
+
+#: 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 ""
+"Eturnsray away opycay ofway away ubsequencesay ofway SEQUENCE tartingsay "
+"ithway elementway umbernay \n"
+"   START andway ontinuingcay otay ethay endway ofway SEQUENCE orway ethay "
+"optionalway END."
+
+#: target:code/seq.lisp
+msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
+msgstr ""
+"Eturnsray away opycay ofway SEQUENCE ichwhay isway EQUAL otay SEQUENCE utbay "
+"otnay EQ."
+
+#: target:code/seq.lisp
+msgid "Replace the specified elements of SEQUENCE with ITEM."
+msgstr "Eplaceray ethay ecifiedspay elementsway ofway SEQUENCE ithway ITEM."
+
+#: target:code/seq.lisp
+msgid ""
+"The target sequence is destructively modified by copying successive\n"
+"   elements into it from the source sequence."
+msgstr ""
+"Ethay argettay equencesay isway estructivelyday odifiedmay ybay opyingcay "
+"uccessivesay\n"
+"   elementsway intoway itway omfray ethay ourcesay equencesay."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a new sequence containing the same elements but in reverse order."
+msgstr ""
+"Eturnsray away ewnay equencesay ontainingcay ethay amesay elementsway utbay "
+"inway everseray orderway."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence of the same elements in reverse order; the argument\n"
+"   is destroyed."
+msgstr ""
+"Eturnsray away equencesay ofway ethay amesay elementsway inway everseray "
+"orderway; ethay argumentway\n"
+"   isway estroyedday."
+
+#: 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 ""
+"Eturnsray away ewnay equencesay ofway allway ethay argumentway equencessay "
+"oncatenatedcay ogethertay\n"
+"  ichwhay aresshay onay ucturestray ithway ethay originalway argumentway "
+"equencessay ofway ethay\n"
+"  ecifiedspay OUTPUT-TYPE-SPEC."
+
+#: 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 ""
+"FUNCTION ustmay aketay asway anymay argumentsway asway erethay areway "
+"equencessay ovidedpray.  Ethay \n"
+"   esultray isway away equencesay uchsay atthay elementway i isway ethay "
+"esultray ofway applyingway FUNCTION\n"
+"   otay elementway i ofway eachway ofway ethay argumentway equencessay."
+
+#: 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 ""
+"PREDICATE isway appliedway otay ethay elementsway ithway indexway 0 ofway "
+"ethay equencessay, enthay \n"
+"   ossiblypay otay osethay ithway indexway 1, andway osay onway.  SOME "
+"eturnsray ethay irstfay \n"
+"   onnay-() aluevay encounteredway, orway () ifway ethay endway ofway away "
+"equencesay isway eachedray."
+
+#: 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 ""
+"PREDICATE isway appliedway otay ethay elementsway ithway indexway 0 ofway "
+"ethay equencessay, enthay\n"
+"   ossiblypay otay osethay ithway indexway 1, andway osay onway.  EVERY "
+"eturnsray () asway oonsay\n"
+"   asway anyway invocationway ofway PREDICATE eturnsray (), orway T ifway "
+"everyway invocationway\n"
+"   isway onnay-()."
+
+#: 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 ""
+"PREDICATE isway appliedway otay ethay elementsway ithway indexway 0 ofway "
+"ethay equencessay, enthay \n"
+"   ossiblypay otay osethay ithway indexway 1, andway osay onway.  NOTANY "
+"eturnsray () asway oonsay\n"
+"   asway anyway invocationway ofway PREDICATE eturnsray away onnay-() "
+"aluevay, orway T ifway ethay endway\n"
+"   ofway away equencesay isway eachedray."
+
+#: 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 ""
+"PREDICATE isway appliedway otay ethay elementsway ithway indexway 0 ofway "
+"ethay equencessay, enthay\n"
+"   ossiblypay otay osethay ithway indexway 1, andway osay onway.  NOTEVERY "
+"eturnsray T asway oonsay\n"
+"   asway anyway invocationway ofway PREDICATE eturnsray (), orway () ifway "
+"everyway invocationway\n"
+"   isway onnay-()."
+
+#: target:code/seq.lisp
+msgid ""
+"The specified Sequence is ``reduced'' using the given Function.\n"
+"  See manual for details."
+msgstr ""
+"Ethay ecifiedspay Equencesay isway ``educedray'' usingway ethay ivengay "
+"Unctionfay.\n"
+"  Eesay anualmay orfay etailsday."
+
+#: target:code/seq.lisp
+msgid "Coerces the Object to an object of type Output-Type-Spec."
+msgstr ""
+"Oercescay ethay Objectway otay anway objectway ofway ypetay Outputway-Ypetay-"
+"Ecspay."
+
+#: target:code/seq.lisp
+msgid "~S can't be converted to type ~S."
+msgstr "~S ancay't ebay onvertedcay otay ypetay ~S."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the specified Item from\n"
+"  the given Sequence."
+msgstr ""
+"Eturnsray away equencesay ormedfay ybay estructivelyday emovingray ethay "
+"ecifiedspay Itemway omfray\n"
+"  ethay ivengay Equencesay."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a sequence formed by destructively removing the elements satisfying\n"
+"  the specified Predicate from the given Sequence."
+msgstr ""
+"Eturnsray away equencesay ormedfay ybay estructivelyday emovingray ethay "
+"elementsway atisfyingsay\n"
+"  ethay ecifiedspay Edicatepray omfray ethay ivengay Equencesay."
+
+#: 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 ""
+"Eturnsray away equencesay ormedfay ybay estructivelyday emovingray ethay "
+"elementsway otnay\n"
+"  atisfyingsay ethay ecifiedspay Edicatepray omfray ethay ivengay Equencesay."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
+"   EQL) with ITEM removed."
+msgstr ""
+"Eturnsray away opycay ofway SEQUENCE ithway elementsway atisfyingsay ethay "
+"esttay (efaultday isway\n"
+"   EQL) ithway ITEM emovedray."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is non-null are removed"
+msgstr ""
+"Eturnsray away opycay ofway equencesay ithway elementsway uchsay atthay "
+"edicatepray(elementway)\n"
+"   isway onnay-ullnay areway emovedray"
+
+#: target:code/seq.lisp
+msgid ""
+"Returns a copy of sequence with elements such that predicate(element)\n"
+"   is null are removed"
+msgstr ""
+"Eturnsray away opycay ofway equencesay ithway elementsway uchsay atthay "
+"edicatepray(elementway)\n"
+"   isway ullnay areway emovedray"
+
+#: 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 ""
+"Ethay elementsway ofway Equencesay areway omparedcay airwisepay, andway "
+"ifway anyway wotay atchmay,\n"
+"   ethay oneway occuringway earlierway isway iscardedday, unlessway FROM-END "
+"isway uetray, inway\n"
+"   ichwhay asecay ethay oneway aterlay inway ethay equencesay isway "
+"iscardedday.  Ethay esultingray\n"
+"   equencesay isway eturnedray.\n"
+"\n"
+"   Ethay :TEST-NOT argumentway isway eprecatedday."
+
+#: 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 ""
+"Ethay elementsway ofway Equencesay areway examinedway, andway ifway anyway "
+"wotay atchmay, oneway isway\n"
+"   iscardedday.  Ethay esultingray equencesay, ichwhay aymay ebay ormedfay "
+"ybay estroyingday ethay\n"
+"   ivengay equencesay, isway eturnedray.\n"
+"\n"
+"   Ethay :TEST-NOT argumentway isway eprecatedday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"  exceptway atthay allway elementsway equalway otay Oldway areway eplacedray "
+"ithway Ewnay.  Eesay anualmay\n"
+"  orfay etailsday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"  exceptway atthay allway elementsway atisfyingsay ethay Esttay areway "
+"eplacedray ithway Ewnay.  Eesay\n"
+"  anualmay orfay etailsday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"  exceptway atthay allway elementsway otnay atisfyingsay ethay Esttay areway "
+"eplacedray ithway Ewnay.\n"
+"  Eesay anualmay orfay etailsday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"  exceptway atthay allway elementsway equalway otay Oldway areway eplacedray "
+"ithway Ewnay.  Ethay Equencesay\n"
+"  aymay ebay estroyedday.  Eesay anualmay orfay etailsday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"   exceptway atthay allway elementsway atisfyingsay ethay Esttay areway "
+"eplacedray ithway Ewnay.  Ethay\n"
+"   Equencesay aymay ebay estroyedday.  Eesay anualmay orfay etailsday."
+
+#: 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 ""
+"Eturnsray away equencesay ofway ethay amesay indkay asway Equencesay ithway "
+"ethay amesay elementsway\n"
+"   exceptway atthay allway elementsway otnay atisfyingsay ethay Esttay "
+"areway eplacedray ithway Ewnay.\n"
+"   Ethay Equencesay aymay ebay estroyedday.  Eesay anualmay orfay etailsday."
+
+#: 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 ""
+"Eturnsray ethay erozay-originway indexway ofway ethay irstfay elementway "
+"inway SEQUENCE\n"
+"   atisfyingsay ethay esttay (efaultday isway EQL) ithway ethay ivengay ITEM"
+
+#: target:code/seq.lisp
+msgid "Returns the zero-origin index of the first element satisfying test(el)"
+msgstr ""
+"Eturnsray ethay erozay-originway indexway ofway ethay irstfay elementway "
+"atisfyingsay esttay(elway)"
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the zero-origin index of the first element not satisfying test(el)"
+msgstr ""
+"Eturnsray ethay erozay-originway indexway ofway ethay irstfay elementway "
+"otnay atisfyingsay esttay(elway)"
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the first element in SEQUENCE satisfying the test (default\n"
+"   is EQL) with the given ITEM"
+msgstr ""
+"Eturnsray ethay irstfay elementway inway SEQUENCE atisfyingsay ethay esttay "
+"(efaultday\n"
+"   isway EQL) ithway ethay ivengay ITEM"
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE satisfying the test."
+msgstr ""
+"Eturnsray ethay irstfay elementway inway SEQUENCE atisfyingsay ethay esttay."
+
+#: target:code/seq.lisp
+msgid "Returns the first element in SEQUENCE not satisfying the test."
+msgstr ""
+"Eturnsray ethay irstfay elementway inway SEQUENCE otnay atisfyingsay ethay "
+"esttay."
+
+#: target:code/seq.lisp
+msgid ""
+"Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
+"   which defaults to EQL."
+msgstr ""
+"Eturnsray ethay umbernay ofway elementsway inway SEQUENCE atisfyingsay away "
+"esttay ithway ITEM,\n"
+"   ichwhay efaultsday otay EQL."
+
+#: target:code/seq.lisp
+msgid ":TEST and :TEST-NOT are both present."
+msgstr ":TEST andway :TEST-NOT areway othbay esentpray."
+
+#: target:code/seq.lisp
+msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
+msgstr ""
+"Eturnsray ethay umbernay ofway elementsway inway SEQUENCE atisfyingsay TEST"
+"(elway)."
+
+#: 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 ""
+"Ethay ecifiedspay ubsequencessay ofway Equencesay1 andway Equencesay2 areway "
+"omparedcay\n"
+"   elementway-iseway.  Ifway eythay areway ofway equalway engthlay andway "
+"atchmay inway everyway elementway, ethay\n"
+"   esultray isway NIL.  Otherwiseway, ethay esultray isway away onnay-"
+"egativenay integerway, ethay indexway\n"
+"   ithinway Equencesay1 ofway ethay eftmostlay ositionpay atway ichwhay "
+"eythay ailfay otay atchmay; orway,\n"
+"   ifway oneway isway ortershay anthay andway away atchingmay efixpray ofway "
+"ethay otherway, ethay indexway ithinway\n"
+"   Equencesay1 eyondbay ethay astlay ositionpay estedtay isway eturnedray.  "
+"Ifway away onnay-Ilnay\n"
+"   :Omfray-Endway eywordkay argumentway isway ivengay, enthay oneway usplay "
+"ethay indexway ofway ethay\n"
+"   ightmostray ositionpay inway ichwhay ethay equencessay ifferday isway "
+"eturnedray."
+
+#: 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 ""
+"Away earchsay isway onductedcay usingway EQL orfay ethay irstfay "
+"ubsequencesay ofway equencesay2 \n"
+"   ichwhay elementway-iseway atchesmay equencesay1.  Ifway erethay isway "
+"uchsay away ubsequencesay inway \n"
+"   equencesay2, ethay indexway ofway ethay itsway eftmostlay elementway "
+"isway eturnedray; \n"
+"   otherwiseway () isway eturnedray."
+
+#: target:code/string.lisp
+msgid ""
+"Test if C is a surrogate.  C may be either an integer or a\n"
+"  character. Surrogate-type indicates what kind of surrogate to test\n"
+"  for.  :High means to test for the high (leading) surrogate; :Low\n"
+"  tests for the low (trailing surrogate).  A value of :Any or Nil\n"
+"  tests for any surrogate value (high or low)."
+msgstr ""
+"Esttay ifway C isway away urrogatesay.  C aymay ebay eitherway anway "
+"integerway orway away\n"
+"  aracterchay. Urrogatesay-ypetay indicatesway atwhay indkay ofway "
+"urrogatesay otay esttay\n"
+"  orfay.  :Ighhay eansmay otay esttay orfay ethay ighhay (eadinglay) "
+"urrogatesay; :Owlay\n"
+"  eststay orfay ethay owlay (ailingtray urrogatesay).  Away aluevay ofway :"
+"Anyway orway Ilnay\n"
+"  eststay orfay anyway urrogatesay aluevay (ighhay orway owlay)."
+
+#: target:code/string.lisp
+msgid ""
+"Convert the given Hi and Lo surrogate characters to the\n"
+"  corresponding codepoint value"
+msgstr ""
+"Onvertcay ethay ivengay Ihay andway Olay urrogatesay aracterschay otay "
+"ethay\n"
+"  orrespondingcay odepointcay aluevay"
+
+#: target:code/string.lisp
+msgid ""
+"Return the codepoint value from String at position I.  If that\n"
+"  position is a surrogate, it is combined with either the previous or\n"
+"  following character (when possible) to compute the codepoint.  The\n"
+"  second return value is NIL if the position is not a surrogate pair.\n"
+"  Otherwise +1 or -1 is returned if the position is the high or low\n"
+"  surrogate value, respectively."
+msgstr ""
+"Eturnray ethay odepointcay aluevay omfray Ingstray atway ositionpay Iway.  "
+"Ifway atthay\n"
+"  ositionpay isway away urrogatesay, itway isway ombinedcay ithway eitherway "
+"ethay eviouspray orway\n"
+"  ollowingfay aracterchay (enwhay ossiblepay) otay omputecay ethay "
+"odepointcay.  Ethay\n"
+"  econdsay eturnray aluevay isway NIL ifway ethay ositionpay isway otnay "
+"away urrogatesay airpay.\n"
+"  Otherwiseway +1 orway -1 isway eturnedray ifway ethay ositionpay isway "
+"ethay ighhay orway owlay\n"
+"  urrogatesay aluevay, espectivelyray."
+
+#: target:code/string.lisp
+msgid ""
+"Return the high and low surrogate characters for Codepoint.  If\n"
+"  Codepoint is in the BMP, the first return value is the corresponding\n"
+"  character and the second is NIL."
+msgstr ""
+"Eturnray ethay ighhay andway owlay urrogatesay aracterschay orfay "
+"Odepointcay.  Ifway\n"
+"  Odepointcay isway inway ethay BMP, ethay irstfay eturnray aluevay isway "
+"ethay orrespondingcay\n"
+"  aracterchay andway ethay econdsay isway NIL."
+
+#: target:code/string.lisp
+msgid ""
+"Set the codepoint at string position I to the Codepoint.  If the\n"
+"  codepoint requires a surrogate pair, the high (leading surrogate) is\n"
+"  stored at position I and the low (trailing) surrogate is stored at\n"
+"  I+1"
+msgstr ""
+"Etsay ethay odepointcay atway ingstray ositionpay Iway otay ethay "
+"Odepointcay.  Ifway ethay\n"
+"  odepointcay equiresray away urrogatesay airpay, ethay ighhay (eadinglay "
+"urrogatesay) isway\n"
+"  toredsay atway ositionpay Iway andway ethay owlay (ailingtray) urrogatesay "
+"isway toredsay atway\n"
+"  Iway+1"
+
+#: target:code/string.lisp
+msgid ""
+"Check if String is a valid UTF-16 string.  If the string is valid,\n"
+"  T is returned.  If the string is not valid, NIL is returned, and the\n"
+"  second value is the index into the string of the invalid character.\n"
+"  A string is also invalid if it contains any unassigned codepoints."
+msgstr ""
+"Eckchay ifway Ingstray isway away alidvay UTF-16 ingstray.  Ifway ethay "
+"ingstray isway alidvay,\n"
+"  T isway eturnedray.  Ifway ethay ingstray isway otnay alidvay, NIL isway "
+"eturnedray, andway ethay\n"
+"  econdsay aluevay isway ethay indexway intoway ethay ingstray ofway ethay "
+"invalidway aracterchay.\n"
+"  Away ingstray isway alsoway invalidway ifway itway ontainscay anyway "
+"unassignedway odepointscay."
+
+#: target:code/string.lisp
+msgid ""
+"Coerces X into a string.  If X is a string, X is returned.  If X is a\n"
+"  symbol, X's pname is returned.  If X is a character then a one element\n"
+"  string containing that character is returned.  If X cannot be coerced\n"
+"  into a string, an error occurs."
+msgstr ""
+"Oercescay X intoway away ingstray.  Ifway X isway away ingstray, X isway "
+"eturnedray.  Ifway X isway away\n"
+"  ymbolsay, X's namepay isway eturnedray.  Ifway X isway away aracterchay "
+"enthay away oneway elementway\n"
+"  ingstray ontainingcay atthay aracterchay isway eturnedray.  Ifway X "
+"annotcay ebay oercedcay\n"
+"  intoway away ingstray, anway errorway occursway."
+
+#: target:code/string.lisp
+msgid "~S cannot be coerced to a string."
+msgstr "~S annotcay ebay oercedcay otay away ingstray."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string and a non-negative integer index less than the length of\n"
+"  the string, returns the character object representing the character at\n"
+"  that position in the string."
+msgstr ""
+"Ivengay away ingstray andway away onnay-egativenay integerway indexway "
+"esslay anthay ethay engthlay ofway\n"
+"  ethay ingstray, eturnsray ethay aracterchay objectway epresentingray ethay "
+"aracterchay atway\n"
+"  atthay ositionpay inway ethay ingstray."
+
+#: target:code/string.lisp
+msgid ""
+"SCHAR returns the character object at an indexed position in a string\n"
+"  just as CHAR does, except the string must be a simple-string."
+msgstr ""
+"SCHAR eturnsray ethay aracterchay objectway atway anway indexedway "
+"ositionpay inway away ingstray\n"
+"  ustjay asway CHAR oesday, exceptway ethay ingstray ustmay ebay away "
+"implesay-ingstray."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay esslay anthay\n"
+"  ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay=)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay eatergray anthay\n"
+"  ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay=)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay esslay anthay\n"
+"  orway equalway otay ethay econdsay ingstray, eturnsray ethay ongestlay "
+"ommoncay efixpray\n"
+"  (usingway archay=) ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay eatergray\n"
+"  anthay orway equalway otay ethay econdsay ingstray, eturnsray ethay "
+"ongestlay ommoncay efixpray\n"
+"  (usingway archay=) ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char=)."
+msgstr ""
+"Ivengay wotay ingsstray (ingstray1 andway ingstray2), andway optionalway "
+"integersway tartsay1,\n"
+"  tartsay2, endway1 andway endway2, omparescay aracterschay inway ingstray1 "
+"otay aracterschay inway\n"
+"  ingstray2 (usingway archay=)."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway otnay "
+"exicographicallylay equalway\n"
+"  otay ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay=)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Return a new string with the case folded according to Casing as follows:\n"
+"\n"
+"  :SIMPLE  Unicode simple case folding (preserving length)\n"
+"  :FULL    Unicode full case folding (possibly changing length)\n"
+"\n"
+"  Default Casing is :SIMPLE."
+msgstr ""
+"Eturnray away ewnay ingstray ithway ethay asecay oldedfay accordingway otay "
+"Asingcay asway ollowsfay:\n"
+"\n"
+"  :SIMPLE  Unicodeway implesay asecay oldingfay (eservingpray engthlay)\n"
+"  :FULL    Unicodeway ullfay asecay oldingfay (ossiblypay angingchay "
+"engthlay)\n"
+"\n"
+"  Efaultday Asingcay isway :SIMPLE."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char-equal)."
+msgstr ""
+"Ivengay wotay ingsstray (ingstray1 andway ingstray2), andway optionalway "
+"integersway tartsay1,\n"
+"  tartsay2, endway1 andway endway2, omparescay aracterschay inway ingstray1 "
+"otay aracterschay inway\n"
+"  ingstray2 (usingway archay-equalway)."
+
+#: target:code/string.lisp
+msgid "Improper bounds for string comparison."
+msgstr "Improperway oundsbay orfay ingstray omparisoncay."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char-"
+"equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway otnay "
+"exicographicallylay equalway\n"
+"  otay ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay-equalway)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid "Improper substring for comparison."
+msgstr "Improperway ubstringsay orfay omparisoncay."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay esslay anthay\n"
+"  ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay-equalway)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay eatergray anthay\n"
+"  ethay econdsay ingstray, eturnsray ethay ongestlay ommoncay efixpray "
+"(usingway archay-equalway)\n"
+"  ofway ethay wotay ingsstray. Otherwiseway, eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay eatergray\n"
+"  anthay orway equalway otay ethay econdsay ingstray, eturnsray ethay "
+"ongestlay ommoncay efixpray\n"
+"  (usingway archay-equalway) ofway ethay wotay ingsstray. Otherwiseway, "
+"eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+"Ivengay wotay ingsstray, ifway ethay irstfay ingstray isway "
+"exicographicallylay esslay anthay\n"
+"  orway equalway otay ethay econdsay ingstray, eturnsray ethay ongestlay "
+"ommoncay efixpray\n"
+"  (usingway archay-equalway) ofway ethay wotay ingsstray. Otherwiseway, "
+"eturnsray ()."
+
+#: target:code/string.lisp
+msgid ""
+"Given a character count and an optional fill character, makes and returns\n"
+"  a new string Count long filled with the fill character."
+msgstr ""
+"Ivengay away aracterchay ountcay andway anway optionalway illfay "
+"aracterchay, akesmay andway eturnsray\n"
+"  away ewnay ingstray Ountcay onglay illedfay ithway ethay illfay "
+"aracterchay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase."
+msgstr ""
+"Ivengay away ingstray, eturnsray away ewnay ingstray atthay isway away "
+"opycay ofway itway ithway allway\n"
+"  owerlay asecay alphabeticway aracterschay onvertedcay otay uppercaseway."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+"Ivengay away ingstray, eturnsray away ewnay ingstray atthay isway away "
+"opycay ofway itway ithway allway\n"
+"  owerlay asecay alphabeticway aracterschay onvertedcay otay uppercaseway.  "
+"Asingcay isway\n"
+"  :implesay orway :ullfay orfay implesay orway ullfay asecay onversioncay, "
+"espectivelyray."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase."
+msgstr ""
+"Ivengay away ingstray, eturnsray away ewnay ingstray atthay isway away "
+"opycay ofway itway ithway allway\n"
+"  upperway asecay alphabeticway aracterschay onvertedcay otay owercaselay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+"Ivengay away ingstray, eturnsray away ewnay ingstray atthay isway away "
+"opycay ofway itway ithway allway\n"
+"  upperway asecay alphabeticway aracterschay onvertedcay otay owercaselay.  "
+"Asingcay isway\n"
+"  :implesay orway :ullfay orfay implesay orway ullfay asecay onversioncay, "
+"espectivelyray."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+"Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway "
+"ethay irstfay\n"
+"  aracterchay ofway eachway ``ordway'' onvertedcay otay upperway-asecay, "
+"andway emainingray\n"
+"  arschay inway ethay ordway onvertedcay otay owerlay asecay. Away "
+"``ordway'' isway efinedday\n"
+"  otay ebay away ingstray ofway asecay-odifiablemay aracterschay elimitedday "
+"ybay\n"
+"  onnay-asecay-odifiablemay arschay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars.  Casing is :simple or :full for\n"
+"  simple or full case conversion, respectively."
+msgstr ""
+"Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway "
+"ethay irstfay\n"
+"  aracterchay ofway eachway ``ordway'' onvertedcay otay upperway-asecay, "
+"andway emainingray\n"
+"  arschay inway ethay ordway onvertedcay otay owerlay asecay. Away "
+"``ordway'' isway efinedday\n"
+"  otay ebay away ingstray ofway asecay-odifiablemay aracterschay elimitedday "
+"ybay\n"
+"  onnay-asecay-odifiablemay arschay.  Asingcay isway :implesay orway :ullfay "
+"orfay\n"
+"  implesay orway ullfay asecay onversioncay, espectivelyray."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all lower case alphabetic\n"
+"  characters converted to uppercase."
+msgstr ""
+"Ivengay away ingstray, eturnsray atthay ingstray ithway allway owerlay "
+"asecay alphabeticway\n"
+"  aracterschay onvertedcay otay uppercaseway."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all upper case alphabetic\n"
+"  characters converted to lowercase."
+msgstr ""
+"Ivengay away ingstray, eturnsray atthay ingstray ithway allway upperway "
+"asecay alphabeticway\n"
+"  aracterschay onvertedcay otay owercaselay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+"Ivengay away ingstray, eturnsray atthay ingstray ithway ethay irstfay\n"
+"  aracterchay ofway eachway ``ordway'' onvertedcay otay upperway-asecay, "
+"andway emainingray\n"
+"  arschay inway ethay ordway onvertedcay otay owerlay asecay. Away "
+"``ordway'' isway efinedday\n"
+"  otay ebay away ingstray ofway asecay-odifiablemay aracterschay elimitedday "
+"ybay\n"
+"  onnay-asecay-odifiablemay arschay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray\n"
+"  away opycay ofway ethay ingstray ithway ethay aracterschay inway ethay "
+"etsay emovedray omfray ethay\n"
+"  eftlay endway.  Ifway ethay etsay ofway aracterschay isway away ingstray, "
+"urrogatessay illway ebay\n"
+"  operlypray andledhay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray\n"
+"  away opycay ofway ethay ingstray ithway ethay aracterschay inway ethay "
+"etsay emovedray omfray ethay\n"
+"  ightray endway.  Ifway ethay etsay ofway aracterschay isway away ingstray, "
+"urrogatessay illway ebay\n"
+"  operlypray andledhay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray away\n"
+"  opycay ofway ethay ingstray ithway ethay aracterschay inway ethay etsay "
+"emovedray omfray othbay\n"
+"  endsway.  Ifway ethay etsay ofway aracterschay isway away ingstray, "
+"urrogatessay illway ebay\n"
+"  operlypray andledhay."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray\n"
+"  away opycay ofway ethay ingstray ithway ethay aracterschay inway ethay "
+"etsay emovedray omfray ethay\n"
+"  eftlay endway."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray\n"
+"  away opycay ofway ethay ingstray ithway ethay aracterschay inway ethay "
+"etsay emovedray omfray ethay\n"
+"  ightray endway."
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends."
+msgstr ""
+"Ivengay away etsay ofway aracterschay (away istlay orway ingstray) andway "
+"away ingstray, eturnsray away\n"
+"  opycay ofway ethay ingstray ithway ethay aracterschay inway ethay etsay "
+"emovedray omfray othbay\n"
+"  endsway."
+
+#: target:code/string.lisp
+msgid ""
+"GLYPH returns the glyph at the indexed position in a string, and the\n"
+"  position of the next glyph (or NIL) as a second value.  A glyph is\n"
+"  a substring consisting of the character at INDEX followed by all\n"
+"  subsequent combining characters."
+msgstr ""
+"GLYPH eturnsray ethay yphglay atway ethay indexedway ositionpay inway away "
+"ingstray, andway ethay\n"
+"  ositionpay ofway ethay extnay yphglay (orway NIL) asway away econdsay "
+"aluevay.  Away yphglay isway\n"
+"  away ubstringsay onsistingcay ofway ethay aracterchay atway INDEX "
+"ollowedfay ybay allway\n"
+"  ubsequentsay ombiningcay aracterschay."
+
+#: target:code/string.lisp
+msgid ""
+"SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
+"  except that the string must be a simple-string"
+msgstr ""
+"SGLYPH eturnsray ethay yphglay atway ethay indexedway ositionpay, ethay "
+"amesay asway GLYPH,\n"
+"  exceptway atthay ethay ingstray ustmay ebay away implesay-ingstray"
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form D (NFD) using the\n"
+"  canonical decomposition.  The NFD string is returned"
+msgstr ""
+"Onvertcay Ingstray otay Unicodeway Ormalizationnay Ormfay D (NFD) usingway "
+"ethay\n"
+"  anonicalcay ecompositionday.  Ethay NFD ingstray isway eturnedray"
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
+"  compatible decomposition form.  The NFKD string is returned."
+msgstr ""
+"Onvertcay Ingstray otay Unicodeway Ormalizationnay Ormfay KD (NFKD) uisngway "
+"ethay\n"
+"  ompatiblecay ecompositionday ormfay.  Ethay NFKD ingstray isway eturnedray."
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form C (NFC).  If the\n"
+"  string a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+"Onvertcay Ingstray otay Unicodeway Ormalizationnay Ormfay C (NFC).  Ifway "
+"ethay\n"
+"  ingstray away implesay ingstray andway isway alreadyway ormalizednay, "
+"ethay originalway\n"
+"  ingstray isway eturnedray."
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KC (NFKC).  If the\n"
+"  string is a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+"Onvertcay Ingstray otay Unicodeway Ormalizationnay Ormfay KC (NFKC).  Ifway "
+"ethay\n"
+"  ingstray isway away implesay ingstray andway isway alreadyway "
+"ormalizednay, ethay originalway\n"
+"  ingstray isway eturnedray."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"Compares the substrings specified by String1 and String2 and returns\n"
+"NIL if the strings are String=, or the lowest index of String1 in\n"
+"which the two differ. If one string is longer than the other and the\n"
+"shorter is a prefix of the longer, the length of the shorter + start1 is\n"
+"returned. This would be done on the Vax with CMPC3. The arguments must\n"
+"be simple strings."
+msgstr ""
+"Omparescay ethay ubstringssay ecifiedspay ybay Ingstray1 andway Ingstray2 "
+"andway eturnsray\n"
+"NIL ifway ethay ingsstray areway Ingstray=, orway ethay owestlay indexway "
+"ofway Ingstray1 inway\n"
+"ichwhay ethay wotay ifferday. Ifway oneway ingstray isway ongerlay anthay "
+"ethay otherway andway ethay\n"
+"ortershay isway away efixpray ofway ethay ongerlay, ethay engthlay ofway "
+"ethay ortershay + tartsay1 isway\n"
+"eturnedray. Isthay ouldway ebay oneday onway ethay Axvay ithway CMPC3. Ethay "
+"argumentsway ustmay\n"
+"ebay implesay ingsstray."
+
+#: target:code/mipsstrops.lisp
+msgid "Like %sp-string-compare, only backwards."
+msgstr "Ikelay %spay-ingstray-omparecay, onlyway ackwardsbay."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask\n"
+"  The codes of the characters of String from Start to End are used as "
+"indices\n"
+"  into the Table, which is a U-Vector of 8-bit bytes. When the number "
+"picked\n"
+"  up from the table bitwise ANDed with Mask is non-zero, the current\n"
+"  index into the String is returned. The corresponds to SCANC on the Vax."
+msgstr ""
+"%SP-Indfay-Aracterchay-Ithway-Attributeway  Ingstray, Tartsay, Endway, "
+"Abletay, Askmay\n"
+"  Ethay odescay ofway ethay aracterschay ofway Ingstray omfray Tartsay otay "
+"Endway areway usedway asway indicesway\n"
+"  intoway ethay Abletay, ichwhay isway away U-Ectorvay ofway 8-itbay "
+"ytesbay. Enwhay ethay umbernay ickedpay\n"
+"  upway omfray ethay abletay itwisebay Andedway ithway Askmay isway onnay-"
+"erozay, ethay urrentcay\n"
+"  indexway intoway ethay Ingstray isway eturnedray. Ethay orrespondscay otay "
+"SCANC onway ethay Axvay."
+
+#: target:code/mipsstrops.lisp
+msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
+msgstr ""
+"Ikelay %SP-Indfay-Aracterchay-Ithway-Attributeway, onlyway drawkcabsay."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character  String, Start, End, Character\n"
+"  Searches String for the Character from Start to End.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+"%SP-Indfay-Aracterchay  Ingstray, Tartsay, Endway, Aracterchay\n"
+"  Earchessay Ingstray orfay ethay Aracterchay omfray Tartsay otay Endway.  "
+"Ifway ethay aracterchay isway\n"
+"  oundfay, ethay orrespondingcay indexway intoway Ingstray isway eturnedray, "
+"otherwiseway NIL isway\n"
+"  eturnedray."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Reverse-Find-Character  String, Start, End, Character\n"
+"  Searches String for Character from End to Start.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+"%SP-Everseray-Indfay-Aracterchay  Ingstray, Tartsay, Endway, Aracterchay\n"
+"  Earchessay Ingstray orfay Aracterchay omfray Endway otay Tartsay.  Ifway "
+"ethay aracterchay isway\n"
+"  oundfay, ethay orrespondingcay indexway intoway Ingstray isway eturnedray, "
+"otherwiseway NIL isway\n"
+"  eturnedray."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the first character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+"%SP-Kipsay-Aracterchay  Ingstray, Tartsay, Endway, Aracterchay\n"
+"  Eturnsray ethay indexway ofway ethay irstfay aracterchay etweenbay Tartsay "
+"andway Endway ichwhay\n"
+"  isway otnay Archay=  otay Aracterchay, orway NIL ifway erethay isway onay "
+"uchsay aracterchay."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the last character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+"%SP-Kipsay-Aracterchay  Ingstray, Tartsay, Endway, Aracterchay\n"
+"  Eturnsray ethay indexway ofway ethay astlay aracterchay etweenbay Tartsay "
+"andway Endway ichwhay\n"
+"  isway otnay Archay=  otay Aracterchay, orway NIL ifway erethay isway onay "
+"uchsay aracterchay."
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-String-Search  String1, Start1, End1, String2, Start2, End2\n"
+"   Searches for the substring of String1 specified in String2.\n"
+"   Returns an index into String2 or NIL if the substring wasn't\n"
+"   found."
+msgstr ""
+"%SP-Ingstray-Earchsay  Ingstray1, Tartsay1, Endway1, Ingstray2, Tartsay2, "
+"Endway2\n"
+"   Earchessay orfay ethay ubstringsay ofway Ingstray1 ecifiedspay inway "
+"Ingstray2.\n"
+"   Eturnsray anway indexway intoway Ingstray2 orway NIL ifway ethay "
+"ubstringsay asnway't\n"
+"   oundfay."
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current special\n"
+"  value is returned."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Isthay ymbolsay's urrentcay "
+"ecialspay\n"
+"  aluevay isway eturnedray."
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  Return NIL if this symbol is\n"
+"  unbound, T if it has a value."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Eturnray NIL ifway isthay "
+"ymbolsay isway\n"
+"  unboundway, T ifway itway ashay away aluevay."
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's special value cell is\n"
+"  set to the specified new value."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Isthay ymbolsay's ecialspay "
+"aluevay ellcay isway\n"
+"  etsay otay ethay ecifiedspay ewnay aluevay."
+
+#: target:code/symbol.lisp
+msgid "Nihil ex nihil, can't set NIL."
+msgstr "Ihilnay exway ihilnay, ancay't etsay NIL."
+
+#: target:code/symbol.lisp
+msgid "Veritas aeterna, can't set T."
+msgstr "Eritasvay aeternaway, ancay't etsay T."
+
+#: target:code/symbol.lisp
+msgid "Can't set keywords."
+msgstr "Ancay't etsay eywordskay."
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol is made unbound,\n"
+"  removing any value it may currently have."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Isthay ymbolsay isway "
+"ademay unboundway,\n"
+"  emovingray anyway aluevay itway aymay urrentlycay avehay."
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current definition\n"
+"   is returned.  Settable with SETF."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Isthay ymbolsay's urrentcay "
+"efinitionday\n"
+"   isway eturnedray.  Ettablesay ithway SETF."
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its property list."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Eturnray itsway opertypray "
+"istlay."
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its print name."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Eturnray itsway intpray "
+"amenay."
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its package."
+msgstr ""
+"VARIABLE ustmay evaluateway otay away ymbolsay.  Eturnray itsway ackagepay."
+
+#: target:code/symbol.lisp
+msgid "Make and return a new symbol with the STRING as its print name."
+msgstr ""
+"Akemay andway eturnray away ewnay ymbolsay ithway ethay STRING asway itsway "
+"intpray amenay."
+
+#: target:code/symbol.lisp
+msgid "Return the hash value for symbol."
+msgstr "Eturnray ethay ashhay aluevay orfay ymbolsay."
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on the property list of SYMBOL for the specified INDICATOR.  If this\n"
+"  is found, return the associated value, else return DEFAULT."
+msgstr ""
+"Ooklay onway ethay opertypray istlay ofway SYMBOL orfay ethay ecifiedspay "
+"INDICATOR.  Ifway isthay\n"
+"  isway oundfay, eturnray ethay associatedway aluevay, elseway eturnray "
+"DEFAULT."
+
+#: target:code/symbol.lisp
+msgid "~S has an odd number of items in its property list."
+msgstr ""
+"~S ashay anway oddway umbernay ofway itemsway inway itsway opertypray istlay."
+
+#: target:code/symbol.lisp
+msgid ""
+"The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n"
+"  Returns VALUE."
+msgstr ""
+"Ethay VALUE isway addedway asway away opertypray ofway SYMBOL underway ethay "
+"ecifiedspay INDICATOR.\n"
+"  Eturnsray VALUE."
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on property list of SYMBOL for property with specified\n"
+"  INDICATOR.  If found, splice this indicator and its value out of\n"
+"  the plist, and return the tail of the original list starting with\n"
+"  INDICATOR.  If not found, return () with no side effects.\n"
+"\n"
+"  NOTE: The ANSI specification requires REMPROP to return true (not false)\n"
+"  or false (the symbol NIL). Portable code should not rely on any other "
+"value."
+msgstr ""
+"Ooklay onway opertypray istlay ofway SYMBOL orfay opertypray ithway "
+"ecifiedspay\n"
+"  INDICATOR.  Ifway oundfay, licespay isthay indicatorway andway itsway "
+"aluevay outway ofway\n"
+"  ethay istplay, andway eturnray ethay ailtay ofway ethay originalway istlay "
+"tartingsay ithway\n"
+"  INDICATOR.  Ifway otnay oundfay, eturnray () ithway onay idesay "
+"effectsway.\n"
+"\n"
+"  NOTE: Ethay ANSI ecificationspay equiresray REMPROP otay eturnray uetray "
+"(otnay alsefay)\n"
+"  orway alsefay (ethay ymbolsay NIL). Ortablepay odecay ouldshay otnay "
+"elyray onway anyway otherway aluevay."
+
+#: target:code/symbol.lisp
+msgid ""
+"Searches the property list stored in Place for an indicator EQ to "
+"Indicator.\n"
+"  If one is found, the corresponding value is returned, else the Default is\n"
+"  returned."
+msgstr ""
+"Earchessay ethay opertypray istlay toredsay inway Aceplay orfay anway "
+"indicatorway EQ otay Indicatorway.\n"
+"  Ifway oneway isway oundfay, ethay orrespondingcay aluevay isway "
+"eturnedray, elseway ethay Efaultday isway\n"
+"  eturnedray."
+
+#: target:code/symbol.lisp
+msgid "Malformed property list: ~S"
+msgstr "Alformedmay opertypray istlay: ~S"
+
+#: target:code/symbol.lisp
+msgid ""
+"Like GETF, except that Indicator-List is a list of indicators which will\n"
+"  be looked for in the property list stored in Place.  Three values are\n"
+"  returned, see manual for details."
+msgstr ""
+"Ikelay GETF, exceptway atthay Indicatorway-Istlay isway away istlay ofway "
+"indicatorsway ichwhay illway\n"
+"  ebay ookedlay orfay inway ethay opertypray istlay toredsay inway Aceplay.  "
+"Reethay aluesvay areway\n"
+"  eturnedray, eesay anualmay orfay etailsday."
+
+#: target:code/symbol.lisp
+msgid ""
+"Make and return a new uninterned symbol with the same print name\n"
+"  as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound\n"
+"  nor fbound and has no properties, else it has a copy of SYMBOL's\n"
+"  function, value and property list."
+msgstr ""
+"Akemay andway eturnray away ewnay uninternedway ymbolsay ithway ethay amesay "
+"intpray amenay\n"
+"  asway SYMBOL.  Ifway COPY-PROPS isway alsefay, ethay ewnay ymbolsay isway "
+"eithernay oundbay\n"
+"  ornay boundfay andway ashay onay opertiespray, elseway itway ashay away "
+"opycay ofway SYMBOL's\n"
+"  unctionfay, aluevay andway opertypray istlay."
+
+#: target:code/symbol.lisp
+msgid "Returns true if Object is a symbol in the keyword package."
+msgstr ""
+"Eturnsray uetray ifway Objectway isway away ymbolsay inway ethay eywordkay "
+"ackagepay."
+
+#: target:code/symbol.lisp
+msgid "Counter for generating unique GENSYM symbols."
+msgstr "Ountercay orfay eneratinggay uniqueway GENSYM ymbolssay."
+
+#: target:code/symbol.lisp
+msgid ""
+"Creates a new uninterned symbol whose name is a prefix string (defaults\n"
+"   to \"G\"), followed by a decimal number.  Thing, when supplied, will\n"
+"   alter the prefix if it is a string, or be used for the decimal number\n"
+"   if it is a number, of this symbol. The default value of the number is\n"
+"   the current value of *gensym-counter* which is incremented each time\n"
+"   it is used."
+msgstr ""
+"Eatescray away ewnay uninternedway ymbolsay osewhay amenay isway away "
+"efixpray ingstray (efaultsday\n"
+"   otay \"G\"), ollowedfay ybay away ecimalday umbernay.  Ingthay, enwhay "
+"uppliedsay, illway\n"
+"   alterway ethay efixpray ifway itway isway away ingstray, orway ebay "
+"usedway orfay ethay ecimalday umbernay\n"
+"   ifway itway isway away umbernay, ofway isthay ymbolsay. Ethay efaultday "
+"aluevay ofway ethay umbernay isway\n"
+"   ethay urrentcay aluevay ofway *gensym-counter* ichwhay isway "
+"incrementedway eachway imetay\n"
+"   itway isway usedway."
+
+#: target:code/symbol.lisp
+msgid "Creates a new symbol interned in package Package with the given Prefix."
+msgstr ""
+"Eatescray away ewnay ymbolsay internedway inway ackagepay Ackagepay ithway "
+"ethay ivengay Efixpray."
+
+#: target:code/bignum.lisp
+msgid ""
+"When the bignum pieces are smaller than this many words, we use the\n"
+"classical multiplication algorithm instead of recursing all the way\n"
+"down to individual words."
+msgstr ""
+"Enwhay ethay ignumbay iecespay areway mallersay anthay isthay anymay "
+"ordsway, eway useway ethay\n"
+"assicalclay ultiplicationmay algorithmway insteadway ofway ecursingray "
+"allway ethay ayway\n"
+"ownday otay individualway ordsway."
+
+#: target:code/bignum.lisp
+msgid "Use Karatsuba if the bignums have at least this many bits"
+msgstr ""
+"Useway Aratsubakay ifway ethay ignumsbay avehay atway eastlay isthay anymay "
+"itsbay"
+
+#: target:code/bignum.lisp
+msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
+msgstr "WITH-BIGNUM-BUFFERS ({(arvay izesay [initway])}*) Orm*Fay"
+
+#: target:code/bignum.lisp
+msgid "Unexpected zero bignums?"
+msgstr "Unexpectedway erozay ignumsbay?"
+
+#: target:code/bignum.lisp
+msgid "Can't represent result of left shift."
+msgstr "Ancay't epresentray esultray ofway eftlay iftshay."
+
+#: target:code/bignum.lisp
+msgid "Too large to be represented as a ~S:~%  ~S"
+msgstr "Ootay argelay otay ebay epresentedray asway away ~S:~%  ~S"
+
+#: target:code/numbers.lisp
+msgid "More types than vars."
+msgstr "Oremay ypestay anthay arsvay."
+
+#: target:code/numbers.lisp
+msgid "Duplicate case: ~S."
+msgstr "Uplicateday asecay: ~S."
+
+#: target:code/numbers.lisp
+msgid "More vars than types."
+msgstr "Oremay arsvay anthay ypestay."
+
+#: target:code/numbers.lisp
+msgid ""
+"NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n"
+"  A vaguely case-like macro that does number cross-product dispatches.  The\n"
+"  Vars are the variables we are dispatching off of.  The Type paired with "
+"each\n"
+"  Var is used in the error message when no case matches.  Each case "
+"specifies a\n"
+"  Type for each var, and is executed when that signature holds.  A type may "
+"be\n"
+"  a list (FOREACH Each-Type*), causing that case to be repeatedly "
+"instantiated\n"
+"  for every Each-Type.  In the body of each case, any list of the form\n"
+"  (DISPATCH-TYPE Var-Name) is substituted with the type of that var in that\n"
+"  instance of the case.\n"
+"\n"
+"  As an alternate to a case spec, there may be a form whose CAR is a "
+"symbol.\n"
+"  In this case, we apply the CAR of the form to the CDR and treat the result "
+"of\n"
+"  the call as a list of cases.  This process is not applied recursively."
+msgstr ""
+"NUMBER-DISPATCH ({(Arvay Ypetay)}*) {((Ype*Tay) Orm*Fay) | (Ymbolsay "
+"Arg*Way)}*\n"
+"  Away aguelyvay asecay-ikelay acromay atthay oesday umbernay osscray-"
+"oductpray ispatchesday.  Ethay\n"
+"  Arsvay areway ethay ariablesvay eway areway ispatchingday offway ofway.  "
+"Ethay Ypetay airedpay ithway eachway\n"
+"  Arvay isway usedway inway ethay errorway essagemay enwhay onay asecay "
+"atchesmay.  Eachway asecay ecifiespays away\n"
+"  Ypetay orfay eachway arvay, andway isway executedway enwhay atthay "
+"ignaturesay oldshay.  Away ypetay aymay ebay\n"
+"  away istlay (FOREACH Eachway-Ype*Tay), ausingcay atthay asecay otay ebay "
+"epeatedlyray instantiatwayedway\n"
+"  orfay everyway Eachway-Ypetay.  Inway ethay odybay ofway eachway asecay, "
+"anyway istlay ofway ethay ormfay\n"
+"  (DISPATCH-TYPE Arvay-Amenay) isway ubstitutedsay ithway ethay ypetay ofway "
+"atthay arvay inway atthay\n"
+"  instanceway ofway ethay asecay.\n"
+"\n"
+"  Asway anway alternateway otay away asecay ecspay, erethay aymay ebay away "
+"ormfay osewhay CAR isway away ymbolsay.\n"
+"  Inway isthay asecay, eway applyway ethay CAR ofway ethay ormfay otay ethay "
+"CDR andway eattray ethay esultray ofway\n"
+"  ethay allcay asway away istlay ofway asescay.  Isthay ocesspray isway "
+"otnay appliedway ecursivelyray."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the element type of the most specialized COMPLEX number type that\n"
+"   can hold parts of type Spec."
+msgstr ""
+"Eturnsray ethay elementway ypetay ofway ethay ostmay ecializedspay COMPLEX "
+"umbernay ypetay atthay\n"
+"   ancay oldhay artspay ofway ypetay Ecspay."
+
+#: target:code/numbers.lisp
+msgid "Assume this is a subtype of REAL anyway."
+msgstr "Assumeway isthay isway away ubtypesay ofway REAL anywayway."
+
+#: target:code/numbers.lisp
+msgid "Cannot determine if ~S is a subtype of REAL."
+msgstr "Annotcay etermineday ifway ~S isway away ubtypesay ofway REAL."
+
+#: target:code/numbers.lisp
+msgid "Complex numbers cannot have components of type ~S."
+msgstr "Omplexcay umbersnay annotcay avehay omponentscay ofway ypetay ~S."
+
+#: target:code/numbers.lisp
+msgid "Builds a complex number from the specified components."
+msgstr ""
+"Uildsbay away omplexcay umbernay omfray ethay ecifiedspay omponentscay."
+
+#: target:code/numbers.lisp
+msgid "Extracts the real part of a number."
+msgstr "Extractsway ethay ealray artpay ofway away umbernay."
+
+#: target:code/numbers.lisp
+msgid "Extracts the imaginary part of a number."
+msgstr "Extractsway ethay imaginaryway artpay ofway away umbernay."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the complex conjugate of NUMBER.  For non-complex numbers, this is\n"
+"  an identity."
+msgstr ""
+"Eturnsray ethay omplexcay onjugatecay ofway NUMBER.  Orfay onnay-omplexcay "
+"umbersnay, isthay isway\n"
+"  anway identityway."
+
+#: target:code/numbers.lisp
+msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
+msgstr ""
+"Ifway NUMBER isway erozay, eturnray NUMBER, elseway eturnray (/ NUMBER (ABS "
+"NUMBER))."
+
+#: target:code/numbers.lisp
+msgid "Return the numerator of NUMBER, which must be rational."
+msgstr ""
+"Eturnray ethay umeratornay ofway NUMBER, ichwhay ustmay ebay ationalray."
+
+#: target:code/numbers.lisp
+msgid "Return the denominator of NUMBER, which must be rational."
+msgstr ""
+"Eturnray ethay enominatorday ofway NUMBER, ichwhay ustmay ebay ationalray."
+
+#: target:code/numbers.lisp
+msgid "Returns the sum of its arguments.  With no args, returns 0."
+msgstr ""
+"Eturnsray ethay umsay ofway itsway argumentsway.  Ithway onay argsway, "
+"eturnsray 0."
+
+#: target:code/numbers.lisp
+msgid "Returns the product of its arguments.  With no args, returns 1."
+msgstr ""
+"Eturnsray ethay oductpray ofway itsway argumentsway.  Ithway onay argsway, "
+"eturnsray 1."
+
+#: target:code/numbers.lisp
+msgid ""
+"Subtracts the second and all subsequent arguments from the first.\n"
+"  With one arg, negates it."
+msgstr ""
+"Ubtractssay ethay econdsay andway allway ubsequentsay argumentsway omfray "
+"ethay irstfay.\n"
+"  Ithway oneway argway, egatesnay itway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Divides the first arg by each of the following arguments, in turn.\n"
+"  With one arg, returns reciprocal."
+msgstr ""
+"Ividesday ethay irstfay argway ybay eachway ofway ethay ollowingfay "
+"argumentsway, inway urntay.\n"
+"  Ithway oneway argway, eturnsray eciprocalray."
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER + 1."
+msgstr "Eturnsray NUMBER + 1."
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER - 1."
+msgstr "Eturnsray NUMBER - 1."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns number (or number/divisor) as an integer, rounded toward 0.\n"
+"  The second returned value is the remainder."
+msgstr ""
+"Eturnsray umbernay (orway umbernay/ivisorday) asway anway integerway, "
+"oundedray owardtay 0.\n"
+"  Ethay econdsay eturnedray aluevay isway ethay emainderray."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest integer not greater than number, or number/divisor.\n"
+"  The second returned value is (mod number divisor)."
+msgstr ""
+"Eturnsray ethay eatestgray integerway otnay eatergray anthay umbernay, orway "
+"umbernay/ivisorday.\n"
+"  Ethay econdsay eturnedray aluevay isway (odmay umbernay ivisorday)."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the smallest integer not less than number, or number/divisor.\n"
+"  The second returned value is the remainder."
+msgstr ""
+"Eturnsray ethay mallestsay integerway otnay esslay anthay umbernay, orway "
+"umbernay/ivisorday.\n"
+"  Ethay econdsay eturnedray aluevay isway ethay emainderray."
+
+#: target:code/numbers.lisp
+msgid ""
+"Rounds number (or number/divisor) to nearest integer.\n"
+"  The second returned value is the remainder."
+msgstr ""
+"Oundsray umbernay (orway umbernay/ivisorday) otay earestnay integerway.\n"
+"  Ethay econdsay eturnedray aluevay isway ethay emainderray."
+
+#: target:code/numbers.lisp
+msgid "Returns second result of TRUNCATE."
+msgstr "Eturnsray econdsay esultray ofway TRUNCATE."
+
+#: target:code/numbers.lisp
+msgid "Returns second result of FLOOR."
+msgstr "Eturnsray econdsay esultray ofway FLOOR."
+
+#: target:code/numbers.lisp
+msgid "Same as TRUNCATE, but returns first value as a float."
+msgstr ""
+"Amesay asway TRUNCATE, utbay eturnsray irstfay aluevay asway away oatflay."
+
+#: target:code/numbers.lisp
+msgid "Same as FLOOR, but returns first value as a float."
+msgstr ""
+"Amesay asway FLOOR, utbay eturnsray irstfay aluevay asway away oatflay."
+
+#: target:code/numbers.lisp
+msgid "Same as CEILING, but returns first value as a float."
+msgstr ""
+"Amesay asway CEILING, utbay eturnsray irstfay aluevay asway away oatflay."
+
+#: target:code/numbers.lisp
+msgid "Same as ROUND, but returns first value as a float."
+msgstr ""
+"Amesay asway ROUND, utbay eturnsray irstfay aluevay asway away oatflay."
+
+#: target:code/numbers.lisp
+msgid "Returns T if all of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway allway ofway itsway argumentsway areway umericallynay "
+"equalway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if no two of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway onay wotay ofway itsway argumentsway areway umericallynay "
+"equalway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing order, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray increasingway "
+"orderway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray ecreasingday "
+"orderway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway argumentsway areway inway ictlystray onnay-ecreasingday "
+"orderway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-increasing order, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway argumentsway areway inway ictlystray onnay-increasingway "
+"orderway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid "Returns the greatest of its arguments."
+msgstr "Eturnsray ethay eatestgray ofway itsway argumentsway."
+
+#: target:code/numbers.lisp
+msgid "Returns the least of its arguments."
+msgstr "Eturnsray ethay eastlay ofway itsway argumentsway."
+
+#: target:code/numbers.lisp
+msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
+msgstr ""
+"Eturnray T ifway OBJ1 andway OBJ2 epresentray ethay amesay objectway, "
+"otherwiseway NIL."
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise or of its arguments.  Args must be integers."
+msgstr ""
+"Eturnsray ethay itbay-iseway orway ofway itsway argumentsway.  Argsway "
+"ustmay ebay integersway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise exclusive or of its arguments.  Args must be integers."
+msgstr ""
+"Eturnsray ethay itbay-iseway exclusiveway orway ofway itsway argumentsway.  "
+"Argsway ustmay ebay integersway."
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise and of its arguments.  Args must be integers."
+msgstr ""
+"Eturnsray ethay itbay-iseway andway ofway itsway argumentsway.  Argsway "
+"ustmay ebay integersway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise equivalence of its arguments.  Args must be integers."
+msgstr ""
+"Eturnsray ethay itbay-iseway equivalenceway ofway itsway argumentsway.  "
+"Argsway ustmay ebay integersway."
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical AND of integer1 and integer2."
+msgstr ""
+"Eturnsray ethay omplementcay ofway ethay ogicallay AND ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical OR of integer1 and integer2."
+msgstr ""
+"Eturnsray ethay omplementcay ofway ethay ogicallay OR ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
+msgstr ""
+"Eturnsray ethay ogicallay AND ofway (LOGNOT integerway1) andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
+msgstr ""
+"Eturnsray ethay ogicallay AND ofway integerway1 andway (LOGNOT integerway2)."
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
+msgstr ""
+"Eturnsray ethay ogicallay OR ofway (LOGNOT integerway1) andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
+msgstr ""
+"Eturnsray ethay ogicallay OR ofway integerway1 andway (LOGNOT integerway2)."
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise logical not of integer."
+msgstr "Eturnsray ethay itbay-iseway ogicallay otnay ofway integerway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n"
+"  if INTEGER is negative."
+msgstr ""
+"Ountcay ethay umbernay ofway 1 itsbay ifway INTEGER isway ositivepay, andway "
+"ethay umbernay ofway 0 itsbay\n"
+"  ifway INTEGER isway egativenay."
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate which returns T if logand of integer1 and integer2 is not zero."
+msgstr ""
+"Edicatepray ichwhay eturnsray T ifway ogandlay ofway integerway1 andway "
+"integerway2 isway otnay erozay."
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate returns T if bit index of integer is a 1.  The least\n"
+"significant bit of INTEGER is bit 0."
+msgstr ""
+"Edicatepray eturnsray T ifway itbay indexway ofway integerway isway away 1.  "
+"Ethay eastlay\n"
+"ignificantsay itbay ofway INTEGER isway itbay 0."
+
+#: target:code/numbers.lisp
+msgid ""
+"Shifts integer left by count places preserving sign.  - count shifts right."
+msgstr ""
+"Iftsshay integerway eftlay ybay ountcay acesplay eservingpray ignsay.  - "
+"ountcay iftsshay ightray."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the number of significant bits in the absolute value of integer."
+msgstr ""
+"Eturnsray ethay umbernay ofway ignificantsay itsbay inway ethay absoluteway "
+"aluevay ofway integerway."
+
+#: target:code/numbers.lisp
+msgid "Returns a byte specifier which may be used by other byte functions."
+msgstr ""
+"Eturnsray away ytebay ecifierspay ichwhay aymay ebay usedway ybay otherway "
+"ytebay unctionsfay."
+
+#: target:code/numbers.lisp
+msgid "Returns the size part of the byte specifier bytespec."
+msgstr ""
+"Eturnsray ethay izesay artpay ofway ethay ytebay ecifierspay ytespecbay."
+
+#: target:code/numbers.lisp
+msgid "Returns the position part of the byte specifier bytespec."
+msgstr ""
+"Eturnsray ethay ositionpay artpay ofway ethay ytebay ecifierspay ytespecbay."
+
+#: target:code/numbers.lisp
+msgid "Extract the specified byte from integer, and right justify result."
+msgstr ""
+"Extractway ethay ecifiedspay ytebay omfray integerway, andway ightray "
+"ustifyjay esultray."
+
+#: target:code/numbers.lisp
+msgid "Returns T if any of the specified bits in integer are 1's."
+msgstr ""
+"Eturnsray T ifway anyway ofway ethay ecifiedspay itsbay inway integerway "
+"areway 1's."
+
+#: target:code/numbers.lisp
+msgid ""
+"Extract the specified byte from integer,  but do not right justify result."
+msgstr ""
+"Extractway ethay ecifiedspay ytebay omfray integerway,  utbay oday otnay "
+"ightray ustifyjay esultray."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is right "
+"justified."
+msgstr ""
+"Eturnsray ewnay integerway ithway ewbytenay inway ecifiedspay ositionpay, "
+"ewbytenay isway ightray ustifiedjay."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is not right "
+"justified."
+msgstr ""
+"Eturnsray ewnay integerway ithway ewbytenay inway ecifiedspay ositionpay, "
+"ewbytenay isway otnay ightray ustifiedjay."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return 0."
+msgstr "Oolebay unctionfay opway, akesmay BOOLE eturnray 0."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return -1."
+msgstr "Oolebay unctionfay opway, akesmay BOOLE eturnray -1."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer1."
+msgstr "Oolebay unctionfay opway, akesmay BOOLE eturnray integerway1."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer2."
+msgstr "Oolebay unctionfay opway, akesmay BOOLE eturnray integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer1."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray omplementcay ofway "
+"integerway1."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray omplementcay ofway "
+"integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logand of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogandlay ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logior of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogiorlay ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogxorlay ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogeqvlay ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return log nand of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray oglay andnay ofway "
+"integerway1 andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ognorlay ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogandclay1 ofway "
+"integerway1 andway integerway2."
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogandclay2 ofway "
+"integerway1 andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogorclay1 ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logorc2 of integer1 and integer2."
+msgstr ""
+"Oolebay unctionfay opway, akesmay BOOLE eturnray ogorclay2 ofway integerway1 "
+"andway integerway2."
+
+#: target:code/numbers.lisp
+msgid ""
+"Bit-wise boolean function on two integers.  Function chosen by OP:\n"
+"\t0\tBOOLE-CLR\n"
+"\t1\tBOOLE-SET\n"
+"\t2\tBOOLE-1\n"
+"  \t3\tBOOLE-2\n"
+"\t4\tBOOLE-C1\n"
+"\t5\tBOOLE-C2\n"
+"\t6\tBOOLE-AND\n"
+"\t7\tBOOLE-IOR\n"
+" \t8\tBOOLE-XOR\n"
+"\t9\tBOOLE-EQV\n"
+"\t10\tBOOLE-NAND\n"
+"\t11\tBOOLE-NOR\n"
+"\t12\tBOOLE-ANDC1\n"
+"\t13\tBOOLE-ANDC2\n"
+"\t14\tBOOLE-ORC1\n"
+"\t15\tBOOLE-ORC2"
+msgstr ""
+"Itbay-iseway ooleanbay unctionfay onway wotay integersway.  Unctionfay "
+"osenchay ybay OP:\n"
+"\t0\tBOOLE-CLR\n"
+"\t1\tBOOLE-SET\n"
+"\t2\tBOOLE-1\n"
+"  \t3\tBOOLE-2\n"
+"\t4\tBOOLE-C1\n"
+"\t5\tBOOLE-C2\n"
+"\t6\tBOOLE-AND\n"
+"\t7\tBOOLE-IOR\n"
+" \t8\tBOOLE-XOR\n"
+"\t9\tBOOLE-EQV\n"
+"\t10\tBOOLE-NAND\n"
+"\t11\tBOOLE-NOR\n"
+"\t12\tBOOLE-ANDC1\n"
+"\t13\tBOOLE-ANDC2\n"
+"\t14\tBOOLE-ORC1\n"
+"\t15\tBOOLE-ORC2"
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest common divisor of the arguments, which must be\n"
+"  integers.  Gcd with no arguments is defined to be 0."
+msgstr ""
+"Eturnsray ethay eatestgray ommoncay ivisorday ofway ethay argumentsway, "
+"ichwhay ustmay ebay\n"
+"  integersway.  Cdgay ithway onay argumentsway isway efinedday otay ebay 0."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the least common multiple of one or more integers.  LCM of no\n"
+"  arguments is defined to be 1."
+msgstr ""
+"Eturnsray ethay eastlay ommoncay ultiplemay ofway oneway orway oremay "
+"integersway.  LCM ofway onay\n"
+"  argumentsway isway efinedday otay ebay 1."
+
+#: target:code/numbers.lisp
+msgid "Returns T iff X is a positive prime integer."
+msgstr "Eturnsray T iffway X isway away ositivepay imepray integerway."
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the root of the nearest integer less than n which is a perfect\n"
+"   square."
+msgstr ""
+"Eturnsray ethay ootray ofway ethay earestnay integerway esslay anthay n "
+"ichwhay isway away erfectpay\n"
+"   quaresay."
+
+#: target:code/numbers.lisp
+msgid "Returns T if number = 0, NIL otherwise."
+msgstr "Eturnsray T ifway umbernay = 0, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid "Returns T if number > 0, NIL otherwise."
+msgstr "Eturnsray T ifway umbernay > 0, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid "Returns T if number < 0, NIL otherwise."
+msgstr "Eturnsray T ifway umbernay < 0, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is odd, NIL otherwise."
+msgstr "Eturnsray T ifway umbernay isway oddway, NIL otherwiseway."
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is even, NIL otherwise."
+msgstr "Eturnsray T ifway umbernay isway evenway, NIL otherwiseway."
+
+#: target:code/float-trap.lisp
+msgid "Unknown float trap kind: ~S."
+msgstr "Unknownway oatflay aptray indkay: ~S."
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function sets options controlling the floating-point hardware.  If a\n"
+"  keyword is not supplied, then the current value is preserved.  Possible\n"
+"  keywords:\n"
+"\n"
+"   :TRAPS\n"
+"       A list of the exception conditions that should cause traps.  "
+"Possible\n"
+"       exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+"       all traps except :INEXACT are enabled.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       The rounding mode to use when the result is not exact.  Possible "
+"values\n"
+"       are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+"       Initially, the rounding mode is :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       These arguments allow setting of the exception flags.  The main use "
+"is\n"
+"       setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Set the hardware's \"fast mode\" flag, if any.  When set, IEEE\n"
+"       conformance or debuggability may be impaired.  Some machines may not\n"
+"       have this feature, in which case the value is always NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+"   currently in effect."
+msgstr ""
+"Isthay unctionfay etssay optionsway ontrollingcay ethay oatingflay-ointpay "
+"ardwarehay.  Ifway away\n"
+"  eywordkay isway otnay uppliedsay, enthay ethay urrentcay aluevay isway "
+"eservedpray.  Ossiblepay\n"
+"  eywordskay:\n"
+"\n"
+"   :TRAPS\n"
+"       Away istlay ofway ethay exceptionway onditionscay atthay ouldshay "
+"ausecay apstray.  Ossiblepay\n"
+"       exceptionsway areway :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, andway onway ethay X86 :DENORMALIZED-OPERAND. "
+"Initiallyway\n"
+"       allway apstray exceptway :INEXACT areway enabledway.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       Ethay oundingray odemay otay useway enwhay ethay esultray isway otnay "
+"exactway.  Ossiblepay aluesvay\n"
+"       areway :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY andway :"
+"ZERO.\n"
+"       Initiallyway, ethay oundingray odemay isway :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       Esethay argumentsway allowway ettingsay ofway ethay exceptionway "
+"agsflay.  Ethay ainmay useway isway\n"
+"       ettingsay ethay accruedway exceptionsway otay NIL otay earclay "
+"emthay.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Etsay ethay ardwarehay's \"astfay odemay\" agflay, ifway anyway.  "
+"Enwhay etsay, IEEE\n"
+"       onformancecay orway ebuggabilityday aymay ebay impairedway.  Omesay "
+"achinesmay aymay otnay\n"
+"       avehay isthay eaturefay, inway ichwhay asecay ethay aluevay isway "
+"alwaysway NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES aymay ebay usedway otay indfay ethay oatingflay "
+"ointpay odesmay\n"
+"   urrentlycay inway effectway."
+
+#: target:code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr "Unknownway oundingray odemay: ~S."
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+"  modes.  The list is in the same format as the keyword arguments to\n"
+"  SET-FLOATING-POINT-MODES, i.e. \n"
+"      (apply #'set-floating-point-modes (get-floating-point-modes))\n"
+"\n"
+"  sets the floating point modes to their current values (and thus is a no-"
+"op)."
+msgstr ""
+"Isthay unctionfay eturnsray away istlay epresentingray ethay tatesay ofway "
+"ethay oatingflay ointpay\n"
+"  odesmay.  Ethay istlay isway inway ethay amesay ormatfay asway ethay "
+"eywordkay argumentsway otay\n"
+"  SET-FLOATING-POINT-MODES, i.e. \n"
+"      (applyway #'etsay-oatingflay-ointpay-odesmay (etgay-oatingflay-ointpay-"
+"odesmay))\n"
+"\n"
+"  etssay ethay oatingflay ointpay odesmay otay eirthay urrentcay aluesvay "
+"(andway usthay isway away onay-opway)."
+
+#: target:code/float-trap.lisp
+msgid ""
+"Current-Float-Trap Trap-Name*\n"
+"  Return true if any of the named traps are currently trapped, false\n"
+"  otherwise."
+msgstr ""
+"Urrentcay-Oatflay-Aptray Aptray-Ame*Nay\n"
+"  Eturnray uetray ifway anyway ofway ethay amednay apstray areway "
+"urrentlycay appedtray, alsefay\n"
+"  otherwiseway."
+
+#: target:code/float-trap.lisp
+msgid "SIGFPE with no exceptions currently enabled?"
+msgstr "SIGFPE ithway onay exceptionsway urrentlycay enabledway?"
+
+#: target:code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+"  masked (disabled).  TRAPS should be a list of possible exceptions\n"
+"  which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+"  :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+"  accrued exceptions are cleared at the start of the body to support\n"
+"  their testing within, and restored on exit."
+msgstr ""
+"Executeway BODY ithway ethay oatingflay ointpay exceptionsway istedlay inway "
+"TRAPS\n"
+"  askedmay (isabledday).  TRAPS ouldshay ebay away istlay ofway ossiblepay "
+"exceptionsway\n"
+"  ichwhay includesway :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID andway\n"
+"  :DIVIDE-BY-ZERO andway onway ethay X86 :DENORMALIZED-OPERAND. Ethay "
+"espectiveray\n"
+"  accruedway exceptionsway areway earedclay atway ethay tartsay ofway ethay "
+"odybay otay upportsay\n"
+"  eirthay estingtay ithinway, andway estoredray onway exitway."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is denormalized."
+msgstr "Eturnray uetray ifway ethay oatflay X isway enormalizedday."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr ""
+"Eturnray uetray ifway ethay oatflay X isway anway infinityway (+ orway -)."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr ""
+"Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away Umbernay)."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr ""
+"Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay "
+"away Umbernay)."
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of significant digits in it's float argument.\n"
+"  Will be less than FLOAT-DIGITS if denormalized or zero."
+msgstr ""
+"Eturnsray away onnay-egativenay umbernay ofway ignificantsay igitsday inway "
+"itway's oatflay argumentway.\n"
+"  Illway ebay esslay anthay FLOAT-DIGITS ifway enormalizedday orway erozay."
+
+#: target:code/float.lisp
+msgid ""
+"Returns a floating-point number that has the same sign as\n"
+"   float1 and, if float2 is given, has the same absolute value\n"
+"   as float2."
+msgstr ""
+"Eturnsray away oatingflay-ointpay umbernay atthay ashay ethay amesay ignsay "
+"asway\n"
+"   oatflay1 andway, ifway oatflay2 isway ivengay, ashay ethay amesay "
+"absoluteway aluevay\n"
+"   asway oatflay2."
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of radix-b digits used in the\n"
+"   representation of it's argument.  See Common Lisp: The Language\n"
+"   by Guy Steele for more details."
+msgstr ""
+"Eturnsray away onnay-egativenay umbernay ofway adixray-b igitsday usedway "
+"inway ethay\n"
+"   epresentationray ofway itway's argumentway.  Eesay Ommoncay Isplay: Ethay "
+"Anguagelay\n"
+"   ybay Uygay Teelesay orfay oremay etailsday."
+
+#: target:code/float.lisp
+msgid ""
+"Returns (as an integer) the radix b of its floating-point\n"
+"   argument."
+msgstr ""
+"Eturnsray (asway anway integerway) ethay adixray b ofway itsway oatingflay-"
+"ointpay\n"
+"   argumentway."
+
+#: target:code/irrat.lisp target:code/float.lisp
+msgid "Can't decode NAN or infinity: ~S."
+msgstr "Ancay't ecodeday NAN orway infinityway: ~S."
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) an integer representation of the significand.\n"
+"   2) the exponent for the power of 2 that the significand must be "
+"multiplied\n"
+"      by to get the actual value.  This differs from the DECODE-FLOAT "
+"exponent\n"
+"      by FLOAT-DIGITS, since the significand has been scaled to have all "
+"its\n"
+"      digits before the radix point.\n"
+"   3) -1 or 1 (i.e. the sign of the argument.)"
+msgstr ""
+"Eturnsray reethay aluesvay:\n"
+"   1) anway integerway epresentationray ofway ethay ignificandsay.\n"
+"   2) ethay exponentway orfay ethay owerpay ofway 2 atthay ethay "
+"ignificandsay ustmay ebay ultipliemayd\n"
+"      ybay otay etgay ethay actualway aluevay.  Isthay iffersday omfray "
+"ethay DECODE-FLOAT exponentway\n"
+"      ybay FLOAT-DIGITS, incesay ethay ignificandsay ashay eenbay aledscay "
+"otay avehay allway itsway\n"
+"      igitsday eforebay ethay adixray ointpay.\n"
+"   3) -1 orway 1 (i.e. ethay ignsay ofway ethay argumentway.)"
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) a floating-point number representing the significand.  This is always\n"
+"      between 0.5 (inclusive) and 1.0 (exclusive).\n"
+"   2) an integer representing the exponent.\n"
+"   3) -1.0 or 1.0 (i.e. the sign of the argument.)"
+msgstr ""
+"Eturnsray reethay aluesvay:\n"
+"   1) away oatingflay-ointpay umbernay epresentingray ethay ignificandsay.  "
+"Isthay isway alwaysway\n"
+"      etweenbay 0.5 (inclusiveway) andway 1.0 (exclusiveway).\n"
+"   2) anway integerway epresentingray ethay exponentway.\n"
+"   3) -1.0 orway 1.0 (i.e. ethay ignsay ofway ethay argumentway.)"
+
+#: target:code/float.lisp
+msgid ""
+"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
+"  of precision or overflow."
+msgstr ""
+"Eturnsray ethay aluevay (* f (exptway (oatflay 2 f) exway)), utbay ithway "
+"onay unnecessaryway osslay\n"
+"  ofway ecisionpray orway overflowway."
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a float.  If OTHER is not provided, it returns a\n"
+"  SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the\n"
+"  result is the same float format as OTHER."
+msgstr ""
+"Onvertscay anyway REAL otay away oatflay.  Ifway OTHER isway otnay "
+"ovidedpray, itway eturnsray away\n"
+"  SINGLE-FLOAT ifway NUMBER isway otnay alreadyway away FLOAT.  Ifway OTHER "
+"isway ovidedpray, ethay\n"
+"  esultray isway ethay amesay oatflay ormatfay asway OTHER."
+
+#: target:code/float.lisp
+msgid ""
+"RATIONAL produces a rational number for any real numeric argument.  This is\n"
+"  more efficient than RATIONALIZE, but it assumes that floating-point is\n"
+"  completely accurate, giving a result that isn't as pretty."
+msgstr ""
+"RATIONAL oducespray away ationalray umbernay orfay anyway ealray umericnay "
+"argumentway.  Isthay isway\n"
+"  oremay efficientway anthay RATIONALIZE, utbay itway assumesway atthay "
+"oatingflay-ointpay isway\n"
+"  ompletelycay accurateway, ivinggay away esultray atthay isnway't asway "
+"ettypray."
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a RATIONAL.  Floats are converted to a simple rational\n"
+"  representation exploiting the assumption that floats are only accurate to\n"
+"  their precision.  RATIONALIZE (and also RATIONAL) preserve the invariant:\n"
+"      (= x (float (rationalize x) x))"
+msgstr ""
+"Onvertscay anyway REAL otay away RATIONAL.  Oatsflay areway onvertedcay otay "
+"away implesay ationalray\n"
+"  epresentationray exploitingway ethay assumptionway atthay oatsflay areway "
+"onlyway accurateway otay\n"
+"  eirthay ecisionpray.  RATIONALIZE (andway alsoway RATIONAL) eservepray "
+"ethay invariantway:\n"
+"      (= x (oatflay (ationalizeray x) x))"
+
+#: target:code/irrat.lisp
+msgid "Return e raised to the power NUMBER."
+msgstr "Eturnray e aisedray otay ethay owerpay NUMBER."
+
+#: target:code/irrat.lisp
+msgid "The absolute value of ~S exceeds limit ~S."
+msgstr "Ethay absoluteway aluevay ofway ~S exceedsway imitlay ~S."
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation"
+msgstr "Ontinuecay ithway alculationcay"
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation, update limit"
+msgstr "Ontinuecay ithway alculationcay, updateway imitlay"
+
+#: target:code/irrat.lisp
+msgid "Returns BASE raised to the POWER."
+msgstr "Eturnsray BASE aisedray otay ethay POWER."
+
+#: target:code/irrat.lisp
+msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+msgstr ""
+"Eturnray ethay ogarithmlay ofway NUMBER inway ethay asebay BASE, ichwhay "
+"efaultsday otay e."
+
+#: target:code/irrat.lisp
+msgid "Return the square root of NUMBER."
+msgstr "Eturnray ethay quaresay ootray ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Returns the absolute value of the number."
+msgstr "Eturnsray ethay absoluteway aluevay ofway ethay umbernay."
+
+#: target:code/irrat.lisp
+msgid ""
+"Returns the angle part of the polar representation of a complex number.\n"
+"  For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
+"  For non-complex positive numbers, this is 0.  For non-complex negative\n"
+"  numbers this is PI."
+msgstr ""
+"Eturnsray ethay angleway artpay ofway ethay olarpay epresentationray ofway "
+"away omplexcay umbernay.\n"
+"  Orfay omplexcay umbersnay, isthay isway (atanway (imagpartway umbernay) "
+"(ealpartray umbernay)).\n"
+"  Orfay onnay-omplexcay ositivepay umbersnay, isthay isway 0.  Orfay onnay-"
+"omplexcay egativenay\n"
+"  umbersnay isthay isway PI."
+
+#: target:code/irrat.lisp
+msgid "Return the sine of NUMBER."
+msgstr "Eturnray ethay inesay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the cosine of NUMBER."
+msgstr "Eturnray ethay osinecay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the tangent of NUMBER."
+msgstr "Eturnray ethay angenttay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+msgstr "Eturnray oscay(Etathay) + i insay(Etathay), AKA expway(i Etathay)."
+
+#: target:code/irrat.lisp
+msgid "Argument to CIS is complex: ~S"
+msgstr "Argumentway otay CIS isway omplexcay: ~S"
+
+#: target:code/irrat.lisp
+msgid "Return the arc sine of NUMBER."
+msgstr "Eturnray ethay arcway inesay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the arc cosine of NUMBER."
+msgstr "Eturnray ethay arcway osinecay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+msgstr ""
+"Eturnray ethay arcway angenttay ofway Y ifway X isway omittedway orway Y/X "
+"ifway X isway uppliedsay."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic sine of NUMBER."
+msgstr "Eturnray ethay yperbolichay inesay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic cosine of NUMBER."
+msgstr "Eturnray ethay yperbolichay osinecay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic tangent of NUMBER."
+msgstr "Eturnray ethay yperbolichay angenttay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc sine of NUMBER."
+msgstr "Eturnray ethay yperbolichay arcway inesay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc cosine of NUMBER."
+msgstr "Eturnray ethay yperbolichay arcway osinecay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc tangent of NUMBER."
+msgstr "Eturnray ethay yperbolichay arcway angenttay ofway NUMBER."
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute 2^N * X without compute 2^N first (use properties of the\n"
+"underlying floating-point format"
+msgstr ""
+"Omputecay 2^N * X ithoutway omputecay 2^N irstfay (useway opertiespray ofway "
+"ethay\n"
+"underlyingway oatingflay-ointpay ormatfay"
+
+#: target:code/irrat.lisp
+msgid ""
+"Same as logb but X is not infinity and non-zero and not a NaN, so\n"
+"that we can always return an integer"
+msgstr ""
+"Amesay asway ogblay utbay X isway otnay infinityway andway onnay-erozay "
+"andway otnay away Annay, osay\n"
+"atthay eway ancay alwaysway eturnray anway integerway"
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
+"For the special cases, the following values are used:\n"
+"\n"
+"    x             logb\n"
+"   NaN            NaN\n"
+"   +/- infinity   +infinity\n"
+"   0              -infinity\n"
+msgstr ""
+"Omputecay anway integerway N uchsay atthay 1 <= |2^(-N) * x| < 2.\n"
+"Orfay ethay ecialspay asescay, ethay ollowingfay aluesvay areway usedway:\n"
+"\n"
+"    x             ogblay\n"
+"   Annay            Annay\n"
+"   +/- infinityway   +infinityway\n"
+"   0              -infinityway\n"
+
+#: target:code/irrat.lisp
+msgid ""
+"Create complex number with real part X and imaginary part Y such that\n"
+"it has the same type as Z.  If Z has type (complex rational), the X\n"
+"and Y are coerced to single-float."
+msgstr ""
+"Eatecray omplexcay umbernay ithway ealray artpay X andway imaginaryway "
+"artpay Y uchsay atthay\n"
+"itway ashay ethay amesay ypetay asway Z.  Ifway Z ashay ypetay (omplexcay "
+"ationalray), ethay X\n"
+"andway Y areway oercedcay otay inglesay-oatflay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Principle square root of Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Inciplepray quaresay ootray ofway Z\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute log(2^j*z).\n"
+"\n"
+"This is for use with J /= 0 only when |z| is huge."
+msgstr ""
+"Omputecay oglay(2^*zjay).\n"
+"\n"
+"Isthay isway orfay useway ithway J /= 0 onlyway enwhay |z| isway ugehay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Log of Z = log |Z| + i * arg Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Oglay ofway Z = oglay |Z| + i * argway Z\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
+msgstr "Omputecay atanhway z = (oglay(1+z) - oglay(1-z))/2"
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute tanh z = sinh z / cosh z"
+msgstr "Omputecay anhtay z = inhsay z / oshcay z"
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acos z = pi/2 - asin z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay acosway z = ipay/2 - asinway z\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay acoshway z = 2 * oglay(qrtsay((z+1)/2) + qrtsay((z-1)/2))\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asin z = asinh(i*z)/i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay asinway z = asinhway(i*zway)/i\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asinh z = log(z + sqrt(1 + z*z))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay asinhway z = oglay(z + qrtsay(1 + *zzay))\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute atan z = atanh (i*z) / i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay atanway z = atanhway (i*zway) / i\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute tan z = -i * tanh(i * z)\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+"Omputecay antay z = -i * anhtay(i * z)\n"
+"\n"
+"Z aymay ebay anyway umbernay, utbay ethay esultray isway alwaysway away "
+"omplexcay."
+
+#: target:code/irrat-dd.lisp
+msgid "log(most-positive-double-double-float)"
+msgstr "oglay(ostmay-ositivepay-oubleday-oubleday-oatflay)"
+
+#: target:code/irrat-dd.lisp
+msgid "log(least-positive-double-double-float"
+msgstr "oglay(eastlay-ositivepay-oubleday-oubleday-oatflay"
+
+#: target:code/irrat-dd.lisp
+msgid "log(2)"
+msgstr "oglay(2)"
+
+#: target:code/irrat-dd.lisp
+msgid "Log base 2 of e"
+msgstr "Oglay asebay 2 ofway e"
+
+#: target:code/irrat-dd.lisp
+msgid "log2(e)-1"
+msgstr "oglay2(e)-1"
+
+#: target:code/irrat-dd.lisp
+msgid "Pi"
+msgstr "Ipay"
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/2"
+msgstr "Ipay/2"
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/4"
+msgstr "Ipay/4"
+
+#: target:code/irrat-dd.lisp
+msgid "Sqrt(1/2)"
+msgstr "Qrtsay(1/2)"
+
+#: target:code/irrat-dd.lisp
+msgid "exp(x) - 1"
+msgstr "expway(x) - 1"
+
+#: target:code/irrat-dd.lisp
+msgid "396 (hex) digits of 2/pi"
+msgstr "396 (exhay) igitsday ofway 2/ipay"
+
+#: target:code/irrat-dd.lisp
+msgid "Overflow"
+msgstr "Overflowway"
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"~S uses lambda-list keyword naming convention, but is not a recognized "
+"lambda-list keyword."
+msgstr ""
+"~S usesway ambdalay-istlay eywordkay amingnay onventioncay, utbay isway "
+"otnay away ecognizedray ambdalay-istlay eywordkay."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &optional in lambda-list: ~S."
+msgstr "Isplacedmay &optionalway inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &rest in lambda-list: ~S."
+msgstr "Isplacedmay &estray inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &more in lambda-list: ~S."
+msgstr "Isplacedmay &oremay inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &key in lambda-list: ~S."
+msgstr "Isplacedmay &eykay inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &allow-other-keys in lambda-list: ~S."
+msgstr "Isplacedmay &allowway-otherway-eyskay inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &aux in lambda-list: ~S."
+msgstr "Isplacedmay &auxway inway ambdalay-istlay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Found garbage in lambda-list when expecting a keyword: ~S."
+msgstr ""
+"Oundfay arbagegay inway ambdalay-istlay enwhay expectingway away eywordkay: "
+"~S."
+
+#: target:compiler/proclaim.lisp
+msgid "&rest not followed by required variable."
+msgstr "&estray otnay ollowedfay ybay equiredray ariablevay."
+
+#: target:compiler/proclaim.lisp
+msgid "Illegal function name: ~S."
+msgstr "Illegalway unctionfay amenay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Special form is an illegal function name: ~S."
+msgstr "Ecialspay ormfay isway anway illegalway unctionfay amenay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"Defining as a SETF function a name that already has a SETF macro:~\n"
+"       ~%  ~S"
+msgstr ""
+"Efiningday asway away SETF unctionfay away amenay atthay alreadyway ashay "
+"away SETF acromay:~\n"
+"       ~%  ~S"
+
+#: target:compiler/proclaim.lisp
+msgid "Assume redefinition is compatible and allow it"
+msgstr "Assumeway edefinitionray isway ompatiblecay andway allowway itway"
+
+#: target:compiler/proclaim.lisp
+msgid "Redefining slot accessor ~S for structure type ~S"
+msgstr "Edefiningray otslay accessorway ~S orfay ucturestray ypetay ~S"
+
+#: target:compiler/proclaim.lisp
+msgid "~S previously defined as a macro."
+msgstr "~S eviouslypray efinedday asway away acromay."
+
+#: target:compiler/proclaim.lisp
+msgid "Unknown optimization quality ~S in ~S."
+msgstr "Unknownway optimizationway alityquay ~S inway ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Malformed optimization quality specifier ~S in ~S."
+msgstr "Alformedmay optimizationway alityquay ecifierspay ~S inway ~S."
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"DECLAIM Declaration*\n"
+"  Do a declaration for the global environment."
+msgstr ""
+"DECLAIM Eclaration*Day\n"
+"  Oday away eclarationday orfay ethay obalglay environmentway."
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Malformed PROCLAIM spec: ~S."
+msgstr "Alformedmay PROCLAIM ecspay: ~S."
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Variable name is not a symbol: ~S."
+msgstr "Ariablevay amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Nihil ex nihil, can't declare ~S special."
+msgstr "Ihilnay exway ihilnay, ancay't eclareday ~S ecialspay."
+
+#: target:compiler/proclaim.lisp
+msgid "Veritas aeterna, can't declare ~S special."
+msgstr "Eritasvay aeternaway, ancay't eclareday ~S ecialspay."
+
+#: target:compiler/proclaim.lisp
+msgid "Can't declare ~S special, it is a keyword."
+msgstr "Ancay't eclareday ~S ecialspay, itway isway away eywordkay."
+
+#: target:compiler/proclaim.lisp
+msgid "Proceed anyway."
+msgstr "Oceedpray anywayway."
+
+#: target:compiler/proclaim.lisp
+msgid "Trying to declare ~S special, which is ~A."
+msgstr "Yingtray otay eclareday ~S ecialspay, ichwhay isway ~Away."
+
+#: target:compiler/proclaim.lisp
+msgid "a constant"
+msgstr "away onstantcay"
+
+#: target:compiler/proclaim.lisp
+msgid "an alien variable"
+msgstr "anway alienway ariablevay"
+
+#: target:compiler/proclaim.lisp
+msgid "a symbol macro"
+msgstr "away ymbolsay acromay"
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Declared functional type is not a function type: ~S."
+msgstr "Eclaredday unctionalfay ypetay isway otnay away unctionfay ypetay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Ignoring FTYPE declaration for slot accesor:~%  ~S"
+msgstr "Ignoringway FTYPE eclarationday orfay otslay accesorway:~%  ~S"
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration to be RECOGNIZED is not a symbol: ~S."
+msgstr "Eclarationday otay ebay RECOGNIZED isway otnay away ymbolsay: ~S."
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration already names a type: ~S."
+msgstr "Eclarationday alreadyway amesnay away ypetay: ~S."
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Unrecognized proclamation: ~S."
+msgstr "Unrecognizedway oclamationpray: ~S."
+
+#: target:code/unidata.lisp
+msgid "The Unicode data file is broken."
+msgstr "Ethay Unicodeway ataday ilefay isway okenbray."
+
+#: target:code/unidata.lisp
+msgid "Unicode data file is for Unicode ~D.~D.~D"
+msgstr "Unicodeway ataday ilefay isway orfay Unicodeway ~D.~D.~D"
+
+#: target:code/unidata.lisp
+msgid "No data in file."
+msgstr "Onay ataday inway ilefay."
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on values produced by CHAR-CODE."
+msgstr ""
+"Ethay upperway exclusiveway oundbay onway aluesvay oducedpray ybay CHAR-CODE."
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on the value of a Unicode codepoint"
+msgstr ""
+"Ethay upperway exclusiveway oundbay onway ethay aluevay ofway away "
+"Unicodeway odepointcay"
+
+#: target:code/char.lisp
+msgid ""
+"This is the alist of (character-name . character) for characters with\n"
+"  long names.  The first name in this list for a given character is used\n"
+"  on typeout and is the preferred form for input."
+msgstr ""
+"Isthay isway ethay alistway ofway (aracterchay-amenay . aracterchay) orfay "
+"aracterschay ithway\n"
+"  onglay amesnay.  Ethay irstfay amenay inway isthay istlay orfay away "
+"ivengay aracterchay isway usedway\n"
+"  onway ypeouttay andway isway ethay eferredpray ormfay orfay inputway."
+
+#: target:code/char.lisp
+msgid "Returns the integer code of CHAR."
+msgstr "Eturnsray ethay integerway odecay ofway CHAR."
+
+#: target:code/char.lisp
+msgid ""
+"Returns the integer code of CHAR.  This is the same as char-code, as\n"
+"   CMU Common Lisp does not implement character bits or fonts."
+msgstr ""
+"Eturnsray ethay integerway odecay ofway CHAR.  Isthay isway ethay amesay "
+"asway archay-odecay, asway\n"
+"   CMU Ommoncay Isplay oesday otnay implementway aracterchay itsbay orway "
+"ontsfay."
+
+#: target:code/char.lisp
+msgid "Returns the character with the code CODE."
+msgstr "Eturnsray ethay aracterchay ithway ethay odecay CODE."
+
+#: target:code/char.lisp
+msgid ""
+"Coerces its argument into a character object if possible.  Accepts\n"
+"  characters, strings and symbols of length 1."
+msgstr ""
+"Oercescay itsway argumentway intoway away aracterchay objectway ifway "
+"ossiblepay.  Acceptsway\n"
+"  aracterschay, ingsstray andway ymbolssay ofway engthlay 1."
+
+#: target:code/char.lisp
+msgid "String is not of length one: ~S"
+msgstr "Ingstray isway otnay ofway engthlay oneway: ~S"
+
+#: target:code/char.lisp
+msgid "Symbol name is not of length one: ~S"
+msgstr "Ymbolsay amenay isway otnay ofway engthlay oneway: ~S"
+
+#: target:code/char.lisp
+msgid "~S cannot be coerced to a character."
+msgstr "~S annotcay ebay oercedcay otay away aracterchay."
+
+#: target:code/char.lisp
+msgid ""
+"Given a character object, char-name returns the name for that\n"
+"  object (a symbol)."
+msgstr ""
+"Ivengay away aracterchay objectway, archay-amenay eturnsray ethay amenay "
+"orfay atthay\n"
+"  objectway (away ymbolsay)."
+
+#: target:code/char.lisp
+msgid ""
+"Given an argument acceptable to string, name-char returns a character\n"
+"  object whose name is that symbol, if one exists, otherwise NIL."
+msgstr ""
+"Ivengay anway argumentway acceptableway otay ingstray, amenay-archay "
+"eturnsray away aracterchay\n"
+"  objectway osewhay amenay isway atthay ymbolsay, ifway oneway existsway, "
+"otherwiseway NIL."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Standard-char-p returns T if the\n"
+"   argument is a standard character -- one of the 95 ASCII printing "
+"characters\n"
+"   or <return>."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway.  Tandardsay-archay-"
+"p eturnsray T ifway ethay\n"
+"   argumentway isway away tandardsay aracterchay -- oneway ofway ethay 95 "
+"ASCII intingpray aractechaysray\n"
+"   orway <eturnray>."
+
+#: target:code/char.lisp
+msgid ""
+"Return T if and only if THING is a standard-char.  Differs from\n"
+"  standard-char-p in that THING doesn't have to be a character."
+msgstr ""
+"Eturnray T ifway andway onlyway ifway THING isway away tandardsay-archay.  "
+"Iffersday omfray\n"
+"  tandardsay-archay-p inway atthay THING oesnday't avehay otay ebay away "
+"aracterchay."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Graphic-char-p returns T if the\n"
+"  argument is a printing character, otherwise returns NIL."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway.  Aphicgray-archay-"
+"p eturnsray T ifway ethay\n"
+"  argumentway isway away intingpray aracterchay, otherwiseway eturnsray NIL."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Alpha-char-p returns T if the\n"
+"  argument is an alphabetic character; otherwise NIL."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway.  Alphaway-archay-p "
+"eturnsray T ifway ethay\n"
+"  argumentway isway anway alphabeticway aracterchay; otherwiseway NIL."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; upper-case-p returns T if the\n"
+"  argument is an upper-case character, NIL otherwise."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway; upperway-asecay-p "
+"eturnsray T ifway ethay\n"
+"  argumentway isway anway upperway-asecay aracterchay, NIL otherwiseway."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; lower-case-p returns T if the \n"
+"  argument is a lower-case character, NIL otherwise."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway; owerlay-asecay-p "
+"eturnsray T ifway ethay \n"
+"  argumentway isway away owerlay-asecay aracterchay, NIL otherwiseway."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; title-case-p returns T if the\n"
+"  argument is a title-case character, NIL otherwise."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway; itletay-asecay-p "
+"eturnsray T ifway ethay\n"
+"  argumentway isway away itletay-asecay aracterchay, NIL otherwiseway."
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Both-case-p returns T if the\n"
+"  argument is an alphabetic character and if the character exists in\n"
+"  both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
+msgstr ""
+"Ethay argumentway ustmay ebay away aracterchay objectway.  Othbay-asecay-p "
+"eturnsray T ifway ethay\n"
+"  argumentway isway anway alphabeticway aracterchay andway ifway ethay "
+"aracterchay existsway inway\n"
+"  othbay upperway andway owerlay asecay.  Orfay ASCII, isthay isway ethay "
+"amesay asway Alphaway-archay-p."
+
+#: target:code/char.lisp
+msgid ""
+"If char is a digit in the specified radix, returns the fixnum for\n"
+"  which that digit stands, else returns NIL.  Radix defaults to 10\n"
+"  (decimal)."
+msgstr ""
+"Ifway archay isway away igitday inway ethay ecifiedspay adixray, eturnsray "
+"ethay ixnumfay orfay\n"
+"  ichwhay atthay igitday tandssay, elseway eturnsray NIL.  Adixray "
+"efaultsday otay 10\n"
+"  (ecimalday)."
+
+#: target:code/char.lisp
+msgid ""
+"Given a character-object argument, alphanumericp returns T if the\n"
+"  argument is either numeric or alphabetic."
+msgstr ""
+"Ivengay away aracterchay-objectway argumentway, alphanumericpway eturnsray T "
+"ifway ethay\n"
+"  argumentway isway eitherway umericnay orway alphabeticway."
+
+#: target:code/char.lisp
+msgid "Returns T if all of its arguments are the same character."
+msgstr ""
+"Eturnsray T ifway allway ofway itsway argumentsway areway ethay amesay "
+"aracterchay."
+
+#: target:code/char.lisp
+msgid "Returns T if no two of its arguments are the same character."
+msgstr ""
+"Eturnsray T ifway onay wotay ofway itsway argumentsway areway ethay amesay "
+"aracterchay."
+
+#: target:code/char.lisp
+msgid "Returns T if its arguments are in strictly increasing alphabetic order."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray increasingway "
+"alphabeticway orderway."
+
+#: target:code/char.lisp
+msgid "Returns T if its arguments are in strictly decreasing alphabetic order."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray ecreasingday "
+"alphabeticway orderway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray onnay-"
+"ecreasingday alphabeticway orderway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray onnay-"
+"increasingway alphabeticway orderway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if all of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway allway ofway itsway argumentsway areway ethay amesay "
+"aracterchay.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if no two of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway onay wotay ofway itsway argumentsway areway ethay amesay "
+"aracterchay.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray increasingway "
+"alphabeticway orderway.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray ecreasingday "
+"alphabeticway orderway.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray onnay-"
+"ecreasingday alphabeticway orderway.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+"Eturnsray T ifway itsway argumentsway areway inway ictlystray onnay-"
+"increasingway alphabeticway orderway.\n"
+"   Asecay isway ignoredway."
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to upper-case if that is possible."
+msgstr ""
+"Eturnsray CHAR onvertedcay otay upperway-asecay ifway atthay isway "
+"ossiblepay."
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to title-case if that is possible."
+msgstr ""
+"Eturnsray CHAR onvertedcay otay itletay-asecay ifway atthay isway ossiblepay."
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to lower-case if that is possible."
+msgstr ""
+"Eturnsray CHAR onvertedcay otay owerlay-asecay ifway atthay isway ossiblepay."
+
+#: target:code/char.lisp
+msgid ""
+"All arguments must be integers.  Returns a character object that\n"
+"  represents a digit of the given weight in the specified radix.  Returns\n"
+"  NIL if no such character exists."
+msgstr ""
+"Allway argumentsway ustmay ebay integersway.  Eturnsray away aracterchay "
+"objectway atthay\n"
+"  epresentsray away igitday ofway ethay ivengay eightway inway ethay "
+"ecifiedspay adixray.  Eturnsray\n"
+"  NIL ifway onay uchsay aracterchay existsway."
+
+#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp
+msgid ""
+"Returns the documentation string of Doc-Type for X, or NIL if\n"
+"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
+"  SETF, and T."
+msgstr ""
+"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway "
+"NIL ifway\n"
+"  onenay existsway.  Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, "
+"STRUCTURE, TYPE,\n"
+"  SETF, andway T."
+
+#: target:code/misc.lisp
+msgid "~S is not the name of a structure type."
+msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay."
+
+#: target:code/misc.lisp
+msgid ""
+"If X is an atom, see if it is present in *FEATURES*.  Also\n"
+"  handle arbitrary combinations of atoms using NOT, AND, OR."
+msgstr ""
+"Ifway X isway anway atomway, eesay ifway itway isway esentpray inway "
+"*FEATURES*.  Alsoway\n"
+"  andlehay arbitraryway ombinationscay ofway atomsway usingway NOT, AND, OR."
+
+#: target:code/misc.lisp
+msgid "Unknown operator in feature expression: ~S."
+msgstr "Unknownway operatorway inway eaturefay expressionway: ~S."
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation type."
+msgstr "Eturnsray away ingstray escribingday ethay implementationway ypetay."
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation version."
+msgstr ""
+"Eturnsray away ingstray escribingday ethay implementationway ersionvay."
+
+#: target:code/misc.lisp
+msgid " Unicode"
+msgstr " Unicodeway"
+
+#: target:code/misc.lisp
+msgid "Returns a string giving the name of the local machine."
+msgstr ""
+"Eturnsray away ingstray ivinggay ethay amenay ofway ethay ocallay achinemay."
+
+#: target:code/misc.lisp
+msgid "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp."
+msgstr "Ethay aluevay ofway SOFTWARE-TYPE.  Etsay inway FOO-osway.isplay."
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the supporting software."
+msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
+
+#: target:code/misc.lisp
+msgid "Unknown"
+msgstr "Unknownway"
+
+#: target:code/misc.lisp
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+"Ethay aluevay ofway SHORT-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
+"isplay."
+
+#: target:code/misc.lisp
+msgid "Returns a string with the abbreviated site name."
+msgstr "Eturnsray away ingstray ithway ethay abbreviatedway itesay amenay."
+
+#: target:code/misc.lisp
+msgid "Site name not initialized"
+msgstr "Itesay amenay otnay initializedway"
+
+#: target:code/misc.lisp
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+"Ethay aluevay ofway LONG-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
+"isplay."
+
+#: target:code/misc.lisp
+msgid "Returns a string with the long form of the site name."
+msgstr ""
+"Eturnsray away ingstray ithway ethay onglay ormfay ofway ethay itesay amenay."
+
+#: target:code/misc.lisp
+msgid ""
+"With a file name as an argument, dribble opens the file and\n"
+"   sends a record of further I/O to that file.  Without an\n"
+"   argument, it closes the dribble file, and quits logging."
+msgstr ""
+"Ithway away ilefay amenay asway anway argumentway, ibbledray opensway ethay "
+"ilefay andway\n"
+"   endssay away ecordray ofway urtherfay Iway/O otay atthay ilefay.  "
+"Ithoutway anway\n"
+"   argumentway, itway osesclay ethay ibbledray ilefay, andway itsquay "
+"ogginglay."
+
+#: target:code/misc.lisp
+msgid "Not currently dribbling."
+msgstr "Otnay urrentlycay ibblingdray."
+
+#: target:code/misc.lisp
+msgid ""
+"Default implementation of ed.  This does nothing.  If hemlock is\n"
+"  loaded, ed can be used to edit a file"
+msgstr ""
+"Efaultday implementationway ofway edway.  Isthay oesday othingnay.  Ifway "
+"emlockhay isway\n"
+"  oadedlay, edway ancay ebay usedway otay editway away ilefay"
+
+#: target:code/extensions.lisp
+msgid ""
+"This function can be used as the default value for keyword arguments that\n"
+"  must be always be supplied.  Since it is known by the compiler to never\n"
+"  return, it will avoid any compile-time type warnings that would result "
+"from a\n"
+"  default value inconsistent with the declared type.  When this function is\n"
+"  called, it signals an error indicating that a required keyword argument "
+"was\n"
+"  not supplied.  This function is also useful for DEFSTRUCT slot defaults\n"
+"  corresponding to required arguments."
+msgstr ""
+"Isthay unctionfay ancay ebay usedway asway ethay efaultday aluevay orfay "
+"eywordkay argumentsway atthay\n"
+"  ustmay ebay alwaysway ebay uppliedsay.  Incesay itway isway nownkay ybay "
+"ethay ompilercay otay evernay\n"
+"  eturnray, itway illway avoidway anyway ompilecay-imetay ypetay arningsway "
+"atthay ouldway esultray omfray away\n"
+"  efaultday aluevay inconsistentway ithway ethay eclaredday ypetay.  Enwhay "
+"isthay unctionfay isway\n"
+"  alledcay, itway ignalssay anway errorway indicatingway atthay away "
+"equiredray eywordkay argumentway asway\n"
+"  otnay uppliedsay.  Isthay unctionfay isway alsoway usefulway orfay "
+"DEFSTRUCT otslay efaultsday\n"
+"  orrespondingcay otay equiredray argumentsway."
+
+#: target:code/extensions.lisp
+msgid "A required keyword argument was not supplied."
+msgstr "Away equiredray eywordkay argumentway asway otnay uppliedsay."
+
+#: target:code/extensions.lisp
+msgid ""
+"FILE-COMMENT String\n"
+"  When COMPILE-FILE sees this form at top-level, it places the constant "
+"string\n"
+"  in the run-time source location information.  DESCRIBE will print the "
+"file\n"
+"  comment for the file that a function was defined in.  The string is also\n"
+"  textually present in the FASL, so the RCS \"ident\" command can find it,\n"
+"  etc."
+msgstr ""
+"FILE-COMMENT Ingstray\n"
+"  Enwhay COMPILE-FILE eessay isthay ormfay atway optay-evellay, itway "
+"acesplay ethay onstantcay ingstray\n"
+"  inway ethay unray-imetay ourcesay ocationlay informationway.  DESCRIBE "
+"illway intpray ethay ilefay\n"
+"  ommentcay orfay ethay ilefay atthay away unctionfay asway efinedday "
+"inway.  Ethay ingstray isway alsoway\n"
+"  extuallytay esentpray inway ethay FASL, osay ethay RCS \"identway\" "
+"ommandcay ancay indfay itway,\n"
+"  etcway."
+
+#: target:code/extensions.lisp
+msgid "See listen.  Any whitespace in the input stream will be flushed."
+msgstr ""
+"Eesay istenlay.  Anyway itespacewhay inway ethay inputway eamstray illway "
+"ebay ushedflay."
+
+#: target:code/extensions.lisp
+msgid ""
+"Does what one might expect, saving the old values and setting the "
+"generalized\n"
+"  variables to the new values in sequence.  Unwind-protects and get-setf-"
+"method\n"
+"  are used to preserve the semantics one might expect in analogy to let*,\n"
+"  and the once-only evaluation of subforms."
+msgstr ""
+"Oesday atwhay oneway ightmay expectway, avingsay ethay oldway aluesvay "
+"andway ettingsay ethay eneralizegayd\n"
+"  ariablesvay otay ethay ewnay aluesvay inway equencesay.  Unwindway-"
+"otectspray andway etgay-etfsay-etmayodhay\n"
+"  areway usedway otay eservepray ethay emanticssay oneway ightmay expectway "
+"inway analogyway otay et*lay,\n"
+"  andway ethay onceway-onlyway evaluationway ofway ubformssay."
+
+#: target:code/extensions.lisp
+msgid ""
+"Like letf*, but evaluates all the implicit subforms and new values of all\n"
+"  the implied setfs before altering any values.  However, the store forms\n"
+"  (see get-setf-method) must still be evaluated in sequence.  Uses unwind-\n"
+"  protects to protect the environment."
+msgstr ""
+"Ikelay etf*lay, utbay evaluatesway allway ethay implicitway ubformssay "
+"andway ewnay aluesvay ofway allway\n"
+"  ethay impliedway etfssay eforebay alteringway anyway aluesvay.  Oweverhay, "
+"ethay toresay ormsfay\n"
+"  (eesay etgay-etfsay-ethodmay) ustmay tillsay ebay evaluatedway inway "
+"equencesay.  Usesway unwindway-\n"
+"  otectspray otay otectpray ethay environmentway."
+
+#: target:code/extensions.lisp
+msgid ""
+"Causes the output of the indenting Stream to indent More spaces.  More is\n"
+"  evaluated twice."
+msgstr ""
+"Ausescay ethay outputway ofway ethay indentingway Eamstray otay indentway "
+"Oremay acesspay.  Oremay isway\n"
+"  evaluatedway wicetay."
+
+#: target:code/extensions.lisp
+msgid "Just like dolist, but with one-dimensional arrays."
+msgstr "Ustjay ikelay olistday, utbay ithway oneway-imensionalday arraysway."
+
+#: target:code/extensions.lisp
+msgid ""
+"Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n"
+"  This is syntactic sugar for Labels.  It creates a local function Name "
+"with\n"
+"  the specified Vars as its arguments and the Declarations and Forms as its\n"
+"  body.  This function is then called with the Initial-Values, and the "
+"result\n"
+"  of the call is return from the macro."
+msgstr ""
+"Iterateway Amenay ({(Arvay Initialway-Aluevay)}*) Eclaration*Day Orm*Fay\n"
+"  Isthay isway yntacticsay ugarsay orfay Abelslay.  Itway eatescray away "
+"ocallay unctionfay Amenay ithway\n"
+"  ethay ecifiedspay Arsvay asway itsway argumentsway andway ethay "
+"Eclarationsday andway Ormsfay asway itsway\n"
+"  odybay.  Isthay unctionfay isway enthay alledcay ithway ethay Initialway-"
+"Aluesvay, andway ethay esultray\n"
+"  ofway ethay allcay isway eturnray omfray ethay acromay."
+
+#: target:code/extensions.lisp
+msgid "Malformed iterate variable spec: ~S."
+msgstr "Alformedmay iterateway ariablevay ecspay: ~S."
+
+#: target:code/extensions.lisp
+msgid ""
+"Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n"
+"  Collect some values somehow.  Each of the collections specifies a bunch "
+"of\n"
+"  things which collected during the evaluation of the body of the form.  "
+"The\n"
+"  name of the collection is used to define a local macro, a la MACROLET.\n"
+"  Within the body, this macro will evaluate each of its arguments and "
+"collect\n"
+"  the result, returning the current value after the collection is done.  "
+"The\n"
+"  body is evaluated as a PROGN; to get the final values when you are done, "
+"just\n"
+"  call the collection macro with no arguments.\n"
+"\n"
+"  Initial-Value is the value that the collection starts out with, which\n"
+"  defaults to NIL.  Function is the function which does the collection.  It "
+"is\n"
+"  a function which will accept two arguments: the value to be collected and "
+"the\n"
+"  current collection.  The result of the function is made the new value for "
+"the\n"
+"  collection.  As a totally magical special-case, the Function may be "
+"Collect,\n"
+"  which tells us to build a list in forward order; this is the default.  If "
+"an\n"
+"  Initial-Value is supplied for Collect, the stuff will be rplacd'd onto "
+"the\n"
+"  end.  Note that Function may be anything that can appear in the "
+"functional\n"
+"  position, including macros and lambdas."
+msgstr ""
+"Ollectcay ({(Amenay [Initialway-Aluevay] [Unctionfay])}*) {Ormfay}*\n"
+"  Ollectcay omesay aluesvay omehowsay.  Eachway ofway ethay ollectionscay "
+"ecifiesspay away unchbay ofway\n"
+"  ingsthay ichwhay ollectedcay uringday ethay evaluationway ofway ethay "
+"odybay ofway ethay ormfay.  Ethay\n"
+"  amenay ofway ethay ollectioncay isway usedway otay efineday away ocallay "
+"acromay, away alay MACROLET.\n"
+"  Ithinway ethay odybay, isthay acromay illway evaluateway eachway ofway "
+"itsway argumentsway andway ollectcay\n"
+"  ethay esultray, eturningray ethay urrentcay aluevay afterway ethay "
+"ollectioncay isway oneday.  Ethay\n"
+"  odybay isway evaluatedway asway away PROGN; otay etgay ethay inalfay "
+"aluesvay enwhay ouyay areway oneday, ustjay\n"
+"  allcay ethay ollectioncay acromay ithway onay argumentsway.\n"
+"\n"
+"  Initialway-Aluevay isway ethay aluevay atthay ethay ollectioncay tartssay "
+"outway ithway, ichwhay\n"
+"  efaultsday otay NIL.  Unctionfay isway ethay unctionfay ichwhay oesday "
+"ethay ollectioncay.  Itway isway\n"
+"  away unctionfay ichwhay illway acceptway wotay argumentsway: ethay aluevay "
+"otay ebay ollectedcay andway ethay\n"
+"  urrentcay ollectioncay.  Ethay esultray ofway ethay unctionfay isway "
+"ademay ethay ewnay aluevay orfay ethay\n"
+"  ollectioncay.  Asway away otallytay agicalmay ecialspay-asecay, ethay "
+"Unctionfay aymay ebay Ollectcay,\n"
+"  ichwhay ellstay usway otay uildbay away istlay inway orwardfay orderway; "
+"isthay isway ethay efaultday.  Ifway anway\n"
+"  Initialway-Aluevay isway uppliedsay orfay Ollectcay, ethay tuffsay illway "
+"ebay placdray'd ontoway ethay\n"
+"  endway.  Otenay atthay Unctionfay aymay ebay anythingway atthay ancay "
+"appearway inway ethay unctionalfay\n"
+"  ositionpay, includingway acrosmay andway ambdaslay."
+
+#: target:code/extensions.lisp
+msgid "Malformed collection specifier: ~S."
+msgstr "Alformedmay ollectioncay ecifierspay: ~S."
+
+#: target:code/extensions.lisp
+msgid ""
+"Once-Only ({(Var Value-Expression)}*) Form*\n"
+"  Create a Let* which evaluates each Value-Expression, binding a temporary\n"
+"  variable to the result, and wrapping the Let* around the result of the\n"
+"  evaluation of Body.  Within the body, each Var is bound to the "
+"corresponding\n"
+"  temporary variable."
+msgstr ""
+"Onceway-Onlyway ({(Arvay Aluevay-Expressionway)}*) Orm*Fay\n"
+"  Eatecray away Et*Lay ichwhay evaluatesway eachway Aluevay-Expressionway, "
+"indingbay away emporarytay\n"
+"  ariablevay otay ethay esultray, andway appingwray ethay Et*Lay aroundway "
+"ethay esultray ofway ethay\n"
+"  evaluationway ofway Odybay.  Ithinway ethay odybay, eachway Arvay isway "
+"oundbay otay ethay orrespondicaygnay\n"
+"  emporarytay ariablevay."
+
+#: target:code/extensions.lisp
+msgid "Malformed Once-Only binding spec: ~S."
+msgstr "Alformedmay Onceway-Onlyway indingbay ecspay: ~S."
+
+#: target:code/extensions.lisp
+msgid "Ill-formed ~S -- possibly illegal old style DO?"
+msgstr "Illway-ormedfay ~S -- ossiblypay illegalway oldway tylesay DO?"
+
+#: target:code/extensions.lisp
+msgid "~S step variable is not a symbol: ~S"
+msgstr "~S tepsay ariablevay isway otnay away ymbolsay: ~S"
+
+#: target:code/extensions.lisp
+msgid "~S is an illegal form for a ~S varlist."
+msgstr "~S isway anway illegalway ormfay orfay away ~S arlistvay."
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Like DO, but has no implicit NIL block.  Each Var is initialized in "
+"parallel\n"
+"  to the value of the specified Init form.  On subsequent iterations, the "
+"Vars\n"
+"  are assigned the value of the Step form (if any) in paralell.  The Test "
+"is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO."
+msgstr ""
+"DO-ANONYMOUS ({(Arvay [Initway] [Tepsay])}*) (Esttay Exitway-Orm*Fay) "
+"Eclaration*Day Orm*Fay\n"
+"  Ikelay DO, utbay ashay onay implicitway NIL ockblay.  Eachway Arvay isway "
+"initializedway inway arallelpay\n"
+"  otay ethay aluevay ofway ethay ecifiedspay Initway ormfay.  Onway "
+"ubsequentsay iterationsway, ethay Arsvay\n"
+"  areway assignedway ethay aluevay ofway ethay Tepsay ormfay (ifway anyway) "
+"inway aralellpay.  Ethay Esttay isway\n"
+"  evaluatedway eforebay eachway evaluationway ofway ethay odybay Ormsfay.  "
+"Enwhay ethay Esttay isway uetray,\n"
+"  ethay Exitway-Ormsfay areway evaluatedway asway away PROGN, ithway ethay "
+"esultray eingbay ethay aluevay\n"
+"  ofway ethay DO."
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n"
+"   Iterate over the entries in a hash-table."
+msgstr ""
+"DO-HASH (Eykay-Arvay Aluevay-Arvay Abletay [Esultray]) Eclaration*Day "
+"Orm*Fay\n"
+"   Iterateway overway ethay entriesway inway away ashhay-abletay."
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n"
+"  Define a hash cache that associates some number of argument values to a\n"
+"  result value.  The Test-Function paired with each Arg-Name is used to "
+"compare\n"
+"  the value for that arg in a cache entry with a supplied arg.  The\n"
+"  Test-Function must not error when passed NIL as its first arg, but need "
+"not\n"
+"  return any particular value.  Test-Function may be any thing that can be\n"
+"  place in CAR position.\n"
+"\n"
+"  Name is used to define functions these functions:\n"
+"\n"
+"  <name>-CACHE-LOOKUP Arg*\n"
+"      See if there is an entry for the specified Args in the cache.  The if "
+"not\n"
+"      present, the :DEFAULT keyword (default NIL) determines the result(s).\n"
+"\n"
+"  <name>-CACHE-ENTER Arg* Value*\n"
+"      Encache the association of the specified args with Value.\n"
+"\n"
+"  <name>-CACHE-FLUSH-<arg-name> Arg\n"
+"      Flush all entries from the cache that have the value Arg for the "
+"named\n"
+"      arg.\n"
+"\n"
+"  <name>-CACHE-CLEAR\n"
+"      Reinitialize the cache, invalidating all entries and allowing the\n"
+"      arguments and result values to be GC'd.\n"
+"\n"
+"  These other keywords are defined:\n"
+"\n"
+"  :HASH-BITS <n>\n"
+"      The size of the cache as a power of 2.\n"
+"\n"
+"  :HASH-FUNCTION function\n"
+"      Some thing that can be placed in CAR position which will compute a "
+"value\n"
+"      between 0 and (1- (expt 2 <hash-bits>)).\n"
+"\n"
+"  :VALUES <n>\n"
+"      The number of values cached.\n"
+"\n"
+"   :INIT-FORM <name>\n"
+"      The DEFVAR for creating the cache is enclosed in a form with the\n"
+"      specified name.  Default PROGN."
+msgstr ""
+"DEFINE-HASH-CACHE Amenay ({(Argway-Amenay Esttay-Unctionfay)}*) {Eykay "
+"Aluevay}*\n"
+"  Efineday away ashhay achecay atthay associatesway omesay umbernay ofway "
+"argumentway aluesvay otay away\n"
+"  esultray aluevay.  Ethay Esttay-Unctionfay airedpay ithway eachway Argway-"
+"Amenay isway usedway otay omparecay\n"
+"  ethay aluevay orfay atthay argway inway away achecay entryway ithway away "
+"uppliedsay argway.  Ethay\n"
+"  Esttay-Unctionfay ustmay otnay errorway enwhay assedpay NIL asway itsway "
+"irstfay argway, utbay eednay otnay\n"
+"  eturnray anyway articularpay aluevay.  Esttay-Unctionfay aymay ebay anyway "
+"ingthay atthay ancay ebay\n"
+"  aceplay inway CAR ositionpay.\n"
+"\n"
+"  Amenay isway usedway otay efineday unctionsfay esethay unctionsfay:\n"
+"\n"
+"  <amenay>-CACHE-LOOKUP Arg*Way\n"
+"      Eesay ifway erethay isway anway entryway orfay ethay ecifiedspay "
+"Argsway inway ethay achecay.  Ethay ifway otnay\n"
+"      esentpray, ethay :DEFAULT eywordkay (efaultday NIL) eterminesday ethay "
+"esultray(s).\n"
+"\n"
+"  <amenay>-CACHE-ENTER Arg*Way Alue*Vay\n"
+"      Encacheway ethay associationway ofway ethay ecifiedspay argsway ithway "
+"Aluevay.\n"
+"\n"
+"  <amenay>-CACHE-FLUSH-<argway-amenay> Argway\n"
+"      Ushflay allway entriesway omfray ethay achecay atthay avehay ethay "
+"aluevay Argway orfay ethay amednay\n"
+"      argway.\n"
+"\n"
+"  <amenay>-CACHE-CLEAR\n"
+"      Einitializeray ethay achecay, invalidatingway allway entriesway andway "
+"allowingway ethay\n"
+"      argumentsway andway esultray aluesvay otay ebay GC'd.\n"
+"\n"
+"  Esethay otherway eywordskay areway efinedday:\n"
+"\n"
+"  :HASH-BITS <n>\n"
+"      Ethay izesay ofway ethay achecay asway away owerpay ofway 2.\n"
+"\n"
+"  :HASH-FUNCTION unctionfay\n"
+"      Omesay ingthay atthay ancay ebay acedplay inway CAR ositionpay ichwhay "
+"illway omputecay away aluevay\n"
+"      etweenbay 0 andway (1- (exptway 2 <ashhay-itsbay>)).\n"
+"\n"
+"  :VALUES <n>\n"
+"      Ethay umbernay ofway aluesvay achedcay.\n"
+"\n"
+"   :INIT-FORM <amenay>\n"
+"      Ethay DEFVAR orfay eatingcray ethay achecay isway enclosedway inway "
+"away ormfay ithway ethay\n"
+"      ecifiedspay amenay.  Efaultday PROGN."
+
+#: target:code/extensions.lisp
+msgid "Number of default values ~S differs from :VALUES ~D."
+msgstr "Umbernay ofway efaultday aluesvay ~S iffersday omfray :VALUES ~D."
+
+#: target:code/extensions.lisp
+msgid "Bad arg spec: ~S."
+msgstr "Adbay argway ecspay: ~S."
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n"
+"  Some syntactic sugar for defining a function whose values are cached by\n"
+"  DEFINE-HASH-CACHE."
+msgstr ""
+"DEFUN-CACHED (Amenay {Eykay Aluevay}*) ({(Argway-Amenay Esttay-Unctionfay)}"
+"*) Orm*Fay\n"
+"  Omesay yntacticsay ugarsay orfay efiningday away unctionfay osewhay "
+"aluesvay areway achedcay ybay\n"
+"  DEFINE-HASH-CACHE."
+
+#: target:code/extensions.lisp
+msgid ""
+"Return an EQ hash of X.  The value of this hash for any given object can "
+"(of\n"
+"  course) change at arbitary times."
+msgstr ""
+"Eturnray anway EQ ashhay ofway X.  Ethay aluevay ofway isthay ashhay orfay "
+"anyway ivengay objectway ancay (ofway\n"
+"  oursecay) angechay atway arbitaryway imestay."
+
+#: target:code/commandline.lisp
+msgid "A list of all the command line arguments after --"
+msgstr ""
+"Away istlay ofway allway ethay ommandcay inelay argumentsway afterway --"
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of cmd-switch's representing the arguments used to invoke\n"
+"  this process."
+msgstr ""
+"Away istlay ofway mdcay-witchsay's epresentingray ethay argumentsway usedway "
+"otay invokeway\n"
+"  isthay ocesspray."
+
+#: target:code/commandline.lisp
+msgid "The string name that was used to invoke this process."
+msgstr ""
+"Ethay ingstray amenay atthay asway usedway otay invokeway isthay ocesspray."
+
+#: target:code/commandline.lisp
+msgid "A list of words between the utility name and the first switch."
+msgstr ""
+"Away istlay ofway ordsway etweenbay ethay utilityway amenay andway ethay "
+"irstfay witchsay."
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of strings obtained from the command line that invoked this process."
+msgstr ""
+"Away istlay ofway ingsstray obtainedway omfray ethay ommandcay inelay atthay "
+"invokedway isthay ocesspray."
+
+#: target:code/commandline.lisp
+msgid "An Alist of (\"argument-name\" . demon-function)"
+msgstr "Anway Alistway ofway (\"argumentway-amenay\" . emonday-unctionfay)"
+
+#: target:code/commandline.lisp
+msgid ""
+"When True runs lisp with its input coming from standard-input.\n"
+"   If an error is detected returns error code 1, otherwise 0."
+msgstr ""
+"Enwhay Uetray unsray isplay ithway itsway inputway omingcay omfray "
+"tandardsay-inputway.\n"
+"   Ifway anway errorway isway etectedday eturnsray errorway odecay 1, "
+"otherwiseway 0."
+
+#: target:code/commandline.lisp
+msgid ""
+"Accepts the name of a switch as a string and returns the value of the\n"
+"   switch.  If no value was specified, then any following words are "
+"returned.\n"
+"   If there are no following words, then t is returned.  If the switch was "
+"not\n"
+"   specified, then nil is returned."
+msgstr ""
+"Acceptsway ethay amenay ofway away witchsay asway away ingstray andway "
+"eturnsray ethay aluevay ofway ethay\n"
+"   witchsay.  Ifway onay aluevay asway ecifiedspay, enthay anyway "
+"ollowingfay ordsway areway eturnedray.\n"
+"   Ifway erethay areway onay ollowingfay ordsway, enthay t isway "
+"eturnedray.  Ifway ethay witchsay asway otnay\n"
+"   ecifiedspay, enthay ilnay isway eturnedray."
+
+#: target:code/commandline.lisp
+msgid ""
+"When set, invoking switch demons complains about illegal switches that have\n"
+"   not been defined with DEFSWITCH."
+msgstr ""
+"Enwhay etsay, invokingway witchsay emonsday omplainscay aboutway illegalway "
+"witchessay atthay avehay\n"
+"   otnay eenbay efinedday ithway DEFSWITCH."
+
+#: target:code/commandline.lisp
+msgid "~S is an illegal switch"
+msgstr "~S isway anway illegalway witchsay"
+
+#: target:code/commandline.lisp
+msgid ""
+"Associates function with the switch name in *command-switch-demons*.  Name\n"
+"   is a simple-string that does not begin with a hyphen, unless the switch "
+"name\n"
+"   really does begin with one.  Function is optional, but defining the "
+"switch\n"
+"   is necessary to keep invoking switch demons from complaining about "
+"illegal\n"
+"   switches.  This can be inhibited with *complain-about-illegal-switches*."
+msgstr ""
+"Associatesway unctionfay ithway ethay witchsay amenay inway *command-switch-"
+"demons*.  Amenay\n"
+"   isway away implesay-ingstray atthay oesday otnay eginbay ithway away "
+"yphenhay, unlessway ethay witchsay amenay\n"
+"   eallyray oesday eginbay ithway oneway.  Unctionfay isway optionalway, "
+"utbay efiningday ethay witchsay\n"
+"   isway ecessarynay otay eepkay invokingway witchsay emonsday omfray "
+"omplainingcay aboutway illegalway\n"
+"   witchessay.  Isthay ancay ebay inhibitedway ithway *complain-about-"
+"illegal-switches*."
+
+#: target:code/commandline.lisp
+msgid "a symbol or function"
+msgstr "away ymbolsay orway unctionfay"
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the symbol VAR in the lexical environment ENV.\n"
+"Three values are returned:\n"
+"  1) Type or binding of VAR.\n"
+"     NIL           No definition or binding\n"
+"     :special      VAR is special\n"
+"     :lexical      VAR is lexical\n"
+"     :symbol-macro VAR refers to a SYMBOL-MACROLET binding\n"
+"     :constant     VAR refers to a named constant or VAR is a keyword\n"
+"  2) non-NIL if there is a local binding\n"
+"  3) An a-list containing information about any declarations that apply."
+msgstr ""
+"Eturnsray informationway aboutway ethay ymbolsay VAR inway ethay exicallay "
+"environmentway ENV.\n"
+"Reethay aluesvay areway eturnedray:\n"
+"  1) Ypetay orway indingbay ofway VAR.\n"
+"     NIL           Onay efinitionday orway indingbay\n"
+"     :ecialspay      VAR isway ecialspay\n"
+"     :exicallay      VAR isway exicallay\n"
+"     :ymbolsay-acromay VAR efersray otay away SYMBOL-MACROLET indingbay\n"
+"     :onstantcay     VAR efersray otay away amednay onstantcay orway VAR "
+"isway away eywordkay\n"
+"  2) onnay-NIL ifway erethay isway away ocallay indingbay\n"
+"  3) Anway away-istlay ontainingcay informationway aboutway anyway "
+"eclarationsday atthay applyway."
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about declarations named by the symbol DECLARATION-"
+"NAME.\n"
+"Supported DECLARATION-NAMES are\n"
+"  1) OPTIMIZE\n"
+"     A list whose entries are of the form (QUALITY VALUE) is returned,\n"
+"     where QUALITY and VALUE are standard optimization qualities and\n"
+"     values.\n"
+"  2) EXT:OPTIMIZE-INTERFACE\n"
+"     Like OPTIMIZE, but for the EXT:OPTIMIZE-INTERFACE declaration.\n"
+"  3) DECLARATION.\n"
+"     A list of the declaration names the have been proclaimed as valid."
+msgstr ""
+"Eturnsray informationway aboutway eclarationsday amednay ybay ethay ymbolsay "
+"DECLARATION-NAME.\n"
+"Upportedsay DECLARATION-NAMES areway\n"
+"  1) OPTIMIZE\n"
+"     Away istlay osewhay entriesway areway ofway ethay ormfay (QUALITY "
+"VALUE) isway eturnedray,\n"
+"     erewhay QUALITY andway VALUE areway tandardsay optimizationway "
+"alitiesquay andway\n"
+"     aluesvay.\n"
+"  2) EXT:OPTIMIZE-INTERFACE\n"
+"     Ikelay OPTIMIZE, utbay orfay ethay EXT:OPTIMIZE-INTERFACE "
+"eclarationday.\n"
+"  3) DECLARATION.\n"
+"     Away istlay ofway ethay eclarationday amesnay ethay avehay eenbay "
+"oclaimedpray asway alidvay."
+
+#: target:code/env-access.lisp
+msgid "Unsupported declaration ~S."
+msgstr "Unsupportedway eclarationday ~S."
+
+#: target:code/env-access.lisp
+msgid ""
+"Process a macro in the same way that DEFMACRO or MACROLET would.\n"
+"Three values are returned:\n"
+"  1) A lambda-expression that accepts two arguments\n"
+"  2) A form\n"
+"  3) An environment"
+msgstr ""
+"Ocesspray away acromay inway ethay amesay ayway atthay DEFMACRO orway "
+"MACROLET ouldway.\n"
+"Reethay aluesvay areway eturnedray:\n"
+"  1) Away ambdalay-expressionway atthay acceptsway wotay argumentsway\n"
+"  2) Away ormfay\n"
+"  3) Anway environmentway"
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the function name FUNCTION in the lexical "
+"environment ENV.\n"
+"Three values are returned:\n"
+"  1) Type of definition or binding:\n"
+"     NIL          No apparent definition\n"
+"    :function    FUNCTION refers to a function\n"
+"    :macro        FUNCTION refers to a macro\n"
+"    :special-form FUNCTION is a special form\n"
+"  2) non-NIL if definition is local\n"
+"  3) An a-list containing information about the declarations that apply."
+msgstr ""
+"Eturnsray informationway aboutway ethay unctionfay amenay FUNCTION inway "
+"ethay exicallay environmwayentway ENV.\n"
+"Reethay aluesvay areway eturnedray:\n"
+"  1) Ypetay ofway efinitionday orway indingbay:\n"
+"     NIL          Onay apparentway efinitionday\n"
+"    :unctionfay    FUNCTION efersray otay away unctionfay\n"
+"    :acromay        FUNCTION efersray otay away acromay\n"
+"    :ecialspay-ormfay FUNCTION isway away ecialspay ormfay\n"
+"  2) onnay-NIL ifway efinitionday isway ocallay\n"
+"  3) Anway away-istlay ontainingcay informationway aboutway ethay "
+"eclarationsday atthay applyway."
+
+#: target:code/env-access.lisp
+msgid ""
+"Return a new environment containing information in ENV that is augmented\n"
+"by the specified parameters:\n"
+"  :VARIABLE     a list of symbols visible as bound variables in the new\n"
+"                environemnt\n"
+"  :SYMBOL-MACRO a list of symbol macro definitions\n"
+"  :FUNCTION     a list of function names that will be visible as local\n"
+"                functions\n"
+"  :MACRO        a list of local macro definitions\n"
+"  :DECLARE      a list of declaration specifiers"
+msgstr ""
+"Eturnray away ewnay environmentway ontainingcay informationway inway ENV "
+"atthay isway augmentedway\n"
+"ybay ethay ecifiedspay arameterspay:\n"
+"  :VARIABLE     away istlay ofway ymbolssay isiblevay asway oundbay "
+"ariablesvay inway ethay ewnay\n"
+"                environemntway\n"
+"  :SYMBOL-MACRO away istlay ofway ymbolsay acromay efinitionsday\n"
+"  :FUNCTION     away istlay ofway unctionfay amesnay atthay illway ebay "
+"isiblevay asway ocallay\n"
+"                unctionsfay\n"
+"  :MACRO        away istlay ofway ocallay acromay efinitionsday\n"
+"  :DECLARE      away istlay ofway eclarationday ecifiersspay"
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by dfixnum i"
+msgstr "incrementsway fixnumday v ybay fixnumday i"
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a + ~a"
+msgstr "fixnumday ecamebay ootay igbay ~away + ~away"
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by i (max half fixnum)"
+msgstr "incrementsway fixnumday v ybay i (axmay alfhay ixnumfay)"
+
+#: target:code/dfixnum.lisp
+msgid "not a half-fixnum: ~a"
+msgstr "otnay away alfhay-ixnumfay: ~away"
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by dfixnum i"
+msgstr "ecrementday fixnumday v ybay fixnumday i"
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a - ~a (~a/~a)"
+msgstr "fixnumday ecamebay egativenay ~away - ~away (~away/~away)"
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by half-fixnum i"
+msgstr "ecrementday fixnumday v ybay alfhay-ixnumfay i"
+
+#: target:code/dfixnum.lisp
+msgid ""
+"increments dfixnum by an interger which may be bigger than fixnum.\n"
+"   May cons"
+msgstr ""
+"incrementsway fixnumday ybay anway intergerway ichwhay aymay ebay iggerbay "
+"anthay ixnumfay.\n"
+"   Aymay onscay"
+
+#: target:code/dfixnum.lisp
+msgid "returns a new dfixnum from number i"
+msgstr "eturnsray away ewnay fixnumday omfray umbernay i"
+
+#: target:code/dfixnum.lisp
+msgid "increments a pair of halffixnums by another pair"
+msgstr "incrementsway away airpay ofway alffixnumshay ybay anotherway airpay"
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a/~a + ~a/~a"
+msgstr "fixnumday ecamebay ootay igbay ~away/~away + ~away/~away"
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum pair by another pair"
+msgstr "ecrementday fixnumday airpay ybay anotherway airpay"
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+msgstr "fixnumday ecamebay egativenay ~away/~away - ~away/~away(~away/~away)"
+
+#: target:code/room.lisp
+msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
+msgstr "~2&Ummarysay ofway acesspay: ~(~{~Away ~}~)~%"
+
+#: target:code/room.lisp
+msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+msgstr "~%Ummarysay otaltay:~%    ~:D ytesbay, ~:D objectsway.~%"
+
+#: target:code/room.lisp
+msgid "~%~A:~%    ~:D bytes, ~:D object"
+msgid_plural "~%~A:~%    ~:D bytes, ~:D objects"
+msgstr[0] "~%~Away:~%    ~:D ytesbay, ~:D objectway"
+msgstr[1] "~%~Away:~%    ~:D ytesbay, ~:D objectsway"
+
+#: target:code/room.lisp
+msgid "~2&Breakdown for ~(~A~) space:~%"
+msgstr "~2&Eakdownbray orfay ~(~Away~) acespay:~%"
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D other object.~%"
+msgid_plural "  ~13:D bytes for ~9:D other objects.~%"
+msgstr[0] "  ~13:D ytesbay orfay ~9:D otherway objectway.~%"
+msgstr[1] "  ~13:D ytesbay orfay ~9:D otherway objectsway.~%"
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object.~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
+msgstr[0] "  ~13:D ytesbay orfay ~9:D ~(~Away~) objectway.~%"
+msgstr[1] "  ~13:D ytesbay orfay ~9:D ~(~Away~) objectsway.~%"
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
+msgstr[0] "  ~13:D ytesbay orfay ~9:D ~(~Away~) objectway (acespay otaltay.)~%"
+msgstr[1] ""
+"  ~13:D ytesbay orfay ~9:D ~(~Away~) objectsway (acespay otaltay.)~%"
+
+#: target:code/room.lisp
+msgid ""
+"Print out information about the heap memory in use.  :Print-Spaces is a "
+"list\n"
+"  of the spaces to print detailed information for.  :Count-Spaces is a list "
+"of\n"
+"  the spaces to scan.  For either one, T means all spaces (:Static, :"
+"Dyanmic\n"
+"  and :Read-Only.)  If :Print-Summary is true, then summary information will "
+"be\n"
+"  printed.  The defaults print only summary information for dynamic space.\n"
+"  If true, Cutoff is a fraction of the usage in a report below which types "
+"will\n"
+"  be combined as OTHER."
+msgstr ""
+"Intpray outway informationway aboutway ethay eaphay emorymay inway useway.  :"
+"Intpray-Acesspay isway away istlay\n"
+"  ofway ethay acesspay otay intpray etailedday informationway orfay.  :"
+"Ountcay-Acesspay isway away istlay ofway\n"
+"  ethay acesspay otay anscay.  Orfay eitherway oneway, T eansmay allway "
+"acesspay (:Taticsay, :Yanmicday\n"
+"  andway :Eadray-Onlyway.)  Ifway :Intpray-Ummarysay isway uetray, enthay "
+"ummarysay informationway illway ebay\n"
+"  intedpray.  Ethay efaultsday intpray onlyway ummarysay informationway "
+"orfay ynamicday acespay.\n"
+"  Ifway uetray, Utoffcay isway away actionfray ofway ethay usageway inway "
+"away eportray elowbay ichwhay ypestay illway\n"
+"  ebay ombinedcay asway OTHER."
+
+#: target:code/room.lisp
+msgid "Print info about how much code and no-ops there are in Space."
+msgstr ""
+"Intpray infoway aboutway owhay uchmay odecay andway onay-opsway erethay "
+"areway inway Acespay."
+
+#: target:code/room.lisp
+msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+msgstr ""
+"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway (~D"
+"%).~%"
+
+#: target:code/room.lisp
+msgid "Bogus type: ~D"
+msgstr "Ogusbay ypetay: ~D"
+
+#: target:code/room.lisp
+msgid "~:D words allocated for descriptor objects.~%"
+msgstr "~:D ordsway allocatedway orfay escriptorday objectsway.~%"
+
+#: target:code/room.lisp
+msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
+msgstr ""
+"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway.~"
+"%"
+
+#: target:code/room.lisp
+msgid ""
+"Print a breakdown by instance type of all the instances allocated in\n"
+"  Space.  If TOP-N is true, print only information for the the TOP-N types "
+"with\n"
+"  largest usage."
+msgstr ""
+"Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay "
+"instancesway allocatedway inway\n"
+"  Acespay.  Ifway TOP-N isway uetray, intpray onlyway informationway orfay "
+"ethay ethay TOP-N ypestay ithway\n"
+"  argestlay usageway."
+
+#: target:code/room.lisp
+msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
+msgstr "~2&~@[Optay ~D ~]~(~Away~) instanceway ypestay:~%"
+
+#: target:code/room.lisp
+msgid "  ~32A: ~7:D bytes, ~5D object.~%"
+msgid_plural "  ~32A: ~7:D bytes, ~5D objects.~%"
+msgstr[0] "  ~32Away: ~7:D ytesbay, ~5D objectway.~%"
+msgstr[1] "  ~32Away: ~7:D ytesbay, ~5D objectsway.~%"
+
+#: target:code/room.lisp
+msgid "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgid_plural "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgstr[0] "  Otherway ypestay: ~:D ytesbay, ~D: objectway~:P.~%"
+msgstr[1] "  Otherway ypestay: ~:D ytesbay, ~D: objectway~:P.~%"
+
+#: target:code/room.lisp
+msgid "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
+msgid_plural "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
+msgstr[0] "  ~:(~Away~) instanceway otaltay: ~:D ytesbay, ~:D objectway.~%"
+msgstr[1] "  ~:(~Away~) instanceway otaltay: ~:D ytesbay, ~:D objectsway.~%"
+
+#: target:code/room.lisp
+msgid "In ~A space:~%"
+msgstr "Inway ~Away acespay:~%"
+
+#: target:code/room.lisp
+msgid "~D bytes at #x~X~%"
+msgstr "~D ytesbay atway #x~X~%"
+
+#: target:code/room.lisp
+msgid "No source for ~S"
+msgstr "Onay ourcesay orfay ~S"
+
+#: target:code/room.lisp
+msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
+msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
+msgstr[0] "~%Ackagepay ~Away: ~32T~9:D ytesbay, ~9:D objectway.~%"
+msgstr[1] "~%Ackagepay ~Away: ~32T~9:D ytesbay, ~9:D objectsway.~%"
+
+#: target:code/room.lisp
+msgid "~30@A: ~9:D bytes, ~9:D object.~%"
+msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%"
+msgstr[0] "~30@Away: ~9:D ytesbay, ~9:D objectway.~%"
+msgstr[1] "~30@Away: ~9:D ytesbay, ~9:D objectsway.~%"
+
+#: target:code/room.lisp
+msgid ""
+"Given a hashtable, print a histogram of the contents.  Function should give\n"
+"  the value to plot when applied to the hashtable values."
+msgstr ""
+"Ivengay away ashtablehay, intpray away istogramhay ofway ethay ontentscay.  "
+"Unctionfay ouldshay ivegay\n"
+"  ethay aluevay otay otplay enwhay appliedway otay ethay ashtablehay "
+"aluesvay."
+
+#: target:code/room.lisp
+msgid ""
+"Report the Top-N entries in the hashtable Table, when sorted by Function\n"
+"  applied to the hash value.  If Top-N is NIL, report all entries."
+msgstr ""
+"Eportray ethay Optay-N entriesway inway ethay ashtablehay Abletay, enwhay "
+"ortedsay ybay Unctionfay\n"
+"  appliedway otay ethay ashhay aluevay.  Ifway Optay-N isway NIL, eportray "
+"allway entriesway."
+
+#: target:code/room.lisp
+msgid "~8:D: Other~%"
+msgstr "~8:D: Otherway~%"
+
+#: target:code/room.lisp
+msgid "~8:D: Total~%"
+msgstr "~8:D: Otaltay~%"
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable mapping each function in for which a call appears in\n"
+"  Space to the number of times such a call appears."
+msgstr ""
+"Eturnray away ashtablehay appingmay eachway unctionfay inway orfay ichwhay "
+"away allcay appearsway inway\n"
+"  Acespay otay ethay umbernay ofway imestay uchsay away allcay appearsway."
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable translating code objects to function constant counts for\n"
+"  all code objects in Space with more than Above function constants."
+msgstr ""
+"Eturnray away ashtablehay anslatingtray odecay objectsway otay unctionfay "
+"onstantcay ountscay orfay\n"
+"  allway odecay objectsway inway Acespay ithway oremay anthay Aboveway "
+"unctionfay onstantscay."
+
+#: target:code/gc.lisp
+msgid "Oh no.  The current dynamic space is missing!"
+msgstr "Ohway onay.  Ethay urrentcay ynamicday acespay isway issingmay!"
+
+#: target:code/gc.lisp
+msgid "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "Ynamicday Acespay Usageway:    ~13:D ytesbay (outway ofway ~4:D MB).~%"
+
+#: target:code/gc.lisp
+msgid "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
+msgstr ""
+"Eadray-Onlyway Acespay Usageway:  ~13:D ytesbay (outway ofway ~4:D MB).~%"
+
+#: target:code/gc.lisp
+msgid "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
+msgstr "Taticsay Acespay Usageway:     ~13:D ytesbay (outway ofway ~4:D MB).~%"
+
+#: target:code/gc.lisp
+msgid "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "Ontrolcay Tacksay Usageway:    ~13:D ytesbay (outway ofway ~4:D MB).~%"
+
+#: target:code/gc.lisp
+msgid "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "Indingbay Tacksay Usageway:    ~13:D ytesbay (outway ofway ~4:D MB).~%"
+
+#: target:code/gc.lisp
+msgid "The current dynamic space is ~D.~%"
+msgstr "Ethay urrentcay ynamicday acespay isway ~D.~%"
+
+#: target:code/gc.lisp
+msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
+msgstr "Arbagegay ollectioncay isway urrentlycay ~:[enabledway~;DISABLED~].~%"
+
+#: target:code/gc.lisp
+msgid ""
+"Prints to *STANDARD-OUTPUT* information about the state of internal\n"
+"  storage and its management.  The optional argument controls the\n"
+"  verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of\n"
+"  information.  If it is NIL, ROOM prints out a minimal amount of\n"
+"  information.  If it is :DEFAULT or it is not supplied, ROOM prints out\n"
+"  an intermediate amount of information.  See also VM:MEMORY-USAGE and\n"
+"  VM:INSTANCE-USAGE for finer report control."
+msgstr ""
+"Intspray otay *STANDARD-OUTPUT* informationway aboutway ethay tatesay ofway "
+"internalway\n"
+"  toragesay andway itsway anagementmay.  Ethay optionalway argumentway "
+"ontrolscay ethay\n"
+"  erbosityvay ofway ROOM.  Ifway itway isway T, ROOM intspray outway away "
+"aximalmay amountway ofway\n"
+"  informationway.  Ifway itway isway NIL, ROOM intspray outway away "
+"inimalmay amountway ofway\n"
+"  informationway.  Ifway itway isway :DEFAULT orway itway isway otnay "
+"uppliedsay, ROOM intspray outway\n"
+"  anway intermediateway amountway ofway informationway.  Eesay alsoway VM:"
+"MEMORY-USAGE andway\n"
+"  VM:INSTANCE-USAGE orfay inerfay eportray ontrolcay."
+
+#: target:code/gc.lisp
+msgid ""
+"No way man!  The optional argument to ROOM must be T, NIL, ~\n"
+"\t\t or :DEFAULT.~%What do you think you are doing?"
+msgstr ""
+"Onay ayway anmay!  Ethay optionalway argumentway otay ROOM ustmay ebay T, "
+"NIL, ~\n"
+"\t\t orway :DEFAULT.~%Atwhay oday ouyay inkthay ouyay areway oingday?"
+
+#: target:code/gc.lisp
+msgid "resetting GC counters"
+msgstr "esettingray GC ounterscay"
+
+#: target:code/gc.lisp
+msgid ""
+"Returns the number of bytes consed since the first time this function\n"
+"  was called.  The first time it is called, it returns zero."
+msgstr ""
+"Eturnsray ethay umbernay ofway ytesbay onsedcay incesay ethay irstfay imetay "
+"isthay unctionfay\n"
+"  asway alledcay.  Ethay irstfay imetay itway isway alledcay, itway "
+"eturnsray erozay."
+
+#: target:code/gc.lisp
+msgid ""
+"This number specifies the minimum number of bytes of dynamic space\n"
+"   that must be consed before the next gc will occur."
+msgstr ""
+"Isthay umbernay ecifiesspay ethay inimummay umbernay ofway ytesbay ofway "
+"ynamicday acespay\n"
+"   atthay ustmay ebay onsedcay eforebay ethay extnay cgay illway occurway."
+
+#: target:code/gc.lisp
+msgid ""
+"The total CPU time spend doing garbage collection (as reported by\n"
+"   GET-INTERNAL-RUN-TIME.)"
+msgstr ""
+"Ethay otaltay CPU imetay endspay oingday arbagegay ollectioncay (asway "
+"eportedray ybay\n"
+"   GET-INTERNAL-RUN-TIME.)"
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called before garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+"Away istlay ofway unctionsfay atthay areway alledcay eforebay arbagegay "
+"ollectioncay occursway.\n"
+"  Ethay unctionsfay ouldshay aketay onay argumentsway."
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called after garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+"Away istlay ofway unctionsfay atthay areway alledcay afterway arbagegay "
+"ollectioncay occursway.\n"
+"  Ethay unctionsfay ouldshay aketay onay argumentsway."
+
+#: target:code/gc.lisp
+msgid ""
+"Should be bound to a function or NIL.  If it is a function, this\n"
+"  function should take one argument, the current amount of dynamic\n"
+"  usage.  The function should return NIL if garbage collection should\n"
+"  continue and non-NIL if it should be inhibited.  Use with caution."
+msgstr ""
+"Ouldshay ebay oundbay otay away unctionfay orway NIL.  Ifway itway isway "
+"away unctionfay, isthay\n"
+"  unctionfay ouldshay aketay oneway argumentway, ethay urrentcay amountway "
+"ofway ynamicday\n"
+"  usageway.  Ethay unctionfay ouldshay eturnray NIL ifway arbagegay "
+"ollectioncay ouldshay\n"
+"  ontinuecay andway onnay-NIL ifway itway ouldshay ebay inhibitedway.  "
+"Useway ithway autioncay."
+
+#: target:code/gc.lisp
+msgid ""
+"When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n"
+"  *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n"
+"  occurs respectively.  If :BEEP, causes the default notify functions to "
+"beep\n"
+"  annoyingly."
+msgstr ""
+"Enwhay onnay-NIL, ausescay ethay unctionsfay oundbay otay *GC-NOTIFY-BEFORE* "
+"andway\n"
+"  *GC-NOTIFY-AFTER* otay ebay alledcay eforebay andway afterway away "
+"arbagegay ollectioncay\n"
+"  occursway espectivelyray.  Ifway :BEEP, ausescay ethay efaultday otifynay "
+"unctionsfay otay eepbay\n"
+"  annoyinglyway."
+
+#: target:code/gc.lisp
+msgid ""
+"~&; [GC threshold exceeded with ~:D bytes in use.  ~\n"
+"             Commencing GC.]~%"
+msgstr ""
+"~&; [GC resholdthay exceededway ithway ~:D ytesbay inway useway.  ~\n"
+"             Ommencingcay GC.]~%"
+
+#: target:code/gc.lisp
+msgid ""
+"This function bound to this variable is invoked before GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n"
+"  bytes).  It should notify the user that the system is going to GC."
+msgstr ""
+"Isthay unctionfay oundbay otay isthay ariablevay isway invokedway eforebay "
+"GC'ingway (unlessway\n"
+"  *GC-VERBOSE* isway NIL) ithway ethay urrentcay amountway ofway ynamicday "
+"usageway (inway\n"
+"  ytesbay).  Itway ouldshay otifynay ethay userway atthay ethay ystemsay "
+"isway oinggay otay GC."
+
+#: target:code/gc.lisp
+msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
+msgstr ""
+"~&; [GC ompletedcay ithway ~:D ytesbay etainedray andway ~:D ytesbay "
+"eedfray.]~%"
+
+#: target:code/gc.lisp
+msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
+msgstr ""
+"~&; [GC illway extnay occurway enwhay atway eastlay ~:D ytesbay areway inway "
+"useway.]~%"
+
+#: target:code/gc.lisp
+msgid ""
+"The function bound to this variable is invoked after GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n"
+"  free, the number of bytes freed by the GC, and the new GC trigger\n"
+"  threshold.  The function should notify the user that the system has\n"
+"  finished GC'ing."
+msgstr ""
+"Ethay unctionfay oundbay otay isthay ariablevay isway invokedway afterway "
+"GC'ingway (unlessway\n"
+"  *GC-VERBOSE* isway NIL) ithway ethay amountway ofway ynamicday usageway "
+"(inway ytesbay) ownay\n"
+"  eefray, ethay umbernay ofway ytesbay eedfray ybay ethay GC, andway ethay "
+"ewnay GC iggertray\n"
+"  resholdthay.  Ethay unctionfay ouldshay otifynay ethay userway atthay "
+"ethay ystemsay ashay\n"
+"  inishedfay GC'ingway."
+
+#: target:code/gc.lisp
+msgid "Attempt to set GC trigger to something bogus: ~S"
+msgstr "Attemptway otay etsay GC iggertray otay omethingsay ogusbay: ~S"
+
+#: target:code/gc.lisp
+msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
+msgstr "(FUNCALL ~S~{ ~S~}) ostlay:~%~Away"
+
+#: target:code/gc.lisp
+msgid ""
+"The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n"
+"\t       integer.  Resetting it to ~D."
+msgstr ""
+"Ethay aluevay ofway *BYTES-CONSED-BETWEEN-GCS*, ~S, isway otnay anway ~\n"
+"\t       integerway.  Esettingray itway otay ~D."
+
+#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr ""
+"~&Adjustingway *last-bytes-in-use* omfray ~:D otay ~:D, engay ~d, epray ~:D ~"
+"%"
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The optional argument, VERBOSE-P,\n"
+"  which defaults to the value of the variable *GC-VERBOSE* controls\n"
+"  whether or not GC statistics are printed."
+msgstr ""
+"Initiatesway away arbagegay ollectioncay.  Ethay optionalway argumentway, "
+"VERBOSE-P,\n"
+"  ichwhay efaultsday otay ethay aluevay ofway ethay ariablevay *GC-VERBOSE* "
+"ontrolscay\n"
+"  etherwhay orway otnay GC tatisticssay areway intedpray."
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The keyword :VERBOSE, which\n"
+"   defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
+"   not GC statistics are printed. The keyword :GEN defaults to 0, and\n"
+"   controls the number of generations to garbage collect."
+msgstr ""
+"Initiatesway away arbagegay ollectioncay.  Ethay eywordkay :VERBOSE, "
+"ichwhay\n"
+"   efaultsday otay ethay aluevay ofway ethay ariablevay *GC-VERBOSE* "
+"ontrolscay etherwhay orway\n"
+"   otnay GC tatisticssay areway intedpray. Ethay eywordkay :GEN efaultsday "
+"otay 0, andway\n"
+"   ontrolscay ethay umbernay ofway enerationsgay otay arbagegay ollectcay."
+
+#: target:code/gc.lisp
+msgid ""
+"Return the amount of memory that will be allocated before the next garbage\n"
+"   collection is initiated.  This can be set with SETF."
+msgstr ""
+"Eturnray ethay amountway ofway emorymay atthay illway ebay allocatedway "
+"eforebay ethay extnay arbagegay\n"
+"   ollectioncay isway initiatedway.  Isthay ancay ebay etsay ithway SETF."
+
+#: target:code/gc.lisp
+msgid "Enables the garbage collector."
+msgstr "Enablesway ethay arbagegay ollectorcay."
+
+#: target:code/gc.lisp
+msgid "Disables the garbage collector."
+msgstr "Isablesday ethay arbagegay ollectorcay."
+
+#: target:code/gc.lisp
+msgid ""
+"Return some GC statistics for the specified GENERATION.  The\n"
+"  statistics are the number of bytes allocated in this generation; the\n"
+"  gc-trigger; the number of bytes consed between GCs; the number of\n"
+"  GCs that have occurred; the trigger age; the cumulative number of\n"
+"  bytes allocated in this generation; and the average age of this\n"
+"  generation.  See the gencgc source code for more info."
+msgstr ""
+"Eturnray omesay GC tatisticssay orfay ethay ecifiedspay GENERATION.  Ethay\n"
+"  tatisticssay areway ethay umbernay ofway ytesbay allocatedway inway isthay "
+"enerationgay; ethay\n"
+"  cgay-iggertray; ethay umbernay ofway ytesbay onsedcay etweenbay Csgay; "
+"ethay umbernay ofway\n"
+"  Csgay atthay avehay occurredway; ethay iggertray ageway; ethay "
+"umulativecay umbernay ofway\n"
+"  ytesbay allocatedway inway isthay enerationgay; andway ethay averageway "
+"ageway ofway isthay\n"
+"  enerationgay.  Eesay ethay encgcgay ourcesay odecay orfay oremay infoway."
+
+#: target:code/purify.lisp
+msgid ""
+"This function optimizes garbage collection by moving all currently live\n"
+"   objects into non-collected storage.  ROOT-STRUCTURES is an optional list "
+"of\n"
+"   objects which should be copied first to maximize locality.\n"
+"\n"
+"   DEFSTRUCT structures defined with the (:PURE T) option are moved into\n"
+"   read-only storage, further reducing GC cost.  List and vector slots of "
+"pure\n"
+"   structures are also moved into read-only storage.\n"
+"\n"
+"   ENVIRONMENT-NAME is gratuitous documentation for compacted version of "
+"the\n"
+"   current global environment (as seen in C::*INFO-ENVIRONMENT*.)  If NIL "
+"is\n"
+"   supplied, then environment compaction is inhibited."
+msgstr ""
+"Isthay unctionfay optimizesway arbagegay ollectioncay ybay ovingmay allway "
+"urrentlycay ivelay\n"
+"   objectsway intoway onnay-ollectedcay toragesay.  ROOT-STRUCTURES isway "
+"anway optionalway istlay ofway\n"
+"   objectsway ichwhay ouldshay ebay opiedcay irstfay otay aximizemay "
+"ocalitylay.\n"
+"\n"
+"   DEFSTRUCT ucturesstray efinedday ithway ethay (:PURE T) optionway areway "
+"ovedmay intoway\n"
+"   eadray-onlyway toragesay, urtherfay educingray GC ostcay.  Istlay andway "
+"ectorvay otsslay ofway urepay\n"
+"   ucturesstray areway alsoway ovedmay intoway eadray-onlyway toragesay.\n"
+"\n"
+"   ENVIRONMENT-NAME isway atuitousgray ocumentationday orfay ompactedcay "
+"ersionvay ofway ethay\n"
+"   urrentcay obalglay environmentway (asway eensay inway C::*INFO-"
+"ENVIRONMENT*.)  Ifway NIL isway\n"
+"   uppliedsay, enthay environmentway ompactioncay isway inhibitedway."
+
+#: target:code/purify.lisp
+msgid "[Doing purification: "
+msgstr "[Oingday urificationpay: "
+
+#: target:code/purify.lisp
+msgid "Done.]"
+msgstr "Oneday.]"
+
+#: target:code/scavhook.lisp
+msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+msgstr ""
+"Eturnsray T ifway OBJECT isway away avengerscay-ookhay, andway NIL ifway "
+"otnay."
+
+#: target:code/scavhook.lisp
+msgid ""
+"Create a new scavenger-hook with the specified VALUE and FUNCTION.  For\n"
+"   as long as the scavenger-hook is alive, the scavenger in the garbage\n"
+"   collector will note whenever VALUE is moved, and arrange for FUNCTION\n"
+"   to be funcalled."
+msgstr ""
+"Eatecray away ewnay avengerscay-ookhay ithway ethay ecifiedspay VALUE andway "
+"FUNCTION.  Orfay\n"
+"   asway onglay asway ethay avengerscay-ookhay isway aliveway, ethay "
+"avengerscay inway ethay arbagegay\n"
+"   ollectorcay illway otenay eneverwhay VALUE isway ovedmay, andway "
+"arrangeway orfay FUNCTION\n"
+"   otay ebay uncalledfay."
+
+#: target:code/scavhook.lisp
+msgid "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
+msgstr ""
+"Eturnsray ethay VALUE eingbay onitoredmay ybay SCAVHOOK.  Ancay ebay etfsay."
+
+#: target:code/scavhook.lisp
+msgid ""
+"Returns the FUNCTION invoked when the monitored value is moved.  Can be\n"
+"   setf."
+msgstr ""
+"Eturnsray ethay FUNCTION invokedway enwhay ethay onitoredmay aluevay isway "
+"ovedmay.  Ancay ebay\n"
+"   etfsay."
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called before creating a saved core\n"
+"  image.  These functions are executed in the child process which has no "
+"ports,\n"
+"  so they cannot do anything that tries to talk to the outside world."
+msgstr ""
+"Isthay isway away istlay ofway unctionsfay ichwhay areway alledcay eforebay "
+"eatingcray away avedsay orecay\n"
+"  imageway.  Esethay unctionsfay areway executedway inway ethay ildchay "
+"ocesspray ichwhay ashay onay ortspay,\n"
+"  osay eythay annotcay oday anythingway atthay iestray otay alktay otay "
+"ethay outsideway orldway."
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called when a saved core image starts\n"
+"  up.  The system itself should be initialized at this point, but "
+"applications\n"
+"  might not be."
+msgstr ""
+"Isthay isway away istlay ofway unctionsfay ichwhay areway alledcay enwhay "
+"away avedsay orecay imageway tartssay\n"
+"  upway.  Ethay ystemsay itselfway ouldshay ebay initializedway atway isthay "
+"ointpay, utbay applicatiowaysnay\n"
+"  ightmay otnay ebay."
+
+#: target:code/save.lisp
+msgid "An alist mapping environment variables (as keywords) to either values"
+msgstr ""
+"Anway alistway appingmay environmentway ariablesvay (asway eywordskay) otay "
+"eitherway aluesvay"
+
+#: target:code/save.lisp
+msgid "Non-NIL if environment-init has been called"
+msgstr "Onnay-NIL ifway environmentway-initway ashay eenbay alledcay"
+
+#: target:code/save.lisp
+msgid "This is true if and only if the lisp was started with the -edit switch."
+msgstr ""
+"Isthay isway uetray ifway andway onlyway ifway ethay isplay asway tartedsay "
+"ithway ethay -editway witchsay."
+
+#: target:code/save.lisp
+msgid ""
+"Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
+"  following keywords are defined:\n"
+"  \n"
+"  :purify\n"
+"      If true (the default), do a purifying GC which moves all dynamically\n"
+"  allocated objects into static space so that they stay pure.  This takes\n"
+"  somewhat longer than the normal GC which is otherwise done, but GC's will\n"
+"  be done less often and take less time in the resulting core file.  See\n"
+"  EXT:PURIFY.\n"
+"\n"
+"  :root-structures\n"
+"      This should be a list of the main entry points in any newly loaded\n"
+"  systems.  This need not be supplied, but locality and/or GC performance\n"
+"  will be better if they are.  Meaningless if :purify is NIL.  See EXT:"
+"PURIFY.\n"
+"\n"
+"  :environment-name\n"
+"      Also passed to EXT:PURIFY when :PURIFY is T.  Rarely used.\n"
+"  \n"
+"  :init-function\n"
+"      This is the function that starts running when the created core file "
+"is\n"
+"  resumed.  The default function simply invokes the top level\n"
+"  read-eval-print loop.  If the function returns the lisp will exit.\n"
+"  \n"
+"  :load-init-file\n"
+"      If true, then look for an init.lisp or init.fasl file when the core\n"
+"  file is resumed.\n"
+"\n"
+"  :site-init\n"
+"      If true, then the name of the site init file to load.  The default is\n"
+"      library:site-init.  No error if this does not exist.\n"
+"\n"
+"  :print-herald\n"
+"      If true (the default), print out the lisp system herald when "
+"starting.\n"
+"\n"
+"  :process-command-line\n"
+"      If true (the default), process command-line switches via the normal\n"
+"  mechanisms, otherwise ignore all switches (except those processed by the\n"
+"  C startup code).\n"
+"\n"
+"  :executable\n"
+"      If nil (the default), save-lisp will save using the traditional\n"
+"   core-file format.  If true, save-lisp will create an executable\n"
+"   file that contains the lisp image built in. \n"
+"   (Not all architectures support this yet.)\n"
+"\n"
+"  :batch-mode\n"
+"      If nil (the default), then the presence of the -batch command-line\n"
+"  switch will invoke batch-mode processing.  If true, the produced core\n"
+"  will always be in batch-mode, regardless of any command-line switches."
+msgstr ""
+"Avessay away CMU Ommoncay Isplay orecay imageway inway ethay ilefay ofway "
+"ethay ecifiedspay amenay.  Ethay\n"
+"  ollowingfay eywordskay areway efinedday:\n"
+"  \n"
+"  :urifypay\n"
+"      Ifway uetray (ethay efaultday), oday away urifyingpay GC ichwhay "
+"ovesmay allway ynamicallyday\n"
+"  allocatedway objectsway intoway taticsay acespay osay atthay eythay taysay "
+"urepay.  Isthay akestay\n"
+"  omewhatsay ongerlay anthay ethay ormalnay GC ichwhay isway otherwiseway "
+"oneday, utbay GC's illway\n"
+"  ebay oneday esslay oftenway andway aketay esslay imetay inway ethay "
+"esultingray orecay ilefay.  Eesay\n"
+"  EXT:PURIFY.\n"
+"\n"
+"  :ootray-ucturesstray\n"
+"      Isthay ouldshay ebay away istlay ofway ethay ainmay entryway ointspay "
+"inway anyway ewlynay oadedlay\n"
+"  ystemssay.  Isthay eednay otnay ebay uppliedsay, utbay ocalitylay andway/"
+"orway GC erformancepay\n"
+"  illway ebay etterbay ifway eythay areway.  Eaninglessmay ifway :urifypay "
+"isway NIL.  Eesay EXT:PURIFY.\n"
+"\n"
+"  :environmentway-amenay\n"
+"      Alsoway assedpay otay EXT:PURIFY enwhay :PURIFY isway T.  Arelyray "
+"usedway.\n"
+"  \n"
+"  :initway-unctionfay\n"
+"      Isthay isway ethay unctionfay atthay tartssay unningray enwhay ethay "
+"eatedcray orecay ilefay isway\n"
+"  esumedray.  Ethay efaultday unctionfay implysay invokesway ethay optay "
+"evellay\n"
+"  eadray-evalway-intpray ooplay.  Ifway ethay unctionfay eturnsray ethay "
+"isplay illway exitway.\n"
+"  \n"
+"  :oadlay-initway-ilefay\n"
+"      Ifway uetray, enthay ooklay orfay anway initway.isplay orway initway."
+"aslfay ilefay enwhay ethay orecay\n"
+"  ilefay isway esumedray.\n"
+"\n"
+"  :itesay-initway\n"
+"      Ifway uetray, enthay ethay amenay ofway ethay itesay initway ilefay "
+"otay oadlay.  Ethay efaultday isway\n"
+"      ibrarylay:itesay-initway.  Onay errorway ifway isthay oesday otnay "
+"existway.\n"
+"\n"
+"  :intpray-eraldhay\n"
+"      Ifway uetray (ethay efaultday), intpray outway ethay isplay ystemsay "
+"eraldhay enwhay tartingsay.\n"
+"\n"
+"  :ocesspray-ommandcay-inelay\n"
+"      Ifway uetray (ethay efaultday), ocesspray ommandcay-inelay witchessay "
+"iavay ethay ormalnay\n"
+"  echanismsmay, otherwiseway ignoreway allway witchessay (exceptway osethay "
+"ocessedpray ybay ethay\n"
+"  C tartupsay odecay).\n"
+"\n"
+"  :executableway\n"
+"      Ifway ilnay (ethay efaultday), avesay-isplay illway avesay usingway "
+"ethay aditionaltray\n"
+"   orecay-ilefay ormatfay.  Ifway uetray, avesay-isplay illway eatecray "
+"anway executableway\n"
+"   ilefay atthay ontainscay ethay isplay imageway uiltbay inway. \n"
+"   (Otnay allway architecturesway upportsay isthay etyay.)\n"
+"\n"
+"  :atchbay-odemay\n"
+"      Ifway ilnay (ethay efaultday), enthay ethay esencepray ofway ethay -"
+"atchbay ommandcay-inelay\n"
+"  witchsay illway invokeway atchbay-odemay ocessingpray.  Ifway uetray, "
+"ethay oducedpray orecay\n"
+"  illway alwaysway ebay inway atchbay-odemay, egardlessray ofway anyway "
+"ommandcay-inelay witchessay."
+
+#: target:code/save.lisp
+msgid "Directory ~S does not exist"
+msgstr "Irectoryday ~S oesday otnay existway"
+
+#: target:code/save.lisp
+msgid "Skip remaining initializations."
+msgstr "Kipsay emainingray initializationsway."
+
+#: target:code/save.lisp
+msgid "Error in batch processing:~%~A~%"
+msgstr "Errorway inway atchbay ocessingpray:~%~Away~%"
+
+#: target:code/save.lisp
+msgid ""
+"Determines what PRINT-HERALD prints (the system startup banner.)  This is a\n"
+"   database which can be augmented by each loaded system.  The format is a\n"
+"   property list which maps from subsystem names to the banner information "
+"for\n"
+"   that system.  This list can be manipulated with GETF -- entries are "
+"printed\n"
+"   in, reverse order, so the newest entry is printed last.  Usually the "
+"system\n"
+"   feature keyword is used as the system name.  A given banner is a list of\n"
+"   strings and functions (or function names).  Strings are printed, and\n"
+"   functions are called with an output stream argument."
+msgstr ""
+"Eterminesday atwhay PRINT-HERALD intspray (ethay ystemsay tartupsay "
+"annerbay.)  Isthay isway away\n"
+"   atabaseday ichwhay ancay ebay augmentedway ybay eachway oadedlay "
+"ystemsay.  Ethay ormatfay isway away\n"
+"   opertypray istlay ichwhay apsmay omfray ubsystemsay amesnay otay ethay "
+"annerbay informationway orfay\n"
+"   atthay ystemsay.  Isthay istlay ancay ebay anipulatedmay ithway GETF -- "
+"entriesway areway intedpray\n"
+"   inway, everseray orderway, osay ethay ewestnay entryway isway intedpray "
+"astlay.  Usuallyway ethay ystemsay\n"
+"   eaturefay eywordkay isway usedway asway ethay ystemsay amenay.  Away "
+"ivengay annerbay isway away istlay ofway\n"
+"   ingsstray andway unctionsfay (orway unctionfay amesnay).  Ingsstray "
+"areway intedpray, andway\n"
+"   unctionsfay areway alledcay ithway anway outputway eamstray argumentway."
+
+#: target:code/save.lisp
+msgid ", running on "
+msgstr ", unningray onway "
+
+#: target:code/save.lisp
+msgid "With core: "
+msgstr "Ithway orecay: "
+
+#: target:code/save.lisp
+msgid "Dumped on: "
+msgstr "Umpedday onway: "
+
+#: target:code/save.lisp
+msgid " on "
+msgstr " onway "
+
+#: target:code/save.lisp
+msgid "See <http://www.cons.org/cmucl/> for support information."
+msgstr ""
+"Eesay <ttphay://wwway.onscay.orgway/muclcay/> orfay upportsay informationway."
+
+#: target:code/save.lisp
+msgid "Loaded subsystems:"
+msgstr "Oadedlay ubsystemssay:"
+
+#: target:code/save.lisp
+msgid "    Unicode "
+msgstr "    Unicodeway "
+
+#: target:code/save.lisp
+msgid "with Unicode version "
+msgstr "ithway Unicodeway ersionvay "
+
+#: target:code/save.lisp
+msgid ""
+"Print some descriptive information about the Lisp system version and\n"
+"   configuration."
+msgstr ""
+"Intpray omesay escriptiveday informationway aboutway ethay Isplay ystemsay "
+"ersionvay andway\n"
+"   onfigurationcay."
+
+#: target:code/save.lisp
+msgid "Unrecognized *HERALD-ITEMS* entry: ~S."
+msgstr "Unrecognizedway *HERALD-ITEMS* entryway: ~S."
+
+#: target:code/save.lisp
+msgid "Change *PACKAGE* to the USER package and try again."
+msgstr "Angechay *PACKAGE* otay ethay USER ackagepay andway ytray againway."
+
+#: target:code/stream.lisp
+msgid "Terminal I/O stream."
+msgstr "Erminaltay Iway/O eamstray."
+
+#: target:code/stream.lisp
+msgid "Default input stream."
+msgstr "Efaultday inputway eamstray."
+
+#: target:code/stream.lisp
+msgid "Default output stream."
+msgstr "Efaultday outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "Error output stream."
+msgstr "Errorway outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "Query I/O stream."
+msgstr "Eryquay Iway/O eamstray."
+
+#: target:code/stream.lisp
+msgid "Trace output stream."
+msgstr "Acetray outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "Interactive debugging stream."
+msgstr "Interactiveway ebuggingday eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is not an input stream."
+msgstr "~S isway otnay anway inputway eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is not an output stream."
+msgstr "~S isway otnay anway outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is not a character input stream."
+msgstr "~S isway otnay away aracterchay inputway eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is not a character output stream."
+msgstr "~S isway otnay away aracterchay outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is not a binary input stream."
+msgstr "~S isway otnay away inarybay inputway eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"~S is not a binary input stream ~\n"
+"                          or does not support multi-byte read operations."
+msgstr ""
+"~S isway otnay away inarybay inputway eamstray ~\n"
+"                          orway oesday otnay upportsay ultimay-ytebay eadray "
+"operationsway."
+
+#: target:code/stream.lisp
+msgid "~S is not a binary output stream."
+msgstr "~S isway otnay away inarybay outputway eamstray."
+
+#: target:code/stream.lisp
+msgid "~S is closed."
+msgstr "~S isway osedclay."
+
+#: target:code/stream.lisp
+msgid "~S is an unsupported Gray stream."
+msgstr "~S isway anway unsupportedway Aygray eamstray."
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform input operations."
+msgstr ""
+"Eturnsray onnay-ilnay ifway ethay ivengay Eamstray ancay erformpay inputway "
+"operationsway."
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform output operations."
+msgstr ""
+"Eturnsray onnay-ilnay ifway ethay ivengay Eamstray ancay erformpay outputway "
+"operationsway."
+
+#: target:code/stream.lisp
+msgid "Return true if Stream is not closed."
+msgstr "Eturnray uetray ifway Eamstray isway otnay osedclay."
+
+#: target:code/stream.lisp
+msgid "Returns a type specifier for the kind of object returned by the Stream."
+msgstr ""
+"Eturnsray away ypetay ecifierspay orfay ethay indkay ofway objectway "
+"eturnedray ybay ethay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Return true if Stream does I/O on a terminal or other interactive device."
+msgstr ""
+"Eturnray uetray ifway Eamstray oesday Iway/O onway away erminaltay orway "
+"otherway interactiveway eviceday."
+
+#: target:code/stream.lisp
+msgid "Can't set interactive flag on ~S."
+msgstr "Ancay't etsay interactiveway agflay onway ~S."
+
+#: target:code/stream.lisp
+msgid "Returns the external format used by the given Stream."
+msgstr ""
+"Eturnsray ethay externalway ormatfay usedway ybay ethay ivengay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but inquiries\n"
+"  may still be made.  If :Abort is non-nil, an attempt is made to clean\n"
+"  up the side effects of having created the stream."
+msgstr ""
+"Osesclay ethay ivengay Eamstray.  Onay oremay Iway/O aymay ebay erformedpay, "
+"utbay inquiriesway\n"
+"  aymay tillsay ebay ademay.  Ifway :Abortway isway onnay-ilnay, anway "
+"attemptway isway ademay otay eanclay\n"
+"  upway ethay idesay effectsway ofway avinghay eatedcray ethay eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"With one argument returns the current position within the file\n"
+"   File-Stream is open to.  If the second argument is supplied, then\n"
+"   this becomes the new file position.  The second argument may also\n"
+"   be :start or :end for the start and end of the file, respectively."
+msgstr ""
+"Ithway oneway argumentway eturnsray ethay urrentcay ositionpay ithinway "
+"ethay ilefay\n"
+"   Ilefay-Eamstray isway openway otay.  Ifway ethay econdsay argumentway "
+"isway uppliedsay, enthay\n"
+"   isthay ecomesbay ethay ewnay ilefay ositionpay.  Ethay econdsay "
+"argumentway aymay alsoway\n"
+"   ebay :tartsay orway :endway orfay ethay tartsay andway endway ofway ethay "
+"ilefay, espectivelyray."
+
+#: target:code/stream.lisp
+msgid ""
+"This function returns the length of the file that File-Stream is open to."
+msgstr ""
+"Isthay unctionfay eturnsray ethay engthlay ofway ethay ilefay atthay Ilefay-"
+"Eamstray isway openway otay."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a line of text read from the Stream as a string, discarding the\n"
+"  newline character."
+msgstr ""
+"Eturnsray away inelay ofway exttay eadray omfray ethay Eamstray asway away "
+"ingstray, iscardingday ethay\n"
+"  ewlinenay aracterchay."
+
+#: target:code/stream.lisp
+msgid "Inputs a character from Stream and returns it."
+msgstr "Inputsway away aracterchay omfray Eamstray andway eturnsray itway."
+
+#: target:code/stream.lisp
+msgid "Puts the Character back on the front of the input Stream."
+msgstr ""
+"Utspay ethay Aracterchay ackbay onway ethay ontfray ofway ethay inputway "
+"Eamstray."
+
+#: target:code/stream.lisp
+msgid "Nothing to unread."
+msgstr "Othingnay otay unreadway."
+
+#: target:code/stream.lisp
+msgid "Impossible case reached in PEEK-CHAR"
+msgstr "Impossibleway asecay eachedray inway PEEK-CHAR"
+
+#: target:code/stream.lisp
+msgid ""
+"Peeks at the next character in the input Stream.  See manual for details."
+msgstr ""
+"Eekspay atway ethay extnay aracterchay inway ethay inputway Eamstray.  Eesay "
+"anualmay orfay etailsday."
+
+#: target:code/stream.lisp
+msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
+msgstr "~@<adbay PEEK-TYPE=~S, ~_expectedway ~S~:>"
+
+#: target:code/stream.lisp
+msgid "Returns T if a character is available on the given Stream."
+msgstr ""
+"Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay "
+"Eamstray."
+
+#: target:code/stream.lisp
+msgid "Returns the next character from the Stream if one is available, or nil."
+msgstr ""
+"Eturnsray ethay extnay aracterchay omfray ethay Eamstray ifway oneway isway "
+"availableway, orway ilnay."
+
+#: target:code/stream.lisp
+msgid "Clears any buffered input associated with the Stream."
+msgstr ""
+"Earsclay anyway ufferedbay inputway associatedway ithway ethay Eamstray."
+
+#: target:code/stream.lisp
+msgid "Returns the next byte of the Stream."
+msgstr "Eturnsray ethay extnay ytebay ofway ethay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Reads Numbytes bytes into the Buffer starting at Start, returning the "
+"number\n"
+"   of bytes read.\n"
+"   -- If EOF-ERROR-P is true, an END-OF-FILE condition is signalled if\n"
+"      end-of-file is encountered before Count bytes have been read.\n"
+"   -- If EOF-ERROR-P is false, READ-N-BYTES reads as much data as is "
+"currently\n"
+"      available (up to count bytes).  On pipes or similar devices, this\n"
+"      function returns as soon as any data is available, even if the amount\n"
+"      read is less than Count and eof has not been hit."
+msgstr ""
+"Eadsray Umbytesnay ytesbay intoway ethay Ufferbay tartingsay atway Tartsay, "
+"eturningray ethay umbernay\n"
+"   ofway ytesbay eadray.\n"
+"   -- Ifway EOF-ERROR-P isway uetray, anway END-OF-FILE onditioncay isway "
+"ignalledsay ifway\n"
+"      endway-ofway-ilefay isway encounteredway eforebay Ountcay ytesbay "
+"avehay eenbay eadray.\n"
+"   -- Ifway EOF-ERROR-P isway alsefay, READ-N-BYTES eadsray asway uchmay "
+"ataday asway isway urrentlycay\n"
+"      availableway (upway otay ountcay ytesbay).  Onway ipespay orway "
+"imilarsay evicesday, isthay\n"
+"      unctionfay eturnsray asway oonsay asway anyway ataday isway "
+"availableway, evenway ifway ethay amountway\n"
+"      eadray isway esslay anthay Ountcay andway eofway ashay otnay eenbay "
+"ithay."
+
+#: target:code/stream.lisp
+msgid "Outputs the Character to the Stream."
+msgstr "Outputsway ethay Aracterchay otay ethay Eamstray."
+
+#: target:code/stream.lisp
+msgid "Outputs a new line to the Stream."
+msgstr "Outputsway away ewnay inelay otay ethay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the beginning "
+"of\n"
+"   a line.  Returns T if it output a new line, nil otherwise."
+msgstr ""
+"Outputsway away ewnay inelay otay ethay Eamstray ifway itway isway otnay "
+"ositionedpay atway ethay eginningbay ofway\n"
+"   away inelay.  Eturnsray T ifway itway outputway away ewnay inelay, ilnay "
+"otherwiseway."
+
+#: target:code/stream.lisp
+msgid "Outputs the String to the given Stream."
+msgstr "Outputsway ethay Ingstray otay ethay ivengay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs the String to the given Stream, followed by a newline character."
+msgstr ""
+"Outputsway ethay Ingstray otay ethay ivengay Eamstray, ollowedfay ybay away "
+"ewlinenay aracterchay."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters on the current line of output of the given\n"
+"  Stream, or Nil if that information is not availible."
+msgstr ""
+"Eturnsray ethay umbernay ofway aracterschay onway ethay urrentcay inelay "
+"ofway outputway ofway ethay ivengay\n"
+"  Eamstray, orway Ilnay ifway atthay informationway isway otnay availibleway."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters that will fit on a line of output on the\n"
+"  given Stream, or Nil if that information is not available."
+msgstr ""
+"Eturnsray ethay umbernay ofway aracterschay atthay illway itfay onway away "
+"inelay ofway outputway onway ethay\n"
+"  ivengay Eamstray, orway Ilnay ifway atthay informationway isway otnay "
+"availableway."
+
+#: target:code/stream.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached its\n"
+"   destination, and only then returns."
+msgstr ""
+"Attemptsway otay ensureway atthay allway outputway entsay otay ethay "
+"Eamstray ashay eachedray itsway\n"
+"   estinationday, andway onlyway enthay eturnsray."
+
+#: target:code/stream.lisp
+msgid "Attempts to force any buffered output to be sent."
+msgstr "Attemptsway otay orcefay anyway ufferedbay outputway otay ebay entsay."
+
+#: target:code/stream.lisp
+msgid "Clears the given output Stream."
+msgstr "Earsclay ethay ivengay outputway Eamstray."
+
+#: target:code/stream.lisp
+msgid "Outputs the Integer to the binary Stream."
+msgstr "Outputsway ethay Integerway otay ethay inarybay Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an output stream which sends its output to all of the given\n"
+"streams."
+msgstr ""
+"Eturnsray anway outputway eamstray ichwhay endssay itsway outputway otay "
+"allway ofway ethay ivengay\n"
+"eamsstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which performs its operations on the stream which is the\n"
+"   value of the dynamic variable named by Symbol."
+msgstr ""
+"Eturnsray away eamstray ichwhay erformspay itsway operationsway onway ethay "
+"eamstray ichwhay isway ethay\n"
+"   aluevay ofway ethay ynamicday ariablevay amednay ybay Ymbolsay."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream."
+msgstr ""
+"Eturnsray away idirectionalbay eamstray ichwhay etsgay itsway inputway "
+"omfray Inputway-Eamstray andway\n"
+"   endssay itsway outputway otay Outputway-Eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which takes its input from each of the Streams in turn,\n"
+"   going on to the next at EOF."
+msgstr ""
+"Eturnsray away eamstray ichwhay akestay itsway inputway omfray eachway ofway "
+"ethay Eamsstray inway urntay,\n"
+"   oinggay onway otay ethay extnay atway EOF."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an echo stream that takes input from Input-stream and sends\n"
+"output to Output-stream"
+msgstr ""
+"Eturnsray anway echoway eamstray atthay akestay inputway omfray Inputway-"
+"eamstray andway endssay\n"
+"outputway otay Outputway-eamstray"
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream.  In addition, all input is echoed to\n"
+"   the output stream"
+msgstr ""
+"Eturnsray away idirectionalbay eamstray ichwhay etsgay itsway inputway "
+"omfray Inputway-Eamstray andway\n"
+"   endssay itsway outputway otay Outputway-Eamstray.  Inway additionway, "
+"allway inputway isway echoedway otay\n"
+"   ethay outputway eamstray"
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an input stream which will supply the characters of String between\n"
+"  Start and End in order."
+msgstr ""
+"Eturnsray anway inputway eamstray ichwhay illway upplysay ethay aracterschay "
+"ofway Ingstray etweenbay\n"
+"  Tartsay andway Endway inway orderway."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an Output stream which will accumulate all output given to it for\n"
+"   the benefit of the function Get-Output-Stream-String."
+msgstr ""
+"Eturnsray anway Outputway eamstray ichwhay illway accumulateway allway "
+"outputway ivengay otay itway orfay\n"
+"   ethay enefitbay ofway ethay unctionfay Etgay-Outputway-Eamstray-Ingstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a string of all the characters sent to a stream made by\n"
+"   Make-String-Output-Stream since the last call to this function."
+msgstr ""
+"Eturnsray away ingstray ofway allway ethay aracterschay entsay otay away "
+"eamstray ademay ybay\n"
+"   Akemay-Ingstray-Outputway-Eamstray incesay ethay astlay allcay otay "
+"isthay unctionfay."
+
+#: target:code/stream.lisp
+msgid ""
+"Dumps the characters buffer up in the In-Stream to the Out-Stream as\n"
+"  Get-Output-Stream-String would return them."
+msgstr ""
+"Umpsday ethay aracterschay ufferbay upway inway ethay Inway-Eamstray otay "
+"ethay Outway-Eamstray asway\n"
+"  Etgay-Outputway-Eamstray-Ingstray ouldway eturnray emthay."
+
+#: target:code/stream.lisp
+msgid "Returns an output stream which indents its output by some amount."
+msgstr ""
+"Eturnsray anway outputway eamstray ichwhay indentsway itsway outputway ybay "
+"omesay amountway."
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream that sends all output to the stream TARGET, but modifies\n"
+"   the case of letters, depending on KIND, which should be one of:\n"
+"     :upcase - convert to upper case.\n"
+"     :downcase - convert to lower case.\n"
+"     :capitalize - convert the first letter of words to upper case and the\n"
+"        rest of the word to lower case.\n"
+"     :capitalize-first - convert the first letter of the first word to "
+"upper\n"
+"        case and everything else to lower case."
+msgstr ""
+"Eturnsray away eamstray atthay endssay allway outputway otay ethay eamstray "
+"TARGET, utbay odifiesmay\n"
+"   ethay asecay ofway etterslay, ependingday onway KIND, ichwhay ouldshay "
+"ebay oneway ofway:\n"
+"     :upcaseway - onvertcay otay upperway asecay.\n"
+"     :owncaseday - onvertcay otay owerlay asecay.\n"
+"     :apitalizecay - onvertcay ethay irstfay etterlay ofway ordsway otay "
+"upperway asecay andway ethay\n"
+"        estray ofway ethay ordway otay owerlay asecay.\n"
+"     :apitalizecay-irstfay - onvertcay ethay irstfay etterlay ofway ethay "
+"irstfay ordway otay upperway\n"
+"        asecay andway everythingway elseway otay owerlay asecay."
+
+#: target:code/stream.lisp
+msgid ""
+"This takes a stream and waits for text or a command to appear on it.  If\n"
+"   text appears before a command, this returns nil, and otherwise it "
+"returns\n"
+"   a command."
+msgstr ""
+"Isthay akestay away eamstray andway aitsway orfay exttay orway away "
+"ommandcay otay appearway onway itway.  Ifway\n"
+"   exttay appearsway eforebay away ommandcay, isthay eturnsray ilnay, andway "
+"otherwiseway itway eturnsray\n"
+"   away ommandcay."
+
+#: target:code/stream.lisp
+msgid ""
+"Destructively modify SEQ by reading elements from STREAM.\n"
+"\n"
+"  Seq is bounded by Start and End. Seq is destructively modified by\n"
+"  copying successive elements into it from Stream. If the end of file\n"
+"  for Stream is reached before copying all elements of the subsequence,\n"
+"  then the extra elements near the end of sequence are not updated.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:\t    a proper SEQUENCE\n"
+"  STREAM:   an input STREAM\n"
+"  START:    a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:      a bounding index designator which be NIL or an INTEGER of\n"
+"\t    type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  POSITION: an INTEGER greater than or equal to zero, and less than or\n"
+"\t    equal to the length of the SEQ. POSITION is the index of\n"
+"\t    the first element of SEQ that was not updated, which might be\n"
+"\t    less than END because the end of file was reached."
+msgstr ""
+"Estructivelyday odifymay SEQ ybay eadingray elementsway omfray STREAM.\n"
+"\n"
+"  Eqsay isway oundedbay ybay Tartsay andway Endway. Eqsay isway "
+"estructivelyday odifiedmay ybay\n"
+"  opyingcay uccessivesay elementsway intoway itway omfray Eamstray. Ifway "
+"ethay endway ofway ilefay\n"
+"  orfay Eamstray isway eachedray eforebay opyingcay allway elementsway ofway "
+"ethay ubsequencesay,\n"
+"  enthay ethay extraway elementsway earnay ethay endway ofway equencesay "
+"areway otnay updatedway.\n"
+"\n"
+"  Argumentway(s):\n"
+"  SEQ:\t    away operpray SEQUENCE\n"
+"  STREAM:   anway inputway STREAM\n"
+"  START:    away oundingbay indexway esignatorday ofway ypetay '(INTEGER 0 "
+"*)' (efaultday 0)\n"
+"  END:      away oundingbay indexway esignatorday ichwhay ebay NIL orway "
+"anway INTEGER ofway\n"
+"\t    ypetay '(INTEGER 0 *)' (efaultday NIL)\n"
+"\n"
+"  Aluevay(s):\n"
+"  POSITION: anway INTEGER eatergray anthay orway equalway otay erozay, "
+"andway esslay anthay orway\n"
+"\t    equalway otay ethay engthlay ofway ethay SEQ. POSITION isway ethay "
+"indexway ofway\n"
+"\t    ethay irstfay elementway ofway SEQ atthay asway otnay updatedway, "
+"ichwhay ightmay ebay\n"
+"\t    esslay anthay END ecausebay ethay endway ofway ilefay asway eachedray."
+
+#: target:code/stream.lisp
+msgid "The stream is not open."
+msgstr "Ethay eamstray isway otnay openway."
+
+#: target:code/stream.lisp
+msgid "The stream is not open for input."
+msgstr "Ethay eamstray isway otnay openway orfay inputway."
+
+#: target:code/stream.lisp
+msgid "Trying to read characters from a binary stream."
+msgstr "Yingtray otay eadray aracterschay omfray away inarybay eamstray."
+
+#: target:code/stream.lisp
+msgid "Trying to read binary data from a text stream."
+msgstr "Yingtray otay eadray inarybay ataday omfray away exttay eamstray."
+
+#: target:code/stream.lisp
+msgid ""
+"Writes the elements of the Seq bounded by Start and End to Stream.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:     a proper SEQUENCE\n"
+"  STREAM:  an output STREAM\n"
+"  START:   a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:     a bounding index designator which be NIL or an INTEGER of\n"
+"           type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  SEQ:\ta proper SEQUENCE\n"
+msgstr ""
+"Iteswray ethay elementsway ofway ethay Eqsay oundedbay ybay Tartsay andway "
+"Endway otay Eamstray.\n"
+"\n"
+"  Argumentway(s):\n"
+"  SEQ:     away operpray SEQUENCE\n"
+"  STREAM:  anway outputway STREAM\n"
+"  START:   away oundingbay indexway esignatorday ofway ypetay '(INTEGER 0 "
+"*)' (efaultday 0)\n"
+"  END:     away oundingbay indexway esignatorday ichwhay ebay NIL orway "
+"anway INTEGER ofway\n"
+"           ypetay '(INTEGER 0 *)' (efaultday NIL)\n"
+"\n"
+"  Aluevay(s):\n"
+"  SEQ:\taway operpray SEQUENCE\n"
+
+#: target:code/stream.lisp
+msgid "The stream is not open for output."
+msgstr "Ethay eamstray isway otnay openway orfay outputway."
+
+#: target:code/stream.lisp
+msgid "Trying to output an element of unproper type to a stream."
+msgstr ""
+"Yingtray otay outputway anway elementway ofway unproperway ypetay otay away "
+"eamstray."
+
+#: target:code/stream.lisp
+msgid "Trying to output a string to a binary stream."
+msgstr "Yingtray otay outputway away ingstray otay away inarybay eamstray."
+
+#: target:code/stream.lisp
+msgid "Trying to output binary data to a text stream."
+msgstr "Yingtray otay outputway inarybay ataday otay away exttay eamstray."
+
+#: target:code/print.lisp
+msgid ""
+"If true, all objects will printed readably.  If readably printing is\n"
+"  impossible, an error will be signalled.  This overrides the value of\n"
+"  *PRINT-ESCAPE*."
+msgstr ""
+"Ifway uetray, allway objectsway illway intedpray eadablyray.  Ifway "
+"eadablyray intingpray isway\n"
+"  impossibleway, anway errorway illway ebay ignalledsay.  Isthay "
+"overridesway ethay aluevay ofway\n"
+"  *PRINT-ESCAPE*."
+
+#: target:code/print.lisp
+msgid "Flag which indicates that slashification is on.  See the manual"
+msgstr ""
+"Agflay ichwhay indicatesway atthay ashificationslay isway onway.  Eesay "
+"ethay anualmay"
+
+#: target:code/print.lisp
+msgid "Flag which indicates that pretty printing is to be used"
+msgstr ""
+"Agflay ichwhay indicatesway atthay ettypray intingpray isway otay ebay "
+"usedway"
+
+#: target:code/print.lisp
+msgid "The output base for integers and rationals."
+msgstr "Ethay outputway asebay orfay integersway andway ationalsray."
+
+#: target:code/print.lisp
+msgid "This flag requests to verify base when printing rationals."
+msgstr ""
+"Isthay agflay equestsray otay erifyvay asebay enwhay intingpray ationalsray."
+
+#: target:code/print.lisp
+msgid "How many levels deep to print.  Unlimited if null."
+msgstr "Owhay anymay evelslay eepday otay intpray.  Unlimitedway ifway ullnay."
+
+#: target:code/print.lisp
+msgid "How many elements to print on each level.  Unlimited if null."
+msgstr ""
+"Owhay anymay elementsway otay intpray onway eachway evellay.  Unlimitedway "
+"ifway ullnay."
+
+#: target:code/print.lisp
+msgid "Whether to worry about circular list structures. See the manual."
+msgstr ""
+"Etherwhay otay orryway aboutway ircularcay istlay ucturesstray. Eesay ethay "
+"anualmay."
+
+#: target:code/print.lisp
+msgid "What kind of case the printer should use by default"
+msgstr ""
+"Atwhay indkay ofway asecay ethay interpray ouldshay useway ybay efaultday"
+
+#: target:code/print.lisp
+msgid "Whether the array should print it's guts out"
+msgstr "Etherwhay ethay arrayway ouldshay intpray itway's utsgay outway"
+
+#: target:code/print.lisp
+msgid ""
+"If true, symbols with no home package are printed with a #: prefix.\n"
+"  If false, no prefix is printed."
+msgstr ""
+"Ifway uetray, ymbolssay ithway onay omehay ackagepay areway intedpray ithway "
+"away #: efixpray.\n"
+"  Ifway alsefay, onay efixpray isway intedpray."
+
+#: target:code/print.lisp
+msgid "The maximum number of lines to print.  If NIL, unlimited."
+msgstr ""
+"Ethay aximummay umbernay ofway ineslay otay intpray.  Ifway NIL, "
+"unlimitedway."
+
+#: target:code/print.lisp
+msgid ""
+"The position of the right margin in ems.  If NIL, try to determine this\n"
+"   from the stream in use."
+msgstr ""
+"Ethay ositionpay ofway ethay ightray arginmay inway emsway.  Ifway NIL, "
+"ytray otay etermineday isthay\n"
+"   omfray ethay eamstray inway useway."
+
+#: target:code/print.lisp
+msgid ""
+"If the remaining space between the current column and the right margin\n"
+"   is less than this, then print using ``miser-style'' output.  Miser\n"
+"   style conditional newlines are turned on, and all indentations are\n"
+"   turned off.  If NIL, never use miser mode."
+msgstr ""
+"Ifway ethay emainingray acespay etweenbay ethay urrentcay olumncay andway "
+"ethay ightray arginmay\n"
+"   isway esslay anthay isthay, enthay intpray usingway ``isermay-tylesay'' "
+"outputway.  Isermay\n"
+"   tylesay onditionalcay ewlinesnay areway urnedtay onway, andway allway "
+"indentationsway areway\n"
+"   urnedtay offway.  Ifway NIL, evernay useway isermay odemay."
+
+#: target:code/print.lisp
+msgid ""
+"The pprint-dispatch-table that controls how to pretty print objects.  See\n"
+"   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH."
+msgstr ""
+"Ethay printpay-ispatchday-abletay atthay ontrolscay owhay otay ettypray "
+"intpray objectsway.  Eesay\n"
+"   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, andway SET-PPRINT-DISPATCH."
+
+#: target:code/print.lisp
+msgid ""
+"Bind the reader and printer control variables to values that enable READ\n"
+"   to reliably read the results of PRINT.  These values are:\n"
+"       *PACKAGE*\t\t\tThe COMMON-LISP-USER package\n"
+"       *PRINT-ARRAY*\t\t\tT\n"
+"       *PRINT-BASE*\t\t\t10\n"
+"       *PRINT-CASE*\t\t\t:UPCASE\n"
+"       *PRINT-CIRCLE*\t\t\tNIL\n"
+"       *PRINT-ESCAPE*\t\t\tT\n"
+"       *PRINT-GENSYM*\t\t\tT\n"
+"       *PRINT-LENGTH*\t\t\tNIL\n"
+"       *PRINT-LEVEL*\t\t\tNIL\n"
+"       *PRINT-LINES*\t\t\tNIL\n"
+"       *PRINT-MISER-WIDTH*\t\tNIL\n"
+"       *PRINT-PRETTY*\t\t\tNIL\n"
+"       *PRINT-RADIX*\t\t\tNIL\n"
+"       *PRINT-READABLY*\t\t\tT\n"
+"       *PRINT-RIGHT-MARGIN*\t\tNIL\n"
+"       *READ-BASE*\t\t\t10\n"
+"       *READ-DEFAULT-FLOAT-FORMAT* \tSINGLE-FLOAT\n"
+"       *READ-EVAL*\t\t\tT\n"
+"       *READ-SUPPRESS*\t\t\tNIL\n"
+"       *READTABLE*\t\t\tthe standard readtable."
+msgstr ""
+"Indbay ethay eaderray andway interpray ontrolcay ariablesvay otay aluesvay "
+"atthay enableway READ\n"
+"   otay eliablyray eadray ethay esultsray ofway PRINT.  Esethay aluesvay "
+"areway:\n"
+"       *PACKAGE*\t\t\tEthay COMMON-LISP-USER ackagepay\n"
+"       *PRINT-ARRAY*\t\t\tT\n"
+"       *PRINT-BASE*\t\t\t10\n"
+"       *PRINT-CASE*\t\t\t:UPCASE\n"
+"       *PRINT-CIRCLE*\t\t\tNIL\n"
+"       *PRINT-ESCAPE*\t\t\tT\n"
+"       *PRINT-GENSYM*\t\t\tT\n"
+"       *PRINT-LENGTH*\t\t\tNIL\n"
+"       *PRINT-LEVEL*\t\t\tNIL\n"
+"       *PRINT-LINES*\t\t\tNIL\n"
+"       *PRINT-MISER-WIDTH*\t\tNIL\n"
+"       *PRINT-PRETTY*\t\t\tNIL\n"
+"       *PRINT-RADIX*\t\t\tNIL\n"
+"       *PRINT-READABLY*\t\t\tT\n"
+"       *PRINT-RIGHT-MARGIN*\t\tNIL\n"
+"       *READ-BASE*\t\t\t10\n"
+"       *READ-DEFAULT-FLOAT-FORMAT* \tSINGLE-FLOAT\n"
+"       *READ-EVAL*\t\t\tT\n"
+"       *READ-SUPPRESS*\t\t\tNIL\n"
+"       *READTABLE*\t\t\tethay tandardsay eadtableray."
+
+#: target:code/print.lisp
+msgid "Outputs OBJECT to the specified stream, defaulting to *standard-output*"
+msgstr ""
+"Outputsway OBJECT otay ethay ecifiedspay eamstray, efaultingday otay "
+"*standard-output*"
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a mostly READable printed representation of OBJECT on the specified\n"
+"  stream."
+msgstr ""
+"Outputsway away ostlymay Eadableray intedpray epresentationray ofway OBJECT "
+"onway ethay ecifiedspay\n"
+"  eamstray."
+
+#: target:code/print.lisp
+msgid ""
+"Outputs an asthetic but not READable printed representation of OBJECT on "
+"the\n"
+"  specified stream."
+msgstr ""
+"Outputsway anway astheticway utbay otnay Eadableray intedpray "
+"epresentationray ofway OBJECT onway ethay\n"
+"  ecifiedspay eamstray."
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
+"  space to the stream."
+msgstr ""
+"Outputsway away erpritay, ethay ostlymay Eadableray intedpray "
+"epresenationray ofway OBJECT, andway \n"
+"  acespay otay ethay eamstray."
+
+#: target:code/print.lisp
+msgid "Prettily outputs the Object preceded by a newline."
+msgstr "Ettilypray outputsway ethay Objectway ecededpray ybay away ewlinenay."
+
+#: target:code/print.lisp
+msgid "Returns the printed representation of OBJECT as a string."
+msgstr ""
+"Eturnsray ethay intedpray epresentationray ofway OBJECT asway away ingstray."
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with \n"
+"   slashification on."
+msgstr ""
+"Eturnsray ethay intedpray epresentationray ofway OBJECT asway away ingstray "
+"ithway \n"
+"   ashificationslay onway."
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with\n"
+"  slashification off."
+msgstr ""
+"Eturnsray ethay intedpray epresentationray ofway OBJECT asway away ingstray "
+"ithway\n"
+"  ashificationslay offway."
+
+#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
+#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/node.lisp target:compiler/sset.lisp
+#: target:compiler/backend.lisp target:compiler/macros.lisp
+#: target:code/print.lisp
+msgid "~S cannot be printed readably."
+msgstr "~S annotcay ebay intedpray eadablyray."
+
+#: target:code/print.lisp
+msgid "Determines whether or not the character is considered whitespace."
+msgstr ""
+"Eterminesday etherwhay orway otnay ethay aracterchay isway onsideredcay "
+"itespacewhay."
+
+#: target:code/print.lisp
+msgid ""
+"Check to see if OBJECT is a circular reference, and return something non-"
+"NIL\n"
+"   if it is.  If ASSIGN is T, then the number to use in the #n= and #n# "
+"noise\n"
+"   is assigned at this time.  Note: CHECK-FOR-CIRCULARITY must be called\n"
+"   *EXACTLY* once with ASSIGN T, or the circularity detection noise will "
+"get\n"
+"   confused about when to use #n= and when to use #n#.  If this returns\n"
+"   non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it."
+msgstr ""
+"Eckchay otay eesay ifway OBJECT isway away ircularcay eferenceray, andway "
+"eturnray omethingsay onnay-NIL\n"
+"   ifway itway isway.  Ifway ASSIGN isway T, enthay ethay umbernay otay "
+"useway inway ethay #n= andway #n# oisenay\n"
+"   isway assignedway atway isthay imetay.  Otenay: CHECK-FOR-CIRCULARITY "
+"ustmay ebay alledcay\n"
+"   *EXACTLY* onceway ithway ASSIGN T, orway ethay ircularitycay etectionday "
+"oisenay illway etgay\n"
+"   onfusedcay aboutway enwhay otay useway #n= andway enwhay otay useway "
+"#n#.  Ifway isthay eturnsray\n"
+"   onnay-NIL enwhay ASSIGN isway T, enthay ouyay ustmay allcay HANDLE-"
+"CIRCULARITY onway itway."
+
+#: target:code/print.lisp
+msgid ""
+"Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then\n"
+"   you should go ahead and print the object.  If it returns NIL, then\n"
+"   you should blow it off."
+msgstr ""
+"Andlehay ethay esultsray ofway CHECK-FOR-CIRCULARITY.  Ifway isthay "
+"eturnsray T enthay\n"
+"   ouyay ouldshay ogay aheadway andway intpray ethay objectway.  Ifway itway "
+"eturnsray NIL, enthay\n"
+"   ouyay ouldshay owblay itway offway."
+
+#: target:code/print.lisp
+msgid ""
+"Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n"
+"\t       checking has not been initiated."
+msgstr ""
+"Attemptway otay useway CHECK-FOR-CIRCULARITY enwhay ircularitycay ~\n"
+"\t       eckingchay ashay otnay eenbay initiatedway."
+
+#: target:code/print.lisp
+msgid ""
+"The current level we are printing at, to be compared against *PRINT-LEVEL*.\n"
+"   See the macro DESCEND-INTO for a handy interface to depth abbreviation."
+msgstr ""
+"Ethay urrentcay evellay eway areway intingpray atway, otay ebay omparedcay "
+"againstway *PRINT-LEVEL*.\n"
+"   Eesay ethay acromay DESCEND-INTO orfay away andyhay interfaceway otay "
+"epthday abbreviationway."
+
+#: target:code/print.lisp
+msgid ""
+"Automatically handle *print-level* abbreviation.  If we are too deep, then\n"
+"   a # is printed to STREAM and BODY is ignored."
+msgstr ""
+"Automaticallyway andlehay *print-level* abbreviationway.  Ifway eway areway "
+"ootay eepday, enthay\n"
+"   away # isway intedpray otay STREAM andway BODY isway ignoredway."
+
+#: target:code/print.lisp
+msgid ""
+"Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n"
+"   is NIL) by outputting \"...\" and returning from the block named NIL."
+msgstr ""
+"Untpay ifway INDEX isway equalway orway argerlay enthay *PRINT-LENGTH* "
+"(andway *PRINT-READABLY*\n"
+"   isway NIL) ybay outputtingway \"...\" andway eturningray omfray ethay "
+"ockblay amednay NIL."
+
+#: target:code/print.lisp
+msgid ""
+"The current pretty printer.  Should be either a function that takes two\n"
+"   arguments (the object and the stream) or NIL to indicate that there is\n"
+"   no pretty printer installed."
+msgstr ""
+"Ethay urrentcay ettypray interpray.  Ouldshay ebay eitherway away unctionfay "
+"atthay akestay wotay\n"
+"   argumentsway (ethay objectway andway ethay eamstray) orway NIL otay "
+"indicateway atthay erethay isway\n"
+"   onay ettypray interpray installedway."
+
+#: target:code/print.lisp
+msgid "Output OBJECT to STREAM observing all printer control variables."
+msgstr ""
+"Outputway OBJECT otay STREAM observingway allway interpray ontrolcay "
+"ariablesvay."
+
+#: target:code/print.lisp
+msgid ""
+"Output OBJECT to STREAM observing all printer control variables except\n"
+"   for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n"
+"   printer will be used for any components of OBJECT, just not for OBJECT\n"
+"   itself."
+msgstr ""
+"Outputway OBJECT otay STREAM observingway allway interpray ontrolcay "
+"ariablesvay exceptway\n"
+"   orfay *PRINT-PRETTY*.  Otenay: ifway *PRINT-PRETTY* isway onnay-NIL, "
+"enthay ethay ettypray\n"
+"   interpray illway ebay usedway orfay anyway omponentscay ofway OBJECT, "
+"ustjay otnay orfay OBJECT\n"
+"   itselfway."
+
+#: target:code/print.lisp
+msgid "Invalid *PRINT-CASE* value: ~S"
+msgstr "Invalidway *PRINT-CASE* aluevay: ~S"
+
+#: target:code/print.lisp
+msgid "Invalid READTABLE-CASE value: ~S"
+msgstr "Invalidway READTABLE-CASE aluevay: ~S"
+
+#: target:code/print.lisp
+msgid ""
+"Outputs the printed representation of any array in either the #< or #A\n"
+"   form."
+msgstr ""
+"Outputsway ethay intedpray epresentationray ofway anyway arrayway inway "
+"eitherway ethay #< orway #Away\n"
+"   ormfay."
+
+#: target:code/print.lisp
+msgid "Obsolete Instance"
+msgstr "Obsoleteway Instanceway"
+
+#: target:code/print.lisp
+msgid "Unprintable Instance"
+msgstr "Unprintableway Instanceway"
+
+#: target:code/print.lisp
+msgid "~A is not a reasonable value for *Print-Base*."
+msgstr "~Away isway otnay away easonableray aluevay orfay *Print-Base*."
+
+#: target:code/print.lisp
+msgid ""
+"Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n"
+"greater than n."
+msgstr ""
+"Omputecay away istlay ofway airspay (2^i . r^{2^i}), toppingsay ithway ethay "
+"argestlay r^{2^i}\n"
+"eatergray anthay n."
+
+#: target:code/print.lisp
+msgid ""
+"Convert digit into a character representation.  We use 0..9, a..z for\n"
+"10..35, and A..Z for 36..52."
+msgstr ""
+"Onvertcay igitday intoway away aracterchay epresentationray.  Eway useway "
+"0..9, away..z orfay\n"
+"10..35, andway Away..Z orfay 36..52."
+
+#: target:code/print.lisp
+msgid "overflow in digit-to-char"
+msgstr "overflowway inway igitday-otay-archay"
+
+#: target:code/print.lisp
+msgid ""
+"Print a fixnum N to stream S, maybe with leading zeros.  This isn't\n"
+"ever-so efficient, but we probably don't need to care."
+msgstr ""
+"Intpray away ixnumfay N otay eamstray S, aybemay ithway eadinglay eroszay.  "
+"Isthay isnway't\n"
+"everway-osay efficientway, utbay eway obablypray onday't eednay otay arecay."
+
+#: target:code/print.lisp
+msgid ""
+"Use the power list (see power-list) PL to split N roughly in half; then\n"
+"print the left and right halves using (cdr PL).  Make sure we count the\n"
+"leading zeroes correctly."
+msgstr ""
+"Useway ethay owerpay istlay (eesay owerpay-istlay) PL otay litspay N "
+"oughlyray inway alfhay; enthay\n"
+"intpray ethay eftlay andway ightray alveshay usingway (drcay PL).  Akemay "
+"uresay eway ountcay ethay\n"
+"eadinglay eroeszay orrectlycay."
+
+#: target:code/print.lisp
+msgid ""
+"Primary fast bignum-printing interface.  Prints integer N to stream S in\n"
+"radix-R.  If you have a power-list then pass it in as PL."
+msgstr ""
+"Imarypray astfay ignumbay-intingpray interfaceway.  Intspray integerway N "
+"otay eamstray S inway\n"
+"adixray-R.  Ifway ouyay avehay away owerpay-istlay enthay asspay itway inway "
+"asway PL."
+
+#: target:code/print.lisp
+msgid ""
+"Minimum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+"Inimummay owerpay ofway 10 atthay allowsway ethay oatflay interpray otay "
+"useway eefray ormatfay,\n"
+"   insteadway ofway exponentialway ormatfay.  Eesay ectionsay 22.1.3.1.3: "
+"Intingpray Oatsflay\n"
+"   inway ethay ANSI CL tandardsay."
+
+#: target:code/print.lisp
+msgid ""
+"Maximum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+"Aximummay owerpay ofway 10 atthay allowsway ethay oatflay interpray otay "
+"useway eefray ormatfay,\n"
+"   insteadway ofway exponentialway ormatfay.  Eesay ectionsay 22.1.3.1.3: "
+"Intingpray Oatsflay\n"
+"   inway ethay ANSI CL tandardsay."
+
+#: target:code/print.lisp
+msgid "Convert a DD number to a lisp rational"
+msgstr "Onvertcay away DD umbernay otay away isplay ationalray"
+
+#: target:code/print.lisp
+msgid "Print out a double-double to a string"
+msgstr "Intpray outway away oubleday-oubleday otay away ingstray"
+
+#: target:code/print.lisp
+msgid "Weak Pointer: "
+msgstr "Eakway Ointerpay: "
+
+#: target:code/print.lisp
+msgid "Broken Weak Pointer"
+msgstr "Okenbray Eakway Ointerpay"
+
+#: target:code/print.lisp
+msgid "Bogus Code Object"
+msgstr "Ogusbay Odecay Objectway"
+
+#: target:code/print.lisp
+msgid "Code Object"
+msgstr "Odecay Objectway"
+
+#: target:code/print.lisp
+msgid "Return PC Object"
+msgstr "Eturnray PC Objectway"
+
+#: target:code/print.lisp
+msgid "FDEFINITION object for "
+msgstr "FDEFINITION objectway orfay "
+
+#: target:code/print.lisp
+msgid "Function "
+msgstr "Unctionfay "
+
+#: target:code/print.lisp
+msgid "Interpreted Function ~S"
+msgstr "Interpretedway Unctionfay ~S"
+
+#: target:code/print.lisp
+msgid "Byte Compiled Function"
+msgstr "Ytebay Ompiledcay Unctionfay"
+
+#: target:code/print.lisp
+msgid "Byte Compiled Closure"
+msgstr "Ytebay Ompiledcay Osureclay"
+
+#: target:code/print.lisp
+msgid "Closure Over "
+msgstr "Osureclay Overway "
+
+#: target:code/print.lisp
+msgid "Unknown Function"
+msgstr "Unknownway Unctionfay"
+
+#: target:code/print.lisp
+msgid "Value Cell "
+msgstr "Aluevay Ellcay "
+
+#: target:code/print.lisp
+msgid "Unknown Pointer Object, type="
+msgstr "Unknownway Ointerpay Objectway, ypetay="
+
+#: target:code/print.lisp
+msgid "Unbound Marker"
+msgstr "Unboundway Arkermay"
+
+#: target:code/print.lisp
+msgid "Unknown Immediate Object, lowtag="
+msgstr "Unknownway Immediateway Objectway, owtaglay="
+
+#: target:code/print.lisp
+msgid ", type="
+msgstr ", ypetay="
+
+#: target:code/print.lisp
+msgid "Continue anyway"
+msgstr "Ontinuecay anywayway"
+
+#: target:code/print.lisp
+msgid "Cannot find ~S, so unicode support is not available"
+msgstr "Annotcay indfay ~S, osay unicodeway upportsay isway otnay availableway"
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert an annotation into the pretty-printing stream STREAM.\n"
+"HANDLER is a function, and RECORD is an arbitrary datum.  The\n"
+"pretty-printing stream conceptionally queues annotations in sequence\n"
+"with the characters that are printed to the stream, until the stream\n"
+"has decided on the concrete layout.  When the characters are forwarded\n"
+"to the target stream, annotations are invoked at the right position.\n"
+"An annotation is invoked by calling the function HANDLER with the\n"
+"three arguments RECORD, TARGET-STREAM, and TRUNCATEP.  The argument\n"
+"TRUNCATEP is true if the text surrounding the annotation is suppressed\n"
+"due to line abbreviation (see *PRINT-LINES*).\n"
+"If STREAM is not a pretty-printing stream, simply call HANDLER\n"
+"with the arguments RECORD, STREAM and nil."
+msgstr ""
+"Insertway anway annotationway intoway ethay ettypray-intingpray eamstray "
+"STREAM.\n"
+"HANDLER isway away unctionfay, andway RECORD isway anway arbitraryway "
+"atumday.  Ethay\n"
+"ettypray-intingpray eamstray onceptionallycay euesquay annotationsway inway "
+"equencesay\n"
+"ithway ethay aracterschay atthay areway intedpray otay ethay eamstray, "
+"untilway ethay eamstray\n"
+"ashay ecidedday onway ethay oncretecay ayoutlay.  Enwhay ethay aracterschay "
+"areway orwardedfay\n"
+"otay ethay argettay eamstray, annotationsway areway invokedway atway ethay "
+"ightray ositionpay.\n"
+"Anway annotationway isway invokedway ybay allingcay ethay unctionfay HANDLER "
+"ithway ethay\n"
+"reethay argumentsway RECORD, TARGET-STREAM, andway TRUNCATEP.  Ethay "
+"argumentway\n"
+"TRUNCATEP isway uetray ifway ethay exttay urroundingsay ethay annotationway "
+"isway uppressedsay\n"
+"ueday otay inelay abbreviationway (eesay *PRINT-LINES*).\n"
+"Ifway STREAM isway otnay away ettypray-intingpray eamstray, implysay allcay "
+"HANDLER\n"
+"ithway ethay argumentsway RECORD, STREAM andway ilnay."
+
+#: target:code/pprint.lisp
+msgid "Insert ANNOTATION into the queue of annotations in STREAM."
+msgstr ""
+"Insertway ANNOTATION intoway ethay euequay ofway annotationsway inway STREAM."
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert all annotations in STREAM from the queue of pending\n"
+"operations into the queue of annotations.  When END is non-nil, \n"
+"stop before reaching the queued-op END."
+msgstr ""
+"Insertway allway annotationsway inway STREAM omfray ethay euequay ofway "
+"endingpay\n"
+"operationsway intoway ethay euequay ofway annotationsway.  Enwhay END isway "
+"onnay-ilnay, \n"
+"topsay eforebay eachingray ethay euedquay-opway END."
+
+#: target:code/pprint.lisp
+msgid ""
+"Dequeue the next annotation from the queue of annotations of STREAM\n"
+"and return it.  Return nil if there are no more annotations.  When\n"
+":END-POSN is given and the next annotation has a posn greater than\n"
+"this, also return nil."
+msgstr ""
+"Equeueday ethay extnay annotationway omfray ethay euequay ofway "
+"annotationsway ofway STREAM\n"
+"andway eturnray itway.  Eturnray ilnay ifway erethay areway onay oremay "
+"annotationsway.  Enwhay\n"
+":END-POSN isway ivengay andway ethay extnay annotationway ashay away osnpay "
+"eatergray anthay\n"
+"isthay, alsoway eturnray ilnay."
+
+#: target:code/pprint.lisp
+msgid ""
+"Output the buffer of STREAM up to (excluding) the buffer index END.\n"
+"When annotations are present, invoke them at the right positions."
+msgstr ""
+"Outputway ethay ufferbay ofway STREAM upway otay (excludingway) ethay "
+"ufferbay indexway END.\n"
+"Enwhay annotationsway areway esentpray, invokeway emthay atway ethay ightray "
+"ositionspay."
+
+#: target:code/pprint.lisp
+msgid ""
+"Invoke all annotations in STREAM up to (including) the buffer index END."
+msgstr ""
+"Invokeway allway annotationsway inway STREAM upway otay (includingway) ethay "
+"ufferbay indexway END."
+
+#: target:code/pprint.lisp
+msgid "Output-partial-line called when nothing can be output."
+msgstr ""
+"Outputway-artialpay-inelay alledcay enwhay othingnay ancay ebay outputway."
+
+#: target:code/pprint.lisp
+msgid ""
+"Group some output into a logical block.  STREAM-SYMBOL should be either a\n"
+"   stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The "
+"printer\n"
+"   control variable *PRINT-LEVEL* is automatically handled."
+msgstr ""
+"Oupgray omesay outputway intoway away ogicallay ockblay.  STREAM-SYMBOL "
+"ouldshay ebay eitherway away\n"
+"   eamstray, T (orfay *TERMINAL-IO*), orway NIL (orfay *STANDARD-OUTPUT*).  "
+"Ethay interpray\n"
+"   ontrolcay ariablevay *PRINT-LEVEL* isway automaticallyway andledhay."
+
+#: target:code/pprint.lisp
+msgid "Cannot specify both a prefix and a per-line-prefix."
+msgstr ""
+"Annotcay ecifyspay othbay away efixpray andway away erpay-inelay-efixpray."
+
+#: target:code/pprint.lisp
+msgid ""
+"Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n"
+"   if it's list argument is exhausted.  Can only be used inside\n"
+"   PPRINT-LOGICAL-BLOCK, and only when the LIST argument to\n"
+"   PPRINT-LOGICAL-BLOCK is supplied."
+msgstr ""
+"Ausecay ethay osestclay enclosingway useway ofway PPRINT-LOGICAL-BLOCK otay "
+"eturnray\n"
+"   ifway itway's istlay argumentway isway exhaustedway.  Ancay onlyway ebay "
+"usedway insideway\n"
+"   PPRINT-LOGICAL-BLOCK, andway onlyway enwhay ethay LIST argumentway otay\n"
+"   PPRINT-LOGICAL-BLOCK isway uppliedsay."
+
+#: target:code/pprint.lisp
+msgid ""
+"PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n"
+"\t  PPRINT-LOGICAL-BLOCK."
+msgstr ""
+"PPRINT-EXIT-IF-LIST-EXHAUSTED ustmay ebay exicallylay insideway ~\n"
+"\t  PPRINT-LOGICAL-BLOCK."
+
+#: target:code/pprint.lisp
+msgid ""
+"Return the next element from LIST argument to the closest enclosing\n"
+"   use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n"
+"   and *PRINT-CIRCLE*.  Can only be used inside PPRINT-LOGICAL-BLOCK.\n"
+"   If the LIST argument to PPRINT-LOGICAL-BLOCK was NIL, then nothing\n"
+"   is poped, but the *PRINT-LENGTH* testing still happens."
+msgstr ""
+"Eturnray ethay extnay elementway omfray LIST argumentway otay ethay "
+"osestclay enclosingway\n"
+"   useway ofway PPRINT-LOGICAL-BLOCK, automaticallyway andlinghay *PRINT-"
+"LENGTH*\n"
+"   andway *PRINT-CIRCLE*.  Ancay onlyway ebay usedway insideway PPRINT-"
+"LOGICAL-BLOCK.\n"
+"   Ifway ethay LIST argumentway otay PPRINT-LOGICAL-BLOCK asway NIL, enthay "
+"othingnay\n"
+"   isway opedpay, utbay ethay *PRINT-LENGTH* estingtay tillsay appenshay."
+
+#: target:code/pprint.lisp
+msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."
+msgstr "PPRINT-POP ustmay ebay exicallylay insideway PPRINT-LOGICAL-BLOCK."
+
+#: target:code/pprint.lisp
+msgid ""
+"Output a conditional newline to STREAM (which defaults to\n"
+"   *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n"
+"   nothing if not.  KIND can be one of:\n"
+"     :LINEAR - A line break is inserted if and only if the immediatly\n"
+"        containing section cannot be printed on one line.\n"
+"     :MISER - Same as LINEAR, but only if ``miser-style'' is in effect.\n"
+"        (See *PRINT-MISER-WIDTH*.)\n"
+"     :FILL - A line break is inserted if and only if either:\n"
+"       (a) the following section cannot be printed on the end of the\n"
+"           current line,\n"
+"       (b) the preceding section was not printed on a single line, or\n"
+"       (c) the immediately containing section cannot be printed on one\n"
+"           line and miser-style is in effect.\n"
+"     :MANDATORY - A line break is always inserted.\n"
+"   When a line break is inserted by any type of conditional newline, any\n"
+"   blanks that immediately precede the conditional newline are ommitted\n"
+"   from the output and indentation is introduced at the beginning of the\n"
+"   next line.  (See PPRINT-INDENT.)"
+msgstr ""
+"Outputway away onditionalcay ewlinenay otay STREAM (ichwhay efaultsday otay\n"
+"   *STANDARD-OUTPUT*) ifway itway isway away ettypray-intingpray eamstray, "
+"andway oday\n"
+"   othingnay ifway otnay.  KIND ancay ebay oneway ofway:\n"
+"     :LINEAR - Away inelay eakbray isway insertedway ifway andway onlyway "
+"ifway ethay immediatlyway\n"
+"        ontainingcay ectionsay annotcay ebay intedpray onway oneway inelay.\n"
+"     :MISER - Amesay asway LINEAR, utbay onlyway ifway ``isermay-tylesay'' "
+"isway inway effectway.\n"
+"        (Eesay *PRINT-MISER-WIDTH*.)\n"
+"     :FILL - Away inelay eakbray isway insertedway ifway andway onlyway "
+"ifway eitherway:\n"
+"       (away) ethay ollowingfay ectionsay annotcay ebay intedpray onway "
+"ethay endway ofway ethay\n"
+"           urrentcay inelay,\n"
+"       (b) ethay ecedingpray ectionsay asway otnay intedpray onway away "
+"inglesay inelay, orway\n"
+"       (c) ethay immediatelyway ontainingcay ectionsay annotcay ebay "
+"intedpray onway oneway\n"
+"           inelay andway isermay-tylesay isway inway effectway.\n"
+"     :MANDATORY - Away inelay eakbray isway alwaysway insertedway.\n"
+"   Enwhay away inelay eakbray isway insertedway ybay anyway ypetay ofway "
+"onditionalcay ewlinenay, anyway\n"
+"   anksblay atthay immediatelyway ecedepray ethay onditionalcay ewlinenay "
+"areway ommittedway\n"
+"   omfray ethay outputway andway indentationway isway introducedway atway "
+"ethay eginningbay ofway ethay\n"
+"   extnay inelay.  (Eesay PPRINT-INDENT.)"
+
+#: target:code/pprint.lisp
+msgid ""
+"Specify the indentation to use in the current logical block if STREAM\n"
+"   (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n"
+"   and do nothing if not.  (See PPRINT-LOGICAL-BLOCK.)  N is the indention\n"
+"   to use (in ems, the width of an ``m'') and RELATIVE-TO can be either:\n"
+"     :BLOCK - Indent relative to the column the current logical block\n"
+"        started on.\n"
+"     :CURRENT - Indent relative to the current column.\n"
+"   The new indention value does not take effect until the following line\n"
+"   break.  The indention value is silently truncated to an integer."
+msgstr ""
+"Ecifyspay ethay indentationway otay useway inway ethay urrentcay ogicallay "
+"ockblay ifway STREAM\n"
+"   (ichwhay efaultsday otay *STANDARD-OUTPUT*) isway away ettypray-"
+"intingpray eamstray\n"
+"   andway oday othingnay ifway otnay.  (Eesay PPRINT-LOGICAL-BLOCK.)  N "
+"isway ethay indentionway\n"
+"   otay useway (inway emsway, ethay idthway ofway anway ``m'') andway "
+"RELATIVE-TO ancay ebay eitherway:\n"
+"     :BLOCK - Indentway elativeray otay ethay olumncay ethay urrentcay "
+"ogicallay ockblay\n"
+"        tartedsay onway.\n"
+"     :CURRENT - Indentway elativeray otay ethay urrentcay olumncay.\n"
+"   Ethay ewnay indentionway aluevay oesday otnay aketay effectway untilway "
+"ethay ollowingfay inelay\n"
+"   eakbray.  Ethay indentionway aluevay isway ilentlysay uncatedtray otay "
+"anway integerway."
+
+#: target:code/pprint.lisp
+msgid ""
+"If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n"
+"   stream, perform tabbing based on KIND, otherwise do nothing.  KIND can\n"
+"   be one of:\n"
+"     :LINE - Tab to column COLNUM.  If already past COLNUM tab to the next\n"
+"       multiple of COLINC.\n"
+"     :SECTION - Same as :LINE, but count from the start of the current\n"
+"       section, not the start of the line.\n"
+"     :LINE-RELATIVE - Output COLNUM spaces, then tab to the next multiple "
+"of\n"
+"       COLINC.\n"
+"     :SECTION-RELATIVE - Same as :LINE-RELATIVE, but count from the start\n"
+"       of the current section, not the start of the line."
+msgstr ""
+"Ifway STREAM (ichwhay efaultsday otay *STANDARD-OUTPUT*) isway away ettypray-"
+"intingpray\n"
+"   eamstray, erformpay abbingtay asedbay onway KIND, otherwiseway oday "
+"othingnay.  KIND ancay\n"
+"   ebay oneway ofway:\n"
+"     :LINE - Abtay otay olumncay COLNUM.  Ifway alreadyway astpay COLNUM "
+"abtay otay ethay extnay\n"
+"       ultiplemay ofway COLINC.\n"
+"     :SECTION - Amesay asway :LINE, utbay ountcay omfray ethay tartsay ofway "
+"ethay urrentcay\n"
+"       ectionsay, otnay ethay tartsay ofway ethay inelay.\n"
+"     :LINE-RELATIVE - Outputway COLNUM acesspay, enthay abtay otay ethay "
+"extnay ultiplemay ofway\n"
+"       COLINC.\n"
+"     :SECTION-RELATIVE - Amesay asway :LINE-RELATIVE, utbay ountcay omfray "
+"ethay tartsay\n"
+"       ofway ethay urrentcay ectionsay, otnay ethay tartsay ofway ethay "
+"inelay."
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :FILL conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-FILL\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+"Outputway LIST otay STREAM uttingpay :FILL onditionalcay ewlinesnay "
+"etweenbay eachway\n"
+"   elementway.  Ifway COLON? isway NIL (efaultsday otay T), enthay onay "
+"arenspay areway intedpray\n"
+"   aroundway ethay outputway.  ATSIGN? isway ignoredway (utbay allowedway "
+"osay atthay PPRINT-FILL\n"
+"   ancay ebay usedway ithway ethay ~/.../ ormatfay irectiveday."
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :LINEAR conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-"
+"LINEAR\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+"Outputway LIST otay STREAM uttingpay :LINEAR onditionalcay ewlinesnay "
+"etweenbay eachway\n"
+"   elementway.  Ifway COLON? isway NIL (efaultsday otay T), enthay onay "
+"arenspay areway intedpray\n"
+"   aroundway ethay outputway.  ATSIGN? isway ignoredway (utbay allowedway "
+"osay atthay PPRINT-LINEAR\n"
+"   ancay ebay usedway ithway ethay ~/.../ ormatfay irectiveday."
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM tabbing to the next column that is an even multiple\n"
+"   of TABSIZE (which defaults to 16) between each element.  :FILL style\n"
+"   conditional newlines are also output between each element.  If COLON? is\n"
+"   NIL (defaults to T), then no parens are printed around the output.\n"
+"   ATSIGN? is ignored (but allowed so that PPRINT-TABULAR can be used with\n"
+"   the ~/.../ format directive."
+msgstr ""
+"Outputway LIST otay STREAM abbingtay otay ethay extnay olumncay atthay isway "
+"anway evenway ultiplemay\n"
+"   ofway TABSIZE (ichwhay efaultsday otay 16) etweenbay eachway "
+"elementway.  :FILL tylesay\n"
+"   onditionalcay ewlinesnay areway alsoway outputway etweenbay eachway "
+"elementway.  Ifway COLON? isway\n"
+"   NIL (efaultsday otay T), enthay onay arenspay areway intedpray aroundway "
+"ethay outputway.\n"
+"   ATSIGN? isway ignoredway (utbay allowedway osay atthay PPRINT-TABULAR "
+"ancay ebay usedway ithway\n"
+"   ethay ~/.../ ormatfay irectiveday."
+
+#: target:code/pprint.lisp
+msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
+msgstr "CONS PPRINT ispatchday ignoredway w/o ompilercay oadedlay:~%  ~S"
+
+#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp
+#: target:pcl/defclass.lisp target:code/format.lisp
+#: target:code/pprint-loop.lisp target:code/pprint.lisp
+msgid "No more arguments."
+msgstr "Onay oremay argumentsway."
+
+#: target:code/format.lisp
+msgid ""
+"~:[~;Error in format: ~]~\n"
+"\t      ~?~@[~%  ~A~%  ~V@T^~]"
+msgstr ""
+"~:[~;Errorway inway ormatfay: ~]~\n"
+"\t      ~?~@[~%  ~Away~%  ~V@T^~]"
+
+#: target:code/format.lisp
+msgid ""
+"A justification directive cannot be in the same format string~%~\n"
+"                         as ~~W, ~~I, ~~:T, or a logical-block directive."
+msgstr ""
+"Away ustificationjay irectiveday annotcay ebay inway ethay amesay ormatfay "
+"ingstray~%~\n"
+"                         asway ~~W, ~~Iway, ~~:T, orway away ogicallay-"
+"ockblay irectiveday."
+
+#: target:code/format.lisp
+msgid "String ended before directive was found."
+msgstr "Ingstray endedway eforebay irectiveday asway oundfay."
+
+#: target:code/format.lisp
+msgid "Too many colons supplied."
+msgstr "Ootay anymay olonscay uppliedsay."
+
+#: target:code/format.lisp
+msgid "Too many at-signs supplied."
+msgstr "Ootay anymay atway-ignssay uppliedsay."
+
+#: target:code/format.lisp
+msgid "No matching closing slash."
+msgstr "Onay atchingmay osingclay ashslay."
+
+#: target:code/format.lisp
+msgid ""
+"Provides various facilities for formatting output.\n"
+"  CONTROL-STRING contains a string to be output, possibly with embedded\n"
+"  directives, which are flagged with the escape character \"~\".  "
+"Directives\n"
+"  generally expand into additional text to be output, usually consuming one\n"
+"  or more of the FORMAT-ARGUMENTS in the process.  A few useful directives\n"
+"  are:\n"
+"        ~A or ~nA     Prints one argument as if by PRINC\n"
+"        ~S or ~nS     Prints one argument as if by PRIN1\n"
+"        ~D or ~nD     Prints one argument as a decimal integer\n"
+"        ~%            Does a TERPRI\n"
+"        ~&            Does a FRESH-LINE\n"
+"\n"
+"         where n is the width of the field in which the object is printed.\n"
+"  \n"
+"  DESTINATION controls where the result will go.  If DESTINATION is T, then\n"
+"  the output is sent to the standard output stream.  If it is NIL, then the\n"
+"  output is returned in a string as the value of the call.  Otherwise,\n"
+"  DESTINATION must be a stream to which the output will be sent.\n"
+"\n"
+"  Example:   (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\"\n"
+"\n"
+"  FORMAT has many additional capabilities not described here.  Consult\n"
+"  Section 22.3 (Formatted Output) of the ANSI Common Lisp standard for\n"
+"  details."
+msgstr ""
+"Ovidespray ariousvay acilitiesfay orfay ormattingfay outputway.\n"
+"  CONTROL-STRING ontainscay away ingstray otay ebay outputway, ossiblypay "
+"ithway embeddedway\n"
+"  irectivesday, ichwhay areway aggedflay ithway ethay escapeway aracterchay "
+"\"~\".  Irectivesday\n"
+"  enerallygay expandway intoway additionalway exttay otay ebay outputway, "
+"usuallyway onsumingcay oneway\n"
+"  orway oremay ofway ethay FORMAT-ARGUMENTS inway ethay ocesspray.  Away "
+"ewfay usefulway irectivesday\n"
+"  areway:\n"
+"        ~Away orway ~anay     Intspray oneway argumentway asway ifway ybay "
+"PRINC\n"
+"        ~S orway ~snay     Intspray oneway argumentway asway ifway ybay "
+"PRIN1\n"
+"        ~D orway ~dnay     Intspray oneway argumentway asway away ecimalday "
+"integerway\n"
+"        ~%            Oesday away TERPRI\n"
+"        ~&            Oesday away FRESH-LINE\n"
+"\n"
+"         erewhay n isway ethay idthway ofway ethay ieldfay inway ichwhay "
+"ethay objectway isway intedpray.\n"
+"  \n"
+"  DESTINATION ontrolscay erewhay ethay esultray illway ogay.  Ifway "
+"DESTINATION isway T, enthay\n"
+"  ethay outputway isway entsay otay ethay tandardsay outputway eamstray.  "
+"Ifway itway isway NIL, enthay ethay\n"
+"  outputway isway eturnedray inway away ingstray asway ethay aluevay ofway "
+"ethay allcay.  Otherwiseway,\n"
+"  DESTINATION ustmay ebay away eamstray otay ichwhay ethay outputway illway "
+"ebay entsay.\n"
+"\n"
+"  Exampleway:   (FORMAT NIL \"Ethay answerway isway ~D.\" 10) => \"Ethay "
+"answerway isway 10.\"\n"
+"\n"
+"  FORMAT ashay anymay additionalway apabilitiescay otnay escribedday "
+"erehay.  Onsultcay\n"
+"  Ectionsay 22.3 (Ormattedfay Outputway) ofway ethay ANSI Ommoncay Isplay "
+"tandardsay orfay\n"
+"  etailsday."
+
+#: target:code/format.lisp
+msgid "Unknown format directive."
+msgstr "Unknownway ormatfay irectiveday."
+
+#: target:code/format.lisp
+msgid "Unknown directive."
+msgstr "Unknownway irectiveday."
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than ~D"
+msgstr "Ootay anymay arameterspay, expectedway onay oremay anthay ~D"
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than 0"
+msgstr "Ootay anymay arameterspay, expectedway onay oremay anthay 0"
+
+#: target:code/format.lisp
+msgid "Table of ordinal ones-place digits in English"
+msgstr "Abletay ofway ordinalway onesway-aceplay igitsday inway Englishway"
+
+#: target:code/format.lisp
+msgid "Table of ordinal tens-place digits in English"
+msgstr "Abletay ofway ordinalway enstay-aceplay igitsday inway Englishway"
+
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr ""
+"Umbernay ootay argelay otay intpray inway oldway Omanray umeralsnay: ~:D"
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr "Umbernay ootay argelay otay intpray inway Omanray umeralsnay: ~:D"
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr "Onay eviouspray argumentway."
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr "Annotcay ecifyspay ethay oloncay odifiermay ithway isthay irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr ""
+"Annotcay ecifyspay eitherway oloncay orway atsignway orfay isthay "
+"irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr ""
+"Annotcay ecifyspay othbay oloncay andway atsignway orfay isthay irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr "Annotcay ecifyspay ethay atway-ignsay odifiermay."
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr "Annotcay ecifyspay othbay oloncay andway atway-ignsay."
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\t    between 0 and ~D."
+msgstr ""
+"Indexway ~D outway ofway oundsbay.  Ouldshay avehay eenbay ~\n"
+"\t\t\t\t    etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\tbetween 0 and ~D."
+msgstr ""
+"Indexway ~D outway ofway oundsbay.  Ouldshay avehay eenbay ~\n"
+"\t\t\t\tetweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\t   between 0 and ~D."
+msgstr ""
+"Indexway ~D outway ofway oundsbay.  Ouldshay avehay eenbay ~\n"
+"\t\t\t\t   etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t       between 0 and ~D."
+msgstr ""
+"Indexway ~D outway ofway oundsbay.  Ouldshay avehay eenbay ~\n"
+"\t\t\t       etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr "Annotcay ecifyspay ethay oloncay odifiermay."
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr "~Away~%ilewhay ocessingpray indirectway ormatfay ingstray:"
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr "Onay orrespondingcay oseclay arenpay."
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr "Onay orrespondingcay openway arenpay."
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr "Onay orrespondingcay oseclay acketbray."
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr ""
+"Annotcay ecifyspay othbay ethay oloncay andway atway-ignsay odifiersmay."
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr "Ancay onlyway ecifyspay oneway ectionsay"
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr "Ustmay ecifyspay exactlyway wotay ectionssay."
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr "~~; otnay ontainedcay ithinway eitherway ~~[...~~] orway ~~<...~~>."
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr "Onay orrespondingcay openway acketbray."
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr "Attemptway otay useway ~~:^ outsideway away ~~:{...~~} onstructcay."
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr "Onay orrespondingcay oseclay acebray."
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr "Onay orrespondingcay openway acebray."
+
+#: target:code/format.lisp
+msgid "~D illegal directive found inside justification block"
+msgid_plural "~D illegal directives found inside justification block"
+msgstr[0] "~D illegalway irectiveday oundfay insideway ustificationjay ockblay"
+msgstr[1] ""
+"~D illegalway irectivesday oundfay insideway ustificationjay ockblay"
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr "Onay arameterspay ancay ebay uppliedsay ithway ~~<...~~:>."
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+"\t\t\t       ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+"Annotcay includeway ormatfay irectivesday insideway ethay ~\n"
+"\t\t\t       ~:[uffixsay~;efixpray~] egmentsay ofway ~~<...~~:>"
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr "Ootay anymay egmentssay orfay ~~<...~~:>."
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr "Alformedmay ~~/ irectiveday."
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr "Onay ackagepay amednay ~S"
+
+#: target:code/package.lisp
+msgid ""
+"The list of packages to use by default of no :USE argument is supplied\n"
+"   to MAKE-PACKAGE or other package creation forms."
+msgstr ""
+"Ethay istlay ofway ackagespay otay useway ybay efaultday ofway onay :USE "
+"argumentway isway uppliedsay\n"
+"   otay MAKE-PACKAGE orway otherway ackagepay eationcray ormsfay."
+
+#: target:code/package.lisp
+msgid ""
+"Standard structure for the description of a package.  Consists of \n"
+"   a list of all hash tables, the name of the package, the nicknames of\n"
+"   the package, the use-list for the package, the used-by- list, hash-\n"
+"   tables for the internal and external symbols, and a list of the\n"
+"   shadowing symbols."
+msgstr ""
+"Tandardsay ucturestray orfay ethay escriptionday ofway away ackagepay.  "
+"Onsistscay ofway \n"
+"   away istlay ofway allway ashhay ablestay, ethay amenay ofway ethay "
+"ackagepay, ethay icknamesnay ofway\n"
+"   ethay ackagepay, ethay useway-istlay orfay ethay ackagepay, ethay usedway-"
+"ybay- istlay, ashhay-\n"
+"   ablestay orfay ethay internalway andway externalway ymbolssay, andway "
+"away istlay ofway ethay\n"
+"   adowingshay ymbolssay."
+
+#: target:code/package.lisp
+msgid "The ~A package, ~D/~D internal, ~D/~D external"
+msgstr "Ethay ~Away ackagepay, ~D/~D internalway, ~D/~D externalway"
+
+#: target:code/package.lisp
+msgid "The ~A package"
+msgstr "Ethay ~Away ackagepay"
+
+#: target:code/package.lisp
+msgid "deleted package"
+msgstr "eletedday ackagepay"
+
+#: target:code/package.lisp
+msgid "The current package."
+msgstr "Ethay urrentcay ackagepay."
+
+#: target:code/package.lisp
+msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
+msgstr ""
+"~&~@<Attemptway otay odifymay ethay ockedlay ackagepay ~Away, ybay ~3i~:_~?~:"
+">"
+
+#: target:code/package.lisp
+msgid "redefining function ~A"
+msgstr "edefiningray unctionfay ~Away"
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Ignore the lock and continue"
+msgstr "Ignoreway ethay ocklay andway ontinuecay"
+
+#: target:code/package.lisp
+msgid "Disable package's definition-lock, then continue"
+msgstr "Isableday ackagepay's efinitionday-ocklay, enthay ontinuecay"
+
+#: target:code/package.lisp
+msgid "Disable all package locks, then continue"
+msgstr "Isableday allway ackagepay ockslay, enthay ontinuecay"
+
+#: target:code/package.lisp
+msgid "Bogus ~A name: ~S"
+msgstr "Ogusbay ~Away amenay: ~S"
+
+#: target:code/package.lisp
+msgid "Can't do anything to a deleted package: ~S"
+msgstr "Ancay't oday anythingway otay away eletedday ackagepay: ~S"
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n"
+"  parent package.  If there is not a parent, signal an error."
+msgstr ""
+"Ivengay PACKAGE-SPECIFIER, away ackagepay, ymbolsay orway ingstray, eturnray "
+"ethay\n"
+"  arentpay ackagepay.  Ifway erethay isway otnay away arentpay, ignalsay "
+"anway errorway."
+
+#: target:code/package.lisp
+msgid "The parent of ~a does not exist."
+msgstr "Ethay arentpay ofway ~away oesday otnay existway."
+
+#: target:code/package.lisp
+msgid "There is no parent of ~a."
+msgstr "Erethay isway onay arentpay ofway ~away."
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n"
+"  packages which are in the hierarchy 'under' the given package.  If\n"
+"  :recurse is nil, then only return the immediate children of the package."
+msgstr ""
+"Ivengay PACKAGE-SPECIFIER, away ackagepay, ymbolsay orway ingstray, eturnray "
+"allway ethay\n"
+"  ackagespay ichwhay areway inway ethay ierarchyhay 'underway' ethay ivengay "
+"ackagepay.  Ifway\n"
+"  :ecurseray isway ilnay, enthay onlyway eturnray ethay immediateway "
+"ildrenchay ofway ethay ackagepay."
+
+#: target:code/package.lisp
+msgid "Find the package having the specified name."
+msgstr "Indfay ethay ackagepay avinghay ethay ecifiedspay amenay."
+
+#: target:code/package.lisp
+msgid "Make this package."
+msgstr "Akemay isthay ackagepay."
+
+#: target:code/package.lisp
+msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
+msgstr "#<Ackagepay-Ashtablehay: Izesay = ~D, Eefray = ~D, Eletedday = ~D>"
+
+#: target:code/package.lisp
+msgid ""
+"DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs at least once for each symbol accessible in the given\n"
+"   PACKAGE with VAR bound to the current symbol."
+msgstr ""
+"DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executesway ethay Ormsfay atway eastlay onceway orfay eachway ymbolsay "
+"accessibleway inway ethay ivengay\n"
+"   PACKAGE ithway VAR oundbay otay ethay urrentcay ymbolsay."
+
+#: target:code/package.lisp
+msgid ""
+"DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each external symbol in the given PACKAGE "
+"with\n"
+"   VAR bound to the current symbol."
+msgstr ""
+"DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
+"   Executesway ethay Ormsfay onceway orfay eachway externalway ymbolsay "
+"inway ethay ivengay PACKAGE ithway\n"
+"   VAR oundbay otay ethay urrentcay ymbolsay."
+
+#: target:code/package.lisp
+msgid ""
+"DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each symbol in every package with VAR bound\n"
+"   to the current symbol."
+msgstr ""
+"DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executesway ethay Ormsfay onceway orfay eachway ymbolsay inway everyway "
+"ackagepay ithway VAR oundbay\n"
+"   otay ethay urrentcay ymbolsay."
+
+#: target:code/package.lisp
+msgid ""
+"Within the lexical scope of the body forms, MNAME is defined via macrolet\n"
+"   such that successive invocations of (mname) will return the symbols,\n"
+"   one by one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be\n"
+"   any of :inherited :external :internal."
+msgstr ""
+"Ithinway ethay exicallay opescay ofway ethay odybay ormsfay, MNAME isway "
+"efinedday iavay acroletmay\n"
+"   uchsay atthay uccessivesay invocationsway ofway (amemnay) illway eturnray "
+"ethay ymbolssay,\n"
+"   oneway ybay oneway, omfray ethay ackagespay inway PACKAGE-LIST. SYMBOL-"
+"TYPES aymay ebay\n"
+"   anyway ofway :inheritedway :externalway :internalway."
+
+#: target:code/package.lisp
+msgid "~@<~S does not name a package ~:>"
+msgstr "~@<~S oesday otnay amenay away ackagepay ~:>"
+
+#: target:code/package.lisp
+msgid ""
+"Must supply at least one of :internal, ~\n"
+"\t                             :external, or :inherited."
+msgstr ""
+"Ustmay upplysay atway eastlay oneway ofway :internalway, ~\n"
+"\t                             :externalway, orway :inheritedway."
+
+#: target:code/package.lisp
+msgid ""
+"~S is not one of :internal, :external, ~\n"
+"\t\t                       or :inherited."
+msgstr ""
+"~S isway otnay oneway ofway :internalway, :externalway, ~\n"
+"\t\t                       orway :inheritedway."
+
+#: target:code/package.lisp
+msgid ""
+"Defines a new package called PACKAGE.  Each of OPTIONS should be one of the\n"
+"   following:\n"
+"     (:NICKNAMES {package-name}*)\n"
+"     (:SIZE <integer>)\n"
+"     (:SHADOW {symbol-name}*)\n"
+"     (:SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:USE {package-name}*)\n"
+"     (:IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:INTERN {symbol-name}*)\n"
+"     (:EXPORT {symbol-name}*)\n"
+"     (:DOCUMENTATION doc-string)\n"
+"   All options except :SIZE and :DOCUMENTATION can be used multiple times."
+msgstr ""
+"Efinesday away ewnay ackagepay alledcay PACKAGE.  Eachway ofway OPTIONS "
+"ouldshay ebay oneway ofway ethay\n"
+"   ollowingfay:\n"
+"     (:NICKNAMES {ackagepay-amenay}*)\n"
+"     (:SIZE <integerway>)\n"
+"     (:SHADOW {ymbolsay-amenay}*)\n"
+"     (:SHADOWING-IMPORT-FROM <ackagepay-amenay> {ymbolsay-amenay}*)\n"
+"     (:USE {ackagepay-amenay}*)\n"
+"     (:IMPORT-FROM <ackagepay-amenay> {ymbolsay-amenay}*)\n"
+"     (:INTERN {ymbolsay-amenay}*)\n"
+"     (:EXPORT {ymbolsay-amenay}*)\n"
+"     (:DOCUMENTATION ocday-ingstray)\n"
+"   Allway optionsway exceptway :SIZE andway :DOCUMENTATION ancay ebay "
+"usedway ultiplemay imestay."
+
+#: target:code/package.lisp
+msgid "Bogus DEFPACKAGE option: ~S"
+msgstr "Ogusbay DEFPACKAGE optionway: ~S"
+
+#: target:code/package.lisp
+msgid "Can't specify :SIZE twice."
+msgstr "Ancay't ecifyspay :SIZE wicetay."
+
+#: target:code/package.lisp
+msgid "Bogus :SIZE, must be a positive integer: ~S"
+msgstr "Ogusbay :SIZE, ustmay ebay away ositivepay integerway: ~S"
+
+#: target:code/package.lisp
+msgid "Can't specify :DOCUMENTATION twice."
+msgstr "Ancay't ecifyspay :DOCUMENTATION wicetay."
+
+#: target:code/package.lisp
+msgid ""
+"Parameters ~S and ~S must be disjoint ~\n"
+"\t                             but have common elements ~%   ~S"
+msgstr ""
+"Arameterspay ~S andway ~S ustmay ebay isjointday ~\n"
+"\t                             utbay avehay ommoncay elementsway ~%   ~S"
+
+#: target:code/package.lisp
+msgid "~A is a nick-name for the package ~A"
+msgstr "~Away isway away icknay-amenay orfay ethay ackagepay ~Away"
+
+#: target:code/package.lisp
+msgid "~A also shadows the following symbols:~%  ~S"
+msgstr "~Away alsoway adowsshay ethay ollowingfay ymbolssay:~%  ~S"
+
+#: target:code/package.lisp
+msgid "~A previously used the following packages:~%  ~S"
+msgstr "~Away eviouslypray usedway ethay ollowingfay ackagespay:~%  ~S"
+
+#: target:code/package.lisp
+msgid "~A also exports the following symbols:~%  ~S"
+msgstr "~Away alsoway exportsway ethay ollowingfay ymbolssay:~%  ~S"
+
+#: target:code/package.lisp
+msgid "~A does not contain a symbol ~A"
+msgstr "~Away oesday otnay ontaincay away ymbolsay ~Away"
+
+#: target:code/package.lisp
+msgid "Ignore this nickname."
+msgstr "Ignoreway isthay icknamenay."
+
+#: target:code/package.lisp
+msgid "~S is a package name, so it cannot be a nickname for ~S."
+msgstr ""
+"~S isway away ackagepay amenay, osay itway annotcay ebay away icknamenay "
+"orfay ~S."
+
+#: target:code/package.lisp
+msgid "Redefine this nickname."
+msgstr "Edefineray isthay icknamenay."
+
+#: target:code/package.lisp
+msgid "~S is already a nickname for ~S."
+msgstr "~S isway alreadyway away icknamenay orfay ~S."
+
+#: target:code/package.lisp
+msgid ""
+"Makes a new package having the specified Name and Nicknames.  The\n"
+"  package will inherit all external symbols from each package in\n"
+"  the use list.  :Internal-Symbols and :External-Symbols are\n"
+"  estimates for the number of internal and external symbols which\n"
+"  will ultimately be present in the package."
+msgstr ""
+"Akesmay away ewnay ackagepay avinghay ethay ecifiedspay Amenay andway "
+"Icknamesnay.  Ethay\n"
+"  ackagepay illway inheritway allway externalway ymbolssay omfray eachway "
+"ackagepay inway\n"
+"  ethay useway istlay.  :Internalway-Ymbolssay andway :Externalway-Ymbolssay "
+"areway\n"
+"  estimatesway orfay ethay umbernay ofway internalway andway externalway "
+"ymbolssay ichwhay\n"
+"  illway ultimatelyway ebay esentpray inway ethay ackagepay."
+
+#: target:code/package.lisp
+msgid "Leave existing package alone."
+msgstr "Eavelay existingway ackagepay aloneway."
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists"
+msgstr "Away ackagepay amednay ~S alreadyway existsway"
+
+#: target:code/package.lisp
+msgid ""
+"Sets *PACKAGE* to package with given NAME, creating the package if\n"
+"   it does not exist.  If the package already exists then it is modified\n"
+"   to agree with the :USE and :NICKNAMES arguments.  Any new nicknames\n"
+"   are added without removing any old ones not specified.  If any package\n"
+"   in the :Use list is not currently used, then it is added to the use\n"
+"   list."
+msgstr ""
+"Etssay *PACKAGE* otay ackagepay ithway ivengay NAME, eatingcray ethay "
+"ackagepay ifway\n"
+"   itway oesday otnay existway.  Ifway ethay ackagepay alreadyway existsway "
+"enthay itway isway odifiedmay\n"
+"   otay agreeway ithway ethay :USE andway :NICKNAMES argumentsway.  Anyway "
+"ewnay icknamesnay\n"
+"   areway addedway ithoutway emovingray anyway oldway onesway otnay "
+"ecifiedspay.  Ifway anyway ackagepay\n"
+"   inway ethay :Useway istlay isway otnay urrentlycay usedway, enthay itway "
+"isway addedway otay ethay useway\n"
+"   istlay."
+
+#: target:code/package.lisp
+msgid "Old-style IN-PACKAGE."
+msgstr "Oldway-tylesay IN-PACKAGE."
+
+#: target:code/package.lisp
+msgid "The package named ~S doesn't exist."
+msgstr "Ethay ackagepay amednay ~S oesnday't existway."
+
+#: target:code/package.lisp
+msgid "Changes the name and nicknames for a package."
+msgstr "Angeschay ethay amenay andway icknamesnay orfay away ackagepay."
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists."
+msgstr "Away ackagepay amednay ~S alreadyway existsway."
+
+#: target:code/package.lisp
+msgid "Delete the PACKAGE-OR-NAME from the package system data structures."
+msgstr ""
+"Eleteday ethay PACKAGE-OR-NAME omfray ethay ackagepay ystemsay ataday "
+"ucturesstray."
+
+#: target:code/package.lisp
+msgid "Return NIL"
+msgstr "Eturnray NIL"
+
+#: target:code/package.lisp
+msgid "No package of name ~S."
+msgstr "Onay ackagepay ofway amenay ~S."
+
+#: target:code/package.lisp
+msgid "Remove dependency in other packages."
+msgstr "Emoveray ependencyday inway otherway ackagespay."
+
+#: target:code/package.lisp
+msgid "Returns a list of all existing packages."
+msgstr "Eturnsray away istlay ofway allway existingway ackagespay."
+
+#: target:code/package.lisp
+msgid "Returns a symbol having the specified name, creating it if necessary."
+msgstr ""
+"Eturnsray away ymbolsay avinghay ethay ecifiedspay amenay, eatingcray itway "
+"ifway ecessarynay."
+
+#: target:code/package.lisp
+msgid ""
+"Returns the symbol NAME in PACKAGE.  If such a symbol is found\n"
+"  then the second value is :internal, :external or :inherited to indicate\n"
+"  how the symbol is accessible.  If no symbol is found then both values\n"
+"  are NIL."
+msgstr ""
+"Eturnsray ethay ymbolsay NAME inway PACKAGE.  Ifway uchsay away ymbolsay "
+"isway oundfay\n"
+"  enthay ethay econdsay aluevay isway :internalway, :externalway orway :"
+"inheritedway otay indicateway\n"
+"  owhay ethay ymbolsay isway accessibleway.  Ifway onay ymbolsay isway "
+"oundfay enthay othbay aluesvay\n"
+"  areway NIL."
+
+#: target:code/package.lisp
+msgid "interning symbol ~A"
+msgstr "interningway ymbolsay ~Away"
+
+#: target:code/package.lisp
+msgid ""
+"Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present\n"
+"  then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home\n"
+"  package, then it is made uninterned."
+msgstr ""
+"Akesmay SYMBOL onay ongerlay esentpray inway PACKAGE.  Ifway SYMBOL asway "
+"esentpray\n"
+"  enthay T isway eturnedray, otherwiseway NIL.  Ifway PACKAGE isway SYMBOL's "
+"omehay\n"
+"  ackagepay, enthay itway isway ademay uninternedway."
+
+#: target:code/package.lisp
+msgid "uninterning symbol ~A"
+msgstr "uninterningway ymbolsay ~Away"
+
+#: target:code/package.lisp
+msgid "Disable package's lock then continue"
+msgstr "Isableday ackagepay's ocklay enthay ontinuecay"
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Unlock all packages, then continue"
+msgstr "Unlockway allway ackagespay, enthay ontinuecay"
+
+#: target:code/package.lisp
+msgid "prompt for a symbol to shadowing-import."
+msgstr "omptpray orfay away ymbolsay otay adowingshay-importway."
+
+#: target:code/package.lisp
+msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
+msgstr ""
+"Uninterningway ymbolsay ~S ausescay amenay onflictcay amongway esethay "
+"ymbolssay:~%~S"
+
+#: target:code/package.lisp
+msgid "Symbol to shadowing-import: "
+msgstr "Ymbolsay otay adowingshay-importway: "
+
+#: target:code/package.lisp
+msgid "~S is not a symbol."
+msgstr "~S isway otnay away ymbolsay."
+
+#: target:code/package.lisp
+msgid "~S is not one of the conflicting symbols."
+msgstr "~S isway otnay oneway ofway ethay onflictingcay ymbolssay."
+
+#: target:code/package.lisp
+msgid "~S is neither a symbol nor a list of symbols."
+msgstr "~S isway eithernay away ymbolsay ornay away istlay ofway ymbolssay."
+
+#: target:code/package.lisp
+msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
+msgstr ""
+"Exportsway SYMBOLS omfray PACKAGE, eckingchay atthay onay amenay onflictscay "
+"esultray."
+
+#: target:code/package.lisp
+msgid ""
+"Exporting these symbols from the ~A package:~%~S~%~\n"
+"\t      results in name conflicts with these packages:~%~{~A ~}"
+msgstr ""
+"Exportingway esethay ymbolssay omfray ethay ~Away ackagepay:~%~S~%~\n"
+"\t      esultsray inway amenay onflictscay ithway esethay ackagespay:~%~"
+"{~Away ~}"
+
+#: target:code/package.lisp
+msgid "Unintern conflicting symbols."
+msgstr "Uninternway onflictingcay ymbolssay."
+
+#: target:code/package.lisp
+msgid "Skip exporting conflicting symbols."
+msgstr "Kipsay exportingway onflictingcay ymbolssay."
+
+#: target:code/package.lisp
+msgid "Import these symbols into the ~A package."
+msgstr "Importway esethay ymbolssay intoway ethay ~Away ackagepay."
+
+#: target:code/package.lisp
+msgid "These symbols are not accessible in the ~A package:~%~S"
+msgstr ""
+"Esethay ymbolssay areway otnay accessibleway inway ethay ~Away ackagepay:~%~S"
+
+#: target:code/package.lisp
+msgid "Makes SYMBOLS no longer exported from PACKAGE."
+msgstr "Akesmay SYMBOLS onay ongerlay exportedway omfray PACKAGE."
+
+#: target:code/package.lisp
+msgid "unexporting symbols ~A"
+msgstr "unexportingway ymbolssay ~Away"
+
+#: target:code/package.lisp
+msgid "~S is not accessible in the ~A package."
+msgstr "~S isway otnay accessibleway inway ethay ~Away ackagepay."
+
+#: target:code/package.lisp
+msgid ""
+"Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol\n"
+"  is already accessible then it has no effect.  If a name conflict\n"
+"  would result from the importation, then a correctable error is signalled."
+msgstr ""
+"Akemay SYMBOLS accessibleway asway internalway ymbolssay inway PACKAGE.  "
+"Ifway away ymbolsay\n"
+"  isway alreadyway accessibleway enthay itway ashay onay effectway.  Ifway "
+"away amenay onflictcay\n"
+"  ouldway esultray omfray ethay importationway, enthay away orrectablecay "
+"errorway isway ignalledsay."
+
+#: target:code/package.lisp
+msgid "Import these symbols with Shadowing-Import."
+msgstr "Importway esethay ymbolssay ithway Adowingshay-Importway."
+
+#: target:code/package.lisp
+msgid ""
+"Importing these symbols into the ~A package ~\n"
+"\t\tcauses a name conflict:~%~S"
+msgstr ""
+"Importingway esethay ymbolssay intoway ethay ~Away ackagepay ~\n"
+"\t\tausescay away amenay onflictcay:~%~S"
+
+#: target:code/package.lisp
+msgid ""
+"Import SYMBOLS into PACKAGE, disregarding any name conflict.  If\n"
+"  a symbol of the same name is present, then it is uninterned.\n"
+"  The symbols are added to the Package-Shadowing-Symbols."
+msgstr ""
+"Importway SYMBOLS intoway PACKAGE, isregardingday anyway amenay onflictcay.  "
+"Ifway\n"
+"  away ymbolsay ofway ethay amesay amenay isway esentpray, enthay itway "
+"isway uninternedway.\n"
+"  Ethay ymbolssay areway addedway otay ethay Ackagepay-Adowingshay-Ymbolssay."
+
+#: target:code/package.lisp
+msgid ""
+"Make an internal symbol in PACKAGE with the same name as each of the\n"
+"  specified SYMBOLS, adding the new symbols to the Package-Shadowing-"
+"Symbols.\n"
+"  If a symbol with the given name is already present in PACKAGE, then\n"
+"  the existing symbol is placed in the shadowing symbols list if it is\n"
+"  not already present."
+msgstr ""
+"Akemay anway internalway ymbolsay inway PACKAGE ithway ethay amesay amenay "
+"asway eachway ofway ethay\n"
+"  ecifiedspay SYMBOLS, addingway ethay ewnay ymbolssay otay ethay Ackagepay-"
+"Adowingshay-Ymbolssay.\n"
+"  Ifway away ymbolsay ithway ethay ivengay amenay isway alreadyway esentpray "
+"inway PACKAGE, enthay\n"
+"  ethay existingway ymbolsay isway acedplay inway ethay adowingshay "
+"ymbolssay istlay ifway itway isway\n"
+"  otnay alreadyway esentpray."
+
+#: target:code/package.lisp
+msgid ""
+"Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n"
+"  the external symbols of the used packages are accessible as internal\n"
+"  symbols in PACKAGE."
+msgstr ""
+"Addway allway ethay PACKAGES-TO-USE otay ethay useway istlay orfay PACKAGE "
+"osay atthay\n"
+"  ethay externalway ymbolssay ofway ethay usedway ackagespay areway "
+"accessibleway asway internalway\n"
+"  ymbolssay inway PACKAGE."
+
+#: target:code/package.lisp
+msgid "Unintern the conflicting symbols in the ~2*~A package."
+msgstr ""
+"Uninternway ethay onflictingcay ymbolssay inway ethay ~2*~Away ackagepay."
+
+#: target:code/package.lisp
+msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+msgstr ""
+"Useway'ingway ackagepay ~Away esultsray inway amenay onflictscay orfay "
+"esethay ymbolssay:~%~S"
+
+#: target:code/package.lisp
+msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
+msgstr "Emoveray PACKAGES-TO-UNUSE omfray ethay useway istlay orfay PACKAGE."
+
+#: target:code/package.lisp
+msgid "Return a list of all symbols in the system having the specified name."
+msgstr ""
+"Eturnray away istlay ofway allway ymbolssay inway ethay ystemsay avinghay "
+"ethay ecifiedspay amenay."
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "special variable"
+msgstr "ecialspay ariablevay"
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "constant"
+msgstr "onstantcay"
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "undefined variable"
+msgstr "undefinedway ariablevay"
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "symbol macro"
+msgstr "ymbolsay acromay"
+
+#: target:code/package.lisp
+msgid "alien variable"
+msgstr "alienway ariablevay"
+
+#: target:code/package.lisp
+msgid "value: "
+msgstr "aluevay: "
+
+#: target:code/package.lisp
+msgid "macro"
+msgstr "acromay"
+
+#: target:code/package.lisp
+msgid "special operator"
+msgstr "ecialspay operatorway"
+
+#: target:code/package.lisp
+msgid "function"
+msgstr "unctionfay"
+
+#: target:code/package.lisp
+msgid "class"
+msgstr "assclay"
+
+#: target:code/package.lisp
+msgid "type"
+msgstr "ypetay"
+
+#: target:code/package.lisp
+msgid ""
+"Call FUN with each symbol that contains STRING.\n"
+"  If PACKAGE is supplied then only use symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is true then only use\n"
+"  symbols exported from the specified package."
+msgstr ""
+"Allcay FUN ithway eachway ymbolsay atthay ontainscay STRING.\n"
+"  Ifway PACKAGE isway uppliedsay enthay onlyway useway ymbolssay esentpray "
+"inway\n"
+"  atthay ackagepay.  Ifway EXTERNAL-ONLY isway uetray enthay onlyway useway\n"
+"  ymbolssay exportedway omfray ethay ecifiedspay ackagepay."
+
+#: target:code/package.lisp
+msgid ""
+"Briefly describe all symbols which contain the specified STRING.\n"
+"  If PACKAGE is supplied then only describe symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is non-NIL then only describe\n"
+"  external symbols in the specified package."
+msgstr ""
+"Ieflybray escribeday allway ymbolssay ichwhay ontaincay ethay ecifiedspay "
+"STRING.\n"
+"  Ifway PACKAGE isway uppliedsay enthay onlyway escribeday ymbolssay "
+"esentpray inway\n"
+"  atthay ackagepay.  Ifway EXTERNAL-ONLY isway onnay-NIL enthay onlyway "
+"escribeday\n"
+"  externalway ymbolssay inway ethay ecifiedspay ackagepay."
+
+#: target:code/package.lisp
+msgid ""
+"Identical to APROPOS, except that it returns a list of the symbols\n"
+"  found instead of describing them."
+msgstr ""
+"Identicalway otay APROPOS, exceptway atthay itway eturnsray away istlay "
+"ofway ethay ymbolssay\n"
+"  oundfay insteadway ofway escribingday emthay."
+
+#: target:code/reader.lisp
+msgid "Float format for 1.0E1"
+msgstr "Oatflay ormatfay orfay 1.0E1"
+
+#: target:code/reader.lisp
+msgid "Variable bound to current readtable."
+msgstr "Ariablevay oundbay otay urrentcay eadtableray."
+
+#: target:code/reader.lisp
+msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
+msgstr "Eaderray errorway ~@[atway ~D ~]onway ~S:~%~?"
+
+#: target:code/reader.lisp
+msgid "Unexpected EOF on ~S ~A."
+msgstr "Unexpectedway EOF onway ~S ~Away."
+
+#: target:code/reader.lisp
+msgid ""
+"Standard lisp readtable. This is for recovery from broken\n"
+"   read-tables, and should not normally be user-visible."
+msgstr ""
+"Tandardsay isplay eadtableray. Isthay isway orfay ecoveryray omfray "
+"okenbray\n"
+"   eadray-ablestay, andway ouldshay otnay ormallynay ebay userway-isiblevay."
+
+#: target:code/reader.lisp
+msgid ""
+"Readtable is a data structure that maps characters into syntax\n"
+"   types for the Common Lisp expression reader."
+msgstr ""
+"Eadtableray isway away ataday ucturestray atthay apsmay aracterschay intoway "
+"yntaxsay\n"
+"   ypestay orfay ethay Ommoncay Isplay expressionway eaderray."
+
+#: target:code/reader.lisp
+msgid "Value of *package* at the start of the last read or Nil."
+msgstr ""
+"Aluevay ofway *package* atway ethay tartsay ofway ethay astlay eadray orway "
+"Ilnay."
+
+#: target:code/reader.lisp
+msgid "Undefined read-macro character ~S"
+msgstr "Undefinedway eadray-acromay aracterchay ~S"
+
+#: target:code/reader.lisp
+msgid "A copy is made of from-readtable and place into to-readtable."
+msgstr ""
+"Away opycay isway ademay ofway omfray-eadtableray andway aceplay intoway "
+"otay-eadtableray."
+
+#: target:code/reader.lisp
+msgid ""
+"Causes the syntax of to-char to be the same as from-char in the \n"
+"  optional readtable (defaults to the current readtable).  The\n"
+"  from-table defaults the standard lisp readtable by being nil."
+msgstr ""
+"Ausescay ethay yntaxsay ofway otay-archay otay ebay ethay amesay asway "
+"omfray-archay inway ethay \n"
+"  optionalway eadtableray (efaultsday otay ethay urrentcay eadtableray).  "
+"Ethay\n"
+"  omfray-abletay efaultsday ethay tandardsay isplay eadtableray ybay eingbay "
+"ilnay."
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to be a macro character which invokes function when\n"
+"   seen by the reader.  The non-terminatingp flag can be used to\n"
+"   make the macro character non-terminating.  The optional readtable\n"
+"   argument defaults to the current readtable.  Set-macro-character\n"
+"   returns T."
+msgstr ""
+"Ausescay archay otay ebay away acromay aracterchay ichwhay invokesway "
+"unctionfay enwhay\n"
+"   eensay ybay ethay eaderray.  Ethay onnay-erminatingptay agflay ancay ebay "
+"usedway otay\n"
+"   akemay ethay acromay aracterchay onnay-erminatingtay.  Ethay optionalway "
+"eadtableray\n"
+"   argumentway efaultsday otay ethay urrentcay eadtableray.  Etsay-acromay-"
+"aracterchay\n"
+"   eturnsray T."
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the function associated with the specified char which is a macro\n"
+"  character.  The optional readtable argument defaults to the current\n"
+"  readtable."
+msgstr ""
+"Eturnsray ethay unctionfay associatedway ithway ethay ecifiedspay archay "
+"ichwhay isway away acromay\n"
+"  aracterchay.  Ethay optionalway eadtableray argumentway efaultsday otay "
+"ethay urrentcay\n"
+"  eadtableray."
+
+#: target:code/reader.lisp
+msgid "Bind *read-buffer* to a fresh buffer and execute Body."
+msgstr ""
+"Indbay *read-buffer* otay away eshfray ufferbay andway executeway Odybay."
+
+#: target:code/reader.lisp
+msgid "If true, only warn when there is an extra close paren, otherwise error."
+msgstr ""
+"Ifway uetray, onlyway arnway enwhay erethay isway anway extraway oseclay "
+"arenpay, otherwiseway errorway."
+
+#: target:code/reader.lisp
+msgid ""
+"Reads from stream and returns the object read, preserving the whitespace\n"
+"   that followed the object."
+msgstr ""
+"Eadsray omfray eamstray andway eturnsray ethay objectway eadray, "
+"eservingpray ethay itespacewhay\n"
+"   atthay ollowedfay ethay objectway."
+
+#: target:code/reader.lisp
+msgid ""
+"Reads in the next object in the stream, which defaults to\n"
+"   *standard-input*. For details see the I/O chapter of\n"
+"   the manual."
+msgstr ""
+"Eadsray inway ethay extnay objectway inway ethay eamstray, ichwhay "
+"efaultsday otay\n"
+"   *standard-input*. Orfay etailsday eesay ethay Iway/O apterchay ofway\n"
+"   ethay anualmay."
+
+#: target:code/reader.lisp
+msgid ""
+"Reads objects from input-stream until the next character after an\n"
+"   object's representation is endchar.  A list of those objects read\n"
+"   is returned."
+msgstr ""
+"Eadsray objectsway omfray inputway-eamstray untilway ethay extnay "
+"aracterchay afterway anway\n"
+"   objectway's epresentationray isway endcharway.  Away istlay ofway osethay "
+"objectsway eadray\n"
+"   isway eturnedray."
+
+#: target:code/reader.lisp
+msgid "Nothing appears before . in list."
+msgstr "Othingnay appearsway eforebay . inway istlay."
+
+#: target:code/reader.lisp
+msgid "Nothing appears after . in list."
+msgstr "Othingnay appearsway afterway . inway istlay."
+
+#: target:code/reader.lisp
+msgid "More than one object follows . in list."
+msgstr "Oremay anthay oneway objectway ollowsfay . inway istlay."
+
+#: target:code/reader.lisp
+msgid ""
+"Ignoring unmatched close parenthesis~\n"
+"\t\t  ~@[ at file position ~D~]."
+msgstr ""
+"Ignoringway unmatchedway oseclay arenthesispay~\n"
+"\t\t  ~@[ atway ilefay ositionpay ~D~]."
+
+#: target:code/reader.lisp
+msgid "Unmatched close parenthesis."
+msgstr "Unmatchedway oseclay arenthesispay."
+
+#: target:code/reader.lisp
+msgid "after escape character"
+msgstr "afterway escapeway aracterchay"
+
+#: target:code/reader.lisp
+msgid "inside extended token"
+msgstr "insideway extendedway okentay"
+
+#: target:code/reader.lisp
+msgid "invalid constituent"
+msgstr "invalidway onstituentcay"
+
+#: target:code/reader.lisp
+msgid "Suppresses most interpreting of the reader when T"
+msgstr "Uppressessay ostmay interpretingway ofway ethay eaderray enwhay T"
+
+#: target:code/reader.lisp
+msgid "The radix that Lisp reads numbers in."
+msgstr "Ethay adixray atthay Isplay eadsray umbersnay inway."
+
+#: target:code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+"Isthay unctionfay isway ustjay anway smfay atthay ecognizesray umbersnay "
+"andway ymbolssay."
+
+#: target:code/reader.lisp
+msgid "impossible!"
+msgstr "impossibleway!"
+
+#: target:code/reader.lisp
+msgid "dot context error"
+msgstr "otday ontextcay errorway"
+
+#: target:code/reader.lisp
+msgid "too many dots"
+msgstr "ootay anymay otsday"
+
+#: target:code/reader.lisp
+msgid "too many colons in ~S"
+msgstr "ootay anymay olonscay inway ~S"
+
+#: target:code/reader.lisp
+msgid "after reading a colon"
+msgstr "afterway eadingray away oloncay"
+
+#: target:code/reader.lisp
+msgid "package ~S not found"
+msgstr "ackagepay ~S otnay oundfay"
+
+#: target:code/reader.lisp
+msgid "Use symbol anyway."
+msgstr "Useway ymbolsay anywayway."
+
+#: target:code/reader.lisp
+msgid "The symbol ~S is not external in the ~A package."
+msgstr "Ethay ymbolsay ~S isway otnay externalway inway ethay ~Away ackagepay."
+
+#: target:code/reader.lisp
+msgid "Symbol ~S not found in the ~A package."
+msgstr "Ymbolsay ~S otnay oundfay inway ethay ~Away ackagepay."
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: returns 3 values: the string for the token,\n"
+"   a flag for whether there was an escape char, and the position of any\n"
+"   package delimiter."
+msgstr ""
+"Orfay emisay-externalway useway: eturnsray 3 aluesvay: ethay ingstray orfay "
+"ethay okentay,\n"
+"   away agflay orfay etherwhay erethay asway anway escapeway archay, andway "
+"ethay ositionpay ofway anyway\n"
+"   ackagepay elimiterday."
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: read an extended token with the first character\n"
+"  escaped.  Returns the string for the token."
+msgstr ""
+"Orfay emisay-externalway useway: eadray anway extendedway okentay ithway "
+"ethay irstfay aracterchay\n"
+"  escapedway.  Eturnsray ethay ingstray orfay ethay okentay."
+
+#: target:code/reader.lisp
+msgid "after escape"
+msgstr "afterway escapeway"
+
+#: target:code/reader.lisp
+msgid ""
+"Holds the mapping of base to 'safe' number of digits to read for a fixnum."
+msgstr ""
+"Oldshay ethay appingmay ofway asebay otay 'afesay' umbernay ofway igitsday "
+"otay eadray orfay away ixnumfay."
+
+#: target:code/reader.lisp
+msgid "Holds the largest fixnum power of the base for make-integer."
+msgstr ""
+"Oldshay ethay argestlay ixnumfay owerpay ofway ethay asebay orfay akemay-"
+"integerway."
+
+#: target:code/reader.lisp
+msgid ""
+"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n"
+"  then multiplying by a power of the base and adding."
+msgstr ""
+"Inimizesmay ignumbay-ixnumfay ultipliesmay ybay eadingray away 'afesay' "
+"umbernay ofway igitsday, \n"
+"  enthay ultiplyingmay ybay away owerpay ofway ethay asebay andway addingway."
+
+#: target:code/reader.lisp
+msgid ""
+"Fast bignum-reading interface.  Reads from stream S an integer in radix\n"
+"R.  If we find some kind of error (bad characters, EOF), then NIL is\n"
+"returned; otherwise the number.  Reads at least one digit, but may not get "
+"to\n"
+"the end of the stream."
+msgstr ""
+"Astfay ignumbay-eadingray interfaceway.  Eadsray omfray eamstray S anway "
+"integerway inway adixray\n"
+"R.  Ifway eway indfay omesay indkay ofway errorway (adbay aracterschay, "
+"EOF), enthay NIL isway\n"
+"eturnedray; otherwiseway ethay umbernay.  Eadsray atway eastlay oneway "
+"igitday, utbay aymay otnay etgay otay\n"
+"ethay endway ofway ethay eamstray."
+
+#: target:code/reader.lisp
+msgid "Internal error in floating point reader."
+msgstr "Internalway errorway inway oatingflay ointpay eaderray."
+
+#: target:code/reader.lisp
+msgid "Underflow"
+msgstr "Underflowway"
+
+#: target:code/reader.lisp
+msgid "Floating-point number not representable"
+msgstr "Oatingflay-ointpay umbernay otnay epresentableray"
+
+#: target:code/reader.lisp
+msgid "Invalid ratio: ~S/~S"
+msgstr "Invalidway atioray: ~S/~S"
+
+#: target:code/reader.lisp
+msgid "No dispatch function defined for ~S."
+msgstr "Onay ispatchday unctionfay efinedday orfay ~S."
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to become a dispatching macro character in readtable\n"
+"   (which defaults to the current readtable).  If the non-terminating-p\n"
+"   flag is set to T, the char will be non-terminating.  Make-dispatch-\n"
+"   macro-character returns T."
+msgstr ""
+"Ausescay archay otay ecomebay away ispatchingday acromay aracterchay inway "
+"eadtableray\n"
+"   (ichwhay efaultsday otay ethay urrentcay eadtableray).  Ifway ethay onnay-"
+"erminatingtay-p\n"
+"   agflay isway etsay otay T, ethay archay illway ebay onnay-erminatingtay.  "
+"Akemay-ispatchday-\n"
+"   acromay-aracterchay eturnsray T."
+
+#: target:code/reader.lisp
+msgid ""
+"Causes function to be called whenever the reader reads\n"
+"   disp-char followed by sub-char. Set-dispatch-macro-character\n"
+"   returns T."
+msgstr ""
+"Ausescay unctionfay otay ebay alledcay eneverwhay ethay eaderray eadsray\n"
+"   ispday-archay ollowedfay ybay ubsay-archay. Etsay-ispatchday-acromay-"
+"aracterchay\n"
+"   eturnsray T."
+
+#: target:code/reader.lisp
+msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
+msgstr "Ispatchday Ubsay-Archay ustmay otnay ebay away ecimalday igitday: ~S"
+
+#: target:code/reader.lisp
+msgid "~S is not a dispatch character."
+msgstr "~S isway otnay away ispatchday aracterchay."
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the macro character function for sub-char under disp-char\n"
+"   or nil if there is no associated function."
+msgstr ""
+"Eturnsray ethay acromay aracterchay unctionfay orfay ubsay-archay underway "
+"ispday-archay\n"
+"   orway ilnay ifway erethay isway onay associatedway unctionfay."
+
+#: target:code/reader.lisp
+msgid "inside dispatch character"
+msgstr "insideway ispatchday aracterchay"
+
+#: target:code/reader.lisp
+msgid "No dispatch table for dispatch char."
+msgstr "Onay ispatchday abletay orfay ispatchday archay."
+
+#: target:code/reader.lisp
+msgid "A resource of string streams for Read-From-String."
+msgstr "Away esourceray ofway ingstray eamsstray orfay Eadray-Omfray-Ingstray."
+
+#: target:code/reader.lisp
+msgid ""
+"The characters of string are successively given to the lisp reader\n"
+"   and the lisp object built by the reader is returned.  Macro chars\n"
+"   will take effect."
+msgstr ""
+"Ethay aracterschay ofway ingstray areway uccessivelysay ivengay otay ethay "
+"isplay eaderray\n"
+"   andway ethay isplay objectway uiltbay ybay ethay eaderray isway "
+"eturnedray.  Acromay arschay\n"
+"   illway aketay effectway."
+
+#: target:code/reader.lisp
+msgid ""
+"Examine the substring of string delimited by start and end\n"
+"  (default to the beginning and end of the string)  It skips over\n"
+"  whitespace characters and then tries to parse an integer.  The\n"
+"  radix parameter must be between 2 and 36."
+msgstr ""
+"Examineway ethay ubstringsay ofway ingstray elimitedday ybay tartsay andway "
+"endway\n"
+"  (efaultday otay ethay eginningbay andway endway ofway ethay ingstray)  "
+"Itway kipssay overway\n"
+"  itespacewhay aracterschay andway enthay iestray otay arsepay anway "
+"integerway.  Ethay\n"
+"  adixray arameterpay ustmay ebay etweenbay 2 andway 36."
+
+#: target:code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr "Erethay areway onay igitsday inway isthay ingstray: ~S"
+
+#: target:code/reader.lisp
+msgid "There's junk in this string: ~S."
+msgstr "Erethay's unkjay inway isthay ingstray: ~S."
+
+#: target:code/sharpm.lisp
+msgid "Numeric argument ignored in #~D~A."
+msgstr "Umericnay argumentway ignoredway inway #~D~Away."
+
+#: target:code/sharpm.lisp
+msgid "Unrecognized character name: ~S"
+msgstr "Unrecognizedway aracterchay amenay: ~S"
+
+#: target:code/sharpm.lisp
+msgid "Ill-formed vector: #~S"
+msgstr "Illway-ormedfay ectorvay: #~S"
+
+#: target:code/sharpm.lisp
+msgid "Vector longer than specified length: #~S~S"
+msgstr "Ectorvay ongerlay anthay ecifiedspay engthlay: #~S~S"
+
+#: target:code/sharpm.lisp
+msgid "Escape character appeared after #*"
+msgstr "Escapeway aracterchay appearedway afterway #*"
+
+#: target:code/sharpm.lisp
+msgid "You have to give a little bit for non-zero #* bit-vectors."
+msgstr ""
+"Ouyay avehay otay ivegay away ittlelay itbay orfay onnay-erozay #* itbay-"
+"ectorsvay."
+
+#: target:code/sharpm.lisp
+msgid "Illegal element given for bit-vector: ~S"
+msgstr "Illegalway elementway ivengay orfay itbay-ectorvay: ~S"
+
+#: target:code/sharpm.lisp
+msgid "Bit vector is longer than specified length #~A*~A"
+msgstr "Itbay ectorvay isway ongerlay anthay ecifiedspay engthlay #~A*Way~Away"
+
+#: target:code/sharpm.lisp
+msgid "Symbol following #: contains a package marker: ~S"
+msgstr "Ymbolsay ollowingfay #: ontainscay away ackagepay arkermay: ~S"
+
+#: target:code/sharpm.lisp
+msgid "If false, then the #. read macro is disabled."
+msgstr "Ifway alsefay, enthay ethay #. eadray acromay isway isabledday."
+
+#: target:code/sharpm.lisp
+msgid "Attempt to read #. while *READ-EVAL* is bound to NIL."
+msgstr "Attemptway otay eadray #. ilewhay *READ-EVAL* isway oundbay otay NIL."
+
+#: target:code/sharpm.lisp
+msgid "Radix missing in #R."
+msgstr "Adixray issingmay inway #R."
+
+#: target:code/sharpm.lisp
+msgid "Illegal radix for #R: ~D."
+msgstr "Illegalway adixray orfay #R: ~D."
+
+#: target:code/sharpm.lisp
+msgid "#~A (base ~D) value is not a rational: ~S."
+msgstr "#~Away (asebay ~D) aluevay isway otnay away ationalray: ~S."
+
+#: target:code/sharpm.lisp
+msgid ""
+"#~DA axis ~D is empty, but axis ~\n"
+"\t\t\t\t          ~D is non-empty."
+msgstr ""
+"#~DA axisway ~D isway emptyway, utbay axisway ~\n"
+"\t\t\t\t          ~D isway onnay-emptyway."
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S"
+msgstr "Onnay-istlay ollowingfay #S"
+
+#: target:code/sharpm.lisp
+msgid "Non-list following #S: ~S"
+msgstr "Onnay-istlay ollowingfay #S: ~S"
+
+#: target:code/sharpm.lisp
+msgid "Structure type is not a symbol: ~S"
+msgstr "Ucturestray ypetay isway otnay away ymbolsay: ~S"
+
+#: target:code/sharpm.lisp
+msgid "~S is not a defined structure type."
+msgstr "~S isway otnay away efinedday ucturestray ypetay."
+
+#: target:code/sharpm.lisp
+msgid "The ~S structure does not have a default constructor."
+msgstr "Ethay ~S ucturestray oesday otnay avehay away efaultday onstructorcay."
+
+#: target:code/sharpm.lisp
+msgid "Missing label for #=."
+msgstr "Issingmay abellay orfay #=."
+
+#: target:code/sharpm.lisp
+msgid "Multiply defined label: #~D="
+msgstr "Ultiplymay efinedday abellay: #~D="
+
+#: target:code/sharpm.lisp
+msgid "Have to tag something more than just #~D#."
+msgstr "Avehay otay agtay omethingsay oremay anthay ustjay #~D#."
+
+#: target:code/sharpm.lisp
+msgid "Missing label for ##."
+msgstr "Issingmay abellay orfay ##."
+
+#: target:code/sharpm.lisp
+msgid "reference to undefined label #~D#"
+msgstr "eferenceray otay undefinedway abellay #~D#"
+
+#: target:code/sharpm.lisp
+msgid "Illegal complex number format: #C~S"
+msgstr "Illegalway omplexcay umbernay ormatfay: #C~S"
+
+#: target:code/sharpm.lisp
+msgid "Illegal sharp character ~S"
+msgstr "Illegalway arpshay aracterchay ~S"
+
+#: target:code/backq.lisp
+msgid "How deep we are into backquotes"
+msgstr "Owhay eepday eway areway intoway ackquotesbay"
+
+#: target:code/backq.lisp
+msgid ",@ after backquote in ~S"
+msgstr ",@ afterway ackquotebay inway ~S"
+
+#: target:code/backq.lisp
+msgid ",. after backquote in ~S"
+msgstr ",. afterway ackquotebay inway ~S"
+
+#: target:code/backq.lisp
+msgid "Comma not inside a backquote."
+msgstr "Ommacay otnay insideway away ackquotebay."
+
+#: target:code/backq.lisp
+msgid ",@ after dot in ~S"
+msgstr ",@ afterway otday inway ~S"
+
+#: target:code/backq.lisp
+msgid ",. after dot in ~S"
+msgstr ",. afterway otday inway ~S"
+
+#: target:code/backq.lisp
+msgid ""
+"Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n"
+"  BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n"
+"  corresponding backquote input form.  In this form, `,' `,@' and `,.' are\n"
+"  represented by lists whose cars are BACKQ-COMMA, BACKQ-COMMA-AT, and\n"
+"  BACKQ-COMMA-DOT respectively, and whose cadrs are the form after the "
+"comma.\n"
+"  SPLICING indicates whether a comma-escape return should be modified for\n"
+"  splicing with other forms: a value of T or :NCONC meaning that an extra\n"
+"  level of parentheses should be added."
+msgstr ""
+"Ivengay away isplay ormfay ontainingcay ethay agicmay unctionsfay BACKQ-"
+"LIST, BACKQ-Ist*Lay,\n"
+"  BACKQ-APPEND, etcway. oducedpray ybay ethay ackquotebay eaderray acromay, "
+"illway eturnray away\n"
+"  orrespondingcay ackquotebay inputway ormfay.  Inway isthay ormfay, `,' `,"
+"@' andway `,.' areway\n"
+"  epresentedray ybay istslay osewhay arscay areway BACKQ-COMMA, BACKQ-COMMA-"
+"AT, andway\n"
+"  BACKQ-COMMA-DOT espectivelyray, andway osewhay adrscay areway ethay ormfay "
+"afterway ethay ommacay.\n"
+"  SPLICING indicatesway etherwhay away ommacay-escapeway eturnray ouldshay "
+"ebay odifiedmay orfay\n"
+"  licingspay ithway otherway ormsfay: away aluevay ofway T orway :NCONC "
+"eaningmay atthay anway extraway\n"
+"  evellay ofway arenthesespay ouldshay ebay addedway."
+
+#: target:code/backq.lisp
+msgid "### illegal dotted backquote form ###"
+msgstr "### illegalway ottedday ackquotebay ormfay ###"
+
+#: 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 ""
+"Akemay anway objectway etsay orfay useway ybay away RPC/eventxay erversay.  "
+"Amenay isway orfay\n"
+"      escriptiveday urposespay onlyway."
+
+#: target:code/serve-event.lisp
+msgid "You lose, object: ~S"
+msgstr "Ouyay oselay, objectway: ~S"
+
+#: 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 ""
+"Eturnray ethay andlerhay unctionfay inway Objectway-Etsay orfay ethay "
+"operationway ecifiedspay ybay\n"
+"   Essagemay-ID, ifway onenay, NIL isway eturnedray."
+
+#: target:code/serve-event.lisp
+msgid "Sets the handler function for an object set operation."
+msgstr ""
+"Etssay ethay andlerhay unctionfay orfay anway objectway etsay operationway."
+
+#: target:code/serve-event.lisp
+msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
+msgstr "#<Andlerhay orfay ~Away onway ~:[~;BOGUS ~]escriptorday ~D: ~S>"
+
+#: target:code/serve-event.lisp
+msgid "List of all the currently active handlers for file descriptors"
+msgstr ""
+"Istlay ofway allway ethay urrentlycay activeway andlershay orfay ilefay "
+"escriptorsday"
+
+#: 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 ""
+"Arangeway otay allcay FUNCTION eneverwhay FD isway usableway. DIRECTION "
+"ouldshay ebay\n"
+"  eitherway :INPUT orway :OUTPUT. Ethay aluevay eturnedray ouldshay ebay "
+"assedpay otay\n"
+"  SYSTEM:REMOVE-FD-HANDLER enwhay itway isway onay ongerlay eedednay."
+
+#: target:code/serve-event.lisp
+msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT"
+msgstr "Invalidway irectionday ~S, ustmay ebay eitherway :INPUT orway :OUTPUT"
+
+#: target:code/serve-event.lisp
+msgid "Removes HANDLER from the list of active handlers."
+msgstr "Emovesray HANDLER omfray ethay istlay ofway activeway andlershay."
+
+#: 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 ""
+"Emoveray anyway andershay eferingray otay FD. Isthay ouldshay onlyway ebay "
+"usedway enwhay attemptingway\n"
+"  otay ecoverray omfray away etectedday inconsistencyway."
+
+#: 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 ""
+"Establishway away andlerhay ithway SYSTEM:ADD-FD-HANDLER orfay ethay "
+"urationday ofway BODY.\n"
+"   DIRECTION ouldshay ebay eitherway :INPUT orway :OUTPUT, FD isway ethay "
+"ilefay escriptorday otay\n"
+"   useway, andway FUNCTION isway ethay unctionfay otay allcay eneverwhay FD "
+"isway usableway."
+
+#.  This needs more work.
+#: target:code/serve-event.lisp
+msgid "Remove bogus handlers."
+msgstr "Emoveray ogusbay andlershay."
+
+#: target:code/serve-event.lisp
+msgid "Retry bogus handlers."
+msgstr "Etryray ogusbay andlershay."
+
+#: target:code/serve-event.lisp
+msgid "Go on, leaving handlers marked as bogus."
+msgstr "Ogay onway, eavinglay andlershay arkedmay asway ogusbay."
+
+#: target:code/serve-event.lisp
+msgid "~S ~[have~;has a~:;have~] bad file descriptor."
+msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
+msgstr[0] "~S ~[avehay~;ashay away~:;avehay~] adbay ilefay escriptorday."
+msgstr[1] "~S ~[avehay~;ashay away~:;avehay~] adbay ilefay escriptorsday."
+
+#: target:code/serve-event.lisp
+msgid "Timeout is not a real number or NIL: ~S"
+msgstr "Imeouttay isway otnay away ealray umbernay orway NIL: ~S"
+
+#: 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 ""
+"Aitway untilway FD isway usableway orfay DIRECTION. DIRECTION ouldshay ebay "
+"eitherway :INPUT orway\n"
+"  :OUTPUT. TIMEOUT, ifway uppliedsay, isway ethay umbernay ofway econdssay "
+"otay aitway eforebay ivinggay\n"
+"  upway."
+
+#: target:code/time.lisp target:code/serve-event.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr "Yscallsay ~Away ailedfay: ~Away"
+
+#: 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 ""
+"Isthay isway anway alistway appingmay isplaysday otay userway unctionsfay "
+"otay ebay alledcay enwhay\n"
+"   SYSTEM:SERVE-EVENT oticesnay inputway onway away isplayday onnectioncay.  "
+"Oday otnay odifymay\n"
+"   isthay irectlyday; useway EXT:ENABLE-CLX-EVENT-HANDLING.  Away ivengay "
+"isplayday\n"
+"   ouldshay ebay epresentedray erehay onlyway onceway."
+
+#: 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 ""
+"SERVE-ALL-EVENTS allscay SERVE-EVENT ithway ethay ecifiedspay imeouttay.  "
+"Ifway\n"
+"  SERVE-EVENT oesday omethingsay (eturnsray T) itway oopslay overway SERVE-"
+"EVENT ithway imeouttay\n"
+"  0 untilway allway eventsway avehay eenbay ervedsay.  SERVE-ALL-EVENTS "
+"eturnsray T ifway\n"
+"  SERVE-EVENT idday omethingsay andway NIL ifway otnay."
+
+#: 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 ""
+"Eceiveray onway allway ortspay andway Eventsxay andway ispatchday otay ethay "
+"appropriateway andlerhay\n"
+"  unctionfay.  Ifway imeouttay isway ecifiedspay, erversay illway aitway "
+"ethay ecifiedspay imetay (inway\n"
+"  econdssay) andway enthay eturnray, otherwiseway itway illway aitway "
+"untilway omethingsay appenshay.\n"
+"  Erversay eturnsray T ifway omethingsay appenedhay andway NIL otherwiseway."
+
+#: target:code/serve-event.lisp
+msgid "Event-listen was true, but handler didn't handle: ~%~S"
+msgstr ""
+"Eventway-istenlay asway uetray, utbay andlerhay idnday't andlehay: ~%~S"
+
+#: target:code/extfmts.lisp
+msgid "Attempting unimplemented external-format I/O."
+msgstr "Attemptingway unimplementedway externalway-ormatfay Iway/O."
+
+#: target:code/extfmts.lisp
+msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT."
+msgstr "Onsensicalnay argumentway (~S) otay DEFINE-EXTERNAL-FORMAT."
+
+#: target:code/extfmts.lisp
+msgid "External-format aliases file ends early."
+msgstr "Externalway-ormatfay aliasesway ilefay endsway earlyway."
+
+#: target:code/extfmts.lisp
+msgid "Bad entry in external-format aliases file: ~S => ~S."
+msgstr "Adbay entryway inway externalway-ormatfay aliasesway ilefay: ~S => ~S."
+
+#: target:code/extfmts.lisp
+msgid "External-format aliasing depth exceeded."
+msgstr "Externalway-ormatfay aliasingway epthday exceededway."
+
+#: target:code/extfmts.lisp
+msgid "~S is a Composing-External-Format."
+msgstr "~S isway away Omposingcay-Externalway-Ormatfay."
+
+#: target:code/extfmts.lisp
+msgid "~S is not a Composing-External-Format."
+msgstr "~S isway otnay away Omposingcay-Externalway-Ormatfay."
+
+#: target:code/extfmts.lisp
+msgid "~S is not a valid external format name."
+msgstr "~S isway otnay away alidvay externalway ormatfay amenay."
+
+#: target:code/extfmts.lisp
+msgid "External format ~S not found."
+msgstr "Externalway ormatfay ~S otnay oundfay."
+
+#: target:code/extfmts.lisp
+msgid "Attempting I/O through void external-format."
+msgstr "Attemptingway Iway/O roughthay oidvay externalway-ormatfay."
+
+#: target:code/extfmts.lisp
+msgid ""
+"Convert String to octets using the specified External-format.  The\n"
+"   string is bounded by Start (defaulting to 0) and End (defaulting to\n"
+"   the end of the string.  If Buffer is given, the octets are stored\n"
+"   there.  If not, a new buffer is created."
+msgstr ""
+"Onvertcay Ingstray otay octetsway usingway ethay ecifiedspay Externalway-"
+"ormatfay.  Ethay\n"
+"   ingstray isway oundedbay ybay Tartsay (efaultingday otay 0) andway Endway "
+"(efaultingday otay\n"
+"   ethay endway ofway ethay ingstray.  Ifway Ufferbay isway ivengay, ethay "
+"octetsway areway toredsay\n"
+"   erethay.  Ifway otnay, away ewnay ufferbay isway eatedcray."
+
+#: target:code/extfmts.lisp
+msgid ""
+"Octets-to-string converts an array of octets in Octets to a string\n"
+"  according to the specified External-format.  The array of octets is\n"
+"  bounded by Start (defaulting ot 0) and End (defaulting to the end of\n"
+"  the array.  If String is not given, a new string is created.  If\n"
+"  String is given, the converted octets are stored in String, starting\n"
+"  at S-Start (defaulting to the 0) and ending at S-End (defaulting to\n"
+"  the length of String).  If the string is not large enough to hold\n"
+"  all of characters, then some octets will not be converted.  A State\n"
+"  may also be specified; this is used as the state of the external\n"
+"  format.\n"
+"\n"
+"  Four values are returned: the string, the number of characters read,\n"
+"  the number of octets actually consumed and the new state of the\n"
+"  external format."
+msgstr ""
+"Octetsway-otay-ingstray onvertscay anway arrayway ofway octetsway inway "
+"Octetsway otay away ingstray\n"
+"  accordingway otay ethay ecifiedspay Externalway-ormatfay.  Ethay arrayway "
+"ofway octetsway isway\n"
+"  oundedbay ybay Tartsay (efaultingday otway 0) andway Endway (efaultingday "
+"otay ethay endway ofway\n"
+"  ethay arrayway.  Ifway Ingstray isway otnay ivengay, away ewnay ingstray "
+"isway eatedcray.  Ifway\n"
+"  Ingstray isway ivengay, ethay onvertedcay octetsway areway toredsay inway "
+"Ingstray, tartingsay\n"
+"  atway S-Tartsay (efaultingday otay ethay 0) andway endingway atway S-"
+"Endway (efaultingday otay\n"
+"  ethay engthlay ofway Ingstray).  Ifway ethay ingstray isway otnay argelay "
+"enoughway otay oldhay\n"
+"  allway ofway aracterschay, enthay omesay octetsway illway otnay ebay "
+"onvertedcay.  Away Tatesay\n"
+"  aymay alsoway ebay ecifiedspay; isthay isway usedway asway ethay tatesay "
+"ofway ethay externalway\n"
+"  ormatfay.\n"
+"\n"
+"  Ourfay aluesvay areway eturnedray: ethay ingstray, ethay umbernay ofway "
+"aracterschay eadray,\n"
+"  ethay umbernay ofway octetsway actuallyway onsumedcay andway ethay ewnay "
+"tatesay ofway ethay\n"
+"  externalway ormatfay."
+
+#: target:code/extfmts.lisp
+msgid ""
+"Encode the given String using External-Format and return a new\n"
+"  string.  The characters of the new string are the octets of the\n"
+"  encoded result, with each octet converted to a character via\n"
+"  code-char.  This is the inverse to String-Decode"
+msgstr ""
+"Encodeway ethay ivengay Ingstray usingway Externalway-Ormatfay andway "
+"eturnray away ewnay\n"
+"  ingstray.  Ethay aracterschay ofway ethay ewnay ingstray areway ethay "
+"octetsway ofway ethay\n"
+"  encodedway esultray, ithway eachway octetway onvertedcay otay away "
+"aracterchay iavay\n"
+"  odecay-archay.  Isthay isway ethay inverseway otay Ingstray-Ecodeday"
+
+#: target:code/extfmts.lisp
+msgid ""
+"Decode String using the given External-Format and return the new\n"
+"  string.  The input string is treated as if it were an array of\n"
+"  octets, where the char-code of each character is the octet.  This is\n"
+"  the inverse of String-Encode."
+msgstr ""
+"Ecodeday Ingstray usingway ethay ivengay Externalway-Ormatfay andway "
+"eturnray ethay ewnay\n"
+"  ingstray.  Ethay inputway ingstray isway eatedtray asway ifway itway "
+"ereway anway arrayway ofway\n"
+"  octetsway, erewhay ethay archay-odecay ofway eachway aracterchay isway "
+"ethay octetway.  Isthay isway\n"
+"  ethay inverseway ofway Ingstray-Encodeway."
+
+#: target:code/extfmts.lisp
+msgid ""
+"Change the external format of the standard streams to Terminal.\n"
+"  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
+"  sys::*stderr*, which are normally the input and/or output streams\n"
+"  for *standard-input* and *standard-output*.  Also sets sys::*tty*\n"
+"  (normally *terminal-io* to the given external format.  If the\n"
+"  optional argument Filenames is gvien, then the filename encoding is\n"
+"  set to the specified format."
+msgstr ""
+"Angechay ethay externalway ormatfay ofway ethay tandardsay eamsstray otay "
+"Erminaltay.\n"
+"  Ethay tandardsay eamsstray areway yssay::*stdin*, yssay::*stdout*, andway\n"
+"  yssay::*stderr*, ichwhay areway ormallynay ethay inputway andway/orway "
+"outputway eamsstray\n"
+"  orfay *standard-input* andway *standard-output*.  Alsoway etssay yssay::"
+"*tty*\n"
+"  (ormallynay *terminal-io* otay ethay ivengay externalway ormatfay.  Ifway "
+"ethay\n"
+"  optionalway argumentway Ilenamesfay isway viengay, enthay ethay ilenamefay "
+"encodingway isway\n"
+"  etsay otay ethay ecifiedspay ormatfay."
+
+#: target:code/extfmts.lisp
+msgid "Can't find external-format ~S."
+msgstr "Ancay't indfay externalway-ormatfay ~S."
+
+#: target:code/extfmts.lisp
+msgid "Change it anyway."
+msgstr "Angechay itway anywayway."
+
+#: target:code/extfmts.lisp
+msgid "The external-format for encoding filenames is already set."
+msgstr ""
+"Ethay externalway-ormatfay orfay encodingway ilenamesfay isway alreadyway "
+"etsay."
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of available buffers.  Each buffer is an sap pointing to\n"
+"  bytes-per-buffer of memory."
+msgstr ""
+"Istlay ofway availableway uffersbay.  Eachway ufferbay isway anway apsay "
+"ointingpay otay\n"
+"  ytesbay-erpay-ufferbay ofway emorymay."
+
+#: target:code/fd-stream.lisp
+msgid "Number of bytes per buffer."
+msgstr "Umbernay ofway ytesbay erpay ufferbay."
+
+#: target:code/fd-stream.lisp
+msgid "The maximum supported byte size for a stream element-type."
+msgstr ""
+"Ethay aximummay upportedsay ytebay izesay orfay away eamstray elementway-"
+"ypetay."
+
+#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr "Imeouttay ~(~Away~)ingway ~S."
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available output routines. Each element is a list of the\n"
+"  element-type output, the kind of buffering, the function name, and the "
+"number\n"
+"  of bytes per element."
+msgstr ""
+"Istlay ofway allway availableway outputway outinesray. Eachway elementway "
+"isway away istlay ofway ethay\n"
+"  elementway-ypetay outputway, ethay indkay ofway ufferingbay, ethay "
+"unctionfay amenay, andway ethay umbernay\n"
+"  ofway ytesbay erpay elementway."
+
+#: target:code/fd-stream.lisp
+msgid "Write would have blocked, but SERVER told us to go."
+msgstr "Itewray ouldway avehay ockedblay, utbay SERVER oldtay usway otay ogay."
+
+#: target:code/fd-stream.lisp
+msgid "While writing ~S: ~A"
+msgstr "Ilewhay itingwray ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Output THING to stream.  THING can be any kind of vector or a sap.  If "
+"THING\n"
+"  is a SAP, END must be supplied (as length won't work)."
+msgstr ""
+"Outputway THING otay eamstray.  THING ancay ebay anyway indkay ofway "
+"ectorvay orway away apsay.  Ifway THING\n"
+"  isway away SAP, END ustmay ebay uppliedsay (asway engthlay onway't orkway)."
+
+#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr "Ustjay ogay onway asway ifway othingnay appenedhay..."
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr "~S alledcay ithway :END eforebay :START!"
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available input routines. Each element is a list of the\n"
+"  element-type input, the function name, and the number of bytes per element."
+msgstr ""
+"Istlay ofway allway availableway inputway outinesray. Eachway elementway "
+"isway away istlay ofway ethay\n"
+"  elementway-ypetay inputway, ethay unctionfay amenay, andway ethay umbernay "
+"ofway ytesbay erpay elementway."
+
+#: target:code/fd-stream.lisp
+msgid "Error reading ~S: ~A"
+msgstr "Errorway eadingray ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any input routine for ~S"
+msgstr "Ouldcay otnay indfay anyway inputway outineray orfay ~S"
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any output routine for ~S buffered ~S."
+msgstr ""
+"Ouldcay otnay indfay anyway outputway outineray orfay ~S ufferedbay ~S."
+
+#: target:code/fd-stream.lisp
+msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+msgstr ""
+"Elementway izessay orfay inputway (~S:~S) andway outputway (~S:~S) ifferday?"
+
+#: target:code/fd-stream.lisp
+msgid "Input type (~S) and output type (~S) are unrelated?"
+msgstr "Inputway ypetay (~S) andway outputway ypetay (~S) areway unrelatedway?"
+
+#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr "Ogay onway asway ifway othingnay adbay appenedhay."
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr "Ouldcay otnay estoreray ~S otay itsway originalway ontentscay: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr "~s isway otnay away eamstray associatedway ithway away ilefay."
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr "Errorway statingfay ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "Error lseek'ing ~S: ~A"
+msgstr "Errorway seeklay'ingway ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "Invalid position given to file-position: ~S"
+msgstr "Invalidway ositionpay ivengay otay ilefay-ositionpay: ~S"
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Create a stream for the given unix file descriptor.\n"
+"  If input is non-nil, allow input operations.\n"
+"  If output is non-nil, allow output operations.\n"
+"  If neither input nor output are specified, default to allowing input.\n"
+"  Element-type indicates the element type to use (as for open).\n"
+"  Buffering indicates the kind of buffering to use.\n"
+"  Timeout (if true) is the number of seconds to wait for input.  If NIL "
+"(the\n"
+"    default), then wait forever.  When we time out, we signal IO-TIMEOUT.\n"
+"  File is the name of the file (will be returned by PATHNAME).\n"
+"  Name is used to identify the stream when printed."
+msgstr ""
+"Eatecray away eamstray orfay ethay ivengay unixway ilefay escriptorday.\n"
+"  Ifway inputway isway onnay-ilnay, allowway inputway operationsway.\n"
+"  Ifway outputway isway onnay-ilnay, allowway outputway operationsway.\n"
+"  Ifway eithernay inputway ornay outputway areway ecifiedspay, efaultday "
+"otay allowingway inputway.\n"
+"  Elementway-ypetay indicatesway ethay elementway ypetay otay useway (asway "
+"orfay openway).\n"
+"  Ufferingbay indicatesway ethay indkay ofway ufferingbay otay useway.\n"
+"  Imeouttay (ifway uetray) isway ethay umbernay ofway econdssay otay aitway "
+"orfay inputway.  Ifway NIL (ethay\n"
+"    efaultday), enthay aitway oreverfay.  Enwhay eway imetay outway, eway "
+"ignalsay IO-TIMEOUT.\n"
+"  Ilefay isway ethay amenay ofway ethay ilefay (illway ebay eturnedray ybay "
+"PATHNAME).\n"
+"  Amenay isway usedway otay identifyway ethay eamstray enwhay intedpray."
+
+#: target:code/fd-stream.lisp
+msgid "File descriptor must be opened either for input or output."
+msgstr ""
+"Ilefay escriptorday ustmay ebay openedway eitherway orfay inputway orway "
+"outputway."
+
+#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr "** Osedclay ~Away~%"
+
+#: target:code/fd-stream.lisp
+msgid ""
+"This is a string that OPEN tacks on the end of a file namestring to produce\n"
+"   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
+"   this can be a function that takes a namestring and returns a complete\n"
+"   namestring."
+msgstr ""
+"Isthay isway away ingstray atthay OPEN ackstay onway ethay endway ofway away "
+"ilefay amestringnay otay oducepray\n"
+"   away amenay orfay ethay :ifway-existsway :enameray-andway-eleteday "
+"andway :enameray optionsway.  Alsoway,\n"
+"   isthay ancay ebay away unctionfay atthay akestay away amestringnay andway "
+"eturnsray away ompletecay\n"
+"   amestringnay."
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr "Enterway ewnay aluevay orfay ~*~S"
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr "~S isway invalidway orfay ~S. Ustmay ebay oneway ofway~{ ~S~}"
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr "Enterway ewnay aluevay orfay ~S: "
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr "Ytray otay enameray itway anywayway."
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr "Ilefay ~S isway otnay itablewray."
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr "Useway :SUPERSEDE insteadway."
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr "Ouldcay otnay enameray ~S otay ~S: ~Away."
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr "Annotcay openway ~S orfay outputway: Isway away irectoryday."
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr "Annotcay indfay ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "Return NIL."
+msgstr "Eturnray NIL."
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr "Errorway openingway ~S, ~Away."
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr "Errorway eatingcray ~S, athpay oesday otnay existway."
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr "Ytray againway."
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return a stream which reads from or writes to Filename.\n"
+"  Defined keywords:\n"
+"   :direction - one of :input, :output, :io, or :probe\n"
+"   :element-type - Type of object to read or write, default BASE-CHAR\n"
+"   :if-exists - one of :error, :new-version, :rename, :rename-and-delete,\n"
+"                       :overwrite, :append, :supersede or nil\n"
+"   :if-does-not-exist - one of :error, :create or nil\n"
+"   :external-format - an external format name\n"
+"  See the manual for details."
+msgstr ""
+"Eturnray away eamstray ichwhay eadsray omfray orway iteswray otay "
+"Ilenamefay.\n"
+"  Efinedday eywordskay:\n"
+"   :irectionday - oneway ofway :inputway, :outputway, :ioway, orway :"
+"obepray\n"
+"   :elementway-ypetay - Ypetay ofway objectway otay eadray orway itewray, "
+"efaultday BASE-CHAR\n"
+"   :ifway-existsway - oneway ofway :errorway, :ewnay-ersionvay, :enameray, :"
+"enameray-andway-eleteday,\n"
+"                       :overwriteway, :appendway, :upersedesay orway ilnay\n"
+"   :ifway-oesday-otnay-existway - oneway ofway :errorway, :eatecray orway "
+"ilnay\n"
+"   :externalway-ormatfay - anway externalway ormatfay amenay\n"
+"  Eesay ethay anualmay orfay etailsday."
+
+#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr "Oday itway anywayway."
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr "Ancay't eatecray implesay-eamsstray ithway anway elementway-ypetay."
+
+#: target:code/fd-stream.lisp
+msgid "Unable to open streams of class ~S."
+msgstr "Unableway otay openway eamsstray ofway assclay ~S."
+
+#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp
+#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp
+msgid "Odd-length property list in REMF."
+msgstr "Oddway-engthlay opertypray istlay inway REMF."
+
+#: target:code/fd-stream.lisp
+msgid ""
+"The stream connected to the controlling terminal or NIL if there is none."
+msgstr ""
+"Ethay eamstray onnectedcay otay ethay ontrollingcay erminaltay orway NIL "
+"ifway erethay isway onenay."
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard input (file descriptor 0)."
+msgstr ""
+"Ethay eamstray onnectedcay otay ethay tandardsay inputway (ilefay "
+"escriptorday 0)."
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard output (file descriptor 1)."
+msgstr ""
+"Ethay eamstray onnectedcay otay ethay tandardsay outputway (ilefay "
+"escriptorday 1)."
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard error output (file descriptor 2)."
+msgstr ""
+"Ethay eamstray onnectedcay otay ethay tandardsay errorway outputway (ilefay "
+"escriptorday 2)."
+
+#: target:code/fd-stream.lisp
+msgid "This is called in BEEP to feep the user.  It takes a stream."
+msgstr ""
+"Isthay isway alledcay inway BEEP otay eepfay ethay userway.  Itway akestay "
+"away eamstray."
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
+"   Object to Stream.  Non-trivial only in implementations that support\n"
+"   international character sets."
+msgstr ""
+"Eturnray ethay eltaday inway Eamstray's FILE-POSITION atthay ouldway ebay "
+"ausedcay ybay itingwray\n"
+"   Objectway otay Eamstray.  Onnay-ivialtray onlyway inway "
+"implementationsway atthay upportsay\n"
+"   internationalway aracterchay etssay."
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
+msgstr "Oadinglay implesay-eamsstray ouldshay edefineray isthay"
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
+msgstr "Onday't nowkay owhay otay etsay externalway-ormatfay orfay ~S."
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Setting external-format on Gray streams not supported."
+msgstr ""
+"Ettingsay externalway-ormatfay onway Aygray eamsstray otnay upportedsay."
+
+#: target:code/pathname.lisp
+msgid ""
+"When non-nil, attempt to load \"library:<host>.translations\" to resolve\n"
+"   an otherwise undefined logical host."
+msgstr ""
+"Enwhay onnay-ilnay, attemptway otay oadlay \"ibrarylay:<osthay>."
+"anslationstray\" otay esolveray\n"
+"   anway otherwiseway undefinedway ogicallay osthay."
+
+#: target:code/pathname.lisp
+msgid "A path specification, either a string, file-stream or pathname."
+msgstr ""
+"Away athpay ecificationspay, eitherway away ingstray, ilefay-eamstray orway "
+"athnamepay."
+
+#: target:code/pathname.lisp
+msgid "Convert thing (a pathname, string or stream) into a pathname."
+msgstr ""
+"Onvertcay ingthay (away athnamepay, ingstray orway eamstray) intoway away "
+"athnamepay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Construct a filled in pathname by completing the unspecified components\n"
+"   from the defaults."
+msgstr ""
+"Onstructcay away illedfay inway athnamepay ybay ompletingcay ethay "
+"unspecifiedway omponentscay\n"
+"   omfray ethay efaultsday."
+
+#: target:code/pathname.lisp
+msgid "~S is not allowed as a directory component."
+msgstr "~S isway otnay allowedway asway away irectoryday omponentcay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Makes a new pathname from the component arguments.  Note that host is\n"
+"a host-structure or string."
+msgstr ""
+"Akesmay away ewnay athnamepay omfray ethay omponentcay argumentsway.  Otenay "
+"atthay osthay isway\n"
+"away osthay-ucturestray orway ingstray."
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix ~A: ~S"
+msgstr "Illysay argumentway orfay away unixway ~Away: ~S"
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix PATHNAME-NAME: ~S"
+msgstr "Illysay argumentway orfay away unixway PATHNAME-NAME: ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Illegal pathname: ~\n"
+"                                Directory with ~S immediately followed by ~S"
+msgstr ""
+"Illegalway athnamepay: ~\n"
+"                                Irectoryday ithway ~S immediatelyway "
+"ollowedfay ybay ~S"
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's host."
+msgstr "Accessorway orfay ethay athnamepay's osthay."
+
+#: target:code/pathname.lisp
+msgid "Accessor for pathname's device."
+msgstr "Accessorway orfay athnamepay's eviceday."
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's directory list."
+msgstr "Accessorway orfay ethay athnamepay's irectoryday istlay."
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's name."
+msgstr "Accessorway orfay ethay athnamepay's amenay."
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's version."
+msgstr "Accessorway orfay ethay athnamepay's ersionvay."
+
+#: target:code/pathname.lisp
+msgid "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
+msgstr "Arsepay errorway inway amestringnay: ~?~%  ~Away~%  ~V@T^"
+
+#: target:code/pathname.lisp
+msgid ""
+"When Host arg is not supplied, Defaults arg must ~\n"
+"\t\t  have a non-null PATHNAME-HOST."
+msgstr ""
+"Enwhay Osthay argway isway otnay uppliedsay, Efaultsday argway ustmay ~\n"
+"\t\t  avehay away onnay-ullnay PATHNAME-HOST."
+
+#: target:code/pathname.lisp
+msgid ""
+"Host in namestring: ~S~@\n"
+"\t\t    does not match explicit host argument: ~S"
+msgstr ""
+"Osthay inway amestringnay: ~S~@\n"
+"\t\t    oesday otnay atchmay explicitway osthay argumentway: ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Converts pathname, a pathname designator, into a pathname structure,\n"
+"   for a physical pathname, returns the printed representation. Host may be\n"
+"   a physical host structure or host namestring."
+msgstr ""
+"Onvertscay athnamepay, away athnamepay esignatorday, intoway away athnamepay "
+"ucturestray,\n"
+"   orfay away ysicalphay athnamepay, eturnsray ethay intedpray "
+"epresentationray. Osthay aymay ebay\n"
+"   away ysicalphay osthay ucturestray orway osthay amestringnay."
+
+#: target:code/pathname.lisp
+msgid ""
+"A LIST representing a pathname host is not ~\n"
+"                              supported in this implementation:~%  ~S"
+msgstr ""
+"Away LIST epresentingray away athnamepay osthay isway otnay ~\n"
+"                              upportedsay inway isthay implementationway:~%  "
+"~S"
+
+#: target:code/pathname.lisp
+msgid "Hosts do not match: ~S and ~S."
+msgstr "Ostshay oday otnay atchmay: ~S andway ~S."
+
+#: target:code/pathname.lisp
+msgid "Can't figure out the file associated with stream:~%  ~S"
+msgstr ""
+"Ancay't igurefay outway ethay ilefay associatedway ithway eamstray:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid "Construct the full (name)string form of the pathname."
+msgstr ""
+"Onstructcay ethay ullfay (amenay)ingstray ormfay ofway ethay athnamepay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Cannot determine the namestring for pathnames with no ~\n"
+"\t\t  host:~%  ~S"
+msgstr ""
+"Annotcay etermineday ethay amestringnay orfay athnamespay ithway onay ~\n"
+"\t\t  osthay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the name of the host in the pathname."
+msgstr ""
+"Eturnsray away ingstray epresentationray ofway ethay amenay ofway ethay "
+"osthay inway ethay athnamepay."
+
+#: target:code/pathname.lisp
+msgid "Cannot determine the namestring for pathnames with no host:~%  ~S"
+msgstr ""
+"Annotcay etermineday ethay amestringnay orfay athnamespay ithway onay osthay:"
+"~%  ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the directories used in the pathname."
+msgstr ""
+"Eturnsray away ingstray epresentationray ofway ethay irectoriesday usedway "
+"inway ethay athnamepay."
+
+#: target:code/pathname.lisp
+msgid "Returns a string representation of the name used in the pathname."
+msgstr ""
+"Eturnsray away ingstray epresentationray ofway ethay amenay usedway inway "
+"ethay athnamepay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns an abbreviated pathname sufficent to identify the pathname relative\n"
+"   to the defaults."
+msgstr ""
+"Eturnsray anway abbreviatedway athnamepay ufficentsay otay identifyway ethay "
+"athnamepay elativeray\n"
+"   otay ethay efaultsday."
+
+#: target:code/pathname.lisp
+msgid "Predicate for determining whether pathname contains any wildcards."
+msgstr ""
+"Edicatepray orfay eterminingday etherwhay athnamepay ontainscay anyway "
+"ildcardsway."
+
+#: target:code/pathname.lisp
+msgid "Pathname matches the wildname template?"
+msgstr "Athnamepay atchesmay ethay ildnameway emplatetay?"
+
+#: target:code/pathname.lisp
+msgid ""
+"Not enough wildcards in FROM pattern to match ~\n"
+"\t\t       TO pattern:~%  ~S"
+msgstr ""
+"Otnay enoughway ildcardsway inway FROM atternpay otay atchmay ~\n"
+"\t\t       TO atternpay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Can't substitute this into the middle of a word:~\n"
+"\t\t\t  ~%  ~S"
+msgstr ""
+"Ancay't ubstitutesay isthay intoway ethay iddlemay ofway away ordway:~\n"
+"\t\t\t  ~%  ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n"
+"\t  did not match:~%  ~S ~S"
+msgstr ""
+"Athnamepay omponentscay omfray Ourcesay andway Omfray argsway otay TRANSLATE-"
+"PATHNAME~@\n"
+"\t  idday otnay atchmay:~%  ~S ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+":WILD-INFERIORS not paired in from and to ~\n"
+"\t\t\t   patterns:~%  ~S ~S"
+msgstr ""
+":WILD-INFERIORS otnay airedpay inway omfray andway otay ~\n"
+"\t\t\t   atternspay:~%  ~S ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Use the source pathname to translate the from-wildname's wild and\n"
+"   unspecified elements into a completed to-pathname based on the to-"
+"wildname."
+msgstr ""
+"Useway ethay ourcesay athnamepay otay anslatetray ethay omfray-ildnameway's "
+"ildway andway\n"
+"   unspecifiedway elementsway intoway away ompletedcay otay-athnamepay "
+"asedbay onway ethay otay-ildnamwaye."
+
+#: target:code/pathname.lisp
+msgid "~S doesn't match ~S"
+msgstr "~S oesnday't atchmay ~S"
+
+#: target:code/pathname.lisp
+msgid "Search-list ~a not defined."
+msgstr "Earchsay-istlay ~away otnay efinedday."
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the current definition for the search-list NAME.  Returns T if such\n"
+"   a definition existed, and NIL if not."
+msgstr ""
+"Earclay ethay urrentcay efinitionday orfay ethay earchsay-istlay NAME.  "
+"Eturnsray T ifway uchsay\n"
+"   away efinitionday existedway, andway NIL ifway otnay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the definition for all search-lists.  Only use this if you know\n"
+"   what you are doing."
+msgstr ""
+"Earclay ethay efinitionday orfay allway earchsay-istslay.  Onlyway useway "
+"isthay ifway ouyay nowkay\n"
+"   atwhay ouyay areway oingday."
+
+#: target:code/pathname.lisp
+msgid "~S doesn't start with a search-list."
+msgstr "~S oesnday't tartsay ithway away earchsay-istlay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Return the expansions for the search-list starting PATHNAME.  If PATHNAME\n"
+"   does not start with a search-list, then an error is signaled.  If\n"
+"   the search-list has not been defined yet, then an error is signaled.\n"
+"   The expansion for a search-list can be set with SETF."
+msgstr ""
+"Eturnray ethay expansionsway orfay ethay earchsay-istlay tartingsay "
+"PATHNAME.  Ifway PATHNAME\n"
+"   oesday otnay tartsay ithway away earchsay-istlay, enthay anway errorway "
+"isway ignaledsay.  Ifway\n"
+"   ethay earchsay-istlay ashay otnay eenbay efinedday etyay, enthay anway "
+"errorway isway ignaledsay.\n"
+"   Ethay expansionway orfay away earchsay-istlay ancay ebay etsay ithway "
+"SETF."
+
+#: target:code/pathname.lisp
+msgid "Search list ~S has not been defined yet."
+msgstr "Earchsay istlay ~S ashay otnay eenbay efinedday etyay."
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns T if the search-list starting PATHNAME is currently defined, and\n"
+"   NIL otherwise.  An error is signaled if PATHNAME does not start with a\n"
+"   search-list."
+msgstr ""
+"Eturnsray T ifway ethay earchsay-istlay tartingsay PATHNAME isway "
+"urrentlycay efinedday, andway\n"
+"   NIL otherwiseway.  Anway errorway isway ignaledsay ifway PATHNAME oesday "
+"otnay tartsay ithway away\n"
+"   earchsay-istlay."
+
+#: target:code/pathname.lisp
+msgid ""
+"That would result in a circularity:~%  ~\n"
+"\t\t     ~A~{ -> ~A~} -> ~A"
+msgstr ""
+"Atthay ouldway esultray inway away ircularitycay:~%  ~\n"
+"\t\t     ~Away~{ -> ~Away~} -> ~Away"
+
+#: target:code/pathname.lisp
+msgid ""
+"Search-lists cannot expand into pathnames that have ~\n"
+"\t\t       a name, type, or ~%version specified:~%  ~S"
+msgstr ""
+"Earchsay-istslay annotcay expandway intoway athnamespay atthay avehay ~\n"
+"\t\t       away amenay, ypetay, orway ~%ersionvay ecifiedspay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Execute BODY with VAR bound to each successive possible expansion for\n"
+"   PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a\n"
+"   search-list, then BODY is executed exactly once.  Everything is wrapped\n"
+"   in a block named NIL, so RETURN can be used to terminate early.  Note:\n"
+"   VAR is *not* bound inside of RESULT."
+msgstr ""
+"Executeway BODY ithway VAR oundbay otay eachway uccessivesay ossiblepay "
+"expansionway orfay\n"
+"   PATHNAME andway enthay eturnray RESULT.  Otenay: ifway PATHNAME oesday "
+"otnay ontaincay away\n"
+"   earchsay-istlay, enthay BODY isway executedway exactlyway onceway.  "
+"Everythingway isway appedwray\n"
+"   inway away ockblay amednay NIL, osay RETURN ancay ebay usedway otay "
+"erminatetay earlyway.  Otenay:\n"
+"   VAR isway *not* oundbay insideway ofway RESULT."
+
+#: target:code/pathname.lisp
+msgid "Undefined search list: ~A"
+msgstr "Undefinedway earchsay istlay: ~Away"
+
+#: target:code/pathname.lisp
+msgid ""
+"Logical namestring character ~\n"
+"\t\t\t     is not alphanumeric or hyphen:~%  ~S"
+msgstr ""
+"Ogicallay amestringnay aracterchay ~\n"
+"\t\t\t     isway otnay alphanumericway orway yphenhay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid "Logical host not yet defined: ~S"
+msgstr "Ogicallay osthay otnay etyay efinedday: ~S"
+
+#: target:code/pathname.lisp
+msgid ""
+"Double asterisk inside of logical ~\n"
+"\t\t\t\t     word: ~S"
+msgstr ""
+"Oubleday asteriskway insideway ofway ogicallay ~\n"
+"\t\t\t\t     ordway: ~S"
+
+#: target:code/pathname.lisp
+msgid "Illegal character for logical pathname:~%  ~S"
+msgstr "Illegalway aracterchay orfay ogicallay athnamepay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
+msgstr "Expectingway ~Away, otgay ~:[othingnay~;~:*~S~]."
+
+#: target:code/pathname.lisp
+msgid "a host name"
+msgstr "away osthay amenay"
+
+#: target:code/pathname.lisp
+msgid "a directory name"
+msgstr "away irectoryday amenay"
+
+#: target:code/pathname.lisp
+msgid "a file name"
+msgstr "away ilefay amenay"
+
+#: target:code/pathname.lisp
+msgid "Expecting a dot, got ~S."
+msgstr "Expectingway away otday, otgay ~S."
+
+#: target:code/pathname.lisp
+msgid "a file type"
+msgstr "away ilefay ypetay"
+
+#: target:code/pathname.lisp
+msgid "a positive integer, * or NEWEST"
+msgstr "away ositivepay integerway, * orway NEWEST"
+
+#: target:code/pathname.lisp
+msgid ""
+"Expected a positive integer, ~\n"
+"\t\t\t\t\t    got ~S"
+msgstr ""
+"Expectedway away ositivepay integerway, ~\n"
+"\t\t\t\t\t    otgay ~S"
+
+#: target:code/pathname.lisp
+msgid "Extra stuff after end of file name."
+msgstr "Extraway tuffsay afterway endway ofway ilefay amenay."
+
+#: target:code/pathname.lisp
+msgid "Converts the pathspec argument to a logical-pathname and returns it."
+msgstr ""
+"Onvertscay ethay athspecpay argumentway otay away ogicallay-athnamepay "
+"andway eturnsray itway."
+
+#: target:code/pathname.lisp
+msgid "Logical namestring does not specify a host:~%  ~S"
+msgstr "Ogicallay amestringnay oesday otnay ecifyspay away osthay:~%  ~S"
+
+#: target:code/filesys.lisp target:code/pathname.lisp
+msgid "Invalid directory component: ~S"
+msgstr "Invalidway irectoryday omponentcay: ~S"
+
+#: target:code/pathname.lisp
+msgid "Invalid keyword: ~S"
+msgstr "Invalidway eywordkay: ~S"
+
+#: target:code/pathname.lisp
+msgid "Logical pathname translation is not a two-list:~%  ~S"
+msgstr ""
+"Ogicallay athnamepay anslationtray isway otnay away wotay-istlay:~%  ~S"
+
+#: target:code/pathname.lisp
+msgid "Return the (logical) host object argument's list of translations."
+msgstr ""
+"Eturnray ethay (ogicallay) osthay objectway argumentway's istlay ofway "
+"anslationstray."
+
+#: target:code/pathname.lisp
+msgid ""
+"Set the translations list for the logical host argument.\n"
+"   Return translations."
+msgstr ""
+"Etsay ethay anslationstray istlay orfay ethay ogicallay osthay argumentway.\n"
+"   Eturnray anslationstray."
+
+#: target:code/pathname.lisp
+msgid "Clobber search-list host with logical pathname host"
+msgstr "Obberclay earchsay-istlay osthay ithway ogicallay athnamepay osthay"
+
+#: target:code/pathname.lisp
+msgid "~S names a CMUCL search-list"
+msgstr "~S amesnay away CMUCL earchsay-istlay"
+
+#: target:code/pathname.lisp
+msgid ""
+"Search for a logical pathname named host, if not already defined. If "
+"already\n"
+"   defined no attempt to find or load a definition is attempted and NIL is\n"
+"   returned. If host is not already defined, but definition is found and "
+"loaded\n"
+"   successfully, T is returned, else error."
+msgstr ""
+"Earchsay orfay away ogicallay athnamepay amednay osthay, ifway otnay "
+"alreadyway efinedday. Ifway alreadyway\n"
+"   efinedday onay attemptway otay indfay orway oadlay away efinitionday "
+"isway attemptedway andway NIL isway\n"
+"   eturnedray. Ifway osthay isway otnay alreadyway efinedday, utbay "
+"efinitionday isway oundfay andway oadedlay\n"
+"   uccessfullysay, T isway eturnedray, elseway errorway."
+
+#: target:code/pathname.lisp
+msgid ";; Loading pathname translations from ~A~%"
+msgstr ";; Oadinglay athnamepay anslationstray omfray ~Away~%"
+
+#: target:code/pathname.lisp
+msgid "Translates pathname to a physical pathname, which is returned."
+msgstr ""
+"Anslatestray athnamepay otay away ysicalphay athnamepay, ichwhay isway "
+"eturnedray."
+
+#: target:code/pathname.lisp
+msgid "No translation for ~S"
+msgstr "Onay anslationtray orfay ~S"
+
+#: target:code/filesys.lisp
+msgid ""
+"Remove any occurrences of \\ from the string because we've already\n"
+"   checked for whatever may have been backslashed."
+msgstr ""
+"Emoveray anyway occurrencesway ofway \\ omfray ethay ingstray ecausebay "
+"eway'evay alreadyway\n"
+"   eckedchay orfay ateverwhay aymay avehay eenbay ackslashedbay."
+
+#: target:code/filesys.lisp
+msgid "Backslash in bad place."
+msgstr "Ackslashbay inway adbay aceplay."
+
+#: target:code/filesys.lisp
+msgid ""
+"If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
+"  pathname namestrings.  They are also ignored when computing\n"
+"  namestrings for pathname objects.  Thus, *, ?, etc. are not\n"
+"  wildcards when parsing a namestring, and are not escaped when\n"
+"  printing pathnames."
+msgstr ""
+"Ifway onnay-NIL, Unixway ellshay-tylesay ildcardsway areway ignoredway "
+"enwhay arsingpay\n"
+"  athnamepay amestringsnay.  Eythay areway alsoway ignoredway enwhay "
+"omputingcay\n"
+"  amestringsnay orfay athnamepay objectsway.  Usthay, *, ?, etcway. areway "
+"otnay\n"
+"  ildcardsway enwhay arsingpay away amestringnay, andway areway otnay "
+"escapedway enwhay\n"
+"  intingpray athnamespay."
+
+#: target:code/filesys.lisp
+msgid "``['' with no corresponding ``]''"
+msgstr "``['' ithway onay orrespondingcay ``]''"
+
+#: target:code/filesys.lisp
+msgid "~A already names a logical host"
+msgstr "~Away alreadyway amesnay away ogicallay osthay"
+
+#: target:code/filesys.lisp
+msgid "Invalid pattern piece: ~S"
+msgstr "Invalidway atternpay iecepay: ~S"
+
+#: target:code/filesys.lisp
+msgid ":BACK cannot be represented in namestrings."
+msgstr ":BACK annotcay ebay epresentedray inway amestringsnay."
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname name: ~S"
+msgstr ""
+"Annotcay ecifyspay away irectoryday eparatorsay inway away athnamepay "
+"amenay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
+msgstr ""
+"Annotcay ecifyspay away otday inway away athnamepay amenay ithoutway away "
+"athnamepay ypetay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Invalid value for a pathname name: ~S"
+msgstr "Invalidway aluevay orfay away athnamepay amenay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot specify the type without a file: ~S"
+msgstr "Annotcay ecifyspay ethay ypetay ithoutway away ilefay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname type: ~S"
+msgstr ""
+"Annotcay ecifyspay away irectoryday eparatorsay inway away athnamepay "
+"ypetay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname type: ~S"
+msgstr "Annotcay ecifyspay away otday inway away athnamepay ypetay: ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a version without a file: ~S"
+msgstr "Annotcay ecifyspay away ersionvay ithoutway away ilefay: ~S"
+
+#: target:code/filesys.lisp
+msgid "~S cannot be represented relative to ~S"
+msgstr "~S annotcay ebay epresentedray elativeray otay ~S"
+
+#: target:code/filesys.lisp
+msgid "Cannot supply a type without a name:~%  ~S"
+msgstr "Annotcay upplysay away ypetay ithoutway away amenay:~%  ~S"
+
+#: target:code/filesys.lisp
+msgid ""
+"Convert PATHNAME into a string that can be used with UNIX system calls.\n"
+"   Search-lists and wild-cards are expanded. If optional argument\n"
+"   FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.\n"
+"   If optional argument EXECUTABLE-ONLY is true, NIL is returned\n"
+"   unless an executable version of PATHNAME exists."
+msgstr ""
+"Onvertcay PATHNAME intoway away ingstray atthay ancay ebay usedway ithway "
+"UNIX ystemsay allscay.\n"
+"   Earchsay-istslay andway ildway-ardscay areway expandedway. Ifway "
+"optionalway argumentway\n"
+"   FOR-INPUT isway uetray andway PATHNAME oesnday't existway, NIL isway "
+"eturnedray.\n"
+"   Ifway optionalway argumentway EXECUTABLE-ONLY isway uetray, NIL isway "
+"eturnedray\n"
+"   unlessway anway executableway ersionvay ofway PATHNAME existsway."
+
+#: target:code/filesys.lisp
+msgid "~S is ambiguous:~{~%  ~A~}"
+msgstr "~S isway ambiguousway:~{~%  ~Away~}"
+
+#: target:code/filesys.lisp
+msgid ""
+"Return the pathname for the actual file described by the pathname\n"
+"  An error of type file-error is signalled if no such file exists,\n"
+"  or the pathname is wild."
+msgstr ""
+"Eturnray ethay athnamepay orfay ethay actualway ilefay escribedday ybay "
+"ethay athnamepay\n"
+"  Anway errorway ofway ypetay ilefay-errorway isway ignalledsay ifway onay "
+"uchsay ilefay existsway,\n"
+"  orway ethay athnamepay isway ildway."
+
+#: target:code/filesys.lisp
+msgid "Bad place for a wild pathname."
+msgstr "Adbay aceplay orfay away ildway athnamepay."
+
+#: target:code/filesys.lisp
+msgid "The file ~S does not exist."
+msgstr "Ethay ilefay ~S oesday otnay existway."
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a pathname which is the truename of the file if it exists, NIL\n"
+"  otherwise. An error of type file-error is signalled if pathname is wild."
+msgstr ""
+"Eturnray away athnamepay ichwhay isway ethay uenametray ofway ethay ilefay "
+"ifway itway existsway, NIL\n"
+"  otherwiseway. Anway errorway ofway ypetay ilefay-errorway isway "
+"ignalledsay ifway athnamepay isway ildway."
+
+#: target:code/filesys.lisp
+msgid ""
+"Rename File to have the specified New-Name.  If file is a stream open to a\n"
+"  file, then the associated file is renamed."
+msgstr ""
+"Enameray Ilefay otay avehay ethay ecifiedspay Ewnay-Amenay.  Ifway ilefay "
+"isway away eamstray openway otay away\n"
+"  ilefay, enthay ethay associatedway ilefay isway enamedray."
+
+#: target:code/filesys.lisp
+msgid "~S can't be created."
+msgstr "~S ancay't ebay eatedcray."
+
+#: target:code/filesys.lisp
+msgid "Failed to rename ~A to ~A: ~A"
+msgstr "Ailedfay otay enameray ~Away otay ~Away: ~Away"
+
+#: target:code/filesys.lisp
+msgid "Delete the specified file."
+msgstr "Eleteday ethay ecifiedspay ilefay."
+
+#: target:code/filesys.lisp
+msgid "~S doesn't exist."
+msgstr "~S oesnday't existway."
+
+#: target:code/filesys.lisp
+msgid "Could not delete ~A: ~A."
+msgstr "Ouldcay otnay eleteday ~Away: ~Away."
+
+#: target:code/filesys.lisp
+msgid ""
+"Delete old versions of files matching the given Pathname,\n"
+"optionally keeping some of the most recent old versions."
+msgstr ""
+"Eleteday oldway ersionsvay ofway ilesfay atchingmay ethay ivengay "
+"Athnamepay,\n"
+"optionallyway eepingkay omesay ofway ethay ostmay ecentray oldway ersionsvay."
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the home directory of the logged in user as a pathname.\n"
+"  This is obtained from the logical name \"home:\"."
+msgstr ""
+"Eturnsray ethay omehay irectoryday ofway ethay oggedlay inway userway asway "
+"away athnamepay.\n"
+"  Isthay isway obtainedway omfray ethay ogicallay amenay \"omehay:\"."
+
+#: target:code/filesys.lisp
+msgid ""
+"Return file's creation date, or NIL if it doesn't exist.\n"
+" An error of type file-error is signalled if file is a wild pathname"
+msgstr ""
+"Eturnray ilefay's eationcray ateday, orway NIL ifway itway oesnday't "
+"existway.\n"
+" Anway errorway ofway ypetay ilefay-errorway isway ignalledsay ifway ilefay "
+"isway away ildway athnamepay"
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the file author as a string, or nil if the author cannot be\n"
+" determined.  Signals an error of type file-error if file doesn't exist,\n"
+" or file is a wild pathname."
+msgstr ""
+"Eturnsray ethay ilefay authorway asway away ingstray, orway ilnay ifway "
+"ethay authorway annotcay ebay\n"
+" eterminedday.  Ignalssay anway errorway ofway ypetay ilefay-errorway ifway "
+"ilefay oesnday't existway,\n"
+" orway ilefay isway away ildway athnamepay."
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns a list of pathnames, one for each file that matches the given\n"
+"   pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  "
+"This\n"
+"   never includes Unix dot and dot-dot in the result.  If :TRUENAMEP is "
+"NIL,\n"
+"   then symbolic links in the result are not expanded, which is not the\n"
+"   default because TRUENAME does follow links and the result pathnames are\n"
+"   defined to be the TRUENAME of the pathname (the truename of a link may "
+"well\n"
+"   be in another directory).  If FOLLOW-LINKS is NIL then symbolic links "
+"are\n"
+"   not followed."
+msgstr ""
+"Eturnsray away istlay ofway athnamespay, oneway orfay eachway ilefay atthay "
+"atchesmay ethay ivengay\n"
+"   athnamepay.  Upplyingsay :ALL asway ilnay ausescay isthay otay ignoreway "
+"Unixway otday ilesfay.  Isthay\n"
+"   evernay includesway Unixway otday andway otday-otday inway ethay "
+"esultray.  Ifway :TRUENAMEP isway NIL,\n"
+"   enthay ymbolicsay inkslay inway ethay esultray areway otnay expandedway, "
+"ichwhay isway otnay ethay\n"
+"   efaultday ecausebay TRUENAME oesday ollowfay inkslay andway ethay "
+"esultray athnamespay areway\n"
+"   efinedday otay ebay ethay TRUENAME ofway ethay athnamepay (ethay "
+"uenametray ofway away inklay aymay ellway\n"
+"   ebay inway anotherway irectoryday).  Ifway FOLLOW-LINKS isway NIL enthay "
+"ymbolicsay inkslay areway\n"
+"   otnay ollowedfay."
+
+#: target:code/filesys.lisp
+msgid ""
+"Like Directory, but prints a terse, multi-column directory listing\n"
+"   instead of returning a list of pathnames.  When :all is supplied and\n"
+"   non-nil, then Unix dot files are included too (as ls -a).  When :verbose\n"
+"   is supplied and non-nil, then a long listing of miscellaneous\n"
+"   information is output one file per line."
+msgstr ""
+"Ikelay Irectoryday, utbay intspray away ersetay, ultimay-olumncay "
+"irectoryday istinglay\n"
+"   insteadway ofway eturningray away istlay ofway athnamespay.  Enwhay :"
+"allway isway uppliedsay andway\n"
+"   onnay-ilnay, enthay Unixway otday ilesfay areway includedway ootay (asway "
+"slay -away).  Enwhay :erbosevay\n"
+"   isway uppliedsay andway onnay-ilnay, enthay away onglay istinglay ofway "
+"iscellaneousmay\n"
+"   informationway isway outputway oneway ilefay erpay inelay."
+
+#: target:code/filesys.lisp
+msgid "Directory of ~A:~%"
+msgstr "Irectoryday ofway ~Away:~%"
+
+#: target:code/filesys.lisp
+msgid "Couldn't stat ~A -- ~A.~%"
+msgstr "Ouldncay't tatsay ~Away -- ~Away.~%"
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a list of all files which are possible completions of Pathname.\n"
+"   We look in the directory specified by Defaults as well as looking down\n"
+"   the search list."
+msgstr ""
+"Eturnray away istlay ofway allway ilesfay ichwhay areway ossiblepay "
+"ompletionscay ofway Athnamepay.\n"
+"   Eway ooklay inway ethay irectoryday ecifiedspay ybay Efaultsday asway "
+"ellway asway ookinglay ownday\n"
+"   ethay earchsay istlay."
+
+#: target:code/filesys.lisp
+msgid ""
+"File-writable accepts a pathname and returns T if the current\n"
+"  process can write it, and NIL otherwise."
+msgstr ""
+"Ilefay-itablewray acceptsway away athnamepay andway eturnsray T ifway ethay "
+"urrentcay\n"
+"  ocesspray ancay itewray itway, andway NIL otherwiseway."
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the pathname for the default directory.  This is the place where\n"
+"  a file will be written if no directory is specified.  This may be changed\n"
+"  with setf."
+msgstr ""
+"Eturnsray ethay athnamepay orfay ethay efaultday irectoryday.  Isthay isway "
+"ethay aceplay erewhay\n"
+"  away ilefay illway ebay ittenwray ifway onay irectoryday isway "
+"ecifiedspay.  Isthay aymay ebay angedchay\n"
+"  ithway etfsay."
+
+#: target:code/filesys.lisp
+msgid ""
+"Tests whether the directories containing the specified file\n"
+"  actually exist, and attempts to create them if they do not.\n"
+"  Portable programs should avoid using the :MODE keyword argument."
+msgstr ""
+"Eststay etherwhay ethay irectoriesday ontainingcay ethay ecifiedspay ilefay\n"
+"  actuallyway existway, andway attemptsway otay eatecray emthay ifway eythay "
+"oday otnay.\n"
+"  Ortablepay ogramspray ouldshay avoidway usingway ethay :MODE eywordkay "
+"argumentway."
+
+#: target:code/filesys.lisp
+msgid "~&Creating directory: ~A~%"
+msgstr "~&Eatingcray irectoryday: ~Away~%"
+
+#: target:code/filesys.lisp
+msgid "Can't create directory ~A."
+msgstr "Ancay't eatecray irectoryday ~Away."
+
+#: target:code/load.lisp
+msgid "The default for the :IF-SOURCE-NEWER argument to load."
+msgstr "Ethay efaultday orfay ethay :IF-SOURCE-NEWER argumentway otay oadlay."
+
+#: target:code/load.lisp
+msgid "The source file types which LOAD recognizes."
+msgstr "Ethay ourcesay ilefay ypestay ichwhay LOAD ecognizesray."
+
+#: target:code/load.lisp
+msgid "A list of the object file types recognized by LOAD."
+msgstr ""
+"Away istlay ofway ethay objectway ilefay ypestay ecognizedray ybay LOAD."
+
+#: target:code/load.lisp
+msgid ""
+"A list of the object file types recognized by LOAD for logical pathnames."
+msgstr ""
+"Away istlay ofway ethay objectway ilefay ypestay ecognizedray ybay LOAD "
+"orfay ogicallay athnamespay."
+
+#: target:code/load.lisp
+msgid "The default for the :VERBOSE argument to Load."
+msgstr "Ethay efaultday orfay ethay :VERBOSE argumentway otay Oadlay."
+
+#: target:code/load.lisp
+msgid "The default for the :PRINT argument to Load."
+msgstr "Ethay efaultday orfay ethay :PRINT argumentway otay Oadlay."
+
+#: target:code/load.lisp
+msgid "The TRUENAME of the file that LOAD is currently loading."
+msgstr ""
+"Ethay TRUENAME ofway ethay ilefay atthay LOAD isway urrentlycay oadinglay."
+
+#: target:code/load.lisp
+msgid "The defaulted pathname that LOAD is currently loading."
+msgstr "Ethay efaultedday athnamepay atthay LOAD isway urrentlycay oadinglay."
+
+#: target:code/load.lisp
+msgid "Count of the number of recursive loads."
+msgstr "Ountcay ofway ethay umbernay ofway ecursiveray oadslay."
+
+#: target:code/load.lisp
+msgid ""
+"~A was compiled for fasl-file version ~X, ~\n"
+"                     but this is version ~X"
+msgstr ""
+"~Away asway ompiledcay orfay aslfay-ilefay ersionvay ~X, ~\n"
+"                     utbay isthay isway ersionvay ~X"
+
+#: target:code/load.lisp
+msgid "List of free fop tables for the fasloader."
+msgstr "Istlay ofway eefray opfay ablestay orfay ethay asloaderfay."
+
+#: target:code/load.lisp
+msgid "The fop stack (we only need one!)."
+msgstr "Ethay opfay tacksay (eway onlyway eednay oneway!)."
+
+#: target:code/load.lisp
+msgid "Vector indexed by a FaslOP that yields the FOP's name."
+msgstr ""
+"Ectorvay indexedway ybay away Aslopfay atthay ieldsyay ethay FOP's amenay."
+
+#: target:code/load.lisp
+msgid "Losing FOP!"
+msgstr "Osinglay FOP!"
+
+#: target:code/load.lisp
+msgid ""
+"Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
+"  will perform the operation."
+msgstr ""
+"Ectorvay indexedway ybay away Aslopfay atthay ieldsyay away unctionfay ofway "
+"0 argumentsway ichwhay\n"
+"  illway erformpay ethay operationway."
+
+#: target:code/load.lisp
+msgid "Loading ~S.~%"
+msgstr "Oadinglay ~S.~%"
+
+#: target:code/load.lisp
+msgid "Loading stuff from ~S.~%"
+msgstr "Oadinglay tuffsay omfray ~S.~%"
+
+#: target:code/load.lisp
+msgid "Attempt to load an empty FASL FILE:~%  ~S"
+msgstr "Attemptway otay oadlay anway emptyway FASL FILE:~%  ~S"
+
+#: target:code/load.lisp
+msgid "Bad FASL file format."
+msgstr "Adbay FASL ilefay ormatfay."
+
+#: target:code/load.lisp
+msgid ""
+"Loads the file named by Filename into the Lisp environment.  The file type\n"
+"   (a.k.a extension) is defaulted if missing.  These options are defined:\n"
+"\n"
+"   :IF-SOURCE-NEWER <keyword>\n"
+"\tIf the file type is not specified, and both source and object files\n"
+"        exist, then this argument controls which is loaded:\n"
+"\t    :LOAD-OBJECT - load object file (default),\n"
+"\t    :LOAD-SOURCE - load the source file,\n"
+"\t    :COMPILE - compile the source and then load the object file, or\n"
+"\t    :QUERY - ask the user which to load.\n"
+"\n"
+"   :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+"       If :ERROR (the default), signal an error if the file can't be "
+"located.\n"
+"       If NIL, simply return NIL (LOAD normally returns T.)\n"
+"\n"
+"   :VERBOSE {T | NIL}\n"
+"       If true (the default), print a line describing each file loaded.\n"
+"\n"
+"   :PRINT {T | NIL}\n"
+"       If true, print information about loaded values.  When loading the\n"
+"       source, the result of evaluating each top-level form is printed.\n"
+"\n"
+"   :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+"       Forces the input to be interpreted as a source or object file, "
+"instead\n"
+"       of guessing based on the file type.  This also inhibits file type\n"
+"       defaulting.  Probably only necessary if you have source files with a\n"
+"       \"fasl\" type. \n"
+"\n"
+"   The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-"
+"NEWER*\n"
+"   determine the defaults for the corresponding keyword arguments.  These\n"
+"   variables are also bound to the specified argument values, so specifying "
+"a\n"
+"   keyword affects nested loads.  The variables EXT:*LOAD-SOURCE-TYPES*,\n"
+"   EXT:*LOAD-OBJECT-TYPES*, and EXT:*LOAD-LP-OBJECT-TYPES* determine the "
+"file\n"
+"   types that we use for defaulting when none is specified."
+msgstr ""
+"Oadslay ethay ilefay amednay ybay Ilenamefay intoway ethay Isplay "
+"environmentway.  Ethay ilefay ypetay\n"
+"   (away.k.away extensionway) isway efaultedday ifway issingmay.  Esethay "
+"optionsway areway efinedday:\n"
+"\n"
+"   :IF-SOURCE-NEWER <eywordkay>\n"
+"\tIfway ethay ilefay ypetay isway otnay ecifiedspay, andway othbay ourcesay "
+"andway objectway ilesfay\n"
+"        existway, enthay isthay argumentway ontrolscay ichwhay isway "
+"oadedlay:\n"
+"\t    :LOAD-OBJECT - oadlay objectway ilefay (efaultday),\n"
+"\t    :LOAD-SOURCE - oadlay ethay ourcesay ilefay,\n"
+"\t    :COMPILE - ompilecay ethay ourcesay andway enthay oadlay ethay "
+"objectway ilefay, orway\n"
+"\t    :QUERY - askway ethay userway ichwhay otay oadlay.\n"
+"\n"
+"   :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+"       Ifway :ERROR (ethay efaultday), ignalsay anway errorway ifway ethay "
+"ilefay ancay't ebay ocatedlay.\n"
+"       Ifway NIL, implysay eturnray NIL (LOAD ormallynay eturnsray T.)\n"
+"\n"
+"   :VERBOSE {T | NIL}\n"
+"       Ifway uetray (ethay efaultday), intpray away inelay escribingday "
+"eachway ilefay oadedlay.\n"
+"\n"
+"   :PRINT {T | NIL}\n"
+"       Ifway uetray, intpray informationway aboutway oadedlay aluesvay.  "
+"Enwhay oadinglay ethay\n"
+"       ourcesay, ethay esultray ofway evaluatingway eachway optay-evellay "
+"ormfay isway intedpray.\n"
+"\n"
+"   :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+"       Orcesfay ethay inputway otay ebay interpretedway asway away ourcesay "
+"orway objectway ilefay, insteadway\n"
+"       ofway uessinggay asedbay onway ethay ilefay ypetay.  Isthay alsoway "
+"inhibitsway ilefay ypetay\n"
+"       efaultingday.  Obablypray onlyway ecessarynay ifway ouyay avehay "
+"ourcesay ilesfay ithway away\n"
+"       \"aslfay\" ypetay. \n"
+"\n"
+"   Ethay ariablesvay *LOAD-VERBOSE*, *LOAD-PRINT* andway EXT:load-if-source-"
+"newer*ay*\n"
+"   etermineday ethay efaultsday orfay ethay orrespondingcay eywordkay "
+"argumentsway.  Esethay\n"
+"   ariablesvay areway alsoway oundbay otay ethay ecifiedspay argumentway "
+"aluesvay, osay ecifyingspay away\n"
+"   eywordkay affectsway estednay oadslay.  Ethay ariablesvay EXT:*LOAD-"
+"SOURCE-TYPES*,\n"
+"   EXT:*LOAD-OBJECT-TYPES*, andway EXT:*LOAD-LP-OBJECT-TYPES* etermineday "
+"ethay ilefay\n"
+"   ypestay atthay eway useway orfay efaultingday enwhay onenay isway "
+"ecifiedspay."
+
+#: target:code/load.lisp
+msgid "Return NIL from load of ~S."
+msgstr "Eturnray NIL omfray oadlay ofway ~S."
+
+#: target:code/load.lisp
+msgid "~S does not exist."
+msgstr "~S oesday otnay existway."
+
+#: target:code/load.lisp
+msgid "See if it exists now."
+msgstr "Eesay ifway itway existsway ownay."
+
+#: target:code/load.lisp
+msgid "Prompt for a new name."
+msgstr "Omptpray orfay away ewnay amenay."
+
+#: target:code/load.lisp
+msgid "New name: "
+msgstr "Ewnay amenay: "
+
+#: target:code/load.lisp
+msgid "Load it as a source file."
+msgstr "Oadlay itway asway away ourcesay ilefay."
+
+#: target:code/load.lisp
+msgid "File has a fasl file type, but no fasl file header:~%  ~S"
+msgstr ""
+"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:~"
+"%  ~S"
+
+#: target:code/load.lisp
+msgid ""
+"Loading object file ~A,~@\n"
+"\t\t  which is older than the presumed source:~%  ~A."
+msgstr ""
+"Oadinglay objectway ilefay ~Away,~@\n"
+"\t\t  ichwhay isway olderway anthay ethay esumedpray ourcesay:~%  ~Away."
+
+#: target:code/load.lisp
+msgid ""
+"Loading source file ~A,~@\n"
+"\t\t  which is newer than the presumed object file:~%  ~A."
+msgstr ""
+"Oadinglay ourcesay ilefay ~Away,~@\n"
+"\t\t  ichwhay isway ewernay anthay ethay esumedpray objectway ilefay:~%  "
+"~Away."
+
+#: target:code/load.lisp
+msgid "Compile of source failed, cannot load object."
+msgstr "Ompilecay ofway ourcesay ailedfay, annotcay oadlay objectway."
+
+#: target:code/load.lisp
+msgid ""
+"Object file ~A is~@\n"
+"\t\t       older than the presumed source:~%  ~A."
+msgstr ""
+"Objectway ilefay ~Away isway~@\n"
+"\t\t       olderway anthay ethay esumedpray ourcesay:~%  ~Away."
+
+#: target:code/load.lisp
+msgid "load source file"
+msgstr "oadlay ourcesay ilefay"
+
+#: target:code/load.lisp
+msgid "load object file"
+msgstr "oadlay objectway ilefay"
+
+#: target:code/load.lisp
+msgid "Fop-End-Header was executed???"
+msgstr "Opfay-Endway-Eaderhay asway executedway???"
+
+#: target:code/load.lisp
+msgid "Fasl table of improper size.  Bug!"
+msgstr "Aslfay abletay ofway improperway izesay.  Ugbay!"
+
+#: target:code/load.lisp
+msgid "Fasl stack not empty.  Bug!"
+msgstr "Aslfay tacksay otnay emptyway.  Ugbay!"
+
+#: target:code/load.lisp
+msgid "The package ~S does not exist."
+msgstr "Ethay ackagepay ~S oesday otnay existway."
+
+#: target:code/load.lisp
+msgid "Losing i-vector element size: ~S"
+msgstr "Osinglay i-ectorvay elementway izesay: ~S"
+
+#: target:code/load.lisp
+msgid "Load ~A anyway"
+msgstr "Oadlay ~Away anywayway"
+
+#: target:code/load.lisp
+msgid "~A was compiled for a ~A, but this is a ~A"
+msgstr "~Away asway ompiledcay orfay away ~Away, utbay isthay isway away ~Away"
+
+#: target:compiler/dfo.lisp target:code/load.lisp
+msgid "Top-Level Form"
+msgstr "Optay-Evellay Ormfay"
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unaligned function object, offset = #x~X."
+msgstr "Unalignedway unctionfay objectway, offsetway = #x~X."
+
+#: target:code/load.lisp
+msgid "~S defined~%"
+msgstr "~S efinedday~%"
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr "Unknownway oreignfay ymbolsay: ~S"
+
+#: target:code/load.lisp
+msgid "Cannot load assembler code."
+msgstr "Annotcay oadlay assemblerway odecay."
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Undefined assembler routine: ~S"
+msgstr "Undefinedway assemblerway outineray: ~S"
+
+#: target:code/foreign-linkage.lisp
+msgid "~A is not defined as a foreign symbol"
+msgstr "~Away isway otnay efinedday asway away oreignfay ymbolsay"
+
+#: target:code/module.lisp
+msgid ""
+"This is a list of module names that have been loaded into Lisp so far.\n"
+"   It is used by PROVIDE and REQUIRE."
+msgstr ""
+"Isthay isway away istlay ofway odulemay amesnay atthay avehay eenbay "
+"oadedlay intoway Isplay osay arfay.\n"
+"   Itway isway usedway ybay PROVIDE andway REQUIRE."
+
+#: target:code/module.lisp
+msgid "*load-verbose* is bound to this before loading files."
+msgstr "*load-verbose* isway oundbay otay isthay eforebay oadinglay ilesfay."
+
+#: target:code/module.lisp
+msgid "See function documentation for REQUIRE"
+msgstr "Eesay unctionfay ocumentationday orfay REQUIRE"
+
+#: target:code/module.lisp
+msgid ""
+"Defines a module by registering the files that need to be loaded when\n"
+"   the module is required.  If name is a symbol, its print name is used\n"
+"   after downcasing it."
+msgstr ""
+"Efinesday away odulemay ybay egisteringray ethay ilesfay atthay eednay otay "
+"ebay oadedlay enwhay\n"
+"   ethay odulemay isway equiredray.  Ifway amenay isway away ymbolsay, "
+"itsway intpray amenay isway usedway\n"
+"   afterway owncasingday itway."
+
+#: target:code/module.lisp
+msgid ""
+"Adds a new module name to *modules* indicating that it has been loaded.\n"
+"   Module-name may be any valid string designator.  All comparisons are\n"
+"   done using string=, i.e. module names are case-sensitive."
+msgstr ""
+"Addsway away ewnay odulemay amenay otay *modules* indicatingway atthay itway "
+"ashay eenbay oadedlay.\n"
+"   Odulemay-amenay aymay ebay anyway alidvay ingstray esignatorday.  Allway "
+"omparisonscay areway\n"
+"   oneday usingway ingstray=, i.e. odulemay amesnay areway asecay-"
+"ensitivesay."
+
+#: target:code/module.lisp
+msgid ""
+"Loads a module when it has not been already.  Pathname, if supplied,\n"
+"   is a single pathname or list of pathnames to be loaded if the module\n"
+"   needs to be.  If pathname is not supplied, then functions from the list\n"
+"   *MODULE-PROVIDER-FUNCTIONS* are called in order with the stringified\n"
+"   MODULE-NAME as the argument, until one of them returns non-NIL.  By\n"
+"   default the functions MODULE-PROVIDE-CMUCL-DEFMODULE and MODULE-PROVIDE-\n"
+"   CMUCL-LIBRARY are on this list of functions, in that order.  The first\n"
+"   of those looks for a list of files that was registered by a EXT:"
+"DEFMODULE\n"
+"   form.  If the module has not been defined, then the second function\n"
+"   causes a file to be loaded whose name is formed by merging \"modules:\"\n"
+"   and the concatenation of module-name with the suffix \"-LIBRARY\".\n"
+"   Note that both the module-name and the suffix are each, separately,\n"
+"   converted from :case :common to :case :local.  This merged name will be\n"
+"   probed with both a .lisp and .fasl extensions, calling LOAD if it "
+"exists.\n"
+"\n"
+"   Note that in all cases covered above, user code is responsible for\n"
+"   calling PROVIDE to indicate a successful load of the module.\n"
+"\n"
+"   While loading any files, *load-verbose* is bound to *require-verbose*\n"
+"   which defaults to t."
+msgstr ""
+"Oadslay away odulemay enwhay itway ashay otnay eenbay alreadyway.  "
+"Athnamepay, ifway uppliedsay,\n"
+"   isway away inglesay athnamepay orway istlay ofway athnamespay otay ebay "
+"oadedlay ifway ethay odulemay\n"
+"   eedsnay otay ebay.  Ifway athnamepay isway otnay uppliedsay, enthay "
+"unctionsfay omfray ethay istlay\n"
+"   *MODULE-PROVIDER-FUNCTIONS* areway alledcay inway orderway ithway ethay "
+"ingifiedstray\n"
+"   MODULE-NAME asway ethay argumentway, untilway oneway ofway emthay "
+"eturnsray onnay-NIL.  Ybay\n"
+"   efaultday ethay unctionsfay MODULE-PROVIDE-CMUCL-DEFMODULE andway MODULE-"
+"PROVIDE-\n"
+"   CMUCL-LIBRARY areway onway isthay istlay ofway unctionsfay, inway atthay "
+"orderway.  Ethay irstfay\n"
+"   ofway osethay ookslay orfay away istlay ofway ilesfay atthay asway "
+"egisteredray ybay away EXT:DEFMODULE\n"
+"   ormfay.  Ifway ethay odulemay ashay otnay eenbay efinedday, enthay ethay "
+"econdsay unctionfay\n"
+"   ausescay away ilefay otay ebay oadedlay osewhay amenay isway ormedfay "
+"ybay ergingmay \"odulesmay:\"\n"
+"   andway ethay oncatenationcay ofway odulemay-amenay ithway ethay uffixsay "
+"\"-LIBRARY\".\n"
+"   Otenay atthay othbay ethay odulemay-amenay andway ethay uffixsay areway "
+"eachway, eparatelysay,\n"
+"   onvertedcay omfray :asecay :ommoncay otay :asecay :ocallay.  Isthay "
+"ergedmay amenay illway ebay\n"
+"   obedpray ithway othbay away .isplay andway .aslfay extensionsway, "
+"allingcay LOAD ifway itway existsway.\n"
+"\n"
+"   Otenay atthay inway allway asescay overedcay aboveway, userway odecay "
+"isway esponsibleray orfay\n"
+"   allingcay PROVIDE otay indicateway away uccessfulsay oadlay ofway ethay "
+"odulemay.\n"
+"\n"
+"   Ilewhay oadinglay anyway ilesfay, *load-verbose* isway oundbay otay "
+"*require-verbose*\n"
+"   ichwhay efaultsday otay t."
+
+#: target:code/module.lisp
+msgid "Don't know how to load ~A"
+msgstr "Onday't nowkay owhay otay oadlay ~Away"
+
+#: target:code/module.lisp
+msgid "Coerce a string designator to a module name."
+msgstr "Oercecay away ingstray esignatorday otay away odulemay amenay."
+
+#: target:code/module.lisp
+msgid ""
+"Derive a default pathname to try to load for an undefined module\n"
+"named module-name.  The default pathname is constructed from the\n"
+"module-name by appending the suffix \"-LIBRARY\" to it, and merging\n"
+"with \"modules:\".  Note that both the module-name and the suffix are\n"
+"each, separately, converted from :case :common to :case :local."
+msgstr ""
+"Eriveday away efaultday athnamepay otay ytray otay oadlay orfay anway "
+"undefinedway odulemay\n"
+"amednay odulemay-amenay.  Ethay efaultday athnamepay isway onstructedcay "
+"omfray ethay\n"
+"odulemay-amenay ybay appendingway ethay uffixsay \"-LIBRARY\" otay itway, "
+"andway ergingmay\n"
+"ithway \"odulesmay:\".  Otenay atthay othbay ethay odulemay-amenay andway "
+"ethay uffixsay areway\n"
+"eachway, eparatelysay, onvertedcay omfray :asecay :ommoncay otay :asecay :"
+"ocallay."
+
+#: target:code/eval.lisp
+msgid ""
+"Keywords that you can put in a lambda-list, supposing you should want\n"
+"  to do such a thing."
+msgstr ""
+"Eywordskay atthay ouyay ancay utpay inway away ambdalay-istlay, upposingsay "
+"ouyay ouldshay antway\n"
+"  otay oday uchsay away ingthay."
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of arguments which may be passed\n"
+"  to a function, including rest args."
+msgstr ""
+"Ethay exclusiveway upperway oundbay onway ethay umbernay ofway argumentsway "
+"ichwhay aymay ebay assedpay\n"
+"  otay away unctionfay, includingway estray argsway."
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of parameters which may be specifed\n"
+"  in a given lambda list.  This is actually the limit on required and "
+"optional\n"
+"  parameters.  With &key and &aux you can get more."
+msgstr ""
+"Ethay exclusiveway upperway oundbay onway ethay umbernay ofway arameterspay "
+"ichwhay aymay ebay ecifedspay\n"
+"  inway away ivengay ambdalay istlay.  Isthay isway actuallyway ethay "
+"imitlay onway equiredray andway optionalway\n"
+"  arameterspay.  Ithway &eykay andway &auxway ouyay ancay etgay oremay."
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of multiple-values that you can\n"
+"  have."
+msgstr ""
+"Ethay exclusiveway upperway oundbay onway ethay umbernay ofway ultiplemay-"
+"aluesvay atthay ouyay ancay\n"
+"  avehay."
+
+#: target:code/eval.lisp
+msgid ""
+"This variable controls whether assignments to unknown variables at top-"
+"level\n"
+"   (or in any other call to EVAL of SETQ) will implicitly declare the "
+"variable\n"
+"   SPECIAL.  These values are meaningful:\n"
+"     :WARN  -- Print a warning, but declare the variable special (the "
+"default.)\n"
+"      T     -- Quietly declare the variable special.\n"
+"      NIL   -- Never declare the variable, giving warnings on each use."
+msgstr ""
+"Isthay ariablevay ontrolscay etherwhay assignmentsway otay unknownway "
+"ariablesvay atway optay-evellay\n"
+"   (orway inway anyway otherway allcay otay EVAL ofway SETQ) illway "
+"implicitlyway eclareday ethay ariablevay\n"
+"   SPECIAL.  Esethay aluesvay areway eaningfulmay:\n"
+"     :WARN  -- Intpray away arningway, utbay eclareday ethay ariablevay "
+"ecialspay (ethay efaultday.)\n"
+"      T     -- Ietlyquay eclareday ethay ariablevay ecialspay.\n"
+"      NIL   -- Evernay eclareday ethay ariablevay, ivinggay arningsway onway "
+"eachway useway."
+
+#: target:code/eval.lisp
+msgid ""
+"Evaluates its single arg in a null lexical environment, returns the\n"
+"  result or results."
+msgstr ""
+"Evaluatesway itsway inglesay argway inway away ullnay exicallay "
+"environmentway, eturnsray ethay\n"
+"  esultray orway esultsray."
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to FUNCTION:~% ~S."
+msgstr "Ongwray umbernay ofway argsway otay FUNCTION:~% ~S."
+
+#: target:code/eval.lisp
+msgid "~S is a macro."
+msgstr "~S isway away acromay."
+
+#: target:code/eval.lisp
+msgid "~S is a special operator."
+msgstr "~S isway away ecialspay operatorway."
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to QUOTE:~% ~S."
+msgstr "Ongwray umbernay ofway argsway otay QUOTE:~% ~S."
+
+#: target:code/eval.lisp
+msgid "Odd number of args to SETQ:~% ~S."
+msgstr "Oddway umbernay ofway argsway otay SETQ:~% ~S."
+
+#: target:code/eval.lisp
+msgid "Declaring ~S special."
+msgstr "Eclaringday ~S ecialspay."
+
+#: target:compiler/ir1tran.lisp target:code/eval.lisp
+msgid "Bad Eval-When situation list: ~S."
+msgstr "Adbay Evalway-Enwhay ituationsay istlay: ~S."
+
+#: target:code/eval.lisp
+msgid ""
+"Attempt to evaluation a complex expression:~%     ~S~@\n"
+"\t  This expression must be compiled, but the compiler is not loaded."
+msgstr ""
+"Attemptway otay evaluationway away omplexcay expressionway:~%     ~S~@\n"
+"\t  Isthay expressionway ustmay ebay ompiledcay, utbay ethay ompilercay "
+"isway otnay oadedlay."
+
+#: target:code/eval.lisp
+msgid ""
+"EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n"
+"\t  ~%     ~S~%"
+msgstr ""
+"EVAL alledcay onway #'(ambdalay (x) ...) enwhay ethay ompilercay isnway't "
+"oadedlay:~\n"
+"\t  ~%     ~S~%"
+
+#: target:code/eval.lisp
+msgid ""
+"Given a function, return three values:\n"
+"   1] A lambda expression that could be used to define the function, or NIL "
+"if\n"
+"      the definition isn't available.\n"
+"   2] NIL if the function was definitely defined in a null lexical "
+"environment,\n"
+"      and T otherwise.\n"
+"   3] Some object that \"names\" the function.  Although this is allowed to "
+"be\n"
+"      any object, CMU CL always returns a valid function name or a string."
+msgstr ""
+"Ivengay away unctionfay, eturnray reethay aluesvay:\n"
+"   1] Away ambdalay expressionway atthay ouldcay ebay usedway otay efineday "
+"ethay unctionfay, orway NIL ifway\n"
+"      ethay efinitionday isnway't availableway.\n"
+"   2] NIL ifway ethay unctionfay asway efinitelyday efinedday inway away "
+"ullnay exicallay environmewaytnay,\n"
+"      andway T otherwiseway.\n"
+"   3] Omesay objectway atthay \"amesnay\" ethay unctionfay.  Althoughway "
+"isthay isway allowedway otay ebay\n"
+"      anyway objectway, CMU CL alwaysway eturnsray away alidvay unctionfay "
+"amenay orway away ingstray."
+
+#: target:code/eval.lisp
+msgid "If the symbol globally names a special form, returns T, otherwise NIL."
+msgstr ""
+"Ifway ethay ymbolsay oballyglay amesnay away ecialspay ormfay, eturnsray T, "
+"otherwiseway NIL."
+
+#: target:code/eval.lisp
+msgid ""
+"The value of this variable must be a function that can take three\n"
+"  arguments, a macro expander function, the macro form to be expanded,\n"
+"  and the lexical environment to expand in.  The function should\n"
+"  return the expanded form.  This function is called by MACROEXPAND-1\n"
+"  whenever a runtime expansion is needed.  Initially this is set to\n"
+"  FUNCALL."
+msgstr ""
+"Ethay aluevay ofway isthay ariablevay ustmay ebay away unctionfay atthay "
+"ancay aketay reethay\n"
+"  argumentsway, away acromay expanderway unctionfay, ethay acromay ormfay "
+"otay ebay expandedway,\n"
+"  andway ethay exicallay environmentway otay expandway inway.  Ethay "
+"unctionfay ouldshay\n"
+"  eturnray ethay expandedway ormfay.  Isthay unctionfay isway alledcay ybay "
+"MACROEXPAND-1\n"
+"  eneverwhay away untimeray expansionway isway eedednay.  Initiallyway "
+"isthay isway etsay otay\n"
+"  FUNCALL."
+
+#: target:code/eval.lisp
+msgid ""
+"Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n"
+"   a function."
+msgstr ""
+"Invokeway *MACROEXPAND-HOOK* onway FUN, FORM, andway ENV afterway oercingcay "
+"itway otay\n"
+"   away unctionfay."
+
+#: target:code/eval.lisp
+msgid ""
+"If SYMBOL names a macro in ENV, returns the expansion function,\n"
+"   else returns NIL.  If ENV is unspecified or NIL, use the global\n"
+"   environment only."
+msgstr ""
+"Ifway SYMBOL amesnay away acromay inway ENV, eturnsray ethay expansionway "
+"unctionfay,\n"
+"   elseway eturnsray NIL.  Ifway ENV isway unspecifiedway orway NIL, useway "
+"ethay obalglay\n"
+"   environmentway onlyway."
+
+#: target:code/eval.lisp
+msgid "~S names a special form."
+msgstr "~S amesnay away ecialspay ormfay."
+
+#: target:code/eval.lisp
+msgid "Cannot funcall macro functions."
+msgstr "Annotcay uncallfay acromay unctionsfay."
+
+#: target:code/eval.lisp
+msgid ""
+"If form is a macro (or symbol macro), expands it once.  Returns two values,\n"
+"   the expanded form and a T-or-NIL flag indicating whether the form was, "
+"in\n"
+"   fact, a macro.  Env is the lexical environment to expand in, which "
+"defaults\n"
+"   to the null environment."
+msgstr ""
+"Ifway ormfay isway away acromay (orway ymbolsay acromay), expandsway itway "
+"onceway.  Eturnsray wotay aluesvay,\n"
+"   ethay expandedway ormfay andway away T-orway-NIL agflay indicatingway "
+"etherwhay ethay ormfay asway, inway\n"
+"   actfay, away acromay.  Envway isway ethay exicallay environmentway otay "
+"expandway inway, ichwhay efaultsday\n"
+"   otay ethay ullnay environmentway."
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n"
+"   Returns the final resultant form, and T if it was expanded.  ENV is the\n"
+"   lexical environment to expand in, or NIL (the default) for the null\n"
+"   environment."
+msgstr ""
+"Epetitivelyray allcay MACROEXPAND-1 untilway ethay ormfay ancay onay "
+"ongerlay ebay expandedway.\n"
+"   Eturnsray ethay inalfay esultantray ormfay, andway T ifway itway asway "
+"expandedway.  ENV isway ethay\n"
+"   exicallay environmentway otay expandway inway, orway NIL (ethay "
+"efaultday) orfay ethay ullnay\n"
+"   environmentway."
+
+#: target:code/eval.lisp
+msgid ""
+"If NAME names a compiler-macro, returns the expansion function,\n"
+"   else returns NIL.  Note: if the name is shadowed in ENV by a local\n"
+"   definition, or declared NOTINLINE, NIL is returned.  Can be\n"
+"   set with SETF."
+msgstr ""
+"Ifway NAME amesnay away ompilercay-acromay, eturnsray ethay expansionway "
+"unctionfay,\n"
+"   elseway eturnsray NIL.  Otenay: ifway ethay amenay isway adowedshay inway "
+"ENV ybay away ocallay\n"
+"   efinitionday, orway eclaredday NOTINLINE, NIL isway eturnedray.  Ancay "
+"ebay\n"
+"   etsay ithway SETF."
+
+#: target:code/eval.lisp
+msgid ""
+"If FORM is a function call for which a compiler-macro has been defined,\n"
+"   invoke the expander function using *macroexpand-hook* and return the\n"
+"   results and T.  Otherwise, return the original form and NIL."
+msgstr ""
+"Ifway FORM isway away unctionfay allcay orfay ichwhay away ompilercay-"
+"acromay ashay eenbay efinedday,\n"
+"   invokeway ethay expanderway unctionfay usingway *macroexpand-hook* andway "
+"eturnray ethay\n"
+"   esultsray andway T.  Otherwiseway, eturnray ethay originalway ormfay "
+"andway NIL."
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n"
+"   expanded.  ENV is the lexical environment to expand in, or NIL (the\n"
+"   default) for the null environment."
+msgstr ""
+"Epetitivelyray allcay COMPILER-MACROEXPAND-1 untilway ethay ormfay ancay "
+"onay ongerlay ebay\n"
+"   expandedway.  ENV isway ethay exicallay environmentway otay expandway "
+"inway, orway NIL (ethay\n"
+"   efaultday) orfay ethay ullnay environmentway."
+
+#: target:code/eval.lisp
+msgid ""
+"True of any Lisp object that has a constant value: types that eval to\n"
+"  themselves, keywords, constants, and list whose car is QUOTE."
+msgstr ""
+"Uetray ofway anyway Isplay objectway atthay ashay away onstantcay aluevay: "
+"ypestay atthay evalway otay\n"
+"  emselvesthay, eywordskay, onstantscay, andway istlay osewhay arcay isway "
+"QUOTE."
+
+#: target:code/eval.lisp
+msgid ""
+"Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n"
+"  the manner of LIST*.  That is, a list is made of the values of all but "
+"the\n"
+"  last argument, appended to the value of the last argument, which must be "
+"a\n"
+"  list."
+msgstr ""
+"Appliesway FUNCTION otay away istlay ofway argumentsway oducedpray ybay "
+"evaluatingway ARGS inway\n"
+"  ethay annermay ofway Ist*Lay.  Atthay isway, away istlay isway ademay "
+"ofway ethay aluesvay ofway allway utbay ethay\n"
+"  astlay argumentway, appendedway otay ethay aluevay ofway ethay astlay "
+"argumentway, ichwhay ustmay ebay away\n"
+"  istlay."
+
+#: target:code/eval.lisp
+msgid "Calls Function with the given Arguments."
+msgstr "Allscay Unctionfay ithway ethay ivengay Argumentsway."
+
+#: target:code/eval.lisp
+msgid "Returns all of its arguments, in order, as values."
+msgstr ""
+"Eturnsray allway ofway itsway argumentsway, inway orderway, asway aluesvay."
+
+#: target:code/eval.lisp
+msgid "Returns all of the elements of List, in order, as values."
+msgstr ""
+"Eturnsray allway ofway ethay elementsway ofway Istlay, inway orderway, asway "
+"aluesvay."
+
+#: target:code/signal.lisp
+msgid "A list of unix signal structures."
+msgstr "Away istlay ofway unixway ignalsay ucturesstray."
+
+#: target:code/signal.lisp
+msgid "~S is not a valid signal name or number."
+msgstr "~S isway otnay away alidvay ignalsay amenay orway umbernay."
+
+#: 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 ""
+"Eturnray ethay amenay ofway ethay ignalsay asway away ingstray.  Ignalsay "
+"ouldshay ebay away alidvay\n"
+"  ignalsay umbernay orway away eywordkay ofway ethay tandardsay UNIX "
+"ignalsay amenay."
+
+#: 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 ""
+"Eturnray away ingstray escribingday ignalsay.  Ignalsay ouldshay ebay away "
+"alidvay ignalsay\n"
+"  umbernay orway away eywordkay ofway ethay tandardsay UNIX ignalsay amenay."
+
+#: 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 ""
+"Eturnray ethay umbernay ofway ethay ivengay ignalsay.  Ignalsay ouldshay "
+"ebay away alidvay\n"
+"  ignalsay umbernay orway away eywordkay ofway ethay tandardsay UNIX "
+"ignalsay amenay."
+
+#: target:code/signal.lisp
+msgid "Returns a mask given a set of signals."
+msgstr "Eturnsray away askmay ivengay away etsay ofway ignalssay."
+
+#: 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 ""
+"Unixway-illkay endssay ethay ignalsay ignalsay otay ethay ocesspray ithway "
+"ocesspray \n"
+"   idway idpay.  Ignalsay ouldshay ebay away alidvay ignalsay umbernay orway "
+"away eywordkay ofway ethay\n"
+"   tandardsay UNIX ignalsay amenay."
+
+#: 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 ""
+"Unixway-illpgkay endssay ethay ignalsay ignalsay otay ethay allway ethay "
+"ocesspray inway ocesspray\n"
+"  oupgray PGRP.  Ignalsay ouldshay ebay away alidvay ignalsay umbernay orway "
+"away eywordkay ofway\n"
+"  ethay tandardsay UNIX ignalsay amenay."
+
+#: 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 ""
+"Unixway-igblocksay ausecay ethay ignalssay ecifiedspay inway askmay otay "
+"ebay\n"
+"   addedway otay ethay etsay ofway ignalssay urrentlycay eingbay ockedblay "
+"omfray\n"
+"   eliveryday.  Ethay acromay igmasksay isway ovidedpray otay eatecray "
+"asksmay."
+
+#: 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 ""
+"Unixway-igpausesay etssay ethay etsay ofway askedmay ignalssay otay itsway "
+"argumentway\n"
+"   andway enthay aitsway orfay away ignalsay otay arriveway, estoringray "
+"ethay eviouspray\n"
+"   askmay uponway itsway eturnray."
+
+#: 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 ""
+"Unixway-igsetmasksay etssay ethay urrentcay etsay ofway askedmay ignalssay "
+"(osethay\n"
+"   eingbay ockedblay omfray eliveryday) otay ethay argumentway.  Ethay "
+"acromay igmasksay\n"
+"   ancay ebay usedway otay eatecray ethay askmay.  Ethay eviouspray aluevay "
+"ofway ethay ignalsay\n"
+"   askmay isway eturnedray."
+
+#: target:code/signal.lisp
+msgid "Enable all the default signals that Lisp knows how to deal with."
+msgstr ""
+"Enableway allway ethay efaultday ignalssay atthay Isplay nowskay owhay otay "
+"ealday ithway."
+
+#: target:code/signal.lisp
+msgid "Execute BODY in a context impervious to interrupts."
+msgstr "Executeway BODY inway away ontextcay imperviousway otay interruptsway."
+
+#: 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 ""
+"Allowway interruptsway ilewhay executingway BODY.  Asway interruptsway "
+"areway ormallynay allowedway,\n"
+"  isthay isway onlyway usefulway insideway away WITHOUT-INTERRUPTS."
+
+#: 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 ""
+"Ithway-enabledway-interruptsway ({(interruptway unctionfay)}*) {ormfay}*\n"
+"   Establishway unctionfay asway away andlerhay orfay ethay Unixway ignalsay "
+"interruptway ichwhay\n"
+"   ouldshay ebay away umbernay etweenbay 1 andway 31 inclusiveway."
+
+#: target:code/interr.lisp
+msgid "~S isn't one of the required args."
+msgstr "~S isnway't oneway ofway ethay equiredray argsway."
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr "Unknownway errorway:~{ ~S~})"
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr "Invalidway umbernay ofway argumentsway: ~S"
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
+msgstr "Attemptway otay useway VALUES-LIST onway away ottedday-istlay:~%  ~S"
+
+#: target:code/interr.lisp
+msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
+msgstr ""
+"Attemptway otay RETURN-FROM away ockblay orway GO otay away agtay atthay "
+"onay ongerlay existsway"
+
+#: target:code/interr.lisp
+msgid "Attempt to THROW to a tag that does not exist: ~S"
+msgstr "Attemptway otay THROW otay away agtay atthay oesday otnay existway: ~S"
+
+#: target:code/interr.lisp
+msgid "Function with declared result type NIL returned:~%  ~S"
+msgstr "Unctionfay ithway eclaredday esultray ypetay NIL eturnedray:~%  ~S"
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Array has no elements."
+msgstr ""
+"Invalidway arrayway indexway, ~D orfay ~S.  Arrayway ashay onay elementsway."
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S.  Should have greater than or equal to 0."
+msgstr ""
+"Invalidway arrayway indexway, ~D orfay ~S.  Ouldshay avehay eatergray anthay "
+"orway equalway otay 0."
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Should have been less than ~D"
+msgstr ""
+"Invalidway arrayway indexway, ~D orfay ~S.  Ouldshay avehay eenbay esslay "
+"anthay ~D"
+
+#: target:code/interr.lisp
+msgid "Undefined foreign symbol: ~S"
+msgstr "Undefinedway oreignfay ymbolsay: ~S"
+
+#: target:code/interr.lisp
+msgid ""
+"The maximum number of nested errors allowed.  Internal errors are\n"
+"   double-counted."
+msgstr ""
+"Ethay aximummay umbernay ofway estednay errorsway allowedway.  Internalway "
+"errorsway areway\n"
+"   oubleday-ountedcay."
+
+#: target:code/interr.lisp
+msgid "The current number of nested errors."
+msgstr "Ethay urrentcay umbernay ofway estednay errorsway."
+
+#: target:code/interr.lisp
+msgid "Unknown internal error, ~D?  args=~S"
+msgstr "Unknownway internalway errorway, ~D?  argsway=~S"
+
+#: target:code/interr.lisp
+msgid "Internal error ~D: ~A.  args=~S"
+msgstr "Internalway errorway ~D: ~Away.  argsway=~S"
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<A control stack overflow has occurred: ~\n"
+"            the program has entered the yellow control stack guard zone.  ~\n"
+"            Please note that you will be returned to the Top-Level if you ~\n"
+"            enter the red control stack guard zone while debugging.~@:>~2%"
+msgstr ""
+"~2&~@<Away ontrolcay tacksay overflowway ashay occurredway: ~\n"
+"            ethay ogrampray ashay enteredway ethay ellowyay ontrolcay "
+"tacksay uardgay onezay.  ~\n"
+"            Easeplay otenay atthay ouyay illway ebay eturnedray otay ethay "
+"Optay-Evellay ifway ouyay ~\n"
+"            enterway ethay edray ontrolcay tacksay uardgay onezay ilewhay "
+"ebuggingday.~@:>~2%"
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Fatal control stack overflow.  You have entered~%~\n"
+"           the red control stack guard zone while debugging.~%~\n"
+"           Returning to Top-Level.~@:>~2%"
+msgstr ""
+"~2&~@<Atalfay ontrolcay tacksay overflowway.  Ouyay avehay enteredway~%~\n"
+"           ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday.~"
+"%~\n"
+"           Eturningray otay Optay-Evellay.~@:>~2%"
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
+"            Only a small amount of dynamic space is available now.~%~\n"
+"            Please note that you will be returned to the Top-Level without~%"
+"~\n"
+"            warning if you run out of space while debugging.~@:>~%"
+msgstr ""
+"~2&~@<Imminentway ynamicday acespay overflowway ashay occurredway:~%~\n"
+"            Onlyway away mallsay amountway ofway ynamicday acespay isway "
+"availableway ownay.~%~\n"
+"            Easeplay otenay atthay ouyay illway ebay eturnedray otay ethay "
+"Optay-Evellay ithoutway~%~\n"
+"            arningway ifway ouyay unray outway ofway acespay ilewhay "
+"ebuggingday.~@:>~%"
+
+#: target:code/debug-int.lisp
+msgid ""
+"All debug-conditions inherit from this type.  These are serious conditions\n"
+"    that must be handled, but they are not programmer errors."
+msgstr ""
+"Allway ebugday-onditionscay inheritway omfray isthay ypetay.  Esethay areway "
+"erioussay onditionscay\n"
+"    atthay ustmay ebay andledhay, utbay eythay areway otnay ogrammerpray "
+"errorsway."
+
+#: target:code/debug-int.lisp
+msgid "There is absolutely no debugging information available."
+msgstr ""
+"Erethay isway absolutelyway onay ebuggingday informationway availableway."
+
+#: target:code/debug-int.lisp
+msgid "No debugging information available."
+msgstr "Onay ebuggingday informationway availableway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"The system could not return values from a frame with debug-function since\n"
+"    it lacked information about returning values."
+msgstr ""
+"Ethay ystemsay ouldcay otnay eturnray aluesvay omfray away amefray ithway "
+"ebugday-unctionfay incesay\n"
+"    itway ackedlay informationway aboutway eturningray aluesvay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"~&Cannot return values from ~:[frame~;~:*~S~] since ~\n"
+"\t\t\tthe debug information lacks details about returning ~\n"
+"\t\t\tvalues here."
+msgstr ""
+"~&Annotcay eturnray aluesvay omfray ~:[amefray~;~:*~S~] incesay ~\n"
+"\t\t\tethay ebugday informationway ackslay etailsday aboutway eturningray ~\n"
+"\t\t\taluesvay erehay."
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-block information."
+msgstr "Ethay ebugday-unctionfay ashay onay ebugday-ockblay informationway."
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-block information."
+msgstr "~&~S ashay onay ebugday-ockblay informationway."
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-variable information."
+msgstr "Ethay ebugday-unctionfay ashay onay ebugday-ariablevay informationway."
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-variable information."
+msgstr "~&~S ashay onay ebugday-ariablevay informationway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"The debug-function has no lambda-list since argument debug-variables are\n"
+"    unavailable."
+msgstr ""
+"Ethay ebugday-unctionfay ashay onay ambdalay-istlay incesay argumentway "
+"ebugday-ariablesvay areway\n"
+"    unavailableway."
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no lambda-list information available."
+msgstr "~&~S ashay onay ambdalay-istlay informationway availableway."
+
+#: target:code/debug-int.lisp
+msgid "~&~S has :invalid or :unknown value in ~S."
+msgstr "~&~S ashay :invalidway orway :unknownway aluevay inway ~S."
+
+#: target:code/debug-int.lisp
+msgid "~&~S names more than one valid variable in ~S."
+msgstr "~&~S amesnay oremay anthay oneway alidvay ariablevay inway ~S."
+
+#: target:code/debug-int.lisp
+msgid ""
+"All programmer errors from using the interface for building debugging\n"
+"    tools inherit from this type."
+msgstr ""
+"Allway ogrammerpray errorsway omfray usingway ethay interfaceway orfay "
+"uildingbay ebuggingday\n"
+"    oolstay inheritway omfray isthay ypetay."
+
+#: target:code/debug-int.lisp
+msgid "~&Unhandled debug-condition:~%~A"
+msgstr "~&Unhandledway ebugday-onditioncay:~%~Away"
+
+#: target:code/debug-int.lisp
+msgid "~&Invalid use of an unknown code-location -- ~S."
+msgstr "~&Invalidway useway ofway anway unknownway odecay-ocationlay -- ~S."
+
+#: target:code/debug-int.lisp
+msgid "~&~S not in ~S."
+msgstr "~&~S otnay inway ~S."
+
+#: target:code/debug-int.lisp
+msgid "Invalid control stack pointer."
+msgstr "Invalidway ontrolcay tacksay ointerpay."
+
+#: target:code/debug-int.lisp
+msgid "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
+msgstr ""
+"~&Ormfay asway eprocessedpray orfay ~S,~% utbay alledcay onway ~S:~%  ~S"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the debug-variable.  The name is the name of the symbol\n"
+"   used as an identifier when writing the code."
+msgstr ""
+"Eturnsray ethay amenay ofway ethay ebugday-ariablevay.  Ethay amenay isway "
+"ethay amenay ofway ethay ymbolsay\n"
+"   usedway asway anway identifierway enwhay itingwray ethay odecay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the package name of the debug-variable.  This is the package name "
+"of\n"
+"   the symbol used as an identifier when writing the code."
+msgstr ""
+"Eturnsray ethay ackagepay amenay ofway ethay ebugday-ariablevay.  Isthay "
+"isway ethay ackagepay amenay ofway\n"
+"   ethay ymbolsay usedway asway anway identifierway enwhay itingwray ethay "
+"odecay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the integer that makes debug-variable's name and package name "
+"unique\n"
+"   with respect to other debug-variable's in the same function."
+msgstr ""
+"Eturnsray ethay integerway atthay akesmay ebugday-ariablevay's amenay andway "
+"ackagepay amenay uniqueway\n"
+"   ithway espectray otay otherway ebugday-ariablevay's inway ethay amesay "
+"unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately above frame on the stack.  When frame is\n"
+"   the top of the stack, this returns nil."
+msgstr ""
+"Eturnsray ethay amefray immediatelyway aboveway amefray onway ethay "
+"tacksay.  Enwhay amefray isway\n"
+"   ethay optay ofway ethay tacksay, isthay eturnsray ilnay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function for the function whose call frame represents."
+msgstr ""
+"Eturnsray ethay ebugday-unctionfay orfay ethay unctionfay osewhay allcay "
+"amefray epresentsray."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the code-location where the frame's debug-function will continue\n"
+"   running when program execution returns to this frame.  If someone\n"
+"   interrupted this frame, the result could be an unknown code-location."
+msgstr ""
+"Eturnsray ethay odecay-ocationlay erewhay ethay amefray's ebugday-unctionfay "
+"illway ontinuecay\n"
+"   unningray enwhay ogrampray executionway eturnsray otay isthay amefray.  "
+"Ifway omeonesay\n"
+"   interruptedway isthay amefray, ethay esultray ouldcay ebay anway "
+"unknownway odecay-ocationlay."
+
+#: target:code/debug-int.lisp
+msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>"
+msgstr "#<Ompiledcay-Amefray ~S~:[~;, interruptedway~]>"
+
+#: target:code/debug-int.lisp
+msgid "#<~A-Debug-Function ~S>"
+msgstr "#<~Away-Ebugday-Unctionfay ~S>"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the list of possible code-locations where execution may continue\n"
+"   when the basic-block represented by debug-block completes its execution."
+msgstr ""
+"Eturnsray ethay istlay ofway ossiblepay odecay-ocationslay erewhay "
+"executionway aymay ontinuecay\n"
+"   enwhay ethay asicbay-ockblay epresentedray ybay ebugday-ockblay "
+"ompletescay itsway executionway."
+
+#: target:code/debug-int.lisp
+msgid "Returns whether debug-block represents elsewhere code."
+msgstr "Eturnsray etherwhay ebugday-ockblay epresentsray elsewhereway odecay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the breakpoint's function the system calls when execution "
+"encounters\n"
+"   the breakpoint, and it is active.  This is SETF'able."
+msgstr ""
+"Eturnsray ethay eakpointbray's unctionfay ethay ystemsay allscay enwhay "
+"executionway encountersway\n"
+"   ethay eakpointbray, andway itway isway activeway.  Isthay isway "
+"SETF'ableway."
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's what specification."
+msgstr "Eturnsray ethay eakpointbray's atwhay ecificationspay."
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's kind specification."
+msgstr "Eturnsray ethay eakpointbray's indkay ecificationspay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function representing information about the function\n"
+"   corresponding to the code-location."
+msgstr ""
+"Eturnsray ethay ebugday-unctionfay epresentingray informationway aboutway "
+"ethay unctionfay\n"
+"   orrespondingcay otay ethay odecay-ocationlay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms processed by the compiler before\n"
+"   compiling this source.  If this source is uncompiled, this is zero.  "
+"This\n"
+"   may be zero even if the source is compiled since the first form in the "
+"first\n"
+"   file compiled in one compilation, for example, must have a root number "
+"of\n"
+"   zero -- the compiler saw no other top-level forms before it."
+msgstr ""
+"Eturnsray ethay umbernay ofway optay-evellay ormsfay ocessedpray ybay ethay "
+"ompilercay eforebay\n"
+"   ompilingcay isthay ourcesay.  Ifway isthay ourcesay isway uncompiledway, "
+"isthay isway erozay.  Isthay\n"
+"   aymay ebay erozay evenway ifway ethay ourcesay isway ompiledcay incesay "
+"ethay irstfay ormfay inway ethay irstfay\n"
+"   ilefay ompiledcay inway oneway ompilationcay, orfay exampleway, ustmay "
+"avehay away ootray umbernay ofway\n"
+"   erozay -- ethay ompilercay awsay onay otherway optay-evellay ormsfay "
+"eforebay itway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an indication of the type of source.  The following are the "
+"possible\n"
+"   values:\n"
+"      :file    from a file (obtained by COMPILE-FILE if compiled).\n"
+"      :lisp    from Lisp (obtained by COMPILE if compiled).\n"
+"      :stream  from a non-file stream."
+msgstr ""
+"Eturnsray anway indicationway ofway ethay ypetay ofway ourcesay.  Ethay "
+"ollowingfay areway ethay ossiblepay\n"
+"   aluesvay:\n"
+"      :ilefay    omfray away ilefay (obtainedway ybay COMPILE-FILE ifway "
+"ompiledcay).\n"
+"      :isplay    omfray Isplay (obtainedway ybay COMPILE ifway ompiledcay).\n"
+"      :eamstray  omfray away onnay-ilefay eamstray."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the actual source in some sense represented by debug-source, which\n"
+"   is related to DEBUG-SOURCE-FROM:\n"
+"      :file    the pathname of the file.\n"
+"      :lisp    a lambda-expression.\n"
+"      :stream  some descriptive string that's otherwise useless."
+msgstr ""
+"Eturnsray ethay actualway ourcesay inway omesay ensesay epresentedray ybay "
+"ebugday-ourcesay, ichwhay\n"
+"   isway elatedray otay DEBUG-SOURCE-FROM:\n"
+"      :ilefay    ethay athnamepay ofway ethay ilefay.\n"
+"      :isplay    away ambdalay-expressionway.\n"
+"      :eamstray  omesay escriptiveday ingstray atthay's otherwiseway "
+"uselessway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the universal time someone created the source.  This may be nil if\n"
+"   it is unavailable."
+msgstr ""
+"Eturnsray ethay universalway imetay omeonesay eatedcray ethay ourcesay.  "
+"Isthay aymay ebay ilnay ifway\n"
+"   itway isway unavailableway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the time someone compiled the source.  This is nil if the source\n"
+"   is uncompiled."
+msgstr ""
+"Eturnsray ethay imetay omeonesay ompiledcay ethay ourcesay.  Isthay isway "
+"ilnay ifway ethay ourcesay\n"
+"   isway uncompiledway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This function returns the file position of each top-level form as an array\n"
+"   if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or :"
+"stream,\n"
+"   this returns nil."
+msgstr ""
+"Isthay unctionfay eturnsray ethay ilefay ositionpay ofway eachway optay-"
+"evellay ormfay asway anway arrayway\n"
+"   ifway ebugday-ourcesay isway omfray away :ilefay.  Ifway DEBUG-SOURCE-"
+"FROM isway :isplay orway :eamstray,\n"
+"   isthay eturnsray ilnay."
+
+#: target:code/debug-int.lisp
+msgid "Returns whether object is a debug-source."
+msgstr "Eturnsray etherwhay objectway isway away ebugday-ourcesay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the top frame of the control stack as it was before calling this\n"
+"   function."
+msgstr ""
+"Eturnsray ethay optay amefray ofway ethay ontrolcay tacksay asway itway "
+"asway eforebay allingcay isthay\n"
+"   unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Flush all of the frames above FRAME, and renumber all the frames below\n"
+"   FRAME."
+msgstr ""
+"Ushflay allway ofway ethay amesfray aboveway FRAME, andway enumberray allway "
+"ethay amesfray elowbay\n"
+"   FRAME."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately below frame on the stack.  When frame is\n"
+"   the bottom of the stack, this returns nil."
+msgstr ""
+"Eturnsray ethay amefray immediatelyway elowbay amefray onway ethay tacksay.  "
+"Enwhay amefray isway\n"
+"   ethay ottombay ofway ethay tacksay, isthay eturnsray ilnay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"When set, the debugger foregoes making interpreted-frames, so you can\n"
+"   debug the functions that manifest the interpreter."
+msgstr ""
+"Enwhay etsay, ethay ebuggerday oregoesfay akingmay interpretedway-amesfray, "
+"osay ouyay ancay\n"
+"   ebugday ethay unctionsfay atthay anifestmay ethay interpreterway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Zero or more than one ~A variable in ~\n"
+"\t\t\t   EVAL::INTERNAL-APPLY-LOOP?"
+msgstr ""
+"Erozay orway oremay anthay oneway ~Away ariablevay inway ~\n"
+"\t\t\t   EVAL::INTERNAL-APPLY-LOOP?"
+
+#: target:code/debug-int.lisp
+msgid "Return a string describing the foreign function near ADDRESS"
+msgstr ""
+"Eturnray away ingstray escribingday ethay oreignfay unctionfay earnay ADDRESS"
+
+#: target:code/debug-int.lisp
+msgid "Foreign function call land"
+msgstr "Oreignfay unctionfay allcay andlay"
+
+#: target:code/debug-int.lisp
+msgid "Return t if COMPONENT contains code from assembly routines."
+msgstr ""
+"Eturnray t ifway COMPONENT ontainscay odecay omfray assemblyway outinesray."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the name of the assembly routine at offset PC in COMPONENT.\n"
+"The result is a symbol or nil if the routine cannot be found."
+msgstr ""
+"Eturnray ethay amenay ofway ethay assemblyway outineray atway offsetway PC "
+"inway COMPONENT.\n"
+"Ethay esultray isway away ymbolsay orway ilnay ifway ethay outineray "
+"annotcay ebay oundfay."
+
+#: target:code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr "onay ebugday infoway: ~Away:~Away"
+
+#: target:code/debug-int.lisp
+msgid "find the PC"
+msgstr "indfay ethay PC"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an a-list mapping catch tags to code-locations.  These are\n"
+"   code-locations at which execution would continue with frame as the top\n"
+"   frame if someone threw to the corresponding tag."
+msgstr ""
+"Eturnsray anway away-istlay appingmay atchcay agstay otay odecay-"
+"ocationslay.  Esethay areway\n"
+"   odecay-ocationslay atway ichwhay executionway ouldway ontinuecay ithway "
+"amefray asway ethay optay\n"
+"   amefray ifway omeonesay rewthay otay ethay orrespondingcay agtay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes the forms in a context with block-var bound to each debug-block in\n"
+"   debug-function successively.  Result is an optional form to execute for\n"
+"   return values, and DO-DEBUG-FUNCTION-BLOCKS returns nil if there is no\n"
+"   result form.  This signals a no-debug-blocks condition when the\n"
+"   debug-function lacks debug-block information."
+msgstr ""
+"Executesway ethay ormsfay inway away ontextcay ithway ockblay-arvay oundbay "
+"otay eachway ebugday-ockblay inway\n"
+"   ebugday-unctionfay uccessivelysay.  Esultray isway anway optionalway "
+"ormfay otay executeway orfay\n"
+"   eturnray aluesvay, andway DO-DEBUG-FUNCTION-BLOCKS eturnsray ilnay ifway "
+"erethay isway onay\n"
+"   esultray ormfay.  Isthay ignalssay away onay-ebugday-ocksblay onditioncay "
+"enwhay ethay\n"
+"   ebugday-unctionfay ackslay ebugday-ockblay informationway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes body in a context with var bound to each debug-variable in\n"
+"   debug-function.  This returns the value of executing result (defaults to\n"
+"   nil).  This may iterate over only some of debug-function's variables or "
+"none\n"
+"   depending on debug policy; for example, possibly the compilation only\n"
+"   preserved argument information."
+msgstr ""
+"Executesway odybay inway away ontextcay ithway arvay oundbay otay eachway "
+"ebugday-ariablevay inway\n"
+"   ebugday-unctionfay.  Isthay eturnsray ethay aluevay ofway executingway "
+"esultray (efaultsday otay\n"
+"   ilnay).  Isthay aymay iterateway overway onlyway omesay ofway ebugday-"
+"unctionfay's ariablesvay orway onenay\n"
+"   ependingday onway ebugday olicypay; orfay exampleway, ossiblypay ethay "
+"ompilationcay onlyway\n"
+"   eservedpray argumentway informationway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the Common Lisp function associated with the debug-function.  This\n"
+"   returns nil if the function is unavailable or is non-existent as a user\n"
+"   callable function object."
+msgstr ""
+"Eturnsray ethay Ommoncay Isplay unctionfay associatedway ithway ethay "
+"ebugday-unctionfay.  Isthay\n"
+"   eturnsray ilnay ifway ethay unctionfay isway unavailableway orway isway "
+"onnay-existentway asway away userway\n"
+"   allablecay unctionfay objectway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the function represented by debug-function.  This may\n"
+"   be a string or a cons; do not assume it is a symbol."
+msgstr ""
+"Eturnsray ethay amenay ofway ethay unctionfay epresentedray ybay ebugday-"
+"unctionfay.  Isthay aymay\n"
+"   ebay away ingstray orway away onscay; oday otnay assumeway itway isway "
+"away ymbolsay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a debug-function that represents debug information for function."
+msgstr ""
+"Eturnsray away ebugday-unctionfay atthay epresentsray ebugday informationway "
+"orfay unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the kind of the function which is one of :optional, :external,\n"
+"   :top-level, :cleanup, nil."
+msgstr ""
+"Eturnsray ethay indkay ofway ethay unctionfay ichwhay isway oneway ofway :"
+"optionalway, :externalway,\n"
+"   :optay-evellay, :eanupclay, ilnay."
+
+#: target:code/debug-int.lisp
+msgid "Returns whether there is any variable information for debug-function."
+msgstr ""
+"Eturnsray etherwhay erethay isway anyway ariablevay informationway orfay "
+"ebugday-unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function having the same name\n"
+"   and package as symbol.  If symbol is uninterned, then this returns a list "
+"of\n"
+"   debug-variables without package names and with the same name as symbol.  "
+"The\n"
+"   result of this function is limited to the availability of variable\n"
+"   information in debug-function; for example, possibly debug-function only\n"
+"   knows about its arguments."
+msgstr ""
+"Eturnsray away istlay ofway ebugday-ariablesvay inway ebugday-unctionfay "
+"avinghay ethay amesay amenay\n"
+"   andway ackagepay asway ymbolsay.  Ifway ymbolsay isway uninternedway, "
+"enthay isthay eturnsray away istlay ofway\n"
+"   ebugday-ariablesvay ithoutway ackagepay amesnay andway ithway ethay "
+"amesay amenay asway ymbolsay.  Ethay\n"
+"   esultray ofway isthay unctionfay isway imitedlay otay ethay "
+"availabilityway ofway ariablevay\n"
+"   informationway inway ebugday-unctionfay; orfay exampleway, ossiblypay "
+"ebugday-unctionfay onlyway\n"
+"   nowskay aboutway itsway argumentsway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function whose names contain\n"
+"    name-prefix-string as an intial substring.  The result of this function "
+"is\n"
+"    limited to the availability of variable information in debug-function; "
+"for\n"
+"    example, possibly debug-function only knows about its arguments."
+msgstr ""
+"Eturnsray away istlay ofway ebugday-ariablesvay inway ebugday-unctionfay "
+"osewhay amesnay ontaincay\n"
+"    amenay-efixpray-ingstray asway anway intialway ubstringsay.  Ethay "
+"esultray ofway isthay unctionfay isway\n"
+"    imitedlay otay ethay availabilityway ofway ariablevay informationway "
+"inway ebugday-unctionfay; orfay\n"
+"    exampleway, ossiblypay ebugday-unctionfay onlyway nowskay aboutway "
+"itsway argumentsway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list representing the lambda-list for debug-function.  The list\n"
+"   has the following structure:\n"
+"      (required-var1 required-var2\n"
+"       ...\n"
+"       (:optional var3 suppliedp-var4)\n"
+"       (:optional var5)\n"
+"       ...\n"
+"       (:rest var6) (:rest var7)\n"
+"       ...\n"
+"       (:keyword keyword-symbol var8 suppliedp-var9)\n"
+"       (:keyword keyword-symbol var10)\n"
+"       ...\n"
+"      )\n"
+"   Each VARi is a debug-variable; however it may be the symbol :deleted it\n"
+"   is unreferenced in debug-function.  This signals a lambda-list-"
+"unavaliable\n"
+"   condition when there is no argument list information."
+msgstr ""
+"Eturnsray away istlay epresentingray ethay ambdalay-istlay orfay ebugday-"
+"unctionfay.  Ethay istlay\n"
+"   ashay ethay ollowingfay ucturestray:\n"
+"      (equiredray-arvay1 equiredray-arvay2\n"
+"       ...\n"
+"       (:optionalway arvay3 uppliedpsay-arvay4)\n"
+"       (:optionalway arvay5)\n"
+"       ...\n"
+"       (:estray arvay6) (:estray arvay7)\n"
+"       ...\n"
+"       (:eywordkay eywordkay-ymbolsay arvay8 uppliedpsay-arvay9)\n"
+"       (:eywordkay eywordkay-ymbolsay arvay10)\n"
+"       ...\n"
+"      )\n"
+"   Eachway Arivay isway away ebugday-ariablevay; oweverhay itway aymay ebay "
+"ethay ymbolsay :eletedday itway\n"
+"   isway unreferencedway inway ebugday-unctionfay.  Isthay ignalssay away "
+"ambdalay-istlay-unavaliablwaye\n"
+"   onditioncay enwhay erethay isway onay argumentway istlay informationway."
+
+#: target:code/debug-int.lisp
+msgid "Malformed arguments description."
+msgstr "Alformedmay argumentsway escriptionday."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns whether basic-code-location is unknown.  It returns nil when the\n"
+"   code-location is known."
+msgstr ""
+"Eturnsray etherwhay asicbay-odecay-ocationlay isway unknownway.  Itway "
+"eturnsray ilnay enwhay ethay\n"
+"   odecay-ocationlay isway nownkay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-block containing code-location if it is available.  Some\n"
+"   debug policies inhibit debug-block information, and if none is "
+"available,\n"
+"   then this signals a no-debug-blocks condition."
+msgstr ""
+"Eturnsray ethay ebugday-ockblay ontainingcay odecay-ocationlay ifway itway "
+"isway availableway.  Omesay\n"
+"   ebugday oliciespay inhibitway ebugday-ockblay informationway, andway "
+"ifway onenay isway availableway,\n"
+"   enthay isthay ignalssay away onay-ebugday-ocksblay onditioncay."
+
+#: target:code/debug-int.lisp
+msgid "Returns the code-location's debug-source."
+msgstr "Eturnsray ethay odecay-ocationlay's ebugday-ourcesay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms before the one containing\n"
+"   code-location as seen by the compiler in some compilation unit.  A\n"
+"   compilation unit is not necessarily a single file, see the section on\n"
+"   debug-sources."
+msgstr ""
+"Eturnsray ethay umbernay ofway optay-evellay ormsfay eforebay ethay oneway "
+"ontainingcay\n"
+"   odecay-ocationlay asway eensay ybay ethay ompilercay inway omesay "
+"ompilationcay unitway.  Away\n"
+"   ompilationcay unitway isway otnay ecessarilynay away inglesay ilefay, "
+"eesay ethay ectionsay onway\n"
+"   ebugday-ourcessay."
+
+#: target:code/debug-int.lisp
+msgid "Unknown code location?  It should be known."
+msgstr "Unknownway odecay ocationlay?  Itway ouldshay ebay nownkay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of the form corresponding to code-location.  The form\n"
+"   number is derived by a walking the subforms of a top-level form in\n"
+"   depth-first order."
+msgstr ""
+"Eturnsray ethay umbernay ofway ethay ormfay orrespondingcay otay odecay-"
+"ocationlay.  Ethay ormfay\n"
+"   umbernay isway erivedday ybay away alkingway ethay ubformssay ofway away "
+"optay-evellay ormfay inway\n"
+"   epthday-irstfay orderway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the kind of CODE-LOCATION, one of:\n"
+"     :interpreted, :unknown-return, :known-return, :internal-error,\n"
+"     :non-local-exit, :block-start, :call-site, :single-value-return,\n"
+"     :non-local-entry"
+msgstr ""
+"Eturnray ethay indkay ofway CODE-LOCATION, oneway ofway:\n"
+"     :interpretedway, :unknownway-eturnray, :nownkay-eturnray, :internalway-"
+"errorway,\n"
+"     :onnay-ocallay-exitway, :ockblay-tartsay, :allcay-itesay, :inglesay-"
+"aluevay-eturnray,\n"
+"     :onnay-ocallay-entryway"
+
+#: target:code/debug-int.lisp
+msgid "Returns whether obj1 and obj2 are the same place in the code."
+msgstr ""
+"Eturnsray etherwhay objway1 andway objway2 areway ethay amesay aceplay inway "
+"ethay odecay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes forms in a context with code-var bound to each code-location in\n"
+"   debug-block.  This returns the value of executing result (defaults to "
+"nil)."
+msgstr ""
+"Executesway ormsfay inway away ontextcay ithway odecay-arvay oundbay otay "
+"eachway odecay-ocationlay inway\n"
+"   ebugday-ockblay.  Isthay eturnsray ethay aluevay ofway executingway "
+"esultray (efaultsday otay ilnay)."
+
+#: target:code/debug-int.lisp
+msgid "??? Can't get name of debug-block's function."
+msgstr "??? Ancay't etgay amenay ofway ebugday-ockblay's unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n"
+"   by DEBUG-VARIABLE-PACKAGE."
+msgstr ""
+"Eturnsray ethay ymbolsay omfray interningway DEBUG-VARIABLE-NAME inway ethay "
+"ackagepay amednay\n"
+"   ybay DEBUG-VARIABLE-PACKAGE."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  If the value is not\n"
+"   :valid, then this signals an invalid-value error."
+msgstr ""
+"Eturnsray ethay aluevay toredsay orfay ebugday-ariablevay inway amefray.  "
+"Ifway ethay aluevay isway otnay\n"
+"   :alidvay, enthay isthay ignalssay anway invalidway-aluevay errorway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  The value may be\n"
+"   invalid.  This is SETF'able."
+msgstr ""
+"Eturnsray ethay aluevay toredsay orfay ebugday-ariablevay inway amefray.  "
+"Ethay aluevay aymay ebay\n"
+"   invalidway.  Isthay isway SETF'ableway."
+
+#: target:code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr "Ocallay onnay-escriptorday egisterray accessway?"
+
+#: target:code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr "Ocallay interiorway egisterray accessway?"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns three values reflecting the validity of debug-variable's value\n"
+"   at basic-code-location:\n"
+"      :valid    The value is known to be available.\n"
+"      :invalid  The value is known to be unavailable.\n"
+"      :unknown  The value's availability is unknown."
+msgstr ""
+"Eturnsray reethay aluesvay eflectingray ethay alidityvay ofway ebugday-"
+"ariablevay's aluevay\n"
+"   atway asicbay-odecay-ocationlay:\n"
+"      :alidvay    Ethay aluevay isway nownkay otay ebay availableway.\n"
+"      :invalidway  Ethay aluevay isway nownkay otay ebay unavailableway.\n"
+"      :unknownway  Ethay aluevay's availabilityway isway unknownway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a table mapping form numbers to source-paths.  A source-path\n"
+"   indicates a descent into the top-level-form form, going directly to the\n"
+"   subform corressponding to the form number."
+msgstr ""
+"Isthay eturnsray away abletay appingmay ormfay umbersnay otay ourcesay-"
+"athspay.  Away ourcesay-athpay\n"
+"   indicatesway away escentday intoway ethay optay-evellay-ormfay ormfay, "
+"oinggay irectlyday otay ethay\n"
+"   ubformsay orresspondingcay otay ethay ormfay umbernay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Form is a top-level form, and path is a source-path into it.  This returns\n"
+"   the form indicated by the source-path.  Context is the number of "
+"enclosing\n"
+"   forms to return instead of directly returning the source-path form.  "
+"When\n"
+"   context is non-zero, the form returned contains a marker, #:"
+"****HERE****,\n"
+"   immediately before the form indicated by path."
+msgstr ""
+"Ormfay isway away optay-evellay ormfay, andway athpay isway away ourcesay-"
+"athpay intoway itway.  Isthay eturnsray\n"
+"   ethay ormfay indicatedway ybay ethay ourcesay-athpay.  Ontextcay isway "
+"ethay umbernay ofway enclosinwayg\n"
+"   ormsfay otay eturnray insteadway ofway irectlyday eturningray ethay "
+"ourcesay-athpay ormfay.  Enwhay\n"
+"   ontextcay isway onnay-erozay, ethay ormfay eturnedray ontainscay away "
+"arkermay, #:****HERE****,\n"
+"   immediatelyway eforebay ethay ormfay indicatedway ybay athpay."
+
+#: target:code/debug.lisp target:code/debug-int.lisp
+msgid "Source path no longer exists."
+msgstr "Ourcesay athpay onay ongerlay existsway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return a function of one argument that evaluates form in the lexical\n"
+"   context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a\n"
+"   no-debug-variables condition when the loc's debug-function has no\n"
+"   debug-variable information available.  The returned function takes the "
+"frame\n"
+"   to get values from as its argument, and it returns the values of form.\n"
+"   The returned function signals the following conditions: invalid-value,\n"
+"   ambiguous-variable-name, and frame-function-mismatch"
+msgstr ""
+"Eturnray away unctionfay ofway oneway argumentway atthay evaluatesway ormfay "
+"inway ethay exicallay\n"
+"   ontextcay ofway ethay asicbay-odecay-ocationlay oclay.  PREPROCESS-FOR-"
+"EVAL ignalssay away\n"
+"   onay-ebugday-ariablesvay onditioncay enwhay ethay oclay's ebugday-"
+"unctionfay ashay onay\n"
+"   ebugday-ariablevay informationway availableway.  Ethay eturnedray "
+"unctionfay akestay ethay amefray\n"
+"   otay etgay aluesvay omfray asway itsway argumentway, andway itway "
+"eturnsray ethay aluesvay ofway ormfay.\n"
+"   Ethay eturnedray unctionfay ignalssay ethay ollowingfay onditionscay: "
+"invalidway-aluevay,\n"
+"   ambiguousway-ariablevay-amenay, andway amefray-unctionfay-ismatchmay"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning the results of the evaluation."
+msgstr ""
+"Evaluateway Ormfay inway ethay exicallay ontextcay ofway Amefray's urrentcay "
+"odecay ocationlay,\n"
+"   eturningray ethay esultsray ofway ethay evaluationway."
+
+#: target:code/debug-int.lisp
+msgid "Find and return the debug catch tag for a given frame, if it exists."
+msgstr ""
+"Indfay andway eturnray ethay ebugday atchcay agtay orfay away ivengay "
+"amefray, ifway itway existsway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning from the current frame the results of the evaluation."
+msgstr ""
+"Evaluateway Ormfay inway ethay exicallay ontextcay ofway Amefray's urrentcay "
+"odecay ocationlay,\n"
+"   eturningray omfray ethay urrentcay amefray ethay esultsray ofway ethay "
+"evaluationway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This creates and returns a breakpoint.  When program execution encounters\n"
+"   the breakpoint, the system calls hook-function.  Hook-function takes the\n"
+"   current frame for the function in which the program is running and the\n"
+"   breakpoint object.\n"
+"      What and kind determine where in a function the system invokes\n"
+"   hook-function.  What is either a code-location or a debug-function.  Kind "
+"is\n"
+"   one of :code-location, :function-start, or :function-end.  Since the "
+"starts\n"
+"   and ends of functions may not have code-locations representing them,\n"
+"   designate these places by supplying what as a debug-function and kind\n"
+"   indicating the :function-start or :function-end.  When what is a\n"
+"   debug-function and kind is :function-end, then hook-function must take "
+"two\n"
+"   additional arguments, a list of values returned by the function and a\n"
+"   function-end-cookie.\n"
+"      Info is information supplied by and used by the user.\n"
+"      Function-end-cookie is a function.  To implement :function-end "
+"breakpoints,\n"
+"   the system uses starter breakpoints to establish the :function-end "
+"breakpoint\n"
+"   for each invocation of the function.  Upon each entry, the system creates "
+"a\n"
+"   unique cookie to identify the invocation, and when the user supplies a\n"
+"   function for this argument, the system invokes it on the frame and the\n"
+"   cookie.  The system later invokes the :function-end breakpoint hook on "
+"the\n"
+"   same cookie.  The user may save the cookie for comparison in the hook\n"
+"   function.\n"
+"      This signals an error if what is an unknown code-location."
+msgstr ""
+"Isthay eatescray andway eturnsray away eakpointbray.  Enwhay ogrampray "
+"executionway encountersway\n"
+"   ethay eakpointbray, ethay ystemsay allscay ookhay-unctionfay.  Ookhay-"
+"unctionfay akestay ethay\n"
+"   urrentcay amefray orfay ethay unctionfay inway ichwhay ethay ogrampray "
+"isway unningray andway ethay\n"
+"   eakpointbray objectway.\n"
+"      Atwhay andway indkay etermineday erewhay inway away unctionfay ethay "
+"ystemsay invokesway\n"
+"   ookhay-unctionfay.  Atwhay isway eitherway away odecay-ocationlay orway "
+"away ebugday-unctionfay.  Indkay isway\n"
+"   oneway ofway :odecay-ocationlay, :unctionfay-tartsay, orway :unctionfay-"
+"endway.  Incesay ethay tartssay\n"
+"   andway endsway ofway unctionsfay aymay otnay avehay odecay-ocationslay "
+"epresentingray emthay,\n"
+"   esignateday esethay acesplay ybay upplyingsay atwhay asway away ebugday-"
+"unctionfay andway indkay\n"
+"   indicatingway ethay :unctionfay-tartsay orway :unctionfay-endway.  Enwhay "
+"atwhay isway away\n"
+"   ebugday-unctionfay andway indkay isway :unctionfay-endway, enthay ookhay-"
+"unctionfay ustmay aketay wotay\n"
+"   additionalway argumentsway, away istlay ofway aluesvay eturnedray ybay "
+"ethay unctionfay andway away\n"
+"   unctionfay-endway-ookiecay.\n"
+"      Infoway isway informationway uppliedsay ybay andway usedway ybay ethay "
+"userway.\n"
+"      Unctionfay-endway-ookiecay isway away unctionfay.  Otay implementway :"
+"unctionfay-endway eakpointsbray,\n"
+"   ethay ystemsay usesway tartersay eakpointsbray otay establishway ethay :"
+"unctionfay-endway eakpointbray\n"
+"   orfay eachway invocationway ofway ethay unctionfay.  Uponway eachway "
+"entryway, ethay ystemsay eatescray away\n"
+"   uniqueway ookiecay otay identifyway ethay invocationway, andway enwhay "
+"ethay userway uppliessay away\n"
+"   unctionfay orfay isthay argumentway, ethay ystemsay invokesway itway "
+"onway ethay amefray andway ethay\n"
+"   ookiecay.  Ethay ystemsay aterlay invokesway ethay :unctionfay-endway "
+"eakpointbray ookhay onway ethay\n"
+"   amesay ookiecay.  Ethay userway aymay avesay ethay ookiecay orfay "
+"omparisoncay inway ethay ookhay\n"
+"   unctionfay.\n"
+"      Isthay ignalssay anway errorway ifway atwhay isway anway unknownway "
+"odecay-ocationlay."
+
+#: target:code/debug-int.lisp
+msgid "Cannot make a breakpoint at an unknown code location -- ~S."
+msgstr ""
+"Annotcay akemay away eakpointbray atway anway unknownway odecay ocationlay "
+"-- ~S."
+
+#: target:code/debug-int.lisp
+msgid "Breakpoints in interpreted code are currently unsupported."
+msgstr ""
+"Eakpointsbray inway interpretedway odecay areway urrentlycay unsupportedway."
+
+#: target:code/debug-int.lisp
+msgid ""
+":FUNCTION-END breakpoints are currently unsupported ~\n"
+"\t\t       for the known return convention."
+msgstr ""
+":FUNCTION-END eakpointsbray areway urrentlycay unsupportedway ~\n"
+"\t\t       orfay ethay nownkay eturnray onventioncay."
+
+#: target:code/debug-int.lisp
+msgid ""
+":function-end breakpoints are currently unsupported ~\n"
+"\t     for interpreted-debug-functions."
+msgstr ""
+":unctionfay-endway eakpointsbray areway urrentlycay unsupportedway ~\n"
+"\t     orfay interpretedway-ebugday-unctionsfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This takes a function-end-cookie and a frame, and it returns whether the\n"
+"   cookie is still valid.  A cookie becomes invalid when the frame that\n"
+"   established the cookie has exited.  Sometimes cookie holders are unaware\n"
+"   of cookie invalidation because their :function-end breakpoint hooks "
+"didn't\n"
+"   run due to THROW'ing.  This takes a frame as an efficiency hack since "
+"the\n"
+"   user probably has a frame object in hand when using this routine, and it\n"
+"   saves repeated parsing of the stack and consing when asking whether a\n"
+"   series of cookies is valid."
+msgstr ""
+"Isthay akestay away unctionfay-endway-ookiecay andway away amefray, andway "
+"itway eturnsray etherwhay ethay\n"
+"   ookiecay isway tillsay alidvay.  Away ookiecay ecomesbay invalidway "
+"enwhay ethay amefray atthay\n"
+"   establishedway ethay ookiecay ashay exitedway.  Ometimessay ookiecay "
+"oldershay areway unawareway\n"
+"   ofway ookiecay invalidationway ecausebay eirthay :unctionfay-endway "
+"eakpointbray ookshay idnday't\n"
+"   unray ueday otay THROW'ingway.  Isthay akestay away amefray asway anway "
+"efficiencyway ackhay incesay ethay\n"
+"   userway obablypray ashay away amefray objectway inway andhay enwhay "
+"usingway isthay outineray, andway itway\n"
+"   avessay epeatedray arsingpay ofway ethay tacksay andway onsingcay enwhay "
+"askingway etherwhay away\n"
+"   eriessay ofway ookiescay isway alidvay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This causes the system to invoke the breakpoint's hook-function until the\n"
+"   next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system "
+"invokes\n"
+"   breakpoint hook functions in the opposite order that you activate them."
+msgstr ""
+"Isthay ausescay ethay ystemsay otay invokeway ethay eakpointbray's ookhay-"
+"unctionfay untilway ethay\n"
+"   extnay allcay otay DEACTIVATE-BREAKPOINT orway DELETE-BREAKPOINT.  Ethay "
+"ystemsay invokesway\n"
+"   eakpointbray ookhay unctionsfay inway ethay oppositeway orderway atthay "
+"ouyay activateway emthay."
+
+#: target:code/debug-int.lisp
+msgid "Cannot activate a deleted breakpoint -- ~S."
+msgstr "Annotcay activateway away eletedday eakpointbray -- ~S."
+
+#: target:code/debug-int.lisp
+msgid "I don't know how you made this, but they're unsupported -- ~S"
+msgstr ""
+"Iway onday't nowkay owhay ouyay ademay isthay, utbay eythay'eray "
+"unsupportedway -- ~S"
+
+#: target:code/debug-int.lisp
+msgid "This stops the system from invoking the breakpoint's hook-function."
+msgstr ""
+"Isthay topssay ethay ystemsay omfray invokingway ethay eakpointbray's ookhay-"
+"unctionfay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns the user maintained info associated with breakpoint.  This\n"
+"   is SETF'able."
+msgstr ""
+"Isthay eturnsray ethay userway aintainedmay infoway associatedway ithway "
+"eakpointbray.  Isthay\n"
+"   isway SETF'ableway."
+
+#: target:code/debug-int.lisp
+msgid "This returns whether breakpoint is currently active."
+msgstr "Isthay eturnsray etherwhay eakpointbray isway urrentlycay activeway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This frees system storage and removes computational overhead associated "
+"with\n"
+"   breakpoint.  After calling this, breakpoint is completely impotent and "
+"can\n"
+"   never become active again."
+msgstr ""
+"Isthay eesfray ystemsay toragesay andway emovesray omputationalcay "
+"overheadway associatedway ithway\n"
+"   eakpointbray.  Afterway allingcay isthay, eakpointbray isway ompletelycay "
+"impotentway andway ancay\n"
+"   evernay ecomebay activeway againway."
+
+#: target:code/debug-int.lisp
+msgid "Unknown breakpoint in ~S at offset ~S."
+msgstr "Unknownway eakpointbray inway ~S atway offsetway ~S."
+
+#: target:code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr "Eakpointbray atthay obodynay antsway?"
+
+#: target:code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr "BREAKPOINT-DO-DISPLACED-INST eturnedray?"
+
+#: target:code/debug-int.lisp
+msgid ""
+"Make a bogus LRA object that signals a breakpoint trap when returned to.  "
+"If\n"
+"   the breakpoint trap handler returns, REAL-LRA is returned to.  Three "
+"values\n"
+"   are returned: the bogus LRA object, the code component it is part of, "
+"and\n"
+"   the PC offset for the trap instruction."
+msgstr ""
+"Akemay away ogusbay LRA objectway atthay ignalssay away eakpointbray aptray "
+"enwhay eturnedray otay.  Ifway\n"
+"   ethay eakpointbray aptray andlerhay eturnsray, REAL-LRA isway eturnedray "
+"otay.  Reethay aluesvay\n"
+"   areway eturnedray: ethay ogusbay LRA objectway, ethay odecay omponentcay "
+"itway isway artpay ofway, andway\n"
+"   ethay PC offsetway orfay ethay aptray instructionway."
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this remotely in the slave to set breakpoints.  Package is\n"
+"   the string name of a package or nil, and name-str is a string "
+"representing a\n"
+"   function name (for example, \"foo\" or \"(setf foo)\").  After finding\n"
+"   package, this READs name-str with *package* bound appropriately.  Path "
+"is\n"
+"   either a modified source-path or a symbol (:function-start or\n"
+"   :function-end).  If it is a modified source-path, it has no top-level-"
+"form\n"
+"   offset or form-number component, and it is in descent order from the root "
+"of\n"
+"   the top-level form."
+msgstr ""
+"Ethay editorway allscay isthay emotelyray inway ethay aveslay otay etsay "
+"eakpointsbray.  Ackagepay isway\n"
+"   ethay ingstray amenay ofway away ackagepay orway ilnay, andway amenay-"
+"trsay isway away ingstray epresentinrayg away\n"
+"   unctionfay amenay (orfay exampleway, \"oofay\" orway \"(etfsay oofay)"
+"\").  Afterway indingfay\n"
+"   ackagepay, isthay Eadsray amenay-trsay ithway *package* oundbay "
+"appropriatelyway.  Athpay isway\n"
+"   eitherway away odifiedmay ourcesay-athpay orway away ymbolsay (:"
+"unctionfay-tartsay orway\n"
+"   :unctionfay-endway).  Ifway itway isway away odifiedmay ourcesay-athpay, "
+"itway ashay onay optay-evellay-orfaym\n"
+"   offsetway orway ormfay-umbernay omponentcay, andway itway isway inway "
+"escentday orderway omfray ethay ootray ofway\n"
+"   ethay optay-evellay ormfay."
+
+#: target:code/debug-int.lisp
+msgid "Editor installed breakpoint."
+msgstr "Editorway installedway eakpointbray."
+
+#: target:code/debug-int.lisp
+msgid "We don't currently support breakpoints in interpreted code."
+msgstr ""
+"Eway onday't urrentlycay upportsay eakpointsbray inway interpretedway odecay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%Cannot set breakpoints for editor when source file no ~\n"
+"\t\t    longer exists:~%  ~A."
+msgstr ""
+"~%Annotcay etsay eakpointsbray orfay editorway enwhay ourcesay ilefay onay "
+"~\n"
+"\t\t    ongerlay existsway:~%  ~Away."
+
+#: target:code/debug-int.lisp
+msgid ""
+"Cannot set breakpoints for editor when ~\n"
+"\t\t\t\t   there is no start positions map."
+msgstr ""
+"Annotcay etsay eakpointsbray orfay editorway enwhay ~\n"
+"\t\t\t\t   erethay isway onay tartsay ositionspay apmay."
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%While setting a breakpoint for the editor, noticed ~\n"
+"\t\t\tsource file has been modified since compilation:~%  ~A~@\n"
+"\t\t\tUsing form offset instead of character position.~%"
+msgstr ""
+"~%Ilewhay ettingsay away eakpointbray orfay ethay editorway, oticednay ~\n"
+"\t\t\tourcesay ilefay ashay eenbay odifiedmay incesay ompilationcay:~%  "
+"~Away~@\n"
+"\t\t\tUsingway ormfay offsetway insteadway ofway aracterchay ositionpay.~%"
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this in the slave with a remote-object representing a\n"
+"   code-location to set a breakpoint."
+msgstr ""
+"Ethay editorway allscay isthay inway ethay aveslay ithway away emoteray-"
+"objectway epresentingray away\n"
+"   odecay-ocationlay otay etsay away eakpointbray."
+
+#: target:code/debug-int.lisp
+msgid "The editor calls this remotely in the slave to delete a breakpoint."
+msgstr ""
+"Ethay editorway allscay isthay emotelyray inway ethay aveslay otay eleteday "
+"away eakpointbray."
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a code-location before the body of a function and after all\n"
+"   the arguments are in place.  If this cannot determine that location due "
+"to\n"
+"   a lack of debug information, it returns nil."
+msgstr ""
+"Isthay eturnsray away odecay-ocationlay eforebay ethay odybay ofway away "
+"unctionfay andway afterway allway\n"
+"   ethay argumentsway areway inway aceplay.  Ifway isthay annotcay "
+"etermineday atthay ocationlay ueday otay\n"
+"   away acklay ofway ebugday informationway, itway eturnsray ilnay."
+
+#: target:code/debug-int.lisp
+msgid "~S code location at ~D"
+msgstr "~S odecay ocationlay atway ~D"
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LEVEL* is bound to this value when debug prints a function call.  If\n"
+"  null, use *PRINT-LEVEL*"
+msgstr ""
+"*PRINT-LEVEL* isway oundbay otay isthay aluevay enwhay ebugday intspray away "
+"unctionfay allcay.  Ifway\n"
+"  ullnay, useway *PRINT-LEVEL*"
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LENGTH* is bound to this value when debug prints a function call.  "
+"If\n"
+"  null, use *PRINT-LENGTH*."
+msgstr ""
+"*PRINT-LENGTH* isway oundbay otay isthay aluevay enwhay ebugday intspray "
+"away unctionfay allcay.  Ifway\n"
+"  ullnay, useway *PRINT-LENGTH*."
+
+#: target:code/debug.lisp
+msgid ""
+"default value for the verbose argument to print-frame-call.  If set to >= 2, "
+"source will be printed for all frames"
+msgstr ""
+"efaultday aluevay orfay ethay erbosevay argumentway otay intpray-amefray-"
+"allcay.  Ifway etsay otay >= 2, ourcesay illway ebay intedpray orfay allway "
+"amesfray"
+
+#: target:code/debug.lisp
+msgid "This is T while in the debugger."
+msgstr "Isthay isway T ilewhay inway ethay ebuggerday."
+
+#: target:code/debug.lisp
+msgid "Pushes and pops/exits inside the debugger change this."
+msgstr ""
+"Ushespay andway opspay/exitsway insideway ethay ebuggerday angechay isthay."
+
+#: target:code/debug.lisp
+msgid ""
+"If this is bound before the debugger is invoked, it is used as the stack\n"
+"   top by the debugger."
+msgstr ""
+"Ifway isthay isway oundbay eforebay ethay ebuggerday isway invokedway, itway "
+"isway usedway asway ethay tacksay\n"
+"   optay ybay ethay ebuggerday."
+
+#: target:code/debug.lisp
+msgid ""
+"This is a function of no arguments that prints the debugger prompt\n"
+"   on *debug-io*."
+msgstr ""
+"Isthay isway away unctionfay ofway onay argumentsway atthay intspray ethay "
+"ebuggerday omptpray\n"
+"   onway *debug-io*."
+
+#: target:code/debug.lisp
+msgid ""
+"\n"
+"The prompt is right square brackets, the number indicating how many\n"
+"  recursive command loops you are in.\n"
+"Debug commands do not affect * and friends, but evaluation in the debug "
+"loop\n"
+"  do affect these variables.\n"
+"Any command may be uniquely abbreviated.\n"
+"\n"
+"Getting in and out of DEBUG:\n"
+"  Q        throws to top level.\n"
+"  GO       calls CONTINUE which tries to proceed with the restart "
+"'continue.\n"
+"  RESTART  invokes restart numbered as shown (prompt if not given).\n"
+"  ERROR    prints the error condition and restart cases.\n"
+"  FLUSH    toggles *flush-debug-errors*, which is initially t.\n"
+" \n"
+"  The name of any restart, or its number, is a valid command, and is the "
+"same\n"
+"    as using RESTART to invoke that restart.\n"
+"\n"
+"Changing frames:\n"
+"  U  up frame        D  down frame       T  top frame       B  bottom frame\n"
+"\n"
+"  F n   goes to frame n.\n"
+"\n"
+"Inspecting frames:\n"
+"  BACKTRACE [n]  shows n frames going down the stack.\n"
+"  L [prefix]     lists locals starting with the given prefix in current "
+"function.\n"
+"  P              displays current function call.\n"
+"  PP             verbose display of current function, with source.\n"
+"  SOURCE [n]     displays frame's source form with n levels of enclosing "
+"forms.\n"
+"  VSOURCE [n]    displays frame's source form without any ellipsis.\n"
+"  DESCRIBE       describe the current function.\n"
+"\n"
+"Breakpoints and steps:\n"
+"  LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.\n"
+"    Specify :c for the current frame.  Abbreviation: LL\n"
+"  LIST-BREAKPOINTS                  list the active breakpoints.\n"
+"    Abbreviations: LB, LBP\n"
+"  DELETE-BREAKPOINT [n]             remove breakpoint n or all breakpoints.\n"
+"    Abbreviations: DEL, DBP    \n"
+"  BREAKPOINT {n | :end | :start} [:break form] [:function function]\n"
+"    [{:print form}*] [:condition form]    set a breakpoint.\n"
+"    Abbreviations: BR, BP\n"
+"  STEP [n]                          step to the next location or step n "
+"times.\n"
+"\n"
+"Actions on frames:\n"
+"  DEBUG-RETURN expression\n"
+"    returns expression's values from the current frame, exiting the "
+"debugger.\n"
+"    Abbreviations: R\n"
+"\n"
+"Variables:\n"
+"  (DEBUG:VAR name [id])   Returns variable's value if possible.  If "
+"multiple\n"
+"                          variables with the same name exist, use id to "
+"select\n"
+"                          one\n"
+"  (DEBUG:ARG n)           Returns the n'th argument's value if possible.\n"
+"                          Argument zero is the first argument.\n"
+"\n"
+"See the CMU Common Lisp User's Manual for more information.\n"
+msgstr ""
+"\n"
+"Ethay omptpray isway ightray quaresay acketsbray, ethay umbernay "
+"indicatingway owhay anymay\n"
+"  ecursiveray ommandcay oopslay ouyay areway inway.\n"
+"Ebugday ommandscay oday otnay affectway * andway iendsfray, utbay "
+"evaluationway inway ethay ebugday ooplay\n"
+"  oday affectway esethay ariablesvay.\n"
+"Anyway ommandcay aymay ebay uniquelyway abbreviatedway.\n"
+"\n"
+"Ettinggay inway andway outway ofway DEBUG:\n"
+"  Q        rowsthay otay optay evellay.\n"
+"  GO       allscay CONTINUE ichwhay iestray otay oceedpray ithway ethay "
+"estartray 'ontinuecay.\n"
+"  RESTART  invokesway estartray umberednay asway ownshay (omptpray ifway "
+"otnay ivengay).\n"
+"  ERROR    intspray ethay errorway onditioncay andway estartray asescay.\n"
+"  FLUSH    ogglestay *flush-debug-errors*, ichwhay isway initiallyway t.\n"
+" \n"
+"  Ethay amenay ofway anyway estartray, orway itsway umbernay, isway away "
+"alidvay ommandcay, andway isway ethay amesay\n"
+"    asway usingway RESTART otay invokeway atthay estartray.\n"
+"\n"
+"Angingchay amesfray:\n"
+"  U  upway amefray        D  ownday amefray       T  optay amefray       B  "
+"ottombay amefray\n"
+"\n"
+"  F n   oesgay otay amefray n.\n"
+"\n"
+"Inspectingway amesfray:\n"
+"  BACKTRACE [n]  owsshay n amesfray oinggay ownday ethay tacksay.\n"
+"  L [efixpray]     istslay ocalslay tartingsay ithway ethay ivengay efixpray "
+"inway urrentcay unctionfay.\n"
+"  P              isplaysday urrentcay unctionfay allcay.\n"
+"  PP             erbosevay isplayday ofway urrentcay unctionfay, ithway "
+"ourcesay.\n"
+"  SOURCE [n]     isplaysday amefray's ourcesay ormfay ithway n evelslay "
+"ofway enclosingway ormsfay.\n"
+"  VSOURCE [n]    isplaysday amefray's ourcesay ormfay ithoutway anyway "
+"ellipsisway.\n"
+"  DESCRIBE       escribeday ethay urrentcay unctionfay.\n"
+"\n"
+"Eakpointsbray andway tepssay:\n"
+"  LIST-LOCATIONS [{unctionfay | :c}]  istlay ethay ocationslay orfay "
+"eakpointsbray.\n"
+"    Ecifyspay :c orfay ethay urrentcay amefray.  Abbreviationway: LL\n"
+"  LIST-BREAKPOINTS                  istlay ethay activeway eakpointsbray.\n"
+"    Abbreviationsway: LB, LBP\n"
+"  DELETE-BREAKPOINT [n]             emoveray eakpointbray n orway allway "
+"eakpointsbray.\n"
+"    Abbreviationsway: DEL, DBP    \n"
+"  BREAKPOINT {n | :endway | :tartsay} [:eakbray ormfay] [:unctionfay "
+"unctionfay]\n"
+"    [{:intpray ormfay}*] [:onditioncay ormfay]    etsay away eakpointbray.\n"
+"    Abbreviationsway: BR, BP\n"
+"  STEP [n]                          tepsay otay ethay extnay ocationlay "
+"orway tepsay n imestay.\n"
+"\n"
+"Actionsway onway amesfray:\n"
+"  DEBUG-RETURN expressionway\n"
+"    eturnsray expressionway's aluesvay omfray ethay urrentcay amefray, "
+"exitingway ethay ebuggerday.\n"
+"    Abbreviationsway: R\n"
+"\n"
+"Ariablesvay:\n"
+"  (DEBUG:VAR amenay [idway])   Eturnsray ariablevay's aluevay ifway "
+"ossiblepay.  Ifway ultiplemay\n"
+"                          ariablesvay ithway ethay amesay amenay existway, "
+"useway idway otay electsay\n"
+"                          oneway\n"
+"  (DEBUG:ARG n)           Eturnsray ethay n'thay argumentway's aluevay ifway "
+"ossiblepay.\n"
+"                          Argumentway erozay isway ethay irstfay "
+"argumentway.\n"
+"\n"
+"Eesay ethay CMU Ommoncay Isplay Userway's Anualmay orfay oremay "
+"informationway.\n"
+
+#: target:code/debug.lisp
+msgid ""
+"When true, the LIST-LOCATIONS command only displays block start locations.\n"
+"   Otherwise, all locations are displayed."
+msgstr ""
+"Enwhay uetray, ethay LIST-LOCATIONS ommandcay onlyway isplaysday ockblay "
+"tartsay ocationslay.\n"
+"   Otherwiseway, allway ocationslay areway isplayedday."
+
+#: target:code/debug.lisp
+msgid "If true, list the code location type in the LIST-LOCATIONS command."
+msgstr ""
+"Ifway uetray, istlay ethay odecay ocationlay ypetay inway ethay LIST-"
+"LOCATIONS ommandcay."
+
+#: target:code/debug.lisp
+msgid "~%Unknown location: using block start.~%"
+msgstr "~%Unknownway ocationlay: usingway ockblay tartsay.~%"
+
+#: target:code/debug.lisp
+msgid "~&~S: ~S in ~S"
+msgstr "~&~S: ~S inway ~S"
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-START in ~S"
+msgstr "~&~S: FUNCTION-START inway ~S"
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-END in ~S"
+msgstr "~&~S: FUNCTION-END inway ~S"
+
+#: target:code/debug.lisp
+msgid "~%Return values: ~S"
+msgstr "~%Eturnray aluesvay: ~S"
+
+#: target:code/debug.lisp
+msgid "~&*Step (to a breakpoint)*"
+msgstr "~&step*ay (otay away eakpointbray)*"
+
+#: target:code/debug.lisp
+msgid "*Step*"
+msgstr "*Step*"
+
+#: target:code/debug.lisp
+msgid "~&*Breakpoint hit*"
+msgstr "~&breakpoint*ay it*hay"
+
+#: target:code/debug.lisp
+msgid "Error in main-hook-function: unknown breakpoint"
+msgstr "Errorway inway ainmay-ookhay-unctionfay: unknownway eakpointbray"
+
+#: target:code/debug.lisp
+msgid "Cannot step, in elsewhere code~%"
+msgstr "Annotcay tepsay, inway elsewhereway odecay~%"
+
+#: target:code/debug.lisp
+msgid ""
+"Currently only compiled code can be stepped.~%~\n"
+"                Trying to compile the passed form resulted in ~\n"
+"                the following error:~%  ~A"
+msgstr ""
+"Urrentlycay onlyway ompiledcay odecay ancay ebay teppedsay.~%~\n"
+"                Yingtray otay ompilecay ethay assedpay ormfay esultedray "
+"inway ~\n"
+"                ethay ollowingfay errorway:~%  ~Away"
+
+#: target:code/debug.lisp
+msgid "~2&Stepping the form~%  ~S~%"
+msgstr "~2&Teppingsay ethay ormfay~%  ~S~%"
+
+#: target:code/debug.lisp
+msgid "~&using the debugger.  Type HELP for help.~2%"
+msgstr "~&usingway ethay ebuggerday.  Ypetay HELP orfay elphay.~2%"
+
+#: target:code/debug.lisp
+msgid ""
+"STEP implements a debugging paradigm wherein the programmer is allowed\n"
+"   to step through the evaluation of a form.  We use the debugger's "
+"stepping\n"
+"   facility to step through an anonymous function containing only form.\n"
+"\n"
+"   Currently the stepping facility only supports stepping compiled code,\n"
+"   so step will try to compile the resultant anonymous function.  If this\n"
+"   fails, e.g. because it closes over a non-null lexical environment, an\n"
+"   error is signalled."
+msgstr ""
+"STEP implementsway away ebuggingday aradigmpay ereinwhay ethay ogrammerpray "
+"isway allowedway\n"
+"   otay tepsay roughthay ethay evaluationway ofway away ormfay.  Eway useway "
+"ethay ebuggerday's teppingsay\n"
+"   acilityfay otay tepsay roughthay anway anonymousway unctionfay "
+"ontainingcay onlyway ormfay.\n"
+"\n"
+"   Urrentlycay ethay teppingsay acilityfay onlyway upportssay teppingsay "
+"ompiledcay odecay,\n"
+"   osay tepsay illway ytray otay ompilecay ethay esultantray anonymousway "
+"unctionfay.  Ifway isthay\n"
+"   ailsfay, e.g. ecausebay itway osesclay overway away onnay-ullnay "
+"exicallay environmentway, anway\n"
+"   errorway isway ignalledsay."
+
+#: target:code/debug.lisp
+msgid ""
+"Show a listing of the call stack going down from the current frame.  In the\n"
+"   debugger, the current frame is indicated by the prompt.  Count is how "
+"many\n"
+"   frames to show."
+msgstr ""
+"Owshay away istinglay ofway ethay allcay tacksay oinggay ownday omfray ethay "
+"urrentcay amefray.  Inway ethay\n"
+"   ebuggerday, ethay urrentcay amefray isway indicatedway ybay ethay "
+"omptpray.  Ountcay isway owhay anymay\n"
+"   amesfray otay owshay."
+
+#: target:code/debug.lisp
+msgid "unavaliable-rest-arg"
+msgstr "unavaliableway-estray-argway"
+
+#: target:code/debug.lisp
+msgid "lambda-list-unavailable"
+msgstr "ambdalay-istlay-unavailableway"
+
+#: target:code/debug.lisp
+msgid "error printing object {~X}"
+msgstr "errorway intingpray objectway {~X}"
+
+#: target:code/debug.lisp
+msgid "unused-arg"
+msgstr "unusedway-argway"
+
+#: target:code/debug.lisp
+msgid "unavailable-arg"
+msgstr "unavailableway-argway"
+
+#: target:code/debug.lisp
+msgid "~%Source: "
+msgstr "~%Ourcesay: "
+
+#: target:code/debug.lisp
+msgid "Error finding source: ~A"
+msgstr "Errorway indingfay ourcesay: ~Away"
+
+#: target:code/debug.lisp
+msgid "Unable to display error condition~@[: ~A~]"
+msgstr "Unableway otay isplayday errorway onditioncay~@[: ~Away~]"
+
+#: target:code/debug.lisp
+msgid ""
+"This is either nil or a function of two arguments, a condition and the "
+"value\n"
+"   of *debugger-hook*.  This function can either handle the condition or "
+"return\n"
+"   which causes the standard debugger to execute.  The system passes the "
+"value\n"
+"   of this variable to the function because it binds *debugger-hook* to nil\n"
+"   around the invocation."
+msgstr ""
+"Isthay isway eitherway ilnay orway away unctionfay ofway wotay argumentsway, "
+"away onditioncay andway ethay aluevay\n"
+"   ofway *debugger-hook*.  Isthay unctionfay ancay eitherway andlehay ethay "
+"onditioncay orway eturnray\n"
+"   ichwhay ausescay ethay tandardsay ebuggerday otay executeway.  Ethay "
+"ystemsay assespay ethay aluevay\n"
+"   ofway isthay ariablevay otay ethay unctionfay ecausebay itway indsbay "
+"*debugger-hook* otay ilnay\n"
+"   aroundway ethay invocationway."
+
+#: target:code/debug.lisp
+msgid "~2&~A~%   [Condition of type ~S]~2&"
+msgstr "~2&~Away~%   [Onditioncay ofway ypetay ~S]~2&"
+
+#: target:code/debug.lisp
+msgid "The CMU Common Lisp debugger.  Type h for help."
+msgstr "Ethay CMU Ommoncay Isplay ebuggerday.  Ypetay h orfay elphay."
+
+#: target:code/debug.lisp
+msgid "~&Restarts:~%"
+msgstr "~&Estartsray:~%"
+
+#: target:code/debug.lisp
+msgid "~2&Debug  (type H for help)~2%"
+msgstr "~2&Ebugday  (ypetay H orfay elphay)~2%"
+
+#: target:code/debug.lisp
+msgid ""
+"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n"
+"   executing in the debugger.  The 'flush' command toggles this."
+msgstr ""
+"Enwhay etsay, avoidway allingcay INVOKE-DEBUGGER ecursivelyray enwhay "
+"errorsway occurway ilewhay\n"
+"   executingway inway ethay ebuggerday.  Ethay 'ushflay' ommandcay ogglestay "
+"isthay."
+
+#: target:code/debug.lisp
+msgid ""
+"When non-NIL, becomes the system *READTABLE* in the debugger\n"
+"   read-eval-print loop"
+msgstr ""
+"Enwhay onnay-NIL, ecomesbay ethay ystemsay *READTABLE* inway ethay "
+"ebuggerday\n"
+"   eadray-evalway-intpray ooplay"
+
+#: target:code/debug.lisp
+msgid "When non-NIL, print the current frame when entering the debugger."
+msgstr ""
+"Enwhay onnay-NIL, intpray ethay urrentcay amefray enwhay enteringway ethay "
+"ebuggerday."
+
+#: target:code/debug.lisp
+msgid "~&Error flushed ..."
+msgstr "~&Errorway ushedflay ..."
+
+#: target:code/debug.lisp
+msgid "Return to debug level ~D."
+msgstr "Eturnray otay ebugday evellay ~D."
+
+#: target:code/debug.lisp
+msgid "Unknown stream-command -- ~S."
+msgstr "Unknownway eamstray-ommandcay -- ~S."
+
+#: target:code/debug.lisp
+msgid "Ambiguous debugger command: ~S."
+msgstr "Ambiguousway ebuggerday ommandcay: ~S."
+
+#: target:code/debug.lisp
+msgid "~&Your command, ~S, is ambiguous:~%"
+msgstr "~&Ouryay ommandcay, ~S, isway ambiguousway:~%"
+
+#: target:code/debug.lisp
+msgid ""
+"When set (the default), evaluations in the debugger's command loop occur\n"
+"   relative to the current frame's environment without the need of debugger\n"
+"   forms that explicitly control this kind of evaluation."
+msgstr ""
+"Enwhay etsay (ethay efaultday), evaluationsway inway ethay ebuggerday's "
+"ommandcay ooplay occurway\n"
+"   elativeray otay ethay urrentcay amefray's environmentway ithoutway ethay "
+"eednay ofway ebuggerday\n"
+"   ormsfay atthay explicitlyway ontrolcay isthay indkay ofway evaluationway."
+
+#: target:code/debug.lisp
+msgid "Setting * to NIL -- was unbound marker."
+msgstr "Ettingsay * otay NIL -- asway unboundway arkermay."
+
+#: target:code/debug.lisp
+msgid "No known valid variables match ~S."
+msgstr "Onay nownkay alidvay ariablesvay atchmay ~S."
+
+#: target:code/debug.lisp
+msgid "Specification ambiguous:~%~{   ~A~%~}"
+msgstr "Ecificationspay ambiguousway:~%~{   ~Away~%~}"
+
+#: target:code/debug.lisp
+msgid "Invalid variable ID, ~D, should have been one of ~S."
+msgstr "Invalidway ariablevay ID, ~D, ouldshay avehay eenbay oneway ofway ~S."
+
+#: target:code/debug.lisp
+msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
+msgstr ""
+"Ecifyspay ariablevay ID otay isambiguateday ~S.  Useway oneway ofway ~S."
+
+#: target:code/debug.lisp
+msgid ""
+"Returns a variable's value if possible.  Name is a simple-string or symbol.\n"
+"   If it is a simple-string, it is an initial substring of the variable's "
+"name.\n"
+"   If name is a symbol, it has the same name and package as the variable "
+"whose\n"
+"   value this function returns.  If the symbol is uninterned, then the "
+"variable\n"
+"   has the same name as the symbol, but it has no package.\n"
+"\n"
+"   If name is the initial substring of variables with different names, then\n"
+"   this return no values after displaying the ambiguous names.  If name\n"
+"   determines multiple variables with the same name, then you must use the\n"
+"   optional id argument to specify which one you want.  If you left id\n"
+"   unspecified, then this returns no values after displaying the "
+"distinguishing\n"
+"   id values.\n"
+"\n"
+"   The result of this function is limited to the availability of variable\n"
+"   information.  This is SETF'able."
+msgstr ""
+"Eturnsray away ariablevay's aluevay ifway ossiblepay.  Amenay isway away "
+"implesay-ingstray orway ymbolsay.\n"
+"   Ifway itway isway away implesay-ingstray, itway isway anway initialway "
+"ubstringsay ofway ethay ariablevay's amenay.\n"
+"   Ifway amenay isway away ymbolsay, itway ashay ethay amesay amenay andway "
+"ackagepay asway ethay ariablevay osewhay\n"
+"   aluevay isthay unctionfay eturnsray.  Ifway ethay ymbolsay isway "
+"uninternedway, enthay ethay ariablevay\n"
+"   ashay ethay amesay amenay asway ethay ymbolsay, utbay itway ashay onay "
+"ackagepay.\n"
+"\n"
+"   Ifway amenay isway ethay initialway ubstringsay ofway ariablesvay ithway "
+"ifferentday amesnay, enthay\n"
+"   isthay eturnray onay aluesvay afterway isplayingday ethay ambiguousway "
+"amesnay.  Ifway amenay\n"
+"   eterminesday ultiplemay ariablesvay ithway ethay amesay amenay, enthay "
+"ouyay ustmay useway ethay\n"
+"   optionalway idway argumentway otay ecifyspay ichwhay oneway ouyay "
+"antway.  Ifway ouyay eftlay idway\n"
+"   unspecifiedway, enthay isthay eturnsray onay aluesvay afterway "
+"isplayingday ethay istinguishdayingway\n"
+"   idway aluesvay.\n"
+"\n"
+"   Ethay esultray ofway isthay unctionfay isway imitedlay otay ethay "
+"availabilityway ofway ariablevay\n"
+"   informationway.  Isthay isway SETF'ableway."
+
+#: target:code/debug.lisp
+msgid ""
+"Returns the n'th argument's value if possible.  Argument zero is the first\n"
+"   argument in a frame's default printed representation.  Count keyword/"
+"value\n"
+"   pairs as separate arguments."
+msgstr ""
+"Eturnsray ethay n'thay argumentway's aluevay ifway ossiblepay.  Argumentway "
+"erozay isway ethay irstfay\n"
+"   argumentway inway away amefray's efaultday intedpray epresentationray.  "
+"Ountcay eywordkay/aluvaye\n"
+"   airspay asway eparatesay argumentsway."
+
+#: target:code/debug.lisp
+msgid "No argument values are available."
+msgstr "Onay argumentway aluesvay areway availableway."
+
+#: target:code/debug.lisp
+msgid "Unused arguments have no values."
+msgstr "Unusedway argumentsway avehay onay aluesvay."
+
+#: target:code/debug.lisp
+msgid "Invalid argument value."
+msgstr "Invalidway argumentway aluevay."
+
+#: target:code/debug.lisp
+msgid "Argument specification out of range -- ~S."
+msgstr "Argumentway ecificationspay outway ofway angeray -- ~S."
+
+#: target:code/debug.lisp
+msgid "Unused rest-arg before n'th argument."
+msgstr "Unusedway estray-argway eforebay n'thay argumentway."
+
+#: target:code/debug.lisp
+msgid "Invalid rest-arg before n'th argument."
+msgstr "Invalidway estray-argway eforebay n'thay argumentway."
+
+#: target:code/debug.lisp
+msgid "Invoking debugger command while outside the debugger."
+msgstr "Invokingway ebuggerday ommandcay ilewhay outsideway ethay ebuggerday."
+
+#: target:code/debug.lisp
+msgid "Unknown debug command name -- ~S"
+msgstr "Unknownway ebugday ommandcay amenay -- ~S"
+
+#: target:code/debug.lisp
+msgid "~&Top of stack."
+msgstr "~&Optay ofway tacksay."
+
+#: target:code/debug.lisp
+msgid "~&Bottom of stack."
+msgstr "~&Ottombay ofway tacksay."
+
+#: target:code/debug.lisp
+msgid "Frame number: "
+msgstr "Amefray umbernay: "
+
+#: target:code/debug.lisp
+msgid "You are here."
+msgstr "Ouyay areway erehay."
+
+#: target:code/debug.lisp
+msgid "Bottom of stack encountered."
+msgstr "Ottombay ofway tacksay encounteredway."
+
+#: target:code/debug.lisp
+msgid "Top of stack encountered."
+msgstr "Optay ofway tacksay encounteredway."
+
+#: target:code/debug.lisp
+msgid "debug-return: "
+msgstr "ebugday-eturnray: "
+
+#: target:code/debug.lisp
+msgid ""
+"~@<can't find a tag for this frame ~\n"
+"                   ~2I~_(hint: try increasing the DEBUG optimization quality "
+"~\n"
+"                   and recompiling)~:@>"
+msgstr ""
+"~@<ancay't indfay away agtay orfay isthay amefray ~\n"
+"                   ~2Iway~_(inthay: ytray increasingway ethay DEBUG "
+"optimizationway alityquay ~\n"
+"                   andway ecompilingray)~:@>"
+
+#: target:code/debug.lisp
+msgid "No restart named continue."
+msgstr "Onay estartray amednay ontinuecay."
+
+#: target:code/debug.lisp
+msgid "Restart: "
+msgstr "Estartray: "
+
+#: target:code/debug.lisp
+msgid "~S is invalid as a restart name.~%"
+msgstr "~S isway invalidway asway away estartray amenay.~%"
+
+#: target:code/debug.lisp
+msgid "No such restart."
+msgstr "Onay uchsay estartray."
+
+#: target:code/debug.lisp
+msgid ""
+"This controls how many lines the debugger's help command prints before\n"
+"   printing a prompting line to continue with output."
+msgstr ""
+"Isthay ontrolscay owhay anymay ineslay ethay ebuggerday's elphay ommandcay "
+"intspray eforebay\n"
+"   intingpray away omptingpray inelay otay ontinuecay ithway outputway."
+
+#: target:code/debug.lisp
+msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
+msgstr "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
+
+#: target:code/debug.lisp
+msgid ""
+"No local variables ~@[starting with ~A ~]~\n"
+"\t               in function."
+msgstr ""
+"Onay ocallay ariablesvay ~@[tartingsay ithway ~Away ~]~\n"
+"\t               inway unctionfay."
+
+#: target:code/debug.lisp
+msgid ""
+"All variables ~@[starting with ~A ~]currently ~\n"
+"\t               have invalid values."
+msgstr ""
+"Allway ariablesvay ~@[tartingsay ithway ~Away ~]urrentlycay ~\n"
+"\t               avehay invalidway aluesvay."
+
+#: target:code/debug.lisp
+msgid "No variable information available."
+msgstr "Onay ariablevay informationway availableway."
+
+#: target:code/debug.lisp
+msgid "No start positions map."
+msgstr "Onay tartsay ositionspay apmay."
+
+#: target:code/debug.lisp
+msgid "Source file no longer exists:~%  ~A."
+msgstr "Ourcesay ilefay onay ongerlay existsway:~%  ~Away."
+
+#: target:code/debug.lisp
+msgid "~%; File: ~A~%"
+msgstr "~%; Ilefay: ~Away~%"
+
+#: target:code/debug.lisp
+msgid ""
+"~%; File has been modified since compilation:~%;   ~A~@\n"
+"\t\t ; Using form offset instead of character position.~%"
+msgstr ""
+"~%; Ilefay ashay eenbay odifiedmay incesay ompilationcay:~%;   ~Away~@\n"
+"\t\t ; Usingway ormfay offsetway insteadway ofway aracterchay ositionpay.~%"
+
+#: target:code/debug.lisp
+msgid "Couldn't continue."
+msgstr "Ouldncay't ontinuecay."
+
+#: target:code/debug.lisp
+msgid "::FUNCTION-START "
+msgstr "::FUNCTION-START "
+
+#: target:code/debug.lisp
+msgid " *Active*"
+msgstr " *Active*"
+
+#: target:code/debug.lisp
+msgid " *Continue here*"
+msgstr " continue*ay ere*hay"
+
+#: target:code/debug.lisp
+msgid "~&::FUNCTION-END *Active* "
+msgstr "~&::FUNCTION-END *Active* "
+
+#: target:code/debug.lisp
+msgid "Location number, :start, or :end: "
+msgstr "Ocationlay umbernay, :tartsay, orway :endway: "
+
+#: target:code/debug.lisp
+msgid "Note: previous breakpoint removed.~%"
+msgstr "Otenay: eviouspray eakpointbray emovedray.~%"
+
+#: target:code/debug.lisp
+msgid "~&Added."
+msgstr "~&Addedway."
+
+#: target:code/debug.lisp
+msgid "Breakpoint ~S removed.~%"
+msgstr "Eakpointbray ~S emovedray.~%"
+
+#: target:code/debug.lisp
+msgid "Breakpoint doesn't exist."
+msgstr "Eakpointbray oesnday't existway."
+
+#: target:code/debug.lisp
+msgid "All breakpoints deleted.~%"
+msgstr "Allway eakpointsbray eletedday.~%"
+
+#: target:code/debug.lisp
+msgid "Errors now flushed."
+msgstr "Errorsway ownay ushedflay."
+
+#: target:code/debug.lisp
+msgid "Errors now create nested debug levels."
+msgstr "Errorsway ownay eatecray estednay ebugday evelslay."
+
+#: target:code/debug.lisp
+msgid "Can't figure out the function for this frame."
+msgstr "Ancay't igurefay outway ethay unctionfay orfay isthay amefray."
+
+#: target:code/debug.lisp
+msgid ""
+"The debugger's EDIT-SOURCE command only works in slave Lisps ~\n"
+"\t    connected to a Hemlock editor."
+msgstr ""
+"Ethay ebuggerday's EDIT-SOURCE ommandcay onlyway orksway inway aveslay "
+"Ispslay ~\n"
+"\t    onnectedcay otay away Emlockhay editorway."
+
+#: target:code/query.lisp
+msgid ""
+"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n"
+"   until the user enters y or Y as an affirmative, or either n or N as a\n"
+"   negative answer.  It ignores preceding whitespace and asks again if you\n"
+"   enter any other characters."
+msgstr ""
+"Y-OR-N-P intspray ethay essagemay, ifway anyway, andway eadsray aracterschay "
+"omfray *QUERY-IO*\n"
+"   untilway ethay userway entersway y orway Y asway anway affirmativeway, "
+"orway eitherway n orway N asway away\n"
+"   egativenay answerway.  Itway ignoresway ecedingpray itespacewhay andway "
+"asksway againway ifway ouyay\n"
+"   enterway anyway otherway aracterschay."
+
+#: target:code/query.lisp
+msgid "Type \"y\" for yes or \"n\" for no. "
+msgstr "Ypetay \"y\" orfay esyay orway \"n\" orfay onay. "
+
+#: target:code/query.lisp
+msgid ""
+"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n"
+"   input buffer, beeps, and uses READ-LINE to get the strings \n"
+"   YES or NO."
+msgstr ""
+"YES-OR-NO-P isway imilarsay otay Y-OR-N-P, exceptway atthay itway earsclay "
+"ethay \n"
+"   inputway ufferbay, eepsbay, andway usesway READ-LINE otay etgay ethay "
+"ingsstray \n"
+"   YES orway NO."
+
+#: target:code/query.lisp
+msgid "Type \"yes\" for yes or \"no\" for no. "
+msgstr "Ypetay \"esyay\" orfay esyay orway \"onay\" orfay onay. "
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate an random state vector from the given SEED.  The seed can be\n"
+"  either an integer or a vector of (unsigned-byte 32)"
+msgstr ""
+"Enerategay anway andomray tatesay ectorvay omfray ethay ivengay SEED.  Ethay "
+"eedsay ancay ebay\n"
+"  eitherway anway integerway orway away ectorvay ofway (unsignedway-ytebay "
+"32)"
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Make a random state object.  If STATE is not supplied, return a copy\n"
+"  of the default random state.  If STATE is a random state, then return a\n"
+"  copy of it.  If STATE is T then return a random state generated from\n"
+"  the universal time or /dev/urandom if available."
+msgstr ""
+"Akemay away andomray tatesay objectway.  Ifway STATE isway otnay uppliedsay, "
+"eturnray away opycay\n"
+"  ofway ethay efaultday andomray tatesay.  Ifway STATE isway away andomray "
+"tatesay, enthay eturnray away\n"
+"  opycay ofway itway.  Ifway STATE isway T enthay eturnray away andomray "
+"tatesay eneratedgay omfray\n"
+"  ethay universalway imetay orway /evday/urandomway ifway availableway."
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
+msgstr "Argumentway isway otnay away RANDOM-STATE, T orway NIL: ~S"
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate a uniformly distributed pseudo-random number between zero\n"
+"  and Arg.  State, if supplied, is the random state to use."
+msgstr ""
+"Enerategay away uniformlyway istributedday seudopay-andomray umbernay "
+"etweenbay erozay\n"
+"  andway Argway.  Tatesay, ifway uppliedsay, isway ethay andomray tatesay "
+"otay useway."
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a positive integer or a positive float: ~S"
+msgstr ""
+"Argumentway isway otnay away ositivepay integerway orway away ositivepay "
+"oatflay: ~S"
+
+#: target:code/ntrace.lisp
+msgid ""
+"This is bound to the returned values when evaluating :BREAK-AFTER and\n"
+"   :PRINT-AFTER forms."
+msgstr ""
+"Isthay isway oundbay otay ethay eturnedray aluesvay enwhay evaluatingway :"
+"BREAK-AFTER andway\n"
+"   :PRINT-AFTER ormsfay."
+
+#: target:code/ntrace.lisp
+msgid ""
+"If the trace indentation exceeds this value, then indentation restarts at\n"
+"   0."
+msgstr ""
+"Ifway ethay acetray indentationway exceedsway isthay aluevay, enthay "
+"indentationway estartsray atway\n"
+"   0."
+
+#: target:code/ntrace.lisp
+msgid "The default value for the :ENCAPSULATE option to trace."
+msgstr ""
+"Ethay efaultday aluevay orfay ethay :ENCAPSULATE optionway otay acetray."
+
+#: target:code/ntrace.lisp
+msgid ""
+"List of package names.  Encapsulate functions from these packages\n"
+"   by default.  This should at least include the packages of functions\n"
+"   used by TRACE, directly or indirectly."
+msgstr ""
+"Istlay ofway ackagepay amesnay.  Encapsulateway unctionsfay omfray esethay "
+"ackagespay\n"
+"   ybay efaultday.  Isthay ouldshay atway eastlay includeway ethay "
+"ackagespay ofway unctionsfay\n"
+"   usedway ybay TRACE, irectlyday orway indirectlyway."
+
+#: target:code/ntrace.lisp
+msgid "Can't trace special form ~S."
+msgstr "Ancay't acetray ecialspay ormfay ~S."
+
+#: target:code/ntrace.lisp
+msgid "Breaking ~A traced call to ~S:"
+msgstr "Eakingbray ~Away acedtray allcay otay ~S:"
+
+#: target:code/ntrace.lisp
+msgid "~S returned"
+msgstr "~S eturnedray"
+
+#: target:code/ntrace.lisp
+msgid "Function ~S already TRACE'd, retracing it."
+msgstr "Unctionfay ~S alreadyway TRACE'd, etracingray itway."
+
+#: target:code/ntrace.lisp
+msgid "Tracing shared code for ~S:~%  ~S"
+msgstr "Acingtray aredshay odecay orfay ~S:~%  ~S"
+
+#: target:code/ntrace.lisp
+msgid "~S name is not a defined global function: ~S"
+msgstr "~S amenay isway otnay away efinedday obalglay unctionfay: ~S"
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace anonymous function ~S."
+msgstr ""
+"Ancay't useway encapsulationway otay acetray anonymousway unctionfay ~S."
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace local flet/labels function ~S."
+msgstr ""
+"Ancay't useway encapsulationway otay acetray ocallay etflay/abelslay "
+"unctionfay ~S."
+
+#: target:code/ntrace.lisp
+msgid "Missing argument to ~S TRACE option."
+msgstr "Issingmay argumentway otay ~S TRACE optionway."
+
+#: target:code/ntrace.lisp
+msgid "Unknown TRACE option: ~S"
+msgstr "Unknownway TRACE optionway: ~S"
+
+#: target:code/ntrace.lisp
+msgid ""
+"TRACE {Option Global-Value}* {Name {Option Value}*}*\n"
+"   TRACE is a debugging tool that prints information when specified "
+"functions\n"
+"   are called.  In its simplest form:\n"
+"       (trace Name-1 Name-2 ...)\n"
+"\n"
+"   CLOS methods can be traced by specifying a name of the form\n"
+"   (METHOD {Qualifier}* ({Specializer}*)).\n"
+"\n"
+"   Labels and Flet functions can be traced by specifying a name of the form\n"
+"   (LABELS <lfun> <fun>) or (FLET <lfun> <fun>) where <lfun> is the Labels/"
+"Flet\n"
+"   function in <fun>.\n"
+"\n"
+"   TRACE causes a printout on *TRACE-OUTPUT* each time that one of the "
+"named\n"
+"   functions is entered or returns (the Names are not evaluated.)  The "
+"output\n"
+"   is indented according to the number of pending traced calls, and this "
+"trace\n"
+"   depth is printed at the beginning of each line of output.\n"
+"\n"
+"   Options allow modification of the default behavior.  Each option is a "
+"pair\n"
+"   of an option keyword and a value form.  Options may be interspersed with\n"
+"   function names.  Options only affect tracing of the function whose name "
+"they\n"
+"   appear immediately after.  Global options are specified before the first\n"
+"   name, and affect all functions traced by a given use of TRACE.\n"
+"\n"
+"   The following options are defined:\n"
+"\n"
+"   :CONDITION Form\n"
+"   :CONDITION-AFTER Form\n"
+"   :CONDITION-ALL Form\n"
+"       If :CONDITION is specified, then TRACE does nothing unless Form\n"
+"       evaluates to true at the time of the call.  :CONDITION-AFTER is\n"
+"       similar, but suppresses the initial printout, and is tested when the\n"
+"       function returns.  :CONDITION-ALL tries both before and after.\n"
+"\n"
+"   :WHEREIN Names\n"
+"       If specified, Names is a function name or list of names.  TRACE does\n"
+"       nothing unless a call to one of those functions encloses the call to\n"
+"       this function (i.e. it would appear in a backtrace.)  Anonymous\n"
+"       functions have string names like \"DEFUN FOO\".\n"
+"   :WHEREIN-ONLY Names\n"
+"       Like :WHEREIN, but only if the immediate caller is one of Names,\n"
+"       instead of being any where in a backtrace.\n"
+"\n"
+"   :BREAK Form\n"
+"   :BREAK-AFTER Form\n"
+"   :BREAK-ALL Form\n"
+"       If specified, and Form evaluates to true, then the debugger is "
+"invoked\n"
+"       at the start of the function, at the end of the function, or both,\n"
+"       according to the respective option.\n"
+"\n"
+"   :PRINT Form\n"
+"   :PRINT-AFTER Form\n"
+"   :PRINT-ALL Form\n"
+"       In addition to the usual printout, the result of evaluating FORM is\n"
+"       printed at the start of the function, at the end of the function, or\n"
+"       both, according to the respective option.  Multiple print options "
+"cause\n"
+"       multiple values to be printed.\n"
+"\n"
+"   :FUNCTION Function-Form\n"
+"       This is a not really an option, but rather another way of specifying\n"
+"       what function to trace.  The Function-Form is evaluated immediately,\n"
+"       and the resulting function is traced.\n"
+"\n"
+"   :METHODS Function-Form\n"
+"       This is a not really an option, but rather a way of specifying\n"
+"       that all methods of a generic functions should be traced.  The\n"
+"       Function-Form is evaluated immediately, and the methods of the "
+"resulting\n"
+"       generic function are traced.\n"
+"\n"
+"   :ENCAPSULATE {:DEFAULT | T | NIL}\n"
+"       If T, the tracing is done via encapsulation (redefining the function\n"
+"       name) rather than by modifying the function.  :DEFAULT is the "
+"default,\n"
+"       and means to use encapsulation for interpreted functions and "
+"funcallable\n"
+"       instances, breakpoints otherwise.  When encapsulation is used, forms "
+"are\n"
+"       *not* evaluated in the function's lexical environment, but DEBUG:ARG "
+"can\n"
+"       still be used.\n"
+"\n"
+"   :CONDITION, :BREAK and :PRINT forms are evaluated in the lexical "
+"environment\n"
+"   of the called function; DEBUG:VAR and DEBUG:ARG can be used.  The -AFTER "
+"and\n"
+"   -ALL forms are evaluated in the null environment."
+msgstr ""
+"TRACE {Optionway Obalglay-Aluevay}* {Amenay {Optionway Aluevay}*}*\n"
+"   TRACE isway away ebuggingday ooltay atthay intspray informationway enwhay "
+"ecifiedspay unctionfays\n"
+"   areway alledcay.  Inway itsway implestsay ormfay:\n"
+"       (acetray Amenay-1 Amenay-2 ...)\n"
+"\n"
+"   CLOS ethodsmay ancay ebay acedtray ybay ecifyingspay away amenay ofway "
+"ethay ormfay\n"
+"   (METHOD {Alifierquay}* ({Ecializerspay}*)).\n"
+"\n"
+"   Abelslay andway Etflay unctionsfay ancay ebay acedtray ybay ecifyingspay "
+"away amenay ofway ethay ormfay\n"
+"   (LABELS <funlay> <unfay>) orway (FLET <funlay> <unfay>) erewhay <funlay> "
+"isway ethay Abelslay/Fetlay\n"
+"   unctionfay inway <unfay>.\n"
+"\n"
+"   TRACE ausescay away intoutpray onway *TRACE-OUTPUT* eachway imetay atthay "
+"oneway ofway ethay amednay\n"
+"   unctionsfay isway enteredway orway eturnsray (ethay Amesnay areway otnay "
+"evaluatedway.)  Ethay outputway\n"
+"   isway indentedway accordingway otay ethay umbernay ofway endingpay "
+"acedtray allscay, andway isthay acetray\n"
+"   epthday isway intedpray atway ethay eginningbay ofway eachway inelay "
+"ofway outputway.\n"
+"\n"
+"   Optionsway allowway odificationmay ofway ethay efaultday ehaviorbay.  "
+"Eachway optionway isway away airpay\n"
+"   ofway anway optionway eywordkay andway away aluevay ormfay.  Optionsway "
+"aymay ebay interspersedway ithway\n"
+"   unctionfay amesnay.  Optionsway onlyway affectway acingtray ofway ethay "
+"unctionfay osewhay amenay eythay\n"
+"   appearway immediatelyway afterway.  Obalglay optionsway areway "
+"ecifiedspay eforebay ethay irstfay\n"
+"   amenay, andway affectway allway unctionsfay acedtray ybay away ivengay "
+"useway ofway TRACE.\n"
+"\n"
+"   Ethay ollowingfay optionsway areway efinedday:\n"
+"\n"
+"   :CONDITION Ormfay\n"
+"   :CONDITION-AFTER Ormfay\n"
+"   :CONDITION-ALL Ormfay\n"
+"       Ifway :CONDITION isway ecifiedspay, enthay TRACE oesday othingnay "
+"unlessway Ormfay\n"
+"       evaluatesway otay uetray atway ethay imetay ofway ethay allcay.  :"
+"CONDITION-AFTER isway\n"
+"       imilarsay, utbay uppressessay ethay initialway intoutpray, andway "
+"isway estedtay enwhay ethay\n"
+"       unctionfay eturnsray.  :CONDITION-ALL iestray othbay eforebay andway "
+"afterway.\n"
+"\n"
+"   :WHEREIN Amesnay\n"
+"       Ifway ecifiedspay, Amesnay isway away unctionfay amenay orway istlay "
+"ofway amesnay.  TRACE oesday\n"
+"       othingnay unlessway away allcay otay oneway ofway osethay unctionsfay "
+"enclosesway ethay allcay otay\n"
+"       isthay unctionfay (i.e. itway ouldway appearway inway away "
+"acktracebay.)  Anonymousway\n"
+"       unctionsfay avehay ingstray amesnay ikelay \"DEFUN FOO\".\n"
+"   :WHEREIN-ONLY Amesnay\n"
+"       Ikelay :WHEREIN, utbay onlyway ifway ethay immediateway allercay "
+"isway oneway ofway Amesnay,\n"
+"       insteadway ofway eingbay anyway erewhay inway away acktracebay.\n"
+"\n"
+"   :BREAK Ormfay\n"
+"   :BREAK-AFTER Ormfay\n"
+"   :BREAK-ALL Ormfay\n"
+"       Ifway ecifiedspay, andway Ormfay evaluatesway otay uetray, enthay "
+"ethay ebuggerday isway invokedway\n"
+"       atway ethay tartsay ofway ethay unctionfay, atway ethay endway ofway "
+"ethay unctionfay, orway othbay,\n"
+"       accordingway otay ethay espectiveray optionway.\n"
+"\n"
+"   :PRINT Ormfay\n"
+"   :PRINT-AFTER Ormfay\n"
+"   :PRINT-ALL Ormfay\n"
+"       Inway additionway otay ethay usualway intoutpray, ethay esultray "
+"ofway evaluatingway FORM isway\n"
+"       intedpray atway ethay tartsay ofway ethay unctionfay, atway ethay "
+"endway ofway ethay unctionfay, orway\n"
+"       othbay, accordingway otay ethay espectiveray optionway.  Ultiplemay "
+"intpray optionsway ausecay\n"
+"       ultiplemay aluesvay otay ebay intedpray.\n"
+"\n"
+"   :FUNCTION Unctionfay-Ormfay\n"
+"       Isthay isway away otnay eallyray anway optionway, utbay atherray "
+"anotherway ayway ofway ecifyingspay\n"
+"       atwhay unctionfay otay acetray.  Ethay Unctionfay-Ormfay isway "
+"evaluatedway immediatelyway,\n"
+"       andway ethay esultingray unctionfay isway acedtray.\n"
+"\n"
+"   :METHODS Unctionfay-Ormfay\n"
+"       Isthay isway away otnay eallyray anway optionway, utbay atherray away "
+"ayway ofway ecifyingspay\n"
+"       atthay allway ethodsmay ofway away enericgay unctionsfay ouldshay "
+"ebay acedtray.  Ethay\n"
+"       Unctionfay-Ormfay isway evaluatedway immediatelyway, andway ethay "
+"ethodsmay ofway ethay esultingray\n"
+"       enericgay unctionfay areway acedtray.\n"
+"\n"
+"   :ENCAPSULATE {:DEFAULT | T | NIL}\n"
+"       Ifway T, ethay acingtray isway oneday iavay encapsulationway "
+"(edefiningray ethay unctionfay\n"
+"       amenay) atherray anthay ybay odifyingmay ethay unctionfay.  :DEFAULT "
+"isway ethay efaultday,\n"
+"       andway eansmay otay useway encapsulationway orfay interpretedway "
+"unctionsfay andway uncallafayeblay\n"
+"       instancesway, eakpointsbray otherwiseway.  Enwhay encapsulationway "
+"isway usedway, ormsfay areway\n"
+"       *not* evaluatedway inway ethay unctionfay's exicallay environmentway, "
+"utbay DEBUG:ARG ancay\n"
+"       tillsay ebay usedway.\n"
+"\n"
+"   :CONDITION, :BREAK andway :PRINT ormsfay areway evaluatedway inway ethay "
+"exicallay environmwayentway\n"
+"   ofway ethay alledcay unctionfay; DEBUG:VAR andway DEBUG:ARG ancay ebay "
+"usedway.  Ethay -AFTER andway\n"
+"   -ALL ormsfay areway evaluatedway inway ethay ullnay environmentway."
+
+#: target:code/ntrace.lisp
+msgid "Function is not TRACE'd -- ~S."
+msgstr "Unctionfay isway otnay TRACE'd -- ~S."
+
+#: target:code/ntrace.lisp
+msgid ""
+"Removes tracing from the specified functions.  With no args, untraces all\n"
+"   functions."
+msgstr ""
+"Emovesray acingtray omfray ethay ecifiedspay unctionsfay.  Ithway onay "
+"argsway, untracesway allway\n"
+"   unctionsfay."
+
+#: target:code/sort.lisp
+msgid ""
+"Destructively sorts sequence.  Predicate should returns non-Nil if\n"
+"   Arg1 is to precede Arg2."
+msgstr ""
+"Estructivelyday ortssay equencesay.  Edicatepray ouldshay eturnsray onnay-"
+"Ilnay ifway\n"
+"   Argway1 isway otay ecedepray Argway2."
+
+#: target:code/sort.lisp
+msgid "~S is not a sequence."
+msgstr "~S isway otnay away equencesay."
+
+#: 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 ""
+"Ethay equencessay Equencesay1 andway Equencesay2 areway estructivelyday "
+"ergedmay intoway\n"
+"   away equencesay ofway ypetay Esultray-Ypetay usingway ethay Edicatepray "
+"otay orderway ethay elementsway."
+
+#: target:code/time.lisp
+msgid ""
+"The number of internal time units that fit into a second.  See\n"
+"  Get-Internal-Real-Time and Get-Internal-Run-Time."
+msgstr ""
+"Ethay umbernay ofway internalway imetay unitsway atthay itfay intoway away "
+"econdsay.  Eesay\n"
+"  Etgay-Internalway-Ealray-Imetay andway Etgay-Internalway-Unray-Imetay."
+
+#: target:code/time.lisp
+msgid ""
+"Return the real time in the internal time format.  This is useful for\n"
+"  finding elapsed time.  See Internal-Time-Units-Per-Second."
+msgstr ""
+"Eturnray ethay ealray imetay inway ethay internalway imetay ormatfay.  "
+"Isthay isway usefulway orfay\n"
+"  indingfay elapsedway imetay.  Eesay Internalway-Imetay-Unitsway-Erpay-"
+"Econdsay."
+
+#: target:code/time.lisp
+msgid ""
+"Return the run time in the internal time format.  This is useful for\n"
+"  finding CPU usage."
+msgstr ""
+"Eturnray ethay unray imetay inway ethay internalway imetay ormatfay.  Isthay "
+"isway usefulway orfay\n"
+"  indingfay CPU usageway."
+
+#: target:code/time.lisp
+msgid ""
+"Returns a single integer for the current time of\n"
+"   day in universal time format."
+msgstr ""
+"Eturnsray away inglesay integerway orfay ethay urrentcay imetay ofway\n"
+"   ayday inway universalway imetay ormatfay."
+
+#: target:code/time.lisp
+msgid ""
+"Returns nine values specifying the current time as follows:\n"
+"   second, minute, hour, date, month, year, day of week (0 = Monday), T\n"
+"   (daylight savings times) or NIL (standard time), and timezone."
+msgstr ""
+"Eturnsray inenay aluesvay ecifyingspay ethay urrentcay imetay asway "
+"ollowsfay:\n"
+"   econdsay, inutemay, ourhay, ateday, onthmay, earyay, ayday ofway eekway "
+"(0 = Ondaymay), T\n"
+"   (aylightday avingssay imestay) orway NIL (tandardsay imetay), andway "
+"imezonetay."
+
+#: target:code/time.lisp
+msgid ""
+"Converts a universal-time to decoded time format returning the following\n"
+"   nine values: second, minute, hour, date, month, year, day of week (0 =\n"
+"   Monday), T (daylight savings time) or NIL (standard time), and timezone.\n"
+"   Completely ignores daylight-savings-time when time-zone is supplied."
+msgstr ""
+"Onvertscay away universalway-imetay otay ecodedday imetay ormatfay "
+"eturningray ethay ollowingfay\n"
+"   inenay aluesvay: econdsay, inutemay, ourhay, ateday, onthmay, earyay, "
+"ayday ofway eekway (0 =\n"
+"   Ondaymay), T (aylightday avingssay imetay) orway NIL (tandardsay imetay), "
+"andway imezonetay.\n"
+"   Ompletelycay ignoresway aylightday-avingssay-imetay enwhay imetay-onezay "
+"isway uppliedsay."
+
+#: target:code/time.lisp
+msgid ""
+"The time values specified in decoded format are converted to \n"
+"   universal time, which is returned."
+msgstr ""
+"Ethay imetay aluesvay ecifiedspay inway ecodedday ormatfay areway "
+"onvertedcay otay \n"
+"   universalway imetay, ichwhay isway eturnedray."
+
+#: target:code/time.lisp
+msgid "Evaluates the Form and prints timing information on *Trace-Output*."
+msgstr ""
+"Evaluatesway ethay Ormfay andway intspray imingtay informationway onway "
+"*Trace-Output*."
+
+#: target:code/time.lisp
+msgid ""
+"TIME form in a non-null environment, forced to interpret.~@\n"
+"\t       Compiling entire form will produce more accurate times."
+msgstr ""
+"TIME ormfay inway away onnay-ullnay environmentway, orcedfay otay "
+"interpretway.~@\n"
+"\t       Ompilingcay entireway ormfay illway oducepray oremay accurateway "
+"imestay."
+
+#: target:code/time.lisp
+msgid ""
+"Evaluation took:~%  ~\n"
+"\t\t     ~S seconds of real time~%  ~\n"
+"\t\t     ~S seconds of user run time~%  ~\n"
+"\t\t     ~S seconds of system run time~%  "
+msgstr ""
+"Evaluationway ooktay:~%  ~\n"
+"\t\t     ~S econdssay ofway ealray imetay~%  ~\n"
+"\t\t     ~S econdssay ofway userway unray imetay~%  ~\n"
+"\t\t     ~S econdssay ofway ystemsay unray imetay~%  "
+
+#: target:code/time.lisp
+msgid ""
+"~:D ~A cycle~%  ~\n"
+"\t\t     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgid_plural ""
+"~:D ~A cycles~%  ~\n"
+"\t\t     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgstr[0] ""
+"~:D ~Away yclecay~%  ~\n"
+"\t\t     ~@[[Unray imestay includeway ~S econdssay GC unray imetay]~%  ~]"
+msgstr[1] ""
+"~:D ~Away yclescay~%  ~\n"
+"\t\t     ~@[[Unray imestay includeway ~S econdssay GC unray imetay]~%  ~]"
+
+#: target:code/time.lisp
+msgid "~S page fault and~%  "
+msgid_plural "~S page faults and~%  "
+msgstr[0] "~S agepay aultfay andway~%  "
+msgstr[1] "~S agepay aultsfay andway~%  "
+
+#: target:code/time.lisp
+msgid "~:D byte consed.~%"
+msgid_plural "~:D bytes consed.~%"
+msgstr[0] "~:D ytebay onsedcay.~%"
+msgstr[1] "~:D ytesbay onsedcay.~%"
+
+#: target:code/weak.lisp
+msgid "Allocates and returns a weak pointer which points to OBJECT."
+msgstr ""
+"Allocatesway andway eturnsray away eakway ointerpay ichwhay ointspay otay "
+"OBJECT."
+
+#: target:code/weak.lisp
+msgid ""
+"If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n"
+"   If the referent of WEAK-POINTER has been garbage collected, returns\n"
+"   the values NIL and NIL."
+msgstr ""
+"Ifway WEAK-POINTER isway alidvay, eturnsray ethay aluevay ofway WEAK-POINTER "
+"andway T.\n"
+"   Ifway ethay eferentray ofway WEAK-POINTER ashay eenbay arbagegay "
+"ollectedcay, eturnsray\n"
+"   ethay aluesvay NIL andway NIL."
+
+#: target:code/weak.lisp
+msgid "Updates WEAK-POINTER to point to a new object."
+msgstr "Updatesway WEAK-POINTER otay ointpay otay away ewnay objectway."
+
+#: target:code/final.lisp
+msgid ""
+"Arrange for FUNCTION to be called when there are no more references to\n"
+"   OBJECT.  FUNCTION takes no arguments."
+msgstr ""
+"Arrangeway orfay FUNCTION otay ebay alledcay enwhay erethay areway onay "
+"oremay eferencesray otay\n"
+"   OBJECT.  FUNCTION akestay onay argumentsway."
+
+#: target:code/final.lisp
+msgid "Cancel any finalization registers for OBJECT."
+msgstr "Ancelcay anyway inalizationfay egistersray orfay OBJECT."
+
+#: target:code/describe.lisp
+msgid "Depth of recursive descriptions allowed."
+msgstr "Epthday ofway ecursiveray escriptionsday allowedway."
+
+#: target:code/describe.lisp
+msgid ""
+"If non-nil, descriptions may provide interpretations of information and\n"
+"  pointers to additional information.  Normally nil."
+msgstr ""
+"Ifway onnay-ilnay, escriptionsday aymay ovidepray interpretationsway ofway "
+"informationway andway\n"
+"  ointerspay otay additionalway informationway.  Ormallynay ilnay."
+
+#: target:code/describe.lisp
+msgid ""
+"*print-level* gets bound to this inside describe.  If null, use\n"
+"  *print-level*"
+msgstr ""
+"*print-level* etsgay oundbay otay isthay insideway escribeday.  Ifway "
+"ullnay, useway\n"
+"  *print-level*"
+
+#: target:code/describe.lisp
+msgid ""
+"*print-length* gets bound to this inside describe.  If null, use\n"
+"  *print-length*."
+msgstr ""
+"*print-length* etsgay oundbay otay isthay insideway escribeday.  Ifway "
+"ullnay, useway\n"
+"  *print-length*."
+
+#: target:code/describe.lisp
+msgid "Number of spaces that sets off each line of a recursive description."
+msgstr ""
+"Umbernay ofway acesspay atthay etssay offway eachway inelay ofway away "
+"ecursiveray escriptionday."
+
+#: target:code/describe.lisp
+msgid "Used to tell whether we are doing a recursive describe."
+msgstr ""
+"Usedway otay elltay etherwhay eway areway oingday away ecursiveray "
+"escribeday."
+
+#: target:code/describe.lisp
+msgid "Used to implement recursive description cutoff.  Don't touch."
+msgstr ""
+"Usedway otay implementway ecursiveray escriptionday utoffcay.  Onday't "
+"ouchtay."
+
+#: target:code/describe.lisp
+msgid "An output stream used by Describe for indenting and stuff."
+msgstr ""
+"Anway outputway eamstray usedway ybay Escribeday orfay indentingway andway "
+"tuffsay."
+
+#: target:code/describe.lisp
+msgid ""
+"List of all objects describe within the current top-level call to describe."
+msgstr ""
+"Istlay ofway allway objectsway escribeday ithinway ethay urrentcay optay-"
+"evellay allcay otay escribeday."
+
+#: target:code/describe.lisp
+msgid "The last object passed to describe."
+msgstr "Ethay astlay objectway assedpay otay escribeday."
+
+#: target:code/describe.lisp
+msgid "Prints a description of the object X."
+msgstr "Intspray away escriptionday ofway ethay objectway X."
+
+#: target:code/describe.lisp
+msgid "*describe-level* should be a nonnegative integer - ~A."
+msgstr "*describe-level* ouldshay ebay away onnegativenay integerway - ~Away."
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~S."
+msgstr "~&~S isway away ~S."
+
+#: target:code/describe.lisp
+msgid "~&Its code is #x~4,'0x."
+msgstr "~&Itsway odecay isway #x~4,'0x."
+
+#: target:code/describe.lisp
+msgid "~&Its name is ~A."
+msgstr "~&Itsway amenay isway ~Away."
+
+#: target:code/describe.lisp
+msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
+msgstr ""
+"~&Itway isway away ~:[ighhay (eadinglay)~;owlay (ailingtray)~] urrogatesay "
+"aracterchay."
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~(~A~) of type ~A."
+msgstr "~&~S isway away ~(~Away~) ofway ypetay ~Away."
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~:[~;displaced ~]vector of length ~D."
+msgstr "~&~S isway away ~:[~;isplacedday ~]ectorvay ofway engthlay ~D."
+
+#: target:code/describe.lisp
+msgid "~&It has a fill pointer, currently ~d"
+msgstr "~&Itway ashay away illfay ointerpay, urrentlycay ~d"
+
+#: target:code/describe.lisp
+msgid "~&It has no fill pointer."
+msgstr "~&Itway ashay onay illfay ointerpay."
+
+#: target:code/describe.lisp
+msgid "~&~S is ~:[an~;a displaced~] array of rank ~A"
+msgstr "~&~S isway ~:[anway~;away isplacedday~] arrayway ofway ankray ~Away"
+
+#: target:code/describe.lisp
+msgid "~%Its dimensions are ~S."
+msgstr "~%Itsway imensionsday areway ~S."
+
+#: target:code/describe.lisp
+msgid "~&Its element type is specialized to ~S."
+msgstr "~&Itsway elementway ypetay isway ecializedspay otay ~S."
+
+#: target:code/describe.lisp
+msgid "~&It is adjustable."
+msgstr "~&Itway isway adjustableway."
+
+#: target:code/describe.lisp
+msgid "~&It is static."
+msgstr "~&Itway isway taticsay."
+
+#: target:code/describe.lisp
+msgid "~&It is a prime number."
+msgstr "~&Itway isway away imepray umbernay."
+
+#: target:code/describe.lisp
+msgid "~&It is a composite number."
+msgstr "~&Itway isway away ompositecay umbernay."
+
+#: target:code/describe.lisp
+msgid "~&Its components are ~S and ~S."
+msgstr "~&Itsway omponentscay areway ~S andway ~S."
+
+#: target:code/describe.lisp
+msgid "~&~S is an ~A hash table."
+msgstr "~&~S isway anway ~Away ashhay abletay."
+
+#: target:code/describe.lisp
+msgid "~&Its size is ~D buckets."
+msgstr "~&Itsway izesay isway ~D ucketsbay."
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-size is ~S."
+msgstr "~&Itsway ehashray-izesay isway ~S."
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-threshold is ~S."
+msgstr "~&Itsway ehashray-resholdthay isway ~S."
+
+#: target:pcl/env.lisp target:code/describe.lisp
+msgid "~&It currently holds ~d entries."
+msgstr "~&Itway urrentlycay oldshay ~d entriesway."
+
+#: target:code/describe.lisp
+msgid "~&It is weak ~A table."
+msgstr "~&Itway isway eakway ~Away abletay."
+
+#: target:code/describe.lisp
+msgid "~&~d symbols total: ~d internal and ~d external."
+msgstr "~&~d ymbolssay otaltay: ~d internalway andway ~d externalway."
+
+#: target:code/describe.lisp
+msgid "~&~@(~A documentation:~)~&  ~A"
+msgstr "~&~@(~Away ocumentationday:~)~&  ~Away"
+
+#: target:code/describe.lisp
+msgid "~&Its ~(~A~) argument types are:~%  ~S"
+msgstr "~&Itsway ~(~Away~) argumentway ypestay areway:~%  ~S"
+
+#: target:code/describe.lisp
+msgid "~&Its result type is:~%  ~S"
+msgstr "~&Itsway esultray ypetay isway:~%  ~S"
+
+#: target:code/describe.lisp
+msgid ""
+"~&It is currently declared ~(~A~);~\n"
+"\t\t ~:[no~;~] expansion is available."
+msgstr ""
+"~&Itway isway urrentlycay eclaredday ~(~Away~);~\n"
+"\t\t ~:[onay~;~] expansionway isway availableway."
+
+#: target:code/describe.lisp
+msgid "~&~@(~@[~A ~]arguments:~%~)"
+msgstr "~&~@(~@[~Away ~]argumentsway:~%~)"
+
+#: target:code/describe.lisp
+msgid "  There are no arguments."
+msgstr "  Erethay areway onay argumentsway."
+
+#: target:code/describe.lisp
+msgid "~&Its closure environment is:"
+msgstr "~&Itsway osureclay environmentway isway:"
+
+#: target:code/describe.lisp
+msgid "~&Its definition is:~%  ~S"
+msgstr "~&Itsway efinitionday isway:~%  ~S"
+
+#: target:code/describe.lisp
+msgid "~&On ~A it was compiled from:"
+msgstr "~&Onway ~Away itway asway ompiledcay omfray:"
+
+#: target:code/describe.lisp
+msgid "~&~A~%  Created: "
+msgstr "~&~Away~%  Eatedcray: "
+
+#: target:code/describe.lisp
+msgid "~&  Comment: ~A"
+msgstr "~&  Ommentcay: ~Away"
+
+#: target:code/describe.lisp
+msgid "  There is no argument information available."
+msgstr "  Erethay isway onay argumentway informationway availableway."
+
+#: target:code/describe.lisp
+msgid "Macro-function: ~S"
+msgstr "Acromay-unctionfay: ~S"
+
+#: target:code/describe.lisp
+msgid "Function: ~S"
+msgstr "Unctionfay: ~S"
+
+#: target:code/describe.lisp
+msgid "~S is a function."
+msgstr "~S isway away unctionfay."
+
+#: target:code/describe.lisp
+msgid "~&It is an unknown type of function."
+msgstr "~&Itway isway anway unknownway ypetay ofway unctionfay."
+
+#: target:code/describe.lisp
+msgid "~&~A is an ~A symbol in the ~A package."
+msgstr "~&~Away isway anway ~Away ymbolsay inway ethay ~Away ackagepay."
+
+#: target:code/describe.lisp
+msgid "~&~A is an uninterned symbol."
+msgstr "~&~Away isway anway uninternedway ymbolsay."
+
+#: target:code/describe.lisp
+msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
+msgstr ""
+"~&~@<Itway isway anway alienway atway #x~8,'0X ofway ypetay ~3Iway~:_~S.~:>~%"
+
+#: target:code/describe.lisp
+msgid "~@<Its current value is ~3I~:_~S.~:>"
+msgstr "~@<Itsway urrentcay aluevay isway ~3Iway~:_~S.~:>"
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A with expansion: ~S."
+msgstr "~&Itway isway away ~Away ithway expansionway: ~S."
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; its value is ~S."
+msgstr "~&Itway isway away ~Away; itsway aluevay isway ~S."
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; no current value."
+msgstr "~&Itway isway away ~Away; onay urrentcay aluevay."
+
+#: target:code/describe.lisp
+msgid "~&Its declared type is ~S."
+msgstr "~&Itsway eclaredday ypetay isway ~S."
+
+#: target:code/describe.lisp
+msgid "Special form"
+msgstr "Ecialspay ormfay"
+
+#: target:code/describe.lisp
+msgid "Structure"
+msgstr "Ucturestray"
+
+#: target:code/describe.lisp
+msgid "Type"
+msgstr "Ypetay"
+
+#: target:code/describe.lisp
+msgid "Setf macro"
+msgstr "Etfsay acromay"
+
+#: target:code/describe.lisp
+msgid "~&Documentation on the ~(~A~):~%~A"
+msgstr "~&Ocumentationday onway ethay ~(~Away~):~%~Away"
+
+#: target:code/describe.lisp
+msgid "~&It names a class ~A."
+msgstr "~&Itway amesnay away assclay ~Away."
+
+#: target:code/describe.lisp
+msgid "~&It names a PCL class ~A."
+msgstr "~&Itway amesnay away PCL assclay ~Away."
+
+#: target:code/describe.lisp
+msgid "~&It names a type specifier."
+msgstr "~&Itway amesnay away ypetay ecifierspay."
+
+#: target:code/describe.lisp
+msgid "~&Its ~S property is ~S."
+msgstr "~&Itsway ~S opertypray isway ~S."
+
+#: target:code/describe.lisp
+msgid "~&It is defined in:~&~A"
+msgstr "~&Itway isway efinedday inway:~&~Away"
+
+#: target:code/tty-inspect.lisp
+msgid "~%That slot is unbound.~%"
+msgstr "~%Atthay otslay isway unboundway.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "~%This object contains nothing to inspect.~%~%"
+msgstr "~%Isthay objectway ontainscay othingnay otay inspectway.~%~%"
+
+#: target:code/tty-inspect.lisp
+msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
+msgstr "~%Enterway away VALID umbernay (~:[0-~D~;0~]).~%~%"
+
+#: target:code/tty-inspect.lisp
+msgid "~%Bottom of Stack.~%"
+msgstr "~%Ottombay ofway Tacksay.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "~%Returning to INSPECTOR.~%"
+msgstr "~%Eturningray otay INSPECTOR.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "TTY-Inspector Help:"
+msgstr "TTY-Inspectorway Elphay:"
+
+#: target:code/tty-inspect.lisp
+msgid "  R           -  recompute current object."
+msgstr "  R           -  ecomputeray urrentcay objectway."
+
+#: target:code/tty-inspect.lisp
+msgid "  D           -  redisplay current object."
+msgstr "  D           -  edisplayray urrentcay objectway."
+
+#: target:code/tty-inspect.lisp
+msgid "  U           -  Move upward through the object stack."
+msgstr "  U           -  Ovemay upwardway roughthay ethay objectway tacksay."
+
+#: target:code/tty-inspect.lisp
+msgid "  <number>    -  Inspect this slot."
+msgstr "  <umbernay>    -  Inspectway isthay otslay."
+
+#: target:code/tty-inspect.lisp
+msgid "  Q, E        -  Quit TTY-INSPECTOR."
+msgstr "  Q, E        -  Itquay TTY-INSPECTOR."
+
+#: target:code/tty-inspect.lisp
+msgid "  ?, H, Help  -  Show this help."
+msgstr "  ?, H, Elphay  -  Owshay isthay elphay."
+
+#: target:code/tty-inspect.lisp
+msgid "Unbound"
+msgstr "Unboundway"
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a symbol.~%"
+msgstr "~s isway away ymbolsay.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "Value"
+msgstr "Aluevay"
+
+#: target:code/tty-inspect.lisp
+msgid "Function"
+msgstr "Unctionfay"
+
+#: target:code/tty-inspect.lisp
+msgid "Plist"
+msgstr "Istplay"
+
+#: target:code/tty-inspect.lisp
+msgid "Package"
+msgstr "Ackagepay"
+
+#: target:code/tty-inspect.lisp
+msgid "~s is an instance of ~s.~%"
+msgstr "~s isway anway instanceway ofway ~s.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "- (slot is unbound)"
+msgstr "- (otslay isway unboundway)"
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a ~(~A~).~%"
+msgstr "~s isway away ~(~Away~).~%"
+
+#: target:code/tty-inspect.lisp
+msgid "Function ~s.~@[~%Argument List: ~a~]."
+msgstr "Unctionfay ~s.~@[~%Argumentway Istlay: ~away~]."
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%"
+msgstr "Objectway isway away ~:[~;isplacedday ~]ectorvay ofway engthlay ~d.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a LIST of length ~d.~%"
+msgstr "Objectway isway away LIST ofway engthlay ~d.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a CONS.~%"
+msgstr "Objectway isway away CONS.~%"
+
+#: target:code/tty-inspect.lisp
+msgid ""
+"Object is ~:[a displaced~;an~] array of ~a.~%~\n"
+"                       Its dimensions are ~s.~%"
+msgstr ""
+"Objectway isway ~:[away isplacedday~;anway~] arrayway ofway ~away.~%~\n"
+"                       Itsway imensionsday areway ~s.~%"
+
+#: target:code/tty-inspect.lisp
+msgid "Object is an atom.~%"
+msgstr "Objectway isway anway atomway.~%"
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Universal-Time formats a string containing the time and date\n"
+"   given by universal-time in a common manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), :abbreviated (like :long but words\n"
+"   are abbreviated), :rfc1123 (conforming to RFC 1123), :government\n"
+"   (of the form \"XX Mon XX XX:XX:XX\"), or :iso8601 (conforming to\n"
+"   ISO 8601), which is the recommended way of printing date and time.\n"
+"   The keyword date-first, if nil, will print the time first instead of\n"
+"   the date (the default).  The print- keywords, if nil, inhibit the\n"
+"   printing of the obvious part of the time/date."
+msgstr ""
+"Ormatfay-Universalway-Imetay ormatsfay away ingstray ontainingcay ethay "
+"imetay andway ateday\n"
+"   ivengay ybay universalway-imetay inway away ommoncay annermay.  Ethay "
+"estinationday isway anyway\n"
+"   estinationday ichwhay ancay ebay acceptedway ybay ethay Ormatfay "
+"unctionfay.  Ethay\n"
+"   imezonetay eywordkay isway anway integerway ecifyingspay ourshay estway "
+"ofway Eenwichgray.\n"
+"   Ethay tylesay eywordkay ancay ebay :ortshay (umericnay ateday), :onglay "
+"(onthsmay andway\n"
+"   eekdaysway expressedway asway ordsway), :abbreviatedway (ikelay :onglay "
+"utbay ordsway\n"
+"   areway abbreviatedway), :fcray1123 (onformingcay otay RFC 1123), :"
+"overnmentgay\n"
+"   (ofway ethay ormfay \"XX Onmay XX XX:XX:XX\"), orway :isoway8601 "
+"(onformingcay otay\n"
+"   ISO 8601), ichwhay isway ethay ecommendedray ayway ofway intingpray "
+"ateday andway imetay.\n"
+"   Ethay eywordkay ateday-irstfay, ifway ilnay, illway intpray ethay imetay "
+"irstfay insteadway ofway\n"
+"   ethay ateday (ethay efaultday).  Ethay intpray- eywordskay, ifway ilnay, "
+"inhibitway ethay\n"
+"   intingpray ofway ethay obviousway artpay ofway ethay imetay/ateday."
+
+#: target:code/format-time.lisp
+msgid "~A: Not a valid format destination."
+msgstr "~Away: Otnay away alidvay ormatfay estinationday."
+
+#: target:code/format-time.lisp
+msgid "~A: Universal-Time should be an integer."
+msgstr "~Away: Universalway-Imetay ouldshay ebay anway integerway."
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be a rational between -24 and 24."
+msgstr ""
+"~Away: Imezonetay ouldshay ebay away ationalray etweenbay -24 andway 24."
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone is not a second (1/3600) multiple."
+msgstr "~Away: Imezonetay isway otnay away econdsay (1/3600) ultiplemay."
+
+#: target:code/format-time.lisp
+msgid "~A: Unrecognized :style keyword value."
+msgstr "~Away: Unrecognizedway :tylesay eywordkay aluevay."
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Decoded-Time formats a string containing decoded-time\n"
+"   expressed in a humanly-readable manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), or :abbreviated (like :long but words are\n"
+"   abbreviated).  The keyword date-first, if nil, will cause the time\n"
+"   to be printed first instead of the date (the default).  The print-\n"
+"   keywords, if nil, inhibit the printing of certain semi-obvious\n"
+"   parts of the string."
+msgstr ""
+"Ormatfay-Ecodedday-Imetay ormatsfay away ingstray ontainingcay ecodedday-"
+"imetay\n"
+"   expressedway inway away umanlyhay-eadableray annermay.  Ethay "
+"estinationday isway anyway\n"
+"   estinationday ichwhay ancay ebay acceptedway ybay ethay Ormatfay "
+"unctionfay.  Ethay\n"
+"   imezonetay eywordkay isway anway integerway ecifyingspay ourshay estway "
+"ofway Eenwichgray.\n"
+"   Ethay tylesay eywordkay ancay ebay :ortshay (umericnay ateday), :onglay "
+"(onthsmay andway\n"
+"   eekdaysway expressedway asway ordsway), orway :abbreviatedway (ikelay :"
+"onglay utbay ordsway areway\n"
+"   abbreviatedway).  Ethay eywordkay ateday-irstfay, ifway ilnay, illway "
+"ausecay ethay imetay\n"
+"   otay ebay intedpray irstfay insteadway ofway ethay ateday (ethay "
+"efaultday).  Ethay intpray-\n"
+"   eywordskay, ifway ilnay, inhibitway ethay intingpray ofway ertaincay "
+"emisay-obviousway\n"
+"   artspay ofway ethay ingstray."
+
+#: target:code/format-time.lisp
+msgid "~A: Seconds should be an integer between 0 and 59."
+msgstr "~Away: Econdssay ouldshay ebay anway integerway etweenbay 0 andway 59."
+
+#: target:code/format-time.lisp
+msgid "~A: Minutes should be an integer between 0 and 59."
+msgstr "~Away: Inutesmay ouldshay ebay anway integerway etweenbay 0 andway 59."
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an integer between 0 and 23."
+msgstr "~Away: Ourshay ouldshay ebay anway integerway etweenbay 0 andway 23."
+
+#: target:code/format-time.lisp
+msgid "~A: Day should be an integer between 1 and 31."
+msgstr "~Away: Ayday ouldshay ebay anway integerway etweenbay 1 andway 31."
+
+#: target:code/format-time.lisp
+msgid "~A: Month should be an integer between 1 and 12."
+msgstr "~Away: Onthmay ouldshay ebay anway integerway etweenbay 1 andway 12."
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an non-negative integer."
+msgstr "~Away: Ourshay ouldshay ebay anway onnay-egativenay integerway."
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be an integer between 0 and 32."
+msgstr ""
+"~Away: Imezonetay ouldshay ebay anway integerway etweenbay 0 andway 32."
+
+#: target:code/parse-time.lisp
+msgid ""
+"If t, an error will be signalled if parse-time is unable\n"
+"   to determine the time/date format of the string."
+msgstr ""
+"Ifway t, anway errorway illway ebay ignalledsay ifway arsepay-imetay isway "
+"unableway\n"
+"   otay etermineday ethay imetay/ateday ormatfay ofway ethay ingstray."
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized word or abbreviation."
+msgstr "\"~Away\" isway otnay away ecognizedray ordway orway abbreviationway."
+
+#: target:code/parse-time.lisp
+msgid ""
+"Can't parse time/date string.~%>>> ~A~\n"
+"\t\t\t\t   ~%~VT^-- Bogus character encountered here."
+msgstr ""
+"Ancay't arsepay imetay/ateday ingstray.~%>>> ~Away~\n"
+"\t\t\t\t   ~%~VT^-- Ogusbay aracterchay encounteredway erehay."
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol: ~A"
+msgstr "Unrecognizedway ymbolsay: ~Away"
+
+#: target:code/parse-time.lisp
+msgid "~D is not an AM hour, dummy."
+msgstr "~D isway otnay anway AM ourhay, ummyday."
+
+#: target:code/parse-time.lisp
+msgid "~A isn't AM/PM - this shouldn't happen."
+msgstr "~Away isnway't AM/PM - isthay ouldnshay't appenhay."
+
+#: target:code/parse-time.lisp
+msgid "Invalid number of days (~D) for month ~D in ~D"
+msgstr "Invalidway umbernay ofway aysday (~D) orfay onthmay ~D inway ~D"
+
+#: target:code/parse-time.lisp
+msgid "Ignore."
+msgstr "Ignoreway."
+
+#: target:code/parse-time.lisp
+msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
+msgstr ""
+"Ecifiedspay ayday (~@(~Away~)) oesnday't atchmay actualway ayday (~@(~Away~))"
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol in form list: ~A."
+msgstr "Unrecognizedway ymbolsay inway ormfay istlay: ~Away."
+
+#: target:code/parse-time.lisp
+msgid ""
+"Tries very hard to make sense out of the argument time-string and\n"
+"   returns a single integer representing the universal time if\n"
+"   successful.  If not, it returns nil.  If the :error-on-mismatch\n"
+"   keyword is true, parse-time will signal an error instead of\n"
+"   returning nil.  Default values for each part of the time/date\n"
+"   can be specified by the appropriate :default- keyword.  These\n"
+"   keywords can be given a numeric value or the keyword :current\n"
+"   to set them to the current value.  The default-default values\n"
+"   are 00:00:00 on the current date, current time-zone."
+msgstr ""
+"Iestray eryvay ardhay otay akemay ensesay outway ofway ethay argumentway "
+"imetay-ingstray andway\n"
+"   eturnsray away inglesay integerway epresentingray ethay universalway "
+"imetay ifway\n"
+"   uccessfulsay.  Ifway otnay, itway eturnsray ilnay.  Ifway ethay :errorway-"
+"onway-ismatchmay\n"
+"   eywordkay isway uetray, arsepay-imetay illway ignalsay anway errorway "
+"insteadway ofway\n"
+"   eturningray ilnay.  Efaultday aluesvay orfay eachway artpay ofway ethay "
+"imetay/ateday\n"
+"   ancay ebay ecifiedspay ybay ethay appropriateway :efaultday- eywordkay.  "
+"Esethay\n"
+"   eywordskay ancay ebay ivengay away umericnay aluevay orway ethay "
+"eywordkay :urrentcay\n"
+"   otay etsay emthay otay ethay urrentcay aluevay.  Ethay efaultday-"
+"efaultday aluesvay\n"
+"   areway 00:00:00 onway ethay urrentcay ateday, urrentcay imetay-onezay."
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized time/date format."
+msgstr "\"~Away\" isway otnay away ecognizedray imetay/ateday ormatfay."
+
+#: target:code/run-program.lisp
+msgid "Return any available status information on child processed. "
+msgstr ""
+"Eturnray anyway availableway tatussay informationway onway ildchay "
+"ocessedpray. "
+
+#: target:code/run-program.lisp
+msgid "List of process structures for all active processes."
+msgstr ""
+"Istlay ofway ocesspray ucturesstray orfay allway activeway ocessespray."
+
+#: target:code/run-program.lisp
+msgid ""
+"Return the current status of process.  The result is one of :running,\n"
+"   :stopped, :exited, :signaled."
+msgstr ""
+"Eturnray ethay urrentcay tatussay ofway ocesspray.  Ethay esultray isway "
+"oneway ofway :unningray,\n"
+"   :toppedsay, :exitedway, :ignaledsay."
+
+#: target:code/run-program.lisp
+msgid "Wait for PROC to quit running for some reason.  Returns PROC."
+msgstr ""
+"Aitway orfay PROC otay itquay unningray orfay omesay easonray.  Eturnsray "
+"PROC."
+
+#: target:code/run-program.lisp
+msgid "TIOCPGRP ioctl failed: ~S"
+msgstr "TIOCPGRP ioctlway ailedfay: ~S"
+
+#: target:code/run-program.lisp
+msgid ""
+"Hand SIGNAL to PROC.  If whom is :pid, use the kill Unix system call.  If\n"
+"   whom is :process-group, use the killpg Unix system call.  If whom is\n"
+"   :pty-process-group deliver the signal to whichever process group is "
+"currently\n"
+"   in the foreground."
+msgstr ""
+"Andhay SIGNAL otay PROC.  Ifway omwhay isway :idpay, useway ethay illkay "
+"Unixway ystemsay allcay.  Ifway\n"
+"   omwhay isway :ocesspray-oupgray, useway ethay illpgkay Unixway ystemsay "
+"allcay.  Ifway omwhay isway\n"
+"   :typay-ocesspray-oupgray eliverday ethay ignalsay otay icheverwhay "
+"ocesspray oupgray isway urrentlycay\n"
+"   inway ethay oregroundfay."
+
+#: target:code/run-program.lisp
+msgid "Returns T if the process is still alive, NIL otherwise."
+msgstr ""
+"Eturnsray T ifway ethay ocesspray isway tillsay aliveway, NIL otherwiseway."
+
+#: target:code/run-program.lisp
+msgid ""
+"Close all streams connected to PROC and stop maintaining the status slot."
+msgstr ""
+"Oseclay allway eamsstray onnectedcay otay PROC andway topsay aintainingmay "
+"ethay tatussay otslay."
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM exits due to an error."
+msgstr ""
+"Istlay ofway ilefay escriptorsday otay oseclay enwhay RUN-PROGRAM exitsway "
+"ueday otay anway errorway."
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM returns in the parent."
+msgstr ""
+"Istlay ofway ilefay escriptorsday otay oseclay enwhay RUN-PROGRAM eturnsray "
+"inway ethay arentpay."
+
+#: target:code/run-program.lisp
+msgid "List of handlers installed by RUN-PROGRAM."
+msgstr "Istlay ofway andlershay installedway ybay RUN-PROGRAM."
+
+#: target:code/run-program.lisp
+msgid "Returns the master fd, the slave fd, and the name of the tty"
+msgstr ""
+"Eturnsray ethay astermay dfay, ethay aveslay dfay, andway ethay amenay ofway "
+"ethay tytay"
+
+#: target:code/run-program.lisp
+msgid "Could not find a pty."
+msgstr "Ouldcay otnay indfay away typay."
+
+#: target:code/run-program.lisp
+msgid "Could not UNIX:UNIX-DUP ~D: ~A"
+msgstr "Ouldcay otnay UNIX:UNIX-DUP ~D: ~Away"
+
+#: target:code/run-program.lisp
+msgid ""
+"RUN-PROGRAM creates a new process and runs the unix program in the\n"
+"   file specified by the simple-string PROGRAM.  ARGS are the standard\n"
+"   arguments that can be passed to a Unix program, for no arguments\n"
+"   use NIL (which means just the name of the program is passed as arg 0).\n"
+"\n"
+"   RUN-PROGRAM will either return NIL or a PROCESS structure.  See the CMU\n"
+"   Common Lisp Users Manual for details about the PROCESS structure.\n"
+"\n"
+"   The keyword arguments have the following meanings:\n"
+"     :env -\n"
+"        An A-LIST mapping keyword environment variables to simple-string\n"
+"\tvalues.\n"
+"     :wait -\n"
+"        If non-NIL (default), wait until the created process finishes.  If\n"
+"        NIL, continue running Lisp until the program finishes.\n"
+"     :pty -\n"
+"        Either T, NIL, or a stream.  Unless NIL, the subprocess is "
+"established\n"
+"\tunder a PTY.  If :pty is a stream, all output to this pty is sent to\n"
+"\tthis stream, otherwise the PROCESS-PTY slot is filled in with a stream\n"
+"\tconnected to pty that can read output and write input.\n"
+"     :input -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the "
+"standard\n"
+"\tinput for the current process is inherited.  If NIL, /dev/null\n"
+"\tis used.  If a pathname, the file so specified is used.  If a stream,\n"
+"\tall the input is read from that stream and send to the subprocess.  If\n"
+"\t:STREAM, the PROCESS-INPUT slot is filled in with a stream that sends \n"
+"\tits output to the process. Defaults to NIL.\n"
+"     :if-input-does-not-exist (when :input is the name of a file) -\n"
+"        can be one of:\n"
+"           :error - generate an error.\n"
+"           :create - create an empty file.\n"
+"           nil (default) - return nil from run-program.\n"
+"     :output -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the "
+"standard\n"
+"\toutput for the current process is inherited.  If NIL, /dev/null\n"
+"\tis used.  If a pathname, the file so specified is used.  If a stream,\n"
+"\tall the output from the process is written to this stream. If\n"
+"\t:STREAM, the PROCESS-OUTPUT slot is filled in with a stream that can\n"
+"\tbe read to get the output. Defaults to NIL.\n"
+"     :if-output-exists (when :output is the name of a file) -\n"
+"        can be one of:\n"
+"           :error (default) - generates an error if the file already "
+"exists.\n"
+"           :supersede - output from the program supersedes the file.\n"
+"           :append - output from the program is appended to the file.\n"
+"           nil - run-program returns nil without doing anything.\n"
+"     :error and :if-error-exists - \n"
+"        Same as :output and :if-output-exists, except that :error can also "
+"be\n"
+"\tspecified as :output in which case all error output is routed to the\n"
+"\tsame place as normal output.\n"
+"     :status-hook -\n"
+"        This is a function the system calls whenever the status of the\n"
+"        process changes.  The function takes the process as an argument."
+msgstr ""
+"RUN-PROGRAM eatescray away ewnay ocesspray andway unsray ethay unixway "
+"ogrampray inway ethay\n"
+"   ilefay ecifiedspay ybay ethay implesay-ingstray PROGRAM.  ARGS areway "
+"ethay tandardsay\n"
+"   argumentsway atthay ancay ebay assedpay otay away Unixway ogrampray, "
+"orfay onay argumentsway\n"
+"   useway NIL (ichwhay eansmay ustjay ethay amenay ofway ethay ogrampray "
+"isway assedpay asway argway 0).\n"
+"\n"
+"   RUN-PROGRAM illway eitherway eturnray NIL orway away PROCESS "
+"ucturestray.  Eesay ethay CMU\n"
+"   Ommoncay Isplay Usersway Anualmay orfay etailsday aboutway ethay PROCESS "
+"ucturestray.\n"
+"\n"
+"   Ethay eywordkay argumentsway avehay ethay ollowingfay eaningsmay:\n"
+"     :envway -\n"
+"        Anway Away-LIST appingmay eywordkay environmentway ariablesvay otay "
+"implesay-ingstray\n"
+"\taluesvay.\n"
+"     :aitway -\n"
+"        Ifway onnay-NIL (efaultday), aitway untilway ethay eatedcray "
+"ocesspray inishesfay.  Ifway\n"
+"        NIL, ontinuecay unningray Isplay untilway ethay ogrampray "
+"inishesfay.\n"
+"     :typay -\n"
+"        Eitherway T, NIL, orway away eamstray.  Unlessway NIL, ethay "
+"ubprocesssay isway establishwayedway\n"
+"\tunderway away PTY.  Ifway :typay isway away eamstray, allway outputway "
+"otay isthay typay isway entsay otay\n"
+"\tisthay eamstray, otherwiseway ethay PROCESS-PTY otslay isway illedfay "
+"inway ithway away eamstray\n"
+"\tonnectedcay otay typay atthay ancay eadray outputway andway itewray "
+"inputway.\n"
+"     :inputway -\n"
+"        Eitherway T, NIL, away athnamepay, away eamstray, orway :STREAM.  "
+"Ifway T, ethay tandardsay\n"
+"\tinputway orfay ethay urrentcay ocesspray isway inheritedway.  Ifway NIL, /"
+"evday/ullnay\n"
+"\tisway usedway.  Ifway away athnamepay, ethay ilefay osay ecifiedspay isway "
+"usedway.  Ifway away eamstray,\n"
+"\tallway ethay inputway isway eadray omfray atthay eamstray andway endsay "
+"otay ethay ubprocesssay.  Ifway\n"
+"\t:STREAM, ethay PROCESS-INPUT otslay isway illedfay inway ithway away "
+"eamstray atthay endssay \n"
+"\titsway outputway otay ethay ocesspray. Efaultsday otay NIL.\n"
+"     :ifway-inputway-oesday-otnay-existway (enwhay :inputway isway ethay "
+"amenay ofway away ilefay) -\n"
+"        ancay ebay oneway ofway:\n"
+"           :errorway - enerategay anway errorway.\n"
+"           :eatecray - eatecray anway emptyway ilefay.\n"
+"           ilnay (efaultday) - eturnray ilnay omfray unray-ogrampray.\n"
+"     :outputway -\n"
+"        Eitherway T, NIL, away athnamepay, away eamstray, orway :STREAM.  "
+"Ifway T, ethay tandardsay\n"
+"\toutputway orfay ethay urrentcay ocesspray isway inheritedway.  Ifway NIL, /"
+"evday/ullnay\n"
+"\tisway usedway.  Ifway away athnamepay, ethay ilefay osay ecifiedspay isway "
+"usedway.  Ifway away eamstray,\n"
+"\tallway ethay outputway omfray ethay ocesspray isway ittenwray otay isthay "
+"eamstray. Ifway\n"
+"\t:STREAM, ethay PROCESS-OUTPUT otslay isway illedfay inway ithway away "
+"eamstray atthay ancay\n"
+"\tebay eadray otay etgay ethay outputway. Efaultsday otay NIL.\n"
+"     :ifway-outputway-existsway (enwhay :outputway isway ethay amenay ofway "
+"away ilefay) -\n"
+"        ancay ebay oneway ofway:\n"
+"           :errorway (efaultday) - eneratesgay anway errorway ifway ethay "
+"ilefay alreadyway existsway.\n"
+"           :upersedesay - outputway omfray ethay ogrampray upersedessay "
+"ethay ilefay.\n"
+"           :appendway - outputway omfray ethay ogrampray isway appendedway "
+"otay ethay ilefay.\n"
+"           ilnay - unray-ogrampray eturnsray ilnay ithoutway oingday "
+"anythingway.\n"
+"     :errorway andway :ifway-errorway-existsway - \n"
+"        Amesay asway :outputway andway :ifway-outputway-existsway, exceptway "
+"atthay :errorway ancay alsoway ebay\n"
+"\tecifiedspay asway :outputway inway ichwhay asecay allway errorway "
+"outputway isway outedray otay ethay\n"
+"\tamesay aceplay asway ormalnay outputway.\n"
+"     :tatussay-ookhay -\n"
+"        Isthay isway away unctionfay ethay ystemsay allscay eneverwhay ethay "
+"tatussay ofway ethay\n"
+"        ocesspray angeschay.  Ethay unctionfay akestay ethay ocesspray asway "
+"anway argumentway."
+
+#: target:code/run-program.lisp
+msgid "All args to program must be simple strings -- ~S."
+msgstr "Allway argsway otay ogrampray ustmay ebay implesay ingsstray -- ~S."
+
+#: target:code/run-program.lisp
+msgid "No such program: ~S"
+msgstr "Onay uchsay ogrampray: ~S"
+
+#: target:code/run-program.lisp
+msgid "Could not fork child process: ~A"
+msgstr "Ouldcay otnay orkfay ildchay ocesspray: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Could not select on sub-process: ~A"
+msgstr "Ouldcay otnay electsay onway ubsay-ocesspray: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Could not read input from sub-process: ~A"
+msgstr "Ouldcay otnay eadray inputway omfray ubsay-ocesspray: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Could not open \"/dev/null\": ~A"
+msgstr "Ouldcay otnay openway \"/evday/ullnay\": ~Away"
+
+#: target:code/run-program.lisp
+msgid "Could not create pipe: ~A"
+msgstr "Ouldcay otnay eatecray ipepay: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
+msgstr "Irectionday ustmay ebay eitherway :INPUT orway :OUTPUT, otnay ~S"
+
+#: target:code/run-program.lisp
+msgid "Could not duplicate file descriptor: ~A"
+msgstr "Ouldcay otnay uplicateday ilefay escriptorday: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Could not open a temporary file in /tmp"
+msgstr "Ouldcay otnay openway away emporarytay ilefay inway /mptay"
+
+#: target:code/run-program.lisp
+msgid "Cound not create pipe: ~A"
+msgstr "Oundcay otnay eatecray ipepay: ~Away"
+
+#: target:code/run-program.lisp
+msgid "Invalid option to run-program: ~S"
+msgstr "Invalidway optionway otay unray-ogrampray: ~S"
+
+#: target:code/loop.lisp
+msgid "LOOP-BODY called with non-synched before- and after-loop lists."
+msgstr ""
+"LOOP-BODY alledcay ithway onnay-ynchedsay eforebay- andway afterway-ooplay "
+"istslay."
+
+#: target:code/loop.lisp
+msgid "~?~%Current LOOP context:~{ ~S~}."
+msgstr "~?~%Urrentcay LOOP ontextcay:~{ ~S~}."
+
+#: target:code/loop.lisp
+msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S."
+msgstr ""
+"LOOP ouldncay't erifyvay atthay ~S isway away ubtypesay ofway ethay "
+"equiredray ypetay ~S."
+
+#: target:code/loop.lisp
+msgid "Specified data type ~S is not a subtype of ~S."
+msgstr "Ecifiedspay ataday ypetay ~S isway otnay away ubtypesay ofway ~S."
+
+#: target:code/loop.lisp
+msgid ""
+"Causes the iteration to terminate \"normally\", the same as implicit\n"
+"termination by an iteration driving clause, or by use of WHILE or\n"
+"UNTIL -- the epilogue code (if any) will be run, and any implicitly\n"
+"collected result will be returned as the value of the LOOP."
+msgstr ""
+"Ausescay ethay iterationway otay erminatetay \"ormallynay\", ethay amesay "
+"asway implicitway\n"
+"erminationtay ybay anway iterationway ivingdray auseclay, orway ybay useway "
+"ofway WHILE orway\n"
+"UNTIL -- ethay epilogueway odecay (ifway anyway) illway ebay unray, andway "
+"anyway implicitlyway\n"
+"ollectedcay esultray illway ebay eturnedray asway ethay aluevay ofway ethay "
+"LOOP."
+
+#: target:code/loop.lisp
+msgid "~S found where LOOP keyword expected."
+msgstr "~S oundfay erewhay LOOP eywordkay expectedway."
+
+#: target:code/loop.lisp
+msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
+msgstr ""
+"Econdarysay auseclay isplacedmay atway optay evellay inway LOOP acromay: ~S "
+"~S ~S ..."
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in LOOP macro."
+msgstr "~S isway anway unknownway eywordkay inway LOOP acromay."
+
+#: target:code/loop.lisp
+msgid "LOOP source code ran out when another token was expected."
+msgstr ""
+"LOOP ourcesay odecay anray outway enwhay anotherway okentay asway "
+"expectedway."
+
+#: target:code/loop.lisp
+msgid "Compound form expected, but found ~A."
+msgstr "Ompoundcay ormfay expectedway, utbay oundfay ~Away."
+
+#: target:code/loop.lisp
+msgid "LOOP code ran out where a form was expected."
+msgstr "LOOP odecay anray outway erewhay away ormfay asway expectedway."
+
+#: target:code/loop.lisp
+msgid ""
+"LOOP clause is providing a value for the iteration,~@\n"
+"\t        however one was already established by a ~S clause."
+msgstr ""
+"LOOP auseclay isway ovidingpray away aluevay orfay ethay iterationway,~@\n"
+"\t        oweverhay oneway asway alreadyway establishedway ybay away ~S "
+"auseclay."
+
+#: target:code/loop.lisp
+msgid ""
+"~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional."
+msgstr ""
+"~:[Isthay LOOP~;Ethay LOOP ~:*~S~] auseclay isway otnay ermittedpay "
+"insideway away onditionalcay."
+
+#: target:code/loop.lisp
+msgid "This LOOP clause is not permitted with anonymous collectors."
+msgstr ""
+"Isthay LOOP auseclay isway otnay ermittedpay ithway anonymousway "
+"ollectorscay."
+
+#: target:code/loop.lisp
+msgid ""
+"This anonymous collection LOOP clause is not permitted with aggregate "
+"booleans."
+msgstr ""
+"Isthay anonymousway ollectioncay LOOP auseclay isway otnay ermittedpay "
+"ithway aggregateway ooleansbay."
+
+#: target:code/loop.lisp
+msgid ""
+"~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern "
+"expected."
+msgstr ""
+"~S oundfay erewhay away LOOP eywordkay, LOOP ypetay eywordkay, orway LOOP "
+"ypetay atternpay expectedway."
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP keyword or LOOP type keyword expected."
+msgstr ""
+"~S oundfay erewhay away LOOP eywordkay orway LOOP ypetay eywordkay "
+"expectedway."
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S."
+msgstr ""
+"Estructuringday ypetay atternpay ~S ontainscay unrecognizedway ypetay "
+"eywordkay ~S."
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S doesn't match variable pattern ~S."
+msgstr ""
+"Estructuringday ypetay atternpay ~S oesnday't atchmay ariablevay atternpay "
+"~S."
+
+#: target:code/loop.lisp
+msgid "Duplicated LOOP iteration variable ~S."
+msgstr "Uplicatedday LOOP iterationway ariablevay ~S."
+
+#: target:code/loop.lisp
+msgid "Duplicated variable ~S in LOOP parallel binding."
+msgstr "Uplicatedday ariablevay ~S inway LOOP arallelpay indingbay."
+
+#: target:code/loop.lisp
+msgid "Bad variable ~S somewhere in LOOP."
+msgstr "Adbay ariablevay ~S omewheresay inway LOOP."
+
+#: target:code/loop.lisp
+msgid "Variable ~S has already been used"
+msgstr "Ariablevay ~S ashay alreadyway eenbay usedway"
+
+#: target:code/loop.lisp
+msgid "Invalid LOOP variable passed in: ~S."
+msgstr "Invalidway LOOP ariablevay assedpay inway: ~S."
+
+#: target:code/loop.lisp
+msgid "~S found where keyword expected getting LOOP clause after ~S."
+msgstr ""
+"~S oundfay erewhay eywordkay expectedway ettinggay LOOP auseclay afterway ~S."
+
+#: target:code/loop.lisp
+msgid "~S does not introduce a LOOP clause that can follow ~S."
+msgstr ""
+"~S oesday otnay introduceway away LOOP auseclay atthay ancay ollowfay ~S."
+
+#: target:code/loop.lisp
+msgid "~S is an invalid name for your LOOP."
+msgstr "~S isway anway invalidway amenay orfay ouryay LOOP."
+
+#: target:code/loop.lisp
+msgid "The NAMED ~S clause occurs too late."
+msgstr "Ethay NAMED ~S auseclay occursway ootay atelay."
+
+#: target:code/loop.lisp
+msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
+msgstr ""
+"Ouyay aymay onlyway useway oneway NAMED auseclay inway ouryay ooplay: NAMED "
+"~S ... NAMED ~S."
+
+#: target:code/loop.lisp
+msgid "Value accumulation recipient name, ~S, is not a symbol."
+msgstr ""
+"Aluevay accumulationway ecipientray amenay, ~S, isway otnay away ymbolsay."
+
+#: target:code/loop.lisp
+msgid "Variable ~S cannot be used in INTO clause"
+msgstr "Ariablevay ~S annotcay ebay usedway inway INTO auseclay"
+
+#: target:code/loop.lisp
+msgid ""
+"Incompatible kinds of LOOP value accumulation specified for collecting~@\n"
+"\t\t    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
+msgstr ""
+"Incompatibleway indskay ofway LOOP aluevay accumulationway ecifiedspay orfay "
+"ollectingcay~@\n"
+"\t\t    ~:[asway ethay aluevay ofway ethay LOOP~;~:into*ay ~S~]: ~S andway "
+"~S."
+
+#: target:code/loop.lisp
+msgid ""
+"Unequal datatypes specified in different LOOP value accumulations~@\n"
+"\t\t   into ~S: ~S and ~S."
+msgstr ""
+"Unequalway atatypesday ecifiedspay inway ifferentday LOOP aluevay "
+"accumulationsway~@\n"
+"\t\t   intoway ~S: ~S andway ~S."
+
+#: target:code/loop.lisp
+msgid "Iteration in LOOP follows body code."
+msgstr "Iterationway inway LOOP ollowsfay odybay odecay."
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in FOR or AS clause in LOOP."
+msgstr ""
+"~S isway anway unknownway eywordkay inway FOR orway AS auseclay inway LOOP."
+
+#: target:code/loop.lisp
+msgid "Use of QUOTE around stepping function in LOOP will be left verbatim."
+msgstr ""
+"Useway ofway QUOTE aroundway teppingsay unctionfay inway LOOP illway ebay "
+"eftlay erbatimvay."
+
+#: target:code/loop.lisp
+msgid "~S found where ITS or EACH expected in LOOP iteration path syntax."
+msgstr ""
+"~S oundfay erewhay ITS orway EACH expectedway inway LOOP iterationway athpay "
+"yntaxsay."
+
+#: target:code/loop.lisp
+msgid "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?"
+msgstr ""
+"Unrecognizableway LOOP iterationway athpay yntaxsay.  Issingmay EACH orway "
+"THE?"
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP iteration path name was expected."
+msgstr ""
+"~S oundfay erewhay away LOOP iterationway athpay amenay asway expectedway."
+
+#: target:code/loop.lisp
+msgid "~S is not the name of a LOOP iteration path."
+msgstr "~S isway otnay ethay amenay ofway away LOOP iterationway athpay."
+
+#: target:code/loop.lisp
+msgid ""
+"\"Inclusive\" iteration is not possible with the ~S LOOP iteration path."
+msgstr ""
+"\"Inclusiveway\" iterationway isway otnay ossiblepay ithway ethay ~S LOOP "
+"iterationway athpay."
+
+#: target:code/loop.lisp
+msgid "Unused USING variables: ~S."
+msgstr "Unusedway USING ariablesvay: ~S."
+
+#: target:code/loop.lisp
+msgid ""
+"Value passed back by LOOP iteration path function for path ~S has invalid "
+"length."
+msgstr ""
+"Aluevay assedpay ackbay ybay LOOP iterationway athpay unctionfay orfay "
+"athpay ~S ashay invalidway engthlay."
+
+#: target:code/loop.lisp
+msgid "A ~S prepositional phrase occurs multiply for some LOOP clause."
+msgstr ""
+"Away ~S epositionalpray rasephay occursway ultiplymay orfay omesay LOOP "
+"auseclay."
+
+#: target:code/loop.lisp
+msgid "Preposition ~S used when some other preposition has subsumed it."
+msgstr ""
+"Epositionpray ~S usedway enwhay omesay otherway epositionpray ashay "
+"ubsumedsay itway."
+
+#: target:code/loop.lisp
+msgid ""
+"The variable substitution for ~S occurs twice in a USING phrase,~@\n"
+"\t\t        with ~S and ~S."
+msgstr ""
+"Ethay ariablevay ubstitutionsay orfay ~S occursway wicetay inway away USING "
+"rasephay,~@\n"
+"\t\t        ithway ~S andway ~S."
+
+#: target:code/loop.lisp
+msgid ""
+"~S invalid preposition in sequencing or sequence path.~@\n"
+"\t       Invalid prepositions specified in iteration path descriptor or "
+"something?"
+msgstr ""
+"~S invalidway epositionpray inway equencingsay orway equencesay athpay.~@\n"
+"\t       Invalidway epositionspray ecifiedspay inway iterationway athpay "
+"escriptorday orway omethingsay?"
+
+#: target:code/loop.lisp
+msgid "Conflicting stepping directions in LOOP sequencing path"
+msgstr "Onflictingcay teppingsay irectionsday inway LOOP equencingsay athpay"
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN phrase in sequence path"
+msgstr "Issingmay OF orway IN rasephay inway equencesay athpay"
+
+#: target:code/loop.lisp
+msgid "Don't know where to start stepping."
+msgstr "Onday't nowkay erewhay otay tartsay teppingsay."
+
+#: target:code/loop.lisp
+msgid "Too many prepositions!"
+msgstr "Ootay anymay epositionspray!"
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN in ~S iteration path."
+msgstr "Issingmay OF orway IN inway ~S iterationway athpay."
+
+#: target:code/loop.lisp
+msgid "Unknown preposition ~S"
+msgstr "Unknownway epositionpray ~S"
+
+#: target:code/loop.lisp
+msgid "Destructuring is not valid for package symbol iteration."
+msgstr ""
+"Estructuringday isway otnay alidvay orfay ackagepay ymbolsay iterationway."
+
+#: target:code/stream-vector-io.lisp
+msgid "endian-swap ~a is illegal for element-type of vector ~a"
+msgstr ""
+"endianway-wapsay ~away isway illegalway orfay elementway-ypetay ofway "
+"ectorvay ~away"
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Read from Stream into Vector.  The Start and End indices of Vector\n"
+"  is in octets, and must be an multiple of the octets per element of\n"
+"  the vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+"Eadray omfray Eamstray intoway Ectorvay.  Ethay Tartsay andway Endway "
+"indicesway ofway Ectorvay\n"
+"  isway inway octetsway, andway ustmay ebay anway ultiplemay ofway ethay "
+"octetsway erpay elementway ofway\n"
+"  ethay ectorvay elementway.  Ethay eywordkay argumentway :Endianway-Wapsay "
+"ecifiesspay anyway\n"
+"  endianway wappingsay otay ebay oneday. "
+
+#: target:code/stream-vector-io.lisp
+msgid "Wrong vector type ~a for read-vector on stream ~a."
+msgstr ""
+"Ongwray ectorvay ypetay ~away orfay eadray-ectorvay onway eamstray ~away."
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Write Vector to Stream.  The Start and End indices of Vector is in\n"
+"  octets, and must be an multiple of the octets per element of the\n"
+"  vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+"Itewray Ectorvay otay Eamstray.  Ethay Tartsay andway Endway indicesway "
+"ofway Ectorvay isway inway\n"
+"  octetsway, andway ustmay ebay anway ultiplemay ofway ethay octetsway erpay "
+"elementway ofway ethay\n"
+"  ectorvay elementway.  Ethay eywordkay argumentway :Endianway-Wapsay "
+"ecifiesspay anyway\n"
+"  endianway wappingsay otay ebay oneday. "
+
+#: target:code/foreign.lisp
+msgid "Could not create temporary file ~S: ~A"
+msgstr "Ouldcay otnay eatecray emporarytay ilefay ~S: ~Away"
+
+#: target:code/foreign.lisp
+msgid "Not enough memory left."
+msgstr "Otnay enoughway emorymay eftlay."
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the ELF magic value."
+msgstr ""
+"Akemay uresay ethay eaderhay tartssay ithway ethay ELF agicmay aluevay."
+
+#: target:code/foreign.lisp
+msgid "Return the `osabi' field in the padding of the ELF file."
+msgstr ""
+"Eturnray ethay `osabiway' ieldfay inway ethay addingpay ofway ethay ELF "
+"ilefay."
+
+#: target:code/foreign.lisp
+msgid "Given a file type number, determine whether the file is executable."
+msgstr ""
+"Ivengay away ilefay ypetay umbernay, etermineday etherwhay ethay ilefay "
+"isway executableway."
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the mach-o magic value."
+msgstr ""
+"Akemay uresay ethay eaderhay tartssay ithway ethay achmay-o agicmay aluevay."
+
+#: target:code/foreign.lisp
+msgid ";;; Loading object file...~%"
+msgstr ";;; Oadinglay objectway ilefay...~%"
+
+#: target:code/foreign.lisp
+msgid "Could not open ~S: ~A"
+msgstr "Ouldcay otnay openway ~S: ~Away"
+
+#: target:code/foreign.lisp
+msgid "~A is not an ELF file."
+msgstr "~Away isway otnay anway ELF ilefay."
+
+#: target:code/foreign.lisp
+msgid "~A is not a ~A executable, it's a ~A executable."
+msgstr ""
+"~Away isway otnay away ~Away executableway, itway's away ~Away executableway."
+
+#: target:code/foreign.lisp
+msgid "~A is not executable."
+msgstr "~Away isway otnay executableway."
+
+#: target:code/foreign.lisp
+msgid ""
+"Parse symbol table file created by load-foreign script.  Modified\n"
+"to skip undefined symbols which don't have an address."
+msgstr ""
+"Arsepay ymbolsay abletay ilefay eatedcray ybay oadlay-oreignfay riptscay.  "
+"Odifiedmay\n"
+"otay kipsay undefinedway ymbolssay ichwhay onday't avehay anway addressway."
+
+#: target:code/foreign.lisp
+msgid ";;; Parsing symbol table...~%"
+msgstr ";;; Arsingpay ymbolsay abletay...~%"
+
+#: target:code/foreign.lisp
+msgid ""
+"Load-foreign loads a list of C object files into a running Lisp.  The files\n"
+"  argument should be a single file or a list of files.  The files may be\n"
+"  specified as namestrings or as pathnames.  The libraries argument should "
+"be a\n"
+"  list of library files as would be specified to ld.  They will be searched "
+"in\n"
+"  the order given.  The default is just \"-lc\", i.e., the C library.  The\n"
+"  base-file argument is used to specify a file to use as the starting place "
+"for\n"
+"  defined symbols.  The default is the C start up code for Lisp.  The env\n"
+"  argument is the Unix environment variable definitions for the invocation "
+"of\n"
+"  the linker.  The default is the environment passed to Lisp."
+msgstr ""
+"Oadlay-oreignfay oadslay away istlay ofway C objectway ilesfay intoway away "
+"unningray Isplay.  Ethay ilesfay\n"
+"  argumentway ouldshay ebay away inglesay ilefay orway away istlay ofway "
+"ilesfay.  Ethay ilesfay aymay ebay\n"
+"  ecifiedspay asway amestringsnay orway asway athnamespay.  Ethay "
+"ibrarieslay argumentway ouldshay ebay away\n"
+"  istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay.  "
+"Eythay illway ebay earchedsay inway\n"
+"  ethay orderway ivengay.  Ethay efaultday isway ustjay \"-clay\", i.e., "
+"ethay C ibrarylay.  Ethay\n"
+"  asebay-ilefay argumentway isway usedway otay ecifyspay away ilefay otay "
+"useway asway ethay tartingsay aceplay orfay\n"
+"  efinedday ymbolssay.  Ethay efaultday isway ethay C tartsay upway odecay "
+"orfay Isplay.  Ethay envway\n"
+"  argumentway isway ethay Unixway environmentway ariablevay efinitionsday "
+"orfay ethay invocationway ofway\n"
+"  ethay inkerlay.  Ethay efaultday isway ethay environmentway assedpay otay "
+"Isplay."
+
+#: target:code/foreign.lisp
+msgid ";;; Running library:load-foreign.csh...~%"
+msgstr ";;; Unningray ibrarylay:oadlay-oreignfay.shcay...~%"
+
+#: target:code/foreign.lisp
+msgid ""
+"Object file is wrong format, so can't load-foreign:~\n"
+"\t\t  ~%  ~S"
+msgstr ""
+"Objectway ilefay isway ongwray ormatfay, osay ancay't oadlay-oreignfay:~\n"
+"\t\t  ~%  ~S"
+
+#: target:code/foreign.lisp
+msgid ""
+"Object file is not relocatable, so can't load-foreign:~\n"
+"\t\t  ~%  ~S"
+msgstr ""
+"Objectway ilefay isway otnay elocatableray, osay ancay't oadlay-oreignfay:~\n"
+"\t\t  ~%  ~S"
+
+#: target:code/foreign.lisp
+msgid "Could not run library:load-foreign.csh"
+msgstr "Ouldcay otnay unray ibrarylay:oadlay-oreignfay.shcay"
+
+#: target:code/foreign.lisp
+msgid "library:load-foreign.csh failed:~%~A"
+msgstr "ibrarylay:oadlay-oreignfay.shcay ailedfay:~%~Away"
+
+#: target:code/foreign.lisp
+msgid ";;; Done.~%"
+msgstr ";;; Oneday.~%"
+
+#: target:code/foreign.lisp
+msgid "Lazy function call binding"
+msgstr "Azylay unctionfay allcay indingbay"
+
+#: target:code/foreign.lisp
+msgid "Immediate function call binding"
+msgstr "Immediateway unctionfay allcay indingbay"
+
+#: target:code/foreign.lisp
+msgid "Mask of binding time value"
+msgstr "Askmay ofway indingbay imetay aluevay"
+
+#: target:code/foreign.lisp
+msgid ""
+"If set the symbols of the loaded object and its dependencies are\n"
+"   made visible as if the object were linked directly into the program"
+msgstr ""
+"Ifway etsay ethay ymbolssay ofway ethay oadedlay objectway andway itsway "
+"ependenciesday areway\n"
+"   ademay isiblevay asway ifway ethay objectway ereway inkedlay irectlyday "
+"intoway ethay ogrampray"
+
+#: target:code/foreign.lisp
+msgid "Can't open global symbol table: ~S"
+msgstr "Ancay't openway obalglay ymbolsay abletay: ~S"
+
+#: target:code/foreign.lisp
+msgid "Can't open object ~S: ~S"
+msgstr "Ancay't openway objectway ~S: ~S"
+
+#: target:code/foreign.lisp
+msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+msgstr "LOAD-OBJECT-FILE: Unresolvedway ymbolssay inway ilefay ~S: ~S"
+
+#: target:code/foreign.lisp
+msgid "Couldn't open library ~S: ~S"
+msgstr "Ouldncay't openway ibrarylay ~S: ~S"
+
+#: target:code/foreign.lisp
+msgid "Reloaded library ~S~%"
+msgstr "Eloadedray ibrarylay ~S~%"
+
+#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr "Ignoreway ibrarylay andway ontinuecay"
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr "Ytray eloadingray againway"
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr "Oosechay ewnay ibrarylay athpay"
+
+#: target:code/foreign.lisp
+msgid "Enter new library path: "
+msgstr "Enterway ewnay ibrarylay athpay: "
+
+#: target:code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+"Oadlay C objectway ilesfay intoway ethay unningray Isplay. Ethay FILES "
+"argumentway\n"
+"ouldshay ebay away inglesay ilefay orway away istlay ofway ilesfay. Ethay "
+"ilesfay aymay ebay ecifiedspay\n"
+"asway amestringsnay orway asway athnamespay. Ethay LIBRARIES argumentway "
+"ouldshay ebay away\n"
+"istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay. "
+"Eythay illway ebay\n"
+"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-clay"
+"\", i.e., ethay C\n"
+"ibrarylay. Ethay BASE-FILE argumentway isway usedway otay ecifyspay away "
+"ilefay otay useway asway\n"
+"ethay tartingsay aceplay orfay efinedday ymbolssay. Ethay efaultday isway "
+"ethay C tartsay upway\n"
+"odecay orfay Isplay. Ethay ENV argumentway isway ethay Unixway "
+"environmentway ariablevay\n"
+"efinitionsday orfay ethay invocationway ofway ethay inkerlay. Ethay "
+"efaultday isway ethay\n"
+"environmentway assedpay otay Isplay."
+
+#: target:code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
+msgstr ";;; Openingway asway aredshay ibrarylay ~Away ...~%"
+
+#: target:code/foreign.lisp
+msgid ";;; Trying as object file ~A...~%"
+msgstr ";;; Yingtray asway objectway ilefay ~Away...~%"
+
+#: target:code/foreign.lisp
+msgid ";;; Running ~A...~%"
+msgstr ";;; Unningray ~Away...~%"
+
+#: target:code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr "Ilefay oesday otnay existway: ~Away."
+
+#: target:code/foreign.lisp
+msgid "Could not run ~A"
+msgstr "Ouldcay otnay unray ~Away"
+
+#: target:code/foreign.lisp
+msgid "~A failed:~%~A"
+msgstr "~Away ailedfay:~%~Away"
+
+#: target:code/internet.lisp
+msgid "AList of socket kinds and protocol values."
+msgstr "Alistway ofway ocketsay indskay andway otocolpray aluesvay."
+
+#: target:code/internet.lisp
+msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
+msgstr ""
+"Internetway otocolpray :DATA-GRAM isway eprecatedday. Usingway :DATAGRAM"
+
+#: target:code/internet.lisp
+msgid "Invalid kind (~S) for internet domain sockets."
+msgstr "Invalidway indkay (~S) orfay internetway omainday ocketssay."
+
+#: target:code/internet.lisp
+msgid ""
+"Return a host-entry for the given host. The host may be an address\n"
+"  string or an IP address in host order."
+msgstr ""
+"Eturnray away osthay-entryway orfay ethay ivengay osthay. Ethay osthay aymay "
+"ebay anway addressway\n"
+"  ingstray orway anway IP addressway inway osthay orderway."
+
+#: target:code/internet.lisp
+msgid "Error creating socket: ~A"
+msgstr "Errorway eatingcray ocketsay: ~Away"
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A]: ~A"
+msgstr "Errorway onnectingcay ocketsay otay [~Away]: ~Away"
+
+#: target:code/internet.lisp
+msgid "Error binding socket to path ~a: ~a"
+msgstr "Errorway indingbay ocketsay otay athpay ~away: ~away"
+
+#: target:code/internet.lisp
+msgid "Error listening to socket: ~A"
+msgstr "Errorway isteninglay otay ocketsay: ~Away"
+
+#: target:code/internet.lisp
+msgid "Error accepting a connection: ~A"
+msgstr "Errorway acceptingway away onnectioncay: ~Away"
+
+#: target:code/internet.lisp
+msgid "bind Socket to (local) Host and Port"
+msgstr "indbay Ocketsay otay (ocallay) Osthay andway Ortpay"
+
+#: target:code/internet.lisp
+msgid "Unknown host: ~S."
+msgstr "Unknownway osthay: ~S."
+
+#: target:code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
+msgstr "Errorway indingbay ocketsay otay ortpay ~Away: ~Away"
+
+#: target:code/internet.lisp
+msgid "The host may be an address string or an IP address in host order."
+msgstr ""
+"Ethay osthay aymay ebay anway addressway ingstray orway anway IP addressway "
+"inway osthay orderway."
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A:~A]: ~A"
+msgstr "Errorway onnectingcay ocketsay otay [~Away:~Away]: ~Away"
+
+#: target:code/internet.lisp
+msgid "Get an integer value socket option."
+msgstr "Etgay anway integerway aluevay ocketsay optionway."
+
+#: target:code/internet.lisp
+msgid "Set an integer value socket option."
+msgstr "Etsay anway integerway aluevay ocketsay optionway."
+
+#: target:code/internet.lisp
+msgid "Error ~S setting socket option on socket ~D."
+msgstr "Errorway ~S ettingsay ocketsay optionway onway ocketsay ~D."
+
+#: target:code/internet.lisp
+msgid "Error closing socket: ~A"
+msgstr "Errorway osingclay ocketsay: ~Away"
+
+#: target:code/internet.lisp
+msgid "Return the peer host address and port in host order."
+msgstr ""
+"Eturnray ethay eerpay osthay addressway andway ortpay inway osthay orderway."
+
+#: target:code/internet.lisp
+msgid "Error ~s getting peer host and port on FD ~d."
+msgstr "Errorway ~s ettinggay eerpay osthay andway ortpay onway FD ~d."
+
+#: target:code/internet.lisp
+msgid "Error ~s getting socket host and port on FD ~d."
+msgstr "Errorway ~s ettinggay ocketsay osthay andway ortpay onway FD ~d."
+
+#: target:code/internet.lisp
+msgid "Ignore it"
+msgstr "Ignoreway itway"
+
+#: target:code/internet.lisp
+msgid "Error recving oob data on ~A: ~A"
+msgstr "Errorway ecvingray oobway ataday onway ~Away: ~Away"
+
+#: target:code/internet.lisp
+msgid "No oob handler defined for ~S on ~A"
+msgstr "Onay oobway andlerhay efinedday orfay ~S onway ~Away"
+
+#: target:code/internet.lisp
+msgid "Got a SIGURG, but couldn't find any out-of-band data."
+msgstr ""
+"Otgay away SIGURG, utbay ouldncay't indfay anyway outway-ofway-andbay ataday."
+
+#: target:code/internet.lisp
+msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+msgstr ""
+"Arrangeway otay uncallfay HANDLER enwhay CHAR owsshay upway outway-ofway-"
+"andbay onway FD."
+
+#: target:code/internet.lisp
+msgid "Remove any handlers for CHAR on FD."
+msgstr "Emoveray anyway andlershay orfay CHAR onway FD."
+
+#: target:code/internet.lisp
+msgid "Remove all handlers for FD."
+msgstr "Emoveray allway andlershay orfay FD."
+
+#: target:code/internet.lisp
+msgid "Error sending ~S OOB to across ~A: ~A"
+msgstr "Errorway endingsay ~S OOB otay acrossway ~Away: ~Away"
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix recvfrom call.  Returns three values:\n"
+"bytecount, source address as integer, and source port.  bytecount\n"
+"can of course be negative, to indicate faults."
+msgstr ""
+"Away ackagingpay ofway ethay unixway ecvfromray allcay.  Eturnsray reethay "
+"aluesvay:\n"
+"ytecountbay, ourcesay addressway asway integerway, andway ourcesay ortpay.  "
+"ytecountbay\n"
+"ancay ofway oursecay ebay egativenay, otay indicateway aultsfay."
+
+#: target:code/internet.lisp
+msgid "A packaging of the unix sendto call.  Return value like sendto"
+msgstr ""
+"Away ackagingpay ofway ethay unixway endtosay allcay.  Eturnray aluevay "
+"ikelay endtosay"
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix shutdown call.  An error is signaled if shutdown "
+"fails."
+msgstr ""
+"Away ackagingpay ofway ethay unixway utdownshay allcay.  Anway errorway "
+"isway ignaledsay ifway utdownshay ailsfay."
+
+#: target:code/internet.lisp
+msgid "Error on shutdown of socket: ~A"
+msgstr "Errorway onway utdownshay ofway ocketsay: ~Away"
+
+#: target:code/internet.lisp
+msgid ""
+"Return a network stream.  HOST may be an address string or an integer\n"
+"IP address."
+msgstr ""
+"Eturnray away etworknay eamstray.  HOST aymay ebay anway addressway ingstray "
+"orway anway integerway\n"
+"IP addressway."
+
+#: target:code/internet.lisp
+msgid "Unknown host format: ~S."
+msgstr "Unknownway osthay ormatfay: ~S."
+
+#: target:code/internet.lisp
+msgid "network connection to ~A"
+msgstr "etworknay onnectioncay otay ~Away"
+
+#: target:code/internet.lisp
+msgid "network connection from ~D.~D.~D.~D:~D"
+msgstr "etworknay onnectioncay omfray ~D.~D.~D.~D:~D"
+
+#: target:code/wire.lisp
+msgid "The wire the form we are currently evaluating came across."
+msgstr ""
+"Ethay ireway ethay ormfay eway areway urrentlycay evaluatingway amecay "
+"acrossway."
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this host."
+msgstr "Uniqueway identifierway orfay isthay osthay."
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this process."
+msgstr "Uniqueway identifierway orfay isthay ocesspray."
+
+#: target:code/wire.lisp
+msgid "Hash table mapping local objects to the corresponding remote id."
+msgstr ""
+"Ashhay abletay appingmay ocallay objectsway otay ethay orrespondingcay "
+"emoteray idway."
+
+#: target:code/wire.lisp
+msgid "Hash table mapping remote id's to the curresponding local object."
+msgstr ""
+"Ashhay abletay appingmay emoteray idway's otay ethay urrespondingcay ocallay "
+"objectway."
+
+#: target:code/wire.lisp
+msgid "Next available id for remote objects."
+msgstr "Extnay availableway idway orfay emoteray objectsway."
+
+#: target:code/wire.lisp
+msgid "There is a problem with ~A."
+msgstr "Erethay isway away oblempray ithway ~Away."
+
+#: target:code/wire.lisp
+msgid "Received EOF on ~A."
+msgstr "Eceivedray EOF onway ~Away."
+
+#: target:code/wire.lisp
+msgid "Error ~A ~A: ~A."
+msgstr "Errorway ~Away ~Away: ~Away."
+
+#: target:code/wire.lisp
+msgid "Returns T iff the given remote object is defined locally."
+msgstr ""
+"Eturnsray T iffway ethay ivengay emoteray objectway isway efinedday "
+"ocallylay."
+
+#: target:code/wire.lisp
+msgid ""
+"Returns T iff the two objects refer to the same (eq) object in the same\n"
+"  process."
+msgstr ""
+"Eturnsray T iffway ethay wotay objectsway eferray otay ethay amesay (eqway) "
+"objectway inway ethay amesay\n"
+"  ocesspray."
+
+#: target:code/wire.lisp
+msgid ""
+"Return the associated value for the given remote object. It is an error if\n"
+"  the remote object was not created in this process or if\n"
+"  FORGET-REMOTE-TRANSLATION has been called on this remote object."
+msgstr ""
+"Eturnray ethay associatedway aluevay orfay ethay ivengay emoteray objectway. "
+"Itway isway anway errorway ifway\n"
+"  ethay emoteray objectway asway otnay eatedcray inway isthay ocesspray "
+"orway ifway\n"
+"  FORGET-REMOTE-TRANSLATION ashay eenbay alledcay onway isthay emoteray "
+"objectway."
+
+#: target:code/wire.lisp
+msgid "~S is defined is a different process."
+msgstr "~S isway efinedday isway away ifferentday ocesspray."
+
+#: target:code/wire.lisp
+msgid "Use the value of NIL"
+msgstr "Useway ethay aluevay ofway NIL"
+
+#: target:code/wire.lisp
+msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
+msgstr ""
+"Onay aluevay orfay ~S -- FORGET-REMOTE-TRANSLATION asway alledcay otay "
+"earlyway."
+
+#: target:code/wire.lisp
+msgid "Convert the given local object to a remote object."
+msgstr ""
+"Onvertcay ethay ivengay ocallay objectway otay away emoteray objectway."
+
+#: target:code/wire.lisp
+msgid ""
+"Forget the translation from the given local to the corresponding remote\n"
+"object. Passing that remote object to remote-object-value will new return "
+"NIL."
+msgstr ""
+"Orgetfay ethay anslationtray omfray ethay ivengay ocallay otay ethay "
+"orrespondingcay emoteray\n"
+"objectway. Assingpay atthay emoteray objectway otay emoteray-objectway-"
+"aluevay illway ewnay eturnray NIL."
+
+#: target:code/wire.lisp
+msgid ""
+"Return T iff anything is in the input buffer or available on the socket."
+msgstr ""
+"Eturnray T iffway anythingway isway inway ethay inputway ufferbay orway "
+"availableway onway ethay ocketsay."
+
+#: target:code/wire.lisp
+msgid "listening to"
+msgstr "isteninglay otay"
+
+#: target:code/wire.lisp
+msgid ""
+"Read data off the socket, filling the input buffer. The buffer is cleared\n"
+"first. If fill-input-buffer returns, it is guarenteed that there will be at\n"
+"least one byte in the input buffer. If EOF was reached, as wire-eof error\n"
+"is signaled."
+msgstr ""
+"Eadray ataday offway ethay ocketsay, illingfay ethay inputway ufferbay. "
+"Ethay ufferbay isway earedclay\n"
+"irstfay. Ifway illfay-inputway-ufferbay eturnsray, itway isway uarenteedgay "
+"atthay erethay illway ebay atway\n"
+"eastlay oneway ytebay inway ethay inputway ufferbay. Ifway EOF asway "
+"eachedray, asway ireway-eofway errorway\n"
+"isway ignaledsay."
+
+#: target:code/wire.lisp
+msgid "reading"
+msgstr "eadingray"
+
+#: target:code/wire.lisp
+msgid "Return the next byte from the wire."
+msgstr "Eturnray ethay extnay ytebay omfray ethay ireway."
+
+#: target:code/wire.lisp
+msgid ""
+"Read a number off the wire. Numbers are 4 bytes in network order.\n"
+"The optional argument controls weather or not the number should be "
+"considered\n"
+"signed (defaults to T)."
+msgstr ""
+"Eadray away umbernay offway ethay ireway. Umbersnay areway 4 ytesbay inway "
+"etworknay orderway.\n"
+"Ethay optionalway argumentway ontrolscay eatherway orway otnay ethay "
+"umbernay ouldshay ebay onsiderecayd\n"
+"ignedsay (efaultsday otay T)."
+
+#: target:code/wire.lisp
+msgid ""
+"Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
+"   return it."
+msgstr ""
+"Eadsray anway arbitraryway integerway entsay ybay WIRE-OUTPUT-BIGNUM omfray "
+"ethay ireway andway\n"
+"   eturnray itway."
+
+#: target:code/wire.lisp
+msgid "Reads a string from the wire. The first four bytes spec the size."
+msgstr ""
+"Eadsray away ingstray omfray ethay ireway. Ethay irstfay ourfay ytesbay "
+"ecspay ethay izesay."
+
+#: target:code/wire.lisp
+msgid "Reads the next object from the wire and returns it."
+msgstr ""
+"Eadsray ethay extnay objectway omfray ethay ireway andway eturnsray itway."
+
+#: target:code/wire.lisp
+msgid ""
+"Attempt to read symbol, ~A, of wire into non-existent ~\n"
+"\t\t       package, ~A."
+msgstr ""
+"Attemptway otay eadray ymbolsay, ~Away, ofway ireway intoway onnay-"
+"existentway ~\n"
+"\t\t       ackagepay, ~Away."
+
+#: target:code/wire.lisp
+msgid "writing"
+msgstr "itingwray"
+
+#: target:code/wire.lisp
+msgid "Not everything wrote."
+msgstr "Otnay everythingway otewray."
+
+#: target:code/wire.lisp
+msgid ""
+"Send any info still in the output buffer down the wire and clear it. "
+"Nothing\n"
+"harmfull will happen if called when the output buffer is empty."
+msgstr ""
+"Endsay anyway infoway tillsay inway ethay outputway ufferbay ownday ethay "
+"ireway andway earclay itway. Othingnay\n"
+"armfullhay illway appenhay ifway alledcay enwhay ethay outputway ufferbay "
+"isway emptyway."
+
+#: target:code/wire.lisp
+msgid "Output the given (8-bit) byte on the wire."
+msgstr "Outputway ethay ivengay (8-itbay) ytebay onway ethay ireway."
+
+#: target:code/wire.lisp
+msgid "Output the given (32-bit) number on the wire."
+msgstr "Outputway ethay ivengay (32-itbay) umbernay onway ethay ireway."
+
+#: target:code/wire.lisp
+msgid ""
+"Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
+msgstr ""
+"Outputsway anway arbitraryway integerway, utbay esslay effecientlyway anthay "
+"WIRE-OUTPUT-NUMBER."
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n"
+"then output the bytes."
+msgstr ""
+"Outputway ethay ivengay ingstray. Irstfay outputway ethay engthlay usingway "
+"WIRE-OUTPUT-NUMBER,\n"
+"enthay outputway ethay ytesbay."
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given object on the given wire. If cache-it is T, enter this\n"
+"object in the cache for future reference."
+msgstr ""
+"Outputway ethay ivengay objectway onway ethay ivengay ireway. Ifway achecay-"
+"itway isway T, enterway isthay\n"
+"objectway inway ethay achecay orfay uturefay eferenceray."
+
+#: target:code/wire.lisp
+msgid "Error: Cannot output objects of type ~s across a wire."
+msgstr ""
+"Errorway: Annotcay outputway objectsway ofway ypetay ~s acrossway away "
+"ireway."
+
+#: target:code/wire.lisp
+msgid "Send the function and args down the wire as a funcall."
+msgstr ""
+"Endsay ethay unctionfay andway argsway ownday ethay ireway asway away "
+"uncallfay."
+
+#: target:code/remote.lisp
+msgid "AList of wire . remote-wait structs"
+msgstr "Alistway ofway ireway . emoteray-aitway uctsstray"
+
+#: target:code/remote.lisp
+msgid ""
+"Evaluates the given forms remotly. No values are returned, as the remote\n"
+"evaluation is asyncronus."
+msgstr ""
+"Evaluatesway ethay ivengay ormsfay emotlyray. Onay aluesvay areway "
+"eturnedray, asway ethay emoteray\n"
+"evaluationway isway asyncronusway."
+
+#: target:code/remote.lisp
+msgid ""
+"Bind VARS to the multiple values of FORM (which is executed remotely). The\n"
+"forms in BODY are only executed if the remote function returned (as apposed\n"
+"to aborting due to a throw)."
+msgstr ""
+"Indbay VARS otay ethay ultiplemay aluesvay ofway FORM (ichwhay isway "
+"executedway emotelyray). Ethay\n"
+"ormsfay inway BODY areway onlyway executedway ifway ethay emoteray "
+"unctionfay eturnedray (asway apposedway\n"
+"otay abortingway ueday otay away rowthay)."
+
+#: target:code/remote.lisp
+msgid "Remote server unwound"
+msgstr "Emoteray erversay unwoundway"
+
+#: target:code/remote.lisp
+msgid ""
+"Execute the single form remotly. The value of the form is returned.\n"
+"  The optional form on-server-unwind is only evaluated if the server "
+"unwinds\n"
+"  instead of returning."
+msgstr ""
+"Executeway ethay inglesay ormfay emotlyray. Ethay aluevay ofway ethay ormfay "
+"isway eturnedray.\n"
+"  Ethay optionalway ormfay onway-erversay-unwindway isway onlyway "
+"evaluatedway ifway ethay erversay unwindsway\n"
+"  insteadway ofway eturningray."
+
+#: target:code/remote.lisp
+msgid ""
+"Create a request server on the given port.  Whenever anyone connects to it,\n"
+"   call the given function with the newly created wire and the address of "
+"the\n"
+"   connector.  If the function returns NIL, the connection is destroyed;\n"
+"   otherwise, it is accepted.  This returns a manifestation of the server "
+"that\n"
+"   DESTROY-REQUEST-SERVER accepts to kill the request server."
+msgstr ""
+"Eatecray away equestray erversay onway ethay ivengay ortpay.  Eneverwhay "
+"anyoneway onnectscay otay itway,\n"
+"   allcay ethay ivengay unctionfay ithway ethay ewlynay eatedcray ireway "
+"andway ethay addressway ofway ethay\n"
+"   onnectorcay.  Ifway ethay unctionfay eturnsray NIL, ethay onnectioncay "
+"isway estroyedday;\n"
+"   otherwiseway, itway isway acceptedway.  Isthay eturnsray away "
+"anifestationmay ofway ethay erversay atthay\n"
+"   DESTROY-REQUEST-SERVER acceptsway otay illkay ethay equestray erversay."
+
+#: target:code/remote.lisp
+msgid "Quit accepting connections to the given request server."
+msgstr ""
+"Itquay acceptingway onnectionscay otay ethay ivengay equestray erversay."
+
+#: target:code/remote.lisp
+msgid ""
+"Connect to a remote request server addressed with the given host and port\n"
+"   pair.  This returns the created wire."
+msgstr ""
+"Onnectcay otay away emoteray equestray erversay addressedway ithway ethay "
+"ivengay osthay andway ortpay\n"
+"   airpay.  Isthay eturnsray ethay eatedcray ireway."
+
+#: target:code/setf-funs.lisp
+msgid "Hairy setf expander for function ~S."
+msgstr "Airyhay etfsay expanderway orfay unctionfay ~S."
+
+#: target:code/defstruct.lisp
+msgid ""
+"Controls compiling DEFSTRUCT :print-function and :print-method\n"
+"   options according to ANSI spec. MUST be NIL to compile CMUCL & PCL"
+msgstr ""
+"Ontrolscay ompilingcay DEFSTRUCT :intpray-unctionfay andway :intpray-"
+"ethodmay\n"
+"   optionsway accordingway otay ANSI ecspay. MUST ebay NIL otay ompilecay "
+"CMUCL & PCL"
+
+#: target:code/defstruct.lisp
+msgid "Allocate a new instance with LENGTH data slots."
+msgstr "Allocateway away ewnay instanceway ithway LENGTH ataday otsslay."
+
+#: target:code/defstruct.lisp
+msgid "Given an instance, return its length."
+msgstr "Ivengay anway instanceway, eturnray itsway engthlay."
+
+#: target:code/defstruct.lisp
+msgid "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
+msgstr ""
+"Eturnray ethay aluevay omfray ethay Indexthway otslay ofway INSTANCE.  "
+"Isthay isway Etfablesay."
+
+#: target:code/defstruct.lisp
+msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE."
+msgstr "Etsay ethay Indexthway otslay ofway INSTANCE otay NEW-VALUE."
+
+#: target:code/defstruct.lisp
+msgid "Class not yet defined or was undefined: ~S"
+msgstr "Assclay otnay etyay efinedday orway asway undefinedway: ~S"
+
+#: target:code/defstruct.lisp
+msgid "Class is not a structure class: ~S"
+msgstr "Assclay isway otnay away ucturestray assclay: ~S"
+
+#: target:code/defstruct.lisp
+msgid ""
+"DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n"
+"   Define the structure type Name.  Instances are created by MAKE-<name>, "
+"which\n"
+"   takes keyword arguments allowing initial slot values to the specified.\n"
+"   A SETF'able function <name>-<slot> is defined for each slot to "
+"read&write\n"
+"   slot values.  <name>-p is a type predicate.\n"
+"\n"
+"   Popular DEFSTRUCT options (see manual for others):\n"
+"\n"
+"   (:CONSTRUCTOR Name)\n"
+"   (:PREDICATE Name)\n"
+"       Specify an alternate name for the constructor or predicate.\n"
+"\n"
+"   (:CONSTRUCTOR Name Lambda-List)\n"
+"       Explicitly specify the name and arguments to create a BOA "
+"constructor\n"
+"       (which is more efficient when keyword syntax isn't necessary.)\n"
+"\n"
+"   (:INCLUDE Supertype Slot-Spec*)\n"
+"       Make this type a subtype of the structure type Supertype.  The "
+"optional\n"
+"       Slot-Specs override inherited slot options.\n"
+"\n"
+"   Slot options:\n"
+"\n"
+"   :TYPE Type-Spec\n"
+"       Asserts that the value of this slot is always of the specified type.\n"
+"\n"
+"   :READ-ONLY {T | NIL}\n"
+"       If true, no setter function is defined for this slot."
+msgstr ""
+"DEFSTRUCT {Amenay | (Amenay Option*Way)} {Otslay | (Otslay [Efaultday] "
+"{Eykay Aluevay}*)}\n"
+"   Efineday ethay ucturestray ypetay Amenay.  Instancesway areway eatedcray "
+"ybay MAKE-<amenay>, ichwhay\n"
+"   akestay eywordkay argumentsway allowingway initialway otslay aluesvay "
+"otay ethay ecifiedspay.\n"
+"   Away SETF'ableway unctionfay <amenay>-<otslay> isway efinedday orfay "
+"eachway otslay otay eadray&itewray\n"
+"   otslay aluesvay.  <amenay>-p isway away ypetay edicatepray.\n"
+"\n"
+"   Opularpay DEFSTRUCT optionsway (eesay anualmay orfay othersway):\n"
+"\n"
+"   (:CONSTRUCTOR Amenay)\n"
+"   (:PREDICATE Amenay)\n"
+"       Ecifyspay anway alternateway amenay orfay ethay onstructorcay orway "
+"edicatepray.\n"
+"\n"
+"   (:CONSTRUCTOR Amenay Ambdalay-Istlay)\n"
+"       Explicitlyway ecifyspay ethay amenay andway argumentsway otay "
+"eatecray away BOA onstructorcay\n"
+"       (ichwhay isway oremay efficientway enwhay eywordkay yntaxsay isnway't "
+"ecessarynay.)\n"
+"\n"
+"   (:INCLUDE Upertypesay Otslay-Ec*Spay)\n"
+"       Akemay isthay ypetay away ubtypesay ofway ethay ucturestray ypetay "
+"Upertypesay.  Ethay optionalway\n"
+"       Otslay-Ecsspay overrideway inheritedway otslay optionsway.\n"
+"\n"
+"   Otslay optionsway:\n"
+"\n"
+"   :TYPE Ypetay-Ecspay\n"
+"       Assertsway atthay ethay aluevay ofway isthay otslay isway alwaysway "
+"ofway ethay ecifiedspay ypetay.\n"
+"\n"
+"   :READ-ONLY {T | NIL}\n"
+"       Ifway uetray, onay ettersay unctionfay isway efinedday orfay isthay "
+"otslay."
+
+#: target:code/defstruct.lisp
+msgid "defining structure ~A"
+msgstr "efiningday ucturestray ~Away"
+
+#: target:code/defstruct.lisp
+msgid "Disable package's definition lock then continue"
+msgstr "Isableday ackagepay's efinitionday ocklay enthay ontinuecay"
+
+#: target:code/defstruct.lisp
+msgid "Defstruct already names a declaration: ~S."
+msgstr "Efstructday alreadyway amesnay away eclarationday: ~S."
+
+#: target:code/defstruct.lisp
+msgid "Can't have more than one :INCLUDE option."
+msgstr "Ancay't avehay oremay anthay oneway :INCLUDE optionway."
+
+#: target:code/defstruct.lisp
+msgid "~S is a bad :TYPE for Defstruct."
+msgstr "~S isway away adbay :TYPE orfay Efstructday."
+
+#: target:code/defstruct.lisp
+msgid "The Defstruct option :NAMED takes no arguments."
+msgstr "Ethay Efstructday optionway :NAMED akestay onay argumentsway."
+
+#: target:code/defstruct.lisp
+msgid "Unknown DEFSTRUCT option~%  ~S"
+msgstr "Unknownway DEFSTRUCT optionway~%  ~S"
+
+#: target:code/defstruct.lisp
+msgid "Unrecognized DEFSTRUCT option: ~S"
+msgstr "Unrecognizedway DEFSTRUCT optionway: ~S"
+
+#: target:code/defstruct.lisp
+msgid "Can't specify :OFFSET unless :TYPE is specified."
+msgstr "Ancay't ecifyspay :OFFSET unlessway :TYPE isway ecifiedspay."
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :PRINT-FUNCTION with :TYPE."
+msgstr "Illysay otay ecifyspay :PRINT-FUNCTION ithway :TYPE."
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."
+msgstr "Illysay otay ecifyspay :MAKE-LOAD-FORM-FUN ithway :TYPE."
+
+#: target:code/defstruct.lisp
+msgid ""
+"Keyword slot name indicates probable syntax ~\n"
+"\t\t      error in DEFSTRUCT -- ~S."
+msgstr ""
+"Eywordkay otslay amenay indicatesway obablepray yntaxsay ~\n"
+"\t\t      errorway inway DEFSTRUCT -- ~S."
+
+#: target:code/defstruct.lisp
+msgid "Duplicate slot name ~S."
+msgstr "Uplicateday otslay amenay ~S."
+
+#: target:code/defstruct.lisp
+msgid "Slot ~S must be read-only in subtype ~S."
+msgstr "Otslay ~S ustmay ebay eadray-onlyway inway ubtypesay ~S."
+
+#: target:code/defstruct.lisp
+msgid ":TYPE option mismatch between structures ~S and ~S."
+msgstr ":TYPE optionway ismatchmay etweenbay ucturesstray ~S andway ~S."
+
+#: target:code/defstruct.lisp
+msgid ":TYPE'd defstruct ~S not found for inclusion."
+msgstr ":TYPE'd efstructday ~S otnay oundfay orfay inclusionway."
+
+#: target:code/defstruct.lisp
+msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."
+msgstr "(:CONSTRUCTOR NIL) ombinedcay ithway otherway :Onstructorscay."
+
+#: target:code/defstruct.lisp
+msgid ""
+"~@<Non-overwritten accessor ~S does not access ~\n"
+"                        slot with name ~S (accessing an inherited slot ~\n"
+"                        instead).~:@>"
+msgstr ""
+"~@<Onnay-overwrittenway accessorway ~S oesday otnay accessway ~\n"
+"                        otslay ithway amenay ~S (accessingway anway "
+"inheritedway otslay ~\n"
+"                        insteadway).~:@>"
+
+#: target:code/defstruct.lisp
+msgid "Obsolete structure accessor function called."
+msgstr "Obsoleteway ucturestray accessorway unctionfay alledcay."
+
+#: target:code/defstruct.lisp
+msgid "Structure for accessor ~S is not a ~S:~% ~S"
+msgstr "Ucturestray orfay accessorway ~S isway otnay away ~S:~% ~S"
+
+#: target:code/defstruct.lisp
+msgid "Structure for setter ~S is not a ~S:~% ~S"
+msgstr "Ucturestray orfay ettersay ~S isway otnay away ~S:~% ~S"
+
+#: target:code/defstruct.lisp
+msgid "New-Value for setter ~S is not a ~S:~% ~S."
+msgstr "Ewnay-Aluevay orfay ettersay ~S isway otnay away ~S:~% ~S."
+
+#: target:code/defstruct.lisp
+msgid "Structure for copier is not a ~S:~% ~S"
+msgstr "Ucturestray orfay opiercay isway otnay away ~S:~% ~S"
+
+#: target:code/defstruct.lisp
+msgid ""
+"Shouldn't happen!  Some strange thing in LAYOUT-INFO:~\n"
+"\t\t    ~%  ~S"
+msgstr ""
+"Ouldnshay't appenhay!  Omesay angestray ingthay inway LAYOUT-INFO:~\n"
+"\t\t    ~%  ~S"
+
+#: target:code/defstruct.lisp
+msgid ""
+"Incompatibly redefining slots of structure class ~S~@\n"
+"\t  Make sure any uses of affected accessors are recompiled:~@\n"
+"\t  ~@[  These slots were moved to new positions:~%    ~S~%~]~\n"
+"\t  ~@[  These slots have new incompatible types:~%    ~S~%~]~\n"
+"\t  ~@[  These slots were deleted:~%    ~S~%~]"
+msgstr ""
+"Incompatiblyway edefiningray otsslay ofway ucturestray assclay ~S~@\n"
+"\t  Akemay uresay anyway usesway ofway affectedway accessorsway areway "
+"ecompiledray:~@\n"
+"\t  ~@[  Esethay otsslay ereway ovedmay otay ewnay ositionspay:~%    ~S~%~]"
+"~\n"
+"\t  ~@[  Esethay otsslay avehay ewnay incompatibleway ypestay:~%    ~S~%~]~\n"
+"\t  ~@[  Esethay otsslay ereway eletedday:~%    ~S~%~]"
+
+#: target:code/defstruct.lisp
+msgid ""
+"Redefining class ~S incompatibly with the current ~\n"
+"\t\tdefinition."
+msgstr ""
+"Edefiningray assclay ~S incompatiblyway ithway ethay urrentcay ~\n"
+"\t\tefinitionday."
+
+#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr ""
+"Invalidateway alreadyway oadedlay odecay andway instancesway, useway ewnay "
+"efinitionday."
+
+#: target:code/defstruct.lisp
+msgid "Previously loaded ~S accessors will no longer work."
+msgstr "Eviouslypray oadedlay ~S accessorsway illway onay ongerlay orkway."
+
+#: target:code/defstruct.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"\t       I hope you know what you're doing..."
+msgstr ""
+"Anyway oldway ~S instancesway illway ebay inway away adbay ayway.~@\n"
+"\t       Iway opehay ouyay nowkay atwhay ouyay'eray oingday..."
+
+#: target:code/defstruct.lisp
+msgid "Removing old subclasses of ~S:~%  ~S"
+msgstr "Emovingray oldway ubclassessay ofway ~S:~%  ~S"
+
+#: target:code/defstruct.lisp
+msgid "Return a copy of Structure with the same (EQL) slot values."
+msgstr ""
+"Eturnray away opycay ofway Ucturestray ithway ethay amesay (EQL) otslay "
+"aluesvay."
+
+#: target:code/defstruct.lisp
+msgid "Copying an obsolete structure:~%  ~S"
+msgstr "Opyingcay anway obsoleteway ucturestray:~%  ~S"
+
+#: target:code/defstruct.lisp
+msgid "Structures of type ~S cannot be dumped as constants."
+msgstr "Ucturesstray ofway ypetay ~S annotcay ebay umpedday asway onstantscay."
+
+#: target:code/defmacro.lisp
+msgid "A list of tests that do argument counting at expansion time."
+msgstr ""
+"Away istlay ofway eststay atthay oday argumentway ountingcay atway "
+"expansionway imetay."
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that are done to make lambda-list parsing possible."
+msgstr ""
+"Etlay indingsbay atthay areway oneday otay akemay ambdalay-istlay arsingpay "
+"ossiblepay."
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that the user has explicitly supplied."
+msgstr "Etlay indingsbay atthay ethay userway ashay explicitlyway uppliedsay."
+
+#: target:code/defmacro.lisp
+msgid "Unsupplied optional and keyword arguments get this value defaultly."
+msgstr ""
+"Unsuppliedway optionalway andway eywordkay argumentsway etgay isthay aluevay "
+"efaultlyday."
+
+#: target:code/defmacro.lisp
+msgid ""
+"Returns as multiple-values a parsed body, any local-declarations that\n"
+"   should be made where this body is inserted, and a doc-string if there is\n"
+"   one."
+msgstr ""
+"Eturnsray asway ultiplemay-aluesvay away arsedpay odybay, anyway ocallay-"
+"eclarationsday atthay\n"
+"   ouldshay ebay ademay erewhay isthay odybay isway insertedway, andway away "
+"ocday-ingstray ifway erethay isway\n"
+"   oneway."
+
+#: target:code/defmacro.lisp
+msgid "&Whole must appear first in ~S lambda-list."
+msgstr "&Olewhay ustmay appearway irstfay inway ~S ambdalay-istlay."
+
+#: target:code/defmacro.lisp
+msgid "&environment not valid with ~S."
+msgstr "&environmentway otnay alidvay ithway ~S."
+
+#: target:code/defmacro.lisp
+msgid "&environment only valid at top level of lambda-list."
+msgstr ""
+"&environmentway onlyway alidvay atway optay evellay ofway ambdalay-istlay."
+
+#: target:code/defmacro.lisp
+msgid "Invalid ~a"
+msgstr "Invalidway ~away"
+
+#: target:code/defmacro.lisp
+msgid "Ignore extra noise."
+msgstr "Ignoreway extraway oisenay."
+
+#: target:code/defmacro.lisp
+msgid ""
+"More than variable, initform, and suppliedp ~\n"
+"\t\t\t    in &optional binding - ~S"
+msgstr ""
+"Oremay anthay ariablevay, initformway, andway uppliedpsay ~\n"
+"\t\t\t    inway &optionalway indingbay - ~S"
+
+#: target:code/defmacro.lisp
+msgid "Non-symbol in lambda-list - ~S."
+msgstr "Onnay-ymbolsay inway ambdalay-istlay - ~S."
+
+#: target:code/defmacro.lisp
+msgid "Illegal optional variable name: ~S"
+msgstr "Illegalway optionalway ariablevay amenay: ~S"
+
+#: target:code/defmacro.lisp
+msgid ""
+"Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
+msgstr ""
+"Akestay away onnay-eywordkay ymbolsay, ymbolsay, andway eturnsray ethay "
+"orrespondingcay eywordkay."
+
+#: target:code/defmacro.lisp
+msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
+msgstr ""
+"Illegalway orway illway-ormedfay ~Away argumentway inway ~Away~@[ ~S~]."
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A in ~S:~%"
+msgstr "Errorway ilewhay arsingpay argumentsway otay ~Away inway ~S:~%"
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A ~S:~%"
+msgstr "Errorway ilewhay arsingpay argumentsway otay ~Away ~S:~%"
+
+#: target:code/defmacro.lisp
+msgid "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
+msgstr "Ogusbay ublistsay:~%  ~S~%otay atisfysay ambdalay-istlay:~%  ~:S~%"
+
+#: target:code/defmacro.lisp
+msgid ""
+"Invalid number of elements in:~%  ~:S~%~\n"
+"\t     to satisfy lambda-list:~%  ~:S~%"
+msgstr ""
+"Invalidway umbernay ofway elementsway inway:~%  ~:S~%~\n"
+"\t     otay atisfysay ambdalay-istlay:~%  ~:S~%"
+
+#: target:code/defmacro.lisp
+msgid "Expected at least ~D"
+msgstr "Expectedway atway eastlay ~D"
+
+#: target:code/defmacro.lisp
+msgid "Expected exactly ~D"
+msgstr "Expectedway exactlyway ~D"
+
+#: target:code/defmacro.lisp
+msgid "Expected between ~D and ~D"
+msgstr "Expectedway etweenbay ~D andway ~D"
+
+#: target:code/defmacro.lisp
+msgid ", but got ~D."
+msgstr ", utbay otgay ~D."
+
+#: target:compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr "Ypetay otnay efinedday etyay."
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info class."
+msgstr "~S isway otnay away efinedday infoway assclay."
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info type."
+msgstr "~S isway otnay away efinedday infoway ypetay."
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Define-Info-Class Class\n"
+"  Define a new class of global information."
+msgstr ""
+"Efineday-Infoway-Assclay Assclay\n"
+"  Efineday away ewnay assclay ofway obalglay informationway."
+
+#: target:compiler/globaldb.lisp
+msgid "Out of INFO type numbers!"
+msgstr "Outway ofway INFO ypetay umbersnay!"
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Define-Info-Type Class Type default Type-Spec\n"
+"  Define a new type of global information for Class.  Type is the symbol "
+"name\n"
+"  of the type, Default is the value for that type when it hasn't been set, "
+"and\n"
+"  Type-Spec is a type-specifier which values of the type must satisfy.  The\n"
+"  default expression is evaluated each time the information is needed, with\n"
+"  Name bound to the name for which the information is being looked up.  If "
+"the\n"
+"  default evaluates to something with the second value true, then the "
+"second\n"
+"  value of Info will also be true."
+msgstr ""
+"Efineday-Infoway-Ypetay Assclay Ypetay efaultday Ypetay-Ecspay\n"
+"  Efineday away ewnay ypetay ofway obalglay informationway orfay Assclay.  "
+"Ypetay isway ethay ymbolsay amenay\n"
+"  ofway ethay ypetay, Efaultday isway ethay aluevay orfay atthay ypetay "
+"enwhay itway asnhay't eenbay etsay, andway\n"
+"  Ypetay-Ecspay isway away ypetay-ecifierspay ichwhay aluesvay ofway ethay "
+"ypetay ustmay atisfysay.  Ethay\n"
+"  efaultday expressionway isway evaluatedway eachway imetay ethay "
+"informationway isway eedednay, ithway\n"
+"  Amenay oundbay otay ethay amenay orfay ichwhay ethay informationway isway "
+"eingbay ookedlay upway.  Ifway ethay\n"
+"  efaultday evaluatesway otay omethingsay ithway ethay econdsay aluevay "
+"uetray, enthay ethay econdsay\n"
+"  aluevay ofway Infoway illway alsoway ebay uetray."
+
+#: target:compiler/globaldb.lisp
+msgid "Redefine it."
+msgstr "Edefineray itway."
+
+#: target:compiler/globaldb.lisp
+msgid "Changing type number for ~A ~A."
+msgstr "Angingchay ypetay umbernay orfay ~Away ~Away."
+
+#: target:compiler/globaldb.lisp
+msgid "Go for it."
+msgstr "Ogay orfay itway."
+
+#: target:compiler/globaldb.lisp
+msgid "Reusing type number for ~A ~A."
+msgstr "Eusingray ypetay umbernay orfay ~Away ~Away."
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return the information of the specified Type and Class for Name.\n"
+"   The second value is true if there is any such information recorded.  If\n"
+"   there is no information, the first value is the default and the second "
+"value\n"
+"   is NIL."
+msgstr ""
+"Eturnray ethay informationway ofway ethay ecifiedspay Ypetay andway Assclay "
+"orfay Amenay.\n"
+"   Ethay econdsay aluevay isway uetray ifway erethay isway anyway uchsay "
+"informationway ecordedray.  Ifway\n"
+"   erethay isway onay informationway, ethay irstfay aluevay isway ethay "
+"efaultday andway ethay econdsay aluevay\n"
+"   isway NIL."
+
+#: target:compiler/globaldb.lisp
+msgid "Set the global information for Name."
+msgstr "Etsay ethay obalglay informationway orfay Amenay."
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"DO-INFO (Env &Key Name Class Type Value) Form*\n"
+"  Iterate over all the values stored in the Info-Env Env.  Name is bound to\n"
+"  the entry's name, Class and Type are bound to the class and type\n"
+"  (represented as strings), and Value is bound to the entry's value."
+msgstr ""
+"DO-INFO (Envway &Eykay Amenay Assclay Ypetay Aluevay) Orm*Fay\n"
+"  Iterateway overway allway ethay aluesvay toredsay inway ethay Infoway-"
+"Envway Envway.  Amenay isway oundbay otay\n"
+"  ethay entryway's amenay, Assclay andway Ypetay areway oundbay otay ethay "
+"assclay andway ypetay\n"
+"  (epresentedray asway ingsstray), andway Aluevay isway oundbay otay ethay "
+"entryway's aluevay."
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return a new compact info environment that holds the same information as\n"
+"  Env."
+msgstr ""
+"Eturnray away ewnay ompactcay infoway environmentway atthay oldshay ethay "
+"amesay informationway asway\n"
+"  Envway."
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "No info environment?"
+msgstr "Onay infoway environmentway?"
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "Cannot modify this environment: ~S."
+msgstr "Annotcay odifymay isthay environmentway: ~S."
+
+#: target:compiler/globaldb.lisp
+msgid "0 is not a legal INFO name."
+msgstr "0 isway otnay away egallay INFO amenay."
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Clear the information of the specified Type and Class for Name in the\n"
+"  current environment, allowing any inherited info to become visible.  We\n"
+"  return true if there was any info."
+msgstr ""
+"Earclay ethay informationway ofway ethay ecifiedspay Ypetay andway Assclay "
+"orfay Amenay inway ethay\n"
+"  urrentcay environmentway, allowingway anyway inheritedway infoway otay "
+"ecomebay isiblevay.  Eway\n"
+"  eturnray uetray ifway erethay asway anyway infoway."
+
+#: target:code/macros.lisp
+msgid ""
+"This function is to parse the declarations and doc-string out of the body "
+"of\n"
+"  a defun-like form.  Body is the list of stuff which is to be parsed.\n"
+"  Environment is ignored.  If Doc-String-Allowed is true, then a doc string\n"
+"  will be parsed out of the body and returned.  If it is false then a "
+"string\n"
+"  will terminate the search for declarations.  Three values are returned: "
+"the\n"
+"  tail of Body after the declarations and doc strings, a list of declare "
+"forms,\n"
+"  and the doc-string, or NIL if none."
+msgstr ""
+"Isthay unctionfay isway otay arsepay ethay eclarationsday andway ocday-"
+"ingstray outway ofway ethay odybay ofway\n"
+"  away efunday-ikelay ormfay.  Odybay isway ethay istlay ofway tuffsay "
+"ichwhay isway otay ebay arsedpay.\n"
+"  Environmentway isway ignoredway.  Ifway Ocday-Ingstray-Allowedway isway "
+"uetray, enthay away ocday ingstray\n"
+"  illway ebay arsedpay outway ofway ethay odybay andway eturnedray.  Ifway "
+"itway isway alsefay enthay away ingstray\n"
+"  illway erminatetay ethay earchsay orfay eclarationsday.  Reethay aluesvay "
+"areway eturnedray: ethay\n"
+"  ailtay ofway Odybay afterway ethay eclarationsday andway ocday ingsstray, "
+"away istlay ofway eclareday ormsfay,\n"
+"  andway ethay ocday-ingstray, orway NIL ifway onenay."
+
+#: target:code/macros.lisp
+msgid "defining macro ~A"
+msgstr "efiningday acromay ~Away"
+
+#: target:code/macros.lisp
+msgid "Disable the package's definition-lock then continue"
+msgstr "Isableday ethay ackagepay's efinitionday-ocklay enthay ontinuecay"
+
+#: target:code/macros.lisp
+msgid "Define a compiler-macro for NAME."
+msgstr "Efineday away ompilercay-acromay orfay NAME."
+
+#: target:compiler/ir1tran.lisp target:code/macros.lisp
+msgid "Symbol macro name is not a symbol: ~S."
+msgstr "Ymbolsay acromay amenay isway otnay away ymbolsay: ~S."
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared special: ~S."
+msgstr "Ymbolsay acromay amenay alreadyway eclaredday ecialspay: ~S."
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared constant: ~S."
+msgstr "Ymbolsay acromay amenay alreadyway eclaredday onstantcay: ~S."
+
+#: target:code/macros.lisp
+msgid "Syntax like DEFMACRO, but defines a new type."
+msgstr "Yntaxsay ikelay DEFMACRO, utbay efinesday away ewnay ypetay."
+
+#: target:code/macros.lisp
+msgid "~S -- Type name not a symbol."
+msgstr "~S -- Ypetay amenay otnay away ymbolsay."
+
+#: target:code/macros.lisp
+msgid "defining type ~A"
+msgstr "efiningday ypetay ~Away"
+
+#: target:code/macros.lisp
+msgid "Disable package's definition-lock then continue"
+msgstr "Isableday ackagepay's efinitionday-ocklay enthay ontinuecay"
+
+#: target:code/macros.lisp
+msgid "Deftype already names a declaration: ~S."
+msgstr "Eftypeday alreadyway amesnay away eclarationday: ~S."
+
+#: target:code/macros.lisp
+msgid "Illegal to redefine standard type: ~S."
+msgstr "Illegalway otay edefineray tandardsay ypetay: ~S."
+
+#: target:code/macros.lisp
+msgid "Redefining class ~S to be a DEFTYPE."
+msgstr "Edefiningray assclay ~S otay ebay away DEFTYPE."
+
+#: target:code/macros.lisp
+msgid "Setf expander for ~S cannot be called with ~S args."
+msgstr "Etfsay expanderway orfay ~S annotcay ebay alledcay ithway ~S argsway."
+
+#: target:code/macros.lisp
+msgid ""
+"Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body\n"
+"  must be a form that returns the five magical values."
+msgstr ""
+"Yntaxsay ikelay DEFMACRO, utbay eatescray away Etfsay-Expansionway "
+"eneratorgay.  Ethay odybay\n"
+"  ustmay ebay away ormfay atthay eturnsray ethay ivefay agicalmay aluesvay."
+
+#: target:code/macros.lisp
+msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
+msgstr ""
+"~S -- Accessway-unctionfay amenay otnay away ymbolsay inway DEFINE-SETF-"
+"EXPANDER."
+
+#: target:code/macros.lisp
+msgid "Obsolete, use define-setf-expander."
+msgstr "Obsoleteway, useway efineday-etfsay-expanderway."
+
+#: target:code/macros.lisp
+msgid ""
+"Defining setf macro for destruct slot accessor; redefining as ~\n"
+"\t        a normal function:~%  ~S"
+msgstr ""
+"Efiningday etfsay acromay orfay estructday otslay accessorway; edefiningray "
+"asway ~\n"
+"\t        away ormalnay unctionfay:~%  ~S"
+
+#: target:code/macros.lisp
+msgid "Defining setf macro for ~S, but ~S is fbound."
+msgstr "Efiningday etfsay acromay orfay ~S, utbay ~S isway boundfay."
+
+#: target:code/macros.lisp
+msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
+msgstr ""
+"Indbay ethay ariablesvay inway LAMBDA-LIST otay ethay ontentscay ofway ARG-"
+"LIST."
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global constants at top level.  The DEFCONSTANT says that the\n"
+"  value is constant and may be compiled into code.  If the variable already "
+"has\n"
+"  a value, and this is not equal to the init, an error is signalled.  The "
+"third\n"
+"  argument is an optional documentation string for the variable."
+msgstr ""
+"Orfay efiningday obalglay onstantscay atway optay evellay.  Ethay "
+"DEFCONSTANT ayssay atthay ethay\n"
+"  aluevay isway onstantcay andway aymay ebay ompiledcay intoway odecay.  "
+"Ifway ethay ariablevay alreadyway ashay\n"
+"  away aluevay, andway isthay isway otnay equalway otay ethay initway, anway "
+"errorway isway ignalledsay.  Ethay irdthay\n"
+"  argumentway isway anway optionalway ocumentationday ingstray orfay ethay "
+"ariablevay."
+
+#: target:code/macros.lisp
+msgid "Go ahead and change the value."
+msgstr "Ogay aheadway andway angechay ethay aluevay."
+
+#: target:code/macros.lisp
+msgid "Constant ~S being redefined."
+msgstr "Onstantcay ~S eingbay edefinedray."
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global variables at top level.  Declares the variable\n"
+"  SPECIAL and, optionally, initializes it.  If the variable already has a\n"
+"  value, the old value is not clobbered.  The third argument is an optional\n"
+"  documentation string for the variable."
+msgstr ""
+"Orfay efiningday obalglay ariablesvay atway optay evellay.  Eclaresday ethay "
+"ariablevay\n"
+"  SPECIAL andway, optionallyway, initializesway itway.  Ifway ethay "
+"ariablevay alreadyway ashay away\n"
+"  aluevay, ethay oldway aluevay isway otnay obberedclay.  Ethay irdthay "
+"argumentway isway anway optionalway\n"
+"  ocumentationday ingstray orfay ethay ariablevay."
+
+#: target:code/macros.lisp
+msgid ""
+"Defines a parameter that is not normally changed by the program,\n"
+"  but that may be changed without causing an error.  Declares the\n"
+"  variable special and sets its value to VAL.  The third argument is\n"
+"  an optional documentation string for the parameter."
+msgstr ""
+"Efinesday away arameterpay atthay isway otnay ormallynay angedchay ybay "
+"ethay ogrampray,\n"
+"  utbay atthay aymay ebay angedchay ithoutway ausingcay anway errorway.  "
+"Eclaresday ethay\n"
+"  ariablevay ecialspay andway etssay itsway aluevay otay VAL.  Ethay irdthay "
+"argumentway isway\n"
+"  anway optionalway ocumentationday ingstray orfay ethay arameterpay."
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is non-null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+"Irstfay argway isway away edicatepray.  Ifway itway isway onnay-ullnay, "
+"ethay estray ofway ethay ormsfay areway\n"
+"  evaluatedway asway away PROGN."
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+"Irstfay argway isway away edicatepray.  Ifway itway isway ullnay, ethay "
+"estray ofway ethay ormsfay areway\n"
+"  evaluatedway asway away PROGN."
+
+#: target:code/macros.lisp
+msgid "Cond clause is not a list: ~S."
+msgstr "Ondcay auseclay isway otnay away istlay: ~S."
+
+#: target:code/macros.lisp
+msgid "Varlist is not a list of symbols: ~S."
+msgstr "Arlistvay isway otnay away istlay ofway ymbolssay: ~S."
+
+#: target:code/macros.lisp
+msgid ""
+"Evaluates FORM and returns the Nth value (zero based).  This involves no\n"
+"  consing when N is a trivial constant integer."
+msgstr ""
+"Evaluatesway FORM andway eturnsray ethay Thnay aluevay (erozay asedbay).  "
+"Isthay involvesway onay\n"
+"  onsingcay enwhay N isway away ivialtray onstantcay integerway."
+
+#: target:code/macros.lisp
+msgid ""
+"Returns five values needed by the SETF machinery: a list of temporary\n"
+"   variables, a list of values with which to fill them, a list of "
+"temporaries\n"
+"   for the new values, the setting function, and the accessing function."
+msgstr ""
+"Eturnsray ivefay aluesvay eedednay ybay ethay SETF achinerymay: away istlay "
+"ofway emporarytay\n"
+"   ariablesvay, away istlay ofway aluesvay ithway ichwhay otay illfay "
+"emthay, away istlay ofway emporarietays\n"
+"   orfay ethay ewnay aluesvay, ethay ettingsay unctionfay, andway ethay "
+"accessingway unctionfay."
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION."
+msgstr "Obsoleteway: useway GET-SETF-EXPANSION."
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
+msgstr ""
+"Obsoleteway: useway GET-SETF-EXPANSION andway andlehay ultiplemay toresay "
+"aluesvay."
+
+#: target:code/macros.lisp
+msgid ""
+"GET-SETF-METHOD used for a form with multiple store ~\n"
+"\t      variables:~%  ~S"
+msgstr ""
+"GET-SETF-METHOD usedway orfay away ormfay ithway ultiplemay toresay ~\n"
+"\t      ariablesvay:~%  ~S"
+
+#: target:code/macros.lisp
+msgid ""
+"Associates a SETF update function or macro with the specified access\n"
+"  function or macro.  The format is complex.  See the manual for\n"
+"  details."
+msgstr ""
+"Associatesway away SETF updateway unctionfay orway acromay ithway ethay "
+"ecifiedspay accessway\n"
+"  unctionfay orway acromay.  Ethay ormatfay isway omplexcay.  Eesay ethay "
+"anualmay orfay\n"
+"  etailsday."
+
+#: target:code/macros.lisp
+msgid "Ill-formed DEFSETF for ~S."
+msgstr "Illway-ormedfay DEFSETF orfay ~S."
+
+#: target:code/macros.lisp
+msgid ""
+"Takes pairs of arguments like SETQ.  The first is a place and the second\n"
+"  is the value that is supposed to go into that place.  Returns the last\n"
+"  value.  The place argument may be any of the access forms for which SETF\n"
+"  knows a corresponding setting form."
+msgstr ""
+"Akestay airspay ofway argumentsway ikelay SETQ.  Ethay irstfay isway away "
+"aceplay andway ethay econdsay\n"
+"  isway ethay aluevay atthay isway upposedsay otay ogay intoway atthay "
+"aceplay.  Eturnsray ethay astlay\n"
+"  aluevay.  Ethay aceplay argumentway aymay ebay anyway ofway ethay "
+"accessway ormsfay orfay ichwhay SETF\n"
+"  nowskay away orrespondingcay ettingsay ormfay."
+
+#: target:code/macros.lisp
+msgid "Odd number of args to SETF."
+msgstr "Oddway umbernay ofway argsway otay SETF."
+
+#: target:code/macros.lisp
+msgid ""
+"This is to SETF as PSETQ is to SETQ.  Args are alternating place\n"
+"  expressions and values to go into those places.  All of the subforms and\n"
+"  values are determined, left to right, and only then are the locations\n"
+"  updated.  Returns NIL."
+msgstr ""
+"Isthay isway otay SETF asway PSETQ isway otay SETQ.  Argsway areway "
+"alternatingway aceplay\n"
+"  expressionsway andway aluesvay otay ogay intoway osethay acesplay.  Allway "
+"ofway ethay ubformssay andway\n"
+"  aluesvay areway eterminedday, eftlay otay ightray, andway onlyway enthay "
+"areway ethay ocationslay\n"
+"  updatedway.  Eturnsray NIL."
+
+#: target:code/macros.lisp
+msgid "Odd number of args to PSETF."
+msgstr "Oddway umbernay ofway argsway otay PSETF."
+
+#: target:code/macros.lisp
+msgid ""
+"One or more SETF-style place expressions, followed by a single\n"
+"   value expression.  Evaluates all of the expressions in turn, then\n"
+"   assigns the value of each expression to the place on its left,\n"
+"   returning the value of the leftmost."
+msgstr ""
+"Oneway orway oremay SETF-tylesay aceplay expressionsway, ollowedfay ybay "
+"away inglesay\n"
+"   aluevay expressionway.  Evaluatesway allway ofway ethay expressionsway "
+"inway urntay, enthay\n"
+"   assignsway ethay aluevay ofway eachway expressionway otay ethay aceplay "
+"onway itsway eftlay,\n"
+"   eturningray ethay aluevay ofway ethay eftmostlay."
+
+#: target:code/macros.lisp
+msgid ""
+"Takes any number of SETF-style place expressions.  Evaluates all of the\n"
+"   expressions in turn, then assigns to each place the value of the form to\n"
+"   its right.  The rightmost form gets the value of the leftmost.\n"
+"   Returns NIL."
+msgstr ""
+"Akestay anyway umbernay ofway SETF-tylesay aceplay expressionsway.  "
+"Evaluatesway allway ofway ethay\n"
+"   expressionsway inway urntay, enthay assignsway otay eachway aceplay ethay "
+"aluevay ofway ethay ormfay otay\n"
+"   itsway ightray.  Ethay ightmostray ormfay etsgay ethay aluevay ofway "
+"ethay eftmostlay.\n"
+"   Eturnsray NIL."
+
+#: target:code/macros.lisp
+msgid "Creates a new read-modify-write macro like PUSH or INCF."
+msgstr ""
+"Eatescray away ewnay eadray-odifymay-itewray acromay ikelay PUSH orway INCF."
+
+#: target:code/macros.lisp
+msgid "Non-symbol &rest arg in definition of ~S."
+msgstr "Onnay-ymbolsay &estray argway inway efinitionday ofway ~S."
+
+#: target:code/macros.lisp
+msgid "Illegal stuff after &rest arg in Define-Modify-Macro."
+msgstr ""
+"Illegalway tuffsay afterway &estray argway inway Efineday-Odifymay-Acromay."
+
+#: target:code/macros.lisp
+msgid "~S not allowed in Define-Modify-Macro lambda list."
+msgstr "~S otnay allowedway inway Efineday-Odifymay-Acromay ambdalay istlay."
+
+#: target:code/macros.lisp
+msgid "Illegal stuff in lambda list of Define-Modify-Macro."
+msgstr ""
+"Illegalway tuffsay inway ambdalay istlay ofway Efineday-Odifymay-Acromay."
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  Conses the object onto\n"
+"  the list, returning the modified list.  OBJ is evaluated before PLACE."
+msgstr ""
+"Akestay anway objectway andway away ocationlay oldinghay away istlay.  "
+"Onsescay ethay objectway ontoway\n"
+"  ethay istlay, eturningray ethay odifiedmay istlay.  OBJ isway evaluatedway "
+"eforebay PLACE."
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  If the object is already\n"
+"  in the list, does nothing.  Else, conses the object onto the list.  "
+"Returns\n"
+"  NIL.  If there is a :TEST keyword, this is used for the comparison."
+msgstr ""
+"Akestay anway objectway andway away ocationlay oldinghay away istlay.  Ifway "
+"ethay objectway isway alreadyway\n"
+"  inway ethay istlay, oesday othingnay.  Elseway, onsescay ethay objectway "
+"ontoway ethay istlay.  Eturnsray\n"
+"  NIL.  Ifway erethay isway away :TEST eywordkay, isthay isway usedway orfay "
+"ethay omparisoncay."
+
+#: target:code/macros.lisp
+msgid ""
+"The argument is a location holding a list.  Pops one item off the front\n"
+"  of the list and returns it."
+msgstr ""
+"Ethay argumentway isway away ocationlay oldinghay away istlay.  Opspay "
+"oneway itemway offway ethay ontfray\n"
+"  ofway ethay istlay andway eturnsray itway."
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  incremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+"Ethay irstfay argumentway isway omesay ocationlay oldinghay away umbernay. "
+"Isthay umbernay isway\n"
+"  incrementedway ybay ethay econdsay argumentway, DELTA, ichwhay efaultsday "
+"otay 1."
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  decremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+"Ethay irstfay argumentway isway omesay ocationlay oldinghay away umbernay. "
+"Isthay umbernay isway\n"
+"  ecrementedday ybay ethay econdsay argumentway, DELTA, ichwhay efaultsday "
+"otay 1."
+
+#: target:code/macros.lisp
+msgid ""
+"Place may be any place expression acceptable to SETF, and is expected\n"
+"  to hold a property list or ().  This list is destructively altered to\n"
+"  remove the property specified by the indicator.  Returns T if such a\n"
+"  property was present, NIL if not."
+msgstr ""
+"Aceplay aymay ebay anyway aceplay expressionway acceptableway otay SETF, "
+"andway isway expectedway\n"
+"  otay oldhay away opertypray istlay orway ().  Isthay istlay isway "
+"estructivelyday alteredway otay\n"
+"  emoveray ethay opertypray ecifiedspay ybay ethay indicatorway.  Eturnsray "
+"T ifway uchsay away\n"
+"  opertypray asway esentpray, NIL ifway otnay."
+
+#: target:code/macros.lisp
+msgid "Setf of Apply is only defined for function args like #'symbol."
+msgstr ""
+"Etfsay ofway Applyway isway onlyway efinedday orfay unctionfay argsway "
+"ikelay #'ymbolsay."
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this\n"
+"  place with bits from the low-order end of the new value."
+msgstr ""
+"Ethay irstfay argumentway isway away ytebay ecifierspay.  Ethay econdsay "
+"isway anyway aceplay ormfay\n"
+"  acceptableway otay SETF.  Eplacesray ethay ecifiedspay ytebay ofway ethay "
+"umbernay inway isthay\n"
+"  aceplay ithway itsbay omfray ethay owlay-orderway endway ofway ethay ewnay "
+"aluevay."
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this "
+"place\n"
+"  with bits from the corresponding position in the new value."
+msgstr ""
+"Ethay irstfay argumentway isway away ytebay ecifierspay.  Ethay econdsay "
+"isway anyway aceplay ormfay\n"
+"  acceptableway otay SETF.  Eplacesray ethay ecifiedspay ytebay ofway ethay "
+"umbernay inway isthay aceplay\n"
+"  ithway itsbay omfray ethay orrespondingcay ositionpay inway ethay ewnay "
+"aluevay."
+
+#: target:code/macros.lisp
+msgid "~S -- Bad clause in ~S."
+msgstr "~S -- Adbay auseclay inway ~S."
+
+#: target:code/macros.lisp
+msgid "No default clause allowed in ~S: ~S"
+msgstr "Onay efaultday auseclay allowedway inway ~S: ~S"
+
+#: target:code/macros.lisp
+msgid "T and OTHERWISE may not be used as key designators for ~A"
+msgstr ""
+"T andway OTHERWISE aymay otnay ebay usedway asway eykay esignatorsday orfay "
+"~Away"
+
+#: target:code/macros.lisp
+msgid "Bad style to use T or OTHERWISE in ECASE or CCASE"
+msgstr "Adbay tylesay otay useway T orway OTHERWISE inway ECASE orway CCASE"
+
+#: target:code/macros.lisp
+msgid "Supply a new value for ~S."
+msgstr "Upplysay away ewnay aluevay orfay ~S."
+
+#: target:code/macros.lisp
+msgid ""
+"CASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value\n"
+"  of Keyform.  If a singleton key is T or Otherwise then the clause is\n"
+"  a default clause."
+msgstr ""
+"CASE Eyformkay {({(Ey*Kay) | Eykay} Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay ithway away Eykay "
+"EQL otay ethay aluevay\n"
+"  ofway Eyformkay.  Ifway away ingletonsay eykay isway T orway Otherwiseway "
+"enthay ethay auseclay isway\n"
+"  away efaultday auseclay."
+
+#: target:code/macros.lisp
+msgid ""
+"CCASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then a correctable error is\n"
+"  signalled."
+msgstr ""
+"CCASE Eyformkay {({(Ey*Kay) | Eykay} Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay ithway away Eykay "
+"EQL otay ethay aluevay ofway\n"
+"  Eyformkay.  Ifway onenay ofway ethay eyskay atchesmay enthay away "
+"orrectablecay errorway isway\n"
+"  ignalledsay."
+
+#: target:code/macros.lisp
+msgid ""
+"ECASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then an error is signalled."
+msgstr ""
+"ECASE Eyformkay {({(Ey*Kay) | Eykay} Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay ithway away Eykay "
+"EQL otay ethay aluevay ofway\n"
+"  Eyformkay.  Ifway onenay ofway ethay eyskay atchesmay enthay anway "
+"errorway isway ignalledsay."
+
+#: target:code/macros.lisp
+msgid ""
+"TYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform\n"
+"  and Type is true.  If a singleton key is T or Otherwise then the\n"
+"  clause is a default clause."
+msgstr ""
+"TYPECASE Eyformkay {(Ypetay Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay orfay ichwhay "
+"TYPEP ofway Eyformkay\n"
+"  andway Ypetay isway uetray.  Ifway away ingletonsay eykay isway T orway "
+"Otherwiseway enthay ethay\n"
+"  auseclay isway away efaultday auseclay."
+
+#: target:code/macros.lisp
+msgid ""
+"CTYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then a correctable error is signalled."
+msgstr ""
+"CTYPECASE Eyformkay {(Ypetay Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay orfay ichwhay "
+"TYPEP ofway Eyformkay andway Ypetay\n"
+"  isway uetray.  Ifway onay ormfay isway atisfiedsay enthay away "
+"orrectablecay errorway isway ignalledsay."
+
+#: target:code/macros.lisp
+msgid ""
+"ETYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then an error is signalled."
+msgstr ""
+"ETYPECASE Eyformkay {(Ypetay Orm*Fay)}*\n"
+"  Evaluatesway ethay Ormsfay inway ethay irstfay auseclay orfay ichwhay "
+"TYPEP ofway Eyformkay andway Ypetay\n"
+"  isway uetray.  Ifway onay ormfay isway atisfiedsay enthay anway errorway "
+"isway ignalledsay."
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error if the value of test-form is nil.  Continuing from this\n"
+"   error using the CONTINUE restart will allow the user to alter the value "
+"of\n"
+"   some locations known to SETF, starting over with test-form.  Returns nil."
+msgstr ""
+"Ignalssay anway errorway ifway ethay aluevay ofway esttay-ormfay isway "
+"ilnay.  Ontinuingcay omfray isthay\n"
+"   errorway usingway ethay CONTINUE estartray illway allowway ethay userway "
+"otay alterway ethay aluevay ofway\n"
+"   omesay ocationslay nownkay otay SETF, tartingsay overway ithway esttay-"
+"ormfay.  Eturnsray ilnay."
+
+#: target:code/macros.lisp
+msgid "The assertion ~S failed."
+msgstr "Ethay assertionway ~S ailedfay."
+
+#: target:code/macros.lisp
+msgid "Retry assertion"
+msgstr "Etryray assertionway"
+
+#: target:code/macros.lisp
+msgid " with new value for ~{~S~^, ~}."
+msgid_plural " with new values for ~{~S~^, ~}."
+msgstr[0] " ithway ewnay aluevay orfay ~{~S~^, ~}."
+msgstr[1] " ithway ewnay aluesvay orfay ~{~S~^, ~}."
+
+#: target:code/macros.lisp
+msgid ""
+"The old value of ~S is ~S.~\n"
+"\t\t  ~%Do you want to supply a new value? "
+msgstr ""
+"Ethay oldway aluevay ofway ~S isway ~S.~\n"
+"\t\t  ~%Oday ouyay antway otay upplysay away ewnay aluevay? "
+
+#: target:code/macros.lisp
+msgid "~&Type a form to be evaluated:~%"
+msgstr "~&Ypetay away ormfay otay ebay evaluatedway:~%"
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error of type type-error if the contents of place are not of the\n"
+"   specified type.  If an error is signaled, this can only return if\n"
+"   STORE-VALUE is invoked.  It will store into place and start over."
+msgstr ""
+"Ignalssay anway errorway ofway ypetay ypetay-errorway ifway ethay ontentscay "
+"ofway aceplay areway otnay ofway ethay\n"
+"   ecifiedspay ypetay.  Ifway anway errorway isway ignaledsay, isthay ancay "
+"onlyway eturnray ifway\n"
+"   STORE-VALUE isway invokedway.  Itway illway toresay intoway aceplay "
+"andway tartsay overway."
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not ~A."
+msgstr "Ethay aluevay ofway ~S isway ~S, ichwhay isway otnay ~Away."
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not of type ~S."
+msgstr "Ethay aluevay ofway ~S isway ~S, ichwhay isway otnay ofway ypetay ~S."
+
+#: target:code/macros.lisp
+msgid "Supply a new value of ~S."
+msgstr "Upplysay away ewnay aluevay ofway ~S."
+
+#: target:code/macros.lisp
+msgid ""
+"The file whose name is Filespec is opened using the Open-args and\n"
+"  bound to the variable Var. If the call to open is unsuccessful, the\n"
+"  forms are not evaluated.  The Forms are executed, and when they\n"
+"  terminate, normally or otherwise, the file is closed."
+msgstr ""
+"Ethay ilefay osewhay amenay isway Ilespecfay isway openedway usingway ethay "
+"Openway-argsway andway\n"
+"  oundbay otay ethay ariablevay Arvay. Ifway ethay allcay otay openway isway "
+"unsuccessfulway, ethay\n"
+"  ormsfay areway otnay evaluatedway.  Ethay Ormsfay areway executedway, "
+"andway enwhay eythay\n"
+"  erminatetay, ormallynay orway otherwiseway, ethay ilefay isway osedclay."
+
+#: target:code/macros.lisp
+msgid ""
+"The form stream should evaluate to a stream.  VAR is bound\n"
+"   to the stream and the forms are evaluated as an implicit\n"
+"   progn.  The stream is closed upon exit."
+msgstr ""
+"Ethay ormfay eamstray ouldshay evaluateway otay away eamstray.  VAR isway "
+"oundbay\n"
+"   otay ethay eamstray andway ethay ormsfay areway evaluatedway asway anway "
+"implicitway\n"
+"   ognpray.  Ethay eamstray isway osedclay uponway exitway."
+
+#: target:code/macros.lisp
+msgid ""
+"Binds the Var to an input stream that returns characters from String and\n"
+"  executes the body.  See manual for details."
+msgstr ""
+"Indsbay ethay Arvay otay anway inputway eamstray atthay eturnsray "
+"aracterschay omfray Ingstray andway\n"
+"  executesway ethay odybay.  Eesay anualmay orfay etailsday."
+
+#: target:code/macros.lisp
+msgid ""
+"If STRING is specified, it must be a string with a fill pointer;\n"
+"   the output is incrementally appended to the string (as if by use of\n"
+"   VECTOR-PUSH-EXTEND)."
+msgstr ""
+"Ifway STRING isway ecifiedspay, itway ustmay ebay away ingstray ithway away "
+"illfay ointerpay;\n"
+"   ethay outputway isway incrementallyway appendedway otay ethay ingstray "
+"(asway ifway ybay useway ofway\n"
+"   VECTOR-PUSH-EXTEND)."
+
+#: target:code/macros.lisp
+msgid ""
+"DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized in parallel to the value of "
+"the\n"
+"  specified Init form.  On subsequent iterations, the Vars are assigned the\n"
+"  value of the Step form (if any) in paralell.  The Test is evaluated "
+"before\n"
+"  each evaluation of the body Forms.  When the Test is true, the Exit-Forms\n"
+"  are evaluated as a PROGN, with the result being the value of the DO.  A "
+"block\n"
+"  named NIL is established around the entire expansion, allowing RETURN to "
+"be\n"
+"  used as an laternate exit mechanism."
+msgstr ""
+"DO ({(Arvay [Initway] [Tepsay])}*) (Esttay Exitway-Orm*Fay) Eclaration*Day "
+"Orm*Fay\n"
+"  Iterationway onstructcay.  Eachway Arvay isway initializedway inway "
+"arallelpay otay ethay aluevay ofway ethay\n"
+"  ecifiedspay Initway ormfay.  Onway ubsequentsay iterationsway, ethay "
+"Arsvay areway assignedway ethay\n"
+"  aluevay ofway ethay Tepsay ormfay (ifway anyway) inway aralellpay.  Ethay "
+"Esttay isway evaluatedway eforebay\n"
+"  eachway evaluationway ofway ethay odybay Ormsfay.  Enwhay ethay Esttay "
+"isway uetray, ethay Exitway-Ormsfay\n"
+"  areway evaluatedway asway away PROGN, ithway ethay esultray eingbay ethay "
+"aluevay ofway ethay DO.  Away ockblay\n"
+"  amednay NIL isway establishedway aroundway ethay entireway expansionway, "
+"allowingway RETURN otay ebay\n"
+"  usedway asway anway aternatelay exitway echanismmay."
+
+#: target:code/macros.lisp
+msgid ""
+"DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized sequentially (like LET*) to "
+"the\n"
+"  value of the specified Init form.  On subsequent iterations, the Vars are\n"
+"  sequentially assigned the value of the Step form (if any).  The Test is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO.  A block named NIL is established around the entire expansion,\n"
+"  allowing RETURN to be used as an laternate exit mechanism."
+msgstr ""
+"O*Day ({(Arvay [Initway] [Tepsay])}*) (Esttay Exitway-Orm*Fay) "
+"Eclaration*Day Orm*Fay\n"
+"  Iterationway onstructcay.  Eachway Arvay isway initializedway "
+"equentiallysay (ikelay Et*Lay) otay ethay\n"
+"  aluevay ofway ethay ecifiedspay Initway ormfay.  Onway ubsequentsay "
+"iterationsway, ethay Arsvay areway\n"
+"  equentiallysay assignedway ethay aluevay ofway ethay Tepsay ormfay (ifway "
+"anyway).  Ethay Esttay isway\n"
+"  evaluatedway eforebay eachway evaluationway ofway ethay odybay Ormsfay.  "
+"Enwhay ethay Esttay isway uetray,\n"
+"  ethay Exitway-Ormsfay areway evaluatedway asway away PROGN, ithway ethay "
+"esultray eingbay ethay aluevay\n"
+"  ofway ethay DO.  Away ockblay amednay NIL isway establishedway aroundway "
+"ethay entireway expansionway,\n"
+"  allowingway RETURN otay ebay usedway asway anway aternatelay exitway "
+"echanismmay."
+
+#: target:code/macros.lisp
+msgid ""
+"PSETQ {var value}*\n"
+"   Set the variables to the values, like SETQ, except that assignments\n"
+"   happen in parallel, i.e. no assignments take place until all the\n"
+"   forms have been evaluated."
+msgstr ""
+"PSETQ {arvay aluevay}*\n"
+"   Etsay ethay ariablesvay otay ethay aluesvay, ikelay SETQ, exceptway "
+"atthay assignmentsway\n"
+"   appenhay inway arallelpay, i.e. onay assignmentsway aketay aceplay "
+"untilway allway ethay\n"
+"   ormsfay avehay eenbay evaluatedway."
+
+#: target:code/macros.lisp
+msgid "variable ~S in PSETQ is not a SYMBOL"
+msgstr "ariablevay ~S inway PSETQ isway otnay away SYMBOL"
+
+#: target:code/macros.lisp
+msgid "Unknown declaration context: ~S."
+msgstr "Unknownway eclarationday ontextcay: ~S."
+
+#: target:code/macros.lisp
+msgid ""
+"Context declaration spec should have context and at ~\n"
+"\t  least one DECLARE form:~%  ~S"
+msgstr ""
+"Ontextcay eclarationday ecspay ouldshay avehay ontextcay andway atway ~\n"
+"\t  eastlay oneway DECLARE ormfay:~%  ~S"
+
+#: target:code/macros.lisp
+msgid ""
+"WITH-COMPILATION-UNIT ({Key Value}*) Form*\n"
+"  This form affects compilations that take place within its dynamic extent.  "
+"It\n"
+"  is intended to be wrapped around the compilation of all files in the same\n"
+"  system.  These keywords are defined:\n"
+"    :OVERRIDE Boolean-Form\n"
+"        One of the effects of this form is to delay undefined warnings \n"
+"        until the end of the form, instead of giving them at the end of "
+"each\n"
+"        compilation.  If OVERRIDE is NIL (the default), then the outermost\n"
+"        WITH-COMPILATION-UNIT form grabs the undefined warnings.  "
+"Specifying\n"
+"        OVERRIDE true causes that form to grab any enclosed warnings, even "
+"if\n"
+"        it is enclosed by another WITH-COMPILATION-UNIT.\n"
+"    :OPTIMIZE Decl-Form\n"
+"        Decl-Form should evaluate to an OPTIMIZE declaration specifier.  "
+"This\n"
+"        declaration changes the `global' policy for compilations within the\n"
+"        body.\n"
+"    :OPTIMIZE-INTERFACE Decl-Form\n"
+"        Like OPTIMIZE, except that it specifies the value of the CMU "
+"extension\n"
+"        OPTIMIZE-INTERFACE policy (which controls argument type and syntax\n"
+"        checking.)\n"
+"    :CONTEXT-DECLARATIONS List-of-Context-Decls-Form\n"
+"        This is a CMU extension which allows compilation to be controlled\n"
+"        by pattern matching on the context in which a definition appears.  "
+"The\n"
+"        argument should evaluate to a list of lists of the form:\n"
+"            (Context-Spec Declare-Form+)\n"
+"        In the indicated context, the specified declare forms are inserted "
+"at\n"
+"        the head of each definition.  The declare forms for all contexts "
+"that\n"
+"\tmatch are appended together, with earlier declarations getting\n"
+"\tpredecence over later ones.  A simple example:\n"
+"            :context-declarations\n"
+"            '((:external (declare (optimize (safety 2)))))\n"
+"        This will cause all functions that are named by external symbols to "
+"be\n"
+"        compiled with SAFETY 2.  The full syntax of context specs is:\n"
+"\t:INTERNAL, :EXTERNAL\n"
+"\t    True if the symbols is internal (external) in its home package.\n"
+"\t:UNINTERNED\n"
+"\t    True if the symbol has no home package.\n"
+"\t:ANONYMOUS\n"
+"\t    True if the function doesn't have any interesting name (not\n"
+"\t    DEFMACRO, DEFUN, LABELS or FLET).\n"
+"\t:MACRO, :FUNCTION\n"
+"\t    :MACRO is a global (DEFMACRO) macro.  :FUNCTION is anything else.\n"
+"\t:LOCAL, :GLOBAL\n"
+"\t    :LOCAL is a LABELS or FLET.  :GLOBAL is anything else.\n"
+"\t(:OR Context-Spec*)\n"
+"\t    True in any specified context.\n"
+"\t(:AND Context-Spec*)\n"
+"\t    True only when all specs are true.\n"
+"\t(:NOT Context-Spec)\n"
+"\t    True when the spec is false.\n"
+"        (:MEMBER Name*)\n"
+"\t    True when the name is one of these names (EQUAL test.)\n"
+"\t(:MATCH Pattern*)\n"
+"\t    True when any of the patterns is a substring of the name.  The name\n"
+"\t    is wrapped with $'s, so $FOO matches names beginning with FOO,\n"
+"\t    etc."
+msgstr ""
+"WITH-COMPILATION-UNIT ({Eykay Aluevay}*) Orm*Fay\n"
+"  Isthay ormfay affectsway ompilationscay atthay aketay aceplay ithinway "
+"itsway ynamicday extentway.  Itway\n"
+"  isway intendedway otay ebay appedwray aroundway ethay ompilationcay ofway "
+"allway ilesfay inway ethay amesay\n"
+"  ystemsay.  Esethay eywordskay areway efinedday:\n"
+"    :OVERRIDE Ooleanbay-Ormfay\n"
+"        Oneway ofway ethay effectsway ofway isthay ormfay isway otay elayday "
+"undefinedway arningsway \n"
+"        untilway ethay endway ofway ethay ormfay, insteadway ofway ivinggay "
+"emthay atway ethay endway ofway eachway\n"
+"        ompilationcay.  Ifway OVERRIDE isway NIL (ethay efaultday), enthay "
+"ethay outermostway\n"
+"        WITH-COMPILATION-UNIT ormfay absgray ethay undefinedway arningsway.  "
+"Ecifyingspay\n"
+"        OVERRIDE uetray ausescay atthay ormfay otay abgray anyway "
+"enclosedway arningsway, evenway ifway\n"
+"        itway isway enclosedway ybay anotherway WITH-COMPILATION-UNIT.\n"
+"    :OPTIMIZE Eclday-Ormfay\n"
+"        Eclday-Ormfay ouldshay evaluateway otay anway OPTIMIZE eclarationday "
+"ecifierspay.  Isthay\n"
+"        eclarationday angeschay ethay `obalglay' olicypay orfay "
+"ompilationscay ithinway ethay\n"
+"        odybay.\n"
+"    :OPTIMIZE-INTERFACE Eclday-Ormfay\n"
+"        Ikelay OPTIMIZE, exceptway atthay itway ecifiesspay ethay aluevay "
+"ofway ethay CMU extensionway\n"
+"        OPTIMIZE-INTERFACE olicypay (ichwhay ontrolscay argumentway ypetay "
+"andway yntaxsay\n"
+"        eckingchay.)\n"
+"    :CONTEXT-DECLARATIONS Istlay-ofway-Ontextcay-Eclsday-Ormfay\n"
+"        Isthay isway away CMU extensionway ichwhay allowsway ompilationcay "
+"otay ebay ontrolledcay\n"
+"        ybay atternpay atchingmay onway ethay ontextcay inway ichwhay away "
+"efinitionday appearsway.  Ethay\n"
+"        argumentway ouldshay evaluateway otay away istlay ofway istslay "
+"ofway ethay ormfay:\n"
+"            (Ontextcay-Ecspay Eclareday-Ormfay+)\n"
+"        Inway ethay indicatedway ontextcay, ethay ecifiedspay eclareday "
+"ormsfay areway insertedway atway\n"
+"        ethay eadhay ofway eachway efinitionday.  Ethay eclareday ormsfay "
+"orfay allway ontextscay atthay\n"
+"\tatchmay areway appendedway ogethertay, ithway earlierway eclarationsday "
+"ettinggay\n"
+"\tedecencepray overway aterlay onesway.  Away implesay exampleway:\n"
+"            :ontextcay-eclarationsday\n"
+"            '((:externalway (eclareday (optimizeway (afetysay 2)))))\n"
+"        Isthay illway ausecay allway unctionsfay atthay areway amednay ybay "
+"externalway ymbolssay otay ebay\n"
+"        ompiledcay ithway SAFETY 2.  Ethay ullfay yntaxsay ofway ontextcay "
+"ecsspay isway:\n"
+"\t:INTERNAL, :EXTERNAL\n"
+"\t    Uetray ifway ethay ymbolssay isway internalway (externalway) inway "
+"itsway omehay ackagepay.\n"
+"\t:UNINTERNED\n"
+"\t    Uetray ifway ethay ymbolsay ashay onay omehay ackagepay.\n"
+"\t:ANONYMOUS\n"
+"\t    Uetray ifway ethay unctionfay oesnday't avehay anyway interestingway "
+"amenay (otnay\n"
+"\t    DEFMACRO, DEFUN, LABELS orway FLET).\n"
+"\t:MACRO, :FUNCTION\n"
+"\t    :MACRO isway away obalglay (DEFMACRO) acromay.  :FUNCTION isway "
+"anythingway elseway.\n"
+"\t:LOCAL, :GLOBAL\n"
+"\t    :LOCAL isway away LABELS orway FLET.  :GLOBAL isway anythingway "
+"elseway.\n"
+"\t(:OR Ontextcay-Ec*Spay)\n"
+"\t    Uetray inway anyway ecifiedspay ontextcay.\n"
+"\t(:AND Ontextcay-Ec*Spay)\n"
+"\t    Uetray onlyway enwhay allway ecsspay areway uetray.\n"
+"\t(:NOT Ontextcay-Ecspay)\n"
+"\t    Uetray enwhay ethay ecspay isway alsefay.\n"
+"        (:MEMBER Ame*Nay)\n"
+"\t    Uetray enwhay ethay amenay isway oneway ofway esethay amesnay (EQUAL "
+"esttay.)\n"
+"\t(:MATCH Attern*Pay)\n"
+"\t    Uetray enwhay anyway ofway ethay atternspay isway away ubstringsay "
+"ofway ethay amenay.  Ethay amenay\n"
+"\t    isway appedwray ithway $'s, osay $FOO atchesmay amesnay eginningbay "
+"ithway FOO,\n"
+"\t    etcway."
+
+#: target:code/macros.lisp
+msgid "Odd number of key/value pairs: ~S."
+msgstr "Oddway umbernay ofway eykay/aluevay airspay: ~S."
+
+#: target:code/macros.lisp
+msgid "Ignoring unknown option: ~S."
+msgstr "Ignoringway unknownway optionway: ~S."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Policy Node Condition*\n"
+"  Test whether some conditions apply to the current compiler policy for "
+"Node.\n"
+"  Each condition is a predicate form which accesses the policy values by\n"
+"  referring to them as the variables SPEED, SPACE, SAFETY, CSPEED, BREVITY "
+"and\n"
+"  DEBUG.  The results of all the conditions are combined with AND and "
+"returned\n"
+"  as the result.\n"
+"\n"
+"  Node is a form which is evaluated to obtain the node which the policy is "
+"for.\n"
+"  If Node is NIL, then we use the current policy as defined by *default-"
+"cookie*\n"
+"  and *current-cookie*.  This option is only well defined during IR1\n"
+"  conversion."
+msgstr ""
+"Olicypay Odenay Ondition*Cay\n"
+"  Esttay etherwhay omesay onditionscay applyway otay ethay urrentcay "
+"ompilercay olicypay orfay Odenay.\n"
+"  Eachway onditioncay isway away edicatepray ormfay ichwhay accessesway "
+"ethay olicypay aluesvay ybay\n"
+"  eferringray otay emthay asway ethay ariablesvay SPEED, SPACE, SAFETY, "
+"CSPEED, BREVITY andway\n"
+"  DEBUG.  Ethay esultsray ofway allway ethay onditionscay areway ombinedcay "
+"ithway AND andway eturnedray\n"
+"  asway ethay esultray.\n"
+"\n"
+"  Odenay isway away ormfay ichwhay isway evaluatedway otay obtainway ethay "
+"odenay ichwhay ethay olicypay isway orfay.\n"
+"  Ifway Odenay isway NIL, enthay eway useway ethay urrentcay olicypay asway "
+"efinedday ybay default-cook*ayie*way\n"
+"  andway *current-cookie*.  Isthay optionway isway onlyway ellway efinedday "
+"uringday IR1\n"
+"  onversioncay."
+
+#: target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of special forms."
+msgstr "Ancay't uncallfay ethay SYMBOL-FUNCTION ofway ecialspay ormsfay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n"
+"                      [Doc-String] Form*\n"
+"  Define a function that converts a Special-Form or other magical thing "
+"into\n"
+"  IR1.  Lambda-List is a defmacro style lambda list.  Start-Var and Cont-"
+"Var\n"
+"  are bound to the start and result continuations for the resulting IR1.\n"
+"  This keyword is defined:\n"
+"      Kind\n"
+"          The function kind to associate with Name (default :special-form)."
+msgstr ""
+"Efday-IR1-Anslatortray Amenay (Ambdalay-Istlay Tartsay-Arvay Ontcay-Arvay "
+"{Eykay Aluevay}*)\n"
+"                      [Ocday-Ingstray] Orm*Fay\n"
+"  Efineday away unctionfay atthay onvertscay away Ecialspay-Ormfay orway "
+"otherway agicalmay ingthay intoway\n"
+"  IR1.  Ambdalay-Istlay isway away efmacroday tylesay ambdalay istlay.  "
+"Tartsay-Arvay andway Ontcay-Arvay\n"
+"  areway oundbay otay ethay tartsay andway esultray ontinuationscay orfay "
+"ethay esultingray IR1.\n"
+"  Isthay eywordkay isway efinedday:\n"
+"      Indkay\n"
+"          Ethay unctionfay indkay otay associateway ithway Amenay "
+"(efaultday :ecialspay-ormfay)."
+
+#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp
+#: target:compiler/ir1tran.lisp target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+msgstr ""
+"Ancay't uncallfay ethay SYMBOL-FUNCTION ofway ethay ecialspay ormfay ~Away."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Source-Transform Name Lambda-List Form*\n"
+"  Define a macro-like source-to-source transformation for the function "
+"Name.\n"
+"  A source transform may \"pass\" by returning a non-nil second value.  If "
+"the\n"
+"  transform passes, then the form is converted as a normal function call.  "
+"If\n"
+"  the supplied arguments are not compatible with the specified lambda-list,\n"
+"  then the transform automatically passes.\n"
+"  \n"
+"  Source-Transforms may only be defined for functions.  Source "
+"transformation\n"
+"  is not attempted if the function is declared Notinline.  Source "
+"transforms\n"
+"  should not examine their arguments.  If it matters how the function is "
+"used,\n"
+"  then Deftransform should be used to define an IR1 transformation.\n"
+"  \n"
+"  If the desirability of the transformation depends on the current Optimize\n"
+"  parameters, then the Policy macro should be used to determine when to pass."
+msgstr ""
+"Efday-Ourcesay-Ansformtray Amenay Ambdalay-Istlay Orm*Fay\n"
+"  Efineday away acromay-ikelay ourcesay-otay-ourcesay ansformationtray orfay "
+"ethay unctionfay Amenay.\n"
+"  Away ourcesay ansformtray aymay \"asspay\" ybay eturningray away onnay-"
+"ilnay econdsay aluevay.  Ifway ethay\n"
+"  ansformtray assespay, enthay ethay ormfay isway onvertedcay asway away "
+"ormalnay unctionfay allcay.  Ifway\n"
+"  ethay uppliedsay argumentsway areway otnay ompatiblecay ithway ethay "
+"ecifiedspay ambdalay-istlay,\n"
+"  enthay ethay ansformtray automaticallyway assespay.\n"
+"  \n"
+"  Ourcesay-Ansformstray aymay onlyway ebay efinedday orfay unctionsfay.  "
+"Ourcesay ansformatiotrayn\n"
+"  isway otnay attemptedway ifway ethay unctionfay isway eclaredday "
+"Otinlinenay.  Ourcesay ansformstray\n"
+"  ouldshay otnay examineway eirthay argumentsway.  Ifway itway attersmay "
+"owhay ethay unctionfay isway usedway,\n"
+"  enthay Eftransformday ouldshay ebay usedway otay efineday anway IR1 "
+"ansformationtray.\n"
+"  \n"
+"  Ifway ethay esirabilityday ofway ethay ansformationtray ependsday onway "
+"ethay urrentcay Optimizeway\n"
+"  arameterspay, enthay ethay Olicypay acromay ouldshay ebay usedway otay "
+"etermineday enwhay otay asspay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Primitive-Translator Name Lambda-List Form*\n"
+"  Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n"
+"  code.  Lambda-List is a defmacro style lambda list."
+msgstr ""
+"Efday-Imitivepray-Anslatortray Amenay Ambdalay-Istlay Orm*Fay\n"
+"  Efineday away unctionfay atthay onvertscay away useway ofway (%PRIMITIVE "
+"Amenay ...) intoway Isplay\n"
+"  odecay.  Ambdalay-Istlay isway away efmacroday tylesay ambdalay istlay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n"
+"               Declaration* [Doc-String] Form*\n"
+"  Define an IR1 transformation for Name.  An IR1 transformation computes a\n"
+"  lambda that replaces the function variable reference for the call.  A\n"
+"  transform may pass (decide not to transform the call) by calling the Give-"
+"Up\n"
+"  function.  Lambda-List both determines how the current call is parsed and\n"
+"  specifies the Lambda-List for the resulting lambda.\n"
+"\n"
+"  We parse the call and bind each of the lambda-list variables to the\n"
+"  continuation which represents the value of the argument.  When parsing "
+"the\n"
+"  call, we ignore the defaults, and always bind the variables for "
+"unsupplied\n"
+"  arguments to NIL.  If a required argument is missing, an unknown keyword "
+"is\n"
+"  supplied, or an argument keyword is not a constant, then the transform\n"
+"  automatically passes.  The Declarations apply to the bindings made by\n"
+"  Deftransform at transformation time, rather than to the variables of the\n"
+"  resulting lambda.  Bound-but-not-referenced warnings are suppressed for "
+"the\n"
+"  lambda-list variables.  The Doc-String is used when printing efficiency "
+"notes\n"
+"  about the defined transform.\n"
+"\n"
+"  Normally, the body evaluates to a form which becomes the body of an\n"
+"  automatically constructed lambda.  We make Lambda-List the lambda-list "
+"for\n"
+"  the lambda, and automatically insert declarations of the argument and "
+"result\n"
+"  types.  If the second value of the body is non-null, then it is a list of\n"
+"  declarations which are to be inserted at the head of the lambda.  "
+"Automatic\n"
+"  lambda generation may be inhibited by explicitly returning a lambda from "
+"the\n"
+"  body.\n"
+"\n"
+"  The Arg-Types and Result-Type are used to create a function type which "
+"the\n"
+"  call must satisfy before transformation is attempted.  The function type\n"
+"  specifier is constructed by wrapping (FUNCTION ...) around these values, "
+"so\n"
+"  the lack of a restriction may be specified by omitting the argument or\n"
+"  supplying *.  The argument syntax specified in the Arg-Types need not be "
+"the\n"
+"  same as that in the Lambda-List, but the transform will never happen if\n"
+"  the syntaxes can't be satisfied simultaneously.  If there is an existing\n"
+"  transform for the same function that has the same type, then it is "
+"replaced\n"
+"  with the new definition.\n"
+"\n"
+"  These are the legal keyword options:\n"
+"    :Result - A variable which is bound to the result continuation.\n"
+"    :Node   - A variable which is bound to the combination node for the "
+"call.\n"
+"    :Policy - A form which is supplied to the Policy macro to determine "
+"whether\n"
+"              this transformation is appropriate.  If the result is false, "
+"then\n"
+"              the transform automatically passes.\n"
+"    :Eval-Name\n"
+"    \t    - The name and argument/result types are actually forms to be\n"
+"              evaluated.  Useful for getting closures that transform "
+"similar\n"
+"              functions.\n"
+"    :Defun-Only\n"
+"            - Don't actually instantiate a transform, instead just DEFUN\n"
+"              Name with the specified transform definition function.  This "
+"may\n"
+"              be later instantiated with %Deftransform.\n"
+"    :Important\n"
+"            - If supplied and non-NIL, note this transform as "
+"``important,''\n"
+"              which means effeciency notes will be generated when this\n"
+"              transform fails even if brevity=speed (but not if "
+"brevity>speed)\n"
+"    :When {:Native | :Byte | :Both}\n"
+"            - Indicates whether this transform applies to native code,\n"
+"              byte-code or both (default :native.)"
+msgstr ""
+"Eftransformday Amenay (Ambdalay-Istlay [Argway-Ypestay] [Esultray-Ypetay] "
+"{Eykay Aluevay}*)\n"
+"               Eclaration*Day [Ocday-Ingstray] Orm*Fay\n"
+"  Efineday anway IR1 ansformationtray orfay Amenay.  Anway IR1 "
+"ansformationtray omputescay away\n"
+"  ambdalay atthay eplacesray ethay unctionfay ariablevay eferenceray orfay "
+"ethay allcay.  Away\n"
+"  ansformtray aymay asspay (ecideday otnay otay ansformtray ethay allcay) "
+"ybay allingcay ethay Ivegay-Upway\n"
+"  unctionfay.  Ambdalay-Istlay othbay eterminesday owhay ethay urrentcay "
+"allcay isway arsedpay andway\n"
+"  ecifiesspay ethay Ambdalay-Istlay orfay ethay esultingray ambdalay.\n"
+"\n"
+"  Eway arsepay ethay allcay andway indbay eachway ofway ethay ambdalay-"
+"istlay ariablesvay otay ethay\n"
+"  ontinuationcay ichwhay epresentsray ethay aluevay ofway ethay "
+"argumentway.  Enwhay arsingpay ethay\n"
+"  allcay, eway ignoreway ethay efaultsday, andway alwaysway indbay ethay "
+"ariablesvay orfay unsuppliedway\n"
+"  argumentsway otay NIL.  Ifway away equiredray argumentway isway issingmay, "
+"anway unknownway eywordkay isway\n"
+"  uppliedsay, orway anway argumentway eywordkay isway otnay away onstantcay, "
+"enthay ethay ansformtray\n"
+"  automaticallyway assespay.  Ethay Eclarationsday applyway otay ethay "
+"indingsbay ademay ybay\n"
+"  Eftransformday atway ansformationtray imetay, atherray anthay otay ethay "
+"ariablesvay ofway ethay\n"
+"  esultingray ambdalay.  Oundbay-utbay-otnay-eferencedray arningsway areway "
+"uppressedsay orfay ethay\n"
+"  ambdalay-istlay ariablesvay.  Ethay Ocday-Ingstray isway usedway enwhay "
+"intingpray efficiencyway otesnay\n"
+"  aboutway ethay efinedday ansformtray.\n"
+"\n"
+"  Ormallynay, ethay odybay evaluatesway otay away ormfay ichwhay ecomesbay "
+"ethay odybay ofway anway\n"
+"  automaticallyway onstructedcay ambdalay.  Eway akemay Ambdalay-Istlay "
+"ethay ambdalay-istlay orfay\n"
+"  ethay ambdalay, andway automaticallyway insertway eclarationsday ofway "
+"ethay argumentway andway esultray\n"
+"  ypestay.  Ifway ethay econdsay aluevay ofway ethay odybay isway onnay-"
+"ullnay, enthay itway isway away istlay ofway\n"
+"  eclarationsday ichwhay areway otay ebay insertedway atway ethay eadhay "
+"ofway ethay ambdalay.  Automatiwayc\n"
+"  ambdalay enerationgay aymay ebay inhibitedway ybay explicitlyway "
+"eturningray away ambdalay omfray ethay\n"
+"  odybay.\n"
+"\n"
+"  Ethay Argway-Ypestay andway Esultray-Ypetay areway usedway otay eatecray "
+"away unctionfay ypetay ichwhay ethay\n"
+"  allcay ustmay atisfysay eforebay ansformationtray isway attemptedway.  "
+"Ethay unctionfay ypetay\n"
+"  ecifierspay isway onstructedcay ybay appingwray (FUNCTION ...) aroundway "
+"esethay aluesvay, osay\n"
+"  ethay acklay ofway away estrictionray aymay ebay ecifiedspay ybay "
+"omittingway ethay argumentway orway\n"
+"  upplyingsay *.  Ethay argumentway yntaxsay ecifiedspay inway ethay Argway-"
+"Ypestay eednay otnay ebay ethay\n"
+"  amesay asway atthay inway ethay Ambdalay-Istlay, utbay ethay ansformtray "
+"illway evernay appenhay ifway\n"
+"  ethay yntaxessay ancay't ebay atisfiedsay imultaneouslysay.  Ifway erethay "
+"isway anway existingway\n"
+"  ansformtray orfay ethay amesay unctionfay atthay ashay ethay amesay "
+"ypetay, enthay itway isway eplacedray\n"
+"  ithway ethay ewnay efinitionday.\n"
+"\n"
+"  Esethay areway ethay egallay eywordkay optionsway:\n"
+"    :Esultray - Away ariablevay ichwhay isway oundbay otay ethay esultray "
+"ontinuationcay.\n"
+"    :Odenay   - Away ariablevay ichwhay isway oundbay otay ethay "
+"ombinationcay odenay orfay ethay allcay.\n"
+"    :Olicypay - Away ormfay ichwhay isway uppliedsay otay ethay Olicypay "
+"acromay otay etermineday etherwhay\n"
+"              isthay ansformationtray isway appropriateway.  Ifway ethay "
+"esultray isway alsefay, enthay\n"
+"              ethay ansformtray automaticallyway assespay.\n"
+"    :Evalway-Amenay\n"
+"    \t    - Ethay amenay andway argumentway/esultray ypestay areway "
+"actuallyway ormsfay otay ebay\n"
+"              evaluatedway.  Usefulway orfay ettinggay osuresclay atthay "
+"ansformtray imilarsay\n"
+"              unctionsfay.\n"
+"    :Efunday-Onlyway\n"
+"            - Onday't actuallyway instantiateway away ansformtray, "
+"insteadway ustjay DEFUN\n"
+"              Amenay ithway ethay ecifiedspay ansformtray efinitionday "
+"unctionfay.  Isthay aymay\n"
+"              ebay aterlay instantiatedway ithway %Eftransformday.\n"
+"    :Importantway\n"
+"            - Ifway uppliedsay andway onnay-NIL, otenay isthay ansformtray "
+"asway ``importantway,''\n"
+"              ichwhay eansmay effeciencyway otesnay illway ebay eneratedgay "
+"enwhay isthay\n"
+"              ansformtray ailsfay evenway ifway evitybray=eedspay (utbay "
+"otnay ifway evitybray>eespayd)\n"
+"    :Enwhay {:Ativenay | :Ytebay | :Othbay}\n"
+"            - Indicatesway etherwhay isthay ansformtray appliesway otay "
+"ativenay odecay,\n"
+"              ytebay-odecay orway othbay (efaultday :ativenay.)"
+
+#: target:compiler/macros.lisp
+msgid "Can't specify both DEFUN-ONLY and EVAL-NAME."
+msgstr "Ancay't ecifyspay othbay DEFUN-ONLY andway EVAL-NAME."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n"
+"  Declare the function Name to be a known function.  We construct a type\n"
+"  specifier for the function by wrapping (FUNCTION ...) around the Arg-"
+"Types\n"
+"  and Result-Type.  Attributes is a an unevaluated list of the boolean\n"
+"  attributes that the function has.  These attributes are meaningful here:\n"
+"      call\n"
+"         May call functions that are passed as arguments.  In order to "
+"determine\n"
+"         what other effects are present, we must find the effects of all "
+"arguments\n"
+"         that may be functions.\n"
+"        \n"
+"      unsafe\n"
+"         May incorporate arguments in the result or somehow pass them "
+"upward.\n"
+"        \n"
+"      unwind\n"
+"         May fail to return during correct execution.  Errors are O.K.\n"
+"        \n"
+"      any\n"
+"         The (default) worst case.  Includes all the other bad things, plus "
+"any\n"
+"         other possible bad thing.\n"
+"        \n"
+"      foldable\n"
+"         May be constant-folded.  The function has no side effects, but may "
+"be\n"
+"         affected by side effects on the arguments.  e.g. SVREF, MAPC.\n"
+"        \n"
+"      flushable\n"
+"         May be eliminated if value is unused.  The function has no side "
+"effects\n"
+"         except possibly CONS.  If a function is defined to signal errors, "
+"then\n"
+"         it is not flushable even if it is movable or foldable.\n"
+"        \n"
+"      movable\n"
+"         May be moved with impunity.  Has no side effects except possibly "
+"CONS,\n"
+"         and is affected only by its arguments.\n"
+"\n"
+"      predicate\n"
+"          A true predicate likely to be open-coded.  This is a hint to IR1\n"
+"\t  conversion that it should ensure calls always appear as an IF test.\n"
+"\t  Not usually specified to Defknown, since this is implementation\n"
+"\t  dependent, and is usually automatically set by the Define-VOP\n"
+"\t  :Conditional option.\n"
+"\n"
+"  Name may also be a list of names, in which case the same information is "
+"given\n"
+"  to all the names.  The keywords specify the initial values for various\n"
+"  optimizers that the function might have."
+msgstr ""
+"Efknownday Amenay Argway-Ypestay Esultray-Ypetay [Attributesway] {Eykay "
+"Aluevay}* \n"
+"  Eclareday ethay unctionfay Amenay otay ebay away nownkay unctionfay.  Eway "
+"onstructcay away ypetay\n"
+"  ecifierspay orfay ethay unctionfay ybay appingwray (FUNCTION ...) "
+"aroundway ethay Argway-Ypestay\n"
+"  andway Esultray-Ypetay.  Attributesway isway away anway unevaluatedway "
+"istlay ofway ethay ooleanbay\n"
+"  attributesway atthay ethay unctionfay ashay.  Esethay attributesway areway "
+"eaningfulmay erehay:\n"
+"      allcay\n"
+"         Aymay allcay unctionsfay atthay areway assedpay asway "
+"argumentsway.  Inway orderway otay etermineday\n"
+"         atwhay otherway effectsway areway esentpray, eway ustmay indfay "
+"ethay effectsway ofway allway argumentsway\n"
+"         atthay aymay ebay unctionsfay.\n"
+"        \n"
+"      unsafeway\n"
+"         Aymay incorporateway argumentsway inway ethay esultray orway "
+"omehowsay asspay emthay upwardway.\n"
+"        \n"
+"      unwindway\n"
+"         Aymay ailfay otay eturnray uringday orrectcay executionway.  "
+"Errorsway areway O.K.\n"
+"        \n"
+"      anyway\n"
+"         Ethay (efaultday) orstway asecay.  Includesway allway ethay "
+"otherway adbay ingsthay, usplay anyway\n"
+"         otherway ossiblepay adbay ingthay.\n"
+"        \n"
+"      oldablefay\n"
+"         Aymay ebay onstantcay-oldedfay.  Ethay unctionfay ashay onay idesay "
+"effectsway, utbay aymay ebay\n"
+"         affectedway ybay idesay effectsway onway ethay argumentsway.  e.g. "
+"SVREF, MAPC.\n"
+"        \n"
+"      ushableflay\n"
+"         Aymay ebay eliminatedway ifway aluevay isway unusedway.  Ethay "
+"unctionfay ashay onay idesay effectsway\n"
+"         exceptway ossiblypay CONS.  Ifway away unctionfay isway efinedday "
+"otay ignalsay errorsway, enthay\n"
+"         itway isway otnay ushableflay evenway ifway itway isway ovablemay "
+"orway oldablefay.\n"
+"        \n"
+"      ovablemay\n"
+"         Aymay ebay ovedmay ithway impunityway.  Ashay onay idesay "
+"effectsway exceptway ossiblypay CONS,\n"
+"         andway isway affectedway onlyway ybay itsway argumentsway.\n"
+"\n"
+"      edicatepray\n"
+"          Away uetray edicatepray ikelylay otay ebay openway-odedcay.  "
+"Isthay isway away inthay otay IR1\n"
+"\t  onversioncay atthay itway ouldshay ensureway allscay alwaysway appearway "
+"asway anway IF esttay.\n"
+"\t  Otnay usuallyway ecifiedspay otay Efknownday, incesay isthay isway "
+"implementationway\n"
+"\t  ependentday, andway isway usuallyway automaticallyway etsay ybay ethay "
+"Efineday-VOP\n"
+"\t  :Onditionalcay optionway.\n"
+"\n"
+"  Amenay aymay alsoway ebay away istlay ofway amesnay, inway ichwhay asecay "
+"ethay amesay informationway isway ivengay\n"
+"  otay allway ethay amesnay.  Ethay eywordskay ecifyspay ethay initialway "
+"aluesvay orfay ariousvay\n"
+"  optimizersway atthay ethay unctionfay ightmay avehay."
+
+#: target:compiler/macros.lisp
+msgid "Function cannot have both good and bad attributes: ~S"
+msgstr ""
+"Unctionfay annotcay avehay othbay oodgay andway adbay attributesway: ~S"
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n"
+"                Declaration* Form*\n"
+"  Define some Kind of optimizer for the named Function.  Function must be a\n"
+"  known function.  Lambda-List is used to parse the arguments to the\n"
+"  combination as in Deftransform.  If the argument syntax is invalid or "
+"there\n"
+"  are non-constant keys, then we simply return NIL.\n"
+"\n"
+"  The function is DEFUN'ed as Function-Kind-OPTIMIZER.  Possible kinds are\n"
+"  DERIVE-TYPE, OPTIMIZER, LTN-ANNOTATE and IR2-CONVERT.  If a symbol is\n"
+"  specified instead of a (Function Kind) list, then we just do a DEFUN with "
+"the\n"
+"  symbol as its name, and don't do anything with the definition.  This is\n"
+"  useful for creating optimizers to be passed by name to DEFKNOWN.\n"
+"\n"
+"  If supplied, Node-Var is bound to the combination node being optimized.  "
+"If\n"
+"  additional Vars are supplied, then they are used as the rest of the "
+"optimizer\n"
+"  function's lambda-list.  LTN-ANNOTATE methods are passed an additional "
+"POLICY\n"
+"  argument, and IR2-CONVERT methods are passed an additional IR2-BLOCK\n"
+"  argument."
+msgstr ""
+"Efoptimizerday (Unctionfay Indkay) (Ambdalay-Istlay [Odenay-Arvay] Ar*Vay)\n"
+"                Eclaration*Day Orm*Fay\n"
+"  Efineday omesay Indkay ofway optimizerway orfay ethay amednay Unctionfay.  "
+"Unctionfay ustmay ebay away\n"
+"  nownkay unctionfay.  Ambdalay-Istlay isway usedway otay arsepay ethay "
+"argumentsway otay ethay\n"
+"  ombinationcay asway inway Eftransformday.  Ifway ethay argumentway "
+"yntaxsay isway invalidway orway erethay\n"
+"  areway onnay-onstantcay eyskay, enthay eway implysay eturnray NIL.\n"
+"\n"
+"  Ethay unctionfay isway DEFUN'edway asway Unctionfay-Indkay-OPTIMIZER.  "
+"Ossiblepay indskay areway\n"
+"  DERIVE-TYPE, OPTIMIZER, LTN-ANNOTATE andway IR2-CONVERT.  Ifway away "
+"ymbolsay isway\n"
+"  ecifiedspay insteadway ofway away (Unctionfay Indkay) istlay, enthay eway "
+"ustjay oday away DEFUN ithway ethay\n"
+"  ymbolsay asway itsway amenay, andway onday't oday anythingway ithway ethay "
+"efinitionday.  Isthay isway\n"
+"  usefulway orfay eatingcray optimizersway otay ebay assedpay ybay amenay "
+"otay DEFKNOWN.\n"
+"\n"
+"  Ifway uppliedsay, Odenay-Arvay isway oundbay otay ethay ombinationcay "
+"odenay eingbay optimizedway.  Ifway\n"
+"  additionalway Arsvay areway uppliedsay, enthay eythay areway usedway asway "
+"ethay estray ofway ethay optimizerway\n"
+"  unctionfay's ambdalay-istlay.  LTN-ANNOTATE ethodsmay areway assedpay "
+"anway additionalway POLICY\n"
+"  argumentway, andway IR2-CONVERT ethodsmay areway assedpay anway "
+"additionalway IR2-BLOCK\n"
+"  argumentway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n"
+"  Iterate over the blocks in a component, binding Block-Var to each block "
+"in\n"
+"  turn.  The value of Ends determines whether to iterate over dummy head "
+"and\n"
+"  tail blocks:\n"
+"    NIL   -- Skip Head and Tail (the default)\n"
+"    :Head -- Do head but skip tail\n"
+"    :Tail -- Do tail but skip head\n"
+"    :Both -- Do both head and tail\n"
+"\n"
+"  If supplied, Result-Form is the value to return."
+msgstr ""
+"Oday-Ocksblay (Ockblay-Arvay Omponentcay [Endsway] [Esultray-Ormfay]) "
+"{Eclarationday}* {Ormfay}*\n"
+"  Iterateway overway ethay ocksblay inway away omponentcay, indingbay "
+"Ockblay-Arvay otay eachway ockblay inway\n"
+"  urntay.  Ethay aluevay ofway Endsway eterminesday etherwhay otay "
+"iterateway overway ummyday eadhay andway\n"
+"  ailtay ocksblay:\n"
+"    NIL   -- Kipsay Eadhay andway Ailtay (ethay efaultday)\n"
+"    :Eadhay -- Oday eadhay utbay kipsay ailtay\n"
+"    :Ailtay -- Oday ailtay utbay kipsay eadhay\n"
+"    :Othbay -- Oday othbay eadhay andway ailtay\n"
+"\n"
+"  Ifway uppliedsay, Esultray-Ormfay isway ethay aluevay otay eturnray."
+
+#: target:compiler/macros.lisp
+msgid "Losing Ends value: ~S."
+msgstr "Osinglay Endsway aluevay: ~S."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}"
+"* {Form}*\n"
+"  Like Do-Blocks, only iterate over the blocks in reverse order."
+msgstr ""
+"Oday-Ocksblay-Ackwardsbay (Ockblay-Arvay Omponentcay [Endsway] [Esultray-"
+"Ormfay]) {Eclarationday}* {Ormfay}*\n"
+"  Ikelay Oday-Ocksblay, onlyway iterateway overway ethay ocksblay inway "
+"everseray orderway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n"
+"  Iterate over the uses of Continuation, binding Node to each one "
+"succesively."
+msgstr ""
+"Oday-Usesway (Odenay-Arvay Ontinuationcay [Esultray]) {Eclarationday}* "
+"{Ormfay}*\n"
+"  Iterateway overway ethay usesway ofway Ontinuationcay, indingbay Odenay "
+"otay eachway oneway uccesivelsayy."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n"
+"  Iterate over the nodes in Block, binding Node-Var to the each node and\n"
+"  Cont-Var to the node's Cont.  The only keyword option is Restart-P, which\n"
+"  causes iteration to be restarted when a node is deleted out from under us "
+"(if\n"
+"  not supplied, this is an error.)"
+msgstr ""
+"Oday-Odesnay (Odenay-Arvay Ontcay-Arvay Ockblay {Eykay Aluevay}*) "
+"{Eclarationday}* {Ormfay}*\n"
+"  Iterateway overway ethay odesnay inway Ockblay, indingbay Odenay-Arvay "
+"otay ethay eachway odenay andway\n"
+"  Ontcay-Arvay otay ethay odenay's Ontcay.  Ethay onlyway eywordkay "
+"optionway isway Estartray-P, ichwhay\n"
+"  ausescay iterationway otay ebay estartedray enwhay away odenay isway "
+"eletedday outway omfray underway usway (ifway\n"
+"  otnay uppliedsay, isthay isway anway errorway.)"
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n"
+"  Like Do-Nodes, only iterates in reverse order."
+msgstr ""
+"Oday-Odesnay-Ackwardsbay (Odenay-Arvay Ontcay-Arvay Ockblay) {Eclarationday}"
+"* {Ormfay}*\n"
+"  Ikelay Oday-Odesnay, onlyway iteratesway inway everseray orderway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"With-IR1-Environment Node Form*\n"
+"  Bind the IR1 context variables so that IR1 conversion can be done after "
+"the\n"
+"  main conversion pass has finished."
+msgstr ""
+"Ithway-IR1-Environmentway Odenay Orm*Fay\n"
+"  Indbay ethay IR1 ontextcay ariablesvay osay atthay IR1 onversioncay ancay "
+"ebay oneday afterway ethay\n"
+"  ainmay onversioncay asspay ashay inishedfay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"LEXENV-FIND Name Slot {Key Value}*\n"
+"  Look up Name in the lexical environment namespace designated by Slot,\n"
+"  returning the <value, T>, or <NIL, NIL> if no entry.  The :TEST keyword\n"
+"  may be used to determine the name equality predicate."
+msgstr ""
+"LEXENV-FIND Amenay Otslay {Eykay Aluevay}*\n"
+"  Ooklay upway Amenay inway ethay exicallay environmentway amespacenay "
+"esignatedday ybay Otslay,\n"
+"  eturningray ethay <aluevay, T>, orway <NIL, NIL> ifway onay entryway.  "
+"Ethay :TEST eywordkay\n"
+"  aymay ebay usedway otay etermineday ethay amenay equalityway edicatepray."
+
+#: target:compiler/macros.lisp
+msgid "If true, defprinter print functions print each slot on a separate line."
+msgstr ""
+"Ifway uetray, efprinterday intpray unctionsfay intpray eachway otslay onway "
+"away eparatesay inelay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defprinter Name Slot-Desc*\n"
+"  Define some kind of reasonable defstruct structure-print function.  Name\n"
+"  is the name of the structure.  We define a function %PRINT-name which\n"
+"  prints the slots in the structure in the way described by the Slot-Descs.\n"
+"  Each Slot-Desc can be a slot name, indicating that the slot should simply\n"
+"  be printed.  A Slot-Desc may also be a list of a slot name and other "
+"stuff.\n"
+"  The other stuff is composed of keywords followed by expressions.  The\n"
+"  expressions are evaluated with the variable which is the slot name bound\n"
+"  to the value of the slot.  These keywords are defined:\n"
+"  \n"
+"  :PRIN1    Print the value of the expression instead of the slot value.\n"
+"  :PRINC    Like :PRIN1, only princ the value\n"
+"  :TEST     Only print something if the test is true.\n"
+"  \n"
+"  If no printing thing is specified then the slot value is printed as "
+"PRIN1.\n"
+"  \n"
+"  The structure being printed is bound to Structure and the stream is bound "
+"to\n"
+"  Stream."
+msgstr ""
+"Efprinterday Amenay Otslay-Esc*Day\n"
+"  Efineday omesay indkay ofway easonableray efstructday ucturestray-intpray "
+"unctionfay.  Amenay\n"
+"  isway ethay amenay ofway ethay ucturestray.  Eway efineday away unctionfay "
+"%PRINT-amenay ichwhay\n"
+"  intspray ethay otsslay inway ethay ucturestray inway ethay ayway "
+"escribedday ybay ethay Otslay-Escsday.\n"
+"  Eachway Otslay-Escday ancay ebay away otslay amenay, indicatingway atthay "
+"ethay otslay ouldshay implysay\n"
+"  ebay intedpray.  Away Otslay-Escday aymay alsoway ebay away istlay ofway "
+"away otslay amenay andway otherway tuffsay.\n"
+"  Ethay otherway tuffsay isway omposedcay ofway eywordskay ollowedfay ybay "
+"expressionsway.  Ethay\n"
+"  expressionsway areway evaluatedway ithway ethay ariablevay ichwhay isway "
+"ethay otslay amenay oundbay\n"
+"  otay ethay aluevay ofway ethay otslay.  Esethay eywordskay areway "
+"efinedday:\n"
+"  \n"
+"  :PRIN1    Intpray ethay aluevay ofway ethay expressionway insteadway ofway "
+"ethay otslay aluevay.\n"
+"  :PRINC    Ikelay :PRIN1, onlyway incpray ethay aluevay\n"
+"  :TEST     Onlyway intpray omethingsay ifway ethay esttay isway uetray.\n"
+"  \n"
+"  Ifway onay intingpray ingthay isway ecifiedspay enthay ethay otslay "
+"aluevay isway intedpray asway PRIN1.\n"
+"  \n"
+"  Ethay ucturestray eingbay intedpray isway oundbay otay Ucturestray andway "
+"ethay eamstray isway oundbay otay\n"
+"  Eamstray."
+
+#: target:compiler/macros.lisp
+msgid "Losing Defprinter option: ~S."
+msgstr "Osinglay Efprinterday optionway: ~S."
+
+#: target:compiler/macros.lisp
+msgid "Unknown attribute name: ~S."
+msgstr "Unknownway attributeway amenay: ~S."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Boolean-Attribute Name Attribute-Name*\n"
+"  Define a new class of boolean attributes, with the attributes havin the\n"
+"  specified Attribute-Names.  Name is the name of the class, which is used "
+"to\n"
+"  generate some macros to manipulate sets of the attributes: \n"
+"\n"
+"    NAME-attributep attributes attribute-name*\n"
+"      Return true if one of the named attributes is present, false "
+"otherwise.\n"
+"      When set with SETF, updates the place Attributes setting or clearing "
+"the\n"
+"      specified attributes.\n"
+"\n"
+"    NAME-attributes attribute-name*\n"
+"      Return a set of the named attributes."
+msgstr ""
+"Efday-Ooleanbay-Attributeway Amenay Attributeway-Ame*Nay\n"
+"  Efineday away ewnay assclay ofway ooleanbay attributesway, ithway ethay "
+"attributesway avinhay ethay\n"
+"  ecifiedspay Attributeway-Amesnay.  Amenay isway ethay amenay ofway ethay "
+"assclay, ichwhay isway usedway otay\n"
+"  enerategay omesay acrosmay otay anipulatemay etssay ofway ethay "
+"attributesway: \n"
+"\n"
+"    NAME-attributepway attributesway attributeway-ame*nay\n"
+"      Eturnray uetray ifway oneway ofway ethay amednay attributesway isway "
+"esentpray, alsefay otherwiseway.\n"
+"      Enwhay etsay ithway SETF, updatesway ethay aceplay Attributesway "
+"ettingsay orway earingclay ethay\n"
+"      ecifiedspay attributesway.\n"
+"\n"
+"    NAME-attributesway attributeway-ame*nay\n"
+"      Eturnray away etsay ofway ethay amednay attributesway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute test function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+"Automagicallyway eneratedgay ooleanbay attributeway esttay unctionfay.  "
+"Eesay\n"
+"\t    Efday-Ooleanbay-Attributeway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute setter.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+"Automagicallyway eneratedgay ooleanbay attributeway ettersay.  Eesay\n"
+"\t    Efday-Ooleanbay-Attributeway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute creation function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+"Automagicallyway eneratedgay ooleanbay attributeway eationcray unctionfay.  "
+"Eesay\n"
+"\t    Efday-Ooleanbay-Attributeway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the union of all the sets of boolean attributes which are its\n"
+"  arguments."
+msgstr ""
+"Eturnsray ethay unionway ofway allway ethay etssay ofway ooleanbay "
+"attributesway ichwhay areway itsway\n"
+"  argumentsway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the intersection of all the sets of boolean attributes which are "
+"its\n"
+"  arguments."
+msgstr ""
+"Eturnsray ethay intersectionway ofway allway ethay etssay ofway ooleanbay "
+"attributesway ichwhay areway itsway\n"
+"  argumentsway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns true if the attributes present in Attr1 are indentical to those in\n"
+"  Attr2."
+msgstr ""
+"Eturnsray uetray ifway ethay attributesway esentpray inway Attrway1 areway "
+"indenticalway otay osethay inway\n"
+"  Attrway2."
+
+#: target:compiler/macros.lisp
+msgid "~S is not the name of an event."
+msgstr "~S isway otnay ethay amenay ofway anway eventway."
+
+#: target:compiler/macros.lisp
+msgid "Return the number of times that Event has happened."
+msgstr ""
+"Eturnray ethay umbernay ofway imestay atthay Eventway ashay appenedhay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the function that is called when Event happens.  If this is null,\n"
+"  there is no action.  The function is passed the node to which the event\n"
+"  happened, or NIL if there is no relevant node.  This may be set with SETF."
+msgstr ""
+"Eturnray ethay unctionfay atthay isway alledcay enwhay Eventway appenshay.  "
+"Ifway isthay isway ullnay,\n"
+"  erethay isway onay actionway.  Ethay unctionfay isway assedpay ethay "
+"odenay otay ichwhay ethay eventway\n"
+"  appenedhay, orway NIL ifway erethay isway onay elevantray odenay.  Isthay "
+"aymay ebay etsay ithway SETF."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the non-negative integer which represents the level of significance\n"
+"  of the event Name.  This is used to determine whether to print a message "
+"when\n"
+"  the event happens.  This may be set with SETF."
+msgstr ""
+"Eturnray ethay onnay-egativenay integerway ichwhay epresentsray ethay "
+"evellay ofway ignificancesay\n"
+"  ofway ethay eventway Amenay.  Isthay isway usedway otay etermineday "
+"etherwhay otay intpray away essagemay enwhay\n"
+"  ethay eventway appenshay.  Isthay aymay ebay etsay ithway SETF."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defevent Name Description\n"
+"  Define a new kind of event.  Name is a symbol which names the event and\n"
+"  Description is a string which describes the event.  Level (default 0) is "
+"the\n"
+"  level of significance associated with this event; it is used to determine\n"
+"  whether to print a Note when the event happens."
+msgstr ""
+"Efeventday Amenay Escriptionday\n"
+"  Efineday away ewnay indkay ofway eventway.  Amenay isway away ymbolsay "
+"ichwhay amesnay ethay eventway andway\n"
+"  Escriptionday isway away ingstray ichwhay escribesday ethay eventway.  "
+"Evellay (efaultday 0) isway ethay\n"
+"  evellay ofway ignificancesay associatedway ithway isthay eventway; itway "
+"isway usedway otay etermineday\n"
+"  etherwhay otay intpray away Otenay enwhay ethay eventway appenshay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"This variable is a non-negative integer specifying the lowest level of\n"
+"  event that will print a Note when it occurs."
+msgstr ""
+"Isthay ariablevay isway away onnay-egativenay integerway ecifyingspay ethay "
+"owestlay evellay ofway\n"
+"  eventway atthay illway intpray away Otenay enwhay itway occursway."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Event Name Node\n"
+"  Note that the event with the specified Name has happened.  Node is "
+"evaluated\n"
+"  to determine the node to which the event happened."
+msgstr ""
+"Eventway Amenay Odenay\n"
+"  Otenay atthay ethay eventway ithway ethay ecifiedspay Amenay ashay "
+"appenedhay.  Odenay isway evaluatedway\n"
+"  otay etermineday ethay odenay otay ichwhay ethay eventway appenedhay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Print a listing of events and their counts, sorted by the count.  Events\n"
+"  that happened fewer than Min-Count times will not be printed.  Stream is "
+"the\n"
+"  stream to write to."
+msgstr ""
+"Intpray away istinglay ofway eventsway andway eirthay ountscay, ortedsay "
+"ybay ethay ountcay.  Eventsway\n"
+"  atthay appenedhay ewerfay anthay Inmay-Ountcay imestay illway otnay ebay "
+"intedpray.  Eamstray isway ethay\n"
+"  eamstray otay itewray otay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Find Element in a null-terminated List linked by the accessor function\n"
+"  Next.  Key, Test and Test-Not are the same as for generic sequence\n"
+"  functions."
+msgstr ""
+"Indfay Elementway inway away ullnay-erminatedtay Istlay inkedlay ybay ethay "
+"accessorway unctionfay\n"
+"  Extnay.  Eykay, Esttay andway Esttay-Otnay areway ethay amesay asway orfay "
+"enericgay equencesay\n"
+"  unctionsfay."
+
+#: target:compiler/debug.lisp target:compiler/pack.lisp
+#: target:compiler/represent.lisp target:compiler/copyprop.lisp
+#: target:compiler/life.lisp target:compiler/macros.lisp
+msgid "Silly to supply both :Test and :Test-Not."
+msgstr "Illysay otay upplysay othbay :Esttay andway :Esttay-Otnay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the position of Element (or NIL if absent) in a null-terminated List\n"
+"  linked by the accessor function Next.  Key, Test and Test-Not are the same "
+"as\n"
+"  for generic sequence functions."
+msgstr ""
+"Eturnray ethay ositionpay ofway Elementway (orway NIL ifway absentway) inway "
+"away ullnay-erminatedtay Istlay\n"
+"  inkedlay ybay ethay accessorway unctionfay Extnay.  Eykay, Esttay andway "
+"Esttay-Otnay areway ethay amesay asway\n"
+"  orfay enericgay equencesay unctionsfay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Map Function over the elements in a null-terminated List linked by the\n"
+"  accessor function Next, returning a list of the results."
+msgstr ""
+"Apmay Unctionfay overway ethay elementsway inway away ullnay-erminatedtay "
+"Istlay inkedlay ybay ethay\n"
+"  accessorway unctionfay Extnay, eturningray away istlay ofway ethay "
+"esultsray."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deletef-In Next Place Item\n"
+"  Delete Item from a null-terminated list linked by the accessor function "
+"Next\n"
+"  that is stored in Place.  Item must appear exactly once in the list."
+msgstr ""
+"Eletefday-Inway Extnay Aceplay Itemway\n"
+"  Eleteday Itemway omfray away ullnay-erminatedtay istlay inkedlay ybay "
+"ethay accessorway unctionfay Extnay\n"
+"  atthay isway toredsay inway Aceplay.  Itemway ustmay appearway exactlyway "
+"onceway inway ethay istlay."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Push Item onto a list linked by the accessor function Next that is stored "
+"in\n"
+"  Place."
+msgstr ""
+"Ushpay Itemway ontoway away istlay inkedlay ybay ethay accessorway "
+"unctionfay Extnay atthay isway toredsay inway\n"
+"  Aceplay."
+
+#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp
+#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp
+#: target:compiler/macros.lisp
+msgid "Shouldn't happen?"
+msgstr "Ouldnshay't appenhay?"
+
+#: target:compiler/macros.lisp
+msgid "Redefining modular version ~S of ~S for width ~S."
+msgstr "Edefiningray odularmay ersionvay ~S ofway ~S orfay idthway ~S."
+
+#: target:compiler/macros.lisp
+msgid ""
+"Lambda list keyword ~S is not supported for ~\n"
+"              modular function lambda lists."
+msgstr ""
+"Ambdalay istlay eywordkay ~S isway otnay upportedsay orfay ~\n"
+"              odularmay unctionfay ambdalay istslay."
+
+#: target:compiler/generic/vm-macs.lisp
+msgid "No more slots can follow a :rest-p slot."
+msgstr "Onay oremay otsslay ancay ollowfay away :estray-p otslay."
+
+#: target:compiler/generic/vm-macs.lisp
+msgid ""
+"Number of slots used by each ~S~\n"
+"\t\t\t\t  ~@[~* including the header~]."
+msgstr ""
+"Umbernay ofway otsslay usedway ybay eachway ~S~\n"
+"\t\t\t\t  ~@[~* includingway ethay eaderhay~]."
+
+#: target:compiler/backend.lisp
+msgid ""
+"Machine specific support routine ~S ~\n"
+"\t\t\t\t  undefined for ~S"
+msgstr ""
+"Achinemay ecificspay upportsay outineray ~S ~\n"
+"\t\t\t\t  undefinedway orfay ~S"
+
+#: target:compiler/backend.lisp
+msgid "Unknown VM support routine: ~A"
+msgstr "Unknownway VM upportsay outineray: ~Away"
+
+#: target:compiler/backend.lisp
+msgid "The backend for the machine we are running on. Do not change this."
+msgstr ""
+"Ethay ackendbay orfay ethay achinemay eway areway unningray onway. Oday "
+"otnay angechay isthay."
+
+#: target:compiler/backend.lisp
+msgid "The backend we are attempting to compile."
+msgstr "Ethay ackendbay eway areway attemptingway otay ompilecay."
+
+#: target:compiler/backend.lisp
+msgid "The backend we are using to compile with."
+msgstr "Ethay ackendbay eway areway usingway otay ompilecay ithway."
+
+#: target:compiler/backend.lisp
+msgid "Compute the *FEATURES* list to use with BACKEND."
+msgstr "Omputecay ethay *FEATURES* istlay otay useway ithway BACKEND."
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
+msgstr ""
+"Amesay asway EXT:FEATUREP, exceptway useway ethay eaturesfay oundfay inway "
+"*TARGET-BACKEND*."
+
+#: target:compiler/backend.lisp
+msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
+msgstr ""
+"Amesay asway EXT:FEATUREP, exceptway useway ethay eaturesfay oundfay inway "
+"*BACKEND*."
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
+msgstr ""
+"Amesay asway EXT:FEATUREP, exceptway useway ethay eaturesfay oundfay inway "
+"*NATIVE-BACKEND*."
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+"Umbernay ofway itsbay atway ethay owlay endway ofway away ointerpay usedway "
+"orfay ypetay informationway."
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr "Askmay otay extractway ethay owlay agtay itsbay omfray away ointerpay."
+
+#: target:compiler/generic/objdef.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+"Exclusiveway upperway oundbay onway ethay aluevay ofway ethay owlay agtay "
+"itsbay omfray away\n"
+"  ointerpay."
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits used in the header word of a data block for typeing."
+msgstr ""
+"Umbernay ofway itsbay usedway inway ethay eaderhay ordway ofway away ataday "
+"ockblay orfay ypeingtay."
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the type from a header word."
+msgstr "Askmay otay extractway ethay ypetay omfray away eaderhay ordway."
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-positive-fixnum in the target architecture."
+msgstr "ostmay-ositivepay-ixnumfay inway ethay argettay architectureway."
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-negative-fixnum in the target architecture."
+msgstr "ostmay-egativenay-ixnumfay inway ethay argettay architectureway."
+
+#: target:compiler/generic/interr.lisp
+msgid "Unknown internal error: ~S"
+msgstr "Unknownway internalway errorway: ~S"
+
+#: target:compiler/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
+msgstr "ocallay-ntay-imitlay otnay away mvay:ordway-itsbay ultiplemay."
+
+#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp
+#: target:compiler/life.lisp target:compiler/bit-util.lisp
+msgid ""
+"Argument and/or result bit arrays not the same length:~\n"
+"\t\t\t ~%  ~S~%  ~S  ~%  ~S"
+msgstr ""
+"Argumentway andway/orway esultray itbay arraysway otnay ethay amesay "
+"engthlay:~\n"
+"\t\t\t ~%  ~S~%  ~S  ~%  ~S"
+
+#: target:compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+"Unctionfay ashay anway oddway umbernay ofway argumentsway inway ethay "
+"eywordkay ortionpay."
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr "Ancay't elltay etherwhay ethay esultray isway away ~S."
+
+#: target:compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr "Ethay esultray isway away ~S, otnay away ~S."
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants exactly ~R."
+msgid_plural "Function called with ~R arguments, but wants exactly ~R."
+msgstr[0] ""
+"Unctionfay alledcay ithway ~R argumentway, utbay antsway exactlyway ~R."
+msgstr[1] ""
+"Unctionfay alledcay ithway ~R argumentsway, utbay antsway exactlyway ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants at least ~R."
+msgid_plural "Function called with ~R arguments, but wants at least ~R."
+msgstr[0] ""
+"Unctionfay alledcay ithway ~R argumentway, utbay antsway atway eastlay ~R."
+msgstr[1] ""
+"Unctionfay alledcay ithway ~R argumentsway, utbay antsway atway eastlay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Function called with ~R argument, but wants at most ~R."
+msgid_plural "Function called with ~R arguments, but wants at most ~R."
+msgstr[0] ""
+"Unctionfay alledcay ithway ~R argumentway, utbay antsway atway ostmay ~R."
+msgstr[1] ""
+"Unctionfay alledcay ithway ~R argumentsway, utbay antsway atway ostmay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the ~:R argument is a ~S."
+msgstr "Ancay't elltay etherwhay ethay ~:R argumentway isway away ~S."
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is a ~S, not a ~S."
+msgstr "Ethay ~:R argumentway isway away ~S, otnay away ~S."
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument never returns a value."
+msgstr "Ethay ~:R argumentway evernay eturnsray away aluevay."
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant."
+msgstr "Ethay ~:R argumentway isway otnay away onstantcay."
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Can't tell whether the ~:R argument is a ~\n"
+"\t\t             constant ~S:~%  ~S"
+msgstr ""
+"Ancay't elltay etherwhay ethay ~:R argumentway isway away ~\n"
+"\t\t             onstantcay ~S:~%  ~S"
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant ~S:~%  ~S"
+msgstr "Ethay ~:R argumentway isway otnay away onstantcay ~S:~%  ~S"
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument (in keyword position) is not a constant."
+msgstr ""
+"Ethay ~:R argumentway (inway eywordkay ositionpay) isway otnay away "
+"onstantcay."
+
+#: target:compiler/ctype.lisp
+msgid "The value of ~S is not a constant"
+msgstr "Ethay aluevay ofway ~S isway otnay away onstantcay"
+
+#: target:compiler/ctype.lisp
+msgid "~S is not a known argument keyword."
+msgstr "~S isway otnay away nownkay argumentway eywordkay."
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"\t      the keyword portion."
+msgstr ""
+"Unctionfay eviouslypray alledcay ithway anway oddway umbernay ofway "
+"argumentsway inway ~\n"
+"\t      ethay eywordkay ortionpay."
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument, but wants at least ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at least ~R."
+msgstr[0] ""
+"Unctionfay eviouslypray alledcay ithway ~R argumentway, utbay antsway atway "
+"eastlay ~R."
+msgstr[1] ""
+"Unctionfay eviouslypray alledcay ithway ~R argumentsway, utbay antsway atway "
+"eastlay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument, but wants at most ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at most ~R."
+msgstr[0] ""
+"Unctionfay eviouslypray alledcay ithway ~R argumentway, utbay antsway atway "
+"ostmay ~R."
+msgstr[1] ""
+"Unctionfay eviouslypray alledcay ithway ~R argumentsway, utbay antsway atway "
+"ostmay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether previous ~? argument type ~S is a ~S."
+msgstr ""
+"Ancay't elltay etherwhay eviouspray ~? argumentway ypetay ~S isway away ~S."
+
+#: target:compiler/ctype.lisp
+msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+msgstr ""
+"~:(~?~) argumentway ouldshay ebay away ~S utbay asway away ~S inway away "
+"eviouspray allcay."
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with unknown argument keyword ~S."
+msgstr ""
+"Unctionfay eviouslypray alledcay ithway unknownway argumentway eywordkay ~S."
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition's declared type for variable ~A:~%  ~S~@\n"
+"\t\t   conflicts with this type from ~A:~%  ~S"
+msgstr ""
+"Efinitionday's eclaredday ypetay orfay ariablevay ~Away:~%  ~S~@\n"
+"\t\t   onflictscay ithway isthay ypetay omfray ~Away:~%  ~S"
+
+#.  Translate FIXED above appropriately.
+#: target:compiler/ctype.lisp
+msgid "fixed"
+msgstr "ixedfay"
+
+#.  Translate OPTIONAL above appropriately.
+#: target:compiler/ctype.lisp
+msgid "optional"
+msgstr "optionalway"
+
+#. updated to allow better translations.
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition ~:[doesn't have~;has~] ~A, but ~\n"
+"\t\t~A ~:[doesn't~;does~]."
+msgstr ""
+"Efinitionday ~:[oesnday't avehay~;ashay~] ~Away, utbay ~\n"
+"\t\t~Away ~:[oesnday't~;oesday~]."
+
+#: target:compiler/ctype.lisp
+msgid "keyword args"
+msgstr "eywordkay argsway"
+
+#: target:compiler/ctype.lisp
+msgid "rest args"
+msgstr "estray argsway"
+
+#: target:compiler/ctype.lisp
+msgid "Defining a ~S keyword not present in ~A."
+msgstr "Efiningday away ~S eywordkay otnay esentpray inway ~Away."
+
+#: target:compiler/ctype.lisp
+msgid "Definition lacks the ~S keyword present in ~A."
+msgstr "Efinitionday ackslay ethay ~S eywordkay esentpray inway ~Away."
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R ~A arg, but ~A has ~R."
+msgid_plural "Definition has ~R ~A args, but ~A has ~R."
+msgstr[0] "Efinitionday ashay ~R ~Away argway, utbay ~Away ashay ~R."
+msgstr[1] "Efinitionday ashay ~R ~Away argsway, utbay ~Away ashay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "Definition has no ~A, but the ~A did."
+msgstr "Efinitionday ashay onay ~Away, utbay ethay ~Away idday."
+
+#: target:compiler/ctype.lisp
+msgid "optional args"
+msgstr "optionalway argsway"
+
+#: target:compiler/ctype.lisp
+msgid "rest arg"
+msgstr "estray argway"
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R arg, but the ~A has ~R."
+msgid_plural "Definition has ~R args, but the ~A has ~R."
+msgstr[0] "Efinitionday ashay ~R argway, utbay ethay ~Away ashay ~R."
+msgstr[1] "Efinitionday ashay ~R argsway, utbay ethay ~Away ashay ~R."
+
+#: target:compiler/ctype.lisp
+msgid "previous declaration"
+msgstr "eviouspray eclarationday"
+
+#: target:compiler/ctype.lisp
+msgid ""
+"The result type from ~A:~%  ~S~@\n"
+"\t   conflicts with the definition's result type assertion:~%  ~S"
+msgstr ""
+"Ethay esultray ypetay omfray ~Away:~%  ~S~@\n"
+"\t   onflictscay ithway ethay efinitionday's esultray ypetay assertionway:~"
+"%  ~S"
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Assignment to argument: ~S~%  ~\n"
+"\t\t\t       prevents use of assertion from function ~\n"
+"\t\t\t       type ~A:~%  ~S~%"
+msgstr ""
+"Assignmentway otay argumentway: ~S~%  ~\n"
+"\t\t\t       eventspray useway ofway assertionway omfray unctionfay ~\n"
+"\t\t\t       ypetay ~Away:~%  ~S~%"
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined template."
+msgstr "~S isway otnay away efinedday emplatetay."
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage class."
+msgstr "~S isway otnay away efinedday toragesay assclay."
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage base."
+msgstr "~S isway otnay away efinedday toragesay asebay."
+
+#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+msgid "~S is not a defined primitive type."
+msgstr "~S isway otnay away efinedday imitivepray ypetay."
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-THIS-LOCATION VOP Kind\n"
+"  Note that the current code location is an interesting (to the debugger)\n"
+"  location of the specified Kind.  VOP is the VOP responsible for this "
+"code.\n"
+"  This VOP must specify some non-null :SAVE-P value (perhaps :COMPUTE-ONLY) "
+"so\n"
+"  that the live set is computed."
+msgstr ""
+"NOTE-THIS-LOCATION VOP Indkay\n"
+"  Otenay atthay ethay urrentcay odecay ocationlay isway anway interestingway "
+"(otay ethay ebuggerday)\n"
+"  ocationlay ofway ethay ecifiedspay Indkay.  VOP isway ethay VOP "
+"esponsibleray orfay isthay odecay.\n"
+"  Isthay VOP ustmay ecifyspay omesay onnay-ullnay :SAVE-P aluevay "
+"(erhapspay :COMPUTE-ONLY) osay\n"
+"  atthay ethay ivelay etsay isway omputedcay."
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-NEXT-INSTRUCTION VOP Kind\n"
+"   Similar to NOTE-THIS-LOCATION, except the use the location of the next\n"
+"   instruction for the code location, wherever the scheduler decided to put\n"
+"   it."
+msgstr ""
+"NOTE-NEXT-INSTRUCTION VOP Indkay\n"
+"   Imilarsay otay NOTE-THIS-LOCATION, exceptway ethay useway ethay "
+"ocationlay ofway ethay extnay\n"
+"   instructionway orfay ethay odecay ocationlay, ereverwhay ethay "
+"edulerschay ecidedday otay utpay\n"
+"   itway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Base Name Kind {Key Value}*\n"
+"  Define a storage base having the specified Name.  Kind may be :Finite,\n"
+"  :Unbounded or :Non-Packed.  The following keywords are legal:\n"
+"\n"
+"  :Size <Size>\n"
+"      Specify the number of locations in a :Finite SB or the initial size of "
+"a\n"
+"      :Unbounded SB."
+msgstr ""
+"Efineday-Toragesay-Asebay Amenay Indkay {Eykay Aluevay}*\n"
+"  Efineday away toragesay asebay avinghay ethay ecifiedspay Amenay.  Indkay "
+"aymay ebay :Initefay,\n"
+"  :Unboundedway orway :Onnay-Ackedpay.  Ethay ollowingfay eywordskay areway "
+"egallay:\n"
+"\n"
+"  :Izesay <Izesay>\n"
+"      Ecifyspay ethay umbernay ofway ocationslay inway away :Initefay SB "
+"orway ethay initialway izesay ofway away\n"
+"      :Unboundedway SB."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size specification meaningless in a ~S SB."
+msgstr "Izesay ecificationspay eaninglessmay inway away ~S SB."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size not specified in a ~S SB."
+msgstr "Izesay otnay ecifiedspay inway away ~S SB."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Class Name Number Storage-Base {Key Value}*\n"
+"  Define a storage class Name that uses the named Storage-Base.  Number is "
+"a\n"
+"  small, non-negative integer that is used as an alias.  The following\n"
+"  keywords are defined:\n"
+"\n"
+"  :Element-Size Size\n"
+"      The size of objects in this SC in whatever units the SB uses.  This\n"
+"      defaults to 1.\n"
+"\n"
+"  :Alignment Size\n"
+"      The alignment restrictions for this SC.  TNs will only be allocated "
+"at\n"
+"      offsets that are an even multiple of this number.  Defaults to 1.\n"
+"\n"
+"  :Locations (Location*)\n"
+"      If the SB is :Finite, then this is a list of the offsets within the "
+"SB\n"
+"      that are in this SC.\n"
+"\n"
+"  :Reserve-Locations (Location*)\n"
+"      A subset of the Locations that the register allocator should try to\n"
+"      reserve for operand loading (instead of to hold variable values.)\n"
+"\n"
+"  :Save-P {T | NIL}\n"
+"      If T, then values stored in this SC must be saved in one of the\n"
+"      non-save-p :Alternate-SCs across calls.\n"
+"\n"
+"  :Alternate-SCs (SC*)\n"
+"      Indicates other SCs that can be used to hold values from this SC "
+"across\n"
+"      calls or when storage in this SC is exhausted.  The SCs should be\n"
+"      specified in order of decreasing \"goodness\".  There must be at "
+"least\n"
+"      one SC in an unbounded SB, unless this SC is only used for restricted "
+"or\n"
+"      wired TNs.\n"
+"\n"
+"  :Constant-SCs (SC*)\n"
+"      A list of the names of all the constant SCs that can be loaded into "
+"this\n"
+"      SC by a move function."
+msgstr ""
+"Efineday-Toragesay-Assclay Amenay Umbernay Toragesay-Asebay {Eykay Aluevay}"
+"*\n"
+"  Efineday away toragesay assclay Amenay atthay usesway ethay amednay "
+"Toragesay-Asebay.  Umbernay isway away\n"
+"  mallsay, onnay-egativenay integerway atthay isway usedway asway anway "
+"aliasway.  Ethay ollowingfay\n"
+"  eywordskay areway efinedday:\n"
+"\n"
+"  :Elementway-Izesay Izesay\n"
+"      Ethay izesay ofway objectsway inway isthay SC inway ateverwhay "
+"unitsway ethay SB usesway.  Isthay\n"
+"      efaultsday otay 1.\n"
+"\n"
+"  :Alignmentway Izesay\n"
+"      Ethay alignmentway estrictionsray orfay isthay SC.  Nstay illway "
+"onlyway ebay allocatedway atway\n"
+"      offsetsway atthay areway anway evenway ultiplemay ofway isthay "
+"umbernay.  Efaultsday otay 1.\n"
+"\n"
+"  :Ocationslay (Ocation*Lay)\n"
+"      Ifway ethay SB isway :Initefay, enthay isthay isway away istlay ofway "
+"ethay offsetsway ithinway ethay SB\n"
+"      atthay areway inway isthay SC.\n"
+"\n"
+"  :Eserveray-Ocationslay (Ocation*Lay)\n"
+"      Away ubsetsay ofway ethay Ocationslay atthay ethay egisterray "
+"allocatorway ouldshay ytray otay\n"
+"      eserveray orfay operandway oadinglay (insteadway ofway otay oldhay "
+"ariablevay aluesvay.)\n"
+"\n"
+"  :Avesay-P {T | NIL}\n"
+"      Ifway T, enthay aluesvay toredsay inway isthay SC ustmay ebay avedsay "
+"inway oneway ofway ethay\n"
+"      onnay-avesay-p :Alternateway-Sscay acrossway allscay.\n"
+"\n"
+"  :Alternateway-Sscay (*Scay)\n"
+"      Indicatesway otherway Sscay atthay ancay ebay usedway otay oldhay "
+"aluesvay omfray isthay SC acrossway\n"
+"      allscay orway enwhay toragesay inway isthay SC isway exhaustedway.  "
+"Ethay Sscay ouldshay ebay\n"
+"      ecifiedspay inway orderway ofway ecreasingday \"oodnessgay\".  Erethay "
+"ustmay ebay atway eastlay\n"
+"      oneway SC inway anway unboundedway SB, unlessway isthay SC isway "
+"onlyway usedway orfay estrictedray orway\n"
+"      iredway Nstay.\n"
+"\n"
+"  :Onstantcay-Sscay (*Scay)\n"
+"      Away istlay ofway ethay amesnay ofway allway ethay onstantcay Sscay "
+"atthay ancay ebay oadedlay intoway isthay\n"
+"      SC ybay away ovemay unctionfay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Alignment is not a power of two: ~S"
+msgstr "Alignmentway isway otnay away owerpay ofway wotay: ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "SC element ~D out of bounds for ~S."
+msgstr "SC elementway ~D outway ofway oundsbay orfay ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ":Locations is meaningless in a ~S SB."
+msgstr ":Ocationslay isway eaninglessmay inway away ~S SB."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Reserve-Locations not a subset of Locations."
+msgstr "Eserveray-Ocationslay otnay away ubsetsay ofway Ocationslay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Meaningless to specify alternate or constant SCs in a ~S SB."
+msgstr ""
+"Eaninglessmay otay ecifyspay alternateway orway onstantcay Sscay inway away "
+"~S SB."
+
+#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n"
+"  Define the function Name and note it as the function used for moving "
+"operands\n"
+"  from the From-SCs to the To-SCs.  Cost is the cost of this move "
+"operation.\n"
+"  The function is called with three arguments: the VOP (for context), and "
+"the\n"
+"  source and destination TNs.  An ASSEMBLE form is wrapped around the body.\n"
+"  All uses of DEFINE-MOVE-FUNCTION should be compiled before any uses of\n"
+"  DEFINE-VOP."
+msgstr ""
+"Efineday-Ovemay-Unctionfay (Amenay Ostcay) ambdalay-istlay ({(Omfray-*Scay) "
+"(Otay-*Scay)}*) orm*fay\n"
+"  Efineday ethay unctionfay Amenay andway otenay itway asway ethay "
+"unctionfay usedway orfay ovingmay operandsway\n"
+"  omfray ethay Omfray-Sscay otay ethay Otay-Sscay.  Ostcay isway ethay "
+"ostcay ofway isthay ovemay operationway.\n"
+"  Ethay unctionfay isway alledcay ithway reethay argumentsway: ethay VOP "
+"(orfay ontextcay), andway ethay\n"
+"  ourcesay andway estinationday Nstay.  Anway ASSEMBLE ormfay isway "
+"appedwray aroundway ethay odybay.\n"
+"  Allway usesway ofway DEFINE-MOVE-FUNCTION ouldshay ebay ompiledcay "
+"eforebay anyway usesway ofway\n"
+"  DEFINE-VOP."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed SCs spec: ~S."
+msgstr "Alformedmay Sscay ecspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n"
+"  Make Name be the VOP used to move values in the specified From-SCs to the\n"
+"  representation of the To-SCs.  If kind is :Move-Argument, then the VOP "
+"takes\n"
+"  an extra argument, which is the frame pointer of the frame to move into."
+msgstr ""
+"Efineday-Ovemay-VOP Amenay {:Ovemay | :Ovemay-Argumentway} {(Omfray-*Scay) "
+"(Otay-*Scay)}*\n"
+"  Akemay Amenay ebay ethay VOP usedway otay ovemay aluesvay inway ethay "
+"ecifiedspay Omfray-Sscay otay ethay\n"
+"  epresentationray ofway ethay Otay-Sscay.  Ifway indkay isway :Ovemay-"
+"Argumentway, enthay ethay VOP akestay\n"
+"  anway extraway argumentway, ichwhay isway ethay amefray ointerpay ofway "
+"ethay amefray otay ovemay intoway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind ~S."
+msgstr "Unknownway indkay ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Def-Primitive-Type Name (SC*) {Key Value}*\n"
+"   Define a primitive type Name.  Each SC specifies a Storage Class that "
+"values\n"
+"   of this type may be allocated in.  The following keyword options are\n"
+"   defined:\n"
+"  \n"
+"  :Type\n"
+"      The type descriptor for the Lisp type that is equivalent to this type\n"
+"      (defaults to Name.)"
+msgstr ""
+"Efday-Imitivepray-Ypetay Amenay (*Scay) {Eykay Aluevay}*\n"
+"   Efineday away imitivepray ypetay Amenay.  Eachway SC ecifiesspay away "
+"Toragesay Assclay atthay aluesvay\n"
+"   ofway isthay ypetay aymay ebay allocatedway inway.  Ethay ollowingfay "
+"eywordkay optionsway areway\n"
+"   efinedday:\n"
+"  \n"
+"  :Ypetay\n"
+"      Ethay ypetay escriptorday orfay ethay Isplay ypetay atthay isway "
+"equivalentway otay isthay ypetay\n"
+"      (efaultsday otay Amenay.)"
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DEF-PRIMITIVE-TYPE-ALIAS Name Result\n"
+"  Define name to be an alias for Result in VOP operand type restrictions."
+msgstr ""
+"DEF-PRIMITIVE-TYPE-ALIAS Amenay Esultray\n"
+"  Efineday amenay otay ebay anway aliasway orfay Esultray inway VOP "
+"operandway ypetay estrictionsray."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Primitive-Type-VOP Vop (Kind*) Type*\n"
+"  Annotate all the specified primitive Types with the named VOP under each "
+"of\n"
+"  the specified kinds:\n"
+"\n"
+"  :Check\n"
+"      A one argument one result VOP that moves the argument to the result,\n"
+"      checking that the value is of this type in the process."
+msgstr ""
+"Imitivepray-Ypetay-VOP Opvay (Ind*Kay) Ype*Tay\n"
+"  Annotateway allway ethay ecifiedspay imitivepray Ypestay ithway ethay "
+"amednay VOP underway eachway ofway\n"
+"  ethay ecifiedspay indskay:\n"
+"\n"
+"  :Eckchay\n"
+"      Away oneway argumentway oneway esultray VOP atthay ovesmay ethay "
+"argumentway otay ethay esultray,\n"
+"      eckingchay atthay ethay aluevay isway ofway isthay ypetay inway ethay "
+"ocesspray."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind: ~S."
+msgstr "Unknownway indkay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Operand ~S isn't one of these kinds: ~S."
+msgstr "Operandway ~S isnway't oneway ofway esethay indskay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not an operand to ~S."
+msgstr "~S isway otnay anway operandway otay ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not the name of a defined VOP."
+msgstr "~S isway otnay ethay amenay ofway away efinedday VOP."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument missing: ~S."
+msgstr "~:R argumentway issingmay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Extra junk at end of ~S."
+msgstr "Extraway unkjay atway endway ofway ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument is not a ~S: ~S."
+msgstr "~:R argumentway isway otnay away ~S: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed time specifier: ~S."
+msgstr "Alformedmay imetay ecifierspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown phase in time specifier: ~S."
+msgstr "Unknownway asephay inway imetay ecifierspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot target a ~S operand: ~S."
+msgstr "Annotcay argettay away ~S operandway: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to ~:[save~;load~] SC ~S~\n"
+"\t\t\t  ~:[to~;from~] from SC ~S."
+msgstr ""
+"Onay ovemay unctionfay efinedday otay ~:[avesay~;oadlay~] SC ~S~\n"
+"\t\t\t  ~:[otay~;omfray~] omfray SC ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't tell whether to ~:[save~;load~] with ~S~@\n"
+"\t\t\t\t or ~S when operand is in SC ~S."
+msgstr ""
+"Ancay't elltay etherwhay otay ~:[avesay~;oadlay~] ithway ~S~@\n"
+"\t\t\t\t orway ~S enwhay operandway isway inway SC ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n"
+"\t          mentioned in the restriction for operand ~S."
+msgstr ""
+"SC ~S ashay onay alternateway~:[~; orway onstantcay~] Sscay, etyay itway "
+"isway~@\n"
+"\t          entionedmay inway ethay estrictionray orfay operandway ~S."
+
+#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n"
+"\t           VM efinitionday inconsistentway, ecompileray andway ytray "
+"againway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed operand specifier: ~S."
+msgstr "Alformedmay operandway ecifierspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "More operand isn't last: ~S."
+msgstr "Oremay operandway isnway't astlay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :FROM in a result: ~S"
+msgstr "Ancay onlyway ecifyspay :FROM inway away esultray: ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :TO in an argument: ~S"
+msgstr "Ancay onlyway ecifyspay :TO inway anway argumentway: ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown keyword in operand specifier: ~S."
+msgstr "Unknownway eywordkay inway operandway ecifierspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :TARGET in a :MORE operand."
+msgstr "Annotcay ecifyspay :TARGET inway away :MORE operandway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :LOAD-IF in a :MORE operand."
+msgstr "Annotcay ecifyspay :LOAD-IF inway away :MORE operandway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed temporary spec: ~S."
+msgstr "Alformedmay emporarytay ecspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed options list: ~S."
+msgstr "Alformedmay optionsway istlay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Odd number of arguments in keyword options: ~S."
+msgstr "Oddway umbernay ofway argumentsway inway eywordkay optionsway: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary spec allocates no temps:~%  ~S"
+msgstr "Emporarytay ecspay allocatesway onay empstay:~%  ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad temporary name: ~S."
+msgstr "Adbay emporarytay amenay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specify exactly one SC for a temporary."
+msgstr "Ustmay ecifyspay exactlyway oneway SC orfay away emporarytay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown temporary option: ~S."
+msgstr "Unknownway emporarytay optionway: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary lifetime doesn't begin before it ends: ~S."
+msgstr "Emporarytay ifetimelay oesnday't eginbay eforebay itway endsway: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specifiy :SC for all temporaries: ~S"
+msgstr "Ustmay ecifiyspay :SC orfay allway emporariestay: ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed option specification: ~S."
+msgstr "Alformedmay optionway ecificationspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown option specifier: ~S."
+msgstr "Unknownway optionway ecifierspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to move ~:[from~;to~] SC ~\n"
+"\t              ~S~%~:[to~;from~] alternate or constant SC ~S."
+msgstr ""
+"Onay ovemay unctionfay efinedday otay ovemay ~:[omfray~;otay~] SC ~\n"
+"\t              ~S~%~:[otay~;omfray~] alternateway orway onstantcay SC ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad thing to be a operand type: ~S."
+msgstr "Adbay ingthay otay ebay away operandway ypetay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad PRIMITIVE-TYPE name in ~S: ~S"
+msgstr "Adbay PRIMITIVE-TYPE amenay inway ~S: ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't include primitive-type ~\n"
+"\t\t\t\t             alias ~S in a :OR restriction: ~S."
+msgstr ""
+"Ancay't includeway imitivepray-ypetay ~\n"
+"\t\t\t\t             aliasway ~S inway away :OR estrictionray: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't :CONSTANT for a result."
+msgstr "Ancay't :CONSTANT orfay away esultray."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad :CONSTANT argument type spec: ~S."
+msgstr "Adbay :CONSTANT argumentway ypetay ecspay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"In the ~A ~:[result~;argument~] to VOP ~S,~@\n"
+"\t            none of the SCs allowed by the operand type ~S can ~\n"
+"\t\t    directly be loaded~@\n"
+"\t\t    into any of the restriction's SCs:~%  ~S~:[~;~@\n"
+"\t\t    [* type operand must allow T's SCs.]~]"
+msgstr ""
+"Inway ethay ~Away ~:[esultray~;argumentway~] otay VOP ~S,~@\n"
+"\t            onenay ofway ethay Sscay allowedway ybay ethay operandway "
+"ypetay ~S ancay ~\n"
+"\t\t    irectlyday ebay oadedlay~@\n"
+"\t\t    intoway anyway ofway ethay estrictionray's Sscay:~%  ~S~:[~;~@\n"
+"\t\t    [* ypetay operandway ustmay allowway T's Sscay.]~]"
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"~:[Result~;Argument~] ~A to VOP ~S~@\n"
+"\t         has SC restriction ~S which is ~\n"
+"\t\t not allowed by the operand type:~%  ~S"
+msgstr ""
+"~:[Esultray~;Argumentway~] ~Away otay VOP ~S~@\n"
+"\t         ashay SC estrictionray ~S ichwhay isway ~\n"
+"\t\t otnay allowedway ybay ethay operandway ypetay:~%  ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't use :CONSTANT on VOP more args."
+msgstr "Ancay't useway :CONSTANT onway VOP oremay argsway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D ~:[result~;argument~] type: ~S."
+msgid_plural "Expected ~D ~:[result~;argument~] types: ~S."
+msgstr[0] "Expectedway ~D ~:[esultray~;argumentway~] ypetay: ~S."
+msgstr[1] "Expectedway ~D ~:[esultray~;argumentway~] ypestay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D variant values: ~S."
+msgstr "Expectedway ~D ariantvay aluesvay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-VOP (Name [Inherits]) Spec*\n"
+"  Define the symbol Name to be a Virtual OPeration in the compiler.  If\n"
+"  specified, Inherits is the name of a VOP that we default unspecified\n"
+"  information from.  Each Spec is a list beginning with a keyword "
+"indicating\n"
+"  the interpretation of the other forms in the Spec:\n"
+"  \n"
+"  :Args {(Name {Key Value}*)}*\n"
+"  :Results {(Name {Key Value}*)}*\n"
+"      The Args and Results are specifications of the operand TNs passed to "
+"the\n"
+"      VOP.  If there is an inherited VOP, any unspecified options are "
+"defaulted\n"
+"      from the inherited argument (or result) of the same name.  The "
+"following\n"
+"      operand options are defined: \n"
+"\n"
+"      :SCs (SC*)\n"
+"\t  :SCs specifies good SCs for this operand.  Other SCs will be\n"
+"\t  penalized according to move costs.  A load TN will be allocated if\n"
+"\t  necessary, guaranteeing that the operand is always one of the\n"
+"\t  specified SCs.\n"
+"\n"
+"      :Load-TN Load-Name\n"
+"          Load-Name is bound to the load TN allocated for this operand, or "
+"to\n"
+"\t  NIL if no load TN was allocated.\n"
+"\n"
+"      :Load-If Expression\n"
+"          Controls whether automatic operand loading is done.  Expression "
+"is\n"
+"\t  evaluated with the fixed operand TNs bound.  If Expression is true,\n"
+"\t  then loading is done and the variable is bound to the load TN in\n"
+"\t  the generator body.  Otherwise, loading is not done, and the variable\n"
+"\t  is bound to the actual operand.\n"
+"\n"
+"      :More T-or-NIL\n"
+"\t  If specified, Name is bound to the TN-Ref for the first argument or\n"
+"\t  result following the fixed arguments or results.  A more operand must\n"
+"\t  appear last, and cannot be targeted or restricted.\n"
+"\n"
+"      :Target Operand\n"
+"\t  This operand is targeted to the named operand, indicating a desire to\n"
+"\t  pack in the same location.  Not legal for results.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"\t  Specify the beginning or end of the operand's lifetime.  :From can\n"
+"\t  only be used with results, and :To only with arguments.  The default\n"
+"\t  for the N'th argument/result is (:ARGUMENT N)/(:RESULT N).  These\n"
+"\t  options are necessary primarily when operands are read or written out\n"
+"\t  of order.\n"
+"   \n"
+"  :Conditional\n"
+"      This is used in place of :RESULTS with conditional branch VOPs.  "
+"There\n"
+"      are no result values: the result is a transfer of control.  The "
+"target\n"
+"      label is passed as the first :INFO arg.  The second :INFO arg is true "
+"if\n"
+"      the sense of the test should be negated.  A side-effect is to set the\n"
+"      PREDICATE attribute for functions in the :TRANSLATE option.\n"
+"  \n"
+"  :Temporary ({Key Value}*) Name*\n"
+"      Allocate a temporary TN for each Name, binding that variable to the "
+"TN\n"
+"      within the body of the generators.  In addition to :Target (which is \n"
+"      is the same as for operands), the following options are\n"
+"      defined:\n"
+"\n"
+"      :SC SC-Name\n"
+"      :Offset SB-Offset\n"
+"\t  Force the temporary to be allocated in the specified SC with the\n"
+"\t  specified offset.  Offset is evaluated at macroexpand time.  If\n"
+"\t  Offset is emitted, the register allocator chooses a free location in\n"
+"\t  SC.  If both SC and Offset are omitted, then the temporary is packed\n"
+"\t  according to its primitive type.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"\t  Similar to the argument/result option, this specifies the start and\n"
+"\t  end of the temporarys' lives.  The defaults are :Load and :Save, i.e.\n"
+"\t  the duration of the VOP.  The other intervening phases are :Argument,\n"
+"\t  :Eval and :Result.  Non-zero sub-phases can be specified by a list,\n"
+"\t  e.g. by default the second argument's life ends at (:Argument 1).\n"
+" \n"
+"  :Generator Cost Form*\n"
+"      Specifies the translation into assembly code. Cost is the estimated "
+"cost\n"
+"      of the code emitted by this generator. The body is arbitrary Lisp "
+"code\n"
+"      that emits the assembly language translation of the VOP.  An Assemble\n"
+"      form is wrapped around the body, so code may be emitted by using the\n"
+"      local Inst macro.  During the evaluation of the body, the names of "
+"the\n"
+"      operands and temporaries are bound to the actual TNs.\n"
+"  \n"
+"  :Effects Effect*\n"
+"  :Affected Effect*\n"
+"      Specifies the side effects that this VOP has and the side effects "
+"that\n"
+"      effect its execution.  If unspecified, these default to the worst "
+"case.\n"
+"  \n"
+"  :Info Name*\n"
+"      Define some magic arguments that are passed directly to the code\n"
+"      generator.  The corresponding trailing arguments to VOP or %Primitive "
+"are\n"
+"      stored in the VOP structure.  Within the body of the generators, the\n"
+"      named variables are bound to these values.  Except in the case of\n"
+"      :Conditional VOPs, :Info arguments cannot be specified for VOPS that "
+"are\n"
+"      the direct translation for a function (specified by :Translate).\n"
+"\n"
+"  :Ignore Name*\n"
+"      Causes the named variables to be declared IGNORE in the generator "
+"body.\n"
+"\n"
+"  :Variant Thing*\n"
+"  :Variant-Vars Name*\n"
+"      These options provide a way to parameterize families of VOPs that "
+"differ\n"
+"      only trivially.  :Variant makes the specified evaluated Things be the\n"
+"      \"variant\" associated with this VOP.  :Variant-Vars causes the named\n"
+"      variables to be bound to the corresponding Things within the body of "
+"the\n"
+"      generator.\n"
+"\n"
+"  :Variant-Cost Cost\n"
+"      Specifies the cost of this VOP, overriding the cost of any inherited\n"
+"      generator.\n"
+"\n"
+"  :Note {String | NIL}\n"
+"      A short noun-like phrase describing what this VOP \"does\", i.e. the\n"
+"      implementation strategy.  If supplied, efficency notes will be "
+"generated\n"
+"      when type uncertainty prevents :TRANSLATE from working.  NIL inhibits "
+"any\n"
+"      efficency note.\n"
+"\n"
+"  :Arg-Types    {* | PType | (:OR PType*) | (:CONSTANT Type)}*\n"
+"  :Result-Types {* | PType | (:OR PType*)}*\n"
+"      Specify the template type restrictions used for automatic "
+"translation.\n"
+"      If there is a :More operand, the last type is the more type.  :"
+"CONSTANT\n"
+"      specifies that the argument must be a compile-time constant of the\n"
+"      specified Lisp type.  The constant values of :CONSTANT arguments are\n"
+"      passed as additional :INFO arguments rather than as :ARGS.\n"
+"  \n"
+"  :Translate Name*\n"
+"      This option causes the VOP template to be entered as an IR2 "
+"translation\n"
+"      for the named functions.\n"
+"\n"
+"  :Policy {:Small | :Fast | :Safe | :Fast-Safe}\n"
+"      Specifies the policy under which this VOP is the best translation.\n"
+"\n"
+"  :Guard Form\n"
+"      Specifies a Form that is evaluated in the global environment.  If\n"
+"      form returns NIL, then emission of this VOP is prohibited even when\n"
+"      all other restrictions are met.\n"
+"\n"
+"  :VOP-Var Name\n"
+"  :Node-Var Name\n"
+"      In the generator, bind the specified variable to the VOP or the Node "
+"that\n"
+"      generated this VOP.\n"
+"\n"
+"  :Save-P {NIL | T | :Compute-Only | :Force-To-Stack}\n"
+"      Indicates how a VOP wants live registers saved.\n"
+"\n"
+"  :Move-Args {NIL | :Full-Call | :Local-Call | :Known-Return}\n"
+"      Indicates if and how the more args should be moved into a different\n"
+"      frame."
+msgstr ""
+"Efineday-VOP (Amenay [Inheritsway]) Ec*Spay\n"
+"  Efineday ethay ymbolsay Amenay otay ebay away Irtualvay Operationway inway "
+"ethay ompilercay.  Ifway\n"
+"  ecifiedspay, Inheritsway isway ethay amenay ofway away VOP atthay eway "
+"efaultday unspecifiedway\n"
+"  informationway omfray.  Eachway Ecspay isway away istlay eginningbay "
+"ithway away eywordkay indicatingway\n"
+"  ethay interpretationway ofway ethay otherway ormsfay inway ethay Ecspay:\n"
+"  \n"
+"  :Argsway {(Amenay {Eykay Aluevay}*)}*\n"
+"  :Esultsray {(Amenay {Eykay Aluevay}*)}*\n"
+"      Ethay Argsway andway Esultsray areway ecificationsspay ofway ethay "
+"operandway Nstay assedpay otay ethay\n"
+"      VOP.  Ifway erethay isway anway inheritedway VOP, anyway "
+"unspecifiedway optionsway areway efaultedday\n"
+"      omfray ethay inheritedway argumentway (orway esultray) ofway ethay "
+"amesay amenay.  Ethay ollowingfay\n"
+"      operandway optionsway areway efinedday: \n"
+"\n"
+"      :Sscay (*Scay)\n"
+"\t  :Sscay ecifiesspay oodgay Sscay orfay isthay operandway.  Otherway Sscay "
+"illway ebay\n"
+"\t  enalizedpay accordingway otay ovemay ostscay.  Away oadlay TN illway "
+"ebay allocatedway ifway\n"
+"\t  ecessarynay, uaranteeinggay atthay ethay operandway isway alwaysway "
+"oneway ofway ethay\n"
+"\t  ecifiedspay Sscay.\n"
+"\n"
+"      :Oadlay-TN Oadlay-Amenay\n"
+"          Oadlay-Amenay isway oundbay otay ethay oadlay TN allocatedway "
+"orfay isthay operandway, orway otay\n"
+"\t  NIL ifway onay oadlay TN asway allocatedway.\n"
+"\n"
+"      :Oadlay-Ifway Expressionway\n"
+"          Ontrolscay etherwhay automaticway operandway oadinglay isway "
+"oneday.  Expressionway isway\n"
+"\t  evaluatedway ithway ethay ixedfay operandway Nstay oundbay.  Ifway "
+"Expressionway isway uetray,\n"
+"\t  enthay oadinglay isway oneday andway ethay ariablevay isway oundbay otay "
+"ethay oadlay TN inway\n"
+"\t  ethay eneratorgay odybay.  Otherwiseway, oadinglay isway otnay oneday, "
+"andway ethay ariablevay\n"
+"\t  isway oundbay otay ethay actualway operandway.\n"
+"\n"
+"      :Oremay T-orway-NIL\n"
+"\t  Ifway ecifiedspay, Amenay isway oundbay otay ethay TN-Efray orfay ethay "
+"irstfay argumentway orway\n"
+"\t  esultray ollowingfay ethay ixedfay argumentsway orway esultsray.  Away "
+"oremay operandway ustmay\n"
+"\t  appearway astlay, andway annotcay ebay argetedtay orway estrictedray.\n"
+"\n"
+"      :Argettay Operandway\n"
+"\t  Isthay operandway isway argetedtay otay ethay amednay operandway, "
+"indicatingway away esireday otay\n"
+"\t  ackpay inway ethay amesay ocationlay.  Otnay egallay orfay esultsray.\n"
+"\n"
+"      :Omfray Imetay-Ecspay\n"
+"      :Otay Imetay-Ecspay\n"
+"\t  Ecifyspay ethay eginningbay orway endway ofway ethay operandway's "
+"ifetimelay.  :Omfray ancay\n"
+"\t  onlyway ebay usedway ithway esultsray, andway :Otay onlyway ithway "
+"argumentsway.  Ethay efaultday\n"
+"\t  orfay ethay N'thay argumentway/esultray isway (:ARGUMENT N)/(:RESULT "
+"N).  Esethay\n"
+"\t  optionsway areway ecessarynay imarilypray enwhay operandsway areway "
+"eadray orway ittenwray outway\n"
+"\t  ofway orderway.\n"
+"   \n"
+"  :Onditionalcay\n"
+"      Isthay isway usedway inway aceplay ofway :RESULTS ithway onditionalcay "
+"anchbray Opsvay.  Erethay\n"
+"      areway onay esultray aluesvay: ethay esultray isway away ansfertray "
+"ofway ontrolcay.  Ethay argettay\n"
+"      abellay isway assedpay asway ethay irstfay :INFO argway.  Ethay "
+"econdsay :INFO argway isway uetray ifway\n"
+"      ethay ensesay ofway ethay esttay ouldshay ebay egatednay.  Away idesay-"
+"effectway isway otay etsay ethay\n"
+"      PREDICATE attributeway orfay unctionsfay inway ethay :TRANSLATE "
+"optionway.\n"
+"  \n"
+"  :Emporarytay ({Eykay Aluevay}*) Ame*Nay\n"
+"      Allocateway away emporarytay TN orfay eachway Amenay, indingbay atthay "
+"ariablevay otay ethay TN\n"
+"      ithinway ethay odybay ofway ethay eneratorsgay.  Inway additionway "
+"otay :Argettay (ichwhay isway \n"
+"      isway ethay amesay asway orfay operandsway), ethay ollowingfay "
+"optionsway areway\n"
+"      efinedday:\n"
+"\n"
+"      :SC SC-Amenay\n"
+"      :Offsetway SB-Offsetway\n"
+"\t  Orcefay ethay emporarytay otay ebay allocatedway inway ethay ecifiedspay "
+"SC ithway ethay\n"
+"\t  ecifiedspay offsetway.  Offsetway isway evaluatedway atway acroexpandmay "
+"imetay.  Ifway\n"
+"\t  Offsetway isway emittedway, ethay egisterray allocatorway ooseschay away "
+"eefray ocationlay inway\n"
+"\t  SC.  Ifway othbay SC andway Offsetway areway omittedway, enthay ethay "
+"emporarytay isway ackedpay\n"
+"\t  accordingway otay itsway imitivepray ypetay.\n"
+"\n"
+"      :Omfray Imetay-Ecspay\n"
+"      :Otay Imetay-Ecspay\n"
+"\t  Imilarsay otay ethay argumentway/esultray optionway, isthay ecifiesspay "
+"ethay tartsay andway\n"
+"\t  endway ofway ethay emporarystay' iveslay.  Ethay efaultsday areway :"
+"Oadlay andway :Avesay, i.e.\n"
+"\t  ethay urationday ofway ethay VOP.  Ethay otherway interveningway "
+"asesphay areway :Argumentway,\n"
+"\t  :Evalway andway :Esultray.  Onnay-erozay ubsay-asesphay ancay ebay "
+"ecifiedspay ybay away istlay,\n"
+"\t  e.g. ybay efaultday ethay econdsay argumentway's ifelay endsway atway (:"
+"Argumentway 1).\n"
+" \n"
+"  :Eneratorgay Ostcay Orm*Fay\n"
+"      Ecifiesspay ethay anslationtray intoway assemblyway odecay. Ostcay "
+"isway ethay estimatedway ostcay\n"
+"      ofway ethay odecay emittedway ybay isthay eneratorgay. Ethay odybay "
+"isway arbitraryway Isplay odecay\n"
+"      atthay emitsway ethay assemblyway anguagelay anslationtray ofway ethay "
+"VOP.  Anway Assembleway\n"
+"      ormfay isway appedwray aroundway ethay odybay, osay odecay aymay ebay "
+"emittedway ybay usingway ethay\n"
+"      ocallay Instway acromay.  Uringday ethay evaluationway ofway ethay "
+"odybay, ethay amesnay ofway ethay\n"
+"      operandsway andway emporariestay areway oundbay otay ethay actualway "
+"Nstay.\n"
+"  \n"
+"  :Effectsway Effect*Way\n"
+"  :Affectedway Effect*Way\n"
+"      Ecifiesspay ethay idesay effectsway atthay isthay VOP ashay andway "
+"ethay idesay effectsway atthay\n"
+"      effectway itsway executionway.  Ifway unspecifiedway, esethay "
+"efaultday otay ethay orstway asecay.\n"
+"  \n"
+"  :Infoway Ame*Nay\n"
+"      Efineday omesay agicmay argumentsway atthay areway assedpay irectlyday "
+"otay ethay odecay\n"
+"      eneratorgay.  Ethay orrespondingcay ailingtray argumentsway otay VOP "
+"orway %Imitivepray areway\n"
+"      toredsay inway ethay VOP ucturestray.  Ithinway ethay odybay ofway "
+"ethay eneratorsgay, ethay\n"
+"      amednay ariablesvay areway oundbay otay esethay aluesvay.  Exceptway "
+"inway ethay asecay ofway\n"
+"      :Onditionalcay Opsvay, :Infoway argumentsway annotcay ebay ecifiedspay "
+"orfay VOPS atthay areway\n"
+"      ethay irectday anslationtray orfay away unctionfay (ecifiedspay ybay :"
+"Anslatetray).\n"
+"\n"
+"  :Ignoreway Ame*Nay\n"
+"      Ausescay ethay amednay ariablesvay otay ebay eclaredday IGNORE inway "
+"ethay eneratorgay odybay.\n"
+"\n"
+"  :Ariantvay Ing*Thay\n"
+"  :Ariantvay-Arsvay Ame*Nay\n"
+"      Esethay optionsway ovidepray away ayway otay arameterizepay amiliesfay "
+"ofway Opsvay atthay ifferday\n"
+"      onlyway iviallytray.  :Ariantvay akesmay ethay ecifiedspay "
+"evaluatedway Ingsthay ebay ethay\n"
+"      \"ariantvay\" associatedway ithway isthay VOP.  :Ariantvay-Arsvay "
+"ausescay ethay amednay\n"
+"      ariablesvay otay ebay oundbay otay ethay orrespondingcay Ingsthay "
+"ithinway ethay odybay ofway ethay\n"
+"      eneratorgay.\n"
+"\n"
+"  :Ariantvay-Ostcay Ostcay\n"
+"      Ecifiesspay ethay ostcay ofway isthay VOP, overridingway ethay ostcay "
+"ofway anyway inheritedway\n"
+"      eneratorgay.\n"
+"\n"
+"  :Otenay {Ingstray | NIL}\n"
+"      Away ortshay ounnay-ikelay rasephay escribingday atwhay isthay VOP "
+"\"oesday\", i.e. ethay\n"
+"      implementationway ategystray.  Ifway uppliedsay, efficencyway otesnay "
+"illway ebay eneratedgay\n"
+"      enwhay ypetay uncertaintyway eventspray :TRANSLATE omfray orkingway.  "
+"NIL inhibitsway anyway\n"
+"      efficencyway otenay.\n"
+"\n"
+"  :Argway-Ypestay    {* | Typepay | (:OR Type*Pay) | (:CONSTANT Ypetay)}*\n"
+"  :Esultray-Ypestay {* | Typepay | (:OR Type*Pay)}*\n"
+"      Ecifyspay ethay emplatetay ypetay estrictionsray usedway orfay "
+"automaticway anslationtray.\n"
+"      Ifway erethay isway away :Oremay operandway, ethay astlay ypetay isway "
+"ethay oremay ypetay.  :CONSTANT\n"
+"      ecifiesspay atthay ethay argumentway ustmay ebay away ompilecay-imetay "
+"onstantcay ofway ethay\n"
+"      ecifiedspay Isplay ypetay.  Ethay onstantcay aluesvay ofway :CONSTANT "
+"argumentsway areway\n"
+"      assedpay asway additionalway :INFO argumentsway atherray anthay asway :"
+"ARGS.\n"
+"  \n"
+"  :Anslatetray Ame*Nay\n"
+"      Isthay optionway ausescay ethay VOP emplatetay otay ebay enteredway "
+"asway anway IR2 anslatiotrayn\n"
+"      orfay ethay amednay unctionsfay.\n"
+"\n"
+"  :Olicypay {:Mallsay | :Astfay | :Afesay | :Astfay-Afesay}\n"
+"      Ecifiesspay ethay olicypay underway ichwhay isthay VOP isway ethay "
+"estbay anslationtray.\n"
+"\n"
+"  :Uardgay Ormfay\n"
+"      Ecifiesspay away Ormfay atthay isway evaluatedway inway ethay obalglay "
+"environmentway.  Ifway\n"
+"      ormfay eturnsray NIL, enthay emissionway ofway isthay VOP isway "
+"ohibitedpray evenway enwhay\n"
+"      allway otherway estrictionsray areway etmay.\n"
+"\n"
+"  :VOP-Arvay Amenay\n"
+"  :Odenay-Arvay Amenay\n"
+"      Inway ethay eneratorgay, indbay ethay ecifiedspay ariablevay otay "
+"ethay VOP orway ethay Odenay atthay\n"
+"      eneratedgay isthay VOP.\n"
+"\n"
+"  :Avesay-P {NIL | T | :Omputecay-Onlyway | :Orcefay-Otay-Tacksay}\n"
+"      Indicatesway owhay away VOP antsway ivelay egistersray avedsay.\n"
+"\n"
+"  :Ovemay-Argsway {NIL | :Ullfay-Allcay | :Ocallay-Allcay | :Nownkay-"
+"Eturnray}\n"
+"      Indicatesway ifway andway owhay ethay oremay argsway ouldshay ebay "
+"ovedmay intoway away ifferentday\n"
+"      amefray."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Emit-Template Node Block Template Args Results [Info]\n"
+"  Call the emit function for Template, linking the result in at the end of\n"
+"  Block."
+msgstr ""
+"Emitway-Emplatetay Odenay Ockblay Emplatetay Argsway Esultsray [Infoway]\n"
+"  Allcay ethay emitway unctionfay orfay Emplatetay, inkinglay ethay esultray "
+"inway atway ethay endway ofway\n"
+"  Ockblay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP Name Node Block Arg* Info* Result*\n"
+"  Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n"
+"  using Node for the source context.  The interpretation of the remaining\n"
+"  arguments depends on the number of operands of various kinds that are\n"
+"  declared in the template definition.  VOP cannot be used for templates "
+"that\n"
+"  have more-args or more-results, since the number of arguments and results "
+"is\n"
+"  indeterminate for these templates.  Use VOP* instead.\n"
+"  \n"
+"  Args and Results are the TNs that are to be referenced by the template\n"
+"  as arguments and results.  If the template has codegen-info arguments, "
+"then\n"
+"  the appropriate number of Info forms following the Arguments are used for\n"
+"  codegen info."
+msgstr ""
+"VOP Amenay Odenay Ockblay Arg*Way Info*Way Esult*Ray\n"
+"  Emitway ethay VOP (orway otherway emplatetay) Amenay atway ethay endway "
+"ofway ethay IR2-Ockblay Ockblay,\n"
+"  usingway Odenay orfay ethay ourcesay ontextcay.  Ethay interpretationway "
+"ofway ethay emainingray\n"
+"  argumentsway ependsday onway ethay umbernay ofway operandsway ofway "
+"ariousvay indskay atthay areway\n"
+"  eclaredday inway ethay emplatetay efinitionday.  VOP annotcay ebay usedway "
+"orfay emplatestay atthay\n"
+"  avehay oremay-argsway orway oremay-esultsray, incesay ethay umbernay ofway "
+"argumentsway andway esultsray isway\n"
+"  indeterminateway orfay esethay emplatestay.  Useway Op*Vay insteadway.\n"
+"  \n"
+"  Argsway andway Esultsray areway ethay Nstay atthay areway otay ebay "
+"eferencedray ybay ethay emplatetay\n"
+"  asway argumentsway andway esultsray.  Ifway ethay emplatetay ashay "
+"odegencay-infoway argumentsway, enthay\n"
+"  ethay appropriateway umbernay ofway Infoway ormsfay ollowingfay ethay "
+"Argumentsway areway usedway orfay\n"
+"  odegencay infoway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot use VOP with variable operand count templates."
+msgstr "Annotcay useway VOP ithway ariablevay operandway ountcay emplatestay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Called with ~D operands, but was expecting ~D."
+msgstr "Alledcay ithway ~D operandsway, utbay asway expectingway ~D."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n"
+"  Like VOP, but allows for emission of templates with arbitrary numbers of\n"
+"  arguments, and for emission of templates using already-created TN-Ref "
+"lists.\n"
+"\n"
+"  The Arguments and Results are TNs to be referenced as the first arguments\n"
+"  and results to the template.  More-Args and More-Results are heads of TN-"
+"Ref\n"
+"  lists that are added onto the end of the TN-Refs for the explicitly "
+"supplied\n"
+"  operand TNs.  The TN-Refs for the more operands must have the TN and Write-"
+"P\n"
+"  slots correctly initialized.\n"
+"\n"
+"  As with VOP, the Info forms are evaluated and passed as codegen info\n"
+"  arguments."
+msgstr ""
+"Op*Vay Amenay Odenay Ockblay (Arg*Way Oremay-Argsway) (Esult*Ray Oremay-"
+"Esultsray) Info*Way\n"
+"  Ikelay VOP, utbay allowsway orfay emissionway ofway emplatestay ithway "
+"arbitraryway umbersnay ofway\n"
+"  argumentsway, andway orfay emissionway ofway emplatestay usingway "
+"alreadyway-eatedcray TN-Efray istslay.\n"
+"\n"
+"  Ethay Argumentsway andway Esultsray areway Nstay otay ebay eferencedray "
+"asway ethay irstfay argumentsway\n"
+"  andway esultsray otay ethay emplatetay.  Oremay-Argsway andway Oremay-"
+"Esultsray areway eadshay ofway TN-Efray\n"
+"  istslay atthay areway addedway ontoway ethay endway ofway ethay TN-Efsray "
+"orfay ethay explicitlyway uppliedsay\n"
+"  operandway Nstay.  Ethay TN-Efsray orfay ethay oremay operandsway ustmay "
+"avehay ethay TN andway Itewray-P\n"
+"  otsslay orrectlycay initializedway.\n"
+"\n"
+"  Asway ithway VOP, ethay Infoway ormsfay areway evaluatedway andway "
+"assedpay asway odegencay infoway\n"
+"  argumentsway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed arguments."
+msgstr "Ootay anymay ixedfay argumentsway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed results."
+msgstr "Ootay anymay ixedfay esultsray."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D info args."
+msgstr "Expectedway ~D infoway argsway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n"
+"  Case off of TN's SC.  The first clause containing TN's SC is evaulated,\n"
+"  returning the values of the last form.  A clause beginning with T "
+"specifies a\n"
+"  default.  If it appears, it must be last.  If no default is specified, and "
+"no\n"
+"  clause matches, then an error is signalled."
+msgstr ""
+"SC-Asecay TN {({(SC-Ame*Nay) | SC-Amenay | T} Orm*Fay)}*\n"
+"  Asecay offway ofway TN's SC.  Ethay irstfay auseclay ontainingcay TN's SC "
+"isway evaulatedway,\n"
+"  eturningray ethay aluesvay ofway ethay astlay ormfay.  Away auseclay "
+"eginningbay ithway T ecifiespays away\n"
+"  efaultday.  Ifway itway appearsway, itway ustmay ebay astlay.  Ifway onay "
+"efaultday isway ecifiedspay, andway onay\n"
+"  auseclay atchesmay, enthay anway errorway isway ignalledsay."
+
+#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp
+#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp
+#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp
+#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp
+#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp
+#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Illegal SC-Case clause: ~S."
+msgstr "Illegalway SC-Asecay auseclay: ~S."
+
+#: target:compiler/meta-vmdef.lisp
+msgid "T case is not last in SC-Case."
+msgstr "T asecay isway otnay astlay inway SC-Asecay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Is TN SC*\n"
+"  Returns true if TNs SC is any of the named SCs, false otherwise."
+msgstr ""
+"SC-Isway TN *Scay\n"
+"  Eturnsray uetray ifway Nstay SC isway anyway ofway ethay amednay Sscay, "
+"alsefay otherwiseway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Do-IR2-Blocks (Block-Var Component [Result]) Form*\n"
+"  Iterate over the IR2 blocks in component, in emission order."
+msgstr ""
+"Oday-IR2-Ocksblay (Ockblay-Arvay Omponentcay [Esultray]) Orm*Fay\n"
+"  Iterateway overway ethay IR2 ocksblay inway omponentcay, inway emissionway "
+"orderway."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n"
+"  Iterate over all the TNs live at some point, with the live set represented "
+"by\n"
+"  a local conflicts bit-vector and the IR2-Block containing the location."
+msgstr ""
+"DO-LIVE-TNS (TN-Arvay Ivelay Ockblay [Esultray]) Orm*Fay\n"
+"  Iterateway overway allway ethay Nstay ivelay atway omesay ointpay, ithway "
+"ethay ivelay etsay epresentedray ybay\n"
+"  away ocallay onflictscay itbay-ectorvay andway ethay IR2-Ockblay "
+"ontainingcay ethay ocationlay."
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n"
+"  Iterate over all the IR2 blocks in the environment Env, in emit order."
+msgstr ""
+"DO-ENVIRONMENT-IR2-BLOCKS (Ockblay-Arvay Envway [Esultray]) Orm*Fay\n"
+"  Iterateway overway allway ethay IR2 ocksblay inway ethay environmentway "
+"Envway, inway emitway orderway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"The width of the column in which instruction-names are printed.\n"
+"  NIL means use the default.  A value of zero gives the effect of not\n"
+"  aligning the arguments at all."
+msgstr ""
+"Ethay idthway ofway ethay olumncay inway ichwhay instructionway-amesnay "
+"areway intedpray.\n"
+"  NIL eansmay useway ethay efaultday.  Away aluevay ofway erozay ivesgay "
+"ethay effectway ofway otnay\n"
+"  aligningway ethay argumentsway atway allway."
+
+#: target:compiler/disassem.lisp
+msgid "The column in which end-of-line comments for notes are started."
+msgstr ""
+"Ethay olumncay inway ichwhay endway-ofway-inelay ommentscay orfay otesnay "
+"areway tartedsay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Specify global disassembler params for C:*TARGET-BACKEND*.\n"
+"  Keyword arguments include:\n"
+"      \n"
+"  :INSTRUCTION-ALIGNMENT number\n"
+"      Minimum alignment of instructions, in bits.\n"
+"      \n"
+"  :ADDRESS-SIZE number\n"
+"      Size of a machine address, in bits.\n"
+"      \n"
+"  :OPCODE-COLUMN-WIDTH\n"
+"      Width of the column used for printing the opcode portion of the\n"
+"      instruction, or NIL to use the default."
+msgstr ""
+"Ecifyspay obalglay isassemblerday aramspay orfay C:*TARGET-BACKEND*.\n"
+"  Eywordkay argumentsway includeway:\n"
+"      \n"
+"  :INSTRUCTION-ALIGNMENT umbernay\n"
+"      Inimummay alignmentway ofway instructionsway, inway itsbay.\n"
+"      \n"
+"  :ADDRESS-SIZE umbernay\n"
+"      Izesay ofway away achinemay addressway, inway itsbay.\n"
+"      \n"
+"  :OPCODE-COLUMN-WIDTH\n"
+"      Idthway ofway ethay olumncay usedway orfay intingpray ethay opcodeway "
+"ortionpay ofway ethay\n"
+"      instructionway, orway NIL otay useway ethay efaultday."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
+"  Define a disassembler argument type NAME (which can then be referenced in\n"
+"  another argument definition using the :TYPE keyword argument).  Keyword\n"
+"  arguments are:\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction- format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-"
+"SUFFIX\n"
+"      must be done inside a prefilter.\n"
+"      \n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print an argument of\n"
+"      this type.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of an argument of this type is used as an\n"
+"      address, and if that address occurs inside the disassembled code, it "
+"is\n"
+"      replaced by a label.  If this is a function, it is called to filter "
+"the\n"
+"      value."
+msgstr ""
+"DEFINE-ARGUMENT-TYPE Amenay {Eykay Aluevay}*\n"
+"  Efineday away isassemblerday argumentway ypetay NAME (ichwhay ancay enthay "
+"ebay eferencedray inway\n"
+"  anotherway argumentway efinitionday usingway ethay :TYPE eywordkay "
+"argumentway).  Eywordkay\n"
+"  argumentsway areway:\n"
+"\n"
+"  :SIGN-EXTEND ooleanbay\n"
+"      Ifway onnay-NIL, ethay awray aluevay ofway isthay argumentway isway "
+"ignsay-extendedway.\n"
+"\n"
+"  :TYPE argway-ypetay-amenay\n"
+"      Inheritway anyway opertiespray ofway ivengay argumentway-ypetay.\n"
+"\n"
+"  :PREFILTER unctionfay\n"
+"      Away unctionfay ichwhay isway alledcay (alongway ithway allway "
+"otherway efilterspray, inway ethay\n"
+"      orderway atthay eirthay argumentsway appearway inway ethay "
+"instructionway- ormatfay) eforebay\n"
+"      anyway intingpray isway oneday, otay ilterfay ethay awray aluevay.  "
+"Anyway usesway ofway READ-SUFFIX\n"
+"      ustmay ebay oneday insideway away efilterpray.\n"
+"      \n"
+"  :PRINTER unctionfay-ingstray-orway-ectorvay\n"
+"      Away unctionfay, ingstray, orway ectorvay ichwhay isway usedway otay "
+"intpray anway argumentway ofway\n"
+"      isthay ypetay.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      Ifway onnay-NIL, ethay aluevay ofway anway argumentway ofway isthay "
+"ypetay isway usedway asway anway\n"
+"      addressway, andway ifway atthay addressway occursway insideway ethay "
+"isassembledday odecay, itway isway\n"
+"      eplacedray ybay away abellay.  Ifway isthay isway away unctionfay, "
+"itway isway alledcay otay ilterfay ethay\n"
+"      aluevay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
+"  Define an instruction format NAME for the disassembler's use.  LENGTH is\n"
+"  the length of the format in bits.\n"
+"  Possible FORMAT-KEYs:\n"
+"\n"
+"  :INCLUDE other-format-name\n"
+"      Inherit all arguments and properties of the given format.  Any\n"
+"      arguments defined in the current format definition will either modify\n"
+"      the copy of an existing argument (keeping in the same order with\n"
+"      respect to when pre-filter's are called), if it has the same name as\n"
+"      one, or be added to the end.\n"
+"  :DEFAULT-PRINTER printer-list\n"
+"      Use the given PRINTER-LIST as a format to print any instructions of\n"
+"      this format when they don't specify something else.\n"
+"\n"
+"  Each ARG-DEF defines one argument in the format, and is of the form\n"
+"    (Arg-Name {Arg-Key Value}*)\n"
+"\n"
+"  Possible ARG-KEYs (the values are evaulated unless otherwise specified):\n"
+"  \n"
+"  :FIELDS byte-spec-list\n"
+"      The argument takes values from these fields in the instruction.  If\n"
+"      the list is of length one, then the corresponding value is supplied "
+"by\n"
+"      itself; otherwise it is a list of the values.  The list may be NIL.\n"
+"  :FIELD byte-spec\n"
+"      The same as :FIELDS (list byte-spec).\n"
+"\n"
+"  :VALUE value\n"
+"      If the argument only has one field, this is the value it should have,\n"
+"      otherwise it's a list of the values of the individual fields.  This "
+"can\n"
+"      be overridden in an instruction-definition or a format definition\n"
+"      including this one by specifying another, or NIL to indicate that "
+"it's\n"
+"      variable.\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended,\n"
+"      immediately after being extracted from the instruction (before any\n"
+"      prefilters are run, for instance).  If the argument has multiple\n"
+"      fields, they are all sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of the given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction-format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-"
+"SUFFIX\n"
+"      must be done inside a prefilter.\n"
+"\n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print this argument.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of this argument is used as an address, and if\n"
+"      that address occurs inside the disassembled code, it is replaced by a\n"
+"      label.  If this is a function, it is called to filter the value."
+msgstr ""
+"DEFINE-INSTRUCTION-FORMAT (Amenay Engthlay {Ormatfay-Eykay Aluevay}*) Argway-"
+"Ef*Day\n"
+"  Efineday anway instructionway ormatfay NAME orfay ethay isassemblerday's "
+"useway.  LENGTH isway\n"
+"  ethay engthlay ofway ethay ormatfay inway itsbay.\n"
+"  Ossiblepay FORMAT-Eyskay:\n"
+"\n"
+"  :INCLUDE otherway-ormatfay-amenay\n"
+"      Inheritway allway argumentsway andway opertiespray ofway ethay ivengay "
+"ormatfay.  Anyway\n"
+"      argumentsway efinedday inway ethay urrentcay ormatfay efinitionday "
+"illway eitherway odifymay\n"
+"      ethay opycay ofway anway existingway argumentway (eepingkay inway "
+"ethay amesay orderway ithway\n"
+"      espectray otay enwhay epray-ilterfay's areway alledcay), ifway itway "
+"ashay ethay amesay amenay asway\n"
+"      oneway, orway ebay addedway otay ethay endway.\n"
+"  :DEFAULT-PRINTER interpray-istlay\n"
+"      Useway ethay ivengay PRINTER-LIST asway away ormatfay otay intpray "
+"anyway instructionsway ofway\n"
+"      isthay ormatfay enwhay eythay onday't ecifyspay omethingsay elseway.\n"
+"\n"
+"  Eachway ARG-DEF efinesday oneway argumentway inway ethay ormatfay, andway "
+"isway ofway ethay ormfay\n"
+"    (Argway-Amenay {Argway-Eykay Aluevay}*)\n"
+"\n"
+"  Ossiblepay ARG-Eyskay (ethay aluesvay areway evaulatedway unlessway "
+"otherwiseway ecifiedspay):\n"
+"  \n"
+"  :FIELDS ytebay-ecspay-istlay\n"
+"      Ethay argumentway akestay aluesvay omfray esethay ieldsfay inway ethay "
+"instructionway.  Ifway\n"
+"      ethay istlay isway ofway engthlay oneway, enthay ethay orrespondingcay "
+"aluevay isway uppliedsay ybay\n"
+"      itselfway; otherwiseway itway isway away istlay ofway ethay aluesvay.  "
+"Ethay istlay aymay ebay NIL.\n"
+"  :FIELD ytebay-ecspay\n"
+"      Ethay amesay asway :FIELDS (istlay ytebay-ecspay).\n"
+"\n"
+"  :VALUE aluevay\n"
+"      Ifway ethay argumentway onlyway ashay oneway ieldfay, isthay isway "
+"ethay aluevay itway ouldshay avehay,\n"
+"      otherwiseway itway's away istlay ofway ethay aluesvay ofway ethay "
+"individualway ieldsfay.  Isthay ancay\n"
+"      ebay overriddenway inway anway instructionway-efinitionday orway away "
+"ormatfay efinitionday\n"
+"      includingway isthay oneway ybay ecifyingspay anotherway, orway NIL "
+"otay indicateway atthay itway's\n"
+"      ariablevay.\n"
+"\n"
+"  :SIGN-EXTEND ooleanbay\n"
+"      Ifway onnay-NIL, ethay awray aluevay ofway isthay argumentway isway "
+"ignsay-extendedway,\n"
+"      immediatelyway afterway eingbay extractedway omfray ethay "
+"instructionway (eforebay anyway\n"
+"      efilterspray areway unray, orfay instanceway).  Ifway ethay "
+"argumentway ashay ultiplemay\n"
+"      ieldsfay, eythay areway allway ignsay-extendedway.\n"
+"\n"
+"  :TYPE argway-ypetay-amenay\n"
+"      Inheritway anyway opertiespray ofway ethay ivengay argumentway-"
+"ypetay.\n"
+"\n"
+"  :PREFILTER unctionfay\n"
+"      Away unctionfay ichwhay isway alledcay (alongway ithway allway "
+"otherway efilterspray, inway ethay\n"
+"      orderway atthay eirthay argumentsway appearway inway ethay "
+"instructionway-ormatfay) eforebay\n"
+"      anyway intingpray isway oneday, otay ilterfay ethay awray aluevay.  "
+"Anyway usesway ofway READ-SUFFIX\n"
+"      ustmay ebay oneday insideway away efilterpray.\n"
+"\n"
+"  :PRINTER unctionfay-ingstray-orway-ectorvay\n"
+"      Away unctionfay, ingstray, orway ectorvay ichwhay isway usedway otay "
+"intpray isthay argumentway.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      Ifway onnay-NIL, ethay aluevay ofway isthay argumentway isway usedway "
+"asway anway addressway, andway ifway\n"
+"      atthay addressway occursway insideway ethay isassembledday odecay, "
+"itway isway eplacedray ybay away\n"
+"      abellay.  Ifway isthay isway away unctionfay, itway isway alledcay "
+"otay ilterfay ethay aluevay."
+
+#: target:compiler/disassem.lisp
+msgid "~d bits is not a byte-multiple"
+msgstr "~d itsbay isway otnay away ytebay-ultiplemay"
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+msgstr ""
+"Eturnsray onnay-NIL ifway ADDRESS isway alignedway onway away SIZE ytebay "
+"oundarybay."
+
+#: target:compiler/disassem.lisp
+msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+msgstr "Eturnray ADDRESS alignedway *upward* otay away SIZE ytebay oundarybay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
+"  OLD-CONS, otherwise return (cons CAR CDR)."
+msgstr ""
+"Ifway CAR isway eqway otay ethay arcay ofway OLD-CONS andway CDR isway eqway "
+"otay ethay CDR, eturnray\n"
+"  OLD-CONS, otherwiseway eturnray (onscay CAR CDR)."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"A simple (one list arg) mapcar that avoids consing up a new list\n"
+"  as long as the results of calling FUN on the elements of LIST are\n"
+"  eq to the original."
+msgstr ""
+"Away implesay (oneway istlay argway) apcarmay atthay avoidsway onsingcay "
+"upway away ewnay istlay\n"
+"  asway onglay asway ethay esultsray ofway allingcay FUN onway ethay "
+"elementsway ofway LIST areway\n"
+"  eqway otay ethay originalway."
+
+#: target:compiler/disassem.lisp
+msgid "Can't dump functions, so function ref form must be quoted: ~s"
+msgstr ""
+"Ancay't umpday unctionsfay, osay unctionfay efray ormfay ustmay ebay "
+"otedquay: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument ~s"
+msgstr "Unknownway argumentway ~s"
+
+#: target:compiler/disassem.lisp
+msgid "~s must not have multiple values"
+msgstr "~s ustmay otnay avehay ultiplemay aluesvay"
+
+#: target:compiler/disassem.lisp
+msgid "Unknown arg-form kind ~s"
+msgstr "Unknownway argway-ormfay indkay ~s"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Cannot label a multiple-field argument ~\n"
+"\t\t\t      unless using a function: ~s"
+msgstr ""
+"Annotcay abellay away ultiplemay-ieldfay argumentway ~\n"
+"\t\t\t      unlessway usingway away unctionfay: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "Bogus!  Can't use the :printed value of an arg!"
+msgstr "Ogusbay!  Ancay't useway ethay :intedpray aluevay ofway anway argway!"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"number of constants doesn't match number of fields ~\n"
+"\t\t\t  in: (~s :constant~{ ~s~})"
+msgstr ""
+"umbernay ofway onstantscay oesnday't atchmay umbernay ofway ieldsfay ~\n"
+"\t\t\t  inway: (~s :onstantcay~{ ~s~})"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Can't compare differently sized fields: ~\n"
+"\t\t          (~s :same-as ~s)"
+msgstr ""
+"Ancay't omparecay ifferentlyday izedsay ieldsfay: ~\n"
+"\t\t          (~s :amesay-asway ~s)"
+
+#: target:compiler/disassem.lisp
+msgid "Bogus test-form: ~s"
+msgstr "Ogusbay esttay-ormfay: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
+msgstr ""
+"Eturnsray ethay irstfay onnay-eywordkay ymbolsay inway away epthday-irstfay "
+"earchsay ofway TREE."
+
+#: target:compiler/disassem.lisp
+msgid "Illegal printer: ~s"
+msgstr "Illegalway interpray: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "Unknown printer element: ~s"
+msgstr "Unknownway interpray elementway: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "First arg to :USING must be a string or #'function"
+msgstr ""
+"Irstfay argway otay :USING ustmay ebay away ingstray orway #'unctionfay"
+
+#: target:compiler/disassem.lisp
+msgid "No suitable choice found in ~s"
+msgstr "Onay uitablesay oicechay oundfay inway ~s"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a version of the disassembly-template PRINTER with compile-time\n"
+"  tests (e.g. :constant without a value), and any :CHOOSE operators "
+"resolved\n"
+"  properly for the args ARGS.  (:CHOOSE Sub*) simply returns the first Sub "
+"in\n"
+"  which every field reference refers to a valid arg."
+msgstr ""
+"Eturnsray away ersionvay ofway ethay isassemblyday-emplatetay PRINTER ithway "
+"ompilecay-imetay\n"
+"  eststay (e.g. :onstantcay ithoutway away aluevay), andway anyway :CHOOSE "
+"operatorsway esolvedray\n"
+"  operlypray orfay ethay argsway ARGS.  (:CHOOSE Ub*Say) implysay eturnsray "
+"ethay irstfay Ubsay inway\n"
+"  ichwhay everyway ieldfay eferenceray efersray otay away alidvay argway."
+
+#: target:compiler/disassem.lisp
+msgid "~&; Using cached function ~s~%"
+msgstr "~&; Usingway achedcay unctionfay ~s~%"
+
+#: target:compiler/disassem.lisp
+msgid "~&; Making new function ~s~%"
+msgstr "~&; Akingmay ewnay unctionfay ~s~%"
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument type: ~s"
+msgstr "Unknownway argumentway ypetay: ~s"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"          Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
+msgstr ""
+"~@<Inway argway ~s:  ~3i~:_~\n"
+"          Ancay't ecifyspay ieldsfay exceptway usingway DEFINE-INSTRUCTION-"
+"FORMAT.~:>"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"\t\t\t\t     Field ~s doesn't fit in an ~\n"
+"\t\t\t\t     instruction-format ~d bits wide.~:>"
+msgstr ""
+"~@<Inway argway ~s:  ~3i~:_~\n"
+"\t\t\t\t     Ieldfay ~s oesnday't itfay inway anway ~\n"
+"\t\t\t\t     instructionway-ormatfay ~d itsbay ideway.~:>"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to specify global disassembler params.  See the\n"
+"  documentation for SET-DISASSEM-PARAMS for more info."
+msgstr ""
+"Enerategay away ormfay otay ecifyspay obalglay isassemblerday aramspay.  "
+"Eesay ethay\n"
+"  ocumentationday orfay SET-DISASSEM-PARAMS orfay oremay infoway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define a disassembler argument type.  See\n"
+"  DEFINE-ARGUMENT-TYPE for more info."
+msgstr ""
+"Enerategay away ormfay otay efineday away isassemblerday argumentway "
+"ypetay.  Eesay\n"
+"  DEFINE-ARGUMENT-TYPE orfay oremay infoway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define an instruction format.  See\n"
+"  DEFINE-INSTRUCTION-FORMAT for more info."
+msgstr ""
+"Enerategay away ormfay otay efineday anway instructionway ormatfay.  Eesay\n"
+"  DEFINE-INSTRUCTION-FORMAT orfay oremay infoway."
+
+#: target:compiler/disassem.lisp
+msgid "Field ~s in arg ~s overlaps some other field"
+msgstr "Ieldfay ~s inway argway ~s overlapsway omesay otherway ieldfay"
+
+#: target:compiler/disassem.lisp
+msgid "Unknown instruction format ~s"
+msgstr "Unknownway instructionway ormatfay ~s"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
+"  GENERAL (i.e., the same instruction, but with more constraints)."
+msgstr ""
+"Eturnsray onnay-NIL ifway ethay instructionway SPECIAL isway away oremay "
+"ecificspay ersionvay ofway\n"
+"  GENERAL (i.e., ethay amesay instructionway, utbay ithway oremay "
+"onstraintscay)."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an integer corresponding to the specifivity of the instruction INST."
+msgstr ""
+"Eturnsray anway integerway orrespondingcay otay ethay ecifivityspay ofway "
+"ethay instructionway INST."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Order the list of instructions INSTS with more specific (more constant\n"
+"  bits, or same-as argument constains) ones first.  Returns the ordered list."
+msgstr ""
+"Orderway ethay istlay ofway instructionsway INSTS ithway oremay ecificspay "
+"(oremay onstantcay\n"
+"  itsbay, orway amesay-asway argumentway onstainscay) onesway irstfay.  "
+"Eturnsray ethay orderedway istlay."
+
+#: target:compiler/disassem.lisp
+msgid "Instructions either aren't related or conflict in some way:~% ~s"
+msgstr ""
+"Instructionsway eitherway arenway't elatedray orway onflictcay inway omesay "
+"ayway:~% ~s"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a list of instructions INSTS, Sees if one of these instructions is a\n"
+"  more general form of all the others, in which case they are put into its\n"
+"  specializers list, and it is returned.  Otherwise an error is signaled."
+msgstr ""
+"Ivengay away istlay ofway instructionsway INSTS, Eessay ifway oneway ofway "
+"esethay instructionsway isway away\n"
+"  oremay eneralgay ormfay ofway allway ethay othersway, inway ichwhay asecay "
+"eythay areway utpay intoway itsway\n"
+"  ecializersspay istlay, andway itway isway eturnedray.  Otherwiseway anway "
+"errorway isway ignaledsay."
+
+#: target:compiler/disassem.lisp
+msgid "Multiple specializing masters: ~s"
+msgstr "Ultiplemay ecializingspay astersmay: ~s"
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
+msgstr ""
+"Eturnsray onnay-NIL ifway allway onstantcay-itsbay inway INST atchmay CHUNK."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
+"  most specific instruction on INST's specializer list who's constraints "
+"are\n"
+"  met by CHUNK.  If none do, then INST is returned."
+msgstr ""
+"Ivengay anway instructionway objectway, INST, andway away itbay-atternpay, "
+"CHUNK, ickspay ethay\n"
+"  ostmay ecificspay instructionway onway INST's ecializerspay istlay owhay's "
+"onstraintscay areway\n"
+"  etmay ybay CHUNK.  Ifway onenay oday, enthay INST isway eturnedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the instruction object within INST-SPACE corresponding to the\n"
+"  bit-pattern CHUNK, or NIL if there isn't one."
+msgstr ""
+"Eturnsray ethay instructionway objectway ithinway INST-SPACE orrespondingcay "
+"otay ethay\n"
+"  itbay-atternpay CHUNK, orway NIL ifway erethay isnway't oneway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an instruction-space object corresponding to the list of\n"
+"  instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, "
+"only\n"
+"  bits it has set are used."
+msgstr ""
+"Eturnsray anway instructionway-acespay objectway orrespondingcay otay ethay "
+"istlay ofway\n"
+"  instructionsway INSTS.  Ifway ethay optionalway arameterpay INITIAL-MASK "
+"isway uppliedsay, onlyway\n"
+"  itsbay itway ashay etsay areway usedway."
+
+#: target:compiler/disassem.lisp
+msgid "Prints a nicely formatted version of INST-SPACE."
+msgstr "Intspray away icelynay ormattedfay ersionvay ofway INST-SPACE."
+
+#: target:compiler/disassem.lisp
+msgid "Print the inst space for the specified backend"
+msgstr "Intpray ethay instway acespay orfay ethay ecifiedspay ackendbay"
+
+#: target:compiler/disassem.lisp
+msgid "Converts a word-offset NUM to a byte-offset."
+msgstr "Onvertscay away ordway-offsetway NUM otay away ytebay-offsetway."
+
+#: target:compiler/disassem.lisp
+msgid "Converts a byte-offset NUM to a word-offset."
+msgstr "Onvertscay away ytebay-offsetway NUM otay away ordway-offsetway."
+
+#: target:compiler/disassem.lisp
+msgid "Get the value of the property called NAME in DSTATE.  Also setf'able."
+msgstr ""
+"Etgay ethay aluevay ofway ethay opertypray alledcay NAME inway DSTATE.  "
+"Alsoway etfsay'ableway."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the current instruction in DSTATE."
+msgstr ""
+"Eturnsray ethay absoluteway addressway ofway ethay urrentcay instructionway "
+"inway DSTATE."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the next instruction in DSTATE."
+msgstr ""
+"Eturnsray ethay absoluteway addressway ofway ethay extnay instructionway "
+"inway DSTATE."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Offset of FUNCTION from the start of its code-component's instruction area."
+msgstr ""
+"Offsetway ofway FUNCTION omfray ethay tartsay ofway itsway odecay-"
+"omponentcay's instructionway areaway."
+
+#: target:compiler/disassem.lisp
+msgid "Offset of FUNCTION from the start of its code-component."
+msgstr ""
+"Offsetway ofway FUNCTION omfray ethay tartsay ofway itsway odecay-"
+"omponentcay."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the length of the instruction area in CODE-COMPONENT."
+msgstr ""
+"Eturnsray ethay engthlay ofway ethay instructionway areaway inway CODE-"
+"COMPONENT."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the address of the instruction area in CODE-COMPONENT."
+msgstr ""
+"Eturnsray ethay addressway ofway ethay instructionway areaway inway CODE-"
+"COMPONENT."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first function in CODE-COMPONENT."
+msgstr "Eturnsray ethay irstfay unctionfay inway CODE-COMPONENT."
+
+#: target:compiler/disassem.lisp
+msgid "Possible ~A header word"
+msgstr "Ossiblepay ~Away eaderhay ordway"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the function-header (entry-point) pseudo-instruction at the current\n"
+"  location in DSTATE to STREAM."
+msgstr ""
+"Intpray ethay unctionfay-eaderhay (entryway-ointpay) seudopay-instructionway "
+"atway ethay urrentcay\n"
+"  ocationlay inway DSTATE otay STREAM."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Iterate through the instructions in SEGMENT, calling FUNCTION\n"
+"  for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
+msgstr ""
+"Iterateway roughthay ethay instructionsway inway SEGMENT, allingcay "
+"FUNCTION\n"
+"  orfay eachway instructionway, ithway argumentsway ofway CHUNK, STREAM, "
+"andway DSTATE."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Make an initial non-printing disassembly pass through DSTATE, noting any\n"
+"  addresses that are referenced by instructions in this segment."
+msgstr ""
+"Akemay anway initialway onnay-intingpray isassemblyday asspay roughthay "
+"DSTATE, otingnay anyway\n"
+"  addressesway atthay areway eferencedray ybay instructionsway inway isthay "
+"egmentsay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If any labels in DSTATE have been added since the last call to this\n"
+"  function, give them label-numbers, enter them in the hash-table, and make\n"
+"  sure the label list is in sorted order."
+msgstr ""
+"Ifway anyway abelslay inway DSTATE avehay eenbay addedway incesay ethay "
+"astlay allcay otay isthay\n"
+"  unctionfay, ivegay emthay abellay-umbersnay, enterway emthay inway ethay "
+"ashhay-abletay, andway akemay\n"
+"  uresay ethay abellay istlay isway inway ortedsay orderway."
+
+#: target:compiler/disassem.lisp
+msgid "Get the instruction-space from PARAMS, creating it if necessary."
+msgstr ""
+"Etgay ethay instructionway-acespay omfray PARAMS, eatingcray itway ifway "
+"ecessarynay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the current address in DSTATE to STREAM, plus any labels that\n"
+"  correspond to it, and leave the cursor in the instruction column."
+msgstr ""
+"Intpray ethay urrentcay addressway inway DSTATE otay STREAM, usplay anyway "
+"abelslay atthay\n"
+"  orrespondcay otay itway, andway eavelay ethay ursorcay inway ethay "
+"instructionway olumncay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
+"  end-of-line comments.  If there is more than one note, a separate line\n"
+"  will be used for each one."
+msgstr ""
+"Intpray away ewlinenay otay STREAM, insertingway anyway endingpay otesnay "
+"inway DSTATE asway\n"
+"  endway-ofway-inelay ommentscay.  Ifway erethay isway oremay anthay oneway "
+"otenay, away eparatesay inelay\n"
+"  illway ebay usedway orfay eachway oneway."
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+msgstr ""
+"Isassembleday NUM ytesbay otay STREAM asway implesay `BYTE' instructionsway"
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+msgstr ""
+"Isassembleday NUM achinemay-ordsway otay STREAM asway implesay `WORD' "
+"instructionsway"
+
+#: target:compiler/disassem.lisp
+msgid "Make a disassembler-state object."
+msgstr "Akemay away isassemblerday-tatesay objectway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a memory segment located at the system-area-pointer returned by\n"
+"  SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
+"  Optional keyword arguments include :VIRTUAL-LOCATION (by default the same "
+"as\n"
+"  the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache\n"
+"  object), and :HOOKS (a list of offs-hook objects)."
+msgstr ""
+"Eturnray away emorymay egmentsay ocatedlay atway ethay ystemsay-areaway-"
+"ointerpay eturnedray ybay\n"
+"  SAP-MAKER andway LENGTH ytesbay onglay inway ethay isassemday-tatesay "
+"objectway DSTATE.\n"
+"  Optionalway eywordkay argumentsway includeway :VIRTUAL-LOCATION (ybay "
+"efaultday ethay amesay asway\n"
+"  ethay addressway), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (away ourcesay-"
+"ormfay-achecay\n"
+"  objectway), andway :HOOKS (away istlay ofway offsway-ookhay objectsway)."
+
+#: target:compiler/disassem.lisp
+msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+msgstr "Odecay-eaderhay ~s: izesay: ~s, acetray-abletay-offsetway: ~s~%"
+
+#: target:compiler/disassem.lisp
+msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+msgstr "Unfay-eaderhay ~s atway offsetway ~d (ordsway): ~s~away => ~s~%"
+
+#: target:compiler/disassem.lisp
+msgid "The source file ~s no longer seems to exist"
+msgstr "Ethay ourcesay ilefay ~s onay ongerlay eemssay otay existway"
+
+#: target:compiler/disassem.lisp
+msgid "No start positions map"
+msgstr "Onay tartsay ositionspay apmay"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Source file ~s has been modified; ~@\n"
+"\t\t\t\t\t Using form offset instead of file index"
+msgstr ""
+"Ourcesay ilefay ~s ashay eenbay odifiedmay; ~@\n"
+"\t\t\t\t\t Usingway ormfay offsetway insteadway ofway ilefay indexway"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Bogus form-number in form!  The source file has probably ~@\n"
+"\t\t  been changed too much to cope with"
+msgstr ""
+"Ogusbay ormfay-umbernay inway ormfay!  Ethay ourcesay ilefay ashay "
+"obablypray ~@\n"
+"\t\t  eenbay angedchay ootay uchmay otay opecay ithway"
+
+#: target:compiler/disassem.lisp
+msgid "Return the vector of debug-variables currently associated with DSTATE."
+msgstr ""
+"Eturnray ethay ectorvay ofway ebugday-ariablesvay urrentlycay associatedway "
+"ithway DSTATE."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given the OFFSET of a location within the location-group called LG-NAME,\n"
+"  see if there's a current mapping to a source variable in DSTATE, and if "
+"so,\n"
+"  return the offset of that variable in the current debug-variable vector."
+msgstr ""
+"Ivengay ethay OFFSET ofway away ocationlay ithinway ethay ocationlay-oupgray "
+"alledcay LG-NAME,\n"
+"  eesay ifway erethay's away urrentcay appingmay otay away ourcesay "
+"ariablevay inway DSTATE, andway ifway osay,\n"
+"  eturnray ethay offsetway ofway atthay ariablevay inway ethay urrentcay "
+"ebugday-ariablevay ectorvay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a new vector which has the same contents as the old one VEC, plus\n"
+"  new cells (for a total size of NEW-LEN).  The additional elements are\n"
+"  initailized to INITIAL-ELEMENT."
+msgstr ""
+"Eturnray away ewnay ectorvay ichwhay ashay ethay amesay ontentscay asway "
+"ethay oldway oneway VEC, usplay\n"
+"  ewnay ellscay (orfay away otaltay izesay ofway NEW-LEN).  Ethay "
+"additionalway elementsway areway\n"
+"  initailizedway otay INITIAL-ELEMENT."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a STORAGE-INFO struction describing the object-to-source\n"
+"  variable mappings from DEBUG-FUNCTION."
+msgstr ""
+"Eturnsray away STORAGE-INFO uctionstray escribingday ethay objectway-otay-"
+"ourcesay\n"
+"  ariablevay appingsmay omfray DEBUG-FUNCTION."
+
+#: target:compiler/disassem.lisp
+msgid ";;; At offset ~d: ~s~%"
+msgstr ";;; Atway offsetway ~d: ~s~%"
+
+#: target:compiler/disassem.lisp
+msgid ";;; SET: ~s[~d]~%"
+msgstr ";;; SET: ~s[~d]~%"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Add hooks to track to track the source code in SEGMENT during\n"
+"  disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
+"  structure, in which case it is used to cache forms from files."
+msgstr ""
+"Addway ookshay otay acktray otay acktray ethay ourcesay odecay inway SEGMENT "
+"uringday\n"
+"  isassemblyday.  SFCACHE ancay ebay eitherway NIL orway itway ancay ebay "
+"away SOURCE-FORM-CACHE\n"
+"  ucturestray, inway ichwhay asecay itway isway usedway otay achecay ormsfay "
+"omfray ilesfay."
+
+#: target:compiler/disassem.lisp
+msgid "No-arg-parsing entry point"
+msgstr "Onay-argway-arsingpay entryway ointpay"
+
+#: target:compiler/disassem.lisp
+msgid "~s entry point"
+msgstr "~s entryway ointpay"
+
+#: target:compiler/disassem.lisp
+msgid "Return the PC of FUNCTION's header."
+msgstr "Eturnray ethay PC ofway FUNCTION's eaderhay."
+
+#: target:compiler/disassem.lisp
+msgid "If non-NIL, disassemble flets/labels too"
+msgstr "Ifway onnay-NIL, isassembleday etsflay/abelslay ootay"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for FUNCTION."
+msgstr ""
+"Eturnsray away istlay ofway ethay egmentssay ofway emorymay ontainingcay "
+"achinemay odecay\n"
+"  instructionsway orfay FUNCTION."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for the code-component CODE.  If START-OFFS and/or LENGTH is\n"
+"  supplied, only that part of the code-segment is used (but these are\n"
+"  constrained to lie within the code-segment)."
+msgstr ""
+"Eturnsray away istlay ofway ethay egmentssay ofway emorymay ontainingcay "
+"achinemay odecay\n"
+"  instructionsway orfay ethay odecay-omponentcay CODE.  Ifway START-OFFS "
+"andway/orway LENGTH isway\n"
+"  uppliedsay, onlyway atthay artpay ofway ethay odecay-egmentsay isway "
+"usedway (utbay esethay areway\n"
+"  onstrainedcay otay ielay ithinway ethay odecay-egmentsay)."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return the address of the instructions for function and its length.\n"
+"  The length is computed using a heuristic, and so may not be accurate."
+msgstr ""
+"Eturnray ethay addressway ofway ethay instructionsway orfay unctionfay "
+"andway itsway engthlay.\n"
+"  Ethay engthlay isway omputedcay usingway away euristichay, andway osay "
+"aymay otnay ebay accurateway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values:  the amount by which the last instruction in the\n"
+"  segment goes past the end of the segment, and the offset of the end of "
+"the\n"
+"  segment from the beginning of that instruction.  If all instructions fit\n"
+"  perfectly, this will return 0 and 0."
+msgstr ""
+"Eturnsray wotay aluesvay:  ethay amountway ybay ichwhay ethay astlay "
+"instructionway inway ethay\n"
+"  egmentsay oesgay astpay ethay endway ofway ethay egmentsay, andway ethay "
+"offsetway ofway ethay endway ofway ethay\n"
+"  egmentsay omfray ethay eginningbay ofway atthay instructionway.  Ifway "
+"allway instructionsway itfay\n"
+"  erfectlypay, isthay illway eturnray 0 andway 0."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Computes labels for all the memory segments in SEGLIST and adds them to\n"
+"  DSTATE.  It's important to call this function with all the segments "
+"you're\n"
+"  interested in, so it can find references from one to another."
+msgstr ""
+"Omputescay abelslay orfay allway ethay emorymay egmentssay inway SEGLIST "
+"andway addsway emthay otay\n"
+"  DSTATE.  Itway's importantway otay allcay isthay unctionfay ithway allway "
+"ethay egmentssay ouyay'eray\n"
+"  interestedway inway, osay itway ancay indfay eferencesray omfray oneway "
+"otay anotherway."
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
+msgstr ""
+"Isassembleday ethay achinemay odecay instructionsway inway SEGMENT otay "
+"STREAM."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions in each memory segment in\n"
+"  SEGMENTS in turn to STREAM."
+msgstr ""
+"Isassembleday ethay achinemay odecay instructionsway inway eachway emorymay "
+"egmentsay inway\n"
+"  SEGMENTS inway urntay otay STREAM."
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions for FUNCTION."
+msgstr "Isassembleday ethay achinemay odecay instructionsway orfay FUNCTION."
+
+#: target:compiler/disassem.lisp
+msgid "Cannot compile a lexical closure"
+msgstr "Annotcay ompilecay away exicallay osureclay"
+
+#: target:compiler/disassem.lisp
+msgid "Can't make a compiled function from ~S"
+msgstr "Ancay't akemay away ompiledcay unctionfay omfray ~S"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code associated with OBJECT, which can be a\n"
+"  function, a lambda expression, or a symbol with a function definition.  "
+"If\n"
+"  it is not already compiled, the compiler is called to produce something "
+"to\n"
+"  disassemble."
+msgstr ""
+"Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay "
+"ancay ebay away\n"
+"  unctionfay, away ambdalay expressionway, orway away ymbolsay ithway away "
+"unctionfay efinitionday.  Ifway\n"
+"  itway isway otnay alreadyway ompiledcay, ethay ompilercay isway alledcay "
+"otay oducepray omethingsay otay\n"
+"  isassembleday."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
+"  Note that if CODE-COMPONENT is NIL and this memory could move during a "
+"GC,\n"
+"  you'd better disable it around the call to this function."
+msgstr ""
+"Isassemblesday ethay ivengay areaway ofway emorymay tartingsay atway ADDRESS "
+"andway LENGTH onglay.\n"
+"  Otenay atthay ifway CODE-COMPONENT isway NIL andway isthay emorymay "
+"ouldcay ovemay uringday away GC,\n"
+"  ouyay'd etterbay isableday itway aroundway ethay allcay otay isthay "
+"unctionfay."
+
+#: target:compiler/disassem.lisp
+msgid " Address ~x not in the code component ~s."
+msgstr " Addressway ~x otnay inway ethay odecay omponentcay ~s."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  CODE-COMPONENT (this may include multiple entry points)."
+msgstr ""
+"Isassembleday ethay achinemay odecay instructionsway associatedway ithway\n"
+"  CODE-COMPONENT (isthay aymay includeway ultiplemay entryway ointspay)."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  ASSEM-SEGMENT (of type new-assem:segment)."
+msgstr ""
+"Isassembleday ethay achinemay odecay instructionsway associatedway ithway\n"
+"  ASSEM-SEGMENT (ofway ypetay ewnay-assemway:egmentsay)."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
+"symbol object that we know about."
+msgstr ""
+"Anway alistway ofway (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) orfay "
+"otsslay inway away\n"
+"ymbolsay objectway atthay eway nowkay aboutway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given ADDRESS, try and figure out if which slot of which symbol is being\n"
+"  refered to.  Of course we can just give up, so it's not a big deal...\n"
+"  Returns two values, the symbol and the name of the access function of the\n"
+"  slot."
+msgstr ""
+"Ivengay ADDRESS, ytray andway igurefay outway ifway ichwhay otslay ofway "
+"ichwhay ymbolsay isway eingbay\n"
+"  eferedray otay.  Ofway oursecay eway ancay ustjay ivegay upway, osay "
+"itway's otnay away igbay ealday...\n"
+"  Eturnsray wotay aluesvay, ethay ymbolsay andway ethay amenay ofway ethay "
+"accessway unctionfay ofway ethay\n"
+"  otslay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
+"  symbol is being refered to.  Of course we can just give up, so it's not a "
+"big\n"
+"  deal...  Returns two values, the symbol and the access function."
+msgstr ""
+"Ivengay away BYTE-OFFSET omfray NIL, ytray andway igurefay outway ifway "
+"ichwhay otslay ofway ichwhay\n"
+"  ymbolsay isway eingbay eferedray otay.  Ofway oursecay eway ancay ustjay "
+"ivegay upway, osay itway's otnay away igbay\n"
+"  ealday...  Eturnsray wotay aluesvay, ethay ymbolsay andway ethay accessway "
+"unctionfay."
+
+#: target:compiler/disassem.lisp
+msgid "Returns the lisp object located BYTE-OFFSET from NIL."
+msgstr "Eturnsray ethay isplay objectway ocatedlay BYTE-OFFSET omfray NIL."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
+"  area of the code-object in the current segment and T, or NIL and NIL if\n"
+"  there is no code-object in the current segment."
+msgstr ""
+"Eturnsray wotay aluesvay; ethay isplay-objectway ocatedlay atway BYTE-OFFSET "
+"inway ethay onstantcay\n"
+"  areaway ofway ethay odecay-objectway inway ethay urrentcay egmentsay "
+"andway T, orway NIL andway NIL ifway\n"
+"  erethay isway onay odecay-objectway inway ethay urrentcay egmentsay."
+
+#: target:compiler/disassem.lisp
+msgid "Build an address-name hash-table from the name-address hash"
+msgstr ""
+"Uildbay anway addressway-amenay ashhay-abletay omfray ethay amenay-"
+"addressway ashhay"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the name of the primitive lisp assembler routine or foreign\n"
+"  symbol located at ADDRESS, or NIL if there isn't one."
+msgstr ""
+"Eturnsray ethay amenay ofway ethay imitivepray isplay assemblerway outineray "
+"orway oreignfay\n"
+"  ymbolsay ocatedlay atway ADDRESS, orway NIL ifway erethay isnway't oneway."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store NOTE (which can be either a string or a function with a single\n"
+"  stream argument) to be printed as an end-of-line comment after the "
+"current\n"
+"  instruction is disassembled."
+msgstr ""
+"Toresay NOTE (ichwhay ancay ebay eitherway away ingstray orway away "
+"unctionfay ithway away inglesay\n"
+"  eamstray argumentway) otay ebay intedpray asway anway endway-ofway-inelay "
+"ommentcay afterway ethay urrentcay\n"
+"  instructionway isway isassembledday."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+"Toresay away otenay aboutway ethay isplay onstantcay ocatedlay BYTE-OFFSET "
+"ytesbay omfray ethay\n"
+"  urrentcay odecay-omponentcay, otay ebay intedpray asway anway endway-ofway-"
+"inelay ommentcay afterway ethay\n"
+"  urrentcay instructionway isway isassembledday."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located at ADDR in the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+"Toresay away otenay aboutway ethay isplay onstantcay ocatedlay atway ADDR "
+"inway ethay\n"
+"  urrentcay odecay-omponentcay, otay ebay intedpray asway anway endway-ofway-"
+"inelay ommentcay afterway ethay\n"
+"  urrentcay instructionway isway isassembledday."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid slot in a symbol, store a note describing which symbol and "
+"slot,\n"
+"  to be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+"Ifway ethay emorymay addressway ocatedlay NIL-BYTE-OFFSET ytesbay omfray "
+"ethay onstantcay NIL\n"
+"  isway away alidvay otslay inway away ymbolsay, toresay away otenay "
+"escribingday ichwhay ymbolsay andway otslay,\n"
+"  otay ebay intedpray asway anway endway-ofway-inelay ommentcay afterway "
+"ethay urrentcay instructionway isway\n"
+"  isassembledday.  Eturnsray onnay-NIL iffway away otenay asway ecordedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid lisp object, store a note describing which symbol and slot, to\n"
+"  be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+"Ifway ethay emorymay addressway ocatedlay NIL-BYTE-OFFSET ytesbay omfray "
+"ethay onstantcay NIL\n"
+"  isway away alidvay isplay objectway, toresay away otenay escribingday "
+"ichwhay ymbolsay andway otslay, otay\n"
+"  ebay intedpray asway anway endway-ofway-inelay ommentcay afterway ethay "
+"urrentcay instructionway isway\n"
+"  isassembledday.  Eturnsray onnay-NIL iffway away otenay asway ecordedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If ADDRESS is the address of a primitive assembler routine or\n"
+"  foreign symbol, store a note describing which one, to be printed as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded.  If NOTE-ADDRESS-P is non-NIL, a\n"
+"  note of the address is also made."
+msgstr ""
+"Ifway ADDRESS isway ethay addressway ofway away imitivepray assemblerway "
+"outineray orway\n"
+"  oreignfay ymbolsay, toresay away otenay escribingday ichwhay oneway, otay "
+"ebay intedpray asway\n"
+"  anway endway-ofway-inelay ommentcay afterway ethay urrentcay "
+"instructionway isway isassembledday.\n"
+"  Eturnsray onnay-NIL iffway away otenay asway ecordedray.  Ifway NOTE-"
+"ADDRESS-P isway onnay-NIL, away\n"
+"  otenay ofway ethay addressway isway alsoway ademay."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
+"  describing which one, to be printed as an end-of-line comment after\n"
+"  the current instruction is disassembled.  Returns non-NIL iff a note\n"
+"  was recorded."
+msgstr ""
+"Ifway NIL-BYTE-OFFSET isway ethay offsetway ofway taticsay unctionfay, "
+"toresay away otenay\n"
+"  escribingday ichwhay oneway, otay ebay intedpray asway anway endway-ofway-"
+"inelay ommentcay afterway\n"
+"  ethay urrentcay instructionway isway isassembledday.  Eturnsray onnay-NIL "
+"iffway away otenay\n"
+"  asway ecordedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
+"  source variable, make a note of the source-variable name, to be printed "
+"as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded."
+msgstr ""
+"Ifway erethay's away alidvay appingmay omfray OFFSET inway ethay toragesay "
+"assclay SC-NAME otay away\n"
+"  ourcesay ariablevay, akemay away otenay ofway ethay ourcesay-ariablevay "
+"amenay, otay ebay intedpray asway\n"
+"  anway endway-ofway-inelay ommentcay afterway ethay urrentcay "
+"instructionway isway isassembledday.\n"
+"  Eturnsray onnay-NIL iffway away otenay asway ecordedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
+"  to a source variable, make a note equating ASSOC-WITH with the\n"
+"  source-variable name, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled.  Returns non-NIL iff a note was\n"
+"  recorded."
+msgstr ""
+"Ifway erethay's away alidvay appingmay omfray OFFSET inway ethay toragesay-"
+"asebay alledcay SB-NAME\n"
+"  otay away ourcesay ariablevay, akemay away otenay equatingway ASSOC-WITH "
+"ithway ethay\n"
+"  ourcesay-ariablevay amenay, otay ebay intedpray asway anway endway-ofway-"
+"inelay ommentcay afterway ethay\n"
+"  urrentcay instructionway isway isassembledday.  Eturnsray onnay-NIL iffway "
+"away otenay asway\n"
+"  ecordedray."
+
+#: target:compiler/disassem.lisp
+msgid ""
+"When called from an error break instruction's :DISASSEM-CONTROL (or\n"
+"  :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
+"  arguments to the break.\n"
+"\n"
+"  ERROR-PARSE-FUN should be a function that accepts:\n"
+"    1) a SYSTEM-AREA-POINTER\n"
+"    2) a BYTE-OFFSET from the SAP to begin at\n"
+"    3) optionally, LENGTH-ONLY, which if non-NIL, means to only return\n"
+"       the byte length of the arguments (to avoid unnecessary consing)\n"
+"  It should read information from the SAP starting at BYTE-OFFSET, and "
+"return\n"
+"  four values:\n"
+"    1) the error number\n"
+"    2) the total length, in bytes, of the information\n"
+"    3) a list of SC-OFFSETs of the locations of the error parameters\n"
+"    4) a list of the length (as read from the SAP), in bytes, of each of "
+"the\n"
+"       return-values."
+msgstr ""
+"Enwhay alledcay omfray anway errorway eakbray instructionway's :DISASSEM-"
+"CONTROL (orway\n"
+"  :DISASSEM-PRINTER) unctionfay, illway orrectlycay ealday ithway intingpray "
+"ethay\n"
+"  argumentsway otay ethay eakbray.\n"
+"\n"
+"  ERROR-PARSE-FUN ouldshay ebay away unctionfay atthay acceptsway:\n"
+"    1) away SYSTEM-AREA-POINTER\n"
+"    2) away BYTE-OFFSET omfray ethay SAP otay eginbay atway\n"
+"    3) optionallyway, LENGTH-ONLY, ichwhay ifway onnay-NIL, eansmay otay "
+"onlyway eturnray\n"
+"       ethay ytebay engthlay ofway ethay argumentsway (otay avoidway "
+"unnecessaryway onsingcay)\n"
+"  Itway ouldshay eadray informationway omfray ethay SAP tartingsay atway "
+"BYTE-OFFSET, andway eturnray\n"
+"  ourfay aluesvay:\n"
+"    1) ethay errorway umbernay\n"
+"    2) ethay otaltay engthlay, inway ytesbay, ofway ethay informationway\n"
+"    3) away istlay ofway SC-Offsetsway ofway ethay ocationslay ofway ethay "
+"errorway arameterspay\n"
+"    4) away istlay ofway ethay engthlay (asway eadray omfray ethay SAP), "
+"inway ytesbay, ofway eachway ofway ethay\n"
+"       eturnray-aluesvay."
+
+#: target:compiler/new-assem.lisp
+msgid "Set up the assembler."
+msgstr "Etsay upway ethay assemblerway."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Execute BODY (as a progn) without scheduling any of the instructions\n"
+"   generated inside it.  DO NOT throw or return-from out of it."
+msgstr ""
+"Executeway BODY (asway away ognpray) ithoutway edulingschay anyway ofway "
+"ethay instructionsway\n"
+"   eneratedgay insideway itway.  DO NOT rowthay orway eturnray-omfray outway "
+"ofway itway."
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S reads ~S[~D for ~D]~%"
+msgstr "~&~S eadsray ~S[~D orfay ~D]~%"
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S writes ~S[~D for ~D]~%"
+msgstr "~&~S iteswray ~S[~D orfay ~D]~%"
+
+#: target:compiler/new-assem.lisp
+msgid "~&Queuing ~S~%"
+msgstr "~&Euingquay ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "  reads ~S~%  writes ~S~%"
+msgstr "  eadsray ~S~%  iteswray ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "~&Scheduling pending instructions...~%"
+msgstr "~&Edulingschay endingpay instructionsway...~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Flushing ~S~%"
+msgstr "Ushingflay ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Queued branches: ~S~%"
+msgstr "Euedquay anchesbray: ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Initially emittable: ~S~%"
+msgstr "Initiallyway emittableway: ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Initially delayed: ~S~%"
+msgstr "Initiallyway elayedday: ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Filling branch delay slot with ~S~%"
+msgstr "Illingfay anchbray elayday otslay ithway ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting ~S~%"
+msgstr "Emittingway ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting a NOP.~%"
+msgstr "Emittingway away NOP.~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Now emittable: ~S~%"
+msgstr "Ownay emittableway: ~S~%"
+
+#: target:compiler/new-assem.lisp
+msgid "Emit BYTE to SEGMENT."
+msgstr "Emitway BYTE otay SEGMENT."
+
+#: target:compiler/new-assem.lisp
+msgid "Output AMOUNT zeros (in bytes) to SEGMENT."
+msgstr "Outputway AMOUNT eroszay (inway ytesbay) otay SEGMENT."
+
+#: target:compiler/new-assem.lisp
+msgid "Attempt to emit ~S for the second time."
+msgstr "Attemptway otay emitway ~S orfay ethay econdsay imetay."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream has to be back-patched when label "
+"positions\n"
+"   are finally known.  SIZE bytes are reserved in SEGMENT, and function "
+"will\n"
+"   be called with two arguments: the segment and the position.  The "
+"function\n"
+"   should look at the position and the position of any labels it wants to\n"
+"   and emit the correct sequence.  (And it better be the same size as "
+"SIZE).\n"
+"   SIZE can be zero, which is useful if you just want to find out where "
+"things\n"
+"   ended up."
+msgstr ""
+"Otenay atthay ethay instructionway eamstray ashay otay ebay ackbay-atchedpay "
+"enwhay abellay ositionspay\n"
+"   areway inallyfay nownkay.  SIZE ytesbay areway eservedray inway SEGMENT, "
+"andway unctionfay illway\n"
+"   ebay alledcay ithway wotay argumentsway: ethay egmentsay andway ethay "
+"ositionpay.  Ethay unctionfay\n"
+"   ouldshay ooklay atway ethay ositionpay andway ethay ositionpay ofway "
+"anyway abelslay itway antsway otay\n"
+"   andway emitway ethay orrectcay equencesay.  (Andway itway etterbay ebay "
+"ethay amesay izesay asway SIZE).\n"
+"   SIZE ancay ebay erozay, ichwhay isway usefulway ifway ouyay ustjay antway "
+"otay indfay outway erewhay ingsthay\n"
+"   endedway upway."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream here depends on the actual positions of\n"
+"   various labels, so can't be output until label positions are known.  "
+"Space\n"
+"   is made in SEGMENT for at least SIZE bytes.  When all output has been\n"
+"   generated, the MAYBE-SHRINK functions for all choosers are called with\n"
+"   three arguments: the segment, the position, and a magic value.  The "
+"MAYBE-\n"
+"   SHRINK decides if it can use a shorter sequence, and if so, emits that\n"
+"   sequence to the segment and returns T.  If it can't do better than the\n"
+"   worst case, it should return NIL (without emitting anything).  When "
+"calling\n"
+"   LABEL-POSITION, it should pass it the position and the magic-value it "
+"was\n"
+"   passed so that LABEL-POSITION can return the correct result.  If the "
+"chooser\n"
+"   never decides to use a shorter sequence, the WORST-CASE-FUN will be "
+"called,\n"
+"   just like a BACK-PATCH.  (See EMIT-BACK-PATCH.)"
+msgstr ""
+"Otenay atthay ethay instructionway eamstray erehay ependsday onway ethay "
+"actualway ositionspay ofway\n"
+"   ariousvay abelslay, osay ancay't ebay outputway untilway abellay "
+"ositionspay areway nownkay.  Acespay\n"
+"   isway ademay inway SEGMENT orfay atway eastlay SIZE ytesbay.  Enwhay "
+"allway outputway ashay eenbay\n"
+"   eneratedgay, ethay MAYBE-SHRINK unctionsfay orfay allway ooserschay "
+"areway alledcay ithway\n"
+"   reethay argumentsway: ethay egmentsay, ethay ositionpay, andway away "
+"agicmay aluevay.  Ethay MAYBE-\n"
+"   SHRINK ecidesday ifway itway ancay useway away ortershay equencesay, "
+"andway ifway osay, emitsway atthay\n"
+"   equencesay otay ethay egmentsay andway eturnsray T.  Ifway itway ancay't "
+"oday etterbay anthay ethay\n"
+"   orstway asecay, itway ouldshay eturnray NIL (ithoutway emittingway "
+"anythingway).  Enwhay allingcay\n"
+"   LABEL-POSITION, itway ouldshay asspay itway ethay ositionpay andway ethay "
+"agicmay-aluevay itway asway\n"
+"   assedpay osay atthay LABEL-POSITION ancay eturnray ethay orrectcay "
+"esultray.  Ifway ethay ooserchay\n"
+"   evernay ecidesday otay useway away ortershay equencesay, ethay WORST-CASE-"
+"FUN illway ebay alledcay,\n"
+"   ustjay ikelay away BACK-PATCH.  (Eesay EMIT-BACK-PATCH.)"
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's max was ~D"
+msgstr "~S emittedway ~D ytesbay, utbay aimedclay itway's axmay asway ~D"
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"~S shrunk by ~D bytes, but claimed that it ~\n"
+"\t\t\t    preserve ~D bits of alignment."
+msgstr ""
+"~S runkshay ybay ~D ytesbay, utbay aimedclay atthay itway ~\n"
+"\t\t\t    eservepray ~D itsbay ofway alignmentway."
+
+#: target:compiler/new-assem.lisp
+msgid "Chooser ~S passed, but not before emitting ~D bytes."
+msgstr "Ooserchay ~S assedpay, utbay otnay eforebay emittingway ~D ytesbay."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Alignment ~S needs more space now?  It was ~D, ~\n"
+"\t\t\t    and is ~D now."
+msgstr ""
+"Alignmentway ~S eedsnay oremay acespay ownay?  Itway asway ~D, ~\n"
+"\t\t\t    andway isway ~D ownay."
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's was ~D"
+msgstr "~S emittedway ~D ytesbay, utbay aimedclay itway's asway ~D"
+
+#: target:compiler/new-assem.lisp
+msgid "Execute BODY (as a progn) with SEGMENT as the current segment."
+msgstr ""
+"Executeway BODY (asway away ognpray) ithway SEGMENT asway ethay urrentcay "
+"egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid "Duplicate nested labels: ~S"
+msgstr "Uplicateday estednay abelslay: ~S"
+
+#: target:compiler/new-assem.lisp
+msgid "Emit the specified instruction to the current segment."
+msgstr ""
+"Emitway ethay ecifiedspay instructionway otay ethay urrentcay egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid "Unknown instruction: ~S"
+msgstr "Unknownway instructionway: ~S"
+
+#: target:compiler/new-assem.lisp
+msgid "Emit LABEL at this location in the current segment."
+msgstr "Emitway LABEL atway isthay ocationlay inway ethay urrentcay egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid "Emit an alignment restriction to the current segment."
+msgstr ""
+"Emitway anway alignmentway estrictionray otay ethay urrentcay egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Return the current position for LABEL.  Chooser maybe-shrink functions\n"
+"   should supply IF-AFTER and DELTA to assure correct results."
+msgstr ""
+"Eturnray ethay urrentcay ositionpay orfay LABEL.  Ooserchay aybemay-rinkshay "
+"unctionsfay\n"
+"   ouldshay upplysay IF-AFTER andway DELTA otay assureway orrectcay "
+"esultsray."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT\n"
+"   for anything after this."
+msgstr ""
+"Appendway OTHER-SEGMENT otay ethay endway ofway SEGMENT.  Onday't useway "
+"OTHER-SEGMENT\n"
+"   orfay anythingway afterway isthay."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Does any final processing of SEGMENT and returns the total number of bytes\n"
+"   covered by this segment."
+msgstr ""
+"Oesday anyway inalfay ocessingpray ofway SEGMENT andway eturnsray ethay "
+"otaltay umbernay ofway ytesbay\n"
+"   overedcay ybay isthay egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called\n"
+"   zero or more times with two arguments: a SAP and a number of bytes."
+msgstr ""
+"Allcay FUNCTION onway allway ethay outputway accumulatedway inway SEGMENT.  "
+"FUNCTION isway alledcay\n"
+"   erozay orway oremay imestay ithway wotay argumentsway: away SAP andway "
+"away umbernay ofway ytesbay."
+
+#: target:compiler/new-assem.lisp
+msgid "Releases any output buffers held on to by segment."
+msgstr ""
+"Eleasesray anyway outputway uffersbay eldhay onway otay ybay egmentsay."
+
+#: target:compiler/new-assem.lisp
+msgid "~D isn't an even multiple of ~D"
+msgstr "~D isnway't anway evenway ultiplemay ofway ~D"
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Byte spec ~S either overlaps another byte spec, or ~\n"
+"\t\t    extends past the end."
+msgstr ""
+"Ytebay ecspay ~S eitherway overlapsway anotherway ytebay ecspay, orway ~\n"
+"\t\t    extendsway astpay ethay endway."
+
+#: target:compiler/new-assem.lisp
+msgid "There are holes."
+msgstr "Erethay areway oleshay."
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify one emitter per instruction."
+msgstr "Ancay onlyway ecifyspay oneway emitterway erpay instructionway."
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify delay once per instruction."
+msgstr "Ancay onlyway ecifyspay elayday onceway erpay instructionway."
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify :vop-var once."
+msgstr "Ancay onlyway ecifyspay :opvay-arvay onceway."
+
+#: target:compiler/new-assem.lisp
+msgid "You can't use INST without an ASSEMBLE inside emitters."
+msgstr ""
+"Ouyay ancay't useway INST ithoutway anway ASSEMBLE insideway emittersway."
+
+#: target:compiler/alloc.lisp
+msgid ""
+"defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
+"                   (deinit-form*)\n"
+"\t\t   (reinit-form*))}*"
+msgstr ""
+"efallocatorsday {((amenay ambdalay-istlay [ealray-ambdalay-istlay]) readthay-"
+"otslay\n"
+"                   (einitday-orm*fay)\n"
+"\t\t   (einitray-orm*fay))}*"
+
+#: target:compiler/alloc.lisp
+msgid "~S already deallocated!"
+msgstr "~S alreadyway eallocatedday!"
+
+#: target:compiler/knownfun.lisp
+msgid "optimize"
+msgstr "optimizeway"
+
+#: target:compiler/knownfun.lisp
+msgid "~S is not a known function."
+msgstr "~S isway otnay away nownkay unctionfay."
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Block-Compile argument to COMPILE-FILE."
+msgstr ""
+"Ethay efaultday aluevay orfay ethay :Ockblay-Ompilecay argumentway otay "
+"COMPILE-FILE."
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Byte-Compile argument to COMPILE-FILE."
+msgstr ""
+"Ethay efaultday aluevay orfay ethay :Ytebay-Ompilecay argumentway otay "
+"COMPILE-FILE."
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-"
+"level\n"
+"   forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE\n"
+"   (the default.)  When true, we decide to byte-compile."
+msgstr ""
+"Imilarsay otay *BYTE-COMPILE-DEFAULT*, utbay ontrolscay ethay ompilationcay "
+"ofway optay-evellay\n"
+"   ormsfay (evaluatedway atway oadlay-imetay) enwhay ethay :BYTE-COMPILE "
+"argumentway isway :MAYBE\n"
+"   (ethay efaultday.)  Enwhay uetray, eway ecideday otay ytebay-ompilecay."
+
+#: target:compiler/main.lisp
+msgid "Whether loop analysis should be done or not."
+msgstr "Etherwhay ooplay analysisway ouldshay ebay oneday orway otnay."
+
+#: target:compiler/main.lisp
+msgid "Whether the compiler should record cross-reference information."
+msgstr ""
+"Etherwhay ethay ompilercay ouldshay ecordray osscray-eferenceray "
+"informationway."
+
+#: target:compiler/main.lisp
+msgid "The default for the :VERBOSE argument to COMPILE-FILE."
+msgstr "Ethay efaultday orfay ethay :VERBOSE argumentway otay COMPILE-FILE."
+
+#: target:compiler/main.lisp
+msgid "The default for the :PRINT argument to COMPILE-FILE."
+msgstr "Ethay efaultday orfay ethay :PRINT argumentway otay COMPILE-FILE."
+
+#: target:compiler/main.lisp
+msgid "The default for the :PROGRESS argument to COMPILE-FILE."
+msgstr "Ethay efaultday orfay ethay :PROGRESS argumentway otay COMPILE-FILE."
+
+#: target:compiler/main.lisp
+msgid ""
+"The defaulted pathname of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+"Ethay efaultedday athnamepay ofway ethay ilefay urrentlycay eingbay "
+"ompiledcay, orway NIL ifway otnay\n"
+"  ompilingcay."
+
+#: target:compiler/main.lisp
+msgid ""
+"The TRUENAME of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+"Ethay TRUENAME ofway ethay ilefay urrentlycay eingbay ompiledcay, orway NIL "
+"ifway otnay\n"
+"  ompilingcay."
+
+#: target:compiler/main.lisp
+msgid ""
+"The user supplied source-info for the current compilation.  \n"
+"This is the :source-info argument to COMPILE-FROM-STREAM and will be\n"
+"stored in the INFO slot of the DEBUG-SOURCE in code components and \n"
+"in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs."
+msgstr ""
+"Ethay userway uppliedsay ourcesay-infoway orfay ethay urrentcay "
+"ompilationcay.  \n"
+"Isthay isway ethay :ourcesay-infoway argumentway otay COMPILE-FROM-STREAM "
+"andway illway ebay\n"
+"toredsay inway ethay INFO otslay ofway ethay DEBUG-SOURCE inway odecay "
+"omponentscay andway \n"
+"inway ethay userway USER-INFO otslay ofway STREAM-SOURCE-Ocationslay."
+
+#: target:compiler/main.lisp
+msgid ""
+"The upper limit on the number of times that we will consecutively do IR1\n"
+"  optimization that doesn't introduce any new code.  A finite limit is\n"
+"  necessary, since type inference may take arbitrarily long to converge."
+msgstr ""
+"Ethay upperway imitlay onway ethay umbernay ofway imestay atthay eway illway "
+"onsecutivelycay oday IR1\n"
+"  optimizationway atthay oesnday't introduceway anyway ewnay odecay.  Away "
+"initefay imitlay isway\n"
+"  ecessarynay, incesay ypetay inferenceway aymay aketay arbitrarilyway "
+"onglay otay onvergecay."
+
+#: target:compiler/main.lisp
+msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded."
+msgstr "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceededway."
+
+#: target:compiler/main.lisp
+msgid "~|~%Disassembly of code for ~S~2%"
+msgstr "~|~%Isassemblyday ofway odecay orfay ~S~2%"
+
+#: target:compiler/main.lisp
+msgid "~:[~;Byte ~]Compiling ~A: "
+msgstr "~:[~;Ytebay ~]Ompilingcay ~Away: "
+
+#: target:compiler/main.lisp
+msgid "Undefined ~(~A~) ~S~@[ ~A~]"
+msgstr "Undefinedway ~(~Away~) ~S~@[ ~Away~]"
+
+#: target:compiler/main.lisp
+msgid "~D more use~:P of undefined ~(~A~) ~S."
+msgstr "~D oremay useway~:P ofway undefinedway ~(~Away~) ~S."
+
+#: target:compiler/main.lisp
+msgid ""
+"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n"
+"\t\t~%  ~{~<~%  ~1:;~S~>~^ ~}"
+msgstr ""
+"~:[Isthay ~(~Away~) isway~;Esethay ~(~Away~)s areway~] undefinedway:~\n"
+"\t\t~%  ~{~<~%  ~1:;~S~>~^ ~}"
+
+#: target:compiler/main.lisp
+msgid ""
+"~2&; Compilation unit ~:[finished~;aborted~].~\n"
+"      ~[~:;~:*~&;   ~D fatal error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D warning~:P~]~\n"
+"      ~[~:;~:*~&;   ~D note~:P~]~2%"
+msgstr ""
+"~2&; Ompilationcay unitway ~:[inishedfay~;abortedway~].~\n"
+"      ~[~:;~:*~&;   ~D atalfay errorway~:P~]~\n"
+"      ~[~:;~:*~&;   ~D errorway~:P~]~\n"
+"      ~[~:;~:*~&;   ~D arningway~:P~]~\n"
+"      ~[~:;~:*~&;   ~D otenay~:P~]~2%"
+
+#: target:compiler/main.lisp
+msgid "~|~%;;;; Component: ~S~2%"
+msgstr "~|~%;;;; Omponentcay: ~S~2%"
+
+#: target:compiler/main.lisp
+msgid "~%~|~%;;;; IR2 component: ~S~2%"
+msgstr "~%~|~%;;;; IR2 omponentcay: ~S~2%"
+
+#: target:compiler/main.lisp
+msgid "Entries:~%"
+msgstr "Entriesway:~%"
+
+#: target:compiler/main.lisp
+msgid "~4TL~D: ~S~:[~; [Closure]~]~%"
+msgstr "~4TL~D: ~S~:[~; [Osureclay]~]~%"
+
+#: target:compiler/main.lisp
+msgid "Read error at ~D:~% \"~A/\\~A\"~%~A"
+msgstr "Eadray errorway atway ~D:~% \"~Away/\\~Away\"~%~Away"
+
+#: target:compiler/main.lisp
+msgid "Unable to recover from read error."
+msgstr "Unableway otay ecoverray omfray eadray errorway."
+
+#: target:compiler/main.lisp
+msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
+msgstr ""
+"Eadray errorway inway ormfay tartingsay atway ~D:~%~@[ \"~Away\"~%~]~Away"
+
+#: target:compiler/main.lisp
+msgid "Skip this form."
+msgstr "Kipsay isthay ormfay."
+
+#: target:compiler/main.lisp
+msgid "Attempt to load a file having a compile-time read error."
+msgstr ""
+"Attemptway otay oadlay away ilefay avinghay away ompilecay-imetay eadray "
+"errorway."
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "(during macroexpansion)~%~A"
+msgstr "(uringday acroexpansionmay)~%~Away"
+
+#: target:compiler/main.lisp
+msgid "Bad FILE-COMMENT form: ~S."
+msgstr "Adbay FILE-COMMENT ormfay: ~S."
+
+#: target:compiler/main.lisp
+msgid "Ignoring extra file comment:~%  ~S."
+msgstr "Ignoringway extraway ilefay ommentcay:~%  ~S."
+
+#: target:compiler/main.lisp
+msgid "~&; Comment: ~A~2&"
+msgstr "~&; Ommentcay: ~Away~2&"
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "Execution of a form compiled with errors:~% ~S"
+msgstr "Executionway ofway away ormfay ompiledcay ithway errorsway:~% ~S"
+
+#: target:compiler/main.lisp
+msgid "EVAL-WHEN form is too short: ~S."
+msgstr "EVAL-WHEN ormfay isway ootay ortshay: ~S."
+
+#: target:compiler/main.lisp
+msgid "MACROLET form is too short: ~S."
+msgstr "MACROLET ormfay isway ootay ortshay: ~S."
+
+#: target:compiler/main.lisp
+msgid "Load Time Value of ~S"
+msgstr "Oadlay Imetay Aluevay ofway ~S"
+
+#: target:compiler/main.lisp
+msgid "(while making load form for ~S)~%~A"
+msgstr "(ilewhay akingmay oadlay ormfay orfay ~S)~%~Away"
+
+#: target:compiler/main.lisp
+msgid "Creation Form for ~A"
+msgstr "Eationcray Ormfay orfay ~Away"
+
+#: target:compiler/main.lisp
+msgid "Circular references in creation form for ~S"
+msgstr "Ircularcay eferencesray inway eationcray ormfay orfay ~S"
+
+#: target:compiler/main.lisp
+msgid "Init Form~:[~;s~] for ~{~A~^, ~}"
+msgstr "Initway Ormfay~:[~;s~] orfay ~{~Away~^, ~}"
+
+#: target:compiler/main.lisp
+msgid "~2&Fatal error, aborting compilation...~%"
+msgstr "~2&Atalfay errorway, abortingway ompilationcay...~%"
+
+#: target:compiler/main.lisp
+msgid "Can't compile with no source files."
+msgstr "Ancay't ompilecay ithway onay ourcesay ilesfay."
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to COMPILE-FILE, but compiles text from Stream into the current "
+"lisp\n"
+"  environment.  Stream is closed when compilation is complete.  These "
+"keywords\n"
+"  are supported:\n"
+"\n"
+"  :Error-Stream\n"
+"      The stream to write compiler error output to (default *ERROR-"
+"OUTPUT*.)\n"
+"  :Trace-Stream\n"
+"      The stream that we write compiler trace output to, or NIL (the "
+"default)\n"
+"      to inhibit trace output.\n"
+"  :Block-Compile {T, NIL, :SPECIFIED}\n"
+"        If true, then function names may be resolved at compile time.\n"
+"  :Source-Info\n"
+"        Some object to be placed in the DEBUG-SOURCE-INFO.\n"
+"  :Byte-Compile {T, NIL, :MAYBE}\n"
+"        If true, then may compile to interpreted byte code."
+msgstr ""
+"Imilarsay otay COMPILE-FILE, utbay ompilescay exttay omfray Eamstray intoway "
+"ethay urrentcay isplay\n"
+"  environmentway.  Eamstray isway osedclay enwhay ompilationcay isway "
+"ompletecay.  Esethay eywordskay\n"
+"  areway upportedsay:\n"
+"\n"
+"  :Errorway-Eamstray\n"
+"      Ethay eamstray otay itewray ompilercay errorway outputway otay "
+"(efaultday *ERROR-OUTPUT*.)\n"
+"  :Acetray-Eamstray\n"
+"      Ethay eamstray atthay eway itewray ompilercay acetray outputway otay, "
+"orway NIL (ethay efaultday)\n"
+"      otay inhibitway acetray outputway.\n"
+"  :Ockblay-Ompilecay {T, NIL, :SPECIFIED}\n"
+"        Ifway uetray, enthay unctionfay amesnay aymay ebay esolvedray atway "
+"ompilecay imetay.\n"
+"  :Ourcesay-Infoway\n"
+"        Omesay objectway otay ebay acedplay inway ethay DEBUG-SOURCE-INFO.\n"
+"  :Ytebay-Ompilecay {T, NIL, :MAYBE}\n"
+"        Ifway uetray, enthay aymay ompilecay otay interpretedway ytebay "
+"odecay."
+
+#: target:compiler/main.lisp
+msgid "~2&; Python version ~A, VM version ~A on ~A.~%"
+msgstr "~2&; Ythonpay ersionvay ~Away, VM ersionvay ~Away onway ~Away.~%"
+
+#: target:compiler/main.lisp
+msgid "; Compiling: ~A ~A~%"
+msgstr "; Ompilingcay: ~Away ~Away~%"
+
+#: target:compiler/main.lisp
+msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
+msgstr "~&; Ompilationcay ~:[abortedway afterway~;inishedfay inway~] ~Away.~&"
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles Source, producing a corresponding .FASL file.  Source may be a "
+"list\n"
+"   of files, in which case the files are compiled as a unit, producing a "
+"single\n"
+"   .FASL file.  The output file names are defaulted from the first (or "
+"only)\n"
+"   input file name.  Other options available via keywords:\n"
+"   :Output-File\n"
+"      The name of the fasl to output, NIL for none, T for the default.\n"
+"   :Error-File\n"
+"      The name of the error listing file, NIL for none (the default), T for\n"
+"      .err.\n"
+"   :Trace-File\n"
+"      If specified, internal data structures are dumped to this file.  T "
+"for\n"
+"      the .trace default.\n"
+"   :Error-Output\n"
+"      If a stream, then error output is sent there as well as to the "
+"listing\n"
+"      file.  NIL suppresses this additional error output.  The default is "
+"T,\n"
+"      which means use *ERROR-OUTPUT*.\n"
+"   :Block-Compile {NIL | :SPECIFIED | T}\n"
+"      Determines whether multiple functions are compiled together as a "
+"unit,\n"
+"      resolving function references at compile time.  NIL means that global\n"
+"      function names are never resolved at compilation time.  :SPECIFIED "
+"means\n"
+"      that names are resolved at compile-time when convenient (as in a\n"
+"      self-recursive call), but the compiler doesn't combine top-level "
+"DEFUNs.\n"
+"      With :SPECIFIED, an explicit START-BLOCK declaration will enable "
+"block\n"
+"      compilation.  A value of T indicates that all forms in the file(s) "
+"should\n"
+"      be compiled as a unit.  The default is the value of\n"
+"      EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED.\n"
+"   :Entry-Points\n"
+"      This specifies a list of function names for functions in the file(s) "
+"that\n"
+"      must be given global definitions.  This only applies to block\n"
+"      compilation, and is useful mainly when :BLOCK-COMPILE T is specified "
+"on a\n"
+"      file that lacks START-BLOCK declarations.  If the value is NIL (the\n"
+"      default) then all functions will be globally defined.\n"
+"   :Byte-Compile {T | NIL | :MAYBE}\n"
+"      Determines whether to compile into interpreted byte code instead of\n"
+"      machine instructions.  Byte code is several times smaller, but much\n"
+"      slower.  If :MAYBE, then only byte-compile when SPEED is 0 and\n"
+"      DEBUG <= 1.  The default is the value of EXT:*BYTE-COMPILE-DEFAULT*,\n"
+"      which is initially :MAYBE.\n"
+"   :Xref\n"
+"      If non-NIL, enable recording of cross-reference information.  The "
+"default\n"
+"      is the value of C:*RECORD-XREF-INFO*\n"
+"   :External-Format\n"
+"      The external format to use when opening the source file"
+msgstr ""
+"Ompilescay Ourcesay, oducingpray away orrespondingcay .FASL ilefay.  "
+"Ourcesay aymay ebay away istlay\n"
+"   ofway ilesfay, inway ichwhay asecay ethay ilesfay areway ompiledcay asway "
+"away unitway, oducingpray away inglesay\n"
+"   .FASL ilefay.  Ethay outputway ilefay amesnay areway efaultedday omfray "
+"ethay irstfay (orway onlyway)\n"
+"   inputway ilefay amenay.  Otherway optionsway availableway iavay "
+"eywordskay:\n"
+"   :Outputway-Ilefay\n"
+"      Ethay amenay ofway ethay aslfay otay outputway, NIL orfay onenay, T "
+"orfay ethay efaultday.\n"
+"   :Errorway-Ilefay\n"
+"      Ethay amenay ofway ethay errorway istinglay ilefay, NIL orfay onenay "
+"(ethay efaultday), T orfay\n"
+"      .errway.\n"
+"   :Acetray-Ilefay\n"
+"      Ifway ecifiedspay, internalway ataday ucturesstray areway umpedday "
+"otay isthay ilefay.  T orfay\n"
+"      ethay .acetray efaultday.\n"
+"   :Errorway-Outputway\n"
+"      Ifway away eamstray, enthay errorway outputway isway entsay erethay "
+"asway ellway asway otay ethay istinglay\n"
+"      ilefay.  NIL uppressessay isthay additionalway errorway outputway.  "
+"Ethay efaultday isway T,\n"
+"      ichwhay eansmay useway *ERROR-OUTPUT*.\n"
+"   :Ockblay-Ompilecay {NIL | :SPECIFIED | T}\n"
+"      Eterminesday etherwhay ultiplemay unctionsfay areway ompiledcay "
+"ogethertay asway away unitway,\n"
+"      esolvingray unctionfay eferencesray atway ompilecay imetay.  NIL "
+"eansmay atthay obalglay\n"
+"      unctionfay amesnay areway evernay esolvedray atway ompilationcay "
+"imetay.  :SPECIFIED eansmay\n"
+"      atthay amesnay areway esolvedray atway ompilecay-imetay enwhay "
+"onvenientcay (asway inway away\n"
+"      elfsay-ecursiveray allcay), utbay ethay ompilercay oesnday't ombinecay "
+"optay-evellay Efunsday.\n"
+"      Ithway :SPECIFIED, anway explicitway START-BLOCK eclarationday illway "
+"enableway ockblay\n"
+"      ompilationcay.  Away aluevay ofway T indicatesway atthay allway "
+"ormsfay inway ethay ilefay(s) ouldshay\n"
+"      ebay ompiledcay asway away unitway.  Ethay efaultday isway ethay "
+"aluevay ofway\n"
+"      EXT:*BLOCK-COMPILE-DEFAULT*, ichwhay isway initiallyway :SPECIFIED.\n"
+"   :Entryway-Ointspay\n"
+"      Isthay ecifiesspay away istlay ofway unctionfay amesnay orfay "
+"unctionsfay inway ethay ilefay(s) atthay\n"
+"      ustmay ebay ivengay obalglay efinitionsday.  Isthay onlyway appliesway "
+"otay ockblay\n"
+"      ompilationcay, andway isway usefulway ainlymay enwhay :BLOCK-COMPILE T "
+"isway ecifiedspay onway away\n"
+"      ilefay atthay ackslay START-BLOCK eclarationsday.  Ifway ethay aluevay "
+"isway NIL (ethay\n"
+"      efaultday) enthay allway unctionsfay illway ebay oballyglay "
+"efinedday.\n"
+"   :Ytebay-Ompilecay {T | NIL | :MAYBE}\n"
+"      Eterminesday etherwhay otay ompilecay intoway interpretedway ytebay "
+"odecay insteadway ofway\n"
+"      achinemay instructionsway.  Ytebay odecay isway everalsay imestay "
+"mallersay, utbay uchmay\n"
+"      owerslay.  Ifway :MAYBE, enthay onlyway ytebay-ompilecay enwhay SPEED "
+"isway 0 andway\n"
+"      DEBUG <= 1.  Ethay efaultday isway ethay aluevay ofway EXT:*BYTE-"
+"COMPILE-DEFAULT*,\n"
+"      ichwhay isway initiallyway :MAYBE.\n"
+"   :Refxay\n"
+"      Ifway onnay-NIL, enableway ecordingray ofway osscray-eferenceray "
+"informationway.  Ethay efaultday\n"
+"      isway ethay aluevay ofway C:*RECORD-XREF-INFO*\n"
+"   :Externalway-Ormatfay\n"
+"      Ethay externalway ormatfay otay useway enwhay openingway ethay "
+"ourcesay ilefay"
+
+#: target:compiler/main.lisp
+msgid "~2&; ~A written.~%"
+msgstr "~2&; ~Away ittenwray.~%"
+
+#: target:compiler/main.lisp
+msgid "Can't :LOAD with no output file."
+msgstr "Ancay't :LOAD ithway onay outputway ilefay."
+
+#: target:compiler/main.lisp
+msgid "~S was defined in a non-null environment."
+msgstr "~S asway efinedday inway away onnay-ullnay environmentway."
+
+#: target:compiler/main.lisp
+msgid "Can't find a definition for ~S."
+msgstr "Ancay't indfay away efinitionday orfay ~S."
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles the function (or macro-function) whose name is NAME.  If\n"
+"  DEFINITION is supplied, it should be a lambda expression which will\n"
+"  be compiled.  IF NAME names a macro, then the compiled expression\n"
+"  replaces the existing macro-function.  If NAME names a function, the\n"
+"  compiled expression is placed in the function cell of NAME.  If NAME\n"
+"  is Nil, the compiled code object is returned."
+msgstr ""
+"Ompilescay ethay unctionfay (orway acromay-unctionfay) osewhay amenay isway "
+"NAME.  Ifway\n"
+"  DEFINITION isway uppliedsay, itway ouldshay ebay away ambdalay "
+"expressionway ichwhay illway\n"
+"  ebay ompiledcay.  IF NAME amesnay away acromay, enthay ethay ompiledcay "
+"expressionway\n"
+"  eplacesray ethay existingway acromay-unctionfay.  Ifway NAME amesnay away "
+"unctionfay, ethay\n"
+"  ompiledcay expressionway isway acedplay inway ethay unctionfay ellcay "
+"ofway NAME.  Ifway NAME\n"
+"  isway Ilnay, ethay ompiledcay odecay objectway isway eturnedray."
+
+#: target:compiler/main.lisp
+msgid ""
+"Attempt to replace Name's definition with an interpreted version of that\n"
+"  definition.  If no interpreted definition is to be found, then signal an\n"
+"  error."
+msgstr ""
+"Attemptway otay eplaceray Amenay's efinitionday ithway anway interpretedway "
+"ersionvay ofway atthay\n"
+"  efinitionday.  Ifway onay interpretedway efinitionday isway otay ebay "
+"oundfay, enthay ignalsay anway\n"
+"  errorway."
+
+#: target:compiler/main.lisp
+msgid "~S is already interpreted."
+msgstr "~S isway alreadyway interpretedway."
+
+#: target:compiler/main.lisp
+msgid ""
+"Return a pathname describing what file COMPILE-FILE would write to given\n"
+"   these arguments."
+msgstr ""
+"Eturnray away athnamepay escribingday atwhay ilefay COMPILE-FILE ouldway "
+"itewray otay ivengay\n"
+"   esethay argumentsway."
+
+#: target:compiler/main.lisp
+msgid ""
+"The ~A parameter is a ~S, which is an invalid value ~@\n"
+"            to COMPILE-FILE-PATHNAME."
+msgstr ""
+"Ethay ~Away arameterpay isway away ~S, ichwhay isway anway invalidway "
+"aluevay ~@\n"
+"            otay COMPILE-FILE-PATHNAME."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If true, argument and result type information derived from compilation of\n"
+"  DEFUNs is used when compiling calls to that function.  If false, only\n"
+"  information from FTYPE proclamations will be used."
+msgstr ""
+"Ifway uetray, argumentway andway esultray ypetay informationway erivedday "
+"omfray ompilationcay ofway\n"
+"  Efunsday isway usedway enwhay ompilingcay allscay otay atthay unctionfay.  "
+"Ifway alsefay, onlyway\n"
+"  informationway omfray FTYPE oclamationspray illway ebay usedway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If NIL, never trust dynamic-extent declarations.\n"
+"\n"
+"   If T, always trust dynamic-extent declarations.\n"
+"\n"
+"   Otherwise, the value of this variable must be a function of four\n"
+"   arguments SAFETY, SPACE, SPEED, and DEBUG.  If the function returns\n"
+"   true when called, dynamic-extent declarations are trusted,\n"
+"   otherwise they are not trusted."
+msgstr ""
+"Ifway NIL, evernay usttray ynamicday-extentway eclarationsday.\n"
+"\n"
+"   Ifway T, alwaysway usttray ynamicday-extentway eclarationsday.\n"
+"\n"
+"   Otherwiseway, ethay aluevay ofway isthay ariablevay ustmay ebay away "
+"unctionfay ofway ourfay\n"
+"   argumentsway SAFETY, SPACE, SPEED, andway DEBUG.  Ifway ethay unctionfay "
+"eturnsray\n"
+"   uetray enwhay alledcay, ynamicday-extentway eclarationsday areway "
+"ustedtray,\n"
+"   otherwiseway eythay areway otnay ustedtray."
+
+#: target:compiler/ir1tran.lisp
+msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+msgstr ""
+"~@<Invalidway amenay ~s inway away ynamicday-extentway eclarationday.~@:>"
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't find slot ~S."
+msgstr "Ancay't indfay otslay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Found macro name ~S ~A."
+msgstr "Oundfay acromay amenay ~S ~Away."
+
+#: target:compiler/ir1tran.lisp
+msgid "Found special-form name ~S ~A."
+msgstr "Oundfay ecialspay-ormfay amenay ~S ~Away."
+
+#: target:compiler/ir1tran.lisp
+msgid "Cannot dump objects of type ~S into fasl files."
+msgstr "Annotcay umpday objectsway ofway ypetay ~S intoway aslfay ilesfay."
+
+#: target:compiler/ir1tran.lisp
+msgid "~S has already ended."
+msgstr "~S ashay alreadyway endedway."
+
+#: target:compiler/ir1tran.lisp
+msgid "~S already has successors."
+msgstr "~S alreadyway ashay uccessorssay."
+
+#: target:compiler/ir1tran.lisp
+msgid "~S is already a predecessor of ~S."
+msgstr "~S isway alreadyway away edecessorpray ofway ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Misplaced declaration."
+msgstr "Isplacedmay eclarationday."
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function call."
+msgstr "Illegalway unctionfay allcay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to reference undumpable constant."
+msgstr "Attemptway otay eferenceray undumpableway onstantcay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Reading an ignored variable: ~S."
+msgstr "Eadingray anway ignoredway ariablevay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "~&dynamic-extent args ~:s in ~s~%"
+msgstr "~&ynamicday-extentway argsway ~:s inway ~s~%"
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Conflicting type declarations ~\n"
+"\t\t\t\t   ~S and ~S for ~S."
+msgstr ""
+"Onflictingcay ypetay eclarationsday ~\n"
+"\t\t\t\t   ~S andway ~S orfay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't declare type of Alien variable: ~S."
+msgstr "Ancay't eclareday ypetay ofway Alienway ariablevay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring symbol-macro ~S special."
+msgstr "Eclaringday ymbolsay-acromay ~S ecialspay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignored variable ~S is being declared special."
+msgstr "Ignoredway ariablevay ~S isway eingbay eclaredday ecialspay."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Ignoring ~A declaration not at ~\n"
+"\t\t\t\t   definition of local function:~%  ~S"
+msgstr ""
+"Ignoringway ~Away eclarationday otnay atway ~\n"
+"\t\t\t\t   efinitionday ofway ocallay unctionfay:~%  ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognizable function or variable name: ~S"
+msgstr "Unrecognizableway unctionfay orway ariablevay amenay: ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignoring free ignore declaration for ~S."
+msgstr "Ignoringway eefray ignoreway eclarationday orfay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignore declaration for unknown variable ~S."
+msgstr "Ignoreway eclarationday orfay unknownway ariablevay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring special variable ~S to be ignored."
+msgstr "Eclaringday ecialspay ariablevay ~S otay ebay ignoredway."
+
+#: target:compiler/ir1tran.lisp
+msgid "If true, processing of the VALUES declaration is inhibited."
+msgstr ""
+"Ifway uetray, ocessingpray ofway ethay VALUES eclarationday isway "
+"inhibitedway."
+
+#: target:compiler/ir1tran.lisp
+msgid "No type specified in FTYPE declaration: ~S."
+msgstr "Onay ypetay ecifiedspay inway FTYPE eclarationday: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Abbreviated type declaration: ~S."
+msgstr "Abbreviatedway ypetay eclarationday: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognized declaration: ~S."
+msgstr "Unrecognizedway eclarationday: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed declaration specifier ~S in ~S."
+msgstr "Alformedmay eclarationday ecifierspay ~S inway ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring an alien variable to be special: ~S"
+msgstr "Eclaringday anway alienway ariablevay otay ebay ecialspay: ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring a constant to be special: ~S."
+msgstr "Eclaringday away onstantcay otay ebay ecialspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-variable is not a symbol: ~S."
+msgstr "Ambdalay-ariablevay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated variable in lambda-list: ~S."
+msgstr "Epeatedray ariablevay inway ambdalay-istlay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Name of lambda-variable is a constant: ~S."
+msgstr "Amenay ofway ambdalay-ariablevay isway away onstantcay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Multiple uses of keyword ~S in lambda-list."
+msgstr "Ultiplemay usesway ofway eywordkay ~S inway ambdalay-istlay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Found a ~S when expecting a lambda expression:~%  ~S"
+msgstr "Oundfay away ~S enwhay expectingway away ambdalay expressionway:~%  ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Expecting a lambda, but form begins with ~S:~%  ~S"
+msgstr "Expectingway away ambdalay, utbay ormfay eginsbay ithway ~S:~%  ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-list absent or not a list:~%  ~S"
+msgstr "Ambdalay-istlay absentway orway otnay away istlay:~%  ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%"
+msgstr "irway1-onvertcay-ambdalay: alledcay ybay: ~S, arentpay-ormfay: ~S~%"
+
+#: target:compiler/ir1tran.lisp
+msgid "Arg specifier is too long: ~S."
+msgstr "Argway ecifierspay isway ootay onglay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed keyword arg specifier: ~S."
+msgstr "Alformedmay eywordkay argway ecifierspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed &aux binding specifier: ~S."
+msgstr "Alformedmay &auxway indingbay ecifierspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Progn Form*\n"
+"  Evaluates each Form in order, returing the values of the last form.  With "
+"no\n"
+"  forms, returns NIL."
+msgstr ""
+"Ognpray Orm*Fay\n"
+"  Evaluatesway eachway Ormfay inway orderway, eturingray ethay aluesvay "
+"ofway ethay astlay ormfay.  Ithway onay\n"
+"  ormsfay, eturnsray NIL."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If Predicate Then [Else]\n"
+"  If Predicate evaluates to non-null, evaluate Then and returns its values,\n"
+"  otherwise evaluate Else and return its values.  Else defaults to NIL."
+msgstr ""
+"Ifway Edicatepray Enthay [Elseway]\n"
+"  Ifway Edicatepray evaluatesway otay onnay-ullnay, evaluateway Enthay "
+"andway eturnsray itsway aluesvay,\n"
+"  otherwiseway evaluateway Elseway andway eturnray itsway aluesvay.  Elseway "
+"efaultsday otay NIL."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Block Name Form*\n"
+"  Evaluate the Forms as a PROGN.  Within the lexical scope of the body,\n"
+"  (RETURN-FROM Name Value-Form) can be used to exit the form, returning the\n"
+"  result of Value-Form."
+msgstr ""
+"Ockblay Amenay Orm*Fay\n"
+"  Evaluateway ethay Ormsfay asway away PROGN.  Ithinway ethay exicallay "
+"opescay ofway ethay odybay,\n"
+"  (RETURN-FROM Amenay Aluevay-Ormfay) ancay ebay usedway otay exitway ethay "
+"ormfay, eturningray ethay\n"
+"  esultray ofway Aluevay-Ormfay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Block name is not a symbol: ~S."
+msgstr "Ockblay amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Return-From Block-Name Value-Form\n"
+"  Evaluate the Value-Form, returning its values from the lexically "
+"enclosing\n"
+"  BLOCK Block-Name.  This is constrained to be used only within the dynamic\n"
+"  extent of the BLOCK."
+msgstr ""
+"Eturnray-Omfray Ockblay-Amenay Aluevay-Ormfay\n"
+"  Evaluateway ethay Aluevay-Ormfay, eturningray itsway aluesvay omfray ethay "
+"exicallylay enclosingway\n"
+"  BLOCK Ockblay-Amenay.  Isthay isway onstrainedcay otay ebay usedway "
+"onlyway ithinway ethay ynamicday\n"
+"  extentway ofway ethay BLOCK."
+
+#: target:compiler/ir1tran.lisp
+msgid "Return for unknown block: ~S."
+msgstr "Eturnray orfay unknownway ockblay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated tagbody tag: ~S."
+msgstr "Epeatedray agbodytay agtay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal tagbody statement: ~S."
+msgstr "Illegalway agbodytay tatementsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Tagbody {Tag | Statement}*\n"
+"  Define tags for used with GO.  The Statements are evaluated in order\n"
+"  (skipping Tags) and NIL is returned.  If a statement contains a GO to a\n"
+"  defined Tag within the lexical scope of the form, then control is "
+"transferred\n"
+"  to the next statement following that tag.  A Tag must an integer or a\n"
+"  symbol.  A statement must be a list.  Other objects are illegal within "
+"the\n"
+"  body."
+msgstr ""
+"Agbodytay {Agtay | Tatementsay}*\n"
+"  Efineday agstay orfay usedway ithway GO.  Ethay Tatementssay areway "
+"evaluatedway inway orderway\n"
+"  (kippingsay Agstay) andway NIL isway eturnedray.  Ifway away tatementsay "
+"ontainscay away GO otay away\n"
+"  efinedday Agtay ithinway ethay exicallay opescay ofway ethay ormfay, "
+"enthay ontrolcay isway ansfertrayedray\n"
+"  otay ethay extnay tatementsay ollowingfay atthay agtay.  Away Agtay ustmay "
+"anway integerway orway away\n"
+"  ymbolsay.  Away tatementsay ustmay ebay away istlay.  Otherway objectsway "
+"areway illegalway ithinway ethay\n"
+"  odybay."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Go Tag\n"
+"  Transfer control to the named Tag in the lexically enclosing TAGBODY.  "
+"This\n"
+"  is constrained to be used only within the dynamic extent of the TAGBODY."
+msgstr ""
+"Ogay Agtay\n"
+"  Ansfertray ontrolcay otay ethay amednay Agtay inway ethay exicallylay "
+"enclosingway TAGBODY.  Isthay\n"
+"  isway onstrainedcay otay ebay usedway onlyway ithinway ethay ynamicday "
+"extentway ofway ethay TAGBODY."
+
+#: target:compiler/ir1tran.lisp
+msgid "Go to nonexistent tag: ~S."
+msgstr "Ogay otay onexistentnay agtay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Bad compiler-let binding spec: ~S."
+msgstr "Adbay ompilercay-etlay indingbay ecspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"EVAL-WHEN (Situation*) Form*\n"
+"  Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n"
+"  :LOAD-TOPLEVEL, :EXECUTE."
+msgstr ""
+"EVAL-WHEN (Ituation*Say) Orm*Fay\n"
+"  Evaluateway ethay Ormsfay inway ethay ecifiedspay Ituationssay, anyway "
+"ofway :COMPILE-TOPLEVEL,\n"
+"  :LOAD-TOPLEVEL, :EXECUTE."
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name ~S is not a symbol."
+msgstr "Acromay amenay ~S isway otnay away ymbolsay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S has argument list that is not a list: ~S."
+msgstr ""
+"Ocallay acromay ~S ashay argumentway istlay atthay isway otnay away istlay: "
+"~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S is too short to be a legal definition."
+msgstr ""
+"Ocallay acromay ~S isway ootay ortshay otay ebay away egallay efinitionday."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n"
+"  Evaluate the Body-Forms in an environment with the specified local macros\n"
+"  defined.  Name is the local macro name, Lambda-List is the DEFMACRO style\n"
+"  destructuring lambda list, and the Forms evaluate to the expansion."
+msgstr ""
+"MACROLET ({(Amenay Ambdalay-Istlay Orm*Fay)}*) Odybay-Orm*Fay\n"
+"  Evaluateway ethay Odybay-Ormsfay inway anway environmentway ithway ethay "
+"ecifiedspay ocallay acrosmay\n"
+"  efinedday.  Amenay isway ethay ocallay acromay amenay, Ambdalay-Istlay "
+"isway ethay DEFMACRO tylesay\n"
+"  estructuringday ambdalay istlay, andway ethay Ormsfay evaluateway otay "
+"ethay expansionway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
+"   Establish the specified compiler options for the (lexical) duration of\n"
+"   the body.  The Value-Forms are evaluated at compile time."
+msgstr ""
+"Ompilercay-Optionway-Indbay ({(Amenay Aluevay-Ormfay)}*) Odybay-Orm*Fay\n"
+"   Establishway ethay ecifiedspay ompilercay optionsway orfay ethay "
+"(exicallay) urationday ofway\n"
+"   ethay odybay.  Ethay Aluevay-Ormsfay areway evaluatedway atway ompilecay "
+"imetay."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Bogus binding for ~\n"
+"\t\t\t\t\t\t     COMPILER-OPTION-BIND: ~S"
+msgstr ""
+"Ogusbay indingbay orfay ~\n"
+"\t\t\t\t\t\t     COMPILER-OPTION-BIND: ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Lisp error during evaluation of info args:~%~A"
+msgstr "Isplay errorway uringday evaluationway ofway infoway argsway:~%~Away"
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive name is not a symbol: ~S."
+msgstr "%Imitivepray amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Undefined primitive name: ~A."
+msgstr "Undefinedway imitivepray amenay: ~Away."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Primitive called with ~R argument~:P, ~\n"
+"\t    \t\t         but wants at least ~R."
+msgstr ""
+"Imitivepray alledcay ithway ~R argumentway~:P, ~\n"
+"\t    \t\t         utbay antsway atway eastlay ~R."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Primitive called with ~R argument~:P, ~\n"
+"\t\t\t\t but wants exactly ~R."
+msgstr ""
+"Imitivepray alledcay ithway ~R argumentway~:P, ~\n"
+"\t\t\t\t utbay antsway exactlyway ~R."
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with a conditional template."
+msgstr "%Imitivepray usedway ithway away onditionalcay emplatetay."
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with an unknown values template."
+msgstr "%Imitivepray usedway ithway anway unknownway aluesvay emplatetay."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"QUOTE Value\n"
+"  Return Value without evaluating it."
+msgstr ""
+"QUOTE Aluevay\n"
+"  Eturnray Aluevay ithoutway evaluatingway itway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FUNCTION Name\n"
+"  Return the lexically apparent definition of the function Name.  Name may "
+"also\n"
+"  be a lambda."
+msgstr ""
+"FUNCTION Amenay\n"
+"  Eturnray ethay exicallylay apparentway efinitionday ofway ethay unctionfay "
+"Amenay.  Amenay aymay alsoway\n"
+"  ebay away ambdalay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function name: ~S"
+msgstr "Illegalway unctionfay amenay: ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Might be a symbol, so must call FDEFINITION at runtime."
+msgstr ""
+"Ightmay ebay away ymbolsay, osay ustmay allcay FDEFINITION atway untimeray."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
+"  Define the Names as symbol macros with the given Expansions.  Within the\n"
+"  body, references to a Name will effectively be replaced with the Expansion."
+msgstr ""
+"SYMBOL-MACROLET ({(Amenay Expansionway)}*) Ecl*Day Orm*Fay\n"
+"  Efineday ethay Amesnay asway ymbolsay acrosmay ithway ethay ivengay "
+"Expansionsway.  Ithinway ethay\n"
+"  odybay, eferencesray otay away Amenay illway effectivelyway ebay "
+"eplacedray ithway ethay Expansionway."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed symbol macro binding: ~S."
+msgstr "Alformedmay ymbolsay acromay indingbay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S."
+msgstr ""
+"Attemptway otay indbay away ecialspay orway onstantcay ariablevay ithway "
+"SYMBOL-MACROLET: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated name in SYMBOL-MACROLET: ~S."
+msgstr "Epeatedray amenay inway SYMBOL-MACROLET: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Name is not a symbol: ~S."
+msgstr "Amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "New proclaimed type ~S for ~S conflicts with old type ~S."
+msgstr ""
+"Ewnay oclaimedpray ypetay ~S orfay ~S onflictscay ithway oldway ypetay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to proclaim constant ~S to be special."
+msgstr "Attemptway otay oclaimpray onstantcay ~S otay ebay ecialspay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed TYPE proclamation: ~S."
+msgstr "Alformedmay TYPE oclamationpray: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FUNCTION proclamation: ~S."
+msgstr "Alformedmay FUNCTION oclamationpray: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FTYPE proclamation: ~S."
+msgstr "Alformedmay FTYPE oclamationpray: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S binding spec: ~S."
+msgstr "Alformedmay ~S indingbay ecspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  During evaluation of the Forms, Bind the Vars to the result of evaluating "
+"the\n"
+"  Value forms.  The variables are bound in parallel after all of the Values "
+"are\n"
+"  evaluated."
+msgstr ""
+"LET ({(Arvay [Aluevay]) | Arvay}*) Eclaration*Day Orm*Fay\n"
+"  Uringday evaluationway ofway ethay Ormsfay, Indbay ethay Arsvay otay ethay "
+"esultray ofway evaluatingway ethay\n"
+"  Aluevay ormsfay.  Ethay ariablesvay areway oundbay inway arallelpay "
+"afterway allway ofway ethay Aluesvay areway\n"
+"  evaluatedway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LOCALLY Declaration* Form*\n"
+"   Sequentially evaluates a body of Form's in a lexical environment\n"
+"   where the given Declaration's have effect."
+msgstr ""
+"LOCALLY Eclaration*Day Orm*Fay\n"
+"   Equentiallysay evaluatesway away odybay ofway Ormfay's inway away "
+"exicallay environmentway\n"
+"   erewhay ethay ivengay Eclarationday's avehay effectway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET* ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  Similar to LET, but the variables are bound sequentially, allowing each "
+"Value\n"
+"  form to reference any of the previous Vars."
+msgstr ""
+"Et*Lay ({(Arvay [Aluevay]) | Arvay}*) Eclaration*Day Orm*Fay\n"
+"  Imilarsay otay LET, utbay ethay ariablesvay areway oundbay equentiallysay, "
+"allowingway eachway Aluevay\n"
+"  ormfay otay eferenceray anyway ofway ethay eviouspray Arsvay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S definition spec: ~S."
+msgstr "Alformedmay ~S efinitionday ecspay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.   The "
+"bindings\n"
+"  do not enclose the definitions; any use of Name in the Forms will refer "
+"to\n"
+"  the lexically apparent function definition in the enclosing environment."
+msgstr ""
+"FLET ({(Amenay Ambdalay-Istlay Eclaration*Day Orm*Fay)}*) Eclaration*Day "
+"Odybay-Orm*Fay\n"
+"  Evaluateway ethay Odybay-Ormsfay ithway omesay ocallay unctionfay "
+"efinitionsday.   Ethay indingsbay\n"
+"  oday otnay encloseway ethay efinitionsday; anyway useway ofway Amenay "
+"inway ethay Ormsfay illway eferray otay\n"
+"  ethay exicallylay apparentway unctionfay efinitionday inway ethay "
+"enclosingway environmentway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.  The "
+"bindings\n"
+"  enclose the new definitions, so the defined functions can call themselves "
+"or\n"
+"  each other."
+msgstr ""
+"LABELS ({(Amenay Ambdalay-Istlay Eclaration*Day Orm*Fay)}*) Eclaration*Day "
+"Odybay-Orm*Fay\n"
+"  Evaluateway ethay Odybay-Ormsfay ithway omesay ocallay unctionfay "
+"efinitionsday.  Ethay indingsbay\n"
+"  encloseway ethay ewnay efinitionsday, osay ethay efinedday unctionsfay "
+"ancay allcay emselvesthay orway\n"
+"  eachway otherway."
+
+#: target:compiler/ir1tran.lisp
+msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
+msgstr ""
+"Ypetay ~S inway ~S eclarationday onflictscay ithway enclosingway "
+"assertionway:~%   ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"THE Type Form\n"
+"  Assert that Form evaluates to the specified type (which may be a VALUES\n"
+"  type.)"
+msgstr ""
+"THE Ypetay Ormfay\n"
+"  Assertway atthay Ormfay evaluatesway otay ethay ecifiedspay ypetay "
+"(ichwhay aymay ebay away VALUES\n"
+"  ypetay.)"
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Truly-The Type Value\n"
+"  Like the THE special form, except that it believes whatever you tell it.  "
+"It\n"
+"  will never generate a type check, but will cause a warning if the "
+"compiler\n"
+"  can prove the assertion is wrong."
+msgstr ""
+"Ulytray-Ethay Ypetay Aluevay\n"
+"  Ikelay ethay THE ecialspay ormfay, exceptway atthay itway elievesbay "
+"ateverwhay ouyay elltay itway.  Itway\n"
+"  illway evernay enerategay away ypetay eckchay, utbay illway ausecay away "
+"arningway ifway ethay ompilercay\n"
+"  ancay ovepray ethay assertionway isway ongwray."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SETQ {Var Value}*\n"
+"  Set the variables to the values.  If more than one pair is supplied, the\n"
+"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
+"  expansion."
+msgstr ""
+"SETQ {Arvay Aluevay}*\n"
+"  Etsay ethay ariablesvay otay ethay aluesvay.  Ifway oremay anthay oneway "
+"airpay isway uppliedsay, ethay\n"
+"  assignmentsway areway oneday equentiallysay.  Ifway Arvay amesnay away "
+"ymbolsay acromay, SETF ethay\n"
+"  expansionway."
+
+#: target:compiler/ir1tran.lisp
+msgid "Odd number of args to SETQ: ~S."
+msgstr "Oddway umbernay ofway argsway otay SETQ: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to set constant ~S."
+msgstr "Attemptway otay etsay onstantcay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Setting an ignored variable: ~S."
+msgstr "Ettingsay anway ignoredway ariablevay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Throw Tag Form\n"
+"  Do a non-local exit, return the values of Form from the CATCH whose tag\n"
+"  evaluates to the same thing as Tag."
+msgstr ""
+"Rowthay Agtay Ormfay\n"
+"  Oday away onnay-ocallay exitway, eturnray ethay aluesvay ofway Ormfay "
+"omfray ethay CATCH osewhay agtay\n"
+"  evaluatesway otay ethay amesay ingthay asway Agtay."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Catch Tag Form*\n"
+"  Evaluates Tag and instantiates it as a catcher while the body forms are\n"
+"  evaluated in an implicit PROGN.  If a THROW is done to Tag within the "
+"dynamic\n"
+"  scope of the body, then control will be transferred to the end of the "
+"body\n"
+"  and the thrown values will be returned."
+msgstr ""
+"Atchcay Agtay Orm*Fay\n"
+"  Evaluatesway Agtay andway instantiatesway itway asway away atchercay "
+"ilewhay ethay odybay ormsfay areway\n"
+"  evaluatedway inway anway implicitway PROGN.  Ifway away THROW isway oneday "
+"otay Agtay ithinway ethay ynamicday\n"
+"  opescay ofway ethay odybay, enthay ontrolcay illway ebay ansferredtray "
+"otay ethay endway ofway ethay odybay\n"
+"  andway ethay rownthay aluesvay illway ebay eturnedray."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Unwind-Protect Protected Cleanup*\n"
+"  Evaluate the form Protected, returning its values.  The cleanup forms are\n"
+"  evaluated whenever the dynamic scope of the Protected form is exited "
+"(either\n"
+"  due to normal completion or a non-local exit such as THROW)."
+msgstr ""
+"Unwindway-Otectpray Otectedpray Eanup*Clay\n"
+"  Evaluateway ethay ormfay Otectedpray, eturningray itsway aluesvay.  Ethay "
+"eanupclay ormsfay areway\n"
+"  evaluatedway eneverwhay ethay ynamicday opescay ofway ethay Otectedpray "
+"ormfay isway exitedway (eitherway\n"
+"  ueday otay ormalnay ompletioncay orway away onnay-ocallay exitway uchsay "
+"asway THROW)."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL Function Values-Form*\n"
+"  Call Function, passing all the values of each Values-Form as arguments,\n"
+"  values from the first Values-Form making up the first argument, etc."
+msgstr ""
+"MULTIPLE-VALUE-CALL Unctionfay Aluesvay-Orm*Fay\n"
+"  Allcay Unctionfay, assingpay allway ethay aluesvay ofway eachway Aluesvay-"
+"Ormfay asway argumentsway,\n"
+"  aluesvay omfray ethay irstfay Aluesvay-Ormfay akingmay upway ethay irstfay "
+"argumentway, etcway."
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-PROG1 Values-Form Form*\n"
+"  Evaluate Values-Form and then the Forms, but return all the values of\n"
+"  Values-Form."
+msgstr ""
+"MULTIPLE-VALUE-PROG1 Aluesvay-Ormfay Orm*Fay\n"
+"  Evaluateway Aluesvay-Ormfay andway enthay ethay Ormsfay, utbay eturnray "
+"allway ethay aluesvay ofway\n"
+"  Aluesvay-Ormfay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name is not a symbol: ~S."
+msgstr "Acromay amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Defining ~S to be a macro when it was ~(~A~) to be a function."
+msgstr ""
+"Efiningday ~S otay ebay away acromay enwhay itway asway ~(~Away~) otay ebay "
+"away unctionfay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to redefine special form ~S as a macro."
+msgstr "Attemptway otay edefineray ecialspay ormfay ~S asway away acromay."
+
+#: target:compiler/ir1tran.lisp
+msgid "~&; Converted ~S.~%"
+msgstr "~&; Onvertedcay ~S.~%"
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to define a compiler-macro for special form ~S."
+msgstr ""
+"Attemptway otay efineday away ompilercay-acromay orfay ecialspay ormfay ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Constant name is not a symbol: ~S."
+msgstr "Onstantcay amenay isway otnay away ymbolsay: ~S."
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change T."
+msgstr "Ancay't angechay T."
+
+#: target:compiler/ir1tran.lisp
+msgid "Nihil ex nihil (Can't change NIL)."
+msgstr "Ihilnay exway ihilnay (Ancay't angechay NIL)."
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change the value of keywords."
+msgstr "Ancay't angechay ethay aluevay ofway eywordskay."
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining constant ~S as:~%  ~S"
+msgstr "Edefiningray onstantcay ~S asway:~%  ~S"
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining ~(~A~) ~S to be a constant."
+msgstr "Edefiningray ~(~Away~) ~S otay ebay away onstantcay."
+
+#: target:compiler/ir1util.lisp
+msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
+msgstr ""
+"Eturnray ethay TLF-NUMBER andway FORM-NUMBER encodedway asway ixnumfay."
+
+#: target:compiler/ir1util.lisp
+msgid "Return the tlf-number and form-number from an encoded FIXNUM."
+msgstr ""
+"Eturnray ethay lftay-umbernay andway ormfay-umbernay omfray anway encodedway "
+"FIXNUM."
+
+#: target:compiler/ir1util.lisp
+msgid "Return a source-location for the call site."
+msgstr "Eturnray away ourcesay-ocationlay orfay ethay allcay itesay."
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unused function~:[.~;~:*~%  ~S~]"
+msgstr "Eletingday unusedway unctionfay~:[.~;~:*~%  ~S~]"
+
+#: target:compiler/ir1util.lisp
+msgid "Block is already deleted."
+msgstr "Ockblay isway alreadyway eletedday."
+
+#: target:compiler/ir1util.lisp
+msgid "Variable ~S defined but never used."
+msgstr "Ariablevay ~S efinedday utbay evernay usedway."
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unreachable code."
+msgstr "Eletingday unreachableway odecay."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If CONT is a call to FUN with NUM-ARGS args, change those arguments\n"
+"   to feed directly to the continuation-dest of CONT, which must be\n"
+"   a combination."
+msgstr ""
+"Ifway CONT isway away allcay otay FUN ithway NUM-ARGS argsway, angechay "
+"osethay argumentsway\n"
+"   otay eedfay irectlyday otay ethay ontinuationcay-estday ofway CONT, "
+"ichwhay ustmay ebay\n"
+"   away ombinationcay."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"An upper limit on the number of inline function calls that will be expanded\n"
+"   in any given code object (single function or block compilation.)"
+msgstr ""
+"Anway upperway imitlay onway ethay umbernay ofway inlineway unctionfay "
+"allscay atthay illway ebay expandedway\n"
+"   inway anyway ivengay odecay objectway (inglesay unctionfay orway ockblay "
+"ompilationcay.)"
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"*Inline-Expansion-Limit* (~D) exceeded, ~\n"
+"\t\t\t     probably trying to~%  ~\n"
+"\t\t\t     inline a recursive function."
+msgstr ""
+"*Inline-Expansion-Limit* (~D) exceededway, ~\n"
+"\t\t\t     obablypray yingtray otay~%  ~\n"
+"\t\t\t     inlineway away ecursiveray unctionfay."
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Level* when printing compiler error messages."
+msgstr ""
+"Ethay aluevay orfay *Print-Level* enwhay intingpray ompilercay errorway "
+"essagesmay."
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Length* when printing compiler error messages."
+msgstr ""
+"Ethay aluevay orfay *Print-Length* enwhay intingpray ompilercay errorway "
+"essagesmay."
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Lines* when printing compiler error messages."
+msgstr ""
+"Ethay aluevay orfay *Print-Lines* enwhay intingpray ompilercay errorway "
+"essagesmay."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"The maximum number of enclosing non-original source forms (i.e. from\n"
+"  macroexpansion) that we print in full.  For additional enclosing forms, "
+"we\n"
+"  print only the CAR."
+msgstr ""
+"Ethay aximummay umbernay ofway enclosingway onnay-originalway ourcesay "
+"ormsfay (i.e. omfray\n"
+"  acroexpansionmay) atthay eway intpray inway ullfay.  Orfay additionalway "
+"enclosingway ormsfay, eway\n"
+"  intpray onlyway ethay CAR."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"DEF-SOURCE-CONTEXT Name Lambda-List Form*\n"
+"   This macro defines how to extract an abbreviated source context from the\n"
+"   Named form when it appears in the compiler input.  Lambda-List is a "
+"DEFMACRO\n"
+"   style lambda-list used to parse the arguments.  The Body should return a\n"
+"   list of subforms suitable for a \"~{~S ~}\" format string."
+msgstr ""
+"DEF-SOURCE-CONTEXT Amenay Ambdalay-Istlay Orm*Fay\n"
+"   Isthay acromay efinesday owhay otay extractway anway abbreviatedway "
+"ourcesay ontextcay omfray ethay\n"
+"   Amednay ormfay enwhay itway appearsway inway ethay ompilercay inputway.  "
+"Ambdalay-Istlay isway away DEFMACRO\n"
+"   tylesay ambdalay-istlay usedway otay arsepay ethay argumentsway.  Ethay "
+"Odybay ouldshay eturnray away\n"
+"   istlay ofway ubformssay uitablesay orfay away \"~{~S ~}\" ormatfay "
+"ingstray."
+
+#: target:compiler/ir1util.lisp
+msgid "Compiler-Error with no bailout."
+msgstr "Ompilercay-Errorway ithway onay ailoutbay."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"This is the function called by the compiler to specially note a\n"
+"warning, comment, or error. The function must take five arguments: the\n"
+"severity, a string describing the nature of the notification, a string\n"
+"for context, the file namestring, and the file position. The severity\n"
+"is one of :note, :warning, or :error. Except for the severity, all of\n"
+"these can be NIL if unavailable or inapplicable."
+msgstr ""
+"Isthay isway ethay unctionfay alledcay ybay ethay ompilercay otay "
+"eciallyspay otenay away\n"
+"arningway, ommentcay, orway errorway. Ethay unctionfay ustmay aketay ivefay "
+"argumentsway: ethay\n"
+"everitysay, away ingstray escribingday ethay aturenay ofway ethay "
+"otificationnay, away ingstray\n"
+"orfay ontextcay, ethay ilefay amestringnay, andway ethay ilefay ositionpay. "
+"Ethay everitysay\n"
+"isway oneway ofway :otenay, :arningway, orway :errorway. Exceptway orfay "
+"ethay everitysay, allway ofway\n"
+"esethay ancay ebay NIL ifway unavailableway orway inapplicableway."
+
+#: target:compiler/ir1util.lisp
+msgid "[Last message occurs ~D times]"
+msgstr "[Astlay essagemay occursway ~D imestay]"
+
+#: target:compiler/ir1util.lisp
+msgid "~2&File: ~A"
+msgstr "~2&Ilefay: ~Away"
+
+#: target:compiler/ir1util.lisp
+msgid "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
+msgstr "Inway:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
+
+#: target:compiler/ir1util.lisp
+msgid "replace form with call to ERROR."
+msgstr "eplaceray ormfay ithway allcay otay ERROR."
+
+#: target:compiler/ir1util.lisp
+msgid "ignore it."
+msgstr "ignoreway itway."
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If non-null, then an upper limit on the number of unknown function or type\n"
+"  warnings that the compiler will print for any given name in a single\n"
+"  compilation.  This prevents excessive amounts of output when there really "
+"is\n"
+"  a missing definition (as opposed to a typo in the use.)"
+msgstr ""
+"Ifway onnay-ullnay, enthay anway upperway imitlay onway ethay umbernay ofway "
+"unknownway unctionfay orway ypetay\n"
+"  arningsway atthay ethay ompilercay illway intpray orfay anyway ivengay "
+"amenay inway away inglesay\n"
+"  ompilationcay.  Isthay eventspray excessiveway amountsway ofway outputway "
+"enwhay erethay eallyray isway\n"
+"  away issingmay efinitionday (asway opposedway otay away ypotay inway ethay "
+"useway.)"
+
+#: target:compiler/ir1util.lisp
+msgid "Lisp error during ~A:~%~A"
+msgstr "Isplay errorway uringday ~Away:~%~Away"
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"New inferred type ~S conflicts with old type:~\n"
+"\t\t~%  ~S~%*** Bug?"
+msgstr ""
+"Ewnay inferredway ypetay ~S onflictscay ithway oldway ypetay:~\n"
+"\t\t~%  ~S~%*** Ugbay?"
+
+#: target:compiler/ir1opt.lisp
+msgid "The return value of ~A should not be discarded."
+msgstr "Ethay eturnray aluevay ofway ~Away ouldshay otnay ebay iscardedday."
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, aborting this\n"
+"  attempt to transform the call, but admitting the possibility that this or\n"
+"  some other transform will later suceed.  If arguments are supplied, they "
+"are\n"
+"  format arguments for an efficiency note."
+msgstr ""
+"Isthay unctionfay isway usedway otay rowthay outway ofway anway IR1 "
+"ansformtray, abortingway isthay\n"
+"  attemptway otay ansformtray ethay allcay, utbay admittingway ethay "
+"ossibilitypay atthay isthay orway\n"
+"  omesay otherway ansformtray illway aterlay uceedsay.  Ifway argumentsway "
+"areway uppliedsay, eythay areway\n"
+"  ormatfay argumentsway orfay anway efficiencyway otenay."
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform and force a normal\n"
+"  call to the function at run time.  No further optimizations will be\n"
+"  attempted."
+msgstr ""
+"Isthay unctionfay isway usedway otay rowthay outway ofway anway IR1 "
+"ansformtray andway orcefay away ormalnay\n"
+"  allcay otay ethay unctionfay atway unray imetay.  Onay urtherfay "
+"optimizationsway illway ebay\n"
+"  attemptedway."
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, and delay the\n"
+"  transform on the node until later. The reasons specifies when the "
+"transform\n"
+"  will be later retried. The :optimize reason causes the transform to be\n"
+"  delayed until after the current IR1 optimization pass. The :constraint\n"
+"  reason causes the transform to be delayed until after constraint\n"
+"  propagation."
+msgstr ""
+"Isthay unctionfay isway usedway otay rowthay outway ofway anway IR1 "
+"ansformtray, andway elayday ethay\n"
+"  ansformtray onway ethay odenay untilway aterlay. Ethay easonsray "
+"ecifiesspay enwhay ethay ansfortraym\n"
+"  illway ebay aterlay etriedray. Ethay :optimizeway easonray ausescay ethay "
+"ansformtray otay ebay\n"
+"  elayedday untilway afterway ethay urrentcay IR1 optimizationway asspay. "
+"Ethay :onstraintcay\n"
+"  easonray ausescay ethay ansformtray otay ebay elayedday untilway afterway "
+"onstraintcay\n"
+"  opagationpray."
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"\t     at least ~R."
+msgstr ""
+"MULTIPLE-VALUE-CALL ithway ~R aluesvay enwhay ethay unctionfay expectsway ~\n"
+"\t     atway eastlay ~R."
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"\t     at most ~R."
+msgstr ""
+"MULTIPLE-VALUE-CALL ithway ~R aluesvay enwhay ethay unctionfay expectsway ~\n"
+"\t     atway ostmay ~R."
+
+#: target:compiler/ir1final.lisp
+msgid "Unable to ~A because:~%~6T~?"
+msgstr "Unableway otay ~Away ecausebay:~%~6T~?"
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"Unable to ~A due to type uncertainty:~@\n"
+"\t                      ~{~6T~?~^~&~}"
+msgstr ""
+"Unableway otay ~Away ueday otay ypetay uncertaintyway:~@\n"
+"\t                      ~{~6T~?~^~&~}"
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"The result type from previous declaration:~%  ~S~@\n"
+"\t\t\t\t  conflicts with the result type:~%  ~S"
+msgstr ""
+"Ethay esultray ypetay omfray eviouspray eclarationday:~%  ~S~@\n"
+"\t\t\t\t  onflictscay ithway ethay esultray ypetay:~%  ~S"
+
+#: target:compiler/array-tran.lisp
+msgid "Element-Type is not constant."
+msgstr "Elementway-Ypetay isway otnay onstantcay."
+
+#: target:compiler/array-tran.lisp
+msgid "Cannot open-code creation of ~S"
+msgstr "Annotcay openway-odecay eationcray ofway ~S"
+
+#: target:compiler/array-tran.lisp
+msgid "Default initial element ~s is not a ~s."
+msgstr "Efaultday initialway elementway ~s isway otnay away ~s."
+
+#: target:compiler/array-tran.lisp
+msgid "Element-type not constant; cannot open code array creation"
+msgstr ""
+"Elementway-ypetay otnay onstantcay; annotcay openway odecay arrayway "
+"eationcray"
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list not constant; cannot open code array creation"
+msgstr ""
+"Imensionday istlay otnay onstantcay; annotcay openway odecay arrayway "
+"eationcray"
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list contains something other than an integer: ~S"
+msgstr ""
+"Imensionday istlay ontainscay omethingsay otherway anthay anway integerway: "
+"~S"
+
+#: target:compiler/array-tran.lisp
+msgid "Array rank not known at compile time: ~S"
+msgstr "Arrayway ankray otnay nownkay atway ompilecay imetay: ~S"
+
+#: target:compiler/array-tran.lisp
+msgid "Axis not constant."
+msgstr "Axisway otnay onstantcay."
+
+#: target:compiler/array-tran.lisp
+msgid "Array dimensions unknown, must call array-dimension at runtime."
+msgstr ""
+"Arrayway imensionsday unknownway, ustmay allcay arrayway-imensionday atway "
+"untimeray."
+
+#: target:compiler/array-tran.lisp
+msgid "Array has dimensions ~S, ~D is too large."
+msgstr "Arrayway ashay imensionsday ~S, ~D isway ootay argelay."
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell if array is simple."
+msgstr "Ancay't elltay ifway arrayway isway implesay."
+
+#: target:compiler/array-tran.lisp
+msgid "Vector length unknown, must call length at runtime."
+msgstr "Ectorvay engthlay unknownway, ustmay allcay engthlay atway untimeray."
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell the rank at compile time."
+msgstr "Ancay't elltay ethay ankray atway ompilecay imetay."
+
+#: target:compiler/array-tran.lisp
+msgid ""
+"Array type ambiguous; must call ~\n"
+"\t              array-has-fill-pointer-p at runtime."
+msgstr ""
+"Arrayway ypetay ambiguousway; ustmay allcay ~\n"
+"\t              arrayway-ashay-illfay-ointerpay-p atway untimeray."
+
+#: target:compiler/srctran.lisp target:compiler/seqtran.lisp
+msgid "open code"
+msgstr "openway odecay"
+
+#: target:compiler/seqtran.lisp
+msgid "convert to EQ test"
+msgstr "onvertcay otay EQ esttay"
+
+#: target:compiler/seqtran.lisp
+msgid "Item might be a number"
+msgstr "Itemway ightmay ebay away umbernay"
+
+#: target:compiler/seqtran.lisp
+msgid "inline expand"
+msgstr "inlineway expandway"
+
+#: target:compiler/seqtran.lisp
+msgid "Specified output type ~S is not a sequence type"
+msgstr "Ecifiedspay outputway ypetay ~S isway otnay away equencesay ypetay"
+
+#: target:compiler/typetran.lisp
+msgid ""
+"Define-Type-Predicate Name Type\n"
+"  Establish an association between the type predicate Name and the\n"
+"  corresponding Type.  This causes the type predicate to be recognized for\n"
+"  purposes of optimization."
+msgstr ""
+"Efineday-Ypetay-Edicatepray Amenay Ypetay\n"
+"  Establishway anway associationway etweenbay ethay ypetay edicatepray "
+"Amenay andway ethay\n"
+"  orrespondingcay Ypetay.  Isthay ausescay ethay ypetay edicatepray otay "
+"ebay ecognizedray orfay\n"
+"  urposespay ofway optimizationway."
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of non-constant type."
+msgstr "Ancay't openway-odecay esttay ofway onnay-onstantcay ypetay."
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of unknown type ~S."
+msgstr "Ancay't openway-odecay esttay ofway unknownway ypetay ~S."
+
+#: target:compiler/typetran.lisp
+msgid ""
+"Can't compile TYPEP of anonymous or undefined ~\n"
+"\t\t\tclass:~%  ~S"
+msgstr ""
+"Ancay't ompilecay TYPEP ofway anonymousway orway undefinedway ~\n"
+"\t\t\tassclay:~%  ~S"
+
+#: target:compiler/typetran.lisp
+msgid "Illegal type specifier for Typep: ~S."
+msgstr "Illegalway ypetay ecifierspay orfay Ypeptay: ~S."
+
+#: target:compiler/float-tran.lisp
+msgid "use inline fixnum operations"
+msgstr "useway inlineway ixnumfay operationsway"
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (unsigned-byte 32) operations"
+msgstr "useway inlineway (unsignedway-ytebay 32) operationsway"
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (signed-byte 32) operations"
+msgstr "useway inlineway (ignedsay-ytebay 32) operationsway"
+
+#: target:compiler/float-tran.lisp
+msgid "Shouldn't happen"
+msgstr "Ouldnshay't appenhay"
+
+#: target:compiler/float-tran.lisp
+msgid "Can't open-code float to rational comparison."
+msgstr "Ancay't openway-odecay oatflay otay ationalray omparisoncay."
+
+#: target:compiler/float-tran.lisp
+msgid "~S doesn't have a precise float representation."
+msgstr "~S oesnday't avehay away ecisepray oatflay epresentationray."
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                      because the argument range (~s) was not within 2^~D"
+msgstr ""
+"Unableway otay avoidway inlineway argumentway angeray eckchay~@\n"
+"                      ecausebay ethay argumentway angeray (~s) asway otnay "
+"ithinway 2^~D"
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                   because the argument range (~s) was not within 2^~D"
+msgstr ""
+"Unableway otay avoidway inlineway argumentway angeray eckchay~@\n"
+"                   ecausebay ethay argumentway angeray (~s) asway otnay "
+"ithinway 2^~D"
+
+#: target:compiler/float-tran.lisp
+msgid "Float zero bound ~s not correctly canonicalised?"
+msgstr "Oatflay erozay oundbay ~s otnay orrectlycay anonicalisedcay?"
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
+msgstr ""
+"Omputescay flay(away+b) andway errway(away+b), assumingway |away| >= |b|"
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b)"
+msgstr "Omputescay flay(away+b) andway errway(away+b)"
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double-double B0,B1"
+msgstr ""
+"Addway ethay oubleday-oubleday Away0,Away1 otay ethay oubleday-oubleday B0,B1"
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
+msgstr ""
+"Omputecay flay(away-b) andway errway(away-b), assumingway |away| >= |b|"
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b)"
+msgstr "Omputecay flay(away-b) andway errway(away-b)"
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double-double B0,B1 from A0,A1"
+msgstr "Ubtractsay ethay oubleday-oubleday B0,B1 omfray Away0,Away1"
+
+#: target:compiler/float-tran.lisp
+msgid "Compute double-double = double - double-double"
+msgstr "Omputecay oubleday-oubleday = oubleday - oubleday-oubleday"
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double B from the double-double A0,A1"
+msgstr "Ubtractsay ethay oubleday B omfray ethay oubleday-oubleday Away0,Away1"
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Split the double-float number a into a-hi and a-lo such that a =\n"
+"  a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n"
+"  a-lo contains the lower 26 bits."
+msgstr ""
+"Litspay ethay oubleday-oatflay umbernay away intoway away-ihay andway away-"
+"olay uchsay atthay away =\n"
+"  away-ihay + away-olay andway away-ihay ontainscay ethay upperway 26 "
+"ignificantsay itsbay ofway away andway\n"
+"  away-olay ontainscay ethay owerlay 26 itsbay."
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a*b) and err(a*b)"
+msgstr "Omputecay flay(a*bway) andway errway(a*bway)"
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
+"  implementation of two-prod"
+msgstr ""
+"Omputecay flay(a*away) andway errway(a*bway).  Isthay isway away oremay "
+"efficientway\n"
+"  implementationway ofway wotay-odpray"
+
+#: target:compiler/float-tran.lisp
+msgid "Multiply the double-double A0,A1 with B0,B1"
+msgstr "Ultiplymay ethay oubleday-oubleday Away0,Away1 ithway B0,B1"
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double B"
+msgstr "Addway ethay oubleday-oubleday Away0,Away1 otay ethay oubleday B"
+
+#: target:compiler/float-tran.lisp
+msgid "Divide the double-double A0,A1 by B0,B1"
+msgstr "Ivideday ethay oubleday-oubleday Away0,Away1 ybay B0,B1"
+
+#: target:compiler/float-tran.lisp
+msgid "Square"
+msgstr "Quaresay"
+
+#: target:compiler/saptran.lisp
+msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA"
+msgstr "FOREIGN-SYMBOL-ADDRESS avorflay ~S isway otnay :CODE orway :DATA"
+
+#: target:compiler/srctran.lisp
+msgid "Function doesn't have fixed argument count."
+msgstr "Unctionfay oesnday't avehay ixedfay argumentway ountcay."
+
+#: target:compiler/srctran.lisp
+msgid "convert NTHCDR to CAxxR"
+msgstr "onvertcay NTHCDR otay Axxrcay"
+
+#: target:compiler/srctran.lisp
+msgid "Unknown bound type in make-interval!"
+msgstr "Unknownway oundbay ypetay inway akemay-intervalway!"
+
+#: target:compiler/srctran.lisp
+msgid "This shouldn't happen!"
+msgstr "Isthay ouldnshay't appenhay!"
+
+#: target:compiler/srctran.lisp
+msgid "convert to inline logical ops"
+msgstr "onvertcay otay inlineway ogicallay opsway"
+
+#: target:compiler/srctran.lisp
+msgid "BOOLE code is not a constant."
+msgstr "BOOLE odecay isway otnay away onstantcay."
+
+#: target:compiler/srctran.lisp
+msgid "~S illegal control arg to BOOLE."
+msgstr "~S illegalway ontrolcay argway otay BOOLE."
+
+#: target:compiler/srctran.lisp
+msgid "convert x*2^k to shift"
+msgstr "onvertcay *xay2^k otay iftshay"
+
+#: target:compiler/srctran.lisp
+msgid "convert division by 2^k to shift"
+msgstr "onvertcay ivisionday ybay 2^k otay iftshay"
+
+#: target:compiler/srctran.lisp
+msgid "convert remainder mod 2^k to LOGAND"
+msgstr "onvertcay emainderray odmay 2^k otay LOGAND"
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operations"
+msgstr "oldfay identityway operationsway"
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operation"
+msgstr "oldfay identityway operationway"
+
+#: target:compiler/srctran.lisp
+msgid "convert (- 0 x) to negate"
+msgstr "onvertcay (- 0 x) otay egatenay"
+
+#: target:compiler/srctran.lisp
+msgid "convert (* x 0) to 0."
+msgstr "onvertcay (* x 0) otay 0."
+
+#: target:compiler/srctran.lisp
+msgid "fold zero arg"
+msgstr "oldfay erozay argway"
+
+#: target:compiler/srctran.lisp
+msgid "Unexpected types: ~s ~s~%"
+msgstr "Unexpectedway ypestay: ~s ~s~%"
+
+#: target:compiler/srctran.lisp
+msgid "recode as multiplication or sqrt"
+msgstr "ecoderay asway ultiplicationmay orway qrtsay"
+
+#: target:compiler/srctran.lisp
+msgid "convert to simpler equality predicate"
+msgstr "onvertcay otay implersay equalityway edicatepray"
+
+#: target:compiler/srctran.lisp
+msgid "Operands might not be the same type."
+msgstr "Operandsway ightmay otnay ebay ethay amesay ypetay."
+
+#: target:compiler/srctran.lisp
+msgid "~s: too few args (~d), need at least ~d"
+msgstr "~s: ootay ewfay argsway (~d), eednay atway eastlay ~d"
+
+#: target:compiler/srctran.lisp
+msgid "~s: too many args (~d), wants at most ~d"
+msgstr "~s: ootay anymay argsway (~d), antsway atway ostmay ~d"
+
+#: target:compiler/srctran.lisp
+msgid "Control string is not a constant."
+msgstr "Ontrolcay ingstray isway otnay away onstantcay."
+
+#: target:compiler/srctran.lisp
+msgid ""
+"When non-NIL, the compiler will generate code utilizing modular\n"
+"  arithmetic.  Set to NIL to disable this, if you don't want modular\n"
+"  arithmetic in some cases."
+msgstr ""
+"Enwhay onnay-NIL, ethay ompilercay illway enerategay odecay utilizingway "
+"odularmay\n"
+"  arithmeticway.  Etsay otay NIL otay isableday isthay, ifway ouyay onday't "
+"antway odularmay\n"
+"  arithmeticway inway omesay asescay."
+
+#: target:compiler/locall.lisp
+msgid ""
+"Couldn't inline expand because expansion ~\n"
+"\t\t\t\t   calls this let-converted local function:~\n"
+"\t\t\t\t   ~%  ~S"
+msgstr ""
+"Ouldncay't inlineway expandway ecausebay expansionway ~\n"
+"\t\t\t\t   allscay isthay etlay-onvertedcay ocallay unctionfay:~\n"
+"\t\t\t\t   ~%  ~S"
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants exactly ~R."
+msgstr ""
+"Unctionfay alledcay ithway ~R argumentway~:P, utbay antsway exactlyway ~R."
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+"Unctionfay alledcay ithway ~R argumentway~:P, utbay antsway atway eastlay ~R."
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+"Unctionfay alledcay ithway ~R argumentway~:P, utbay antsway atway ostmay ~R."
+
+#: target:compiler/locall.lisp
+msgid "Can't local-call functions with &MORE args."
+msgstr "Ancay't ocallay-allcay unctionsfay ithway &MORE argsway."
+
+#: target:compiler/locall.lisp
+msgid ""
+"Function called with odd number of ~\n"
+"\t  \t\t     arguments in keyword portion."
+msgstr ""
+"Unctionfay alledcay ithway oddway umbernay ofway ~\n"
+"\t  \t\t     argumentsway inway eywordkay ortionpay."
+
+#: target:compiler/locall.lisp
+msgid "Non-constant keyword in keyword call."
+msgstr "Onnay-onstantcay eywordkay inway eywordkay allcay."
+
+#: target:compiler/locall.lisp
+msgid "non-constant :ALLOW-OTHER-KEYS value"
+msgstr "onnay-onstantcay :ALLOW-OTHER-KEYS aluevay"
+
+#: target:compiler/locall.lisp
+msgid "Function called with unknown argument keyword ~S."
+msgstr "Unctionfay alledcay ithway unknownway argumentway eywordkay ~S."
+
+#: target:compiler/checkgen.lisp
+msgid "~:[A possible~;The~] binding of ~S"
+msgstr "~:[Away ossiblepay~;Ethay~] indingbay ofway ~S"
+
+#: target:compiler/checkgen.lisp
+msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+msgstr "~:[Isthay~;~:*~Away~] isway otnay away ~<~%~9T~:;~S:~>~%  ~S"
+
+#: target:compiler/checkgen.lisp
+msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+msgstr "~:[Esultray~;~:*~Away~] isway away ~S, ~<~%~9T~:;otnay away ~S.~>"
+
+#: target:compiler/checkgen.lisp
+msgid "Type assertion too complex to check:~% ~S."
+msgstr "Ypetay assertionway ootay omplexcay otay eckchay:~% ~S."
+
+#: target:compiler/constraint.lisp
+msgid ""
+"*** Unreachable code in constraint ~\n"
+"\t\t\t  propagation...  Bug?"
+msgstr ""
+"*** Unreachableway odecay inway onstraintcay ~\n"
+"\t\t\t  opagationpray...  Ugbay?"
+
+#: target:compiler/tn.lisp
+msgid ""
+"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n"
+"  Iterate over all packed TNs allocated in Component."
+msgstr ""
+"Oday-Ackedpay-Nstay (TN-Arvay Omponentcay [Esultray]) Eclaration*Day "
+"Orm*Fay\n"
+"  Iterateway overway allway ackedpay Nstay allocatedway inway Omponentcay."
+
+#: target:compiler/tn.lisp
+msgid "SC ~S has no :unbounded :save-p NIL alternate SC."
+msgstr "SC ~S ashay onay :unboundedway :avesay-p NIL alternateway SC."
+
+#: target:compiler/life.lisp
+msgid "More operand ~S used more than once in its VOP."
+msgstr "Oremay operandway ~S usedway oremay anthay onceway inway itsway VOP."
+
+#: target:compiler/debug-dump.lisp
+msgid ""
+"Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  \n"
+"Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n"
+"otherwise the truename."
+msgstr ""
+"Extractway ethay amestringnay omfray FILE-INFO orfay ethay DEBUG-SOURCE.  \n"
+"Eturnray FILE-INFO's untruenameway (e.g., argettay:oofay) ifway itway isway "
+"absoluteway;\n"
+"otherwiseway ethay uenametray."
+
+#: target:compiler/generic/utils.lisp
+msgid "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
+msgstr ""
+"Akemay away ixnumfay outway ofway NUM.  (i.e. iftshay ybay wotay itsbay "
+"ifway itway illway itfay.)"
+
+#: target:compiler/generic/utils.lisp
+msgid "~D is too big for a fixnum."
+msgstr "~D isway ootay igbay orfay away ixnumfay."
+
+#: target:compiler/generic/utils.lisp
+msgid "Returns the byte offset of the static symbol Symbol."
+msgstr ""
+"Eturnsray ethay ytebay offsetway ofway ethay taticsay ymbolsay Ymbolsay."
+
+#: target:compiler/generic/utils.lisp
+msgid "~S is not a static symbol."
+msgstr "~S isway otnay away taticsay ymbolsay."
+
+#: target:compiler/generic/utils.lisp
+msgid "Given a byte offset, Offset, returns the appropriate static symbol."
+msgstr ""
+"Ivengay away ytebay offsetway, Offsetway, eturnsray ethay appropriateway "
+"taticsay ymbolsay."
+
+#: target:compiler/generic/utils.lisp
+msgid "Byte offset, ~D, is not correct."
+msgstr "Ytebay offsetway, ~D, isway otnay orrectcay."
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Return the (byte) offset from NIL to the start of the fdefn object\n"
+"   for the static function NAME."
+msgstr ""
+"Eturnray ethay (ytebay) offsetway omfray NIL otay ethay tartsay ofway ethay "
+"defnfay objectway\n"
+"   orfay ethay taticsay unctionfay NAME."
+
+#: target:compiler/generic/utils.lisp
+msgid "~S isn't a static function."
+msgstr "~S isnway't away taticsay unctionfay."
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Given a byte offset, Offset, returns the appropriate static function\n"
+"   symbol."
+msgstr ""
+"Ivengay away ytebay offsetway, Offsetway, eturnsray ethay appropriateway "
+"taticsay unctionfay\n"
+"   ymbolsay."
+
+#: target:compiler/generic/primtype.lisp
+msgid ""
+"An a-list for mapping simple array element types to their\n"
+"  corresponding primitive types."
+msgstr ""
+"Anway away-istlay orfay appingmay implesay arrayway elementway ypestay otay "
+"eirthay\n"
+"  orrespondingcay imitivepray ypestay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Slot is not constant, so cannot open code access."
+msgstr "Otslay isway otnay onstantcay, osay annotcay openway odecay accessway."
+
+#: target:compiler/aliencomp.lisp
+msgid "~S doesn't have a slot named ~S"
+msgstr "~S oesnday't avehay away otslay amednay ~S"
+
+#: target:compiler/aliencomp.lisp
+msgid "Too many indices for pointer deref: ~D"
+msgstr "Ootay anymay indicesway orfay ointerpay erefday: ~D"
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element size."
+msgstr "Unknownway elementway izesay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element alignment."
+msgstr "Unknownway elementway alignmentway."
+
+#: target:compiler/aliencomp.lisp
+msgid "Incorrect number of indices."
+msgstr "Incorrectway umbernay ofway indicesway."
+
+#: target:compiler/aliencomp.lisp
+msgid "Element size unknown."
+msgstr "Elementway izesay unknownway."
+
+#: target:compiler/aliencomp.lisp
+msgid "Element alignment unknown."
+msgstr "Elementway alignmentway unknownway."
+
+#: target:compiler/aliencomp.lisp
+msgid "~S not either a pointer or array type."
+msgstr "~S otnay eitherway away ointerpay orway arrayway ypetay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Info not constant; can't open code."
+msgstr "Infoway otnay onstantcay; ancay't openway odecay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Local Alien Info isn't constant?"
+msgstr "Ocallay Alienway Infoway isnway't onstantcay?"
+
+#: target:compiler/aliencomp.lisp
+msgid "Aliens of type ~S cannot be represented immediately."
+msgstr "Aliensway ofway ypetay ~S annotcay ebay epresentedray immediatelyway."
+
+#: target:compiler/aliencomp.lisp
+msgid "This should be dead-code eleminated."
+msgstr "Isthay ouldshay ebay eadday-odecay eleminatedway."
+
+#: target:compiler/aliencomp.lisp
+msgid "This shouldn't happen."
+msgstr "Isthay ouldnshay't appenhay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Alien type not constant; cannot open code."
+msgstr "Alienway ypetay otnay onstantcay; annotcay openway odecay."
+
+#: target:compiler/aliencomp.lisp
+msgid ""
+"Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n"
+"\t    allocation of alien-value structure."
+msgstr ""
+"Ouldcay otnay optimizeway awayway %SAP-ALIEN: orcedfay otay oday untimeray "
+"~@\n"
+"\t    allocationway ofway alienway-aluevay ucturestray."
+
+#: target:compiler/aliencomp.lisp
+msgid "Type not constant at compile time; can't open code."
+msgstr ""
+"Ypetay otnay onstantcay atway ompilecay imetay; ancay't openway odecay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Can't tell function type at compile time."
+msgstr "Ancay't elltay unctionfay ypetay atway ompilecay imetay."
+
+#: target:compiler/aliencomp.lisp
+msgid "Wrong number of arguments.  Expected ~D, got ~D."
+msgstr "Ongwray umbernay ofway argumentsway.  Expectedway ~D, otgay ~D."
+
+#: target:compiler/aliencomp.lisp
+msgid "Something is broken."
+msgstr "Omethingsay isway okenbray."
+
+#: target:compiler/aliencomp.lisp
+msgid "No unique move-arg-vop for moves in SC ~S."
+msgstr "Onay uniqueway ovemay-argway-opvay orfay ovesmay inway SC ~S."
+
+#: target:compiler/ltv.lisp
+msgid ""
+"Arrange for FORM to be evaluated at load-time and use the value produced\n"
+"   as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant\n"
+"   object is guaranteed to never be modified, so it can be put in read-only\n"
+"   storage."
+msgstr ""
+"Arrangeway orfay FORM otay ebay evaluatedway atway oadlay-imetay andway "
+"useway ethay aluevay oducedpray\n"
+"   asway ifway itway ereway away onstantcay.  Ifway READ-ONLY-P isway onnay-"
+"NIL, enthay ethay esultantray\n"
+"   objectway isway uaranteedgay otay evernay ebay odifiedmay, osay itway "
+"ancay ebay utpay inway eadray-onlyway\n"
+"   toragesay."
+
+#: target:compiler/ltv.lisp
+msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
+msgstr "(uringday EVAL ofway LOAD-TIME-VALUE)~%~Away"
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return value count mismatch prevents known return ~\n"
+"\t\t       from these functions:~\n"
+"\t\t       ~{~%  ~A~}"
+msgstr ""
+"Eturnray aluevay ountcay ismatchmay eventspray nownkay eturnray ~\n"
+"\t\t       omfray esethay unctionsfay:~\n"
+"\t\t       ~{~%  ~Away~}"
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return type not fixed values, so can't use known return ~\n"
+"\t\t      convention:~%  ~S"
+msgstr ""
+"Eturnray ypetay otnay ixedfay aluesvay, osay ancay't useway nownkay eturnray "
+"~\n"
+"\t\t      onventioncay:~%  ~S"
+
+#: target:compiler/ltn.lisp
+msgid ""
+"Unable to check type assertion in unknown-values ~\n"
+"\t                context:~% ~S"
+msgstr ""
+"Unableway otay eckchay ypetay assertionway inway unknownway-aluesvay ~\n"
+"\t                ontextcay:~% ~S"
+
+#: target:compiler/represent.lisp target:compiler/ir2tran.lisp
+#: target:compiler/ltn.lisp
+msgid "Neither CONT nor TN supplied."
+msgstr "Eithernay CONT ornay TN uppliedsay."
+
+#: target:compiler/ltn.lisp
+msgid "~S has :MORE results with :TRANSLATE."
+msgstr "~S ashay :MORE esultsray ithway :TRANSLATE."
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the maximum number of possible optimization alternatives will be\n"
+"  mentioned in a particular efficiency note.  NIL means no limit."
+msgstr ""
+"Isthay isway ethay aximummay umbernay ofway ossiblepay optimizationway "
+"alternativesway illway ebay\n"
+"  entionedmay inway away articularpay efficiencyway otenay.  NIL eansmay "
+"onay imitlay."
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the minumum cost difference between the chosen implementation and\n"
+"  the next alternative that justifies an efficiency note."
+msgstr ""
+"Isthay isway ethay inumummay ostcay ifferenceday etweenbay ethay osenchay "
+"implementationway andway\n"
+"  ethay extnay alternativeway atthay ustifiesjay anway efficiencyway otenay."
+
+#: target:compiler/ltn.lisp
+msgid "This shouldn't happen!  Bug?"
+msgstr "Isthay ouldnshay't appenhay!  Ugbay?"
+
+#: target:compiler/ltn.lisp
+msgid "Template guard failed."
+msgstr "Emplatetay uardgay ailedfay."
+
+#: target:compiler/ltn.lisp
+msgid "Template is not safe, yet we were counting on it."
+msgstr ""
+"Emplatetay isway otnay afesay, etyay eway ereway ountingcay onway itway."
+
+#: target:compiler/ltn.lisp
+msgid "Argument types invalid."
+msgstr "Argumentway ypestay invalidway."
+
+#: target:compiler/ltn.lisp
+msgid "Argument primitive types:~%  ~S"
+msgstr "Argumentway imitivepray ypestay:~%  ~S"
+
+#: target:compiler/ltn.lisp
+msgid "Argument type assertions:~%  ~S"
+msgstr "Argumentway ypetay assertionsway:~%  ~S"
+
+#: target:compiler/ltn.lisp
+msgid "Conditional in a non-conditional context."
+msgstr "Onditionalcay inway away onnay-onditionalcay ontextcay."
+
+#: target:compiler/ltn.lisp
+msgid "Result types invalid."
+msgstr "Esultray ypestay invalidway."
+
+#: target:compiler/ltn.lisp
+msgid "etc."
+msgstr "etcway."
+
+#: target:compiler/ltn.lisp
+msgid "Unable to do ~A (cost ~D) because:"
+msgstr "Unableway otay oday ~Away (ostcay ~D) ecausebay:"
+
+#: target:compiler/ltn.lisp
+msgid ""
+"Can't trust output type assertion under safe ~\n"
+"\t\t       policy."
+msgstr ""
+"Ancay't usttray outputway ypetay assertionway underway afesay ~\n"
+"\t\t       olicypay."
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do ~A (cost ~D)."
+msgstr "Orcedfay otay oday ~Away (ostcay ~D)."
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do full call."
+msgstr "Orcedfay otay oday ullfay allcay."
+
+#: target:compiler/ltn.lisp
+msgid "Recursive known function definition."
+msgstr "Ecursiveray nownkay unctionfay efinitionday."
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"Always perform stack clearing if non-NIL, independent of the\n"
+"compilation policy"
+msgstr ""
+"Alwaysway erformpay tacksay earingclay ifway onnay-NIL, independentway ofway "
+"ethay\n"
+"ompilationcay olicypay"
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"If non-NIL and the compilation policy allows, stack clearing is enabled."
+msgstr ""
+"Ifway onnay-NIL andway ethay ompilationcay olicypay allowsway, tacksay "
+"earingclay isway enabledway."
+
+#: target:compiler/ir2tran.lisp
+msgid "~@<~2I~_~S ~_not found in ~_~S~:>"
+msgstr "~@<~2Iway~_~S ~_otnay oundfay inway ~_~S~:>"
+
+#: target:compiler/represent.lisp
+msgid "Couldn't find REF?"
+msgstr "Ouldncay't indfay REF?"
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no obvious reason.~@\n"
+"\t          Try again after recompiling the VM definition."
+msgstr ""
+"Epresentationray electionsay amedflay outway orfay onay obviousway easonray."
+"~@\n"
+"\t          Ytray againway afterway ecompilingray ethay VM efinitionday."
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to the~@\n"
+"\t        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@\n"
+"\t\t~:[which cannot be coerced or loaded into the allowed SCs:~\n"
+"\t\t~%  ~S~;~*~]~:[~;~@\n"
+"\t\tCurrent cost info inconsistent with that in effect at compile ~\n"
+"\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+"~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay "
+"ethay~@\n"
+"\t        ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:~"
+"%  ~S~@\n"
+"\t\t~:[ichwhay annotcay ebay oercedcay orway oadedlay intoway ethay "
+"allowedway Sscay:~\n"
+"\t\t~%  ~S~;~*~]~:[~;~@\n"
+"\t\tUrrentcay ostcay infoway inconsistentway ithway atthay inway effectway "
+"atway ompilecay ~\n"
+"\t\timetay.  Ecompileray.~%Ompilationcay orderway aymay ebay incorrectway.~]"
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no ~\n"
+"\t\t             obvious reason."
+msgstr ""
+"Epresentationray electionsay amedflay outway orfay onay ~\n"
+"\t\t             obviousway easonray."
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n"
+"\t        ~%  ~S~%Primitive type: ~S~@\n"
+"\t\tSC restrictions:~%  ~S~@\n"
+"\t\t~@[The primitive type disallows these loadable SCs:~%  ~S~%~]~\n"
+"\t\t~@[No move VOPs are defined to coerce to these allowed SCs:~\n"
+"\t\t~%  ~S~%~]~\n"
+"\t\t~@[These move VOPs couldn't be used due to operand type ~\n"
+"\t\trestrictions:~%  ~S~%~]~\n"
+"\t\t~:[~;~@\n"
+"\t\tCurrent cost info inconsistent with that in effect at compile ~\n"
+"\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+"~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay VOP:"
+"~\n"
+"\t        ~%  ~S~%Imitivepray ypetay: ~S~@\n"
+"\t\tSC estrictionsray:~%  ~S~@\n"
+"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~%  ~S~%"
+"~]~\n"
+"\t\t~@[Onay ovemay Opsvay areway efinedday otay oercecay otay esethay "
+"allowedway Sscay:~\n"
+"\t\t~%  ~S~%~]~\n"
+"\t\t~@[Esethay ovemay Opsvay ouldncay't ebay usedway ueday otay operandway "
+"ypetay ~\n"
+"\t\testrictionsray:~%  ~S~%~]~\n"
+"\t\t~:[~;~@\n"
+"\t\tUrrentcay ostcay infoway inconsistentway ithway atthay inway effectway "
+"atway ompilecay ~\n"
+"\t\timetay.  Ecompileray.~%Ompilationcay orderway aymay ebay incorrectway.~]"
+
+#: target:compiler/represent.lisp
+msgid ""
+"No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n"
+"          ~S (SC ~S.)"
+msgstr ""
+"Onay :MOVE-ARGUMENT VOP efinedday otay ovemay ~S (SC ~S) otay ~\n"
+"          ~S (SC ~S.)"
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from constant ~\n"
+"\t             SC ~S."
+msgstr ""
+"Onay ovemay unctionfay efinedday otay oadlay SC ~S omfray onstantcay ~\n"
+"\t             SC ~S."
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from alternate ~\n"
+"\t             SC ~S."
+msgstr ""
+"Onay ovemay unctionfay efinedday otay oadlay SC ~S omfray alternateway ~\n"
+"\t             SC ~S."
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to save SC ~S to alternate ~\n"
+"\t             SC ~S."
+msgstr ""
+"Onay ovemay unctionfay efinedday otay avesay SC ~S otay alternateway ~\n"
+"\t             SC ~S."
+
+#: target:compiler/represent.lisp
+msgid "<return value>"
+msgstr "<eturnray aluevay>"
+
+#: target:compiler/represent.lisp
+msgid "Couldn't fine op?  Bug!"
+msgstr "Ouldncay't inefay opway?  Ugbay!"
+
+#: target:compiler/represent.lisp
+msgid ""
+"Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n"
+"\t       The ~:R ~:[result~;argument~] of ~A."
+msgstr ""
+"Oingday ~Away (ostcay ~D)~:[~2*~; ~:[otay~;omfray~] ~S~], orfay:~%~6T~\n"
+"\t       Ethay ~:R ~:[esultray~;argumentway~] ofway ~Away."
+
+#: target:compiler/represent.lisp
+msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
+msgstr "Oingday ~Away (ostcay ~D)~@[ omfray ~S~]~@[ otay ~S~]."
+
+#: target:compiler/generic/vm-tran.lisp
+msgid ""
+"Argument and result bit arrays not the same length:~\n"
+"\t     \t     ~%  ~S~%  ~S"
+msgstr ""
+"Argumentway andway esultray itbay arraysway otnay ethay amesay engthlay:~\n"
+"\t     \t     ~%  ~S~%  ~S"
+
+#: target:compiler/codegen.lisp
+msgid "Returns the number of bytes used by the code object header."
+msgstr ""
+"Eturnsray ethay umbernay ofway ytesbay usedway ybay ethay odecay objectway "
+"eaderhay."
+
+#: target:compiler/codegen.lisp
+msgid ""
+"The size of the Name'd SB in the currently compiled component.  Useful\n"
+"  mainly for finding the size for allocating stack frames."
+msgstr ""
+"Ethay izesay ofway ethay Amenay'd SB inway ethay urrentlycay ompiledcay "
+"omponentcay.  Usefulway\n"
+"  ainlymay orfay indingfay ethay izesay orfay allocatingway tacksay amesfray."
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in VOP's\n"
+"  function.  Returns NIL if no number stack frame was allocated."
+msgstr ""
+"Eturnray ethay TN atthay isway usedway otay oldhay ethay umbernay tacksay "
+"amefray-ointerpay inway VOP's\n"
+"  unctionfay.  Eturnsray NIL ifway onay umbernay tacksay amefray asway "
+"allocatedway."
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in the\n"
+"  function designated by 2env.  Returns NIL if no number stack frame was\n"
+"  allocated."
+msgstr ""
+"Eturnray ethay TN atthay isway usedway otay oldhay ethay umbernay tacksay "
+"amefray-ointerpay inway ethay\n"
+"  unctionfay esignatedday ybay 2envway.  Eturnsray NIL ifway onay umbernay "
+"tacksay amefray asway\n"
+"  allocatedway."
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN used for passing the return PC in a local call to the "
+"function\n"
+"  designated by 2env."
+msgstr ""
+"Eturnray ethay TN usedway orfay assingpay ethay eturnray PC inway away "
+"ocallay allcay otay ethay unctionfay\n"
+"  esignatedday ybay 2envway."
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Set to NIL to inhibit assembly-level optimization.  For compiler debugging,\n"
+"  rather than policy control."
+msgstr ""
+"Etsay otay NIL otay inhibitway assemblyway-evellay optimizationway.  Orfay "
+"ompilercay ebuggingday,\n"
+"  atherray anthay olicypay ontrolcay."
+
+#: target:compiler/codegen.lisp
+msgid "In the ~A segment:~%"
+msgstr "Inway ethay ~Away egmentsay:~%"
+
+#: target:compiler/codegen.lisp
+msgid "~|~%Assembly code for ~S~2%"
+msgstr "~|~%Assemblyway odecay orfay ~S~2%"
+
+#: target:compiler/codegen.lisp
+msgid "Missing generator for ~S.~%"
+msgstr "Issingmay eneratorgay orfay ~S.~%"
+
+#: target:compiler/debug.lisp
+msgid ""
+"This variable is bound to the format arguments when an error is signalled\n"
+"  by Barf or Burp."
+msgstr ""
+"Isthay ariablevay isway oundbay otay ethay ormatfay argumentsway enwhay "
+"anway errorway isway ignalledsay\n"
+"  ybay Arfbay orway Urpbay."
+
+#: target:compiler/debug.lisp
+msgid ""
+"Action taken by the Burp function when a possible compiler bug is detected.\n"
+"  One of :Warn, :Error or :None."
+msgstr ""
+"Actionway akentay ybay ethay Urpbay unctionfay enwhay away ossiblepay "
+"ompilercay ugbay isway etectedday.\n"
+"  Oneway ofway :Arnway, :Errorway orway :Onenay."
+
+#: target:compiler/debug.lisp
+msgid ""
+"Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For\n"
+"  debugging use only.  Probably doesn't work on :COMPONENT TNs."
+msgstr ""
+"Eturnray away istlay ofway away ethay Nstay atthay onflictcay ithway TN.  "
+"Ortsay ofway, indkay ofway.  Orfay\n"
+"  ebuggingday useway onlyway.  Obablypray oesnday't orkway onway :COMPONENT "
+"Nstay."
+
+#: target:compiler/debug.lisp
+msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
+msgstr ""
+"Eturnray ethay Thnay VOP inway ethay IR2-Ockblay ointedpay otay ybay Ingthay."
+
+#: target:compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr "Ompilercay ugbay: ~S otnay away egallay asloadfay operatorway."
+
+#: target:compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr "Iedtray otay outputway ~D ytesbay, utbay onlyway ~D ademay itway."
+
+#: target:compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+"Isthay objectway annotcay ebay umpedday intoway away aslfay ilefay:~% ~S"
+
+#: target:compiler/dump.lisp
+msgid "~S already dumped?"
+msgstr "~S alreadyway umpedday?"
+
+#: target:compiler/dump.lisp
+msgid "Warning: dumping ~s as 0l0~%"
+msgstr "Arningway: umpingday ~s asway 0l0~%"
+
+#: target:compiler/dump.lisp
+msgid "Unable to dump long-float"
+msgstr "Unableway otay umpday onglay-oatflay"
+
+#: target:compiler/dump.lisp
+msgid "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
+msgstr ""
+"Attemptway otay umpday invalidway ucturestray:~%  ~S~%Owhay idday isthay "
+"appenhay?"
+
+#: target:compiler/dump.lisp
+msgid "Dumping reference to obsolete class: ~S"
+msgstr "Umpingday eferenceray otay obsoleteway assclay: ~S"
+
+#: target:compiler/generic/core.lisp
+msgid "Unresolved forward reference."
+msgstr "Unresolvedway orwardfay eferenceray."
+
+#: target:compiler/generic/core.lisp
+msgid "#<Code Instruction Stream for ~S>"
+msgstr "#<Odecay Instructionway Eamstray orfay ~S>"
+
+#: target:compiler/generic/core.lisp
+msgid "Writing ~D bytes to ~S would cause it to overflow."
+msgstr "Itingwray ~D ytesbay otay ~S ouldway ausecay itway otay overflowway."
+
+#: target:compiler/generic/core.lisp
+msgid "Writing another byte to ~S would cause it to overflow."
+msgstr ""
+"Itingwray anotherway ytebay otay ~S ouldway ausecay itway otay overflowway."
+
+#: target:compiler/eval-comp.lisp
+msgid "Fatal error, aborting evaluation."
+msgstr "Atalfay errorway, abortingway evaluationway."
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong argument count, wanted ~D and got ~D."
+msgstr "Ongwray argumentway ountcay, antedway ~D andway otgay ~D."
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong number of arguments passed -- ~S."
+msgstr "Ongwray umbernay ofway argumentsway assedpay -- ~S."
+
+#: target:compiler/eval-comp.lisp
+msgid "Function called with odd number of keyword arguments."
+msgstr ""
+"Unctionfay alledcay ithway oddway umbernay ofway eywordkay argumentsway."
+
+#: target:compiler/eval-comp.lisp
+msgid "Unknown keyword argument -- ~S."
+msgstr "Unknownway eywordkay argumentway -- ~S."
+
+#: target:compiler/eval.lisp
+msgid "[PUSH: growing stack.]~%"
+msgstr "[PUSH: owinggray tacksay.]~%"
+
+#: target:compiler/eval.lisp
+msgid "pushing ~D.~%"
+msgstr "ushingpay ~D.~%"
+
+#: target:compiler/eval.lisp
+msgid "Attempt to pop empty eval stack."
+msgstr "Attemptway otay oppay emptyway evalway tacksay."
+
+#: target:compiler/eval.lisp
+msgid "popping ~D --> ~S.~%"
+msgstr "oppingpay ~D --> ~S.~%"
+
+#: target:compiler/eval.lisp
+msgid "[EXTEND: growing stack.]~%"
+msgstr "[EXTEND: owinggray tacksay.]~%"
+
+#: target:compiler/eval.lisp
+msgid "extending to ~D.~%"
+msgstr "extendingway otay ~D.~%"
+
+#: target:compiler/eval.lisp
+msgid "shrinking to ~D.~%"
+msgstr "rinkingshay otay ~D.~%"
+
+#: target:compiler/eval.lisp
+msgid "setting top to ~D.~%"
+msgstr "ettingsay optay otay ~D.~%"
+
+#: target:compiler/eval.lisp
+msgid ""
+"If the interpreted function cache has more functions than this come GC "
+"time,\n"
+"  then attempt to prune it according to\n"
+"  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+msgstr ""
+"Ifway ethay interpretedway unctionfay achecay ashay oremay unctionsfay "
+"anthay isthay omecay GC imetay,\n"
+"  enthay attemptway otay unepray itway accordingway otay\n"
+"  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+
+#: target:compiler/eval.lisp
+msgid ""
+"If an interpreted function goes uncalled for more than this many GCs, then\n"
+"  it is eligible for flushing from the cache."
+msgstr ""
+"Ifway anway interpretedway unctionfay oesgay uncalledway orfay oremay anthay "
+"isthay anymay Csgay, enthay\n"
+"  itway isway eligibleway orfay ushingflay omfray ethay achecay."
+
+#: target:compiler/eval.lisp
+msgid ""
+"Clear all entries in the eval function cache.  This allows the internal\n"
+"  representation of the functions to be reclaimed, and also lazily forces\n"
+"  macroexpansions to be recomputed."
+msgstr ""
+"Earclay allway entriesway inway ethay evalway unctionfay achecay.  Isthay "
+"allowsway ethay internalway\n"
+"  epresentationray ofway ethay unctionsfay otay ebay eclaimedray, andway "
+"alsoway azilylay orcesfay\n"
+"  acroexpansionsmay otay ebay ecomputedray."
+
+#: target:compiler/eval.lisp
+msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
+msgstr "C::%UNKNOWN-VALUES ouldshay evernay ebay inway interpreterway's IR1."
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown XOP ~S"
+msgstr "Unknownway XOP ~S"
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown inline function: ~S"
+msgstr "Unknownway inlineway unctionfay: ~S"
+
+#: target:compiler/byte-comp.lisp
+msgid "Can't find ~S"
+msgstr "Ancay't indfay ~S"
+
+#: target:compiler/byte-comp.lisp
+msgid "~|~%;;;; Byte component ~S~2%"
+msgstr "~|~%;;;; Ytebay omponentcay ~S~2%"
+
+#: target:compiler/byte-comp.lisp
+msgid ";;; Functions:~%"
+msgstr ";;; Unctionsfay:~%"
+
+#: target:compiler/byte-comp.lisp
+msgid "~%;;;Disassembly:~2%"
+msgstr "~%;;;Isassemblyday:~2%"
+
+#: target:compiler/byte-comp.lisp
+msgid "<bogus index>"
+msgstr "<ogusbay indexway>"
+
+#: target:compiler/byte-comp.lisp
+msgid "Entry point, frame-size=~D~%"
+msgstr "Entryway ointpay, amefray-izesay=~D~%"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-local ~D"
+msgstr "ushpay-ocallay ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-arg ~D"
+msgstr "ushpay-argway ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-const ~S"
+msgstr "ushpay-onstcay ~S"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-sys-const ~S"
+msgstr "ushpay-yssay-onstcay ~S"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-int ~D"
+msgstr "ushpay-intway ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "push-neg-int ~D"
+msgstr "ushpay-egnay-intway ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-local ~D"
+msgstr "oppay-ocallay ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-n ~D"
+msgstr "oppay-n ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]call, ~D args"
+msgstr "~:[~;amednay-~]allcay, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]tail-call, ~D args"
+msgstr "~:[~;amednay-~]ailtay-allcay, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]multiple-call, ~D args"
+msgstr "~:[~;amednay-~]ultiplemay-allcay, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "local call ~D, ~D args"
+msgstr "ocallay allcay ~D, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "local tail-call ~D, ~D args"
+msgstr "ocallay ailtay-allcay ~D, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "local multiple-call ~D, ~D args"
+msgstr "ocallay ultiplemay-allcay ~D, ~D argsway"
+
+#: target:compiler/byte-comp.lisp
+msgid "return, ~D vals"
+msgstr "eturnray, ~D alsvay"
+
+#: target:compiler/byte-comp.lisp
+msgid "branch ~D"
+msgstr "anchbray ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "if-true ~D"
+msgstr "ifway-uetray ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "if-false ~D"
+msgstr "ifway-alsefay ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "if-eq ~D"
+msgstr "ifway-eqway ~D"
+
+#: target:compiler/byte-comp.lisp
+msgid "xop ~A~@[ ~D~]"
+msgstr "opxay ~Away~@[ ~D~]"
+
+#: target:compiler/byte-comp.lisp
+msgid "inline ~A"
+msgstr "inlineway ~Away"
+
+#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp
+msgid "Malformed plist in doplist, odd number of elements."
+msgstr ""
+"Alformedmay istplay inway oplistday, oddway umbernay ofway elementsway."
+
+#: target:pcl/macros.lisp
+msgid "~@<~S is not a legal class name.~@:>"
+msgstr "~@<~S isway otnay away egallay assclay amenay.~@:>"
+
+#: target:pcl/macros.lisp
+msgid "No class named ~S."
+msgstr "Onay assclay amednay ~S."
+
+#: target:pcl/macros.lisp
+msgid "~S is not a legal class name."
+msgstr "~S isway otnay away egallay assclay amenay."
+
+#: target:pcl/macros.lisp
+msgid ""
+"Returns the PCL class metaobject named by SYMBOL. An error of type\n"
+"   SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n"
+"   is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
+msgstr ""
+"Eturnsray ethay PCL assclay etaobjectmay amednay ybay SYMBOL. Anway errorway "
+"ofway ypetay\n"
+"   SIMPLE-ERROR isway ignaledsay ifway ethay assclay oesday otnay existway "
+"unlessway ERRORP\n"
+"   isway NIL inway ichwhay asecay NIL isway eturnedray. SYMBOL annotcay ebay "
+"away eywordkay."
+
+#: target:pcl/low.lisp
+msgid "Set the name of a compiled function object and return the function."
+msgstr ""
+"Etsay ethay amenay ofway away ompiledcay unctionfay objectway andway "
+"eturnray ethay unctionfay."
+
+#: target:pcl/low.lisp
+msgid ""
+"PCL debugging aid that breaks into the debugger each time\n"
+"`compile-lambda' is invoked."
+msgstr ""
+"PCL ebuggingday aidway atthay eaksbray intoway ethay ebuggerday eachway "
+"imetay\n"
+"`ompilecay-ambdalay' isway invokedway."
+
+#: target:pcl/low.lisp
+msgid ""
+"If true (the default), then `compile-lambda' will try to silence\n"
+"the compiler as completely as possible.  Currently this means that\n"
+"`*compile-print*' will be bound to nil during compilation."
+msgstr ""
+"Ifway uetray (ethay efaultday), enthay `ompilecay-ambdalay' illway ytray "
+"otay ilencesay\n"
+"ethay ompilercay asway ompletelycay asway ossiblepay.  Urrentlycay isthay "
+"eansmay atthay\n"
+"`*compile-print*' illway ebay oundbay otay ilnay uringday ompilationcay."
+
+#: target:pcl/info.lisp
+msgid ""
+"~@<The declaration ~S is not understood by ~S. ~\n"
+"                               Please put ~S on one of the lists ~S, ~S, or "
+"~S. ~\n"
+"                               (Assuming it is a variable declarations "
+"without ~\n"
+"                               argument).~@:>"
+msgstr ""
+"~@<Ethay eclarationday ~S isway otnay understoodway ybay ~S. ~\n"
+"                               Easeplay utpay ~S onway oneway ofway ethay "
+"istslay ~S, ~S, orway ~S. ~\n"
+"                               (Assumingway itway isway away ariablevay "
+"eclarationsday ithoutway ~\n"
+"                               argumentway).~@:>"
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access specifier ~s in ~s.~@:>"
+msgstr "~@<Invalidway otslay accessway ecifierspay ~s inway ~s.~@:>"
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access declaration ~s.~@:>"
+msgstr "~@<Invalidway otslay accessway eclarationday ~s.~@:>"
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
+msgstr "~@<Invalidway autoway-ompilecay ecifierspay ~s inway ~s.~@:>"
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile declaration ~s.~@:>"
+msgstr "~@<Invalidway autoway-ompilecay eclarationday ~s.~@:>"
+
+#: target:pcl/fin.lisp
+msgid ""
+"~@<Attempt to funcall a funcallable instance without first ~\n"
+"          setting its function.~@:>"
+msgstr ""
+"~@<Attemptway otay uncallfay away uncallablefay instanceway ithoutway "
+"irstfay ~\n"
+"          ettingsay itsway unctionfay.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid "~S is not a legal defclass option."
+msgstr "~S isway otnay away egallay efclassday optionway."
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The value of the ~s option (~s) is not a legal ~\n"
+"\t        class name.~@:>"
+msgstr ""
+"~@<Ethay aluevay ofway ethay ~s optionway (~s) isway otnay away egallay ~\n"
+"\t        assclay amenay.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a legal slot specification.~@:>"
+msgstr "~@<~S isway otnay away egallay otslay ecificationspay.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<In the class definintion of ~s, the slot specification ~s ~\n"
+"                 is obsolete.  Convert it to ~s.~@:>"
+msgstr ""
+"~@<Inway ethay assclay efinintionday ofway ~s, ethay otslay ecificationspay "
+"~s ~\n"
+"                 isway obsoleteway.  Onvertcay itway otay ~s.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a class in *early-class-definitions*.~@:>"
+msgstr "~@<~S isway otnay away assclay inway *early-class-definitions*.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<More than one early class defines a slot with the ~\n"
+"                    name ~S.  This can't work because the bootstrap ~\n"
+"                    object system doesn't know how to compute effective ~\n"
+"                    slots.~@:>"
+msgstr ""
+"~@<Oremay anthay oneway earlyway assclay efinesday away otslay ithway ethay "
+"~\n"
+"                    amenay ~S.  Isthay ancay't orkway ecausebay ethay "
+"ootstrapbay ~\n"
+"                    objectway ystemsay oesnday't nowkay owhay otay omputecay "
+"effectiveway ~\n"
+"                    otsslay.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid "Discard it."
+msgstr "Iscardday itway."
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The defclass option ~S is not supported by ~\n"
+"                                 the bootstrap object system.~@:>"
+msgstr ""
+"~@<Ethay efclassday optionway ~S isway otnay upportedsay ybay ~\n"
+"                                 ethay ootstrapbay objectway ystemsay.~@:>"
+
+#: target:pcl/defclass.lisp
+msgid "Slot ~S not found in class ~S"
+msgstr "Otslay ~S otnay oundfay inway assclay ~S"
+
+#: target:pcl/defs.lisp
+msgid ""
+"~@<Trying to load (or compile) PCL in an environment in which it ~\n"
+"            has already been loaded.  This doesn't work, you will have to ~\n"
+"            get a fresh lisp (reboot) and then load PCL.~@:>"
+msgstr ""
+"~@<Yingtray otay oadlay (orway ompilecay) PCL inway anway environmentway "
+"inway ichwhay itway ~\n"
+"            ashay alreadyway eenbay oadedlay.  Isthay oesnday't orkway, "
+"ouyay illway avehay otay ~\n"
+"            etgay away eshfray isplay (ebootray) andway enthay oadlay PCL.~@:"
+">"
+
+#: target:pcl/defs.lisp
+msgid "Try loading (or compiling) PCL anyways."
+msgstr "Ytray oadinglay (orway ompilingcay) PCL anywaysway."
+
+#: target:pcl/defs.lisp
+msgid "~@<~S is not a legal specializer type.~@:>"
+msgstr "~@<~S isway otnay away egallay ecializerspay ypetay.~@:>"
+
+#: target:pcl/defs.lisp
+msgid "~@<~s is neither a type nor a specializer.~@:>"
+msgstr "~@<~s isway eithernay away ypetay ornay away ecializerspay.~@:>"
+
+#: target:pcl/defs.lisp
+msgid "Bad argument to type-class."
+msgstr "Adbay argumentway otay ypetay-assclay."
+
+#: target:pcl/defs.lisp
+msgid "~s is not a type."
+msgstr "~s isway otnay away ypetay."
+
+#: target:pcl/defs.lisp
+msgid ""
+"For class slots, the class defininig the slot.\n"
+"For inherited class slots, this is the superclass from which the slot\n"
+"was inherited."
+msgstr ""
+"Orfay assclay otsslay, ethay assclay efininigday ethay otslay.\n"
+"Orfay inheritedway assclay otsslay, isthay isway ethay uperclasssay omfray "
+"ichwhay ethay otslay\n"
+"asway inheritedway."
+
+#: target:pcl/fngen.lisp
+msgid ""
+"Flush cached emf functions.  If GF is supplied, it should be a\n"
+"   generic function metaobject or the name of a generic function, and\n"
+"   this function flushes all cached emfs for the given generic\n"
+"   function.  If GF is not supplied, all cached emfs are flushed."
+msgstr ""
+"Ushflay achedcay emfway unctionsfay.  Ifway GF isway uppliedsay, itway "
+"ouldshay ebay away\n"
+"   enericgay unctionfay etaobjectmay orway ethay amenay ofway away enericgay "
+"unctionfay, andway\n"
+"   isthay unctionfay ushesflay allway achedcay emfsway orfay ethay ivengay "
+"enericgay\n"
+"   unctionfay.  Ifway GF isway otnay uppliedsay, allway achedcay emfsway "
+"areway ushedflay."
+
+#: target:pcl/cache.lisp
+msgid "Wrapper ~S"
+msgstr "Apperwray ~S"
+
+#: target:pcl/cache.lisp
+msgid "Unknown wrapper state"
+msgstr "Unknownway apperwray tatesay"
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<PCL cannot handle the specializer ~S ~\n"
+"                                (meta-specializer ~S).~@:>"
+msgstr ""
+"~@<PCL annotcay andlehay ethay ecializerspay ~S ~\n"
+"                                (etamay-ecializerspay ~S).~@:>"
+
+#: target:pcl/cache.lisp
+msgid "Line is reserved."
+msgstr "Inelay isway eservedray."
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<Bad cache ~S: Value at location ~D is ~D ~\n"
+"                               lines from its home, limit is ~D.~@:>"
+msgstr ""
+"~@<Adbay achecay ~S: Aluevay atway ocationlay ~D isway ~D ~\n"
+"                               ineslay omfray itsway omehay, imitlay isway "
+"~D.~@:>"
+
+#: target:pcl/cache.lisp
+msgid "Attempt to fill a reserved cache line."
+msgstr "Attemptway otay illfay away eservedray achecay inelay."
+
+#: target:pcl/cache.lisp
+msgid "Transfering something into a reserved cache line."
+msgstr "Ansferingtray omethingsay intoway away eservedray achecay inelay."
+
+#: target:pcl/dlisp.lisp
+msgid "Every metatype is T."
+msgstr "Everyway etatypemay isway T."
+
+#: target:pcl/dlisp.lisp
+msgid "Can't do a slot reg for this metatype."
+msgstr "Ancay't oday away otslay egray orfay isthay etatypemay."
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~a: ~?.~~@:>"
+msgstr "~~@<Enericgay unctionfay ~away: ~?.~~@:>"
+
+#: target:pcl/boot.lisp
+msgid "Invalid generic function parameter name ~a"
+msgstr "Invalidway enericgay unctionfay arameterpay amenay ~away"
+
+#: target:pcl/boot.lisp
+msgid ""
+"Optional and key parameters of generic functions ~\n"
+"                   may not have default values or supplied-p ~\n"
+"                   parameters: ~<~s~>"
+msgstr ""
+"Optionalway andway eykay arameterspay ofway enericgay unctionsfay ~\n"
+"                   aymay otnay avehay efaultday aluesvay orway uppliedsay-p "
+"~\n"
+"                   arameterspay: ~<~s~>"
+
+#: target:pcl/boot.lisp
+msgid "~s is not allowed in generic function lambda lists"
+msgstr "~s isway otnay allowedway inway enericgay unctionfay ambdalay istslay"
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~~s: ~?.~~@:>"
+msgstr "~~@<Enericgay unctionfay ~~s: ~?.~~@:>"
+
+#: target:pcl/boot.lisp
+msgid "The option ~s appears more than once"
+msgstr "Ethay optionway ~s appearsway oremay anthay onceway"
+
+#: target:pcl/boot.lisp
+msgid "Declaration specifier ~s is not allowed"
+msgstr "Eclarationday ecifierspay ~s isway otnay allowedway"
+
+#: target:pcl/boot.lisp
+msgid ""
+"Argument precedence order must list all ~\n"
+"                           required parameters and only those: ~s"
+msgstr ""
+"Argumentway ecedencepray orderway ustmay istlay allway ~\n"
+"                           equiredray arameterspay andway onlyway osethay: ~s"
+
+#: target:pcl/boot.lisp
+msgid ""
+"Duplicate parameter names in argument ~\n"
+"                           precedence order: ~s"
+msgstr ""
+"Uplicateday arameterpay amesnay inway argumentway ~\n"
+"                           ecedencepray orderway: ~s"
+
+#: target:pcl/boot.lisp
+msgid "Special operators cannot be made generic functions"
+msgstr "Ecialspay operatorsway annotcay ebay ademay enericgay unctionsfay"
+
+#: target:pcl/boot.lisp
+msgid "Unsupported option ~s"
+msgstr "Unsupportedway optionway ~s"
+
+#: target:pcl/boot.lisp
+msgid "If true, allow inlining of methods in effective methods."
+msgstr ""
+"Ifway uetray, allowway inliningway ofway ethodsmay inway effectiveway "
+"ethodsmay."
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<Defining method ~s ~s ~s using inline slot access in a ~\n"
+"                   non-null lexical environment means that it cannot be ~\n"
+"                   automatically recompiled.~@:>"
+msgstr ""
+"~@<Efiningday ethodmay ~s ~s ~s usingway inlineway otslay accessway inway "
+"away ~\n"
+"                   onnay-ullnay exicallay environmentway eansmay atthay "
+"itway annotcay ebay ~\n"
+"                   automaticallyway ecompiledray.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"The method-lambda argument to make-method-function, ~S,~\n"
+"            is not a lambda form"
+msgstr ""
+"Ethay ethodmay-ambdalay argumentway otay akemay-ethodmay-unctionfay, ~S,~\n"
+"            isway otnay away ambdalay ormfay"
+
+#: target:pcl/boot.lisp
+msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
+msgstr ""
+"~@<Ethay ~s argumentway otay ~s, ~s, isway otnay away ambdalay ormfay.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"Assignment to method parameter~p ~{~s~^, ~} ~\n"
+"                           might prevent CLOS optimizations"
+msgstr ""
+"Assignmentway otay ethodmay arameterpay~p ~{~s~^, ~} ~\n"
+"                           ightmay eventpray CLOS optimizationsway"
+
+#: target:pcl/boot.lisp
+msgid "Wrong number of args."
+msgstr "Ongwray umbernay ofway argsway."
+
+#: target:pcl/boot.lisp
+msgid "1 or 2 args expected."
+msgstr "1 orway 2 argsway expectedway."
+
+#: target:pcl/boot.lisp
+msgid "1 arg expected."
+msgstr "1 argway expectedway."
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The set of methods ~s applicable to argument~p ~\n"
+"                ~{~s~^, ~} to call-next-method is different from ~\n"
+"                the set of methods ~s applicable to the original ~\n"
+"                method argument~p ~{~s~^, ~}.~@:>"
+msgstr ""
+"~@<Ethay etsay ofway ethodsmay ~s applicableway otay argumentway~p ~\n"
+"                ~{~s~^, ~} otay allcay-extnay-ethodmay isway ifferentday "
+"omfray ~\n"
+"                ethay etsay ofway ethodsmay ~s applicableway otay ethay "
+"originalway ~\n"
+"                ethodmay argumentway~p ~{~s~^, ~}.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "When true, compile interpreted method functions."
+msgstr "Enwhay uetray, ompilecay interpretedway ethodmay unctionsfay."
+
+#: target:pcl/boot.lisp
+msgid ""
+"~&~@<At the time the method with qualifiers ~S and ~\n"
+"               specializers ~S on the generic function ~S ~\n"
+"               was compiled, the method class for that generic function was "
+"~\n"
+"               ~S.  But, the method class is now ~S, this ~\n"
+"               may mean that this method was compiled improperly.~@:>"
+msgstr ""
+"~&~@<Atway ethay imetay ethay ethodmay ithway alifiersquay ~S andway ~\n"
+"               ecializersspay ~S onway ethay enericgay unctionfay ~S ~\n"
+"               asway ompiledcay, ethay ethodmay assclay orfay atthay "
+"enericgay unctionfay asway ~\n"
+"               ~S.  Utbay, ethay ethodmay assclay isway ownay ~S, isthay ~\n"
+"               aymay eanmay atthay isthay ethodmay asway ompiledcay "
+"improperlyway.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S already names an ordinary function or a macro.  ~\n"
+"\tIf you want to replace it with a generic function, you should remove ~\n"
+"        the existing definition beforehand.~@:>"
+msgstr ""
+"~@<~S alreadyway amesnay anway ordinaryway unctionfay orway away acromay.  "
+"~\n"
+"\tIfway ouyay antway otay eplaceray itway ithway away enericgay unctionfay, "
+"ouyay ouldshay emoveray ~\n"
+"        ethay existingway efinitionday eforehandbay.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "~@<Discard the existing definition of ~S.~@:>"
+msgstr "~@<Iscardday ethay existingway efinitionday ofway ~S.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The lambda-list ~S is incompatible with ~\n"
+"                      existing methods of ~S.~@:>"
+msgstr ""
+"~@<Ethay ambdalay-istlay ~S isway incompatibleway ithway ~\n"
+"                      existingway ethodsmay ofway ~S.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~~@<Attempt to add the method ~~S to the generic ~\n"
+"                           function ~~S, but ~?.~~@:>"
+msgstr ""
+"~~@<Attemptway otay addway ethay ethodmay ~~S otay ethay enericgay ~\n"
+"                           unctionfay ~~S, utbay ~?.~~@:>"
+
+#: target:pcl/boot.lisp
+msgid "more"
+msgstr "oremay"
+
+#: target:pcl/boot.lisp
+msgid "fewer"
+msgstr "ewerfay"
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~A required arguments than the ~\n"
+"                 generic function"
+msgstr ""
+"ethay ethodmay ashay ~Away equiredray argumentsway anthay ethay ~\n"
+"                 enericgay unctionfay"
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~S optional arguments than the ~\n"
+"                 generic function"
+msgstr ""
+"ethay ethodmay ashay ~S optionalway argumentsway anthay ethay ~\n"
+"                 enericgay unctionfay"
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method and generic function differ in whether ~\n"
+"                 they accept rest or keyword arguments"
+msgstr ""
+"ethay ethodmay andway enericgay unctionfay ifferday inway etherwhay ~\n"
+"                 eythay acceptway estray orway eywordkay argumentsway"
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method does not accept each of the keyword ~\n"
+"                   arguments ~S"
+msgstr ""
+"ethay ethodmay oesday otnay acceptway eachway ofway ethay eywordkay ~\n"
+"                   argumentsway ~S"
+
+#: target:pcl/boot.lisp
+msgid "~@<The function ~S is not already defined.~@:>"
+msgstr "~@<Ethay unctionfay ~S isway otnay alreadyway efinedday.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "~@<~S should be on the list ~S.~@:>"
+msgstr "~@<~S ouldshay ebay onway ethay istlay ~S.~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"\t\t\t has not been set.~@:>"
+msgstr ""
+"~@<Ethay unctionfay ofway ethay uncallablefay instanceway ~S ~\n"
+"\t\t\t ashay otnay eenbay etsay.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "~@<No way to determine the lambda list~@:>"
+msgstr "~@<Onay ayway otay etermineday ethay ambdalay istlay~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The ~s argument (~S) was neither a class nor a ~\n"
+"                    symbol naming a class.~@:>"
+msgstr ""
+"~@<Ethay ~s argumentway (~S) asway eithernay away assclay ornay away ~\n"
+"                    ymbolsay amingnay away assclay.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "~S is not an early-method."
+msgstr "~S isway otnay anway earlyway-ethodmay."
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get a funcallable instance."
+msgstr ""
+"Earlyway addway-ethodmay idnday't etgay away uncallablefay instanceway."
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get an early method."
+msgstr "Earlyway addway-ethodmay idnday't etgay anway earlyway ethodmay."
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get a funcallable instance."
+msgstr ""
+"Earlyway emoveray-ethodmay idnday't etgay away uncallablefay instanceway."
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get an early method."
+msgstr "Earlyway emoveray-ethodmay idnday't etgay anway earlyway ethodmay."
+
+#: target:pcl/boot.lisp
+msgid "Can't get early method."
+msgstr "Ancay't etgay earlyway ethodmay."
+
+#: target:pcl/boot.lisp
+msgid "~@<Qualifiers must be non-null atoms: ~s~@:>"
+msgstr "~@<Alifiersquay ustmay ebay onnay-ullnay atomsway: ~s~@:>"
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S used as a specializer, ~\n"
+"                             but is not the name of a class.~@:>"
+msgstr ""
+"~@<~S usedway asway away ecializerspay, ~\n"
+"                             utbay isway otnay ethay amenay ofway away "
+"assclay.~@:>"
+
+#: target:pcl/boot.lisp
+msgid "~S is not a legal specializer."
+msgstr "~S isway otnay away egallay ecializerspay."
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Set to true to activate the inline slot access optimization."
+msgstr ""
+"Etsay otay uetray otay activateway ethay inlineway otslay accessway "
+"optimizationway."
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, check slot values against specified slot types."
+msgstr ""
+"Enwhay uetray, eckchay otslay aluesvay againstway ecifiedspay otslay ypestay."
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, optimize slot access through slot reader/writer functions."
+msgstr ""
+"Enwhay uetray, optimizeway otslay accessway roughthay otslay eaderray/"
+"iterwray unctionsfay."
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Cannot optimize slot access to"
+msgstr "Annotcay optimizeway otslay accessway otay"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not a standard class"
+msgstr "Ethay assclay isway otnay away tandardsay assclay"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class doesn't contain a slot with name ~s"
+msgstr "Ethay assclay oesnday't ontaincay away otslay ithway amenay ~s"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Slot ~s is a class slot"
+msgstr "Otslay ~s isway away assclay otslay"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "There are non-standard accessors for slot ~s"
+msgstr "Erethay areway onnay-tandardsay accessorsway orfay otslay ~s"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Slot ~s is not at the same location ~\n"
+"                               in the class and all of its subclasses"
+msgstr ""
+"Otslay ~s isway otnay atway ethay amesay ocationlay ~\n"
+"                               inway ethay assclay andway allway ofway "
+"itsway ubclassessay"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Auto-compiling method ~s."
+msgstr "Autoway-ompilingcay ethodmay ~s."
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Methods may need to be recompiled for the changed ~\n"
+"                    class layout of"
+msgstr ""
+"Ethodsmay aymay eednay otay ebay ecompiledray orfay ethay angedchay ~\n"
+"                    assclay ayoutlay ofway"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not defined at compile time"
+msgstr "Ethay assclay isway otnay efinedday atway ompilecay imetay"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"~s has a method that is not a standard ~\n"
+"                                    slot accessor"
+msgstr ""
+"~s ashay away ethodmay atthay isway otnay away tandardsay ~\n"
+"                                    otslay accessorway"
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Methods of ~s access different slots"
+msgstr "Ethodsmay ofway ~s accessway ifferentday otsslay"
+
+#: target:pcl/slots-boot.lisp
+msgid "~@<~S is not a standard-class.~@:>"
+msgstr "~@<~S isway otnay away tandardsay-assclay.~@:>"
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                       does not have standard allocation.~@:>"
+msgstr ""
+"~@<Otslay ~S inway assclay ~S ~\n"
+"                       oesday otnay avehay tandardsay allocationway.~@:>"
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                      does not have standard allocation.~@:>"
+msgstr ""
+"~@<Otslay ~S inway assclay ~S ~\n"
+"                      oesday otnay avehay tandardsay allocationway.~@:>"
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<The wrapper for class ~S does not have ~\n"
+"                               the slot ~S.~@:>"
+msgstr ""
+"~@<Ethay apperwray orfay assclay ~S oesday otnay avehay ~\n"
+"                               ethay otslay ~S.~@:>"
+
+#: target:pcl/defcombin.lisp target:pcl/combin.lisp
+msgid "has more than one qualifier"
+msgstr "ashay oremay anthay oneway alifierquay"
+
+#: target:pcl/combin.lisp
+msgid "has an invalid qualifier"
+msgstr "ashay anway invalidway alifierquay"
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<~s was called outside the dynamic scope ~\n"
+"            of a method combination function (inside the body of ~\n"
+"            ~s or a method on the generic function ~s).~@:>"
+msgstr ""
+"~@<~s asway alledcay outsideway ethay ynamicday opescay ~\n"
+"            ofway away ethodmay ombinationcay unctionfay (insideway ethay "
+"odybay ofway ~\n"
+"            ~s orway away ethodmay onway ethay enericgay unctionfay ~s).~@:>"
+
+#: target:pcl/combin.lisp
+msgid "~@<~S used outside of a effective method form.~@:>"
+msgstr "~@<~S usedway outsideway ofway away effectiveway ethodmay ormfay.~@:>"
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<Invalid keyword argument~p ~{~s~^, ~}.  ~\n"
+"               Valid keywords are: ~{~s~^, ~}.~@:>"
+msgstr ""
+"~@<Invalidway eywordkay argumentway~p ~{~s~^, ~}.  ~\n"
+"               Alidvay eywordskay areway: ~{~s~^, ~}.~@:>"
+
+#: target:pcl/combin.lisp
+msgid "Invalid keyword argument ~s"
+msgstr "Invalidway eywordkay argumentway ~s"
+
+#: target:pcl/dfun.lisp
+msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
+msgstr "~@<Otslay ~s ofway assclay ~s isway unboundway inway objectway ~s~@:>"
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Cannot get standard value of slot ~s of class ~s ~\n"
+"                in object ~s~@:>"
+msgstr ""
+"~@<Annotcay etgay tandardsay aluevay ofway otslay ~s ofway assclay ~s ~\n"
+"                inway objectway ~s~@:>"
+
+#: target:pcl/dfun.lisp
+msgid "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
+msgstr "~&Amenay ~S  achingcay ostcay ~D  ispatchday ostcay ~D~%"
+
+#: target:pcl/dfun.lisp
+msgid ""
+"Precompute effective methods at method load time if the generic\n"
+"   function has less than this number of methods.  If zero,\n"
+"   no effective methods are precomputed at method load time."
+msgstr ""
+"Ecomputepray effectiveway ethodsmay atway ethodmay oadlay imetay ifway ethay "
+"enericgay\n"
+"   unctionfay ashay esslay anthay isthay umbernay ofway ethodsmay.  Ifway "
+"erozay,\n"
+"   onay effectiveway ethodsmay areway ecomputedpray atway ethodmay oadlay "
+"imetay."
+
+#: target:pcl/dfun.lisp
+msgid "~@<The function ~S requires at least ~D arguments.~@:>"
+msgstr "~@<Ethay unctionfay ~S equiresray atway eastlay ~D argumentsway.~@:>"
+
+#: target:pcl/dfun.lisp
+msgid "~<The function ~S requires at least ~D arguments.~@:>"
+msgstr "~<Ethay unctionfay ~S equiresray atway eastlay ~D argumentsway.~@:>"
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Vicious metacircle:  The computation of an ~\n"
+"\t   effective method of ~s for arguments of types ~s uses ~\n"
+"\t   the effective method being computed.~@:>"
+msgstr ""
+"~@<Iciousvay etacirclemay:  Ethay omputationcay ofway anway ~\n"
+"\t   effectiveway ethodmay ofway ~s orfay argumentsway ofway ypestay ~s "
+"usesway ~\n"
+"\t   ethay effectiveway ethodmay eingbay omputedcay.~@:>"
+
+#: target:pcl/dfun.lisp
+msgid "This can't happen."
+msgstr "Isthay ancay't appenhay."
+
+#: target:pcl/dfun.lisp
+msgid "~@<~s cannot handle the second argument ~s.~@:>"
+msgstr "~@<~s annotcay andlehay ethay econdsay argumentway ~s.~@:>"
+
+#: target:pcl/dfun.lisp
+msgid "~&There are ~4d dfuns of type ~s"
+msgstr "~&Erethay areway ~4d funsday ofway ypetay ~s"
+
+#: target:pcl/dfun.lisp
+msgid "~&DFUN constructor caching is ~A."
+msgstr "~&DFUN onstructorcay achingcay isway ~Away."
+
+#: target:pcl/dfun.lisp
+msgid "enabled"
+msgstr "enabledway"
+
+#: target:pcl/dfun.lisp
+msgid "disabled"
+msgstr "isabledday"
+
+#: target:pcl/ctor.lisp
+msgid "~@<Not a property list: ~S.~@:>"
+msgstr "~@<Otnay away opertypray istlay: ~S.~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"                 has not been set.~@:>"
+msgstr ""
+"~@<Ethay unctionfay ofway ethay uncallablefay instanceway ~S ~\n"
+"                 ashay otnay eenbay etsay.~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Slot allocation ~S is not supported ~\n"
+"                          in bootstrap.~@:>"
+msgstr ""
+"~@<Otslay allocationway ~S isway otnay upportedsay ~\n"
+"                          inway ootstrapbay.~@:>"
+
+#: target:pcl/braid.lisp
+msgid "The standard method combination."
+msgstr "Ethay tandardsay ethodmay ombinationcay."
+
+#: target:pcl/braid.lisp
+msgid ""
+"In *built-in-classes*: ~S has ~S as a superclass,~%~\n"
+"                but ~S is not itself a class in *built-in-classes*."
+msgstr ""
+"Inway *built-in-classes*: ~S ashay ~S asway away uperclasssay,~%~\n"
+"                utbay ~S isway otnay itselfway away assclay inway *built-in-"
+"classes*."
+
+#: target:pcl/braid.lisp
+msgid "~@<~S is not the name of a class.~@:>"
+msgstr "~@<~S isway otnay ethay amenay ofway away assclay.~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<No matching method for the generic function ~\n"
+"                             ~S, when called with arguments ~S.~@:>"
+msgstr ""
+"~@<Onay atchingmay ethodmay orfay ethay enericgay unctionfay ~\n"
+"                             ~S, enwhay alledcay ithway argumentsway ~S.~@:>"
+
+#: target:pcl/braid.lisp
+msgid "Retry call to ~S."
+msgstr "Etryray allcay otay ~S."
+
+#: target:pcl/braid.lisp
+msgid "~@<In method ~S: No next method for arguments ~S.~@:>"
+msgstr "~@<Inway ethodmay ~S: Onay extnay ethodmay orfay argumentsway ~S.~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Generic function ~S: ~\n"
+"                             No primary method given arguments ~S~@:>"
+msgstr ""
+"~@<Enericgay unctionfay ~S: ~\n"
+"                             Onay imarypray ethodmay ivengay argumentsway "
+"~S~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The method ~s has invalid qualifiers for method ~\n"
+"              combination ~s.~@:>"
+msgstr ""
+"~@<Inway away allcay otay ~s ithway argumentsway ~:s: ~\n"
+"              Ethay ethodmay ~s ashay invalidway alifiersquay orfay ethodmay "
+"~\n"
+"              ombinationcay ~s.~@:>"
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The methods ~{~s~^, ~} have invalid qualifiers for ~\n"
+"              method combination ~s.~@:>"
+msgstr ""
+"~@<Inway away allcay otay ~s ithway argumentsway ~:s: ~\n"
+"              Ethay ethodsmay ~{~s~^, ~} avehay invalidway alifiersquay "
+"orfay ~\n"
+"              ethodmay ombinationcay ~s.~@:>"
+
+#: target:pcl/slots.lisp
+msgid "~@<The slot ~S is unbound in the object ~S.~@:>"
+msgstr "~@<Ethay otslay ~S isway unboundway inway ethay objectway ~S.~@:>"
+
+#: target:pcl/slots.lisp
+msgid "is not a symbol and so cannot be bound"
+msgstr "isway otnay away ymbolsay andway osay annotcay ebay oundbay"
+
+#: target:pcl/slots.lisp
+msgid "is a keyword and so cannot be bound"
+msgstr "isway away eywordkay andway osay annotcay ebay oundbay"
+
+#: target:pcl/slots.lisp
+msgid "cannot be bound"
+msgstr "annotcay ebay oundbay"
+
+#: target:pcl/slots.lisp
+msgid "is a constant and so cannot be bound"
+msgstr "isway away onstantcay andway osay annotcay ebay oundbay"
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default ~s "
+"~\n"
+"                           method.~@:>"
+msgstr ""
+"~@<Ethay otslay ~s ashay eithernay ~s ornay ~s ~\n"
+"                           allocationway, osay itway ancay't ebay eadray "
+"ybay ethay efaultday ~s ~\n"
+"                           ethodmay.~@:>"
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s allocation, ~\n"
+"               so it can't be written by the default ~s method.~@:>"
+msgstr ""
+"~@<Ethay otslay ~s ashay eithernay ~s ornay ~s allocationway, ~\n"
+"               osay itway ancay't ebay ittenwray ybay ethay efaultday ~s "
+"ethodmay.~@:>"
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default ~s "
+"~\n"
+"\t\t\t   method.~@:>"
+msgstr ""
+"~@<Ethay otslay ~s ashay eithernay ~s ornay ~s ~\n"
+"                           allocationway, osay itway ancay't ebay eadray "
+"ybay ethay efaultday ~s ~\n"
+"\t\t\t   ethodmay.~@:>"
+
+#: target:pcl/slots.lisp
+msgid "Structure slots cannot be unbound."
+msgstr "Ucturestray otsslay annotcay ebay unboundway."
+
+#: target:pcl/slots.lisp
+msgid "Condition slots cannot be unbound."
+msgstr "Onditioncay otsslay annotcay ebay unboundway."
+
+#: target:pcl/slots.lisp
+msgid ""
+"~~@<When attempting to ~A, the slot ~S is missing ~\n"
+"                from the object ~S.~~@:>"
+msgstr ""
+"~~@<Enwhay attemptingway otay ~Away, ethay otslay ~S isway issingmay ~\n"
+"                omfray ethay objectway ~S.~~@:>"
+
+#: target:pcl/slots.lisp
+msgid "read the slot's value (slot-value)"
+msgstr "eadray ethay otslay's aluevay (otslay-aluevay)"
+
+#: target:pcl/slots.lisp
+msgid "set the slot's value to ~S (setf of slot-value)"
+msgstr "etsay ethay otslay's aluevay otay ~S (etfsay ofway otslay-aluevay)"
+
+#: target:pcl/slots.lisp
+msgid "test to see if slot is bound (slot-boundp)"
+msgstr "esttay otay eesay ifway otslay isway oundbay (otslay-oundpbay)"
+
+#: target:pcl/slots.lisp
+msgid "make the slot unbound (slot-makunbound)"
+msgstr "akemay ethay otslay unboundway (otslay-akunboundmay)"
+
+#: target:pcl/slots.lisp
+msgid "~@<Can't allocate an instance of class ~S.~@:>"
+msgstr "~@<Ancay't allocateway anway instanceway ofway assclay ~S.~@:>"
+
+#: target:pcl/init.lisp
+msgid ""
+"~@<Invalid initialization argument~P ~2I~_~\n"
+"                         ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
+msgstr ""
+"~@<Invalidway initializationway argumentway~P ~2Iway~_~\n"
+"                         ~<~{~S~^, ~}~@:> ~Iway~_inway allcay orfay assclay "
+"~S.~:>"
+
+#: target:pcl/seal.lisp
+msgid "~@<Invalid sealing specifier ~s.~@:>"
+msgstr "~@<Invalidway ealingsay ecifierspay ~s.~@:>"
+
+#: target:pcl/seal.lisp
+msgid "~s is sealed wrt ~a"
+msgstr "~s isway ealedsay twray ~away"
+
+#: target:pcl/cpl.lisp
+msgid ""
+"~~@<While computing the class precedence list ~\n"
+"                of the class ~A: ~?.~~@:>"
+msgstr ""
+"~~@<Ilewhay omputingcay ethay assclay ecedencepray istlay ~\n"
+"                ofway ethay assclay ~Away: ~?.~~@:>"
+
+#: target:pcl/cpl.lisp
+msgid "named ~S"
+msgstr "amednay ~S"
+
+#: target:pcl/cpl.lisp
+msgid "The class ~A is a forward referenced class"
+msgstr "Ethay assclay ~Away isway away orwardfay eferencedray assclay"
+
+#: target:pcl/cpl.lisp
+msgid ""
+"The class ~A is a forward referenced class. ~\n"
+"                      The class ~A is ~A."
+msgstr ""
+"Ethay assclay ~Away isway away orwardfay eferencedray assclay. ~\n"
+"                      Ethay assclay ~Away isway ~Away."
+
+#: target:pcl/cpl.lisp
+msgid "a direct superclass of the class ~A"
+msgstr "away irectday uperclasssay ofway ethay assclay ~Away"
+
+#: target:pcl/cpl.lisp
+msgid ""
+"reached from the class ~A by following~@\n"
+"                                  the direct superclass chain through: ~A~\n"
+"                                  ~%  ending at the class ~A"
+msgstr ""
+"eachedray omfray ethay assclay ~Away ybay ollowingfay~@\n"
+"                                  ethay irectday uperclasssay ainchay "
+"roughthay: ~Away~\n"
+"                                  ~%  endingway atway ethay assclay ~Away"
+
+#: target:pcl/cpl.lisp
+msgid "~{~%  the class ~A,~}"
+msgstr "~{~%  ethay assclay ~Away,~}"
+
+#: target:pcl/cpl.lisp
+msgid ""
+"It is not possible to compute the class precedence list because ~\n"
+"       there ~A in the local precedence relations.  ~\n"
+"       ~A because:~{~%  ~A~}."
+msgstr ""
+"Itway isway otnay ossiblepay otay omputecay ethay assclay ecedencepray "
+"istlay ecausebay ~\n"
+"       erethay ~Away inway ethay ocallay ecedencepray elationsray.  ~\n"
+"       ~Away ecausebay:~{~%  ~Away~}."
+
+#: target:pcl/cpl.lisp
+msgid "are circularities"
+msgstr "areway ircularitiescay"
+
+#: target:pcl/cpl.lisp
+msgid "is a circularity"
+msgstr "isway away ircularitycay"
+
+#: target:pcl/cpl.lisp
+msgid "These arise"
+msgstr "Esethay ariseway"
+
+#: target:pcl/cpl.lisp
+msgid "This arises"
+msgstr "Isthay arisesway"
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A appears in the supers of the class ~A"
+msgstr ""
+"ethay assclay ~Away appearsway inway ethay uperssay ofway ethay assclay ~Away"
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A follows the class ~A in the supers of the class ~A"
+msgstr ""
+"ethay assclay ~Away ollowsfay ethay assclay ~Away inway ethay uperssay ofway "
+"ethay assclay ~Away"
+
+#: target:pcl/methods.lisp
+msgid "Instance"
+msgstr "Instanceway"
+
+#: target:pcl/methods.lisp
+msgid "~@<Structure slots must have ~s allocation.~@:>"
+msgstr "~@<Ucturestray otsslay ustmay avehay ~s allocationway.~@:>"
+
+#: target:pcl/methods.lisp
+msgid "~@<~S doesn't seem to have a method function.~@:>"
+msgstr "~@<~S oesnday't eemsay otay avehay away ethodmay unctionfay.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Attempt to reinitialize the method ~S.  ~\n"
+"          Method objects cannot be reinitialized.~@:>"
+msgstr ""
+"~@<Attemptway otay einitializeray ethay ethodmay ~S.  ~\n"
+"          Ethodmay objectsway annotcay ebay einitializedray.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<When initializing the method ~S, ~\n"
+"                   the ~S initialization argument was ~S, ~\n"
+"                   which ~A.~@:>"
+msgstr ""
+"~@<Enwhay initializingway ethay ethodmay ~S, ~\n"
+"                   ethay ~S initializationway argumentway asway ~S, ~\n"
+"                   ichwhay ~Away.~@:>"
+
+#: target:pcl/methods.lisp
+msgid "is not a string or NULL"
+msgstr "isway otnay away ingstray orway NULL"
+
+#: target:pcl/methods.lisp
+msgid "is not a function"
+msgstr "isway otnay away unctionfay"
+
+#: target:pcl/methods.lisp
+msgid "Contains ~S which ~A"
+msgstr "Ontainscay ~S ichwhay ~Away"
+
+#: target:pcl/methods.lisp
+msgid "is not a non-null atom"
+msgstr "isway otnay away onnay-ullnay atomway"
+
+#: target:pcl/methods.lisp
+msgid "is neither a class object nor an eql specializer"
+msgstr ""
+"isway eithernay away assclay objectway ornay anway eqlway ecializerspay"
+
+#: target:pcl/methods.lisp
+msgid "The value of the ~s initarg, ~s, ~A."
+msgstr "Ethay aluevay ofway ethay ~s initargway, ~s, ~Away."
+
+#: target:pcl/methods.lisp
+msgid ""
+"~~@<When initializing the generic-function ~S: ~\n"
+"                               The ~S initialization argument was ~A.  ~\n"
+"                               It must be ~A.~~@:>"
+msgstr ""
+"~~@<Enwhay initializingway ethay enericgay-unctionfay ~S: ~\n"
+"                               Ethay ~S initializationway argumentway asway "
+"~Away.  ~\n"
+"                               Itway ustmay ebay ~Away.~~@:>"
+
+#: target:pcl/methods.lisp
+msgid "~@<~S does not name a generic function.~@:>"
+msgstr "~@<~S oesday otnay amenay away enericgay unctionfay.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<There is no method for the generic function ~S ~\n"
+"                   matching argument specifiers ~S.~@:>"
+msgstr ""
+"~@<Erethay isway onay ethodmay orfay ethay enericgay unctionfay ~S ~\n"
+"                   atchingmay argumentway ecifiersspay ~S.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"           specializers ~S.~@:>"
+msgstr ""
+"~@<Onay ethodmay onway ~S ithway alifiersquay ~S andway ~\n"
+"           ecializersspay ~S.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"            specializers ~S.~@:>"
+msgstr ""
+"~@<Onay ethodmay onway ~S ithway alifiersquay ~S andway ~\n"
+"            ecializersspay ~S.~@:>"
+
+#: target:pcl/methods.lisp
+msgid "~@<The generic function ~s takes ~d required argument~p.~@:>"
+msgstr ""
+"~@<Ethay enericgay unctionfay ~s akestay ~d equiredray argumentway~p.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<The method ~S is already part of the generic ~\n"
+"            function ~S.  It can't be added to another generic ~\n"
+"            function until it is removed from the first one.~@:>"
+msgstr ""
+"~@<Ethay ethodmay ~S isway alreadyway artpay ofway ethay enericgay ~\n"
+"            unctionfay ~S.  Itway ancay't ebay addedway otay anotherway "
+"enericgay ~\n"
+"            unctionfay untilway itway isway emovedray omfray ethay irstfay "
+"oneway.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                        the standard method combination.~@:>"
+msgstr ""
+"~@<Ethodmay ~s ontainscay invalidway alifiersquay orfay ~\n"
+"                        ethay tandardsay ethodmay ombinationcay.~@:>"
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                          the method combination ~s.~@:>"
+msgstr ""
+"~@<Ethodmay ~s ontainscay invalidway alifiersquay orfay ~\n"
+"                          ethay ethodmay ombinationcay ~s.~@:>"
+
+#: target:pcl/methods.lisp
+msgid "~@<Generic function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+"~@<Enericgay unctionfay ~S equiresray atway eastlay ~D argumentsway.~@:>"
+
+#: target:pcl/methods.lisp
+msgid "In get-accessor-method-function."
+msgstr "Inway etgay-accessorway-ethodmay-unctionfay."
+
+#: target:pcl/methods.lisp
+msgid "The key for the last case arg to mcase was not T."
+msgstr ""
+"Ethay eykay orfay ethay astlay asecay argway otay casemay asway otnay T."
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<Invalid options to a short method combination type.  ~\n"
+"            The method combination type ~S accepts one option which ~\n"
+"            must be either ~s or ~s.~@:>"
+msgstr ""
+"~@<Invalidway optionsway otay away ortshay ethodmay ombinationcay ypetay.  "
+"~\n"
+"            Ethay ethodmay ombinationcay ypetay ~S acceptsway oneway "
+"optionway ichwhay ~\n"
+"            ustmay ebay eitherway ~s orway ~s.~@:>"
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<The method ~S ~A.  ~\n"
+"                    The method combination type ~S was defined with the ~\n"
+"                    short form of ~s and so requires all methods have ~\n"
+"\t\t    either the single qualifier ~S or the single qualifier ~\n"
+"\t\t    ~s.~@:>"
+msgstr ""
+"~@<Ethay ethodmay ~S ~Away.  ~\n"
+"                    Ethay ethodmay ombinationcay ypetay ~S asway efinedday "
+"ithway ethay ~\n"
+"                    ortshay ormfay ofway ~s andway osay equiresray allway "
+"ethodsmay avehay ~\n"
+"\t\t    eitherway ethay inglesay alifierquay ~S orway ethay inglesay "
+"alifierquay ~\n"
+"\t\t    ~s.~@:>"
+
+#: target:pcl/defcombin.lisp
+msgid "has no qualifiers"
+msgstr "ashay onay alifiersquay"
+
+#: target:pcl/defcombin.lisp
+msgid "has an illegal qualifier"
+msgstr "ashay anway illegalway alifierquay"
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<More than one method of type ~S ~\n"
+"                                     with the same specializers.~@:>"
+msgstr ""
+"~@<Oremay anthay oneway ethodmay ofway ypetay ~S ~\n"
+"                                     ithway ethay amesay ecializersspay.~@:>"
+
+#: target:pcl/defcombin.lisp
+msgid "No ~S methods."
+msgstr "Onay ~S ethodsmay."
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<In the method group specifier ~S, ~\n"
+"                   ~S isn't a valid qualifier pattern.~@:>"
+msgstr ""
+"~@<Inway ethay ethodmay oupgray ecifierspay ~S, ~\n"
+"                   ~S isnway't away alidvay alifierquay atternpay.~@:>"
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching one of the patterns: ~{~S, ~} ~S"
+msgstr "ethodsmay atchingmay oneway ofway ethay atternspay: ~{~S, ~} ~S"
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching the pattern: ~S"
+msgstr "ethodsmay atchingmay ethay atternpay: ~S"
+
+#: target:pcl/defcombin.lisp
+msgid "Invalid parameter specifier: ~s"
+msgstr "Invalidway arameterpay ecifierspay: ~s"
+
+#: target:pcl/env.lisp
+msgid "~%~S is an instance of class ~S:"
+msgstr "~%~S isway anway instanceway ofway assclay ~S:"
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :INSTANCE allocation:"
+msgstr "~% Ethay ollowingfay otsslay avehay :INSTANCE allocationway:"
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :CLASS allocation:"
+msgstr "~% Ethay ollowingfay otsslay avehay :CLASS allocationway:"
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have allocation as shown:"
+msgstr "~% Ethay ollowingfay otsslay avehay allocationway asway ownshay:"
+
+#: target:pcl/env.lisp
+msgid "~A is a generic function.~%"
+msgstr "~Away isway away enericgay unctionfay.~%"
+
+#: target:pcl/env.lisp
+msgid "Its lambda-list is:~%  ~S~%"
+msgstr "Itsway ambdalay-istlay isway:~%  ~S~%"
+
+#: target:pcl/env.lisp
+msgid "Generic function documentation:~%  ~s~%"
+msgstr "Enericgay unctionfay ocumentationday:~%  ~s~%"
+
+#: target:pcl/env.lisp
+msgid "Its methods are:~%"
+msgstr "Itsway ethodsmay areway:~%"
+
+#: target:pcl/env.lisp
+msgid "    Method documentation: ~s~%"
+msgstr "    Ethodmay ocumentationday: ~s~%"
+
+#: target:pcl/env.lisp
+msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
+msgstr ""
+"~&~@<~S isway away assclay, itway isway anway instanceway ofway ~S.~@:>~%"
+
+#: target:pcl/env.lisp
+msgid "Its proper name is ~S.~%"
+msgstr "Itsway operpray amenay isway ~S.~%"
+
+#: target:pcl/env.lisp
+msgid "Its name is ~S, but this is not a proper name.~%"
+msgstr ""
+"Itsway amenay isway ~S, utbay isthay isway otnay away operpray amenay.~%"
+
+#: target:pcl/env.lisp
+msgid "It has no name (the name is NIL).~%"
+msgstr "Itway ashay onay amenay (ethay amenay isway NIL).~%"
+
+#: target:pcl/env.lisp
+msgid ""
+"The direct superclasses are: ~:S, and the direct~%~\n"
+"           subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~\n"
+"           The class precedence list is:~%~S~%~\n"
+"           There are ~D methods specialized for this class."
+msgstr ""
+"Ethay irectday uperclassessay areway: ~:S, andway ethay irectday~%~\n"
+"           ubclassessay areway: ~:S.  Ethay assclay isway ~:[otnay ~;~]"
+"inalizedfay.  ~\n"
+"           Ethay assclay ecedencepray istlay isway:~%~S~%~\n"
+"           Erethay areway ~D ethodsmay ecializedspay orfay isthay assclay."
+
+#: target:pcl/env.lisp
+msgid "~&Its direct slots are:~%"
+msgstr "~&Itsway irectday otsslay areway:~%"
+
+#: target:pcl/env.lisp
+msgid "  ~a, documentation ~s~%"
+msgstr "  ~away, ocumentationday ~s~%"
+
+#: target:pcl/env.lisp
+msgid "~&~S is a ~S.~%"
+msgstr "~&~S isway away ~S.~%"
+
+#: target:pcl/env.lisp
+msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
+msgstr "Ouyay ancay alsoway allcay itway~@[ ~{~S~^, ~} orway~] ~S.~%"
+
+#: target:pcl/env.lisp
+msgid "It has ~D internal and ~D external symbols (~D total).~%"
+msgstr ""
+"Itway ashay ~D internalway andway ~D externalway ymbolssay (~D otaltay).~%"
+
+#: target:pcl/env.lisp
+msgid "It uses the packages ~{~S~^, ~}.~%"
+msgstr "Itway usesway ethay ackagespay ~{~S~^, ~}.~%"
+
+#: target:pcl/env.lisp
+msgid "It is used by the packages ~{~S~^, ~}.~%"
+msgstr "Itway isway usedway ybay ethay ackagespay ~{~S~^, ~}.~%"
+
+#: target:pcl/env.lisp
+msgid "~&~S is an ~a hash table."
+msgstr "~&~S isway anway ~away ashhay abletay."
+
+#: target:pcl/env.lisp
+msgid "~&Its size is ~d buckets."
+msgstr "~&Itsway izesay isway ~d ucketsbay."
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-size is ~d."
+msgstr "~&Itsway ehashray-izesay isway ~d."
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-threshold is ~d."
+msgstr "~&Itsway ehashray-resholdthay isway ~d."
+
+#: target:pcl/env.lisp
+msgid "~@<Default ~s method for ~s called.~@>"
+msgstr "~@<Efaultday ~s ethodmay orfay ~s alledcay.~@>"
+
+#: target:pcl/env.lisp
+msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>"
+msgstr "~@<Ancay't umpday apperwray orfay anonymousway assclay ~S.~@:>"
+
+#: target:pcl/env.lisp
+msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
+msgstr ""
+"~@<Ancay't useway anonymousway orway undefinedway assclay asway onstantcay: "
+"~S~:@>"
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "Invalid function name ~s"
+msgstr "Invalidway unctionfay amenay ~s"
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "~@<~S is not the name of a structure type.~@:>"
+msgstr "~@<~S isway otnay ethay amenay ofway away ucturestray ypetay.~@:>"
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Returns a type specifier for the kind of object returned by the\n"
+"  Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n"
+"  which returns CHARACTER."
+msgstr ""
+"Eturnsray away ypetay ecifierspay orfay ethay indkay ofway objectway "
+"eturnedray ybay ethay\n"
+"  Eamstray. Assclay FUNDAMENTAL-CHARACTER-STREAM ovidespray away efaultday "
+"ethodmay\n"
+"  ichwhay eturnsray CHARACTER."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Return true if Stream is not closed.  A default method is provided\n"
+"  by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n"
+"  called on the stream."
+msgstr ""
+"Eturnray uetray ifway Eamstray isway otnay osedclay.  Away efaultday "
+"ethodmay isway ovidedpray\n"
+"  ybay assclay FUNDAMENTAL-STREAM ichwhay eturnsray uetray ifway CLOSE ashay "
+"otnay eenbay\n"
+"  alledcay onway ethay eamstray."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but\n"
+"  inquiries may still be made.  If :Abort is non-nil, an attempt is made\n"
+"  to clean up the side effects of having created the stream."
+msgstr ""
+"Osesclay ethay ivengay Eamstray.  Onay oremay Iway/O aymay ebay erformedpay, "
+"utbay\n"
+"  inquiriesway aymay tillsay ebay ademay.  Ifway :Abortway isway onnay-"
+"ilnay, anway attemptway isway ademay\n"
+"  otay eanclay upway ethay idesay effectsway ofway avinghay eatedcray ethay "
+"eamstray."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This reads one character from the stream.  It returns either a\n"
+"  character object, or the symbol :EOF if the stream is at end-of-file.\n"
+"  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM must define a\n"
+"  method for this function."
+msgstr ""
+"Isthay eadsray oneway aracterchay omfray ethay eamstray.  Itway eturnsray "
+"eitherway away\n"
+"  aracterchay objectway, orway ethay ymbolsay :EOF ifway ethay eamstray "
+"isway atway endway-ofway-ilefay.\n"
+"  Everyway ubclasssay ofway FUNDAMENTAL-CHARACTER-INPUT-STREAM ustmay "
+"efineday away\n"
+"  ethodmay orfay isthay unctionfay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n"
+"  Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n"
+"  must define a method for this function."
+msgstr ""
+"Unway-oesday ethay astlay allcay otay STREAM-READ-CHAR, asway inway UNREAD-"
+"CHAR.\n"
+"  Eturnsray NIL.  Everyway ubclasssay ofway FUNDAMENTAL-CHARACTER-INPUT-"
+"STREAM\n"
+"  ustmay efineday away ethodmay orfay isthay unctionfay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used to implement READ-CHAR-NO-HANG.  It returns either a\n"
+"  character, or NIL if no input is currently available, or :EOF if\n"
+"  end-of-file is reached.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-INPUT-STREAM simply calls STREAM-READ-CHAR; this\n"
+"  is sufficient for file streams, but interactive streams should define\n"
+"  their own method."
+msgstr ""
+"Isthay isway usedway otay implementway READ-CHAR-NO-HANG.  Itway eturnsray "
+"eitherway away\n"
+"  aracterchay, orway NIL ifway onay inputway isway urrentlycay availableway, "
+"orway :EOF ifway\n"
+"  endway-ofway-ilefay isway eachedray.  Ethay efaultday ethodmay ovidedpray "
+"ybay\n"
+"  FUNDAMENTAL-CHARACTER-INPUT-STREAM implysay allscay STREAM-READ-CHAR; "
+"isthay\n"
+"  isway ufficientsay orfay ilefay eamsstray, utbay interactiveway eamsstray "
+"ouldshay efineday\n"
+"  eirthay ownway ethodmay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n"
+"  It returns either a character or :EOF.  The default method calls\n"
+"  STREAM-READ-CHAR and STREAM-UNREAD-CHAR."
+msgstr ""
+"Usedway otay implementway PEEK-CHAR; isthay orrespondscay otay eekpay-ypetay "
+"ofway NIL.\n"
+"  Itway eturnsray eitherway away aracterchay orway :EOF.  Ethay efaultday "
+"ethodmay allscay\n"
+"  STREAM-READ-CHAR andway STREAM-UNREAD-CHAR."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by LISTEN.  Returns true or false.  The default method uses\n"
+"  STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should \n"
+"  define their own method since it will usually be trivial and will\n"
+"  always be more efficient than the default method."
+msgstr ""
+"Usedway ybay LISTEN.  Eturnsray uetray orway alsefay.  Ethay efaultday "
+"ethodmay usesway\n"
+"  STREAM-READ-CHAR-NO-HANG andway STREAM-UNREAD-CHAR.  Ostmay eamsstray "
+"ouldshay \n"
+"  efineday eirthay ownway ethodmay incesay itway illway usuallyway ebay "
+"ivialtray andway illway\n"
+"  alwaysway ebay oremay efficientway anthay ethay efaultday ethodmay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-LINE.  A string is returned as the first value.  The\n"
+"  second value is true if the string was terminated by end-of-file\n"
+"  instead of the end of a line.  The default method uses repeated\n"
+"  calls to STREAM-READ-CHAR."
+msgstr ""
+"Usedway ybay READ-LINE.  Away ingstray isway eturnedray asway ethay irstfay "
+"aluevay.  Ethay\n"
+"  econdsay aluevay isway uetray ifway ethay ingstray asway erminatedtay ybay "
+"endway-ofway-ilefay\n"
+"  insteadway ofway ethay endway ofway away inelay.  Ethay efaultday ethodmay "
+"usesway epeatedray\n"
+"  allscay otay STREAM-READ-CHAR."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements CLEAR-INPUT for the stream, returning NIL.  The default\n"
+"  method does nothing."
+msgstr ""
+"Implementsway CLEAR-INPUT orfay ethay eamstray, eturningray NIL.  Ethay "
+"efaultday\n"
+"  ethodmay oesday othingnay."
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements READ-SEQUENCE for the stream."
+msgstr "Implementsway READ-SEQUENCE orfay ethay eamstray."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes character to the stream and returns the character.  Every\n"
+"  subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n"
+"  defined for this function."
+msgstr ""
+"Iteswray aracterchay otay ethay eamstray andway eturnsray ethay "
+"aracterchay.  Everyway\n"
+"  ubclasssay ofway FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ustmay avehay away "
+"ethodmay\n"
+"  efinedday orfay isthay unctionfay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This function returns the column number where the next character\n"
+"  will be written, or NIL if that is not meaningful for this stream.\n"
+"  The first column on a line is numbered 0.  This function is used in\n"
+"  the implementation of PPRINT and the FORMAT ~T directive.  For every\n"
+"  character output stream class that is defined, a method must be\n"
+"  defined for this function, although it is permissible for it to\n"
+"  always return NIL."
+msgstr ""
+"Isthay unctionfay eturnsray ethay olumncay umbernay erewhay ethay extnay "
+"aracterchay\n"
+"  illway ebay ittenwray, orway NIL ifway atthay isway otnay eaningfulmay "
+"orfay isthay eamstray.\n"
+"  Ethay irstfay olumncay onway away inelay isway umberednay 0.  Isthay "
+"unctionfay isway usedway inway\n"
+"  ethay implementationway ofway PPRINT andway ethay FORMAT ~T irectiveday.  "
+"Orfay everyway\n"
+"  aracterchay outputway eamstray assclay atthay isway efinedday, away "
+"ethodmay ustmay ebay\n"
+"  efinedday orfay isthay unctionfay, althoughway itway isway ermissiblepay "
+"orfay itway otay\n"
+"  alwaysway eturnray NIL."
+
+#: target:pcl/gray-streams.lisp
+msgid "Return the stream line length or Nil."
+msgstr "Eturnray ethay eamstray inelay engthlay orway Ilnay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is a predicate which returns T if the stream is positioned at\n"
+"  the beginning of a line, else NIL.  It is permissible to always return\n"
+"  NIL.  This is used in the implementation of FRESH-LINE.  Note that\n"
+"  while a value of 0 from STREAM-LINE-COLUMN also indicates the\n"
+"  beginning of a line, there are cases where STREAM-START-LINE-P can be\n"
+"  meaningfully implemented although STREAM-LINE-COLUMN can't be.  For\n"
+"  example, for a window using variable-width characters, the column\n"
+"  number isn't very meaningful, but the beginning of the line does have\n"
+"  a clear meaning.  The default method for STREAM-START-LINE-P on class\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses STREAM-LINE-COLUMN, so if\n"
+"  that is defined to return NIL, then a method should be provided for\n"
+"  either STREAM-START-LINE-P or STREAM-FRESH-LINE."
+msgstr ""
+"Isthay isway away edicatepray ichwhay eturnsray T ifway ethay eamstray isway "
+"ositionedpay atway\n"
+"  ethay eginningbay ofway away inelay, elseway NIL.  Itway isway "
+"ermissiblepay otay alwaysway eturnray\n"
+"  NIL.  Isthay isway usedway inway ethay implementationway ofway FRESH-"
+"LINE.  Otenay atthay\n"
+"  ilewhay away aluevay ofway 0 omfray STREAM-LINE-COLUMN alsoway "
+"indicatesway ethay\n"
+"  eginningbay ofway away inelay, erethay areway asescay erewhay STREAM-START-"
+"LINE-P ancay ebay\n"
+"  eaningfullymay implementedway althoughway STREAM-LINE-COLUMN ancay't "
+"ebay.  Orfay\n"
+"  exampleway, orfay away indowway usingway ariablevay-idthway aracterschay, "
+"ethay olumncay\n"
+"  umbernay isnway't eryvay eaningfulmay, utbay ethay eginningbay ofway ethay "
+"inelay oesday avehay\n"
+"  away earclay eaningmay.  Ethay efaultday ethodmay orfay STREAM-START-LINE-"
+"P onway assclay\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM usesway STREAM-LINE-COLUMN, osay "
+"ifway\n"
+"  atthay isway efinedday otay eturnray NIL, enthay away ethodmay ouldshay "
+"ebay ovidedpray orfay\n"
+"  eitherway STREAM-START-LINE-P orway STREAM-FRESH-LINE."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used by WRITE-STRING.  It writes the string to the stream,\n"
+"  optionally delimited by start and end, which default to 0 and NIL.\n"
+"  The string argument is returned.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses repeated calls to\n"
+"  STREAM-WRITE-CHAR."
+msgstr ""
+"Isthay isway usedway ybay WRITE-STRING.  Itway iteswray ethay ingstray otay "
+"ethay eamstray,\n"
+"  optionallyway elimitedday ybay tartsay andway endway, ichwhay efaultday "
+"otay 0 andway NIL.\n"
+"  Ethay ingstray argumentway isway eturnedray.  Ethay efaultday ethodmay "
+"ovidedpray ybay\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM usesway epeatedray allscay otay\n"
+"  STREAM-WRITE-CHAR."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes an end of line, as for TERPRI.  Returns NIL.  The default\n"
+"  method does (STREAM-WRITE-CHAR stream #NEWLINE)."
+msgstr ""
+"Iteswray anway endway ofway inelay, asway orfay TERPRI.  Eturnsray NIL.  "
+"Ethay efaultday\n"
+"  ethodmay oesday (STREAM-WRITE-CHAR eamstray #NEWLINE)."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the\n"
+"  begining of a line.  Returns T if it output a new line, nil\n"
+"  otherwise. Used by FRESH-LINE. The default method uses\n"
+"  STREAM-START-LINE-P and STREAM-TERPRI."
+msgstr ""
+"Outputsway away ewnay inelay otay ethay Eamstray ifway itway isway otnay "
+"ositionedpay atway ethay\n"
+"  eginingbay ofway away inelay.  Eturnsray T ifway itway outputway away "
+"ewnay inelay, ilnay\n"
+"  otherwiseway. Usedway ybay FRESH-LINE. Ethay efaultday ethodmay usesway\n"
+"  STREAM-START-LINE-P andway STREAM-TERPRI."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached\n"
+"  its destination, and only then returns false. Implements\n"
+"  FINISH-OUTPUT.  The default method does nothing."
+msgstr ""
+"Attemptsway otay ensureway atthay allway outputway entsay otay ethay "
+"Eamstray ashay eachedray\n"
+"  itsway estinationday, andway onlyway enthay eturnsray alsefay. "
+"Implementsway\n"
+"  FINISH-OUTPUT.  Ethay efaultday ethodmay oesday othingnay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to force any buffered output to be sent. Implements\n"
+"  FORCE-OUTPUT.  The default method does nothing."
+msgstr ""
+"Attemptsway otay orcefay anyway ufferedbay outputway otay ebay entsay. "
+"Implementsway\n"
+"  FORCE-OUTPUT.  Ethay efaultday ethodmay oesday othingnay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Clears the given output Stream. Implements CLEAR-OUTPUT.  The\n"
+"  default method does nothing."
+msgstr ""
+"Earsclay ethay ivengay outputway Eamstray. Implementsway CLEAR-OUTPUT.  "
+"Ethay\n"
+"  efaultday ethodmay oesday othingnay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes enough blank space so that the next character will be\n"
+"  written at the specified column.  Returns true if the operation is\n"
+"  successful, or NIL if it is not supported for this stream.  This is\n"
+"  intended for use by by PPRINT and FORMAT ~T.  The default method uses\n"
+"  STREAM-LINE-COLUMN and repeated calls to STREAM-WRITE-CHAR with a\n"
+"  #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL."
+msgstr ""
+"Iteswray enoughway ankblay acespay osay atthay ethay extnay aracterchay "
+"illway ebay\n"
+"  ittenwray atway ethay ecifiedspay olumncay.  Eturnsray uetray ifway ethay "
+"operationway isway\n"
+"  uccessfulsay, orway NIL ifway itway isway otnay upportedsay orfay isthay "
+"eamstray.  Isthay isway\n"
+"  intendedway orfay useway ybay ybay PPRINT andway FORMAT ~T.  Ethay "
+"efaultday ethodmay usesway\n"
+"  STREAM-LINE-COLUMN andway epeatedray allscay otay STREAM-WRITE-CHAR ithway "
+"away\n"
+"  #SPACE aracterchay; itway eturnsray NIL ifway STREAM-LINE-COLUMN eturnsray "
+"NIL."
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements WRITE-SEQUENCE for the stream."
+msgstr "Implementsway WRITE-SEQUENCE orfay ethay eamstray."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-BYTE; returns either an integer, or the symbol :EOF\n"
+"  if the stream is at end-of-file."
+msgstr ""
+"Usedway ybay READ-BYTE; eturnsray eitherway anway integerway, orway ethay "
+"ymbolsay :EOF\n"
+"  ifway ethay eamstray isway atway endway-ofway-ilefay."
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements WRITE-BYTE; writes the integer to the stream and\n"
+"  returns the integer as the result."
+msgstr ""
+"Implementsway WRITE-BYTE; iteswray ethay integerway otay ethay eamstray "
+"andway\n"
+"  eturnsray ethay integerway asway ethay esultray."
+
+#: target:pcl/gray-streams.lisp
+msgid "    Gray Streams Protocol Support"
+msgstr "    Aygray Eamsstray Otocolpray Upportsay"
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..7267ae1c50a07516245b02db19e98214a88b4093
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
@@ -0,0 +1,31 @@
+# @ cmucl-bsd-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr "소프트 웨어를 지원하기위한 버전 문자열"
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
+
+#: target:code/bsd-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급."
+
+#: target:code/bsd-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr "Getpagesize 실패: ~ A 등급"
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..474f744f0a8be0f147ec0d332079369e2f710bd8
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
@@ -0,0 +1,27 @@
+# @ cmucl-linux-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/linux-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/linux-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
+#: target:code/linux-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po
new file mode 100644
index 0000000000000000000000000000000000000000..1d7dce1f76ef5b9b03ff76a6b2b44b7577d840ac
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po
@@ -0,0 +1,266 @@
+# @ cmucl-mp
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/multi-proc.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return the real time in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return the run time in seconds"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return the process state which is either Run, Killed, or a wait reason."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Returns the current process."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "A list of all alive processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Return a list of all the live processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Execute the body the scheduling disabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Increaments the reference by delta in a single atomic operation"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Decrements the reference by delta in a single atomic operation"
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Atomically push object onto place."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Atomically pop place."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Make a process which will run FUNCTION when it starts up.  By\n"
+"  default the process is created in a runnable (active) state.\n"
+"  If FUNCTION is NIL, the process is started in a killed state; it may\n"
+"  be restarted later with process-preset.\n"
+"\n"
+"  :NAME\n"
+"\tA name for the process displayed in process listings.\n"
+"\n"
+"  :RUN-REASONS\n"
+"\tInitial value for process-run-reasons; defaults to (:ENABLE).  A\n"
+"\tprocess needs a at least one run reason to be runnable.  Together with\n"
+"\tarrest reasons, run reasons provide an alternative to process-wait for\n"
+"\tcontroling whether or not a process is runnable.  To get the default\n"
+"\tbehavior of MAKE-PROCESS in Allegro Common Lisp, which is to create a\n"
+"\tprocess which is active but not runnable, initialize RUN-REASONS to\n"
+"\tNIL.\n"
+"\n"
+"  :ARREST-REASONS\n"
+"\tInitial value for process-arrest-reasons; defaults to NIL.  A\n"
+"\tprocess must have no arrest reasons in order to be runnable.\n"
+"\n"
+"  :INITIAL-BINDINGS\n"
+"\tAn alist of initial special bindings for the process.  At\n"
+"\tstartup the new process has a fresh set of special bindings\n"
+"\twith a default binding of *package* setup to the CL-USER\n"
+"\tpackage.  INITIAL-BINDINGS specifies additional bindings for\n"
+"\tthe process.  The cdr of each alist element is evaluated in\n"
+"\tthe fresh dynamic environment and then bound to the car of the\n"
+"\telement."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Interrupt process and cause it to evaluate function."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Destroy a process. The process is sent a interrupt which throws to\n"
+"  the end of the process allowing it to unwind gracefully."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process by unwinding it to its initial state and calling its\n"
+"  initial function."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Restart process, unwinding it to its initial state and calls\n"
+"  function with args."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Disable process from being runnable until enabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Allow process to become runnable again after it has been disabled."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True. Processes\n"
+"  can only call process-wait when scheduling is enabled, and the predicate\n"
+"  can not call process-wait. Since the predicate may be evaluated may\n"
+"  times by the scheduler it should be relative fast native compiled code.\n"
+"  The single True predicate value is returned."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Causes the process to wait until predicate returns True, or the\n"
+"  number of seconds specified by timeout has elapsed. The timeout may\n"
+"  be a fixnum or a float in seconds.  The single True predicate value is\n"
+"  returned, or NIL if the timeout was reached."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Try to gracefully destroy all the processes giving them some\n"
+"  chance to unwinding, before shutting down multi-processing. This is\n"
+"  currently necessary before a purify and is performed before a save-lisp.\n"
+"  Multi-processing can be restarted by calling init-multi-processing."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Destroyed ~d process; remaining ~d~%"
+msgid_plural "Destroyed ~d processes; remaining ~d~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"An idle loop to be run by the initial process. The select based event\n"
+"  server is called with a timeout calculated from the minimum of the\n"
+"  *idle-loop-timeout* and the time to the next process wait timeout.\n"
+"  To avoid this delay when there are runnable processes the *idle-process*\n"
+"  should be setup to the *initial-process*. If one of the processes quits\n"
+"  by throwing to %end-of-the-world then *quitting-lisp* will have been\n"
+"  set to the exit value which is noted by the idle loop which tries to\n"
+"  exit gracefully destroying all the processes and giving them a chance\n"
+"  to unwind."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Allow other processes to run."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued real time elapsed while the given process was\n"
+"  scheduled. The returned time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the accrued run time elapsed for the given process. The returned\n"
+"  time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Return the real time elapsed since the given process was last\n"
+"  descheduled. The returned time is a double-float in seconds."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Start a regular SIGALRM interrupt which calls process-yield. An optional\n"
+"  time in seconds and micro seconds may be provided. Note that CMUCL code\n"
+"  base is not too interrupt safe so this may cause problems."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n"
+"  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds "
+"to\n"
+"  wait before giving up and returing NIL."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Executes body and returns the values of the last form in body. However, if\n"
+"  the execution takes longer than timeout seconds, abort it and evaluate\n"
+"  timeout-forms, returning the values of last form."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Show the all the processes, their whostate, and state. If the optional\n"
+"  verbose argument is true then the run, real, and idle times are also\n"
+"  shown."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid "Top-level READ-EVAL-PRINT loop for processes."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Enter the idle loop, starting a new process to run the top level loop.\n"
+"  The awaking of sleeping processes is timed better with the idle loop "
+"process\n"
+"  running, and starting a new process for the top level loop supports a\n"
+"  simultaneous interactive session. Such an initialisation will likely be "
+"the\n"
+"  default when there is better MP debug support etc."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Create a Lisp connection listener, listening on a TCP port for new\n"
+"  connections and starting a new top-level loop for each. If a password\n"
+"  is not given then one will be generated and reported.  A search is\n"
+"  performed for the first free port starting at the given port which\n"
+"  defaults to 1025."
+msgstr ""
+
+#: target:code/multi-proc.lisp
+msgid ""
+"Execute the body with the lock held. If the lock is held by another\n"
+"  process then the current process waits until the lock is released or\n"
+"  an optional timeout is reached. The optional wait timeout is a time in\n"
+"  seconds acceptable to process-wait-with-timeout.  The results of the\n"
+"  body are return upon success and NIL is return if the timeout is\n"
+"  reached. When the wait key is NIL and the lock is held by another\n"
+"  process then NIL is return immediately without processing the body."
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po
new file mode 100644
index 0000000000000000000000000000000000000000..3063bdc7bd349fea57a4b8571da97d845873fb35
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po
@@ -0,0 +1,35 @@
+# @ cmucl-sparc-svr4
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr ""
+
+#: target:code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
new file mode 100644
index 0000000000000000000000000000000000000000..f2f6e3151c401b14d0a02e45f41aed949c93ae4a
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
@@ -0,0 +1,756 @@
+# @ cmucl-sparc-vm
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bytes in a word."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Number of tag bits used for a fixnum"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Mask to get the fixnum tag"
+msgstr ""
+
+#: target:compiler/sparc/parms.lisp
+msgid "Maximum number of bits in a positive fixnum"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a register."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "~S isn't a floating-point register."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"If non-NIL, print registers using the Lisp register names.\n"
+"Otherwise, use the Sparc register names"
+msgstr ""
+
+#: target:assembly/sparc/arith.lisp target:assembly/sparc/array.lisp
+#: target:assembly/sparc/assem-rtns.lisp target:compiler/sparc/type-vops.lisp
+#: target:compiler/sparc/pred.lisp target:compiler/sparc/array.lisp
+#: target:compiler/sparc/print.lisp target:compiler/sparc/nlx.lisp
+#: target:compiler/sparc/call.lisp target:compiler/sparc/alloc.lisp
+#: target:compiler/sparc/values.lisp target:compiler/sparc/cell.lisp
+#: target:compiler/sparc/c-call.lisp target:compiler/sparc/debug.lisp
+#: target:compiler/sparc/subprim.lisp target:compiler/sparc/arith.lisp
+#: target:compiler/sparc/static-fn.lisp target:compiler/sparc/memory.lisp
+#: target:compiler/sparc/char.lisp target:compiler/sparc/system.lisp
+#: target:compiler/sparc/sap.lisp target:compiler/sparc/float.lisp
+#: target:compiler/sparc/move.lisp target:compiler/sparc/insts.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "The Lisp names for the Sparc integer registers"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "The standard names for the Sparc integer registers"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"An alist for the disassembler indicating the target register and\n"
+"value used in a SETHI instruction.  This is used to make annotations\n"
+"about function addresses and register values."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Set pseudo-atomic flag"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating ~D bytes"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocating bytes"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Header word ~A, size ~D?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Reset pseudo-atomic flag"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "pseudo-atomic interrupted?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch condition: ~S~%Must be one of: ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown fp-branch condition: ~S~%Must be one of: ~S"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown integer condition register:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown conditional move condition register:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Unknown register condition:  ~S~%"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Fixups aren't allowed."
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Pseudo atomic interrupted trap?"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Allocation trap"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid "Use it anyway"
+msgstr ""
+
+#: target:compiler/sparc/insts.lisp
+msgid ""
+"Immediate trap number ~A specified, but only trap numbers\n"
+"   16 to 31 are available to the application"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"  byte-ordering issues."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Return to RETURN-PC."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Emit a return-pc header word.  LABEL is the label to use for this return-pc."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Move the TN Reg-Or-Stack into Reg if it isn't already there."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Do stuff to allocate an other-pointer object of fixed Size with a single\n"
+"  word header having the specified Type-Code.  The result is placed in\n"
+"  Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly "
+"used\n"
+"  by the body.)  The body is placed inside the PSEUDO-ATOMIC, and "
+"presumably\n"
+"  initializes the object."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is less than the specified minimum of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S is greater than the specified maximum of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "~S isn't an even multiple of ~S from ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"The values ~S cover the entire range from ~\n"
+"\t\t\t ~S to ~S [step ~S]."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Must supply at least on type for test-type."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-POINTER-TYPE supersedes the use of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S"
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Can't test for mix of function subtypes and normal ~\n"
+"\t\theader types."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+
+#: target:compiler/sparc/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum untagging"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "constant load"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "integer to untagged word coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "fixnum tagging"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "signed word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer move"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "word integer argument move"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "signed 64-bit word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/move.lisp
+msgid "unsigned 64-bit word to integer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to complex double-double float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long-float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline ftruncate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex long-float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex single float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex long float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float multiplication"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float division"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex conjugate"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float/float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex float comparison"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum max"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (signed-byte 32) min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline (unsigned-byte 32) min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline fixnum min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline float max/min"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "pointer to double-double float coercion"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double float argument move"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline double-double float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "inline complex double-double float creation"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float realpart"
+msgstr ""
+
+#: target:compiler/sparc/float.lisp
+msgid "complex double-double float imagpart"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "pointer to SAP coercion"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP to pointer coercion"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP move"
+msgstr ""
+
+#: target:compiler/sparc/sap.lisp
+msgid "SAP argument move"
+msgstr ""
+
+#: target:compiler/sparc/system.lisp
+msgid ""
+"Read the instruction cycle counter available on UltraSparcs.  The\n"
+"64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit\n"
+"result is the first value."
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character untagging"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character tagging"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character move"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "character arg move"
+msgstr ""
+
+#: target:compiler/sparc/char.lisp
+msgid "inline comparison"
+msgstr ""
+
+#: target:compiler/sparc/static-fn.lisp
+msgid "Either too many args (~D) or too many results (~D).  Max = ~D"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline 32-bit abs"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "safe inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline constant ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "identity ASH not transformed away"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline right ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline fixnum comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-start"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "shift-towards-end"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid ""
+"Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result\n"
+"  in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.\n"
+"  Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) arithmetic"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) ASH"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (signed-byte 64) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "inline (unsigned-byte 64) comparison"
+msgstr ""
+
+#: target:compiler/sparc/arith.lisp
+msgid "recode as shifts and adds"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:compiler/sparc/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+
+#: target:compiler/sparc/call.lisp
+msgid "more-arg-context"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array access"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "inline array store"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "raw-bits VOP"
+msgstr ""
+
+#: target:compiler/sparc/array.lisp
+msgid "setf raw-bits VOP"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po
new file mode 100644
index 0000000000000000000000000000000000000000..8aad97bb1d548d93729aac3dd2ad89274396aa8e
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po
@@ -0,0 +1,142 @@
+# @ cmucl-sse2
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "Ignoring bogus i387 Constant ~a"
+msgstr ""
+
+#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp
+#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex double-double-float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float realpart"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "complex float imagpart"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline dummy FP register bias"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double float to pointer coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "pointer to double-double-float coercion"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double double-float argument move"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline double-double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex double-double-float creation"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float arithmetic"
+msgstr ""
+
+#: target:compiler/x86/float-sse2.lisp
+msgid "inline complex float/float arithmetic"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po
new file mode 100644
index 0000000000000000000000000000000000000000..baf65d548171c9a950e688d229e7405c3d42c42c
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po
@@ -0,0 +1,31 @@
+# @ cmucl-sunos-os
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/sunos-os.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
+#: target:code/sunos-os.lisp
+msgid "Getpagesize failed: ~A"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po b/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
new file mode 100644
index 0000000000000000000000000000000000000000..469e286a72c0b2d7deb3a24a15c10ab848f999b5
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -0,0 +1,2026 @@
+# @ cmucl-unix-glibc2
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/unix-glibc2.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unknown error [~d]"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for read permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for write permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for execute permission"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test for presence of file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors accoridng to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by PATH\n"
+"   for reading and/or writing as specified by the FLAGS argument.\n"
+"   Returns an integer file descriptor.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"     o_excl          Error if the file already exists\n"
+"     o_noctty        Don't assign controlling tty\n"
+"     o_ndelay        Non-blocking I/O\n"
+"     o_sync          Synchronous I/O\n"
+"     o_async         Asynchronous I/O\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument MODE if the file doesn't exist."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for reading"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open for writing"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write-only flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-write flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Access mode mask."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Create if nonexistant flag. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error if already exists. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't assign controlling tty. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Truncate flag. (not fcntl)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Append flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-blocking I/O"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Asynchronous I/O"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Duplicate a file descriptor"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file desc. flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file desc. flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set file flags"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get lock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set lock, wait for release"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set owner (for sockets)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get owner (for sockets)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "for f-getfl and f-setfl"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "for fcntl and lockf"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "old bsd flock (depricated)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Shared lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exclusive lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block. Combine with F-LOCK-SH or F-LOCK-EX"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remove lock for bsd flock"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "depricated stuff"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the group-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the group-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the group-file stream, opening it if necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Size of control character vector."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "See errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No problem."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Authoritative Answer Host not found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-Authoritative Host not found,or SERVERFAIL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non recoverable errors, FORMERR, REFUSED, NOTIMP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open host data base files and mark them as staying open even after\n"
+"a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close host data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from host data base file.  Open data base if\n"
+"necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base which address match ADDR with\n"
+"length LEN and type TYPE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from host data base for host with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from host data base for host with NAME.  AF must be\n"
+"   set to the address type which as `AF_INET' for IPv4 or `AF_INET6'\n"
+"   for IPv6."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open network data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close network data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from network data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base which address match NET and\n"
+"   type TYPE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from network data base for network with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open service data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close service data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from service data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from network data base for network with NAME and\n"
+"   protocol PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return entry from service data base which matches port PORT and\n"
+"   protocol PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Open protocol data base files and mark them as staying open even\n"
+"   after a later search if STAY_OPEN is non-zero."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close protocol data base files and clear `stay open' flag."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next entry from protocol data base file.  Open data base if\n"
+"   necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base for network with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return entry from protocol data base which number is PROTO."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Establish network group NETGROUP for enumeration."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Free all space allocated by previous `setnetgrent' call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get next member of netgroup established by last `setnetgrent' call\n"
+"   and return pointers to elements in HOSTP, USERP, and DOMAINP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket address is intended for `bind'."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Request for canonical name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid value for `ai_flags' field."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "NAME or SERVICE is unknown."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Temporary failure in name resolution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Non-recoverable failure in name res."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No address associated with NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_family not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "ai_socktype not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "SERVICE not supported for ai_socktype."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family for NAME not supported."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Memory allocation failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "System error returned in errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Translate name of a service location and/or a service name to set of\n"
+"   socket addresses."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Free `addrinfo' structure AI including associated storage."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create pseudo tty master slave pair with NAME and set terminal\n"
+"   attributes according to TERMP and WINP and return handles for both\n"
+"   ends in AMASTER and ASLAVE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create child process and establish the slave pseudo terminal as the\n"
+"   child's controlling terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Rewind the password-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close the password-file stream."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read an entry from the password-file stream, opening it if necessary."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "The calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Terminated child processes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Minimum priority a process can have"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Maximum priority a process can have"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a process group ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "WHO is a user ID"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set scheduling algorithm and/or parameters for a process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Retrieve scheduling algorithm for a particular purpose."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get maximum priority value for a scheduler."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get minimum priority value for a scheduler."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the SCHED_RR interval for the named process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Signal mask to be sent at exit."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if VM shared between processes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if fs info shared between processes"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if open files shared between processe"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if signal handlers shared."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set if pid shared."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Open database for reading."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Close database."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get next entry from database, perhaps after opening the file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get shadow entry matching NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read shadow entry from STRING."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protect password file against multi writers."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock password file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "These bits determine file type."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "FIFO"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Character device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Regular file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Symbolic link."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Save swapped text after use (sticky)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute by owner."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal output speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal output speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bogus baud rate ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal input speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal input speed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get terminal attributes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set terminal attributes."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Send break"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for output for finish"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "See tcflush(3)"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Flow control"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"\tr_ok     Read permission.\n"
+"\tw_ok     Write permission.\n"
+"\tx_ok     Execute permission.\n"
+"\tf_ok     Presence of file."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "set the file pointer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "increment the file pointer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "extend the file size"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain OFFSET for that file.  WHENCE can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-READ attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Put the absolute pathname of the current working directory in BUF.\n"
+"   If successful, return BUF.  If not, put an error message in\n"
+"   BUF and return NULL.  BUF should be at least PATH_MAX bytes long."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get file-specific configuration information about PATH."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the system variable NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the value of the string-valued system variable NAME."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a new session with the calling process as its leader.\n"
+"   The process group IDs of the session and the calling process\n"
+"   are set to the process ID of the calling process, which is returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the session ID of the given process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the effective user ID of the calling process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return nonzero iff the calling process is in group GID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Removes the variable Name from the environment"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not "
+"supplied,\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the login name of the user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-uname returns the name and information about the current kernel. The\n"
+"  values returned upon success are: sysname, nodename, release, version,\n"
+"  machine, and domainname. Upon failure, 'nil and the 'errno are returned."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Revoke access permissions to all processes currently communicating\n"
+"  with the control terminal, and then send a SIGHUP signal to the process\n"
+"  group of the control terminal."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Revoke the access of all descriptors currently open on FILE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make PATH be the root directory (the starting point for absolute paths).\n"
+"   This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by LENGTH.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the maximum number of file descriptors\n"
+"   the current process could possibly have."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Unlock a locked region"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Lock a region for exclusive use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test and lock a region for exclusive use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Test a region for othwer processes locks"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-locks can lock, unlock and test files according to the cmd\n"
+"   which can be one of the following:\n"
+"\n"
+"   f_ulock  Unlock a locked region\n"
+"   f_lock   Lock a region for exclusive use\n"
+"   f_tlock  Test and lock a region for exclusive use\n"
+"   f_test   Test a region for othwer processes locks\n"
+"\n"
+"   The lock is for a region from the current location for a length\n"
+"   of length.\n"
+"\n"
+"   This is a simpler version of the interface provided by unix-fcntl.\n"
+"   "
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Don't block waiting."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Report status of stopped children."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Wait for cloned process."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change uid used for file access control to UID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Change gid used for file access control to GID, without affecting\n"
+"   other priveledges (such as who can send signals at the process)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "There is data to read."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "There is urgent data to read."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Writing now will not block."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error condition."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Hung up."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid polling request."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Canonical number of polling requests to read\n"
+"in at a time in poll."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Poll the file descriptors described by the NFDS structures starting at\n"
+"   FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for\n"
+"   an event to occur; if TIMEOUT is -1, block until an event occurs.\n"
+"   Returns the number of file descriptors with events, zero if timed out,\n"
+"   or -1 for errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Get the soft and hard limits for RESOURCE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the current soft and hard maximum limits for RESOURCE.\n"
+"   Only the super-user can increase hard limits."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Function depends on CMD:\n"
+"  1 = Return the limit on the size of a file, in units of 512 bytes.\n"
+"  2 = Set the limit on the size of a file to NEWLIMIT.  Only the\n"
+"      super-user can increase the limit.\n"
+"  3 = Return the maximum possible address of the data segment.\n"
+"  4 = Return the maximum number of files that the calling process can open.\n"
+"  Returns -1 on errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return the highest priority of any process specified by WHICH and WHO\n"
+"   (see above); if WHO is zero, the current process, process group, or user\n"
+"   (as specified by WHO) is used.  A lower priority number means higher\n"
+"   priority.  Priorities range from PRIO_MIN to PRIO_MAX (above)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the priority of all processes specified by WHICH and WHO (see above)\n"
+"   to PRIO.  Returns 0 on success, -1 on errors."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Perform the UNIX select(2) system call."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-STAT retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-FSTAT is similar to UNIX-STAT except the file is specified\n"
+"   by the file descriptor FD."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"UNIX-LSTAT is similar to UNIX-STAT except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"\n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"  \n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Set the file creation mask of the current process to MASK,\n"
+"   and return the old creation mask."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Create a device file named PATH, with permission and special bits MODE\n"
+"  and device number DEV (which can be constructed from major and minor\n"
+"  device numbers with the `makedev' macro above)."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Create a new FIFO named PATH, with permission bits MODE."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return information about the filesystem on which FILE resides."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH available to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Make the block special device PATH unavailable to the system for swapping.\n"
+"  This call is restricted to the super-user."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read or write system parameters."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Time used by the program so far (user time + system time).\n"
+"   The result / CLOCKS_PER_SECOND is program time in seconds."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Return the current time and put it in *TIMER if TIMER is not NULL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Fill in TIMEBUF with information about the current time."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Store the CPU time used by this process and all its\n"
+"   dead children (and their dead children) in BUFFER.\n"
+"   Return the elapsed real time, or (clock_t) -1 for errors.\n"
+"   All times are in CLK_TCKths of a second."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child to die.  When one does, put its status in *STAT_LOC\n"
+"   and return its process ID.  For errors, return (pid_t) -1."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Wait for a child matching PID to die.\n"
+"   If PID is greater than 0, match any process whose process ID is PID.\n"
+"   If PID is (pid_t) -1, match any process.\n"
+"   If PID is (pid_t) 0, match any process with the\n"
+"   same process group as the current process.\n"
+"   If PID is less than -1, match any process whose\n"
+"   process group is the absolute value of PID.\n"
+"   If the WNOHANG bit is set in OPTIONS, and that child\n"
+"   is not already dead, return (pid_t) 0.  If successful,\n"
+"   return PID and store the dead child's status in STAT_LOC.\n"
+"   Return (pid_t) -1 for errors.  If the WUNTRACED bit is\n"
+"   set in OPTIONS, return status for stopped children; otherwise don't."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Successful"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not permitted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such file or directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such process"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "I/O error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device or address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Arg list too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exec format error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad file number"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No children"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Try again"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of memory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Permission denied"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Block device required"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Device or resource busy"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File exists"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cross-device link"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No such device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a director"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a directory"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid argument"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File table overflow"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many open files"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a typewriter"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Text file busy"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File too large"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No space left on device"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal seek"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read-only file system"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many links"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Broken pipe"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Math argument out of domain"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Math result not representable"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Resource deadlock would occur"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File name too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No record locks available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Function not implemented"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Directory not empty"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many symbolic links encountered"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation would block"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No message of desired type"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Identifier removed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Channel number out of range"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 not synchronized"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 halted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 3 reset"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Link number out of range"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol driver not attached"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No CSI structure available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Level 2 halted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid exchange"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request descriptor"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Exchange full"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No anode"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid request code"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Invalid slot"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File locking deadlock error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Bad font file format"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Device not a stream"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No data available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Timer expired"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Out of streams resources"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Machine is not on the network"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Package not installed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Object is remote"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Link has been severed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Advertise error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Srmount error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Communication error on send"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Multihop attempted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "RFS specific error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a data message"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Value too large for defined data type"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Name not unique on network"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "File descriptor in bad state"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote address changed"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Can not access a needed shared library"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Accessing a corrupted shared library"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot exec a shared library directly"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Illegal byte sequence"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Streams pipe error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many users"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket operation on non-socket"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Destination address required"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Message too long"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol wrong type for socket"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Socket type not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Protocol family not supported"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address family not supported by protocol"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Address already in use"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot assign requested address"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is down"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network is unreachable"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Network dropped connection because of reset"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Software caused connection abort"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection reset by peer"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No buffer space available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is already connected"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Transport endpoint is not connected"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Too many references: cannot splice"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection timed out"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Connection refused"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Host is down"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No route to host"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation already in progress"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Operation now in progress"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Stale NFS file handle"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Structure needs cleaning"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Not a XENIX named type file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "No XENIX semaphores available"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Is a named type file"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Remote I/O error"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Quota exceeded"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
+"  then ioctl argument size and direction are included as for ioctls defined\n"
+"  by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type\n"
+"  is the characters code, else DEV may be an integer giving the type."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set user ID on execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Set group ID on execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Save text image after execution"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by owner"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by group"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Read by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Write by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Execute (search directory) by others"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid "Error reading link ~S: ~S"
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix-glibc2.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
+"found."
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
new file mode 100644
index 0000000000000000000000000000000000000000..f0d863817479d2b8f1bac5d888813625a707769b
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
@@ -0,0 +1,1547 @@
+# @ cmucl-unix
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/unix.lisp
+msgid "Size of control character vector."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Successful"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not permitted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such file or directory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Interrupted system call"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "I/O error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device not configured"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Arg list too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Exec format error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad file descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No child process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource deadlock avoided"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No more processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Try again"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of memory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Permission denied"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Block device required"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device or resource busy"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File exists"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cross-device link"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No such device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a director"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Is a directory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid argument"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File table overflow"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many open files"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Inappropriate ioctl for device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Text file busy"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File too large"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No space left on device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Illegal seek"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-only file system"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many links"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Broken pipe"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Numerical argument out of domain"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Result too large"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Math result not representable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation would block"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource temporarily unavailable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation now in progress"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation already in progress"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket operation on non-socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Destination address required"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Message too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol wrong type for socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol not available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket type not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not supported on socket"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol family not supported"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol family"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address already in use"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can't assign requested address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network is down"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network is unreachable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network dropped connection on reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Software caused connection abort"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection reset by peer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No buffer space available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket is already connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Socket is not connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can't send after socket shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many references: can't splice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection timed out"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Connection refused"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many levels of symbolic links"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File name too long"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Host is down"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No route to host"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Directory not empty"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many users"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Disc quota exceeded"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "namei should continue locally"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "namei was handled remotely"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote file system error _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "syscall was handled by Vice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No message of desired type"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Identifier removed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Channel number out of range"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 2 not synchronized"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 3 halted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 3 reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Link number out of range"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol driver not attached"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No CSI structure available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Level 2 halted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Deadlock situation detected/avoided"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No record locks available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 47"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 48"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad exchange descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad request descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Message tables full"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Anode table overflow"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad request code"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid slot"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File locking deadlock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bad font file format"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a stream device"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No data available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Timer expired"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of stream resources"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Machine is not on the network"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Package not installed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Object is remote"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Link has been severed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Advertise error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Srmount error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Communication error on send"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Protocol error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Multihop attempted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a data message"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Value too large for defined data type"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Name not unique on network"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File descriptor in bad state"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote address changed"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can not access a needed shared library"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Accessing a corrupted shared library"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ".lib section in a.out corrupted"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Attempting to link in more shared libraries than system limit"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Can not exec a shared library directly"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 88"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not applicable"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Number of symbolic links encountered during path name traversal exceeds "
+"MAXSYMLINKS"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 91"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error 92"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Option not supported by protocol"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Operation not supported on transport endpoint"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot assign requested address"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Network dropped connection because of reset"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is already connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Transport endpoint is not connected"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot send after socket shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many references: cannot splice"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Stale NFS file handle"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Resource deadlock would occur"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Function not implemented"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Too many symbolic links encountered"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid exchange"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid request descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Exchange full"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No anode"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Invalid request code"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File locking deadlock error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Device not a stream"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Out of streams resources"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "RFS specific error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Attempting to link in too many shared libraries"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot exec a shared library directly"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Illegal byte sequence"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Interrupted system call should be restarted _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Streams pipe error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Address family not supported by protocol"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Cannot send after transport endpoint shutdown"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Structure needs cleaning"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Not a XENIX named type file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "No XENIX semaphores available"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Is a named type file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Remote I/O error"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Quota exceeded"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Returns a string describing the error number which was returned by a\n"
+"  UNIX system call."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unknown error [~d]"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the user ID of the calling process to UID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective user IDs, and the saved set-user-ID to UID;\n"
+"   if not, the effective user ID is set to UID."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the group ID of the calling process to GID.\n"
+"   If the calling process is the super-user, set the real\n"
+"   and effective group IDs, and the saved set-group-ID to GID;\n"
+"   if not, the effective group ID is set to GID."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for read permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for write permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for execute permission"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Test for presence of file"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path (a string) and one of four constant modes,\n"
+"   unix-access returns T if the file is accessible with that\n"
+"   mode and NIL if not.  It also returns an errno value with\n"
+"   NIL which determines why the file was not accessible.\n"
+"\n"
+"   The access modes are:\n"
+"\tr_ok     Read permission.\n"
+"\tw_ok     Write permission.\n"
+"\tx_ok     Execute permission.\n"
+"\tf_ok     Presence of file."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string, unix-chdir changes the current working \n"
+"   directory to the one specified."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set user ID on execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set group ID on execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Save text image after execution"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by group"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Execute (search directory) by others"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path string and a constant mode, unix-chmod changes the\n"
+"   permission mode for that file to the one specified. The new mode\n"
+"   can be created by logically OR'ing the following:\n"
+"\n"
+"      setuidexec        Set user ID on execution.\n"
+"      setgidexec        Set group ID on execution.\n"
+"      savetext          Save text image after execution.\n"
+"      readown           Read by owner.\n"
+"      writeown          Write by owner.\n"
+"      execown           Execute (search directory) by owner.\n"
+"      readgrp           Read by group.\n"
+"      writegrp          Write by group.\n"
+"      execgrp           Execute (search directory) by group.\n"
+"      readoth           Read by others.\n"
+"      writeoth          Write by others.\n"
+"      execoth           Execute (search directory) by others.\n"
+"  \n"
+"  Thus #o444 and (logior unix:readown unix:readgrp unix:readoth)\n"
+"  are equivalent for 'mode.  The octal-base is familar to Unix users.\n"
+"\n"
+"  It returns T on successfully completion; NIL and an error number\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given an integer file descriptor and a mode (the same as those\n"
+"   used for unix-chmod), unix-fchmod changes the permission mode\n"
+"   for that file to the one specified. T is returned if the call\n"
+"   was successful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Given a file path, an integer user-id, and an integer group-id,\n"
+"   unix-chown changes the owner of the file and the group of the\n"
+"   file to those specified.  Either the owner or the group may be\n"
+"   left unchanged by specifying them as -1.  Note: Permission will\n"
+"   fail if the caller is not the superuser."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fchown is like unix-chown, except that it accepts an integer\n"
+"   file descriptor instead of a file path name."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getdtablesize returns the maximum size of the file descriptor\n"
+"   table. (i.e. the maximum number of descriptors that can exist at\n"
+"   one time.)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-close takes an integer file descriptor as an argument and\n"
+"   closes the file associated with it.  T is returned upon successful\n"
+"   completion, otherwise NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-creat accepts a file name and a mode (same as those for\n"
+"   unix-chmod) and creates a file by that name with the specified\n"
+"   permission mode.  It returns a file descriptor on success,\n"
+"   or NIL and an error  number otherwise.\n"
+"\n"
+"   This interface is made obsolete by UNIX-OPEN."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup duplicates an existing file descriptor (given as the\n"
+"   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
+"   and an error number are returned."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Duplicate a file descriptor"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get file desc. flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set file desc. flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get file flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set file flags"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get lock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set owner"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set lock"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set lock, wait for release"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking reads"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Append on each write"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Signal pgrp when data ready"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Truncate to zero length"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error if already created"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fcntl manipulates file descriptors according to the\n"
+"   argument CMD which can be one of the following:\n"
+"\n"
+"   F-DUPFD         Duplicate a file descriptor.\n"
+"   F-GETFD         Get file descriptor flags.\n"
+"   F-SETFD         Set file descriptor flags.\n"
+"   F-GETFL         Get file flags.\n"
+"   F-SETFL         Set file flags.\n"
+"   F-GETOWN        Get owner.\n"
+"   F-SETOWN        Set owner.\n"
+"\n"
+"   The flags that can be specified for F-SETFL are:\n"
+"\n"
+"   FNDELAY         Non-blocking reads.\n"
+"   FAPPEND         Append on each write.\n"
+"   FASYNC          Signal pgrp when data ready.\n"
+"   FCREAT          Create if nonexistant.\n"
+"   FTRUNC          Truncate to zero length.\n"
+"   FEXCL           Error if already created.\n"
+"   "
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-link creates a hard link from the file with name1 to the\n"
+"   file with name2."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "set the file pointer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "increment the file pointer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "extend the file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lseek accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain offset for that file.  Whence can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  _N"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-mkdir creates a new directory with the specified name and mode.\n"
+"   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
+"   NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-only flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Write-only flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Read-write flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking I/O"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Append flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Create if nonexistant flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Truncate flag."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error if already exists."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Don't assign controlling tty"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Non-blocking mode"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Synchronous writes (on ext2)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-open opens the file whose pathname is specified by path\n"
+"   for reading and/or writing as specified by the flags argument.\n"
+"   The flags argument can be:\n"
+"\n"
+"     o_rdonly        Read-only flag.\n"
+"     o_wronly        Write-only flag.\n"
+"     o_rdwr          Read-and-write flag.\n"
+"     o_append        Append flag.\n"
+"     o_creat         Create-if-nonexistant flag.\n"
+"     o_trunc         Truncate-to-size-0 flag.\n"
+"\n"
+"   If the o_creat flag is specified, then the file is created with\n"
+"   a permission of argument mode if the file doesn't exist.  An\n"
+"   integer file descriptor is returned by unix-open."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-pipe sets up a unix-piping mechanism consisting of\n"
+"  an input pipe and an output pipe.  Unix-Pipe returns two\n"
+"  values: if no error occurred the first value is the pipe\n"
+"  to be read from and the second is can be written to.  If\n"
+"  an error occurred the first value is NIL and the second\n"
+"  the unix error code."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-read attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-readlink invokes the readlink system call on the file name\n"
+"  specified by the simple string path.  It returns up to two values:\n"
+"  the contents of the symbolic link if the call is successful, or\n"
+"  NIL and the Unix error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rename renames the file with string name1 to the string\n"
+"   name2.  NIL and an error code is returned if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-rmdir attempts to remove the directory name.  NIL and\n"
+"   an error number is returned if an error occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Perform the UNIX select(2) system call.\n"
+"  (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n"
+"\t   (type (or (alien (* (struct fd-set))) null)\n"
+"\t\t read-fds write-fds exception-fds)\n"
+"\t   (type (or null (unsigned-byte 31)) timeout-secs)\n"
+"\t   (type (unsigned-byte 31) timeout-usecs)\n"
+"\t   (optimize (speed 3) (safety 0) (inhibit-warnings 3)))"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-select examines the sets of descriptors passed as arguments\n"
+"   to see if they are ready for reading and writing.  See the UNIX\n"
+"   Programmers Manual for more information."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-sync writes all information in core memory which has been\n"
+"   modified to disk.  It returns NIL and an error code if an error\n"
+"   occured."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fsync writes the core image of the file described by\n"
+"   fd to disk."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-truncate truncates the named file to the length (in\n"
+"   bytes) specified by len.  NIL and an error number is returned\n"
+"   if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ftruncate is similar to unix-truncate except that the first\n"
+"   argument is a file descriptor rather than a file name."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-symlink creates a symbolic link named name2 to the file\n"
+"   named name1.  NIL and an error number is returned if the call\n"
+"   is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-unlink removes the directory entry for the named file.\n"
+"   NIL and an error code is returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-write attempts to write a character buffer (buf) of length\n"
+"   len to the file described by the file descriptor fd.  NIL and an\n"
+"   error is returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-ioctl performs a variety of operations on open i/o\n"
+"   descriptors.  See the UNIX Programmer's Manual for more\n"
+"   information."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal attributes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal attributes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal output speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal output speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Bogus baud rate ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get terminal input speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set terminal input speed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Send break"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Wait for output for finish"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "See tcflush(3)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Flow control"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Get the tty-process-group for the unix file-descriptor FD."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the tty-process-group for the unix file-descriptor FD.  If not "
+"supplied,\n"
+"  FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
+"  supplied, FD defaults to /dev/tty."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-exit terminates the current process with an optional\n"
+"   error code.  If successful, the call doesn't return.  If\n"
+"   unsuccessful, the call returns NIL and an error number."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-stat retrieves information about the specified\n"
+"   file returning them in the form of multiple values.\n"
+"   See the UNIX Programmer's Manual for a description\n"
+"   of the values returned.  If the call fails, then NIL\n"
+"   and an error number is returned instead."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-lstat is similar to unix-stat except the specified\n"
+"   file must be a symbolic link."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-fstat is similar to unix-stat except the file is specified\n"
+"   by the file descriptor fd."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "The calling process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Terminated child processes."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Like call getrusage, but return only the system and user time, and returns\n"
+"   the seconds and microseconds as separate values."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getrusage returns information about the resource usage\n"
+"   of the process specified by who.  Who can be either the\n"
+"   current process (rusage_self) or all of the terminated\n"
+"   child processes (rusage_children).  NIL and an error number\n"
+"   is returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-times returns information about the cpu time usage of the process\n"
+"   and its children."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
+"   microseconds of the current time of day, the timezone (in minutes west\n"
+"   of Greenwich), and a daylight-savings flag.  If it doesn't work, it\n"
+"   returns NIL and the errno."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
+"   times on a specified file.  NIL and an error number is\n"
+"   returned if the call is unsuccessful."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setreuid sets the real and effective user-id's of the current\n"
+"   process to the specified ones.  NIL and an error number is returned\n"
+"   if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setregid sets the real and effective group-id's of the current\n"
+"   process process to the specified ones.  NIL and an error number is\n"
+"   returned if the call fails."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpid returns the process-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getgid returns the real group-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getegid returns the effective group-id of the current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpgrp returns the group-id of the calling process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgrp sets the process group on the process pid to\n"
+"   pgrp.  NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-setpgid sets the process group of the process pid to\n"
+"   pgrp. If pgid is equal to pid, the process becomes a process\n"
+"   group leader. NIL and an error number are returned upon failure."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getuid returns the real user-id associated with the\n"
+"   current process."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-getpagesize returns the number of bytes in a system page."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Unix-gethostname returns the name of the host machine as a string."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-gethostid returns a 32-bit integer which provides unique\n"
+"   identification for the host machine."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Removes the variable Name from the environment"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Returns either :file, :directory, :link, :special, or NIL."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Returns the pathname with all symbolic links resolved."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Error reading link ~S: ~S"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Accepts a Unix file descriptor and returns T if the device\n"
+"  associated with it is a terminal."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). On success,\n"
+"   unix-getitimer returns 5 values,\n"
+"   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+" Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
+"   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
+"   will be delivered VALUE <seconds+microseconds> from now. INTERVAL,\n"
+"   when non-zero, is <seconds+microseconds> to be loaded each time\n"
+"   the timer expires. Setting INTERVAL and VALUE to zero disables\n"
+"   the timer. See the Unix man page for more details. On success,\n"
+"   unix-setitimer returns the old contents of the INTERVAL and VALUE\n"
+"   slots as in unix-getitimer."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "The maximum size of the group entry buffer"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
+"not found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
+"found."
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "CPU time per process (in milliseconds)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Maximum file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Data segment size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Stack size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Core file size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Number of open files"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Maximum mapped memory"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "CPU time per process"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "File size"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Addess space (resident set size)"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Locked-in-memory address space"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid "Number of processes"
+msgstr ""
+
+#: target:code/unix.lisp
+msgid ""
+"Get the limits on the consumption of system resouce specified by\n"
+"  Resource.  If successful, return three values: T, the current (soft)\n"
+"  limit, and the maximum (hard) limit."
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
new file mode 100644
index 0000000000000000000000000000000000000000..38b072ad0559fd3463673722be2d02d21b11de4a
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
@@ -0,0 +1,272 @@
+# @ cmucl-x86-vm
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare object's slot value to test-value and if EQ store\n"
+"   new-value in the slot. The original value of the slot is returned."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare symbol's value to test-value and if EQ store\n"
+"  new-value in symbol's value slot and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the car of CONS to test-value and if EQ store\n"
+"  new-value its car and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare the cdr of CONS to test-value and if EQ store\n"
+"  new-value its cdr and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid ""
+"Atomically compare an element of vector to test-value and if EQ store\n"
+"  new-value the element and return the original value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the symbol global value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe pop from the list in the symbol global value."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the car of cons."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the cdr of cons."
+msgstr ""
+
+#: target:code/x86-vm.lisp
+msgid "Thread safe push of val onto the list in the vector element."
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid "Move SRC into DST unless they are location=."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Loads the type bits of a pointer into target independent of\n"
+"   byte-ordering issues."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an object with a size in bytes given by Size.\n"
+"   The size may be an integer or a TN.\n"
+"   If Inline is a VOP node-var then it is used to make an appropriate\n"
+"   speed vs size decision.  If Dynamic-Extent is true, and otherwise\n"
+"   appropriate, allocate from the stack."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Allocate an other-pointer object of fixed Size with a single\n"
+"   word header having the specified Type-Code.  The result is placed in\n"
+"   Result-TN."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid "Cause an error.  ERROR-CODE is the error to cause."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Cause a continuable error.  If the error is continued, execution resumes at\n"
+"  LABEL."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-Error-Code Error-code Value*\n"
+"  Emit code for an error with the specified Error-Code and context Values."
+msgstr ""
+
+#: target:compiler/x86/macros.lisp
+msgid ""
+"Generate-CError-Code Error-code Value*\n"
+"  Emit code for a continuable error with the specified Error-Code and\n"
+"  context Values.  If the error is continued, execution resumes after\n"
+"  the GENERATE-CERROR-CODE form."
+msgstr ""
+
+#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp
+#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp
+#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp
+#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp
+#: target:compiler/x86/move.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum untagging"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "constant load"
+msgstr ""
+
+#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp
+#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "integer to untagged word coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "fixnum tagging"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "signed word to integer coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "unsigned word to integer coercion"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "word integer move"
+msgstr ""
+
+#: target:compiler/x86/move.lisp
+msgid "word integer argument move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character untagging"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character tagging"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "character arg move"
+msgstr ""
+
+#: target:compiler/x86/char.lisp
+msgid "inline comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) arithmetic"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline ASH"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) integer-length"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) logcount"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline fixnum comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (signed-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "inline (unsigned-byte 32) comparison"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-START"
+msgstr ""
+
+#: target:compiler/x86/arith.lisp
+msgid "SHIFT-TOWARDS-END"
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid "Too many result values from c-call."
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:compiler/x86/c-call.lisp
+msgid ""
+"Cons up a piece of code which calls call-callback with INDEX and a\n"
+"pointer to the arguments."
+msgstr ""
+
+#: target:compiler/x86/call.lisp
+msgid "more-arg-context"
+msgstr ""
+
+#: target:compiler/x86/array.lisp
+msgid "inline array access"
+msgstr ""
+
+#: target:compiler/x86/array.lisp
+msgid "inline array store"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po
new file mode 100644
index 0000000000000000000000000000000000000000..dd65e7c6b9f904d1a1e54b871362b1341e4e11d7
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po
@@ -0,0 +1,20 @@
+# @ cmucl-x87
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp
+#: target:compiler/x86/x87-sap.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.mo b/i18n/locale/ko/LC_MESSAGES/cmucl.mo
new file mode 100644
index 0000000000000000000000000000000000000000..b0bececf2c7236a0256adf61c8c1f42a0fe846c0
Binary files /dev/null and b/i18n/locale/ko/LC_MESSAGES/cmucl.mo differ
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.po b/i18n/locale/ko/LC_MESSAGES/cmucl.po
new file mode 100644
index 0000000000000000000000000000000000000000..62ad9363a3ccfb76faedf234f6efd849a6c65e84
--- /dev/null
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -0,0 +1,20345 @@
+# @ cmucl
+# SOME DESCRIPTIVE TITLE
+# Copyright (C) 2010
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: CMUCL 20b\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: target:code/intl.lisp
+msgid ""
+"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
+"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+msgstr ""
+
+#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp
+#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp
+#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp
+#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp
+#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp
+#: target:compiler/dump.lisp target:compiler/dyncount.lisp
+#: target:compiler/xref.lisp target:compiler/srctran.lisp
+#: target:compiler/typetran.lisp target:compiler/ir1util.lisp
+#: target:compiler/main.lisp target:compiler/knownfun.lisp
+#: target:compiler/new-assem.lisp target:compiler/disassem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/ctype.lisp target:compiler/node.lisp
+#: target:compiler/sset.lisp target:compiler/backend.lisp
+#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp
+#: target:code/intl.lisp target:compiler/globaldb.lisp
+#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp
+#: target:code/internet.lisp target:code/loop.lisp
+#: target:code/run-program.lisp target:code/parse-time.lisp
+#: target:code/profile.lisp target:code/ntrace.lisp
+#: target:code/rand-mt19937.lisp target:code/debug.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp
+#: target:code/eval.lisp target:code/filesys.lisp target:code/pathname.lisp
+#: target:code/fd-stream.lisp target:code/extfmts.lisp
+#: target:code/serve-event.lisp target:code/reader.lisp
+#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp
+#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp
+#: target:code/commandline.lisp target:code/unidata.lisp
+#: target:compiler/proclaim.lisp target:code/hash-new.lisp
+#: target:code/byte-interp.lisp target:code/c-call.lisp
+#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp
+#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp
+#: target:assembly/assemfile.lisp target:code/struct.lisp
+msgid "Class not yet defined: ~S"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ="
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Encountered illegal token: ~C"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expected : in ?: construct"
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expected close-paren."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Unexpected token: ~S."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Expecting end of expression.  ~S."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the current message domain and return its translation."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "Look up the singular or plural form of a message in the current domain."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up STRING in the specified message domain and return its translation."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the specified domain."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "_@ is a reserved reader macro prefix."
+msgstr ""
+
+#: target:code/intl.lisp
+msgid "~&Dumping ~D messages for domain ~S~%"
+msgstr ""
+
+#: target:code/struct.lisp
+msgid "The size of a stream in-buffer."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid "Register the feature as having influenced the CMUCL build process."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Register the feature as having influenced the CMUCL build process,\n"
+"and also the CMUCL C runtime."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid ""
+"Given any Array, binds Data-Var to the array's data vector and Start-Var "
+"and\n"
+"  End-Var to the start and end of the designated portion of the data "
+"vector.\n"
+"  Svalue and Evalue are any start and end specified to the original "
+"operation,\n"
+"  and are factored into the bindings of Start-Var and End-Var.  Offset-Var "
+"is\n"
+"  the cumulative offset of all displacements encountered, and does not\n"
+"  include Svalue."
+msgstr ""
+
+#: target:code/sysmacs.lisp
+msgid "Executes the forms in the body without doing a garbage collection."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the 24 bits of data in the header of object X, which must be an\n"
+"  other-pointer object."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Sets the 24 bits of data in the header of object X (which must be an\n"
+"  other-pointer object) to VAL."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns the length of the closure X.  This is one more than the number\n"
+"  of variables closed over."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the three-bit lowtag for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the 8-bit header type for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return a System-Area-Pointer pointing to the data for the vector X, which\n"
+"  must be simple."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns a System-Area-Pointer pointing to the next free work of the current\n"
+"  dynamic space."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the control stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the header typecode for FUNCTION.  Can be set with SETF."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the arglist from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the name from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the type from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the function from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the length of VECTOR.  There is no reason to use this, 'cause\n"
+"  (length (the vector foo)) is the same."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the SXHASH for the simple-string STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the SXHASH for the first LENGTH characters of the simple-string\n"
+"  STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extract the INDEXth slot from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
+"  WORDS words long.  Note: it is your responsibility to assure that the\n"
+"  relation between LENGTH and WORDS is correct."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Allocate an array header with type code TYPE and rank RANK."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Extract the INDEXth element from the header of CODE-OBJ.  Can be set with\n"
+"  setf."
+msgstr ""
+
+#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp
+#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp
+#: target:code/kernel.lisp
+msgid "Argument ~A is not a ~S: ~S."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of symbols that describe features provided by the\n"
+"   implementation."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Features affecting the runtime"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to positive infinity."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "The fixnum closest in value to negative infinity."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
+"will\n"
+"   enter the debugger prior to signalling that condition."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, nil is returned.  If\n"
+"   (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked "
+"before\n"
+"   any signalling is done."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Ignore the additional arguments."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"You may not supply additional arguments ~\n"
+"\t\t\t\t     when giving ~S to ~S."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Bad argument to ~S: ~S"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked."
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "Help! "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid " nested errors.  "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Prints a message and invokes the debugger without allowing any possibility\n"
+"   of condition handling occurring."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Return from BREAK."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Warns about a situation by signalling a condition formed by datum and\n"
+"   arguments.  While the condition is being signaled, a muffle-warning "
+"restart\n"
+"   exists that causes WARN to immediately return nil."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "a warning condition"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Skip warning."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&~@<Warning:  ~3i~:_~A~:>~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Invokes the signal facility on a condition formed from datum and arguments.\n"
+"   If the condition is not handled, the debugger is invoked.  This function\n"
+"   is just like error, except that the condition type defaults to the type\n"
+"   simple-program-error, instead of program-error."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gives the world a shove and hopes it spins."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Functions to be invoked during cleanup at Lisp exit."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
+"  non-Nil."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"This function causes execution to be suspended for N seconds.  N may\n"
+"  be any non-negative, non-complex number."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Zero the unused portion of the control stack so that old objects are not\n"
+"   kept alive because of uninitialized stack variables."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Holds a list of all the values returned by the most recent top-level EVAL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of / when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of // when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level EVAL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of * when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ** when a new value is computed."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the value of the most recent top-level READ."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of + when a new value is read."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Gets the previous value of ++ when a new value is read."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Holds the form curently being evaluated."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"The top-level prompt string.  This also may be a function of no arguments\n"
+"   that returns a simple-string."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"True if we are within the Top-Level-Catcher.  This is used by interrupt\n"
+"  handlers to see whether it is o.k. to throw."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, +"
+"+,\n"
+"  +, ///, //, /, and -."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Go on with * set to NIL."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "EVAL returned an unbound marker."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"How many pages to reserve from the total heap space so we can handle\n"
+"heap overflow."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Top-level READ-EVAL-PRINT loop.  Do not call this."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "Return to Top-Level."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid ""
+"~&Received EOF on *standard-input*, ~\n"
+"\t\t\t\t\tswitching to *terminal-io*.~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&Received more than ~D EOFs; Aborting.~%"
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&Received EOF.~%"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
+"          environment constructed by the PCL portable code walker.  These ~\n"
+"          environments are only useful for macroexpansion, they cannot be ~\n"
+"          used for evaluation.  ~\n"
+"          This error should never occur when using PCL.  ~\n"
+"          This most likely source of this error is a program which tries to "
+"~\n"
+"          to use the PCL portable code walker to build its own evaluator.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<~S is not a recognized variable declaration.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't get template for ~S.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<~S is a special form, not defined in the CommonLisp ~\n"
+"\t\t      manual.  This code walker doesn't know how to walk it.  ~\n"
+"\t\t      Define a template for this special form and try again.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<While handling repeat: ~\n"
+"                     Ran into stop while still in repeat template.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<Encountered declare ~S in a place where a ~\n"
+"         declare was not expected.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid "~@<Can't understand something in the arglist ~S.~@:>"
+msgstr ""
+
+#: target:pcl/walk.lisp
+msgid ""
+"~@<In the form ~S: ~\n"
+"                       IF only accepts three arguments, you are using ~D. ~\n"
+"                       It is true that some Common Lisps support this, but "
+"~\n"
+"                       it is not truly legal Common Lisp.  For now, this "
+"code ~\n"
+"                       walker is interpreting the extra arguments as extra "
+"else clauses. ~\n"
+"                       Even if this is what you intended, you should fix "
+"your source code.~@:>"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"A funcallable instance used to implement fwrappers.\n"
+"   The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
+"   This function returns an instance closure closing over an \n"
+"   fwrapper object, which is installed as the funcallable-instance\n"
+"   function of the fwrapper object."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Print-function for struct FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return FUN if it is an fwrapper or nil if it isn't."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Evaluate BODY with VAR bound to consecutive fwrappers of\n"
+"   FDEFN.  Return RESULT at the end."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return tha last encapsulation of FDEFN or NIL if none."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
+"   Signal an error if FUNCTION-NAME is an undefined function."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
+"   from outermost to innermost."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Set FUNCTION-NAMES's fwrappers to elements of the list\n"
+"   FWRAPPERS, which is assumed to be ordered from outermost to\n"
+"   innermost.  FWRAPPERS null means remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
+"   created by calling CONSTRUCTOR.  CONSTRUCTOR is a function\n"
+"   defined with DEFINE-FWRAPPER, or the name of such a function.\n"
+"   Return the fwrapper created.  USER-DATA is arbitrary data to be\n"
+"   associated with the fwrapper.  It is accessible in wrapper\n"
+"   functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
+"   FWRAPPER)."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Remove fwrappers from the function named FUNCTION-NAME.\n"
+"   If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, remove fwrappers satisfying TEST.\n"
+"   If both are not specified, remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update the funcallable instance function of fwrapper F from its\n"
+"   constructor."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update fwrapper function definitions of FUNCTION-NAME.\n"
+"   If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
+"   If TEST is supplied, update fwrappers satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Find an fwrapper of FUNCTION-NAME.\n"
+"   If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
+"   If TEST is supplied, find an fwrapper satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Like DEFUN, but define a function wrapper.\n"
+"   In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
+"   executing fwrapper.  FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
+"   in BODY to call the next fwrapper or the primary function.  When\n"
+"   called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
+"   function with the original args to the fwrapper, otherwise it\n"
+"   invokes the next function with the supplied args."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return the expansion of a DEFINE-FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"First value is true if BODY refers to any of the variables in\n"
+"     OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
+"     returns.  Second value is true if BODY refers to REST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Fwrapper for old-style encapsulations."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "This function is deprecated; use fwrappers instead."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Define (NAME ...) to be a valid function name whose syntax is checked\n"
+"  by BODY.  In BODY, VAR is bound to an actual function name of the\n"
+"  form (NAME ...) to check.  BODY should return two values.\n"
+"  First value true means the function name is valid.  Second value\n"
+"  is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"First value is true if NAME has valid function name syntax.\n"
+"  Second value is the name, a symbol, to use as a block name in DEFUNs\n"
+"  and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the fdefn object for NAME.  If it doesn't already exist and CREATE\n"
+"   is non-NIL, create a new (unbound) one."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Invalid function name: ~S"
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the FDEFN of NAME.  Signal an error if there is none\n"
+"   or if it's function is null."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Returns the definition for name, including any encapsulations.  Settable\n"
+"   with SETF."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return FUNCTION-NAME's global function definition.\n"
+"   If FUNCTION-NAME is fwrapped, return the primary function definition\n"
+"   stored in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"This holds functions that (SETF FDEFINITION) invokes before storing the\n"
+"   new value.  These functions take the function name and the new value."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
+"   If FUNCTION-NAME is fwrapped, set the primary function stored\n"
+"   in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Return true if name has a global function definition."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Make Name have no global function definition."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "&rest keyword is ~:[missing~;misplaced~]."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Return a list of all the currently active restarts ordered from most\n"
+"   recently established to less recently established.  If Condition is\n"
+"   specified, then only restarts associated with Condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Returns the name of the given restart object."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
+"   Evaluates the Forms in a dynamic environment where the restarts in the "
+"list\n"
+"   Restarts-Form are associated with the condition returned by Condition-"
+"Form.\n"
+"   This allows FIND-RESTART, etc., to recognize restarts that are not "
+"related\n"
+"   to the error currently being debugged.  See also RESTART-CASE."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms in a dynamic context where the given restart bindings are\n"
+"   in effect.  Users probably want to use RESTART-CASE.  When clauses "
+"contain\n"
+"   the same restart name, FIND-RESTART will find the first such clause."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Unnamed restart does not have a ~\n"
+"\t\t\t\t\treport function -- ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Returns the first restart named name.  If name is a restart, it is returned\n"
+"   if it is currently active.  If no such restart is found, nil is "
+"returned.\n"
+"   It is an error to supply nil as a name.  If Condition is specified and "
+"not\n"
+"   NIL, then only restarts associated with that condition (or with no\n"
+"   condition) will be returned."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, passing any given\n"
+"   arguments.  If the argument restart is not a restart or a currently "
+"active\n"
+"   non-nil restart name, then a control-error is signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Restart ~S is not active."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Calls the function associated with the given restart, prompting for any\n"
+"   necessary arguments.  If the argument restart is not a restart or a\n"
+"   currently active non-nil restart name, then a control-error is signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(RESTART-CASE form\n"
+"   {(case-name arg-list {keyword value}* body)}*)\n"
+"   The form is evaluated in a dynamic context where the clauses have "
+"special\n"
+"   meanings as points to which control may be transferred (see INVOKE-"
+"RESTART).\n"
+"   When clauses contain the same case-name, FIND-RESTART will find the "
+"first\n"
+"   such clause.  If Expression is a call to SIGNAL, ERROR, CERROR or WARN "
+"(or\n"
+"   macroexpands into such) then the signalled condition will be associated "
+"with\n"
+"   the new restarts."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
+"   body)\n"
+"   If restart-name is not invoked, then all values returned by forms are\n"
+"   returned.  If control is transferred to this restart, it immediately\n"
+"   returns the values nil and t."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition ~S was signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "No REPORT?  Shouldn't happen!"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition slot is not bound: ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Slot ~S of ~S missing."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Make an instance of a condition object using the specified initargs."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~S is not a condition class."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Bad thing for class arg:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Condition already names a declaration: ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
+"   Define NAME as a condition type.  This new type inherits slots and its\n"
+"   report function from the specified PARENT-TYPEs.  A slot spec is either\n"
+"   a symbol denoting the name of the slot, or a list of the form:\n"
+"\n"
+"     (slot-name {slot-option value}*)\n"
+"\n"
+"   where slot-option is one of :READER, :WRITER, :ACCESSOR, :ALLOCATION,\n"
+"   :INITARG, :INITFORM, :DOCUMENTATION, and :TYPE.\n"
+"\n"
+"   Each overall option is of the form\n"
+"\n"
+"     (option-name {value}*)\n"
+"\n"
+"   where option-name is one of :DEFAULT-INITARGS, :DOCUMENTATION,\n"
+"   and :REPORT.\n"
+"\n"
+"   The :REPORT option is peculiar to DEFINE-CONDITION.  Its argument is "
+"either\n"
+"   a string or a two-argument lambda or function name.  If a function, the\n"
+"   function is called with the condition and stream to report the "
+"condition.\n"
+"   If a string, the string is printed.\n"
+"\n"
+"   Condition types are classes, but (as allowed by ANSI and not as described "
+"in\n"
+"   CLtL2) are neither STANDARD-OBJECTs nor STRUCTURE-OBJECTs.  WITH-SLOTS "
+"and\n"
+"   SLOT-VALUE may not be used on condition objects."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Keyword slot name indicates probable syntax error:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Malformed condition slot spec:~%  ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "More than one :INITFORM in:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "More than one slot :DOCUMENTATION in~%  ~s"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Slot :DOCUMENTATION is not a string in~%  ~s"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Unknown slot option:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Bad option:~%  ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp target:code/error.lisp
+msgid "Unknown option: ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-BIND ( {(type handler)}* )  body)\n"
+"   Executes body in a dynamic context where the given handler bindings are\n"
+"   in effect.  Each handler must take the condition being signalled as an\n"
+"   argument.  The bindings are searched first to last in the event of a\n"
+"   signalled condition."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Ill-formed handler bindings."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~&~@<Error in function ~S:  ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Control stack overflow"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Heap (dynamic space) overflow"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Layout-invalid error in ~S:~@\n"
+"\t\t     Type test of class ~S was passed obsolete instance:~%  ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "End-of-File on ~S"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the variable ~S is unbound."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Error in ~S:  the function ~S is undefined."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"~@<Destructive function ~S called on ~\n"
+"                         constant data.~@:>"
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Arithmetic error ~S signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "~%Operation was ~S, operands ~S."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"(HANDLER-CASE form\n"
+"   { (type ([var]) body) }* )\n"
+"   Executes form in a context with handlers established for the condition\n"
+"   types.  A peculiar property allows type to be :no-error.  If such a "
+"clause\n"
+"   occurs, and form returns normally, all its values are passed to this "
+"clause\n"
+"   as if by MULTIPLE-VALUE-CALL.  The :no-error clause accepts more than "
+"one\n"
+"   var specification."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Executes forms after establishing a handler for all error conditions that\n"
+"   returns from this form nil and the condition signalled."
+msgstr ""
+
+#: target:code/error.lisp
+msgid "Found an \"abort\" restart that failed to transfer control dynamically."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named abort, signalling a control-error if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfers control to a restart named muffle-warning, signalling a\n"
+"   control-error if none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control to a restart named continue, returning nil if none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named store-value, returning nil if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/error.lisp
+msgid ""
+"Transfer control and value to a restart named use-value, returning nil if\n"
+"   none exists."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Forms that must happen before top level forms are run."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Can't cold-load-init other forms along with an eval-when."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "Missing type method for ~S"
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "~S is not a defined type class method."
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
+msgstr ""
+
+#: target:code/typedefs.lisp
+msgid "DEFINE-TYPE-CLASS Name [Inherits]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Layout for ~S~@[, Invalid=~S~]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "The inclusive upper bound on LAYOUT-HASH values."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Layout depth conflict: ~S~%  ~\n"
+"\t\t        (~S collides at ~S with ~S)~%"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Can't use anonymous or undefined class as constant:~%  ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Return the class with the specified Name.  If ERRORP is false, then NIL is\n"
+"   returned when no such class exists."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Class not yet defined:~%  ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Illegal to redefine standard type ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Changing meta-class of ~S from ~S to ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Redefining DEFTYPE type to be a class: ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Return the class of the supplied object, which may be any Lisp object, not\n"
+"   just a CLOS STANDARD-OBJECT."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Modifing ~(~A~) class ~S; making it writable."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Subclassing sealed class ~S; unsealing it."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in superclasses of class ~S:~%  ~\n"
+"\t\t  ~A superclasses: ~S~%  ~\n"
+"\t\t  ~A superclasses: ~S"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"In class ~S:~%  ~\n"
+"\t\t    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
+"\t\t    ~A definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in instance length of class ~S:~%  ~\n"
+"\t\t   ~A length: ~D~%  ~\n"
+"\t\t   ~A length: ~D"
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Change in the inheritance structure of class ~S~%  ~\n"
+"\t\t between the ~A definition and the ~A definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Loading a reference to class ~S when the compile~\n"
+"\t\t       ~%  time definition was incompatible with the current ~\n"
+"\t\t       one."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Invalidate current definition."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "New definition of ~S must be loaded eventually."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Smash current layout, preserving old code."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"\t\t      I hope you know what you're doing..."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: target:code/class.lisp
+msgid ""
+"Assuming the current definition of ~S is correct, and~@\n"
+"\t\t      that the loaded code doesn't care about the ~\n"
+"\t\t      incompatibility."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Topological sort failed due to constraint on ~S."
+msgstr ""
+
+#: target:code/class.lisp
+msgid "Something strange with forward layout for ~S:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"*Use-Implementation-Types* is a semi-public flag which determines how\n"
+"   restrictive we are in determining type membership.  If two types are the\n"
+"   same in the implementation, then we will consider them them the same "
+"when\n"
+"   this switch is on.  When it is off, we try to be as restrictive as the\n"
+"   language allows, allowing us to detect more errors.  Currently, this "
+"only\n"
+"   affects array types."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Subtypep is illegal on this type:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "&Aux in a FUNCTION or VALUES type: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Keyword type description is not a two-list: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Repeated keyword ~S in lambda list: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"The maximum length of a union of integer types before we take a\n"
+"  short cut and return a simpler union."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad thing to be a type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "VALUES type illegal in this context:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The SATISFIES predicate name is not a symbol: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Weird CONS type ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not numeric: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "The component type for COMPLEX is not real: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"The component type for COMPLEX (EQL X) ~\n"
+"                                    is complex: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid ""
+"~@<(known bug #145): The type ~S is too hairy to be \n"
+"                         used for a COMPLEX component.~:@>"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bound is not *, a ~A or a list of a ~A: ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad N specified for MOD type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad float format: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Arrays can't have a negative number of dimensions: ~D."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Array type has too many dimensions: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Bad dimension in array type: ~S."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Array dimensions is not a list, integer or *:~%  ~S"
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type of characters that aren't base-char's.  None in CMU CL."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type corresponding to the charaters required by the standard."
+msgstr ""
+
+#: target:code/type.lisp
+msgid "Type for any keyword symbol."
+msgstr ""
+
+#: target:compiler/generic/vm-type.lisp
+msgid "~S isn't an integer type?"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return the type of OBJECT."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Return the element type that will actually be used to implement an array\n"
+"   with the specifier :ELEMENT-TYPE Spec."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Return two values indicating the relationship between type1 and type2:\n"
+"  T and T: type1 definitely is a subtype of type2.\n"
+"  NIL and T: type1 definitely is not a subtype of type2.\n"
+"  NIL and NIL: who knows?"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return T iff OBJECT is of type TYPE."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "~@<unknown element type in array type: ~2I~_~S~:>"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Unknown type specifier: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Invalid type specifier: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Function types are not a legal argument to TYPEP:~%  ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Class has not yet been defined: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "TYPEP on obsolete object (was class ~S)."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Class is currently invalid: ~S"
+msgstr ""
+
+#: target:code/pred.lisp
+msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Returns T if X and Y are EQL or if they are structured components\n"
+"  whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they\n"
+"  are the same length and have indentical components.  Other arrays must be\n"
+"  EQ to be EQUAL."
+msgstr ""
+
+#: target:code/pred.lisp
+msgid ""
+"Just like EQUAL, but more liberal in several respects.\n"
+"  Numbers may be of different types, as long as the values are identical\n"
+"  after coercion.  Characters may differ in alphabetic case.  Vectors and\n"
+"  arrays must have identical dimensions and EQUALP elements, but may differ\n"
+"  in their type restriction."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No alien type class ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No method ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Parse the list structure TYPE as an alien type specifier and return\n"
+"   the resultant alien-type structure."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown alien type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No translator for primitive alien type ~S?"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Definition missing for alien type ~S?"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Attempt to multiple define ~A ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Attempt to shadow definition of ~A ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the alien-type structure TYPE back into a list specification of\n"
+"   the type."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for\n"
+"   STRUCT and UNION types, in which case the name is taken from the type\n"
+"   specifier."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is a built-in alien type."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining ~S to be:~%  ~S,~%was~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the\n"
+"   only supported subtype relationships are that any pointer type is a\n"
+"   subtype of (* t), and any array type's first dimension will match \n"
+"   (array <eltype> nil ...).  Otherwise, the two types have to be\n"
+"   ALIEN-TYPE-=."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return T iff OBJECT is an alien of type TYPE."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot represent ~S typed aliens."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot pass aliens of type ~S as arguments to call-out"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot return aliens of type ~S from call-out"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot extract ~D bit integers."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Redefining alien enum ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown enum type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Empty enum type: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "An enumeration must contain at least one element."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S is not a keyword."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S is not an integer."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Element value ~S used more than once."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Enumeration element ~S used more than once."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Can't represent enums needing more than 32 bits."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot deposit aliens of type ~S (unknown size)."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "First dimension is not a non-negative fixnum or NIL: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Dimension is not a non-negative fixnum: ~S"
+msgstr ""
+
+#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp
+#: target:pcl/simple-streams/internal.lisp
+#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp
+#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp
+#: target:pcl/seal.lisp target:pcl/dfun.lisp
+#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp
+#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp
+#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp
+#: target:code/format.lisp target:code/pprint-loop.lisp
+#: target:code/pprint.lisp target:code/bignum.lisp target:code/alieneval.lisp
+msgid "Required argument missing"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Unknown size: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown alignment: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "A hash table used to detect cycles while comparing record types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
+"If so return true; otherwise call ALTERNATIVE."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot use values types here."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Badly formed alien name."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Define NAME as an external alien variable of type TYPE.  NAME should be\n"
+"   a list of a string holding the alien name and a symbol to use as the "
+"Lisp\n"
+"   name.  If NAME is just a symbol or string, then the other name is "
+"guessed\n"
+"   from the one supplied."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Access the alien variable named NAME, assuming it is of type TYPE.  This\n"
+"   is SETFable."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Establish some local alien variables.  Each BINDING is of the form:\n"
+"     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
+"   ALLOCATION should be one of:\n"
+"     :LOCAL (the default)\n"
+"       The alien is allocated on the stack, and has dynamic extent.\n"
+"     :STATIC\n"
+"       The alien is allocated on the heap, and has infinate extent.  The "
+"alien\n"
+"       is allocated at load time, so the same piece of memory is used each "
+"time\n"
+"       this form executes.\n"
+"     :EXTERN\n"
+"       No alien is allocated, but VAR is established as a local name for\n"
+"       the external alien given by EXTERNAL-NAME."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return true if X (which must be an Alien pointer) is null, false otherwise."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
+"   evaluated.)  Type must be pointer-like."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot make aliens of type ~S out of SAPs"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return a System-Area-Pointer pointing to Alien's data."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE\n"
+"   is supplied, how it is interpreted depends on TYPE.  If TYPE is an array\n"
+"   type, SIZE is used as the first dimension for the allocated array.  If "
+"TYPE\n"
+"   is not an array, then SIZE is the number of elements to allocate.  The\n"
+"   memory is allocated using ``malloc'', so it can be passed to foreign\n"
+"   functions which use ``free''."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Cannot override the size of zero-dimensional arrays."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Size of ~S unknown."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Alignment of ~S unknown."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated\n"
+"   by MAKE-ALIEN or ``malloc''."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "No slot named ~S in ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Incorrect number of indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"De-reference an Alien pointer or array.  If an array, the indices are used\n"
+"   as the indices of the array element to access.  If a pointer, one index "
+"can\n"
+"   optionally be specified, giving the equivalent of C pointer arithmetic."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong; local-alien-info not found: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S isn't forced to memory.  Something went wrong."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return an Alien pointer to the data addressed by Expr, which must be a call\n"
+"   to SLOT or DEREF, or a reference to an Alien variable."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Something is wrong, local-alien-info not found: ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is not a valid L-value"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both "
+"types\n"
+"   must be Alien array, pointer or function types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S cannot be cast."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+msgid "Cannot cast to alien type ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Return the size of the alien type TYPE.  UNITS specifies the units to\n"
+"   use and can be either :BITS, :BYTES, or :WORDS."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unknown size for alien type ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Call the foreign function ALIEN with the specified arguments.  ALIEN's\n"
+"   type specifies the argument and result types."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "~S is not an alien function."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"Def-Alien-Routine Name Result-Type\n"
+"                    {(Arg-Name Arg-Type [Style])}*\n"
+"\n"
+"  Define a foreign interface function for the routine with the specified "
+"Name,\n"
+"  which may be either a string, symbol or list of the form (string symbol).\n"
+"  Return-Type is the Alien type for the function return value.  VOID may be\n"
+"  used to specify a function with no result.\n"
+"\n"
+"  The remaining forms specify individual arguments that are passed to the\n"
+"  routine.  Arg-Name is a symbol that names the argument, primarily for\n"
+"  documentation.  Arg-Type is the C-Type of the argument.  Style specifies "
+"the\n"
+"  way that the argument is passed.\n"
+"\n"
+"  :IN\n"
+"        An :In argument is simply passed by value.  The value to be passed "
+"is\n"
+"        obtained from argument(s) to the interface function.  No values are\n"
+"        returned for :In arguments.  This is the default mode.\n"
+"\n"
+"  :OUT\n"
+"        The specified argument type must be a pointer to a fixed sized "
+"object.\n"
+"        A pointer to a preallocated object is passed to the routine, and "
+"the\n"
+"        the object is accessed on return, with the value being returned "
+"from\n"
+"        the interface function.  :OUT and :IN-OUT cannot be used with "
+"pointers\n"
+"        to arrays, records or functions.\n"
+"\n"
+"  :COPY\n"
+"        Similar to :IN, except that the argument values are stored in on\n"
+"        the stack, and a pointer to the object is passed instead of\n"
+"        the values themselves.\n"
+"\n"
+"  :IN-OUT\n"
+"        A combination of :OUT and :COPY.  A pointer to the argument is "
+"passed,\n"
+"        with the object being initialized from the supplied argument and\n"
+"        the return value being determined by accessing the object on return."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Bogus argument style ~S in ~S."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Can't use :out or :in-out on pointer-like type:~%  ~S"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"A callback consists of a piece assembly code -- the trampoline --\n"
+"and a lisp function.  We store the function type (including return\n"
+"type and arg types), so we can detect incompatible redefinitions."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Vector of all callbacks."
+msgstr ""
+
+#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp
+#: target:compiler/main.lisp target:code/describe.lisp
+#: target:code/debug-int.lisp target:code/debug-info.lisp
+#: target:code/foreign-linkage.lisp target:code/reader.lisp
+#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp
+#: target:code/alieneval.lisp
+msgid "~S is not an array with a fill-pointer."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Return the trampoline pointer for the callback NAME."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"~\n"
+"Attempt to redefine callback with incompatible return type.\n"
+"   Old type was: ~A \n"
+"    New type is: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"~\n"
+"Create new trampoline (old trampoline calls old lisp function)."
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unsupported argument type: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid "Unsupported return type: ~A"
+msgstr ""
+
+#: target:code/alieneval.lisp
+msgid ""
+"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
+"     {doc-string} {decls}* {FORM}*)\n"
+"\n"
+"Define a function which can be called by foreign code.  The pointer\n"
+"returned by (callback NAME), when called by foreign code, invokes the\n"
+"lisp function.  The lisp function expects alien arguments of the\n"
+"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n"
+"\n"
+"If (callback NAME) is already a callback function pointer, its value\n"
+"is not changed (though it's arranged that an updated version of the\n"
+"lisp callback function will be called).  This feature allows for\n"
+"incremental redefinition of callback functions."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a smaller or the same address as\n"
+"   the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to the same address as the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a larger or the same address as\n"
+"   the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a larger address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return a new sap OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return the byte offset between SAP1 and SAP2."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts a System Area Pointer into an integer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts an integer into a System Area Pointer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the long-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid "The number of bits to process at a time."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid "The maximum number of bits that can be dealt with during a single call."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
+"  bits from the ``start.''  On big-endian machines this is a left-shift and\n"
+"  on little-endian machines this is a right-shift.  Note: only the low 5/6 "
+"bits\n"
+"  of count are significant."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
+"  bits from the ``end.''  On big-endian machines this is a right-shift and\n"
+"  on little-endian machines this is a left-shift."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
+"  the remaining ``end'' bits.  Only the lower 5 bits of COUNT are "
+"significant."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
+"  the remaining ``start'' bits.  Only the lower 5 bits of COUNT are\n"
+"  significant."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid "Align the SAP to a word boundry, and update the offset accordingly."
+msgstr ""
+
+#: target:code/bit-bash.lisp
+msgid ""
+"Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "This is the interpreter's evaluation stack."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "This is the next free element of the interpreter's evaluation stack."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Unknown inline function, id=~D"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Unbound variable: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CAR: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Non-list argument to CDR: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Undefined XOP."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Wrong number of arguments."
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "Not enough arguments."
+msgstr ""
+
+#: target:pcl/boot.lisp target:code/byte-interp.lisp
+msgid "Too many arguments."
+msgstr ""
+
+#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Odd number of keyword arguments."
+msgstr ""
+
+#: target:code/interr.lisp target:code/byte-interp.lisp
+msgid "Unknown keyword: ~S"
+msgstr ""
+
+#: target:code/byte-interp.lisp
+msgid "function-end breakpoints not supported."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the rank of an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound any given dimension of an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The exclusive upper bound on the total number of elements in an array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "End ~D is greater than total size ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Start ~D is greater than end ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"List of weak-pointers to static vectors.  Needed for GCing static vectors"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make a static array of element type ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Failed to allocate space for static array of length ~S of type ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Creates an array of the specified Dimensions and properties.  See the\n"
+"  manual for details.\n"
+"\n"
+"  :Element-type\n"
+"      The type of objects that the array can hold \n"
+"  :Initial-element\n"
+"      Each element of the array is initialized to this value, if supplied.\n"
+"      If not supplied, 0 of the appropriate type is used.\n"
+"  :Initial-contents\n"
+"      The contents of the array are initialized to this.\n"
+"  :Adjustable\n"
+"      If non-Nil, make an expressly adjustable array.\n"
+"  :Fill-pointer\n"
+"      For one-dimensional array, set the fill-pointer to the given value.\n"
+"      If T, use the actual length of the array.\n"
+"  :Displaced-to\n"
+"      Create an array that is displaced to the target array specified\n"
+"      by :displaced-to.\n"
+"  :Displaced-index-offset\n"
+"      Index offset to the displaced array.  That is, index 0 of this array "
+"is\n"
+"      actually index displaced-index-offset of the target displaced array. \n"
+"  :Allocation\n"
+"      How to allocate the array.  If :MALLOC, a static, nonmovable array is\n"
+"      created.  This array is created by calling malloc."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Can't specify :displaced-index-offset without :displaced-to"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make an adjustable static array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Cannot make a displaced array static"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot specify both :initial-element and ~\n"
+"\t\t:initial-contents"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"~D elements in the initial-contents, but the ~\n"
+"\t\tvector length is ~D."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Only vectors can have fill pointers."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid fill-pointer ~D"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Neither :initial-element nor :initial-contents ~\n"
+"\t\t   can be specified along with :displaced-to"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into ~\n"
+"                           another of type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S doesn't have enough elements."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~&Freeing foreign vector at #x~X~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Finalizing static vectors ~S~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "static vector ~A.  header = ~X~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "  static vector ~A in use~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "  Free static vector ~A~%"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply both :initial-contents and :initial-element to\n"
+"            either make-array or adjust-array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S cannot be used to initialize an array of type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  Dimension of ~\n"
+"\t\t\t        axis ~D is ~D, but ~S is ~D long."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"\t\t\t                       sequence, but ~D more layer needed."
+msgid_plural ""
+"Malformed :initial-contents.  ~S is not a ~\n"
+"\t\t\t                       sequence, but ~D more layers needed."
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/array.lisp
+msgid "Constructs a simple-vector from the given objects."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Wrong number of subscripts, ~D, for array of rank ~D"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Invalid index ~D in ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the element of the Array specified by the Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns the element of array corressponding to the row-major index.  This "
+"is\n"
+"   SETF'able."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the Index'th element of the given Simple-Vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Bit-Array at the specified Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the type of the elements of the array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the number of dimensions of the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns length of dimension Axis-Number of the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Vector axis is not zero: ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~D is too big; ~S only has ~D dimension"
+msgid_plural "~D is too big; ~S only has ~D dimensions"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/array.lisp
+msgid "Returns a list whose elements are the dimensions of the array"
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the total number of elements in the Array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns values of :displaced-to and :displaced-index-offset options to\n"
+"   make-array, or the defaults nil and 0 if not a displaced array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Returns T if (adjust-array array...) would return an array identical\n"
+"   to the argument, this happens for complex arrays."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Returns the Fill-Pointer of the given Vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "New fill pointer, ~S, is larger than the length of the vector."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to set the element of Array designated by the fill pointer\n"
+"   to New-El and increment fill pointer by one.  If the fill pointer is\n"
+"   too large, Nil is returned, otherwise the index of the pushed element "
+"is \n"
+"   returned."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Like Vector-Push except that if the fill pointer gets too large, the\n"
+"   Array is extended rather than Nil being returned."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Attempts to decrease the fill-pointer by 1 and return the element\n"
+"   pointer to by the new fill pointer.  If the original value of the fill\n"
+"   pointer is 0, an error occurs."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Nothing left to pop."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Number of dimensions not equal to rank of array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "New element type, ~S, is incompatible with old."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Static arrays are not adjustable."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Multidimensional arrays can't have fill pointers."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Initial contents may not be specified with ~\n"
+"\t\t the :initial-element or :displaced-to option."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"The :initial-element option may not be specified ~\n"
+"\t       with :displaced-to."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"One can't displace an array of type ~S into another of ~\n"
+"\t               type ~S."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "The :displaced-to array is too small."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
+"\t            smaller than it's fill pointer (~S)."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
+"\t   in adjust-array unless the array (~S) was originally ~\n"
+" \t   created with a fill pointer."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
+"\t     than the new length of the vector (~S)."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Bogus value for :fill-pointer in adjust-array: ~S"
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Destructively alters the Vector, changing its length to New-Size, which\n"
+"   must be less than or equal to its current size."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "Fills in array header with provided information.  Returns array."
+msgstr ""
+
+#: target:code/array.lisp
+msgid "~S and ~S do not have the same dimensions."
+msgstr "~S 와 ~S 는 그 요소의 수가 다르다."
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY-1 is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array "
+"is\n"
+"  created.  All the arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/array.lisp
+msgid ""
+"Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
+"  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
+"  BIT-ARRAY is used.  If RESULT-BIT-ARRAY is NIL or omitted, a new array is\n"
+"  created.  Both arrays must have the same rank and dimensions."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Structure used to implement hash tables."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Almost-Primify returns an almost prime number greater than or equal\n"
+"   to NUM."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Define a new kind of hash table test."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Creates and returns a new hash table.  The keywords are as follows:\n"
+"     :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,\n"
+"       and EQUALP are currently supported.\n"
+"     :SIZE -- A hint as to how many elements will be put in this hash\n"
+"       table.\n"
+"     :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
+"       If an integer, add space for that many elements.  If a floating\n"
+"       point number (which must be greater than 1.0), multiple the size\n"
+"       by that amount.\n"
+"     :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
+"       forcing a rehash.  Can be any positive number <= to 1, with density\n"
+"       approaching zero as the threshold approaches 0.  Density 1 means an\n"
+"       average of one entry per bucket.\n"
+"   CMUCL Extension:\n"
+"     :WEAK-P -- Weak hash table.  Can only be used when the key is 'eq or "
+"'eql.\n"
+"                An entry in the table is remains if the condition holds:\n"
+"\n"
+"                :KEY            -- key is referenced elsewhere\n"
+"                :VALUE          -- value is referenced elsewhere\n"
+"                :KEY-AND-VALUE  -- key and value are referenced elsewhere\n"
+"                :KEY-OR-VALUE   -- key or value is referenced elsewhere\n"
+"\n"
+"                If the condition does not hold, the entry is removed.  For\n"
+"                backward compatibility, a value of T is the same as :KEY."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Returns the number of entries in the given HASH-TABLE."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-size HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-threshold HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
+"   table that can hold however many entries HASH-TABLE can hold without\n"
+"   having to be grown."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the test HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return T if HASH-TABLE will not keep entries for keys that would\n"
+"   otherwise be garbage, and NIL if it will."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
+"   value and T as multiple values, or returns DEFAULT and NIL if there is "
+"no\n"
+"   such entry.  Entries can be added using SETF."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Remove the entry in HASH-TABLE associated with KEY.  Returns T if there\n"
+"   was such an entry, and NIL if not."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+"   itself, shrinking the size to free memory."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
+"   of the entry; returns NIL."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
+"   provides a method of manually looping over the elements of a hash-table.\n"
+"   FUNCTION is bound to a generator-macro that, within the scope of the\n"
+"   invocation, returns one or three values. The first value tells whether\n"
+"   any objects remain in the hash table. When the first value is non-NIL, \n"
+"   the second and third values are the key and the value of the next object."
+msgstr ""
+
+#: target:pcl/slots.lisp target:code/hash-new.lisp
+msgid "What kind of instance is this?"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Computes a hash code for S-EXPR and returns it as an integer."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid "Returns all but the first object."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list.  True if Object is nil,\n"
+"   false if Object is a cons, and an error for any other types of arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+"  Each Arg in Args must be a proper list except the last one, which\n"
+"  may be any object.  The function is not destructive: for all but the\n"
+"  last Arg, its list structure is copied.  The last argument is not\n"
+"  copied; it becomes the cdr of the final dotted pair of the\n"
+"  concatenation of the preceding lists, or is returned directly if\n"
+"  there are no preceding non-empty lists.  In the latter case, if the\n"
+"  last Arg is not a list, the returned value is not a list either."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+"   List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+"   Object.  If Object is not a tail of List, a copy of List is returned.\n"
+"   List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid "Returns what was passed to it."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+"   NIL whenever FUNCTION returns T."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+"   :test, or :test-not with a given item."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/list.lisp
+#, fuzzy
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+"   returns false. List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+"   and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate.  If\n"
+"   key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+"  If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+"   the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate.  If key\n"
+"  is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+"  If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+"  It Maps function over the arglists in the appropriate way. It is done when "
+"any\n"
+"  of the arglists runs out.  Until then, it CDRs down the arglists calling "
+"the\n"
+"  function and accumulating results as desired."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+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 "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: 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/string.lisp
+msgid ""
+"Test if C is a surrogate.  C may be either an integer or a\n"
+"  character. Surrogate-type indicates what kind of surrogate to test\n"
+"  for.  :High means to test for the high (leading) surrogate; :Low\n"
+"  tests for the low (trailing surrogate).  A value of :Any or Nil\n"
+"  tests for any surrogate value (high or low)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert the given Hi and Lo surrogate characters to the\n"
+"  corresponding codepoint value"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return the codepoint value from String at position I.  If that\n"
+"  position is a surrogate, it is combined with either the previous or\n"
+"  following character (when possible) to compute the codepoint.  The\n"
+"  second return value is NIL if the position is not a surrogate pair.\n"
+"  Otherwise +1 or -1 is returned if the position is the high or low\n"
+"  surrogate value, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return the high and low surrogate characters for Codepoint.  If\n"
+"  Codepoint is in the BMP, the first return value is the corresponding\n"
+"  character and the second is NIL."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Set the codepoint at string position I to the Codepoint.  If the\n"
+"  codepoint requires a surrogate pair, the high (leading surrogate) is\n"
+"  stored at position I and the low (trailing) surrogate is stored at\n"
+"  I+1"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Check if String is a valid UTF-16 string.  If the string is valid,\n"
+"  T is returned.  If the string is not valid, NIL is returned, and the\n"
+"  second value is the index into the string of the invalid character.\n"
+"  A string is also invalid if it contains any unassigned codepoints."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Coerces X into a string.  If X is a string, X is returned.  If X is a\n"
+"  symbol, X's pname is returned.  If X is a character then a one element\n"
+"  string containing that character is returned.  If X cannot be coerced\n"
+"  into a string, an error occurs."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "~S cannot be coerced to a string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string and a non-negative integer index less than the length of\n"
+"  the string, returns the character object representing the character at\n"
+"  that position in the string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"SCHAR returns the character object at an indexed position in a string\n"
+"  just as CHAR does, except the string must be a simple-string."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char=) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char=)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char=)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Return a new string with the case folded according to Casing as follows:\n"
+"\n"
+"  :SIMPLE  Unicode simple case folding (preserving length)\n"
+"  :FULL    Unicode full case folding (possibly changing length)\n"
+"\n"
+"  Default Casing is :SIMPLE."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings (string1 and string2), and optional integers start1,\n"
+"  start2, end1 and end2, compares characters in string1 to characters in\n"
+"  string2 (using char-equal)."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "Improper bounds for string comparison."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is not lexicographically equal\n"
+"  to the second string, returns the longest common prefix (using char-"
+"equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid "Improper substring for comparison."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater than\n"
+"  the second string, returns the longest common prefix (using char-equal)\n"
+"  of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically greater\n"
+"  than or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given two strings, if the first string is lexicographically less than\n"
+"  or equal to the second string, returns the longest common prefix\n"
+"  (using char-equal) of the two strings. Otherwise, returns ()."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a character count and an optional fill character, makes and returns\n"
+"  a new string Count long filled with the fill character."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  lower case alphabetic characters converted to uppercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a new string that is a copy of it with all\n"
+"  upper case alphabetic characters converted to lowercase.  Casing is\n"
+"  :simple or :full for simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns a copy of the string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars.  Casing is :simple or :full for\n"
+"  simple or full case conversion, respectively."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all lower case alphabetic\n"
+"  characters converted to uppercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with all upper case alphabetic\n"
+"  characters converted to lowercase."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a string, returns that string with the first\n"
+"  character of each ``word'' converted to upper-case, and remaining\n"
+"  chars in the word converted to lower case. A ``word'' is defined\n"
+"  to be a string of case-modifiable characters delimited by\n"
+"  non-case-modifiable chars."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends.  If the set of characters is a string, surrogates will be\n"
+"  properly handled."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  left end."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns\n"
+"  a copy of the string with the characters in the set removed from the\n"
+"  right end."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Given a set of characters (a list or string) and a string, returns a\n"
+"  copy of the string with the characters in the set removed from both\n"
+"  ends."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"GLYPH returns the glyph at the indexed position in a string, and the\n"
+"  position of the next glyph (or NIL) as a second value.  A glyph is\n"
+"  a substring consisting of the character at INDEX followed by all\n"
+"  subsequent combining characters."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
+"  except that the string must be a simple-string"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form D (NFD) using the\n"
+"  canonical decomposition.  The NFD string is returned"
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
+"  compatible decomposition form.  The NFKD string is returned."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form C (NFC).  If the\n"
+"  string a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+
+#: target:code/string.lisp
+msgid ""
+"Convert String to Unicode Normalization Form KC (NFKC).  If the\n"
+"  string is a simple string and is already normalized, the original\n"
+"  string is returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"Compares the substrings specified by String1 and String2 and returns\n"
+"NIL if the strings are String=, or the lowest index of String1 in\n"
+"which the two differ. If one string is longer than the other and the\n"
+"shorter is a prefix of the longer, the length of the shorter + start1 is\n"
+"returned. This would be done on the Vax with CMPC3. The arguments must\n"
+"be simple strings."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid "Like %sp-string-compare, only backwards."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask\n"
+"  The codes of the characters of String from Start to End are used as "
+"indices\n"
+"  into the Table, which is a U-Vector of 8-bit bytes. When the number "
+"picked\n"
+"  up from the table bitwise ANDed with Mask is non-zero, the current\n"
+"  index into the String is returned. The corresponds to SCANC on the Vax."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Find-Character  String, Start, End, Character\n"
+"  Searches String for the Character from Start to End.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Reverse-Find-Character  String, Start, End, Character\n"
+"  Searches String for Character from End to Start.  If the character is\n"
+"  found, the corresponding index into String is returned, otherwise NIL is\n"
+"  returned."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the first character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-Skip-Character  String, Start, End, Character\n"
+"  Returns the index of the last character between Start and End which\n"
+"  is not Char=  to Character, or NIL if there is no such character."
+msgstr ""
+
+#: target:code/mipsstrops.lisp
+msgid ""
+"%SP-String-Search  String1, Start1, End1, String2, Start2, End2\n"
+"   Searches for the substring of String1 specified in String2.\n"
+"   Returns an index into String2 or NIL if the substring wasn't\n"
+"   found."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current special\n"
+"  value is returned."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  Return NIL if this symbol is\n"
+"  unbound, T if it has a value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's special value cell is\n"
+"  set to the specified new value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Nihil ex nihil, can't set NIL."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Veritas aeterna, can't set T."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Can't set keywords."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol is made unbound,\n"
+"  removing any value it may currently have."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"VARIABLE must evaluate to a symbol.  This symbol's current definition\n"
+"   is returned.  Settable with SETF."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its print name."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "VARIABLE must evaluate to a symbol.  Return its package."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Make and return a new symbol with the STRING as its print name."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Return the hash value for symbol."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on the property list of SYMBOL for the specified INDICATOR.  If this\n"
+"  is found, return the associated value, else return DEFAULT."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "~S has an odd number of items in its property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n"
+"  Returns VALUE."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Look on property list of SYMBOL for property with specified\n"
+"  INDICATOR.  If found, splice this indicator and its value out of\n"
+"  the plist, and return the tail of the original list starting with\n"
+"  INDICATOR.  If not found, return () with no side effects.\n"
+"\n"
+"  NOTE: The ANSI specification requires REMPROP to return true (not false)\n"
+"  or false (the symbol NIL). Portable code should not rely on any other "
+"value."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Searches the property list stored in Place for an indicator EQ to "
+"Indicator.\n"
+"  If one is found, the corresponding value is returned, else the Default is\n"
+"  returned."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Malformed property list: ~S"
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Like GETF, except that Indicator-List is a list of indicators which will\n"
+"  be looked for in the property list stored in Place.  Three values are\n"
+"  returned, see manual for details."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Make and return a new uninterned symbol with the same print name\n"
+"  as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound\n"
+"  nor fbound and has no properties, else it has a copy of SYMBOL's\n"
+"  function, value and property list."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Returns true if Object is a symbol in the keyword package."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Counter for generating unique GENSYM symbols."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid ""
+"Creates a new uninterned symbol whose name is a prefix string (defaults\n"
+"   to \"G\"), followed by a decimal number.  Thing, when supplied, will\n"
+"   alter the prefix if it is a string, or be used for the decimal number\n"
+"   if it is a number, of this symbol. The default value of the number is\n"
+"   the current value of *gensym-counter* which is incremented each time\n"
+"   it is used."
+msgstr ""
+
+#: target:code/symbol.lisp
+msgid "Creates a new symbol interned in package Package with the given Prefix."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid ""
+"When the bignum pieces are smaller than this many words, we use the\n"
+"classical multiplication algorithm instead of recursing all the way\n"
+"down to individual words."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Use Karatsuba if the bignums have at least this many bits"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Unexpected zero bignums?"
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Can't represent result of left shift."
+msgstr ""
+
+#: target:code/bignum.lisp
+msgid "Too large to be represented as a ~S:~%  ~S"
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "More types than vars."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Duplicate case: ~S."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "More vars than types."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n"
+"  A vaguely case-like macro that does number cross-product dispatches.  The\n"
+"  Vars are the variables we are dispatching off of.  The Type paired with "
+"each\n"
+"  Var is used in the error message when no case matches.  Each case "
+"specifies a\n"
+"  Type for each var, and is executed when that signature holds.  A type may "
+"be\n"
+"  a list (FOREACH Each-Type*), causing that case to be repeatedly "
+"instantiated\n"
+"  for every Each-Type.  In the body of each case, any list of the form\n"
+"  (DISPATCH-TYPE Var-Name) is substituted with the type of that var in that\n"
+"  instance of the case.\n"
+"\n"
+"  As an alternate to a case spec, there may be a form whose CAR is a "
+"symbol.\n"
+"  In this case, we apply the CAR of the form to the CDR and treat the result "
+"of\n"
+"  the call as a list of cases.  This process is not applied recursively."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the element type of the most specialized COMPLEX number type that\n"
+"   can hold parts of type Spec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Assume this is a subtype of REAL anyway."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Cannot determine if ~S is a subtype of REAL."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Complex numbers cannot have components of type ~S."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Builds a complex number from the specified components."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extracts the real part of a number."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extracts the imaginary part of a number."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the complex conjugate of NUMBER.  For non-complex numbers, this is\n"
+"  an identity."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return the numerator of NUMBER, which must be rational."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return the denominator of NUMBER, which must be rational."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the sum of its arguments.  With no args, returns 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the product of its arguments.  With no args, returns 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Subtracts the second and all subsequent arguments from the first.\n"
+"  With one arg, negates it."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Divides the first arg by each of the following arguments, in turn.\n"
+"  With one arg, returns reciprocal."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER + 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns NUMBER - 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns number (or number/divisor) as an integer, rounded toward 0.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest integer not greater than number, or number/divisor.\n"
+"  The second returned value is (mod number divisor)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the smallest integer not less than number, or number/divisor.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Rounds number (or number/divisor) to nearest integer.\n"
+"  The second returned value is the remainder."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns second result of TRUNCATE."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns second result of FLOOR."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as TRUNCATE, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as FLOOR, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as CEILING, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Same as ROUND, but returns first value as a float."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if all of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if no two of its arguments are numerically equal, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns T if arguments are in strictly non-increasing order, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the greatest of its arguments."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the least of its arguments."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise or of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise exclusive or of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise and of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the bit-wise equivalence of its arguments.  Args must be integers."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical AND of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the complement of the logical OR of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the bit-wise logical not of integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n"
+"  if INTEGER is negative."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate which returns T if logand of integer1 and integer2 is not zero."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Predicate returns T if bit index of integer is a 1.  The least\n"
+"significant bit of INTEGER is bit 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Shifts integer left by count places preserving sign.  - count shifts right."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the number of significant bits in the absolute value of integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns a byte specifier which may be used by other byte functions."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the size part of the byte specifier bytespec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns the position part of the byte specifier bytespec."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Extract the specified byte from integer, and right justify result."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if any of the specified bits in integer are 1's."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Extract the specified byte from integer,  but do not right justify result."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is right "
+"justified."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns new integer with newbyte in specified position, newbyte is not right "
+"justified."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return -1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return complement of integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logand of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logior of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return log nand of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Boole function op, makes BOOLE return logorc2 of integer1 and integer2."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Bit-wise boolean function on two integers.  Function chosen by OP:\n"
+"\t0\tBOOLE-CLR\n"
+"\t1\tBOOLE-SET\n"
+"\t2\tBOOLE-1\n"
+"  \t3\tBOOLE-2\n"
+"\t4\tBOOLE-C1\n"
+"\t5\tBOOLE-C2\n"
+"\t6\tBOOLE-AND\n"
+"\t7\tBOOLE-IOR\n"
+" \t8\tBOOLE-XOR\n"
+"\t9\tBOOLE-EQV\n"
+"\t10\tBOOLE-NAND\n"
+"\t11\tBOOLE-NOR\n"
+"\t12\tBOOLE-ANDC1\n"
+"\t13\tBOOLE-ANDC2\n"
+"\t14\tBOOLE-ORC1\n"
+"\t15\tBOOLE-ORC2"
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the greatest common divisor of the arguments, which must be\n"
+"  integers.  Gcd with no arguments is defined to be 0."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the least common multiple of one or more integers.  LCM of no\n"
+"  arguments is defined to be 1."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T iff X is a positive prime integer."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid ""
+"Returns the root of the nearest integer less than n which is a perfect\n"
+"   square."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number = 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number > 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number < 0, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is odd, NIL otherwise."
+msgstr ""
+
+#: target:code/numbers.lisp
+msgid "Returns T if number is even, NIL otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown float trap kind: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function sets options controlling the floating-point hardware.  If a\n"
+"  keyword is not supplied, then the current value is preserved.  Possible\n"
+"  keywords:\n"
+"\n"
+"   :TRAPS\n"
+"       A list of the exception conditions that should cause traps.  "
+"Possible\n"
+"       exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+"       all traps except :INEXACT are enabled.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       The rounding mode to use when the result is not exact.  Possible "
+"values\n"
+"       are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+"       Initially, the rounding mode is :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       These arguments allow setting of the exception flags.  The main use "
+"is\n"
+"       setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Set the hardware's \"fast mode\" flag, if any.  When set, IEEE\n"
+"       conformance or debuggability may be impaired.  Some machines may not\n"
+"       have this feature, in which case the value is always NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+"   currently in effect."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+"  modes.  The list is in the same format as the keyword arguments to\n"
+"  SET-FLOATING-POINT-MODES, i.e. \n"
+"      (apply #'set-floating-point-modes (get-floating-point-modes))\n"
+"\n"
+"  sets the floating point modes to their current values (and thus is a no-"
+"op)."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Current-Float-Trap Trap-Name*\n"
+"  Return true if any of the named traps are currently trapped, false\n"
+"  otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "SIGFPE with no exceptions currently enabled?"
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+"  masked (disabled).  TRAPS should be a list of possible exceptions\n"
+"  which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+"  :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+"  accrued exceptions are cleared at the start of the body to support\n"
+"  their testing within, and restored on exit."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is denormalized."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of significant digits in it's float argument.\n"
+"  Will be less than FLOAT-DIGITS if denormalized or zero."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a floating-point number that has the same sign as\n"
+"   float1 and, if float2 is given, has the same absolute value\n"
+"   as float2."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of radix-b digits used in the\n"
+"   representation of it's argument.  See Common Lisp: The Language\n"
+"   by Guy Steele for more details."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns (as an integer) the radix b of its floating-point\n"
+"   argument."
+msgstr ""
+
+#: target:code/irrat.lisp target:code/float.lisp
+msgid "Can't decode NAN or infinity: ~S."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) an integer representation of the significand.\n"
+"   2) the exponent for the power of 2 that the significand must be "
+"multiplied\n"
+"      by to get the actual value.  This differs from the DECODE-FLOAT "
+"exponent\n"
+"      by FLOAT-DIGITS, since the significand has been scaled to have all "
+"its\n"
+"      digits before the radix point.\n"
+"   3) -1 or 1 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+"   1) a floating-point number representing the significand.  This is always\n"
+"      between 0.5 (inclusive) and 1.0 (exclusive).\n"
+"   2) an integer representing the exponent.\n"
+"   3) -1.0 or 1.0 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
+"  of precision or overflow."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a float.  If OTHER is not provided, it returns a\n"
+"  SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the\n"
+"  result is the same float format as OTHER."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"RATIONAL produces a rational number for any real numeric argument.  This is\n"
+"  more efficient than RATIONALIZE, but it assumes that floating-point is\n"
+"  completely accurate, giving a result that isn't as pretty."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a RATIONAL.  Floats are converted to a simple rational\n"
+"  representation exploiting the assumption that floats are only accurate to\n"
+"  their precision.  RATIONALIZE (and also RATIONAL) preserve the invariant:\n"
+"      (= x (float (rationalize x) x))"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return e raised to the power NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "The absolute value of ~S exceeds limit ~S."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation, update limit"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns BASE raised to the POWER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the square root of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns the absolute value of the number."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Returns the angle part of the polar representation of a complex number.\n"
+"  For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
+"  For non-complex positive numbers, this is 0.  For non-complex negative\n"
+"  numbers this is PI."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Argument to CIS is complex: ~S"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute 2^N * X without compute 2^N first (use properties of the\n"
+"underlying floating-point format"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Same as logb but X is not infinity and non-zero and not a NaN, so\n"
+"that we can always return an integer"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
+"For the special cases, the following values are used:\n"
+"\n"
+"    x             logb\n"
+"   NaN            NaN\n"
+"   +/- infinity   +infinity\n"
+"   0              -infinity\n"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Create complex number with real part X and imaginary part Y such that\n"
+"it has the same type as Z.  If Z has type (complex rational), the X\n"
+"and Y are coerced to single-float."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Principle square root of Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute log(2^j*z).\n"
+"\n"
+"This is for use with J /= 0 only when |z| is huge."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Log of Z = log |Z| + i * arg Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute tanh z = sinh z / cosh z"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acos z = pi/2 - asin z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asin z = asinh(i*z)/i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asinh z = log(z + sqrt(1 + z*z))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute atan z = atanh (i*z) / i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute tan z = -i * tanh(i * z)\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(most-positive-double-double-float)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(least-positive-double-double-float"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Log base 2 of e"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log2(e)-1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/4"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Sqrt(1/2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "exp(x) - 1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "396 (hex) digits of 2/pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Overflow"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"~S uses lambda-list keyword naming convention, but is not a recognized "
+"lambda-list keyword."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &optional in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &rest in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &more in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &key in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &allow-other-keys in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Misplaced &aux in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Found garbage in lambda-list when expecting a keyword: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "&rest not followed by required variable."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Illegal function name: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Special form is an illegal function name: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"Defining as a SETF function a name that already has a SETF macro:~\n"
+"       ~%  ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Assume redefinition is compatible and allow it"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Redefining slot accessor ~S for structure type ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "~S previously defined as a macro."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Unknown optimization quality ~S in ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Malformed optimization quality specifier ~S in ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid ""
+"DECLAIM Declaration*\n"
+"  Do a declaration for the global environment."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Malformed PROCLAIM spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Variable name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Nihil ex nihil, can't declare ~S special."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Veritas aeterna, can't declare ~S special."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Can't declare ~S special, it is a keyword."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Proceed anyway."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Trying to declare ~S special, which is ~A."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "a constant"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "an alien variable"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "a symbol macro"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Declared functional type is not a function type: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Ignoring FTYPE declaration for slot accesor:~%  ~S"
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration to be RECOGNIZED is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/proclaim.lisp
+msgid "Declaration already names a type: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+msgid "Unrecognized proclamation: ~S."
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "The Unicode data file is broken."
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "Unicode data file is for Unicode ~D.~D.~D"
+msgstr ""
+
+#: target:code/unidata.lisp
+msgid "No data in file."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on values produced by CHAR-CODE."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "The upper exclusive bound on the value of a Unicode codepoint"
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"This is the alist of (character-name . character) for characters with\n"
+"  long names.  The first name in this list for a given character is used\n"
+"  on typeout and is the preferred form for input."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns the integer code of CHAR."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns the integer code of CHAR.  This is the same as char-code, as\n"
+"   CMU Common Lisp does not implement character bits or fonts."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns the character with the code CODE."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Coerces its argument into a character object if possible.  Accepts\n"
+"  characters, strings and symbols of length 1."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "String is not of length one: ~S"
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Symbol name is not of length one: ~S"
+msgstr ""
+
+#: target:code/char.lisp
+msgid "~S cannot be coerced to a character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given a character object, char-name returns the name for that\n"
+"  object (a symbol)."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given an argument acceptable to string, name-char returns a character\n"
+"  object whose name is that symbol, if one exists, otherwise NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Standard-char-p returns T if the\n"
+"   argument is a standard character -- one of the 95 ASCII printing "
+"characters\n"
+"   or <return>."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Return T if and only if THING is a standard-char.  Differs from\n"
+"  standard-char-p in that THING doesn't have to be a character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Graphic-char-p returns T if the\n"
+"  argument is a printing character, otherwise returns NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Alpha-char-p returns T if the\n"
+"  argument is an alphabetic character; otherwise NIL."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; upper-case-p returns T if the\n"
+"  argument is an upper-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; lower-case-p returns T if the \n"
+"  argument is a lower-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object; title-case-p returns T if the\n"
+"  argument is a title-case character, NIL otherwise."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"The argument must be a character object.  Both-case-p returns T if the\n"
+"  argument is an alphabetic character and if the character exists in\n"
+"  both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"If char is a digit in the specified radix, returns the fixnum for\n"
+"  which that digit stands, else returns NIL.  Radix defaults to 10\n"
+"  (decimal)."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Given a character-object argument, alphanumericp returns T if the\n"
+"  argument is either numeric or alphabetic."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if all of its arguments are the same character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if no two of its arguments are the same character."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if its arguments are in strictly increasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns T if its arguments are in strictly decreasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if all of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if no two of its arguments are the same character.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
+"   Case is ignored."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to upper-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to title-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid "Returns CHAR converted to lower-case if that is possible."
+msgstr ""
+
+#: target:code/char.lisp
+msgid ""
+"All arguments must be integers.  Returns a character object that\n"
+"  represents a digit of the given weight in the specified radix.  Returns\n"
+"  NIL if no such character exists."
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp
+msgid ""
+"Returns the documentation string of Doc-Type for X, or NIL if\n"
+"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
+"  SETF, and T."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "~S is not the name of a structure type."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"If X is an atom, see if it is present in *FEATURES*.  Also\n"
+"  handle arbitrary combinations of atoms using NOT, AND, OR."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Unknown operator in feature expression: ~S."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation type."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the implementation version."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid " Unicode"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string giving the name of the local machine."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string describing the supporting software."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Unknown"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string with the abbreviated site name."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Site name not initialized"
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Returns a string with the long form of the site name."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"With a file name as an argument, dribble opens the file and\n"
+"   sends a record of further I/O to that file.  Without an\n"
+"   argument, it closes the dribble file, and quits logging."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid "Not currently dribbling."
+msgstr ""
+
+#: target:code/misc.lisp
+msgid ""
+"Default implementation of ed.  This does nothing.  If hemlock is\n"
+"  loaded, ed can be used to edit a file"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"This function can be used as the default value for keyword arguments that\n"
+"  must be always be supplied.  Since it is known by the compiler to never\n"
+"  return, it will avoid any compile-time type warnings that would result "
+"from a\n"
+"  default value inconsistent with the declared type.  When this function is\n"
+"  called, it signals an error indicating that a required keyword argument "
+"was\n"
+"  not supplied.  This function is also useful for DEFSTRUCT slot defaults\n"
+"  corresponding to required arguments."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "A required keyword argument was not supplied."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"FILE-COMMENT String\n"
+"  When COMPILE-FILE sees this form at top-level, it places the constant "
+"string\n"
+"  in the run-time source location information.  DESCRIBE will print the "
+"file\n"
+"  comment for the file that a function was defined in.  The string is also\n"
+"  textually present in the FASL, so the RCS \"ident\" command can find it,\n"
+"  etc."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "See listen.  Any whitespace in the input stream will be flushed."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Does what one might expect, saving the old values and setting the "
+"generalized\n"
+"  variables to the new values in sequence.  Unwind-protects and get-setf-"
+"method\n"
+"  are used to preserve the semantics one might expect in analogy to let*,\n"
+"  and the once-only evaluation of subforms."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Like letf*, but evaluates all the implicit subforms and new values of all\n"
+"  the implied setfs before altering any values.  However, the store forms\n"
+"  (see get-setf-method) must still be evaluated in sequence.  Uses unwind-\n"
+"  protects to protect the environment."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Causes the output of the indenting Stream to indent More spaces.  More is\n"
+"  evaluated twice."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Just like dolist, but with one-dimensional arrays."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n"
+"  This is syntactic sugar for Labels.  It creates a local function Name "
+"with\n"
+"  the specified Vars as its arguments and the Declarations and Forms as its\n"
+"  body.  This function is then called with the Initial-Values, and the "
+"result\n"
+"  of the call is return from the macro."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed iterate variable spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n"
+"  Collect some values somehow.  Each of the collections specifies a bunch "
+"of\n"
+"  things which collected during the evaluation of the body of the form.  "
+"The\n"
+"  name of the collection is used to define a local macro, a la MACROLET.\n"
+"  Within the body, this macro will evaluate each of its arguments and "
+"collect\n"
+"  the result, returning the current value after the collection is done.  "
+"The\n"
+"  body is evaluated as a PROGN; to get the final values when you are done, "
+"just\n"
+"  call the collection macro with no arguments.\n"
+"\n"
+"  Initial-Value is the value that the collection starts out with, which\n"
+"  defaults to NIL.  Function is the function which does the collection.  It "
+"is\n"
+"  a function which will accept two arguments: the value to be collected and "
+"the\n"
+"  current collection.  The result of the function is made the new value for "
+"the\n"
+"  collection.  As a totally magical special-case, the Function may be "
+"Collect,\n"
+"  which tells us to build a list in forward order; this is the default.  If "
+"an\n"
+"  Initial-Value is supplied for Collect, the stuff will be rplacd'd onto "
+"the\n"
+"  end.  Note that Function may be anything that can appear in the "
+"functional\n"
+"  position, including macros and lambdas."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed collection specifier: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Once-Only ({(Var Value-Expression)}*) Form*\n"
+"  Create a Let* which evaluates each Value-Expression, binding a temporary\n"
+"  variable to the result, and wrapping the Let* around the result of the\n"
+"  evaluation of Body.  Within the body, each Var is bound to the "
+"corresponding\n"
+"  temporary variable."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Malformed Once-Only binding spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Ill-formed ~S -- possibly illegal old style DO?"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "~S step variable is not a symbol: ~S"
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "~S is an illegal form for a ~S varlist."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Like DO, but has no implicit NIL block.  Each Var is initialized in "
+"parallel\n"
+"  to the value of the specified Init form.  On subsequent iterations, the "
+"Vars\n"
+"  are assigned the value of the Step form (if any) in paralell.  The Test "
+"is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n"
+"   Iterate over the entries in a hash-table."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n"
+"  Define a hash cache that associates some number of argument values to a\n"
+"  result value.  The Test-Function paired with each Arg-Name is used to "
+"compare\n"
+"  the value for that arg in a cache entry with a supplied arg.  The\n"
+"  Test-Function must not error when passed NIL as its first arg, but need "
+"not\n"
+"  return any particular value.  Test-Function may be any thing that can be\n"
+"  place in CAR position.\n"
+"\n"
+"  Name is used to define functions these functions:\n"
+"\n"
+"  <name>-CACHE-LOOKUP Arg*\n"
+"      See if there is an entry for the specified Args in the cache.  The if "
+"not\n"
+"      present, the :DEFAULT keyword (default NIL) determines the result(s).\n"
+"\n"
+"  <name>-CACHE-ENTER Arg* Value*\n"
+"      Encache the association of the specified args with Value.\n"
+"\n"
+"  <name>-CACHE-FLUSH-<arg-name> Arg\n"
+"      Flush all entries from the cache that have the value Arg for the "
+"named\n"
+"      arg.\n"
+"\n"
+"  <name>-CACHE-CLEAR\n"
+"      Reinitialize the cache, invalidating all entries and allowing the\n"
+"      arguments and result values to be GC'd.\n"
+"\n"
+"  These other keywords are defined:\n"
+"\n"
+"  :HASH-BITS <n>\n"
+"      The size of the cache as a power of 2.\n"
+"\n"
+"  :HASH-FUNCTION function\n"
+"      Some thing that can be placed in CAR position which will compute a "
+"value\n"
+"      between 0 and (1- (expt 2 <hash-bits>)).\n"
+"\n"
+"  :VALUES <n>\n"
+"      The number of values cached.\n"
+"\n"
+"   :INIT-FORM <name>\n"
+"      The DEFVAR for creating the cache is enclosed in a form with the\n"
+"      specified name.  Default PROGN."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Number of default values ~S differs from :VALUES ~D."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid "Bad arg spec: ~S."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n"
+"  Some syntactic sugar for defining a function whose values are cached by\n"
+"  DEFINE-HASH-CACHE."
+msgstr ""
+
+#: target:code/extensions.lisp
+msgid ""
+"Return an EQ hash of X.  The value of this hash for any given object can "
+"(of\n"
+"  course) change at arbitary times."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "A list of all the command line arguments after --"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of cmd-switch's representing the arguments used to invoke\n"
+"  this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "The string name that was used to invoke this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "A list of words between the utility name and the first switch."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"A list of strings obtained from the command line that invoked this process."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "An Alist of (\"argument-name\" . demon-function)"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"When True runs lisp with its input coming from standard-input.\n"
+"   If an error is detected returns error code 1, otherwise 0."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"Accepts the name of a switch as a string and returns the value of the\n"
+"   switch.  If no value was specified, then any following words are "
+"returned.\n"
+"   If there are no following words, then t is returned.  If the switch was "
+"not\n"
+"   specified, then nil is returned."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"When set, invoking switch demons complains about illegal switches that have\n"
+"   not been defined with DEFSWITCH."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "~S is an illegal switch"
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid ""
+"Associates function with the switch name in *command-switch-demons*.  Name\n"
+"   is a simple-string that does not begin with a hyphen, unless the switch "
+"name\n"
+"   really does begin with one.  Function is optional, but defining the "
+"switch\n"
+"   is necessary to keep invoking switch demons from complaining about "
+"illegal\n"
+"   switches.  This can be inhibited with *complain-about-illegal-switches*."
+msgstr ""
+
+#: target:code/commandline.lisp
+msgid "a symbol or function"
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the symbol VAR in the lexical environment ENV.\n"
+"Three values are returned:\n"
+"  1) Type or binding of VAR.\n"
+"     NIL           No definition or binding\n"
+"     :special      VAR is special\n"
+"     :lexical      VAR is lexical\n"
+"     :symbol-macro VAR refers to a SYMBOL-MACROLET binding\n"
+"     :constant     VAR refers to a named constant or VAR is a keyword\n"
+"  2) non-NIL if there is a local binding\n"
+"  3) An a-list containing information about any declarations that apply."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about declarations named by the symbol DECLARATION-"
+"NAME.\n"
+"Supported DECLARATION-NAMES are\n"
+"  1) OPTIMIZE\n"
+"     A list whose entries are of the form (QUALITY VALUE) is returned,\n"
+"     where QUALITY and VALUE are standard optimization qualities and\n"
+"     values.\n"
+"  2) EXT:OPTIMIZE-INTERFACE\n"
+"     Like OPTIMIZE, but for the EXT:OPTIMIZE-INTERFACE declaration.\n"
+"  3) DECLARATION.\n"
+"     A list of the declaration names the have been proclaimed as valid."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid "Unsupported declaration ~S."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Process a macro in the same way that DEFMACRO or MACROLET would.\n"
+"Three values are returned:\n"
+"  1) A lambda-expression that accepts two arguments\n"
+"  2) A form\n"
+"  3) An environment"
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Returns information about the function name FUNCTION in the lexical "
+"environment ENV.\n"
+"Three values are returned:\n"
+"  1) Type of definition or binding:\n"
+"     NIL          No apparent definition\n"
+"    :function    FUNCTION refers to a function\n"
+"    :macro        FUNCTION refers to a macro\n"
+"    :special-form FUNCTION is a special form\n"
+"  2) non-NIL if definition is local\n"
+"  3) An a-list containing information about the declarations that apply."
+msgstr ""
+
+#: target:code/env-access.lisp
+msgid ""
+"Return a new environment containing information in ENV that is augmented\n"
+"by the specified parameters:\n"
+"  :VARIABLE     a list of symbols visible as bound variables in the new\n"
+"                environemnt\n"
+"  :SYMBOL-MACRO a list of symbol macro definitions\n"
+"  :FUNCTION     a list of function names that will be visible as local\n"
+"                functions\n"
+"  :MACRO        a list of local macro definitions\n"
+"  :DECLARE      a list of declaration specifiers"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by dfixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a + ~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments dfixnum v by i (max half fixnum)"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "not a half-fixnum: ~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by dfixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a - ~a (~a/~a)"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum v by half-fixnum i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid ""
+"increments dfixnum by an interger which may be bigger than fixnum.\n"
+"   May cons"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "returns a new dfixnum from number i"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "increments a pair of halffixnums by another pair"
+msgstr ""
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became too big ~a/~a + ~a/~a"
+msgstr ""
+
+#: target:code/dfixnum.lisp
+msgid "decrement dfixnum pair by another pair"
+msgstr ""
+
+#: target:code/profile.lisp target:code/dfixnum.lisp
+msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%~A:~%    ~:D bytes, ~:D object"
+msgid_plural "~%~A:~%    ~:D bytes, ~:D objects"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "~2&Breakdown for ~(~A~) space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D other object.~%"
+msgid_plural "  ~13:D bytes for ~9:D other objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object.~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
+msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid ""
+"Print out information about the heap memory in use.  :Print-Spaces is a "
+"list\n"
+"  of the spaces to print detailed information for.  :Count-Spaces is a list "
+"of\n"
+"  the spaces to scan.  For either one, T means all spaces (:Static, :"
+"Dyanmic\n"
+"  and :Read-Only.)  If :Print-Summary is true, then summary information will "
+"be\n"
+"  printed.  The defaults print only summary information for dynamic space.\n"
+"  If true, Cutoff is a fraction of the usage in a report below which types "
+"will\n"
+"  be combined as OTHER."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Print info about how much code and no-ops there are in Space."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Bogus type: ~D"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D words allocated for descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print a breakdown by instance type of all the instances allocated in\n"
+"  Space.  If TOP-N is true, print only information for the the TOP-N types "
+"with\n"
+"  largest usage."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "  ~32A: ~7:D bytes, ~5D object.~%"
+msgid_plural "  ~32A: ~7:D bytes, ~5D objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgid_plural "  Other types: ~:D bytes, ~D: object~:P.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
+msgid_plural "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "In ~A space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~D bytes at #x~X~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "No source for ~S"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
+msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid "~30@A: ~9:D bytes, ~9:D object.~%"
+msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/room.lisp
+msgid ""
+"Given a hashtable, print a histogram of the contents.  Function should give\n"
+"  the value to plot when applied to the hashtable values."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Report the Top-N entries in the hashtable Table, when sorted by Function\n"
+"  applied to the hash value.  If Top-N is NIL, report all entries."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Other~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Total~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable mapping each function in for which a call appears in\n"
+"  Space to the number of times such a call appears."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable translating code objects to function constant counts for\n"
+"  all code objects in Space with more than Above function constants."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Oh no.  The current dynamic space is missing!"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#: target:code/gc.lisp
+msgid "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
+msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#: target:code/gc.lisp
+msgid "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
+msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#: target:code/gc.lisp
+msgid "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "컨트롤 스택 사용:     ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#: target:code/gc.lisp
+msgid "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
+msgstr "바인딩 스택 사용:    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#: target:code/gc.lisp
+msgid "The current dynamic space is ~D.~%"
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/gc.lisp
+msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
+msgstr "가비지 컬렉션은 현재 ~:[활성화~;비활성화~]되어있습니다.~%"
+
+#: target:code/gc.lisp
+msgid ""
+"Prints to *STANDARD-OUTPUT* information about the state of internal\n"
+"  storage and its management.  The optional argument controls the\n"
+"  verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of\n"
+"  information.  If it is NIL, ROOM prints out a minimal amount of\n"
+"  information.  If it is :DEFAULT or it is not supplied, ROOM prints out\n"
+"  an intermediate amount of information.  See also VM:MEMORY-USAGE and\n"
+"  VM:INSTANCE-USAGE for finer report control."
+msgstr ""
+"의 상태에 대한 정보를 인쇄 *STANDARD-OUTPUT* 내부 스토리지 및\n"
+"  관리. 선택적 인수 컨트롤 ROOM의 다변. 경우 T입니다 최대한의 금액을\n"
+"  인쇄 ROOM 정보. 만약 NIL입니다 최소한의 금액을 인쇄 ROOM 정보. 만약\n"
+"  사실이라면 :DEFAULT 또는 제공하지 않으면 인쇄 ROOM 정 보의 중간\n"
+"  금액입니다. 또한 VM:MEMORY-USAGE 및보기 양질의 보고서를 제어\n"
+"  VM:INSTANCE-USAGE."
+
+#: target:code/gc.lisp
+msgid ""
+"No way man!  The optional argument to ROOM must be T, NIL, ~\n"
+"\t\t or :DEFAULT.~%What do you think you are doing?"
+msgstr ""
+"말도 안돼 남자! ROOM에 선택적 인수 T, NIL,되어야합니다 ~\n"
+"\t\t또는 :DEFAULT.~% 왜 당신이 뭘 생각하는거야?"
+
+#: target:code/gc.lisp
+msgid "resetting GC counters"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Returns the number of bytes consed since the first time this function\n"
+"  was called.  The first time it is called, it returns zero."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"This number specifies the minimum number of bytes of dynamic space\n"
+"   that must be consed before the next gc will occur."
+msgstr ""
+"바이트 처음부터이 기능을 consed의 수를 반환\n"
+"  라고했다. 그것이라고 처음으로, 0을 반환합니다."
+
+#: target:code/gc.lisp
+msgid ""
+"The total CPU time spend doing garbage collection (as reported by\n"
+"   GET-INTERNAL-RUN-TIME.)"
+msgstr ""
+"총 CPU 시간 (로에 의해보고되는 쓰레기를 수거하고 지출\n"
+"   GET-INTERNAL-RUN-TIME.)"
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called before garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"A list of functions that are called after garbage collection occurs.\n"
+"  The functions should take no arguments."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Should be bound to a function or NIL.  If it is a function, this\n"
+"  function should take one argument, the current amount of dynamic\n"
+"  usage.  The function should return NIL if garbage collection should\n"
+"  continue and non-NIL if it should be inhibited.  Use with caution."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n"
+"  *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n"
+"  occurs respectively.  If :BEEP, causes the default notify functions to "
+"beep\n"
+"  annoyingly."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"~&; [GC threshold exceeded with ~:D bytes in use.  ~\n"
+"             Commencing GC.]~%"
+msgstr ""
+"~&; [GC 문턱은 ~:D 바이트로 사용중인 초과했다.  ~\n"
+"             시작 GC.]~%"
+
+#: target:code/gc.lisp
+msgid ""
+"This function bound to this variable is invoked before GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n"
+"  bytes).  It should notify the user that the system is going to GC."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
+msgstr "~&; [유지되는 ~:D의 바이트 및 해방되는 ~:D의 바이트로 완료되는 GC.]~%"
+
+#: target:code/gc.lisp
+msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
+msgstr "~&; [GC는 다음 적어도 ~:D의 바이트가 사용중인 일 때 일어날 것이다.]~%"
+
+#: target:code/gc.lisp
+msgid ""
+"The function bound to this variable is invoked after GC'ing (unless\n"
+"  *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n"
+"  free, the number of bytes freed by the GC, and the new GC trigger\n"
+"  threshold.  The function should notify the user that the system has\n"
+"  finished GC'ing."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Attempt to set GC trigger to something bogus: ~S"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n"
+"\t       integer.  Resetting it to ~D."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The optional argument, VERBOSE-P,\n"
+"  which defaults to the value of the variable *GC-VERBOSE* controls\n"
+"  whether or not GC statistics are printed."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection.  The keyword :VERBOSE, which\n"
+"   defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
+"   not GC statistics are printed. The keyword :GEN defaults to 0, and\n"
+"   controls the number of generations to garbage collect."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Return the amount of memory that will be allocated before the next garbage\n"
+"   collection is initiated.  This can be set with SETF."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Enables the garbage collector."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid "Disables the garbage collector."
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Return some GC statistics for the specified GENERATION.  The\n"
+"  statistics are the number of bytes allocated in this generation; the\n"
+"  gc-trigger; the number of bytes consed between GCs; the number of\n"
+"  GCs that have occurred; the trigger age; the cumulative number of\n"
+"  bytes allocated in this generation; and the average age of this\n"
+"  generation.  See the gencgc source code for more info."
+msgstr ""
+
+#: target:code/purify.lisp
+msgid ""
+"This function optimizes garbage collection by moving all currently live\n"
+"   objects into non-collected storage.  ROOT-STRUCTURES is an optional list "
+"of\n"
+"   objects which should be copied first to maximize locality.\n"
+"\n"
+"   DEFSTRUCT structures defined with the (:PURE T) option are moved into\n"
+"   read-only storage, further reducing GC cost.  List and vector slots of "
+"pure\n"
+"   structures are also moved into read-only storage.\n"
+"\n"
+"   ENVIRONMENT-NAME is gratuitous documentation for compacted version of "
+"the\n"
+"   current global environment (as seen in C::*INFO-ENVIRONMENT*.)  If NIL "
+"is\n"
+"   supplied, then environment compaction is inhibited."
+msgstr ""
+
+#: target:code/purify.lisp
+msgid "[Doing purification: "
+msgstr ""
+
+#: target:code/purify.lisp
+msgid "Done.]"
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Create a new scavenger-hook with the specified VALUE and FUNCTION.  For\n"
+"   as long as the scavenger-hook is alive, the scavenger in the garbage\n"
+"   collector will note whenever VALUE is moved, and arrange for FUNCTION\n"
+"   to be funcalled."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Returns the FUNCTION invoked when the monitored value is moved.  Can be\n"
+"   setf."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called before creating a saved core\n"
+"  image.  These functions are executed in the child process which has no "
+"ports,\n"
+"  so they cannot do anything that tries to talk to the outside world."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"This is a list of functions which are called when a saved core image starts\n"
+"  up.  The system itself should be initialized at this point, but "
+"applications\n"
+"  might not be."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "An alist mapping environment variables (as keywords) to either values"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Non-NIL if environment-init has been called"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "This is true if and only if the lisp was started with the -edit switch."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
+"  following keywords are defined:\n"
+"  \n"
+"  :purify\n"
+"      If true (the default), do a purifying GC which moves all dynamically\n"
+"  allocated objects into static space so that they stay pure.  This takes\n"
+"  somewhat longer than the normal GC which is otherwise done, but GC's will\n"
+"  be done less often and take less time in the resulting core file.  See\n"
+"  EXT:PURIFY.\n"
+"\n"
+"  :root-structures\n"
+"      This should be a list of the main entry points in any newly loaded\n"
+"  systems.  This need not be supplied, but locality and/or GC performance\n"
+"  will be better if they are.  Meaningless if :purify is NIL.  See EXT:"
+"PURIFY.\n"
+"\n"
+"  :environment-name\n"
+"      Also passed to EXT:PURIFY when :PURIFY is T.  Rarely used.\n"
+"  \n"
+"  :init-function\n"
+"      This is the function that starts running when the created core file "
+"is\n"
+"  resumed.  The default function simply invokes the top level\n"
+"  read-eval-print loop.  If the function returns the lisp will exit.\n"
+"  \n"
+"  :load-init-file\n"
+"      If true, then look for an init.lisp or init.fasl file when the core\n"
+"  file is resumed.\n"
+"\n"
+"  :site-init\n"
+"      If true, then the name of the site init file to load.  The default is\n"
+"      library:site-init.  No error if this does not exist.\n"
+"\n"
+"  :print-herald\n"
+"      If true (the default), print out the lisp system herald when "
+"starting.\n"
+"\n"
+"  :process-command-line\n"
+"      If true (the default), process command-line switches via the normal\n"
+"  mechanisms, otherwise ignore all switches (except those processed by the\n"
+"  C startup code).\n"
+"\n"
+"  :executable\n"
+"      If nil (the default), save-lisp will save using the traditional\n"
+"   core-file format.  If true, save-lisp will create an executable\n"
+"   file that contains the lisp image built in. \n"
+"   (Not all architectures support this yet.)\n"
+"\n"
+"  :batch-mode\n"
+"      If nil (the default), then the presence of the -batch command-line\n"
+"  switch will invoke batch-mode processing.  If true, the produced core\n"
+"  will always be in batch-mode, regardless of any command-line switches."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Directory ~S does not exist"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Skip remaining initializations."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Error in batch processing:~%~A~%"
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Determines what PRINT-HERALD prints (the system startup banner.)  This is a\n"
+"   database which can be augmented by each loaded system.  The format is a\n"
+"   property list which maps from subsystem names to the banner information "
+"for\n"
+"   that system.  This list can be manipulated with GETF -- entries are "
+"printed\n"
+"   in, reverse order, so the newest entry is printed last.  Usually the "
+"system\n"
+"   feature keyword is used as the system name.  A given banner is a list of\n"
+"   strings and functions (or function names).  Strings are printed, and\n"
+"   functions are called with an output stream argument."
+msgstr ""
+
+#: target:code/save.lisp
+msgid ", running on "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "With core: "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Dumped on: "
+msgstr ""
+
+#: target:code/save.lisp
+msgid " on "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "See <http://www.cons.org/cmucl/> for support information."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Loaded subsystems:"
+msgstr ""
+
+#: target:code/save.lisp
+msgid "    Unicode "
+msgstr ""
+
+#: target:code/save.lisp
+msgid "with Unicode version "
+msgstr ""
+
+#: target:code/save.lisp
+msgid ""
+"Print some descriptive information about the Lisp system version and\n"
+"   configuration."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Unrecognized *HERALD-ITEMS* entry: ~S."
+msgstr ""
+
+#: target:code/save.lisp
+msgid "Change *PACKAGE* to the USER package and try again."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Terminal I/O stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Default input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Default output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Error output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Query I/O stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trace output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Interactive debugging stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not an input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not an output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a character input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a character output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a binary input stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"~S is not a binary input stream ~\n"
+"                          or does not support multi-byte read operations."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is not a binary output stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is closed."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~S is an unsupported Gray stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform input operations."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp target:code/stream.lisp
+msgid "Returns non-nil if the given Stream can perform output operations."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Return true if Stream is not closed."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns a type specifier for the kind of object returned by the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Return true if Stream does I/O on a terminal or other interactive device."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Can't set interactive flag on ~S."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns the external format used by the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but inquiries\n"
+"  may still be made.  If :Abort is non-nil, an attempt is made to clean\n"
+"  up the side effects of having created the stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"With one argument returns the current position within the file\n"
+"   File-Stream is open to.  If the second argument is supplied, then\n"
+"   this becomes the new file position.  The second argument may also\n"
+"   be :start or :end for the start and end of the file, respectively."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"This function returns the length of the file that File-Stream is open to."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a line of text read from the Stream as a string, discarding the\n"
+"  newline character."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Inputs a character from Stream and returns it."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Puts the Character back on the front of the input Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Nothing to unread."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Impossible case reached in PEEK-CHAR"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Peeks at the next character in the input Stream.  See manual for details."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns T if a character is available on the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns the next character from the Stream if one is available, or nil."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Clears any buffered input associated with the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns the next byte of the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Reads Numbytes bytes into the Buffer starting at Start, returning the "
+"number\n"
+"   of bytes read.\n"
+"   -- If EOF-ERROR-P is true, an END-OF-FILE condition is signalled if\n"
+"      end-of-file is encountered before Count bytes have been read.\n"
+"   -- If EOF-ERROR-P is false, READ-N-BYTES reads as much data as is "
+"currently\n"
+"      available (up to count bytes).  On pipes or similar devices, this\n"
+"      function returns as soon as any data is available, even if the amount\n"
+"      read is less than Count and eof has not been hit."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the Character to the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs a new line to the Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the beginning "
+"of\n"
+"   a line.  Returns T if it output a new line, nil otherwise."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the String to the given Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Outputs the String to the given Stream, followed by a newline character."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters on the current line of output of the given\n"
+"  Stream, or Nil if that information is not availible."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns the number of characters that will fit on a line of output on the\n"
+"  given Stream, or Nil if that information is not available."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached its\n"
+"   destination, and only then returns."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Attempts to force any buffered output to be sent."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Clears the given output Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Outputs the Integer to the binary Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an output stream which sends its output to all of the given\n"
+"streams."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which performs its operations on the stream which is the\n"
+"   value of the dynamic variable named by Symbol."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream which takes its input from each of the Streams in turn,\n"
+"   going on to the next at EOF."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an echo stream that takes input from Input-stream and sends\n"
+"output to Output-stream"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a bidirectional stream which gets its input from Input-Stream and\n"
+"   sends its output to Output-Stream.  In addition, all input is echoed to\n"
+"   the output stream"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an input stream which will supply the characters of String between\n"
+"  Start and End in order."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns an Output stream which will accumulate all output given to it for\n"
+"   the benefit of the function Get-Output-Stream-String."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a string of all the characters sent to a stream made by\n"
+"   Make-String-Output-Stream since the last call to this function."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Dumps the characters buffer up in the In-Stream to the Out-Stream as\n"
+"  Get-Output-Stream-String would return them."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Returns an output stream which indents its output by some amount."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Returns a stream that sends all output to the stream TARGET, but modifies\n"
+"   the case of letters, depending on KIND, which should be one of:\n"
+"     :upcase - convert to upper case.\n"
+"     :downcase - convert to lower case.\n"
+"     :capitalize - convert the first letter of words to upper case and the\n"
+"        rest of the word to lower case.\n"
+"     :capitalize-first - convert the first letter of the first word to "
+"upper\n"
+"        case and everything else to lower case."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"This takes a stream and waits for text or a command to appear on it.  If\n"
+"   text appears before a command, this returns nil, and otherwise it "
+"returns\n"
+"   a command."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Destructively modify SEQ by reading elements from STREAM.\n"
+"\n"
+"  Seq is bounded by Start and End. Seq is destructively modified by\n"
+"  copying successive elements into it from Stream. If the end of file\n"
+"  for Stream is reached before copying all elements of the subsequence,\n"
+"  then the extra elements near the end of sequence are not updated.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:\t    a proper SEQUENCE\n"
+"  STREAM:   an input STREAM\n"
+"  START:    a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:      a bounding index designator which be NIL or an INTEGER of\n"
+"\t    type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  POSITION: an INTEGER greater than or equal to zero, and less than or\n"
+"\t    equal to the length of the SEQ. POSITION is the index of\n"
+"\t    the first element of SEQ that was not updated, which might be\n"
+"\t    less than END because the end of file was reached."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open for input."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to read characters from a binary stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to read binary data from a text stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid ""
+"Writes the elements of the Seq bounded by Start and End to Stream.\n"
+"\n"
+"  Argument(s):\n"
+"  SEQ:     a proper SEQUENCE\n"
+"  STREAM:  an output STREAM\n"
+"  START:   a bounding index designator of type '(INTEGER 0 *)' (default 0)\n"
+"  END:     a bounding index designator which be NIL or an INTEGER of\n"
+"           type '(INTEGER 0 *)' (default NIL)\n"
+"\n"
+"  Value(s):\n"
+"  SEQ:\ta proper SEQUENCE\n"
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "The stream is not open for output."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output an element of unproper type to a stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output a string to a binary stream."
+msgstr ""
+
+#: target:code/stream.lisp
+msgid "Trying to output binary data to a text stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If true, all objects will printed readably.  If readably printing is\n"
+"  impossible, an error will be signalled.  This overrides the value of\n"
+"  *PRINT-ESCAPE*."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Flag which indicates that slashification is on.  See the manual"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Flag which indicates that pretty printing is to be used"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "The output base for integers and rationals."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "This flag requests to verify base when printing rationals."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "How many levels deep to print.  Unlimited if null."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "How many elements to print on each level.  Unlimited if null."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Whether to worry about circular list structures. See the manual."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "What kind of case the printer should use by default"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Whether the array should print it's guts out"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If true, symbols with no home package are printed with a #: prefix.\n"
+"  If false, no prefix is printed."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "The maximum number of lines to print.  If NIL, unlimited."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The position of the right margin in ems.  If NIL, try to determine this\n"
+"   from the stream in use."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"If the remaining space between the current column and the right margin\n"
+"   is less than this, then print using ``miser-style'' output.  Miser\n"
+"   style conditional newlines are turned on, and all indentations are\n"
+"   turned off.  If NIL, never use miser mode."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The pprint-dispatch-table that controls how to pretty print objects.  See\n"
+"   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Bind the reader and printer control variables to values that enable READ\n"
+"   to reliably read the results of PRINT.  These values are:\n"
+"       *PACKAGE*\t\t\tThe COMMON-LISP-USER package\n"
+"       *PRINT-ARRAY*\t\t\tT\n"
+"       *PRINT-BASE*\t\t\t10\n"
+"       *PRINT-CASE*\t\t\t:UPCASE\n"
+"       *PRINT-CIRCLE*\t\t\tNIL\n"
+"       *PRINT-ESCAPE*\t\t\tT\n"
+"       *PRINT-GENSYM*\t\t\tT\n"
+"       *PRINT-LENGTH*\t\t\tNIL\n"
+"       *PRINT-LEVEL*\t\t\tNIL\n"
+"       *PRINT-LINES*\t\t\tNIL\n"
+"       *PRINT-MISER-WIDTH*\t\tNIL\n"
+"       *PRINT-PRETTY*\t\t\tNIL\n"
+"       *PRINT-RADIX*\t\t\tNIL\n"
+"       *PRINT-READABLY*\t\t\tT\n"
+"       *PRINT-RIGHT-MARGIN*\t\tNIL\n"
+"       *READ-BASE*\t\t\t10\n"
+"       *READ-DEFAULT-FLOAT-FORMAT* \tSINGLE-FLOAT\n"
+"       *READ-EVAL*\t\t\tT\n"
+"       *READ-SUPPRESS*\t\t\tNIL\n"
+"       *READTABLE*\t\t\tthe standard readtable."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Outputs OBJECT to the specified stream, defaulting to *standard-output*"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a mostly READable printed representation of OBJECT on the specified\n"
+"  stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs an asthetic but not READable printed representation of OBJECT on "
+"the\n"
+"  specified stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
+"  space to the stream."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Prettily outputs the Object preceded by a newline."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Returns the printed representation of OBJECT as a string."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with \n"
+"   slashification on."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Returns the printed representation of OBJECT as a string with\n"
+"  slashification off."
+msgstr ""
+
+#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
+#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
+#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
+#: target:compiler/node.lisp target:compiler/sset.lisp
+#: target:compiler/backend.lisp target:compiler/macros.lisp
+#: target:code/print.lisp
+msgid "~S cannot be printed readably."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Determines whether or not the character is considered whitespace."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Check to see if OBJECT is a circular reference, and return something non-"
+"NIL\n"
+"   if it is.  If ASSIGN is T, then the number to use in the #n= and #n# "
+"noise\n"
+"   is assigned at this time.  Note: CHECK-FOR-CIRCULARITY must be called\n"
+"   *EXACTLY* once with ASSIGN T, or the circularity detection noise will "
+"get\n"
+"   confused about when to use #n= and when to use #n#.  If this returns\n"
+"   non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then\n"
+"   you should go ahead and print the object.  If it returns NIL, then\n"
+"   you should blow it off."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n"
+"\t       checking has not been initiated."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The current level we are printing at, to be compared against *PRINT-LEVEL*.\n"
+"   See the macro DESCEND-INTO for a handy interface to depth abbreviation."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Automatically handle *print-level* abbreviation.  If we are too deep, then\n"
+"   a # is printed to STREAM and BODY is ignored."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n"
+"   is NIL) by outputting \"...\" and returning from the block named NIL."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"The current pretty printer.  Should be either a function that takes two\n"
+"   arguments (the object and the stream) or NIL to indicate that there is\n"
+"   no pretty printer installed."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Output OBJECT to STREAM observing all printer control variables."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Output OBJECT to STREAM observing all printer control variables except\n"
+"   for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n"
+"   printer will be used for any components of OBJECT, just not for OBJECT\n"
+"   itself."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Invalid *PRINT-CASE* value: ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Invalid READTABLE-CASE value: ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Outputs the printed representation of any array in either the #< or #A\n"
+"   form."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Obsolete Instance"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unprintable Instance"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "~A is not a reasonable value for *Print-Base*."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n"
+"greater than n."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Convert digit into a character representation.  We use 0..9, a..z for\n"
+"10..35, and A..Z for 36..52."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "overflow in digit-to-char"
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Print a fixnum N to stream S, maybe with leading zeros.  This isn't\n"
+"ever-so efficient, but we probably don't need to care."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Use the power list (see power-list) PL to split N roughly in half; then\n"
+"print the left and right halves using (cdr PL).  Make sure we count the\n"
+"leading zeroes correctly."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Primary fast bignum-printing interface.  Prints integer N to stream S in\n"
+"radix-R.  If you have a power-list then pass it in as PL."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Minimum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+
+#: target:code/print.lisp
+msgid ""
+"Maximum power of 10 that allows the float printer to use free format,\n"
+"   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
+"   in the ANSI CL standard."
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Convert a DD number to a lisp rational"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Print out a double-double to a string"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Weak Pointer: "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Broken Weak Pointer"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Bogus Code Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Code Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Return PC Object"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "FDEFINITION object for "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Function "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Interpreted Function ~S"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Byte Compiled Function"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Byte Compiled Closure"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Closure Over "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Function"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Value Cell "
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Pointer Object, type="
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unbound Marker"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Unknown Immediate Object, lowtag="
+msgstr ""
+
+#: target:code/print.lisp
+msgid ", type="
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Continue anyway"
+msgstr ""
+
+#: target:code/print.lisp
+msgid "Cannot find ~S, so unicode support is not available"
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert an annotation into the pretty-printing stream STREAM.\n"
+"HANDLER is a function, and RECORD is an arbitrary datum.  The\n"
+"pretty-printing stream conceptionally queues annotations in sequence\n"
+"with the characters that are printed to the stream, until the stream\n"
+"has decided on the concrete layout.  When the characters are forwarded\n"
+"to the target stream, annotations are invoked at the right position.\n"
+"An annotation is invoked by calling the function HANDLER with the\n"
+"three arguments RECORD, TARGET-STREAM, and TRUNCATEP.  The argument\n"
+"TRUNCATEP is true if the text surrounding the annotation is suppressed\n"
+"due to line abbreviation (see *PRINT-LINES*).\n"
+"If STREAM is not a pretty-printing stream, simply call HANDLER\n"
+"with the arguments RECORD, STREAM and nil."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Insert ANNOTATION into the queue of annotations in STREAM."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Insert all annotations in STREAM from the queue of pending\n"
+"operations into the queue of annotations.  When END is non-nil, \n"
+"stop before reaching the queued-op END."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Dequeue the next annotation from the queue of annotations of STREAM\n"
+"and return it.  Return nil if there are no more annotations.  When\n"
+":END-POSN is given and the next annotation has a posn greater than\n"
+"this, also return nil."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output the buffer of STREAM up to (excluding) the buffer index END.\n"
+"When annotations are present, invoke them at the right positions."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Invoke all annotations in STREAM up to (including) the buffer index END."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Output-partial-line called when nothing can be output."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Group some output into a logical block.  STREAM-SYMBOL should be either a\n"
+"   stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The "
+"printer\n"
+"   control variable *PRINT-LEVEL* is automatically handled."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "Cannot specify both a prefix and a per-line-prefix."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n"
+"   if it's list argument is exhausted.  Can only be used inside\n"
+"   PPRINT-LOGICAL-BLOCK, and only when the LIST argument to\n"
+"   PPRINT-LOGICAL-BLOCK is supplied."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n"
+"\t  PPRINT-LOGICAL-BLOCK."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Return the next element from LIST argument to the closest enclosing\n"
+"   use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n"
+"   and *PRINT-CIRCLE*.  Can only be used inside PPRINT-LOGICAL-BLOCK.\n"
+"   If the LIST argument to PPRINT-LOGICAL-BLOCK was NIL, then nothing\n"
+"   is poped, but the *PRINT-LENGTH* testing still happens."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output a conditional newline to STREAM (which defaults to\n"
+"   *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n"
+"   nothing if not.  KIND can be one of:\n"
+"     :LINEAR - A line break is inserted if and only if the immediatly\n"
+"        containing section cannot be printed on one line.\n"
+"     :MISER - Same as LINEAR, but only if ``miser-style'' is in effect.\n"
+"        (See *PRINT-MISER-WIDTH*.)\n"
+"     :FILL - A line break is inserted if and only if either:\n"
+"       (a) the following section cannot be printed on the end of the\n"
+"           current line,\n"
+"       (b) the preceding section was not printed on a single line, or\n"
+"       (c) the immediately containing section cannot be printed on one\n"
+"           line and miser-style is in effect.\n"
+"     :MANDATORY - A line break is always inserted.\n"
+"   When a line break is inserted by any type of conditional newline, any\n"
+"   blanks that immediately precede the conditional newline are ommitted\n"
+"   from the output and indentation is introduced at the beginning of the\n"
+"   next line.  (See PPRINT-INDENT.)"
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Specify the indentation to use in the current logical block if STREAM\n"
+"   (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n"
+"   and do nothing if not.  (See PPRINT-LOGICAL-BLOCK.)  N is the indention\n"
+"   to use (in ems, the width of an ``m'') and RELATIVE-TO can be either:\n"
+"     :BLOCK - Indent relative to the column the current logical block\n"
+"        started on.\n"
+"     :CURRENT - Indent relative to the current column.\n"
+"   The new indention value does not take effect until the following line\n"
+"   break.  The indention value is silently truncated to an integer."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n"
+"   stream, perform tabbing based on KIND, otherwise do nothing.  KIND can\n"
+"   be one of:\n"
+"     :LINE - Tab to column COLNUM.  If already past COLNUM tab to the next\n"
+"       multiple of COLINC.\n"
+"     :SECTION - Same as :LINE, but count from the start of the current\n"
+"       section, not the start of the line.\n"
+"     :LINE-RELATIVE - Output COLNUM spaces, then tab to the next multiple "
+"of\n"
+"       COLINC.\n"
+"     :SECTION-RELATIVE - Same as :LINE-RELATIVE, but count from the start\n"
+"       of the current section, not the start of the line."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :FILL conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-FILL\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM putting :LINEAR conditional newlines between each\n"
+"   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
+"   around the output.  ATSIGN? is ignored (but allowed so that PPRINT-"
+"LINEAR\n"
+"   can be used with the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid ""
+"Output LIST to STREAM tabbing to the next column that is an even multiple\n"
+"   of TABSIZE (which defaults to 16) between each element.  :FILL style\n"
+"   conditional newlines are also output between each element.  If COLON? is\n"
+"   NIL (defaults to T), then no parens are printed around the output.\n"
+"   ATSIGN? is ignored (but allowed so that PPRINT-TABULAR can be used with\n"
+"   the ~/.../ format directive."
+msgstr ""
+
+#: target:code/pprint.lisp
+msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
+msgstr ""
+
+#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp
+#: target:pcl/defclass.lisp target:code/format.lisp
+#: target:code/pprint-loop.lisp target:code/pprint.lisp
+msgid "No more arguments."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"~:[~;Error in format: ~]~\n"
+"\t      ~?~@[~%  ~A~%  ~V@T^~]"
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"A justification directive cannot be in the same format string~%~\n"
+"                         as ~~W, ~~I, ~~:T, or a logical-block directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "String ended before directive was found."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many colons supplied."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many at-signs supplied."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No matching closing slash."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Provides various facilities for formatting output.\n"
+"  CONTROL-STRING contains a string to be output, possibly with embedded\n"
+"  directives, which are flagged with the escape character \"~\".  "
+"Directives\n"
+"  generally expand into additional text to be output, usually consuming one\n"
+"  or more of the FORMAT-ARGUMENTS in the process.  A few useful directives\n"
+"  are:\n"
+"        ~A or ~nA     Prints one argument as if by PRINC\n"
+"        ~S or ~nS     Prints one argument as if by PRIN1\n"
+"        ~D or ~nD     Prints one argument as a decimal integer\n"
+"        ~%            Does a TERPRI\n"
+"        ~&            Does a FRESH-LINE\n"
+"\n"
+"         where n is the width of the field in which the object is printed.\n"
+"  \n"
+"  DESTINATION controls where the result will go.  If DESTINATION is T, then\n"
+"  the output is sent to the standard output stream.  If it is NIL, then the\n"
+"  output is returned in a string as the value of the call.  Otherwise,\n"
+"  DESTINATION must be a stream to which the output will be sent.\n"
+"\n"
+"  Example:   (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\"\n"
+"\n"
+"  FORMAT has many additional capabilities not described here.  Consult\n"
+"  Section 22.3 (Formatted Output) of the ANSI Common Lisp standard for\n"
+"  details."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Unknown format directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Unknown directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than ~D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many parameters, expected no more than 0"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal ones-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal tens-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\t    between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\tbetween 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t\t   between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds.  Should have been ~\n"
+"\t\t\t       between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr ""
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~D illegal directive found inside justification block"
+msgid_plural "~D illegal directives found inside justification block"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+"\t\t\t       ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"The list of packages to use by default of no :USE argument is supplied\n"
+"   to MAKE-PACKAGE or other package creation forms."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Standard structure for the description of a package.  Consists of \n"
+"   a list of all hash tables, the name of the package, the nicknames of\n"
+"   the package, the use-list for the package, the used-by- list, hash-\n"
+"   tables for the internal and external symbols, and a list of the\n"
+"   shadowing symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The ~A package, ~D/~D internal, ~D/~D external"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The ~A package"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "deleted package"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The current package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "redefining function ~A"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Ignore the lock and continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's definition-lock, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable all package locks, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus ~A name: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't do anything to a deleted package: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n"
+"  parent package.  If there is not a parent, signal an error."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The parent of ~a does not exist."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "There is no parent of ~a."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n"
+"  packages which are in the hierarchy 'under' the given package.  If\n"
+"  :recurse is nil, then only return the immediate children of the package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Find the package having the specified name."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Make this package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs at least once for each symbol accessible in the given\n"
+"   PACKAGE with VAR bound to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each external symbol in the given PACKAGE "
+"with\n"
+"   VAR bound to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
+"   Executes the FORMs once for each symbol in every package with VAR bound\n"
+"   to the current symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Within the lexical scope of the body forms, MNAME is defined via macrolet\n"
+"   such that successive invocations of (mname) will return the symbols,\n"
+"   one by one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be\n"
+"   any of :inherited :external :internal."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~@<~S does not name a package ~:>"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Must supply at least one of :internal, ~\n"
+"\t                             :external, or :inherited."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"~S is not one of :internal, :external, ~\n"
+"\t\t                       or :inherited."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Defines a new package called PACKAGE.  Each of OPTIONS should be one of the\n"
+"   following:\n"
+"     (:NICKNAMES {package-name}*)\n"
+"     (:SIZE <integer>)\n"
+"     (:SHADOW {symbol-name}*)\n"
+"     (:SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:USE {package-name}*)\n"
+"     (:IMPORT-FROM <package-name> {symbol-name}*)\n"
+"     (:INTERN {symbol-name}*)\n"
+"     (:EXPORT {symbol-name}*)\n"
+"     (:DOCUMENTATION doc-string)\n"
+"   All options except :SIZE and :DOCUMENTATION can be used multiple times."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus DEFPACKAGE option: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't specify :SIZE twice."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Bogus :SIZE, must be a positive integer: ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Can't specify :DOCUMENTATION twice."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Parameters ~S and ~S must be disjoint ~\n"
+"\t                             but have common elements ~%   ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A is a nick-name for the package ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A also shadows the following symbols:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A previously used the following packages:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A also exports the following symbols:~%  ~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~A does not contain a symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Ignore this nickname."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is a package name, so it cannot be a nickname for ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Redefine this nickname."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is already a nickname for ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Makes a new package having the specified Name and Nicknames.  The\n"
+"  package will inherit all external symbols from each package in\n"
+"  the use list.  :Internal-Symbols and :External-Symbols are\n"
+"  estimates for the number of internal and external symbols which\n"
+"  will ultimately be present in the package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Leave existing package alone."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Sets *PACKAGE* to package with given NAME, creating the package if\n"
+"   it does not exist.  If the package already exists then it is modified\n"
+"   to agree with the :USE and :NICKNAMES arguments.  Any new nicknames\n"
+"   are added without removing any old ones not specified.  If any package\n"
+"   in the :Use list is not currently used, then it is added to the use\n"
+"   list."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Old-style IN-PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "The package named ~S doesn't exist."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Changes the name and nicknames for a package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "A package named ~S already exists."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Delete the PACKAGE-OR-NAME from the package system data structures."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Return NIL"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "No package of name ~S."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Remove dependency in other packages."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Returns a list of all existing packages."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Returns a symbol having the specified name, creating it if necessary."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Returns the symbol NAME in PACKAGE.  If such a symbol is found\n"
+"  then the second value is :internal, :external or :inherited to indicate\n"
+"  how the symbol is accessible.  If no symbol is found then both values\n"
+"  are NIL."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "interning symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present\n"
+"  then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home\n"
+"  package, then it is made uninterned."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "uninterning symbol ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Unlock all packages, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "prompt for a symbol to shadowing-import."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Symbol to shadowing-import: "
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not a symbol."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not one of the conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is neither a symbol nor a list of symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Exporting these symbols from the ~A package:~%~S~%~\n"
+"\t      results in name conflicts with these packages:~%~{~A ~}"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Unintern conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Skip exporting conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Import these symbols into the ~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "These symbols are not accessible in the ~A package:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Makes SYMBOLS no longer exported from PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "unexporting symbols ~A"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "~S is not accessible in the ~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol\n"
+"  is already accessible then it has no effect.  If a name conflict\n"
+"  would result from the importation, then a correctable error is signalled."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Import these symbols with Shadowing-Import."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Importing these symbols into the ~A package ~\n"
+"\t\tcauses a name conflict:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Import SYMBOLS into PACKAGE, disregarding any name conflict.  If\n"
+"  a symbol of the same name is present, then it is uninterned.\n"
+"  The symbols are added to the Package-Shadowing-Symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Make an internal symbol in PACKAGE with the same name as each of the\n"
+"  specified SYMBOLS, adding the new symbols to the Package-Shadowing-"
+"Symbols.\n"
+"  If a symbol with the given name is already present in PACKAGE, then\n"
+"  the existing symbol is placed in the shadowing symbols list if it is\n"
+"  not already present."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n"
+"  the external symbols of the used packages are accessible as internal\n"
+"  symbols in PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Unintern the conflicting symbols in the ~2*~A package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Return a list of all symbols in the system having the specified name."
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "special variable"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "constant"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "undefined variable"
+msgstr ""
+
+#: target:code/describe.lisp target:code/package.lisp
+msgid "symbol macro"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "alien variable"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "value: "
+msgstr ""
+
+#: target:code/package.lisp
+msgid "macro"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "special operator"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "function"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "class"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "type"
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Call FUN with each symbol that contains STRING.\n"
+"  If PACKAGE is supplied then only use symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is true then only use\n"
+"  symbols exported from the specified package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Briefly describe all symbols which contain the specified STRING.\n"
+"  If PACKAGE is supplied then only describe symbols present in\n"
+"  that package.  If EXTERNAL-ONLY is non-NIL then only describe\n"
+"  external symbols in the specified package."
+msgstr ""
+
+#: target:code/package.lisp
+msgid ""
+"Identical to APROPOS, except that it returns a list of the symbols\n"
+"  found instead of describing them."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Float format for 1.0E1"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Variable bound to current readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unexpected EOF on ~S ~A."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Standard lisp readtable. This is for recovery from broken\n"
+"   read-tables, and should not normally be user-visible."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Readtable is a data structure that maps characters into syntax\n"
+"   types for the Common Lisp expression reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Value of *package* at the start of the last read or Nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Undefined read-macro character ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A copy is made of from-readtable and place into to-readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes the syntax of to-char to be the same as from-char in the \n"
+"  optional readtable (defaults to the current readtable).  The\n"
+"  from-table defaults the standard lisp readtable by being nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to be a macro character which invokes function when\n"
+"   seen by the reader.  The non-terminatingp flag can be used to\n"
+"   make the macro character non-terminating.  The optional readtable\n"
+"   argument defaults to the current readtable.  Set-macro-character\n"
+"   returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the function associated with the specified char which is a macro\n"
+"  character.  The optional readtable argument defaults to the current\n"
+"  readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Bind *read-buffer* to a fresh buffer and execute Body."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "If true, only warn when there is an extra close paren, otherwise error."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads from stream and returns the object read, preserving the whitespace\n"
+"   that followed the object."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads in the next object in the stream, which defaults to\n"
+"   *standard-input*. For details see the I/O chapter of\n"
+"   the manual."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads objects from input-stream until the next character after an\n"
+"   object's representation is endchar.  A list of those objects read\n"
+"   is returned."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears before . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears after . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "More than one object follows . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Ignoring unmatched close parenthesis~\n"
+"\t\t  ~@[ at file position ~D~]."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unmatched close parenthesis."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside extended token"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "invalid constituent"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Suppresses most interpreting of the reader when T"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The radix that Lisp reads numbers in."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "impossible!"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "dot context error"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many dots"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many colons in ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after reading a colon"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "package ~S not found"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Use symbol anyway."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The symbol ~S is not external in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Symbol ~S not found in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: returns 3 values: the string for the token,\n"
+"   a flag for whether there was an escape char, and the position of any\n"
+"   package delimiter."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: read an extended token with the first character\n"
+"  escaped.  Returns the string for the token."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Holds the mapping of base to 'safe' number of digits to read for a fixnum."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Holds the largest fixnum power of the base for make-integer."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n"
+"  then multiplying by a power of the base and adding."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Fast bignum-reading interface.  Reads from stream S an integer in radix\n"
+"R.  If we find some kind of error (bad characters, EOF), then NIL is\n"
+"returned; otherwise the number.  Reads at least one digit, but may not get "
+"to\n"
+"the end of the stream."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Internal error in floating point reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Underflow"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Floating-point number not representable"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Invalid ratio: ~S/~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch function defined for ~S."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to become a dispatching macro character in readtable\n"
+"   (which defaults to the current readtable).  If the non-terminating-p\n"
+"   flag is set to T, the char will be non-terminating.  Make-dispatch-\n"
+"   macro-character returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes function to be called whenever the reader reads\n"
+"   disp-char followed by sub-char. Set-dispatch-macro-character\n"
+"   returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "~S is not a dispatch character."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the macro character function for sub-char under disp-char\n"
+"   or nil if there is no associated function."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside dispatch character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch table for dispatch char."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A resource of string streams for Read-From-String."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"The characters of string are successively given to the lisp reader\n"
+"   and the lisp object built by the reader is returned.  Macro chars\n"
+"   will take effect."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Examine the substring of string delimited by start and end\n"
+"  (default to the beginning and end of the string)  It skips over\n"
+"  whitespace characters and then tries to parse an integer.  The\n"
+"  radix parameter must be between 2 and 36."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+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 ""
+
+#: target:code/backq.lisp
+msgid ",@ after backquote in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",. after backquote in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid "Comma not inside a backquote."
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",@ after dot in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ",. after dot in ~S"
+msgstr ""
+
+#: target:code/backq.lisp
+msgid ""
+"Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n"
+"  BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n"
+"  corresponding backquote input form.  In this form, `,' `,@' and `,.' are\n"
+"  represented by lists whose cars are BACKQ-COMMA, BACKQ-COMMA-AT, and\n"
+"  BACKQ-COMMA-DOT respectively, and whose cadrs are the form after the "
+"comma.\n"
+"  SPLICING indicates whether a comma-escape return should be modified for\n"
+"  splicing with other forms: a value of T or :NCONC meaning that an extra\n"
+"  level of parentheses should be added."
+msgstr ""
+
+#: target:code/backq.lisp
+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 ""
+
+#.  This needs more work.
+#: target:code/serve-event.lisp
+msgid "Remove bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Retry bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Go on, leaving handlers marked as bogus."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "~S ~[have~;has a~:;have~] bad file descriptor."
+msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
+msgstr[0] ""
+msgstr[1] ""
+
+#: 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/time.lisp target:code/serve-event.lisp
+msgid "Syscall ~A failed: ~A"
+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 ""
+
+#: target:code/extfmts.lisp
+msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External-format aliases file ends early."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Bad entry in external-format aliases file: ~S => ~S."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External-format aliasing depth exceeded."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is a Composing-External-Format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is not a Composing-External-Format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "~S is not a valid external format name."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "External format ~S not found."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Attempting I/O through void external-format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Convert String to octets using the specified External-format.  The\n"
+"   string is bounded by Start (defaulting to 0) and End (defaulting to\n"
+"   the end of the string.  If Buffer is given, the octets are stored\n"
+"   there.  If not, a new buffer is created."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Octets-to-string converts an array of octets in Octets to a string\n"
+"  according to the specified External-format.  The array of octets is\n"
+"  bounded by Start (defaulting ot 0) and End (defaulting to the end of\n"
+"  the array.  If String is not given, a new string is created.  If\n"
+"  String is given, the converted octets are stored in String, starting\n"
+"  at S-Start (defaulting to the 0) and ending at S-End (defaulting to\n"
+"  the length of String).  If the string is not large enough to hold\n"
+"  all of characters, then some octets will not be converted.  A State\n"
+"  may also be specified; this is used as the state of the external\n"
+"  format.\n"
+"\n"
+"  Four values are returned: the string, the number of characters read,\n"
+"  the number of octets actually consumed and the new state of the\n"
+"  external format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Encode the given String using External-Format and return a new\n"
+"  string.  The characters of the new string are the octets of the\n"
+"  encoded result, with each octet converted to a character via\n"
+"  code-char.  This is the inverse to String-Decode"
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Decode String using the given External-Format and return the new\n"
+"  string.  The input string is treated as if it were an array of\n"
+"  octets, where the char-code of each character is the octet.  This is\n"
+"  the inverse of String-Encode."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid ""
+"Change the external format of the standard streams to Terminal.\n"
+"  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
+"  sys::*stderr*, which are normally the input and/or output streams\n"
+"  for *standard-input* and *standard-output*.  Also sets sys::*tty*\n"
+"  (normally *terminal-io* to the given external format.  If the\n"
+"  optional argument Filenames is gvien, then the filename encoding is\n"
+"  set to the specified format."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Can't find external-format ~S."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "Change it anyway."
+msgstr ""
+
+#: target:code/extfmts.lisp
+msgid "The external-format for encoding filenames is already set."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of available buffers.  Each buffer is an sap pointing to\n"
+"  bytes-per-buffer of memory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Number of bytes per buffer."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The maximum supported byte size for a stream element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available output routines. Each element is a list of the\n"
+"  element-type output, the kind of buffering, the function name, and the "
+"number\n"
+"  of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Write would have blocked, but SERVER told us to go."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "While writing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Output THING to stream.  THING can be any kind of vector or a sap.  If "
+"THING\n"
+"  is a SAP, END must be supplied (as length won't work)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available input routines. Each element is a list of the\n"
+"  element-type input, the function name, and the number of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error reading ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any input routine for ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any output routine for ~S buffered ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Input type (~S) and output type (~S) are unrelated?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error lseek'ing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Invalid position given to file-position: ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Create a stream for the given unix file descriptor.\n"
+"  If input is non-nil, allow input operations.\n"
+"  If output is non-nil, allow output operations.\n"
+"  If neither input nor output are specified, default to allowing input.\n"
+"  Element-type indicates the element type to use (as for open).\n"
+"  Buffering indicates the kind of buffering to use.\n"
+"  Timeout (if true) is the number of seconds to wait for input.  If NIL "
+"(the\n"
+"    default), then wait forever.  When we time out, we signal IO-TIMEOUT.\n"
+"  File is the name of the file (will be returned by PATHNAME).\n"
+"  Name is used to identify the stream when printed."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File descriptor must be opened either for input or output."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"This is a string that OPEN tacks on the end of a file namestring to produce\n"
+"   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
+"   this can be a function that takes a namestring and returns a complete\n"
+"   namestring."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+#, fuzzy
+msgid "Return NIL."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr ""
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return a stream which reads from or writes to Filename.\n"
+"  Defined keywords:\n"
+"   :direction - one of :input, :output, :io, or :probe\n"
+"   :element-type - Type of object to read or write, default BASE-CHAR\n"
+"   :if-exists - one of :error, :new-version, :rename, :rename-and-delete,\n"
+"                       :overwrite, :append, :supersede or nil\n"
+"   :if-does-not-exist - one of :error, :create or nil\n"
+"   :external-format - an external format name\n"
+"  See the manual for details."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Unable to open streams of class ~S."
+msgstr ""
+
+#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp
+#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp
+msgid "Odd-length property list in REMF."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"The stream connected to the controlling terminal or NIL if there is none."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard input (file descriptor 0)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard output (file descriptor 1)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard error output (file descriptor 2)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "This is called in BEEP to feep the user.  It takes a stream."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
+"   Object to Stream.  Non-trivial only in implementations that support\n"
+"   international character sets."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Setting external-format on Gray streams not supported."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"When non-nil, attempt to load \"library:<host>.translations\" to resolve\n"
+"   an otherwise undefined logical host."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "A path specification, either a string, file-stream or pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Convert thing (a pathname, string or stream) into a pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Construct a filled in pathname by completing the unspecified components\n"
+"   from the defaults."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S is not allowed as a directory component."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Makes a new pathname from the component arguments.  Note that host is\n"
+"a host-structure or string."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix ~A: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Silly argument for a unix PATHNAME-NAME: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Illegal pathname: ~\n"
+"                                Directory with ~S immediately followed by ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's host."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for pathname's device."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's directory list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's name."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Accessor for the pathname's version."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"When Host arg is not supplied, Defaults arg must ~\n"
+"\t\t  have a non-null PATHNAME-HOST."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Host in namestring: ~S~@\n"
+"\t\t    does not match explicit host argument: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Converts pathname, a pathname designator, into a pathname structure,\n"
+"   for a physical pathname, returns the printed representation. Host may be\n"
+"   a physical host structure or host namestring."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"A LIST representing a pathname host is not ~\n"
+"                              supported in this implementation:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Hosts do not match: ~S and ~S."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Can't figure out the file associated with stream:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Construct the full (name)string form of the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Cannot determine the namestring for pathnames with no ~\n"
+"\t\t  host:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the name of the host in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Cannot determine the namestring for pathnames with no host:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns a string representation of the directories used in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Returns a string representation of the name used in the pathname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns an abbreviated pathname sufficent to identify the pathname relative\n"
+"   to the defaults."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Predicate for determining whether pathname contains any wildcards."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Pathname matches the wildname template?"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Not enough wildcards in FROM pattern to match ~\n"
+"\t\t       TO pattern:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Can't substitute this into the middle of a word:~\n"
+"\t\t\t  ~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n"
+"\t  did not match:~%  ~S ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+":WILD-INFERIORS not paired in from and to ~\n"
+"\t\t\t   patterns:~%  ~S ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Use the source pathname to translate the from-wildname's wild and\n"
+"   unspecified elements into a completed to-pathname based on the to-"
+"wildname."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S doesn't match ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Search-list ~a not defined."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the current definition for the search-list NAME.  Returns T if such\n"
+"   a definition existed, and NIL if not."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Clear the definition for all search-lists.  Only use this if you know\n"
+"   what you are doing."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S doesn't start with a search-list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Return the expansions for the search-list starting PATHNAME.  If PATHNAME\n"
+"   does not start with a search-list, then an error is signaled.  If\n"
+"   the search-list has not been defined yet, then an error is signaled.\n"
+"   The expansion for a search-list can be set with SETF."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Search list ~S has not been defined yet."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Returns T if the search-list starting PATHNAME is currently defined, and\n"
+"   NIL otherwise.  An error is signaled if PATHNAME does not start with a\n"
+"   search-list."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"That would result in a circularity:~%  ~\n"
+"\t\t     ~A~{ -> ~A~} -> ~A"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Search-lists cannot expand into pathnames that have ~\n"
+"\t\t       a name, type, or ~%version specified:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Execute BODY with VAR bound to each successive possible expansion for\n"
+"   PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a\n"
+"   search-list, then BODY is executed exactly once.  Everything is wrapped\n"
+"   in a block named NIL, so RETURN can be used to terminate early.  Note:\n"
+"   VAR is *not* bound inside of RESULT."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Undefined search list: ~A"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Logical namestring character ~\n"
+"\t\t\t     is not alphanumeric or hyphen:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical host not yet defined: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Double asterisk inside of logical ~\n"
+"\t\t\t\t     word: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Illegal character for logical pathname:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a host name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a directory name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a file name"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Expecting a dot, got ~S."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a file type"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "a positive integer, * or NEWEST"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Expected a positive integer, ~\n"
+"\t\t\t\t\t    got ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Extra stuff after end of file name."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Converts the pathspec argument to a logical-pathname and returns it."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical namestring does not specify a host:~%  ~S"
+msgstr ""
+
+#: target:code/filesys.lisp target:code/pathname.lisp
+msgid "Invalid directory component: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Invalid keyword: ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Logical pathname translation is not a two-list:~%  ~S"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Return the (logical) host object argument's list of translations."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Set the translations list for the logical host argument.\n"
+"   Return translations."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Clobber search-list host with logical pathname host"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "~S names a CMUCL search-list"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ""
+"Search for a logical pathname named host, if not already defined. If "
+"already\n"
+"   defined no attempt to find or load a definition is attempted and NIL is\n"
+"   returned. If host is not already defined, but definition is found and "
+"loaded\n"
+"   successfully, T is returned, else error."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid ";; Loading pathname translations from ~A~%"
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "Translates pathname to a physical pathname, which is returned."
+msgstr ""
+
+#: target:code/pathname.lisp
+msgid "No translation for ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Remove any occurrences of \\ from the string because we've already\n"
+"   checked for whatever may have been backslashed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Backslash in bad place."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
+"  pathname namestrings.  They are also ignored when computing\n"
+"  namestrings for pathname objects.  Thus, *, ?, etc. are not\n"
+"  wildcards when parsing a namestring, and are not escaped when\n"
+"  printing pathnames."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "``['' with no corresponding ``]''"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~A already names a logical host"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid pattern piece: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ":BACK cannot be represented in namestrings."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid value for a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify the type without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a version without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S cannot be represented relative to ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot supply a type without a name:~%  ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Convert PATHNAME into a string that can be used with UNIX system calls.\n"
+"   Search-lists and wild-cards are expanded. If optional argument\n"
+"   FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.\n"
+"   If optional argument EXECUTABLE-ONLY is true, NIL is returned\n"
+"   unless an executable version of PATHNAME exists."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S is ambiguous:~{~%  ~A~}"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return the pathname for the actual file described by the pathname\n"
+"  An error of type file-error is signalled if no such file exists,\n"
+"  or the pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Bad place for a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "The file ~S does not exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a pathname which is the truename of the file if it exists, NIL\n"
+"  otherwise. An error of type file-error is signalled if pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Rename File to have the specified New-Name.  If file is a stream open to a\n"
+"  file, then the associated file is renamed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S can't be created."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Failed to rename ~A to ~A: ~A"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Delete the specified file."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S doesn't exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Could not delete ~A: ~A."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Delete old versions of files matching the given Pathname,\n"
+"optionally keeping some of the most recent old versions."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the home directory of the logged in user as a pathname.\n"
+"  This is obtained from the logical name \"home:\"."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return file's creation date, or NIL if it doesn't exist.\n"
+" An error of type file-error is signalled if file is a wild pathname"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the file author as a string, or nil if the author cannot be\n"
+" determined.  Signals an error of type file-error if file doesn't exist,\n"
+" or file is a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns a list of pathnames, one for each file that matches the given\n"
+"   pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  "
+"This\n"
+"   never includes Unix dot and dot-dot in the result.  If :TRUENAMEP is "
+"NIL,\n"
+"   then symbolic links in the result are not expanded, which is not the\n"
+"   default because TRUENAME does follow links and the result pathnames are\n"
+"   defined to be the TRUENAME of the pathname (the truename of a link may "
+"well\n"
+"   be in another directory).  If FOLLOW-LINKS is NIL then symbolic links "
+"are\n"
+"   not followed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Like Directory, but prints a terse, multi-column directory listing\n"
+"   instead of returning a list of pathnames.  When :all is supplied and\n"
+"   non-nil, then Unix dot files are included too (as ls -a).  When :verbose\n"
+"   is supplied and non-nil, then a long listing of miscellaneous\n"
+"   information is output one file per line."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Directory of ~A:~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Couldn't stat ~A -- ~A.~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a list of all files which are possible completions of Pathname.\n"
+"   We look in the directory specified by Defaults as well as looking down\n"
+"   the search list."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"File-writable accepts a pathname and returns T if the current\n"
+"  process can write it, and NIL otherwise."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the pathname for the default directory.  This is the place where\n"
+"  a file will be written if no directory is specified.  This may be changed\n"
+"  with setf."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Tests whether the directories containing the specified file\n"
+"  actually exist, and attempts to create them if they do not.\n"
+"  Portable programs should avoid using the :MODE keyword argument."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~&Creating directory: ~A~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Can't create directory ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :IF-SOURCE-NEWER argument to load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The source file types which LOAD recognizes."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "A list of the object file types recognized by LOAD."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"A list of the object file types recognized by LOAD for logical pathnames."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :VERBOSE argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :PRINT argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The TRUENAME of the file that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The defaulted pathname that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Count of the number of recursive loads."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"~A was compiled for fasl-file version ~X, ~\n"
+"                     but this is version ~X"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "List of free fop tables for the fasloader."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The fop stack (we only need one!)."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Vector indexed by a FaslOP that yields the FOP's name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
+"  will perform the operation."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading stuff from ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Attempt to load an empty FASL FILE:~%  ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Bad FASL file format."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loads the file named by Filename into the Lisp environment.  The file type\n"
+"   (a.k.a extension) is defaulted if missing.  These options are defined:\n"
+"\n"
+"   :IF-SOURCE-NEWER <keyword>\n"
+"\tIf the file type is not specified, and both source and object files\n"
+"        exist, then this argument controls which is loaded:\n"
+"\t    :LOAD-OBJECT - load object file (default),\n"
+"\t    :LOAD-SOURCE - load the source file,\n"
+"\t    :COMPILE - compile the source and then load the object file, or\n"
+"\t    :QUERY - ask the user which to load.\n"
+"\n"
+"   :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+"       If :ERROR (the default), signal an error if the file can't be "
+"located.\n"
+"       If NIL, simply return NIL (LOAD normally returns T.)\n"
+"\n"
+"   :VERBOSE {T | NIL}\n"
+"       If true (the default), print a line describing each file loaded.\n"
+"\n"
+"   :PRINT {T | NIL}\n"
+"       If true, print information about loaded values.  When loading the\n"
+"       source, the result of evaluating each top-level form is printed.\n"
+"\n"
+"   :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+"       Forces the input to be interpreted as a source or object file, "
+"instead\n"
+"       of guessing based on the file type.  This also inhibits file type\n"
+"       defaulting.  Probably only necessary if you have source files with a\n"
+"       \"fasl\" type. \n"
+"\n"
+"   The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-"
+"NEWER*\n"
+"   determine the defaults for the corresponding keyword arguments.  These\n"
+"   variables are also bound to the specified argument values, so specifying "
+"a\n"
+"   keyword affects nested loads.  The variables EXT:*LOAD-SOURCE-TYPES*,\n"
+"   EXT:*LOAD-OBJECT-TYPES*, and EXT:*LOAD-LP-OBJECT-TYPES* determine the "
+"file\n"
+"   types that we use for defaulting when none is specified."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Return NIL from load of ~S."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "See if it exists now."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Prompt for a new name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "New name: "
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load it as a source file."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "File has a fasl file type, but no fasl file header:~%  ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading object file ~A,~@\n"
+"\t\t  which is older than the presumed source:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading source file ~A,~@\n"
+"\t\t  which is newer than the presumed object file:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Compile of source failed, cannot load object."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Object file ~A is~@\n"
+"\t\t       older than the presumed source:~%  ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load source file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load object file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fop-End-Header was executed???"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl table of improper size.  Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl stack not empty.  Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The package ~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing i-vector element size: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load ~A anyway"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~A was compiled for a ~A, but this is a ~A"
+msgstr ""
+
+#: target:compiler/dfo.lisp target:code/load.lisp
+msgid "Top-Level Form"
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unaligned function object, offset = #x~X."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S defined~%"
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Cannot load assembler code."
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+msgid "Undefined assembler routine: ~S"
+msgstr ""
+
+#: target:code/foreign-linkage.lisp
+msgid "~A is not defined as a foreign symbol"
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"This is a list of module names that have been loaded into Lisp so far.\n"
+"   It is used by PROVIDE and REQUIRE."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "*load-verbose* is bound to this before loading files."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "See function documentation for REQUIRE"
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Defines a module by registering the files that need to be loaded when\n"
+"   the module is required.  If name is a symbol, its print name is used\n"
+"   after downcasing it."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Adds a new module name to *modules* indicating that it has been loaded.\n"
+"   Module-name may be any valid string designator.  All comparisons are\n"
+"   done using string=, i.e. module names are case-sensitive."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Loads a module when it has not been already.  Pathname, if supplied,\n"
+"   is a single pathname or list of pathnames to be loaded if the module\n"
+"   needs to be.  If pathname is not supplied, then functions from the list\n"
+"   *MODULE-PROVIDER-FUNCTIONS* are called in order with the stringified\n"
+"   MODULE-NAME as the argument, until one of them returns non-NIL.  By\n"
+"   default the functions MODULE-PROVIDE-CMUCL-DEFMODULE and MODULE-PROVIDE-\n"
+"   CMUCL-LIBRARY are on this list of functions, in that order.  The first\n"
+"   of those looks for a list of files that was registered by a EXT:"
+"DEFMODULE\n"
+"   form.  If the module has not been defined, then the second function\n"
+"   causes a file to be loaded whose name is formed by merging \"modules:\"\n"
+"   and the concatenation of module-name with the suffix \"-LIBRARY\".\n"
+"   Note that both the module-name and the suffix are each, separately,\n"
+"   converted from :case :common to :case :local.  This merged name will be\n"
+"   probed with both a .lisp and .fasl extensions, calling LOAD if it "
+"exists.\n"
+"\n"
+"   Note that in all cases covered above, user code is responsible for\n"
+"   calling PROVIDE to indicate a successful load of the module.\n"
+"\n"
+"   While loading any files, *load-verbose* is bound to *require-verbose*\n"
+"   which defaults to t."
+msgstr ""
+
+#: target:code/module.lisp
+msgid "Don't know how to load ~A"
+msgstr ""
+
+#: target:code/module.lisp
+msgid "Coerce a string designator to a module name."
+msgstr ""
+
+#: target:code/module.lisp
+msgid ""
+"Derive a default pathname to try to load for an undefined module\n"
+"named module-name.  The default pathname is constructed from the\n"
+"module-name by appending the suffix \"-LIBRARY\" to it, and merging\n"
+"with \"modules:\".  Note that both the module-name and the suffix are\n"
+"each, separately, converted from :case :common to :case :local."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Keywords that you can put in a lambda-list, supposing you should want\n"
+"  to do such a thing."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of arguments which may be passed\n"
+"  to a function, including rest args."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of parameters which may be specifed\n"
+"  in a given lambda list.  This is actually the limit on required and "
+"optional\n"
+"  parameters.  With &key and &aux you can get more."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The exclusive upper bound on the number of multiple-values that you can\n"
+"  have."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"This variable controls whether assignments to unknown variables at top-"
+"level\n"
+"   (or in any other call to EVAL of SETQ) will implicitly declare the "
+"variable\n"
+"   SPECIAL.  These values are meaningful:\n"
+"     :WARN  -- Print a warning, but declare the variable special (the "
+"default.)\n"
+"      T     -- Quietly declare the variable special.\n"
+"      NIL   -- Never declare the variable, giving warnings on each use."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Evaluates its single arg in a null lexical environment, returns the\n"
+"  result or results."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to FUNCTION:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S is a macro."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S is a special operator."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Wrong number of args to QUOTE:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Odd number of args to SETQ:~% ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Declaring ~S special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:code/eval.lisp
+msgid "Bad Eval-When situation list: ~S."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Attempt to evaluation a complex expression:~%     ~S~@\n"
+"\t  This expression must be compiled, but the compiler is not loaded."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n"
+"\t  ~%     ~S~%"
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Given a function, return three values:\n"
+"   1] A lambda expression that could be used to define the function, or NIL "
+"if\n"
+"      the definition isn't available.\n"
+"   2] NIL if the function was definitely defined in a null lexical "
+"environment,\n"
+"      and T otherwise.\n"
+"   3] Some object that \"names\" the function.  Although this is allowed to "
+"be\n"
+"      any object, CMU CL always returns a valid function name or a string."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "If the symbol globally names a special form, returns T, otherwise NIL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"The value of this variable must be a function that can take three\n"
+"  arguments, a macro expander function, the macro form to be expanded,\n"
+"  and the lexical environment to expand in.  The function should\n"
+"  return the expanded form.  This function is called by MACROEXPAND-1\n"
+"  whenever a runtime expansion is needed.  Initially this is set to\n"
+"  FUNCALL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n"
+"   a function."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If SYMBOL names a macro in ENV, returns the expansion function,\n"
+"   else returns NIL.  If ENV is unspecified or NIL, use the global\n"
+"   environment only."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "~S names a special form."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Cannot funcall macro functions."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If form is a macro (or symbol macro), expands it once.  Returns two values,\n"
+"   the expanded form and a T-or-NIL flag indicating whether the form was, "
+"in\n"
+"   fact, a macro.  Env is the lexical environment to expand in, which "
+"defaults\n"
+"   to the null environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n"
+"   Returns the final resultant form, and T if it was expanded.  ENV is the\n"
+"   lexical environment to expand in, or NIL (the default) for the null\n"
+"   environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If NAME names a compiler-macro, returns the expansion function,\n"
+"   else returns NIL.  Note: if the name is shadowed in ENV by a local\n"
+"   definition, or declared NOTINLINE, NIL is returned.  Can be\n"
+"   set with SETF."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"If FORM is a function call for which a compiler-macro has been defined,\n"
+"   invoke the expander function using *macroexpand-hook* and return the\n"
+"   results and T.  Otherwise, return the original form and NIL."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n"
+"   expanded.  ENV is the lexical environment to expand in, or NIL (the\n"
+"   default) for the null environment."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"True of any Lisp object that has a constant value: types that eval to\n"
+"  themselves, keywords, constants, and list whose car is QUOTE."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid ""
+"Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n"
+"  the manner of LIST*.  That is, a list is made of the values of all but "
+"the\n"
+"  last argument, appended to the value of the last argument, which must be "
+"a\n"
+"  list."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Calls Function with the given Arguments."
+msgstr ""
+
+#: target:code/eval.lisp
+msgid "Returns all of its arguments, in order, as values."
+msgstr ""
+
+#: target:code/eval.lisp
+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 "~S isn't one of the required args."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to THROW to a tag that does not exist: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Function with declared result type NIL returned:~%  ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Array has no elements."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S.  Should have greater than or equal to 0."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S.  Should have been less than ~D"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Undefined foreign symbol: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"The maximum number of nested errors allowed.  Internal errors are\n"
+"   double-counted."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "The current number of nested errors."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown internal error, ~D?  args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Internal error ~D: ~A.  args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<A control stack overflow has occurred: ~\n"
+"            the program has entered the yellow control stack guard zone.  ~\n"
+"            Please note that you will be returned to the Top-Level if you ~\n"
+"            enter the red control stack guard zone while debugging.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Fatal control stack overflow.  You have entered~%~\n"
+"           the red control stack guard zone while debugging.~%~\n"
+"           Returning to Top-Level.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
+"            Only a small amount of dynamic space is available now.~%~\n"
+"            Please note that you will be returned to the Top-Level without~%"
+"~\n"
+"            warning if you run out of space while debugging.~@:>~%"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"All debug-conditions inherit from this type.  These are serious conditions\n"
+"    that must be handled, but they are not programmer errors."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "There is absolutely no debugging information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "No debugging information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The system could not return values from a frame with debug-function since\n"
+"    it lacked information about returning values."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~&Cannot return values from ~:[frame~;~:*~S~] since ~\n"
+"\t\t\tthe debug information lacks details about returning ~\n"
+"\t\t\tvalues here."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The debug-function has no debug-variable information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no debug-variable information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The debug-function has no lambda-list since argument debug-variables are\n"
+"    unavailable."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has no lambda-list information available."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S has :invalid or :unknown value in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S names more than one valid variable in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"All programmer errors from using the interface for building debugging\n"
+"    tools inherit from this type."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Unhandled debug-condition:~%~A"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Invalid use of an unknown code-location -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&~S not in ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Invalid control stack pointer."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the debug-variable.  The name is the name of the symbol\n"
+"   used as an identifier when writing the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the package name of the debug-variable.  This is the package name "
+"of\n"
+"   the symbol used as an identifier when writing the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the integer that makes debug-variable's name and package name "
+"unique\n"
+"   with respect to other debug-variable's in the same function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately above frame on the stack.  When frame is\n"
+"   the top of the stack, this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function for the function whose call frame represents."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the code-location where the frame's debug-function will continue\n"
+"   running when program execution returns to this frame.  If someone\n"
+"   interrupted this frame, the result could be an unknown code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "#<~A-Debug-Function ~S>"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the list of possible code-locations where execution may continue\n"
+"   when the basic-block represented by debug-block completes its execution."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether debug-block represents elsewhere code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the breakpoint's function the system calls when execution "
+"encounters\n"
+"   the breakpoint, and it is active.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's what specification."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the breakpoint's kind specification."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-function representing information about the function\n"
+"   corresponding to the code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms processed by the compiler before\n"
+"   compiling this source.  If this source is uncompiled, this is zero.  "
+"This\n"
+"   may be zero even if the source is compiled since the first form in the "
+"first\n"
+"   file compiled in one compilation, for example, must have a root number "
+"of\n"
+"   zero -- the compiler saw no other top-level forms before it."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an indication of the type of source.  The following are the "
+"possible\n"
+"   values:\n"
+"      :file    from a file (obtained by COMPILE-FILE if compiled).\n"
+"      :lisp    from Lisp (obtained by COMPILE if compiled).\n"
+"      :stream  from a non-file stream."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the actual source in some sense represented by debug-source, which\n"
+"   is related to DEBUG-SOURCE-FROM:\n"
+"      :file    the pathname of the file.\n"
+"      :lisp    a lambda-expression.\n"
+"      :stream  some descriptive string that's otherwise useless."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the universal time someone created the source.  This may be nil if\n"
+"   it is unavailable."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the time someone compiled the source.  This is nil if the source\n"
+"   is uncompiled."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This function returns the file position of each top-level form as an array\n"
+"   if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or :"
+"stream,\n"
+"   this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether object is a debug-source."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the top frame of the control stack as it was before calling this\n"
+"   function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Flush all of the frames above FRAME, and renumber all the frames below\n"
+"   FRAME."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the frame immediately below frame on the stack.  When frame is\n"
+"   the bottom of the stack, this returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"When set, the debugger foregoes making interpreted-frames, so you can\n"
+"   debug the functions that manifest the interpreter."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Zero or more than one ~A variable in ~\n"
+"\t\t\t   EVAL::INTERNAL-APPLY-LOOP?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Return a string describing the foreign function near ADDRESS"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Foreign function call land"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Return t if COMPONENT contains code from assembly routines."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the name of the assembly routine at offset PC in COMPONENT.\n"
+"The result is a symbol or nil if the routine cannot be found."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns an a-list mapping catch tags to code-locations.  These are\n"
+"   code-locations at which execution would continue with frame as the top\n"
+"   frame if someone threw to the corresponding tag."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes the forms in a context with block-var bound to each debug-block in\n"
+"   debug-function successively.  Result is an optional form to execute for\n"
+"   return values, and DO-DEBUG-FUNCTION-BLOCKS returns nil if there is no\n"
+"   result form.  This signals a no-debug-blocks condition when the\n"
+"   debug-function lacks debug-block information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes body in a context with var bound to each debug-variable in\n"
+"   debug-function.  This returns the value of executing result (defaults to\n"
+"   nil).  This may iterate over only some of debug-function's variables or "
+"none\n"
+"   depending on debug policy; for example, possibly the compilation only\n"
+"   preserved argument information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the Common Lisp function associated with the debug-function.  This\n"
+"   returns nil if the function is unavailable or is non-existent as a user\n"
+"   callable function object."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the name of the function represented by debug-function.  This may\n"
+"   be a string or a cons; do not assume it is a symbol."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a debug-function that represents debug information for function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the kind of the function which is one of :optional, :external,\n"
+"   :top-level, :cleanup, nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether there is any variable information for debug-function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function having the same name\n"
+"   and package as symbol.  If symbol is uninterned, then this returns a list "
+"of\n"
+"   debug-variables without package names and with the same name as symbol.  "
+"The\n"
+"   result of this function is limited to the availability of variable\n"
+"   information in debug-function; for example, possibly debug-function only\n"
+"   knows about its arguments."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list of debug-variables in debug-function whose names contain\n"
+"    name-prefix-string as an intial substring.  The result of this function "
+"is\n"
+"    limited to the availability of variable information in debug-function; "
+"for\n"
+"    example, possibly debug-function only knows about its arguments."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns a list representing the lambda-list for debug-function.  The list\n"
+"   has the following structure:\n"
+"      (required-var1 required-var2\n"
+"       ...\n"
+"       (:optional var3 suppliedp-var4)\n"
+"       (:optional var5)\n"
+"       ...\n"
+"       (:rest var6) (:rest var7)\n"
+"       ...\n"
+"       (:keyword keyword-symbol var8 suppliedp-var9)\n"
+"       (:keyword keyword-symbol var10)\n"
+"       ...\n"
+"      )\n"
+"   Each VARi is a debug-variable; however it may be the symbol :deleted it\n"
+"   is unreferenced in debug-function.  This signals a lambda-list-"
+"unavaliable\n"
+"   condition when there is no argument list information."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Malformed arguments description."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns whether basic-code-location is unknown.  It returns nil when the\n"
+"   code-location is known."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the debug-block containing code-location if it is available.  Some\n"
+"   debug policies inhibit debug-block information, and if none is "
+"available,\n"
+"   then this signals a no-debug-blocks condition."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns the code-location's debug-source."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of top-level forms before the one containing\n"
+"   code-location as seen by the compiler in some compilation unit.  A\n"
+"   compilation unit is not necessarily a single file, see the section on\n"
+"   debug-sources."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Unknown code location?  It should be known."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the number of the form corresponding to code-location.  The form\n"
+"   number is derived by a walking the subforms of a top-level form in\n"
+"   depth-first order."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return the kind of CODE-LOCATION, one of:\n"
+"     :interpreted, :unknown-return, :known-return, :internal-error,\n"
+"     :non-local-exit, :block-start, :call-site, :single-value-return,\n"
+"     :non-local-entry"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Returns whether obj1 and obj2 are the same place in the code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Executes forms in a context with code-var bound to each code-location in\n"
+"   debug-block.  This returns the value of executing result (defaults to "
+"nil)."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "??? Can't get name of debug-block's function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n"
+"   by DEBUG-VARIABLE-PACKAGE."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  If the value is not\n"
+"   :valid, then this signals an invalid-value error."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns the value stored for debug-variable in frame.  The value may be\n"
+"   invalid.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Returns three values reflecting the validity of debug-variable's value\n"
+"   at basic-code-location:\n"
+"      :valid    The value is known to be available.\n"
+"      :invalid  The value is known to be unavailable.\n"
+"      :unknown  The value's availability is unknown."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a table mapping form numbers to source-paths.  A source-path\n"
+"   indicates a descent into the top-level-form form, going directly to the\n"
+"   subform corressponding to the form number."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Form is a top-level form, and path is a source-path into it.  This returns\n"
+"   the form indicated by the source-path.  Context is the number of "
+"enclosing\n"
+"   forms to return instead of directly returning the source-path form.  "
+"When\n"
+"   context is non-zero, the form returned contains a marker, #:"
+"****HERE****,\n"
+"   immediately before the form indicated by path."
+msgstr ""
+
+#: target:code/debug.lisp target:code/debug-int.lisp
+msgid "Source path no longer exists."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Return a function of one argument that evaluates form in the lexical\n"
+"   context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a\n"
+"   no-debug-variables condition when the loc's debug-function has no\n"
+"   debug-variable information available.  The returned function takes the "
+"frame\n"
+"   to get values from as its argument, and it returns the values of form.\n"
+"   The returned function signals the following conditions: invalid-value,\n"
+"   ambiguous-variable-name, and frame-function-mismatch"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning the results of the evaluation."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Find and return the debug catch tag for a given frame, if it exists."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Evaluate Form in the lexical context of Frame's current code location,\n"
+"   returning from the current frame the results of the evaluation."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This creates and returns a breakpoint.  When program execution encounters\n"
+"   the breakpoint, the system calls hook-function.  Hook-function takes the\n"
+"   current frame for the function in which the program is running and the\n"
+"   breakpoint object.\n"
+"      What and kind determine where in a function the system invokes\n"
+"   hook-function.  What is either a code-location or a debug-function.  Kind "
+"is\n"
+"   one of :code-location, :function-start, or :function-end.  Since the "
+"starts\n"
+"   and ends of functions may not have code-locations representing them,\n"
+"   designate these places by supplying what as a debug-function and kind\n"
+"   indicating the :function-start or :function-end.  When what is a\n"
+"   debug-function and kind is :function-end, then hook-function must take "
+"two\n"
+"   additional arguments, a list of values returned by the function and a\n"
+"   function-end-cookie.\n"
+"      Info is information supplied by and used by the user.\n"
+"      Function-end-cookie is a function.  To implement :function-end "
+"breakpoints,\n"
+"   the system uses starter breakpoints to establish the :function-end "
+"breakpoint\n"
+"   for each invocation of the function.  Upon each entry, the system creates "
+"a\n"
+"   unique cookie to identify the invocation, and when the user supplies a\n"
+"   function for this argument, the system invokes it on the frame and the\n"
+"   cookie.  The system later invokes the :function-end breakpoint hook on "
+"the\n"
+"   same cookie.  The user may save the cookie for comparison in the hook\n"
+"   function.\n"
+"      This signals an error if what is an unknown code-location."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Cannot make a breakpoint at an unknown code location -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Breakpoints in interpreted code are currently unsupported."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+":FUNCTION-END breakpoints are currently unsupported ~\n"
+"\t\t       for the known return convention."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+":function-end breakpoints are currently unsupported ~\n"
+"\t     for interpreted-debug-functions."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This takes a function-end-cookie and a frame, and it returns whether the\n"
+"   cookie is still valid.  A cookie becomes invalid when the frame that\n"
+"   established the cookie has exited.  Sometimes cookie holders are unaware\n"
+"   of cookie invalidation because their :function-end breakpoint hooks "
+"didn't\n"
+"   run due to THROW'ing.  This takes a frame as an efficiency hack since "
+"the\n"
+"   user probably has a frame object in hand when using this routine, and it\n"
+"   saves repeated parsing of the stack and consing when asking whether a\n"
+"   series of cookies is valid."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This causes the system to invoke the breakpoint's hook-function until the\n"
+"   next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system "
+"invokes\n"
+"   breakpoint hook functions in the opposite order that you activate them."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Cannot activate a deleted breakpoint -- ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "I don't know how you made this, but they're unsupported -- ~S"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "This stops the system from invoking the breakpoint's hook-function."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns the user maintained info associated with breakpoint.  This\n"
+"   is SETF'able."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "This returns whether breakpoint is currently active."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This frees system storage and removes computational overhead associated "
+"with\n"
+"   breakpoint.  After calling this, breakpoint is completely impotent and "
+"can\n"
+"   never become active again."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Unknown breakpoint in ~S at offset ~S."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Make a bogus LRA object that signals a breakpoint trap when returned to.  "
+"If\n"
+"   the breakpoint trap handler returns, REAL-LRA is returned to.  Three "
+"values\n"
+"   are returned: the bogus LRA object, the code component it is part of, "
+"and\n"
+"   the PC offset for the trap instruction."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this remotely in the slave to set breakpoints.  Package is\n"
+"   the string name of a package or nil, and name-str is a string "
+"representing a\n"
+"   function name (for example, \"foo\" or \"(setf foo)\").  After finding\n"
+"   package, this READs name-str with *package* bound appropriately.  Path "
+"is\n"
+"   either a modified source-path or a symbol (:function-start or\n"
+"   :function-end).  If it is a modified source-path, it has no top-level-"
+"form\n"
+"   offset or form-number component, and it is in descent order from the root "
+"of\n"
+"   the top-level form."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "Editor installed breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "We don't currently support breakpoints in interpreted code."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%Cannot set breakpoints for editor when source file no ~\n"
+"\t\t    longer exists:~%  ~A."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"Cannot set breakpoints for editor when ~\n"
+"\t\t\t\t   there is no start positions map."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"~%While setting a breakpoint for the editor, noticed ~\n"
+"\t\t\tsource file has been modified since compilation:~%  ~A~@\n"
+"\t\t\tUsing form offset instead of character position.~%"
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"The editor calls this in the slave with a remote-object representing a\n"
+"   code-location to set a breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "The editor calls this remotely in the slave to delete a breakpoint."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid ""
+"This returns a code-location before the body of a function and after all\n"
+"   the arguments are in place.  If this cannot determine that location due "
+"to\n"
+"   a lack of debug information, it returns nil."
+msgstr ""
+
+#: target:code/debug-int.lisp
+msgid "~S code location at ~D"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LEVEL* is bound to this value when debug prints a function call.  If\n"
+"  null, use *PRINT-LEVEL*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"*PRINT-LENGTH* is bound to this value when debug prints a function call.  "
+"If\n"
+"  null, use *PRINT-LENGTH*."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"default value for the verbose argument to print-frame-call.  If set to >= 2, "
+"source will be printed for all frames"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "This is T while in the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Pushes and pops/exits inside the debugger change this."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"If this is bound before the debugger is invoked, it is used as the stack\n"
+"   top by the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This is a function of no arguments that prints the debugger prompt\n"
+"   on *debug-io*."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"\n"
+"The prompt is right square brackets, the number indicating how many\n"
+"  recursive command loops you are in.\n"
+"Debug commands do not affect * and friends, but evaluation in the debug "
+"loop\n"
+"  do affect these variables.\n"
+"Any command may be uniquely abbreviated.\n"
+"\n"
+"Getting in and out of DEBUG:\n"
+"  Q        throws to top level.\n"
+"  GO       calls CONTINUE which tries to proceed with the restart "
+"'continue.\n"
+"  RESTART  invokes restart numbered as shown (prompt if not given).\n"
+"  ERROR    prints the error condition and restart cases.\n"
+"  FLUSH    toggles *flush-debug-errors*, which is initially t.\n"
+" \n"
+"  The name of any restart, or its number, is a valid command, and is the "
+"same\n"
+"    as using RESTART to invoke that restart.\n"
+"\n"
+"Changing frames:\n"
+"  U  up frame        D  down frame       T  top frame       B  bottom frame\n"
+"\n"
+"  F n   goes to frame n.\n"
+"\n"
+"Inspecting frames:\n"
+"  BACKTRACE [n]  shows n frames going down the stack.\n"
+"  L [prefix]     lists locals starting with the given prefix in current "
+"function.\n"
+"  P              displays current function call.\n"
+"  PP             verbose display of current function, with source.\n"
+"  SOURCE [n]     displays frame's source form with n levels of enclosing "
+"forms.\n"
+"  VSOURCE [n]    displays frame's source form without any ellipsis.\n"
+"  DESCRIBE       describe the current function.\n"
+"\n"
+"Breakpoints and steps:\n"
+"  LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.\n"
+"    Specify :c for the current frame.  Abbreviation: LL\n"
+"  LIST-BREAKPOINTS                  list the active breakpoints.\n"
+"    Abbreviations: LB, LBP\n"
+"  DELETE-BREAKPOINT [n]             remove breakpoint n or all breakpoints.\n"
+"    Abbreviations: DEL, DBP    \n"
+"  BREAKPOINT {n | :end | :start} [:break form] [:function function]\n"
+"    [{:print form}*] [:condition form]    set a breakpoint.\n"
+"    Abbreviations: BR, BP\n"
+"  STEP [n]                          step to the next location or step n "
+"times.\n"
+"\n"
+"Actions on frames:\n"
+"  DEBUG-RETURN expression\n"
+"    returns expression's values from the current frame, exiting the "
+"debugger.\n"
+"    Abbreviations: R\n"
+"\n"
+"Variables:\n"
+"  (DEBUG:VAR name [id])   Returns variable's value if possible.  If "
+"multiple\n"
+"                          variables with the same name exist, use id to "
+"select\n"
+"                          one\n"
+"  (DEBUG:ARG n)           Returns the n'th argument's value if possible.\n"
+"                          Argument zero is the first argument.\n"
+"\n"
+"See the CMU Common Lisp User's Manual for more information.\n"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When true, the LIST-LOCATIONS command only displays block start locations.\n"
+"   Otherwise, all locations are displayed."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "If true, list the code location type in the LIST-LOCATIONS command."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Unknown location: using block start.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: ~S in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-START in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&~S: FUNCTION-END in ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Return values: ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&*Step (to a breakpoint)*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "*Step*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&*Breakpoint hit*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Error in main-hook-function: unknown breakpoint"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Cannot step, in elsewhere code~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Currently only compiled code can be stepped.~%~\n"
+"                Trying to compile the passed form resulted in ~\n"
+"                the following error:~%  ~A"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&Stepping the form~%  ~S~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&using the debugger.  Type HELP for help.~2%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"STEP implements a debugging paradigm wherein the programmer is allowed\n"
+"   to step through the evaluation of a form.  We use the debugger's "
+"stepping\n"
+"   facility to step through an anonymous function containing only form.\n"
+"\n"
+"   Currently the stepping facility only supports stepping compiled code,\n"
+"   so step will try to compile the resultant anonymous function.  If this\n"
+"   fails, e.g. because it closes over a non-null lexical environment, an\n"
+"   error is signalled."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Show a listing of the call stack going down from the current frame.  In the\n"
+"   debugger, the current frame is indicated by the prompt.  Count is how "
+"many\n"
+"   frames to show."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unavaliable-rest-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "lambda-list-unavailable"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "error printing object {~X}"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unused-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "unavailable-arg"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%Source: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Error finding source: ~A"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unable to display error condition~@[: ~A~]"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This is either nil or a function of two arguments, a condition and the "
+"value\n"
+"   of *debugger-hook*.  This function can either handle the condition or "
+"return\n"
+"   which causes the standard debugger to execute.  The system passes the "
+"value\n"
+"   of this variable to the function because it binds *debugger-hook* to nil\n"
+"   around the invocation."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&~A~%   [Condition of type ~S]~2&"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "The CMU Common Lisp debugger.  Type h for help."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Restarts:~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~2&Debug  (type H for help)~2%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n"
+"   executing in the debugger.  The 'flush' command toggles this."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When non-NIL, becomes the system *READTABLE* in the debugger\n"
+"   read-eval-print loop"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "When non-NIL, print the current frame when entering the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Error flushed ..."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Return to debug level ~D."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unknown stream-command -- ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Ambiguous debugger command: ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Your command, ~S, is ambiguous:~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"When set (the default), evaluations in the debugger's command loop occur\n"
+"   relative to the current frame's environment without the need of debugger\n"
+"   forms that explicitly control this kind of evaluation."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Setting * to NIL -- was unbound marker."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No known valid variables match ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Specification ambiguous:~%~{   ~A~%~}"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid variable ID, ~D, should have been one of ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Returns a variable's value if possible.  Name is a simple-string or symbol.\n"
+"   If it is a simple-string, it is an initial substring of the variable's "
+"name.\n"
+"   If name is a symbol, it has the same name and package as the variable "
+"whose\n"
+"   value this function returns.  If the symbol is uninterned, then the "
+"variable\n"
+"   has the same name as the symbol, but it has no package.\n"
+"\n"
+"   If name is the initial substring of variables with different names, then\n"
+"   this return no values after displaying the ambiguous names.  If name\n"
+"   determines multiple variables with the same name, then you must use the\n"
+"   optional id argument to specify which one you want.  If you left id\n"
+"   unspecified, then this returns no values after displaying the "
+"distinguishing\n"
+"   id values.\n"
+"\n"
+"   The result of this function is limited to the availability of variable\n"
+"   information.  This is SETF'able."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"Returns the n'th argument's value if possible.  Argument zero is the first\n"
+"   argument in a frame's default printed representation.  Count keyword/"
+"value\n"
+"   pairs as separate arguments."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No argument values are available."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unused arguments have no values."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid argument value."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Argument specification out of range -- ~S."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unused rest-arg before n'th argument."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invalid rest-arg before n'th argument."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Invoking debugger command while outside the debugger."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Unknown debug command name -- ~S"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Top of stack."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Bottom of stack."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Frame number: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "You are here."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Bottom of stack encountered."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Top of stack encountered."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "debug-return: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"~@<can't find a tag for this frame ~\n"
+"                   ~2I~_(hint: try increasing the DEBUG optimization quality "
+"~\n"
+"                   and recompiling)~:@>"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No restart named continue."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Restart: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~S is invalid as a restart name.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No such restart."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"This controls how many lines the debugger's help command prints before\n"
+"   printing a prompting line to continue with output."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"No local variables ~@[starting with ~A ~]~\n"
+"\t               in function."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"All variables ~@[starting with ~A ~]currently ~\n"
+"\t               have invalid values."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No variable information available."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "No start positions map."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Source file no longer exists:~%  ~A."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~%; File: ~A~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"~%; File has been modified since compilation:~%;   ~A~@\n"
+"\t\t ; Using form offset instead of character position.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Couldn't continue."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "::FUNCTION-START "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid " *Active*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid " *Continue here*"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&::FUNCTION-END *Active* "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Location number, :start, or :end: "
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Note: previous breakpoint removed.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "~&Added."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Breakpoint ~S removed.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Breakpoint doesn't exist."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "All breakpoints deleted.~%"
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Errors now flushed."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Errors now create nested debug levels."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid "Can't figure out the function for this frame."
+msgstr ""
+
+#: target:code/debug.lisp
+msgid ""
+"The debugger's EDIT-SOURCE command only works in slave Lisps ~\n"
+"\t    connected to a Hemlock editor."
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n"
+"   until the user enters y or Y as an affirmative, or either n or N as a\n"
+"   negative answer.  It ignores preceding whitespace and asks again if you\n"
+"   enter any other characters."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"y\" for yes or \"n\" for no. "
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n"
+"   input buffer, beeps, and uses READ-LINE to get the strings \n"
+"   YES or NO."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"yes\" for yes or \"no\" for no. "
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate an random state vector from the given SEED.  The seed can be\n"
+"  either an integer or a vector of (unsigned-byte 32)"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Make a random state object.  If STATE is not supplied, return a copy\n"
+"  of the default random state.  If STATE is a random state, then return a\n"
+"  copy of it.  If STATE is T then return a random state generated from\n"
+"  the universal time or /dev/urandom if available."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate a uniformly distributed pseudo-random number between zero\n"
+"  and Arg.  State, if supplied, is the random state to use."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a positive integer or a positive float: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"This is bound to the returned values when evaluating :BREAK-AFTER and\n"
+"   :PRINT-AFTER forms."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"If the trace indentation exceeds this value, then indentation restarts at\n"
+"   0."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "The default value for the :ENCAPSULATE option to trace."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"List of package names.  Encapsulate functions from these packages\n"
+"   by default.  This should at least include the packages of functions\n"
+"   used by TRACE, directly or indirectly."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't trace special form ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Breaking ~A traced call to ~S:"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "~S returned"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Function ~S already TRACE'd, retracing it."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Tracing shared code for ~S:~%  ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "~S name is not a defined global function: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace anonymous function ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Can't use encapsulation to trace local flet/labels function ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Missing argument to ~S TRACE option."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Unknown TRACE option: ~S"
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"TRACE {Option Global-Value}* {Name {Option Value}*}*\n"
+"   TRACE is a debugging tool that prints information when specified "
+"functions\n"
+"   are called.  In its simplest form:\n"
+"       (trace Name-1 Name-2 ...)\n"
+"\n"
+"   CLOS methods can be traced by specifying a name of the form\n"
+"   (METHOD {Qualifier}* ({Specializer}*)).\n"
+"\n"
+"   Labels and Flet functions can be traced by specifying a name of the form\n"
+"   (LABELS <lfun> <fun>) or (FLET <lfun> <fun>) where <lfun> is the Labels/"
+"Flet\n"
+"   function in <fun>.\n"
+"\n"
+"   TRACE causes a printout on *TRACE-OUTPUT* each time that one of the "
+"named\n"
+"   functions is entered or returns (the Names are not evaluated.)  The "
+"output\n"
+"   is indented according to the number of pending traced calls, and this "
+"trace\n"
+"   depth is printed at the beginning of each line of output.\n"
+"\n"
+"   Options allow modification of the default behavior.  Each option is a "
+"pair\n"
+"   of an option keyword and a value form.  Options may be interspersed with\n"
+"   function names.  Options only affect tracing of the function whose name "
+"they\n"
+"   appear immediately after.  Global options are specified before the first\n"
+"   name, and affect all functions traced by a given use of TRACE.\n"
+"\n"
+"   The following options are defined:\n"
+"\n"
+"   :CONDITION Form\n"
+"   :CONDITION-AFTER Form\n"
+"   :CONDITION-ALL Form\n"
+"       If :CONDITION is specified, then TRACE does nothing unless Form\n"
+"       evaluates to true at the time of the call.  :CONDITION-AFTER is\n"
+"       similar, but suppresses the initial printout, and is tested when the\n"
+"       function returns.  :CONDITION-ALL tries both before and after.\n"
+"\n"
+"   :WHEREIN Names\n"
+"       If specified, Names is a function name or list of names.  TRACE does\n"
+"       nothing unless a call to one of those functions encloses the call to\n"
+"       this function (i.e. it would appear in a backtrace.)  Anonymous\n"
+"       functions have string names like \"DEFUN FOO\".\n"
+"   :WHEREIN-ONLY Names\n"
+"       Like :WHEREIN, but only if the immediate caller is one of Names,\n"
+"       instead of being any where in a backtrace.\n"
+"\n"
+"   :BREAK Form\n"
+"   :BREAK-AFTER Form\n"
+"   :BREAK-ALL Form\n"
+"       If specified, and Form evaluates to true, then the debugger is "
+"invoked\n"
+"       at the start of the function, at the end of the function, or both,\n"
+"       according to the respective option.\n"
+"\n"
+"   :PRINT Form\n"
+"   :PRINT-AFTER Form\n"
+"   :PRINT-ALL Form\n"
+"       In addition to the usual printout, the result of evaluating FORM is\n"
+"       printed at the start of the function, at the end of the function, or\n"
+"       both, according to the respective option.  Multiple print options "
+"cause\n"
+"       multiple values to be printed.\n"
+"\n"
+"   :FUNCTION Function-Form\n"
+"       This is a not really an option, but rather another way of specifying\n"
+"       what function to trace.  The Function-Form is evaluated immediately,\n"
+"       and the resulting function is traced.\n"
+"\n"
+"   :METHODS Function-Form\n"
+"       This is a not really an option, but rather a way of specifying\n"
+"       that all methods of a generic functions should be traced.  The\n"
+"       Function-Form is evaluated immediately, and the methods of the "
+"resulting\n"
+"       generic function are traced.\n"
+"\n"
+"   :ENCAPSULATE {:DEFAULT | T | NIL}\n"
+"       If T, the tracing is done via encapsulation (redefining the function\n"
+"       name) rather than by modifying the function.  :DEFAULT is the "
+"default,\n"
+"       and means to use encapsulation for interpreted functions and "
+"funcallable\n"
+"       instances, breakpoints otherwise.  When encapsulation is used, forms "
+"are\n"
+"       *not* evaluated in the function's lexical environment, but DEBUG:ARG "
+"can\n"
+"       still be used.\n"
+"\n"
+"   :CONDITION, :BREAK and :PRINT forms are evaluated in the lexical "
+"environment\n"
+"   of the called function; DEBUG:VAR and DEBUG:ARG can be used.  The -AFTER "
+"and\n"
+"   -ALL forms are evaluated in the null environment."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid "Function is not TRACE'd -- ~S."
+msgstr ""
+
+#: target:code/ntrace.lisp
+msgid ""
+"Removes tracing from the specified functions.  With no args, untraces all\n"
+"   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/time.lisp
+msgid ""
+"The number of internal time units that fit into a second.  See\n"
+"  Get-Internal-Real-Time and Get-Internal-Run-Time."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Return the real time in the internal time format.  This is useful for\n"
+"  finding elapsed time.  See Internal-Time-Units-Per-Second."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Return the run time in the internal time format.  This is useful for\n"
+"  finding CPU usage."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Returns a single integer for the current time of\n"
+"   day in universal time format."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Returns nine values specifying the current time as follows:\n"
+"   second, minute, hour, date, month, year, day of week (0 = Monday), T\n"
+"   (daylight savings times) or NIL (standard time), and timezone."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Converts a universal-time to decoded time format returning the following\n"
+"   nine values: second, minute, hour, date, month, year, day of week (0 =\n"
+"   Monday), T (daylight savings time) or NIL (standard time), and timezone.\n"
+"   Completely ignores daylight-savings-time when time-zone is supplied."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"The time values specified in decoded format are converted to \n"
+"   universal time, which is returned."
+msgstr ""
+
+#: target:code/time.lisp
+msgid "Evaluates the Form and prints timing information on *Trace-Output*."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"TIME form in a non-null environment, forced to interpret.~@\n"
+"\t       Compiling entire form will produce more accurate times."
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"Evaluation took:~%  ~\n"
+"\t\t     ~S seconds of real time~%  ~\n"
+"\t\t     ~S seconds of user run time~%  ~\n"
+"\t\t     ~S seconds of system run time~%  "
+msgstr ""
+
+#: target:code/time.lisp
+msgid ""
+"~:D ~A cycle~%  ~\n"
+"\t\t     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgid_plural ""
+"~:D ~A cycles~%  ~\n"
+"\t\t     ~@[[Run times include ~S seconds GC run time]~%  ~]"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/time.lisp
+msgid "~S page fault and~%  "
+msgid_plural "~S page faults and~%  "
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/time.lisp
+msgid "~:D byte consed.~%"
+msgid_plural "~:D bytes consed.~%"
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/weak.lisp
+msgid "Allocates and returns a weak pointer which points to OBJECT."
+msgstr ""
+
+#: target:code/weak.lisp
+msgid ""
+"If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n"
+"   If the referent of WEAK-POINTER has been garbage collected, returns\n"
+"   the values NIL and NIL."
+msgstr ""
+
+#: target:code/weak.lisp
+msgid "Updates WEAK-POINTER to point to a new object."
+msgstr ""
+
+#: target:code/final.lisp
+msgid ""
+"Arrange for FUNCTION to be called when there are no more references to\n"
+"   OBJECT.  FUNCTION takes no arguments."
+msgstr ""
+
+#: target:code/final.lisp
+msgid "Cancel any finalization registers for OBJECT."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Depth of recursive descriptions allowed."
+msgstr "허용되는 재귀적인 묘사의 깊이."
+
+#: target:code/describe.lisp
+msgid ""
+"If non-nil, descriptions may provide interpretations of information and\n"
+"  pointers to additional information.  Normally nil."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"*print-level* gets bound to this inside describe.  If null, use\n"
+"  *print-level*"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"*print-length* gets bound to this inside describe.  If null, use\n"
+"  *print-length*."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Number of spaces that sets off each line of a recursive description."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Used to tell whether we are doing a recursive describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Used to implement recursive description cutoff.  Don't touch."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "An output stream used by Describe for indenting and stuff."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"List of all objects describe within the current top-level call to describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "The last object passed to describe."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Prints a description of the object X."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "*describe-level* should be a nonnegative integer - ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its code is #x~4,'0x."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its name is ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~(~A~) of type ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is a ~:[~;displaced ~]vector of length ~D."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It has a fill pointer, currently ~d"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It has no fill pointer."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is ~:[an~;a displaced~] array of rank ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~%Its dimensions are ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its element type is specialized to ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is adjustable."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is static."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a prime number."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a composite number."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its components are ~S and ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~S is an ~A hash table."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its size is ~D buckets."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-size is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its rehash-threshold is ~S."
+msgstr ""
+
+#: target:pcl/env.lisp target:code/describe.lisp
+msgid "~&It currently holds ~d entries."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is weak ~A table."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~d symbols total: ~d internal and ~d external."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@(~A documentation:~)~&  ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its ~(~A~) argument types are:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its result type is:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid ""
+"~&It is currently declared ~(~A~);~\n"
+"\t\t ~:[no~;~] expansion is available."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@(~@[~A ~]arguments:~%~)"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "  There are no arguments."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its closure environment is:"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its definition is:~%  ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&On ~A it was compiled from:"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A~%  Created: "
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&  Comment: ~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "  There is no argument information available."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Macro-function: ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Function: ~S"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~S is a function."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is an unknown type of function."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A is an ~A symbol in the ~A package."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~A is an uninterned symbol."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~@<Its current value is ~3I~:_~S.~:>"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A with expansion: ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; its value is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is a ~A; no current value."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its declared type is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Special form"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Structure"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Type"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "Setf macro"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Documentation on the ~(~A~):~%~A"
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a class ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a PCL class ~A."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It names a type specifier."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&Its ~S property is ~S."
+msgstr ""
+
+#: target:code/describe.lisp
+msgid "~&It is defined in:~&~A"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%That slot is unbound.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%This object contains nothing to inspect.~%~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Bottom of Stack.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~%Returning to INSPECTOR.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "TTY-Inspector Help:"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  R           -  recompute current object."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  D           -  redisplay current object."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  U           -  Move upward through the object stack."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  <number>    -  Inspect this slot."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  Q, E        -  Quit TTY-INSPECTOR."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "  ?, H, Help  -  Show this help."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Unbound"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a symbol.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Value"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Function"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Plist"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Package"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is an instance of ~s.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "- (slot is unbound)"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "~s is a ~(~A~).~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Function ~s.~@[~%Argument List: ~a~]."
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a LIST of length ~d.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is a CONS.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid ""
+"Object is ~:[a displaced~;an~] array of ~a.~%~\n"
+"                       Its dimensions are ~s.~%"
+msgstr ""
+
+#: target:code/tty-inspect.lisp
+msgid "Object is an atom.~%"
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Universal-Time formats a string containing the time and date\n"
+"   given by universal-time in a common manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), :abbreviated (like :long but words\n"
+"   are abbreviated), :rfc1123 (conforming to RFC 1123), :government\n"
+"   (of the form \"XX Mon XX XX:XX:XX\"), or :iso8601 (conforming to\n"
+"   ISO 8601), which is the recommended way of printing date and time.\n"
+"   The keyword date-first, if nil, will print the time first instead of\n"
+"   the date (the default).  The print- keywords, if nil, inhibit the\n"
+"   printing of the obvious part of the time/date."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Not a valid format destination."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Universal-Time should be an integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be a rational between -24 and 24."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone is not a second (1/3600) multiple."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Unrecognized :style keyword value."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Decoded-Time formats a string containing decoded-time\n"
+"   expressed in a humanly-readable manner.  The destination is any\n"
+"   destination which can be accepted by the Format function.  The\n"
+"   timezone keyword is an integer specifying hours west of Greenwich.\n"
+"   The style keyword can be :short (numeric date), :long (months and\n"
+"   weekdays expressed as words), or :abbreviated (like :long but words are\n"
+"   abbreviated).  The keyword date-first, if nil, will cause the time\n"
+"   to be printed first instead of the date (the default).  The print-\n"
+"   keywords, if nil, inhibit the printing of certain semi-obvious\n"
+"   parts of the string."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Seconds should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Minutes should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an integer between 0 and 23."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Day should be an integer between 1 and 31."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Month should be an integer between 1 and 12."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an non-negative integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be an integer between 0 and 32."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"If t, an error will be signalled if parse-time is unable\n"
+"   to determine the time/date format of the string."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized word or abbreviation."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"Can't parse time/date string.~%>>> ~A~\n"
+"\t\t\t\t   ~%~VT^-- Bogus character encountered here."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol: ~A"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "~D is not an AM hour, dummy."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "~A isn't AM/PM - this shouldn't happen."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Invalid number of days (~D) for month ~D in ~D"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Ignore."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "Unrecognized symbol in form list: ~A."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid ""
+"Tries very hard to make sense out of the argument time-string and\n"
+"   returns a single integer representing the universal time if\n"
+"   successful.  If not, it returns nil.  If the :error-on-mismatch\n"
+"   keyword is true, parse-time will signal an error instead of\n"
+"   returning nil.  Default values for each part of the time/date\n"
+"   can be specified by the appropriate :default- keyword.  These\n"
+"   keywords can be given a numeric value or the keyword :current\n"
+"   to set them to the current value.  The default-default values\n"
+"   are 00:00:00 on the current date, current time-zone."
+msgstr ""
+
+#: target:code/parse-time.lisp
+msgid "\"~A\" is not a recognized time/date format."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Return any available status information on child processed. "
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of process structures for all active processes."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Return the current status of process.  The result is one of :running,\n"
+"   :stopped, :exited, :signaled."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Wait for PROC to quit running for some reason.  Returns PROC."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "TIOCPGRP ioctl failed: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Hand SIGNAL to PROC.  If whom is :pid, use the kill Unix system call.  If\n"
+"   whom is :process-group, use the killpg Unix system call.  If whom is\n"
+"   :pty-process-group deliver the signal to whichever process group is "
+"currently\n"
+"   in the foreground."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns T if the process is still alive, NIL otherwise."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Close all streams connected to PROC and stop maintaining the status slot."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM exits due to an error."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM returns in the parent."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of handlers installed by RUN-PROGRAM."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns the master fd, the slave fd, and the name of the tty"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not find a pty."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not UNIX:UNIX-DUP ~D: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"RUN-PROGRAM creates a new process and runs the unix program in the\n"
+"   file specified by the simple-string PROGRAM.  ARGS are the standard\n"
+"   arguments that can be passed to a Unix program, for no arguments\n"
+"   use NIL (which means just the name of the program is passed as arg 0).\n"
+"\n"
+"   RUN-PROGRAM will either return NIL or a PROCESS structure.  See the CMU\n"
+"   Common Lisp Users Manual for details about the PROCESS structure.\n"
+"\n"
+"   The keyword arguments have the following meanings:\n"
+"     :env -\n"
+"        An A-LIST mapping keyword environment variables to simple-string\n"
+"\tvalues.\n"
+"     :wait -\n"
+"        If non-NIL (default), wait until the created process finishes.  If\n"
+"        NIL, continue running Lisp until the program finishes.\n"
+"     :pty -\n"
+"        Either T, NIL, or a stream.  Unless NIL, the subprocess is "
+"established\n"
+"\tunder a PTY.  If :pty is a stream, all output to this pty is sent to\n"
+"\tthis stream, otherwise the PROCESS-PTY slot is filled in with a stream\n"
+"\tconnected to pty that can read output and write input.\n"
+"     :input -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the "
+"standard\n"
+"\tinput for the current process is inherited.  If NIL, /dev/null\n"
+"\tis used.  If a pathname, the file so specified is used.  If a stream,\n"
+"\tall the input is read from that stream and send to the subprocess.  If\n"
+"\t:STREAM, the PROCESS-INPUT slot is filled in with a stream that sends \n"
+"\tits output to the process. Defaults to NIL.\n"
+"     :if-input-does-not-exist (when :input is the name of a file) -\n"
+"        can be one of:\n"
+"           :error - generate an error.\n"
+"           :create - create an empty file.\n"
+"           nil (default) - return nil from run-program.\n"
+"     :output -\n"
+"        Either T, NIL, a pathname, a stream, or :STREAM.  If T, the "
+"standard\n"
+"\toutput for the current process is inherited.  If NIL, /dev/null\n"
+"\tis used.  If a pathname, the file so specified is used.  If a stream,\n"
+"\tall the output from the process is written to this stream. If\n"
+"\t:STREAM, the PROCESS-OUTPUT slot is filled in with a stream that can\n"
+"\tbe read to get the output. Defaults to NIL.\n"
+"     :if-output-exists (when :output is the name of a file) -\n"
+"        can be one of:\n"
+"           :error (default) - generates an error if the file already "
+"exists.\n"
+"           :supersede - output from the program supersedes the file.\n"
+"           :append - output from the program is appended to the file.\n"
+"           nil - run-program returns nil without doing anything.\n"
+"     :error and :if-error-exists - \n"
+"        Same as :output and :if-output-exists, except that :error can also "
+"be\n"
+"\tspecified as :output in which case all error output is routed to the\n"
+"\tsame place as normal output.\n"
+"     :status-hook -\n"
+"        This is a function the system calls whenever the status of the\n"
+"        process changes.  The function takes the process as an argument."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "All args to program must be simple strings -- ~S."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "No such program: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not fork child process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not select on sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not read input from sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open \"/dev/null\": ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not duplicate file descriptor: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open a temporary file in /tmp"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Cound not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Invalid option to run-program: ~S"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP-BODY called with non-synched before- and after-loop lists."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~?~%Current LOOP context:~{ ~S~}."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Specified data type ~S is not a subtype of ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Causes the iteration to terminate \"normally\", the same as implicit\n"
+"termination by an iteration driving clause, or by use of WHILE or\n"
+"UNTIL -- the epilogue code (if any) will be run, and any implicitly\n"
+"collected result will be returned as the value of the LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where LOOP keyword expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in LOOP macro."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP source code ran out when another token was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Compound form expected, but found ~A."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "LOOP code ran out where a form was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"LOOP clause is providing a value for the iteration,~@\n"
+"\t        however one was already established by a ~S clause."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "This LOOP clause is not permitted with anonymous collectors."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"This anonymous collection LOOP clause is not permitted with aggregate "
+"booleans."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern "
+"expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP keyword or LOOP type keyword expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring type pattern ~S doesn't match variable pattern ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Duplicated LOOP iteration variable ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Duplicated variable ~S in LOOP parallel binding."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Bad variable ~S somewhere in LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Variable ~S has already been used"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Invalid LOOP variable passed in: ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where keyword expected getting LOOP clause after ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S does not introduce a LOOP clause that can follow ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an invalid name for your LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "The NAMED ~S clause occurs too late."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Value accumulation recipient name, ~S, is not a symbol."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Variable ~S cannot be used in INTO clause"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Incompatible kinds of LOOP value accumulation specified for collecting~@\n"
+"\t\t    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Unequal datatypes specified in different LOOP value accumulations~@\n"
+"\t\t   into ~S: ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Iteration in LOOP follows body code."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is an unknown keyword in FOR or AS clause in LOOP."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Use of QUOTE around stepping function in LOOP will be left verbatim."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where ITS or EACH expected in LOOP iteration path syntax."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S found where a LOOP iteration path name was expected."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "~S is not the name of a LOOP iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"\"Inclusive\" iteration is not possible with the ~S LOOP iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unused USING variables: ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"Value passed back by LOOP iteration path function for path ~S has invalid "
+"length."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "A ~S prepositional phrase occurs multiply for some LOOP clause."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Preposition ~S used when some other preposition has subsumed it."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"The variable substitution for ~S occurs twice in a USING phrase,~@\n"
+"\t\t        with ~S and ~S."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid ""
+"~S invalid preposition in sequencing or sequence path.~@\n"
+"\t       Invalid prepositions specified in iteration path descriptor or "
+"something?"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Conflicting stepping directions in LOOP sequencing path"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN phrase in sequence path"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Don't know where to start stepping."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Too many prepositions!"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Missing OF or IN in ~S iteration path."
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Unknown preposition ~S"
+msgstr ""
+
+#: target:code/loop.lisp
+msgid "Destructuring is not valid for package symbol iteration."
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid "endian-swap ~a is illegal for element-type of vector ~a"
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Read from Stream into Vector.  The Start and End indices of Vector\n"
+"  is in octets, and must be an multiple of the octets per element of\n"
+"  the vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid "Wrong vector type ~a for read-vector on stream ~a."
+msgstr ""
+
+#: target:code/stream-vector-io.lisp
+msgid ""
+"Write Vector to Stream.  The Start and End indices of Vector is in\n"
+"  octets, and must be an multiple of the octets per element of the\n"
+"  vector element.  The keyword argument :Endian-Swap specifies any\n"
+"  endian swapping to be done. "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not create temporary file ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Not enough memory left."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the ELF magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Return the `osabi' field in the padding of the ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Given a file type number, determine whether the file is executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the mach-o magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Loading object file...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not open ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not an ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not a ~A executable, it's a ~A executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A is not executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Parse symbol table file created by load-foreign script.  Modified\n"
+"to skip undefined symbols which don't have an address."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Parsing symbol table...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load-foreign loads a list of C object files into a running Lisp.  The files\n"
+"  argument should be a single file or a list of files.  The files may be\n"
+"  specified as namestrings or as pathnames.  The libraries argument should "
+"be a\n"
+"  list of library files as would be specified to ld.  They will be searched "
+"in\n"
+"  the order given.  The default is just \"-lc\", i.e., the C library.  The\n"
+"  base-file argument is used to specify a file to use as the starting place "
+"for\n"
+"  defined symbols.  The default is the C start up code for Lisp.  The env\n"
+"  argument is the Unix environment variable definitions for the invocation "
+"of\n"
+"  the linker.  The default is the environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running library:load-foreign.csh...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Object file is wrong format, so can't load-foreign:~\n"
+"\t\t  ~%  ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Object file is not relocatable, so can't load-foreign:~\n"
+"\t\t  ~%  ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run library:load-foreign.csh"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "library:load-foreign.csh failed:~%~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Done.~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Lazy function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Immediate function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Mask of binding time value"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"If set the symbols of the loaded object and its dependencies are\n"
+"   made visible as if the object were linked directly into the program"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open global symbol table: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open object ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Couldn't open library ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Reloaded library ~S~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Enter new library path: "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Trying as object file ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A failed:~%~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "AList of socket kinds and protocol values."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Invalid kind (~S) for internet domain sockets."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a host-entry for the given host. The host may be an address\n"
+"  string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error creating socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to path ~a: ~a"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error listening to socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error accepting a connection: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "bind Socket to (local) Host and Port"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "The host may be an address string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A:~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Get an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Set an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~S setting socket option on socket ~D."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error closing socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Return the peer host address and port in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting peer host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting socket host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Ignore it"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error recving oob data on ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "No oob handler defined for ~S on ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Got a SIGURG, but couldn't find any out-of-band data."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove any handlers for CHAR on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove all handlers for FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error sending ~S OOB to across ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix recvfrom call.  Returns three values:\n"
+"bytecount, source address as integer, and source port.  bytecount\n"
+"can of course be negative, to indicate faults."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "A packaging of the unix sendto call.  Return value like sendto"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix shutdown call.  An error is signaled if shutdown "
+"fails."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error on shutdown of socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a network stream.  HOST may be an address string or an integer\n"
+"IP address."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host format: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection to ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection from ~D.~D.~D.~D:~D"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "The wire the form we are currently evaluating came across."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this host."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Unique identifier for this process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Hash table mapping local objects to the corresponding remote id."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Hash table mapping remote id's to the curresponding local object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Next available id for remote objects."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "There is a problem with ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Received EOF on ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Error ~A ~A: ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Returns T iff the given remote object is defined locally."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Returns T iff the two objects refer to the same (eq) object in the same\n"
+"  process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Return the associated value for the given remote object. It is an error if\n"
+"  the remote object was not created in this process or if\n"
+"  FORGET-REMOTE-TRANSLATION has been called on this remote object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "~S is defined is a different process."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Use the value of NIL"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Convert the given local object to a remote object."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Forget the translation from the given local to the corresponding remote\n"
+"object. Passing that remote object to remote-object-value will new return "
+"NIL."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Return T iff anything is in the input buffer or available on the socket."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "listening to"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Read data off the socket, filling the input buffer. The buffer is cleared\n"
+"first. If fill-input-buffer returns, it is guarenteed that there will be at\n"
+"least one byte in the input buffer. If EOF was reached, as wire-eof error\n"
+"is signaled."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "reading"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Return the next byte from the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Read a number off the wire. Numbers are 4 bytes in network order.\n"
+"The optional argument controls weather or not the number should be "
+"considered\n"
+"signed (defaults to T)."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
+"   return it."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Reads a string from the wire. The first four bytes spec the size."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Reads the next object from the wire and returns it."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Attempt to read symbol, ~A, of wire into non-existent ~\n"
+"\t\t       package, ~A."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "writing"
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Not everything wrote."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Send any info still in the output buffer down the wire and clear it. "
+"Nothing\n"
+"harmfull will happen if called when the output buffer is empty."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Output the given (8-bit) byte on the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Output the given (32-bit) number on the wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n"
+"then output the bytes."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid ""
+"Output the given object on the given wire. If cache-it is T, enter this\n"
+"object in the cache for future reference."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Error: Cannot output objects of type ~s across a wire."
+msgstr ""
+
+#: target:code/wire.lisp
+msgid "Send the function and args down the wire as a funcall."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "AList of wire . remote-wait structs"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Evaluates the given forms remotly. No values are returned, as the remote\n"
+"evaluation is asyncronus."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Bind VARS to the multiple values of FORM (which is executed remotely). The\n"
+"forms in BODY are only executed if the remote function returned (as apposed\n"
+"to aborting due to a throw)."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Remote server unwound"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Execute the single form remotly. The value of the form is returned.\n"
+"  The optional form on-server-unwind is only evaluated if the server "
+"unwinds\n"
+"  instead of returning."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Create a request server on the given port.  Whenever anyone connects to it,\n"
+"   call the given function with the newly created wire and the address of "
+"the\n"
+"   connector.  If the function returns NIL, the connection is destroyed;\n"
+"   otherwise, it is accepted.  This returns a manifestation of the server "
+"that\n"
+"   DESTROY-REQUEST-SERVER accepts to kill the request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Quit accepting connections to the given request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Connect to a remote request server addressed with the given host and port\n"
+"   pair.  This returns the created wire."
+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"
+"   options according to ANSI spec. MUST be NIL to compile CMUCL & PCL"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Allocate a new instance with LENGTH data slots."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Given an instance, return its length."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Class not yet defined or was undefined: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Class is not a structure class: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n"
+"   Define the structure type Name.  Instances are created by MAKE-<name>, "
+"which\n"
+"   takes keyword arguments allowing initial slot values to the specified.\n"
+"   A SETF'able function <name>-<slot> is defined for each slot to "
+"read&write\n"
+"   slot values.  <name>-p is a type predicate.\n"
+"\n"
+"   Popular DEFSTRUCT options (see manual for others):\n"
+"\n"
+"   (:CONSTRUCTOR Name)\n"
+"   (:PREDICATE Name)\n"
+"       Specify an alternate name for the constructor or predicate.\n"
+"\n"
+"   (:CONSTRUCTOR Name Lambda-List)\n"
+"       Explicitly specify the name and arguments to create a BOA "
+"constructor\n"
+"       (which is more efficient when keyword syntax isn't necessary.)\n"
+"\n"
+"   (:INCLUDE Supertype Slot-Spec*)\n"
+"       Make this type a subtype of the structure type Supertype.  The "
+"optional\n"
+"       Slot-Specs override inherited slot options.\n"
+"\n"
+"   Slot options:\n"
+"\n"
+"   :TYPE Type-Spec\n"
+"       Asserts that the value of this slot is always of the specified type.\n"
+"\n"
+"   :READ-ONLY {T | NIL}\n"
+"       If true, no setter function is defined for this slot."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "defining structure ~A"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Disable package's definition lock then continue"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Defstruct already names a declaration: ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Can't have more than one :INCLUDE option."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "~S is a bad :TYPE for Defstruct."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "The Defstruct option :NAMED takes no arguments."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Unknown DEFSTRUCT option~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Unrecognized DEFSTRUCT option: ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Can't specify :OFFSET unless :TYPE is specified."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :PRINT-FUNCTION with :TYPE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Keyword slot name indicates probable syntax ~\n"
+"\t\t      error in DEFSTRUCT -- ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Duplicate slot name ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Slot ~S must be read-only in subtype ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ":TYPE option mismatch between structures ~S and ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ":TYPE'd defstruct ~S not found for inclusion."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"~@<Non-overwritten accessor ~S does not access ~\n"
+"                        slot with name ~S (accessing an inherited slot ~\n"
+"                        instead).~:@>"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Obsolete structure accessor function called."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for accessor ~S is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for setter ~S is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "New-Value for setter ~S is not a ~S:~% ~S."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structure for copier is not a ~S:~% ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Shouldn't happen!  Some strange thing in LAYOUT-INFO:~\n"
+"\t\t    ~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Incompatibly redefining slots of structure class ~S~@\n"
+"\t  Make sure any uses of affected accessors are recompiled:~@\n"
+"\t  ~@[  These slots were moved to new positions:~%    ~S~%~]~\n"
+"\t  ~@[  These slots have new incompatible types:~%    ~S~%~]~\n"
+"\t  ~@[  These slots were deleted:~%    ~S~%~]"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Redefining class ~S incompatibly with the current ~\n"
+"\t\tdefinition."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Previously loaded ~S accessors will no longer work."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid ""
+"Any old ~S instances will be in a bad way.~@\n"
+"\t       I hope you know what you're doing..."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Removing old subclasses of ~S:~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Return a copy of Structure with the same (EQL) slot values."
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Copying an obsolete structure:~%  ~S"
+msgstr ""
+
+#: target:code/defstruct.lisp
+msgid "Structures of type ~S cannot be dumped as constants."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "A list of tests that do argument counting at expansion time."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that are done to make lambda-list parsing possible."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Let bindings that the user has explicitly supplied."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Unsupplied optional and keyword arguments get this value defaultly."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Returns as multiple-values a parsed body, any local-declarations that\n"
+"   should be made where this body is inserted, and a doc-string if there is\n"
+"   one."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&Whole must appear first in ~S lambda-list."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&environment not valid with ~S."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "&environment only valid at top level of lambda-list."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Invalid ~a"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Ignore extra noise."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"More than variable, initform, and suppliedp ~\n"
+"\t\t\t    in &optional binding - ~S"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Non-symbol in lambda-list - ~S."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Illegal optional variable name: ~S"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A in ~S:~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Error while parsing arguments to ~A ~S:~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ""
+"Invalid number of elements in:~%  ~:S~%~\n"
+"\t     to satisfy lambda-list:~%  ~:S~%"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected at least ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected exactly ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid "Expected between ~D and ~D"
+msgstr ""
+
+#: target:code/defmacro.lisp
+msgid ", but got ~D."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info class."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "~S is not a defined info type."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Define-Info-Class Class\n"
+"  Define a new class of global information."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Out of INFO type numbers!"
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Define-Info-Type Class Type default Type-Spec\n"
+"  Define a new type of global information for Class.  Type is the symbol "
+"name\n"
+"  of the type, Default is the value for that type when it hasn't been set, "
+"and\n"
+"  Type-Spec is a type-specifier which values of the type must satisfy.  The\n"
+"  default expression is evaluated each time the information is needed, with\n"
+"  Name bound to the name for which the information is being looked up.  If "
+"the\n"
+"  default evaluates to something with the second value true, then the "
+"second\n"
+"  value of Info will also be true."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Redefine it."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Changing type number for ~A ~A."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Go for it."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Reusing type number for ~A ~A."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return the information of the specified Type and Class for Name.\n"
+"   The second value is true if there is any such information recorded.  If\n"
+"   there is no information, the first value is the default and the second "
+"value\n"
+"   is NIL."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "Set the global information for Name."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"DO-INFO (Env &Key Name Class Type Value) Form*\n"
+"  Iterate over all the values stored in the Info-Env Env.  Name is bound to\n"
+"  the entry's name, Class and Type are bound to the class and type\n"
+"  (represented as strings), and Value is bound to the entry's value."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Return a new compact info environment that holds the same information as\n"
+"  Env."
+msgstr ""
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "No info environment?"
+msgstr ""
+
+#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+msgid "Cannot modify this environment: ~S."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid "0 is not a legal INFO name."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+msgid ""
+"Clear the information of the specified Type and Class for Name in the\n"
+"  current environment, allowing any inherited info to become visible.  We\n"
+"  return true if there was any info."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"This function is to parse the declarations and doc-string out of the body "
+"of\n"
+"  a defun-like form.  Body is the list of stuff which is to be parsed.\n"
+"  Environment is ignored.  If Doc-String-Allowed is true, then a doc string\n"
+"  will be parsed out of the body and returned.  If it is false then a "
+"string\n"
+"  will terminate the search for declarations.  Three values are returned: "
+"the\n"
+"  tail of Body after the declarations and doc strings, a list of declare "
+"forms,\n"
+"  and the doc-string, or NIL if none."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "defining macro ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Disable the package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Define a compiler-macro for NAME."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:code/macros.lisp
+msgid "Symbol macro name is not a symbol: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared special: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Symbol macro name already declared constant: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Syntax like DEFMACRO, but defines a new type."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Type name not a symbol."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "defining type ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Disable package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Deftype already names a declaration: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal to redefine standard type: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Redefining class ~S to be a DEFTYPE."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Setf expander for ~S cannot be called with ~S args."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body\n"
+"  must be a form that returns the five magical values."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete, use define-setf-expander."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Defining setf macro for destruct slot accessor; redefining as ~\n"
+"\t        a normal function:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Defining setf macro for ~S, but ~S is fbound."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global constants at top level.  The DEFCONSTANT says that the\n"
+"  value is constant and may be compiled into code.  If the variable already "
+"has\n"
+"  a value, and this is not equal to the init, an error is signalled.  The "
+"third\n"
+"  argument is an optional documentation string for the variable."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Go ahead and change the value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Constant ~S being redefined."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"For defining global variables at top level.  Declares the variable\n"
+"  SPECIAL and, optionally, initializes it.  If the variable already has a\n"
+"  value, the old value is not clobbered.  The third argument is an optional\n"
+"  documentation string for the variable."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Defines a parameter that is not normally changed by the program,\n"
+"  but that may be changed without causing an error.  Declares the\n"
+"  variable special and sets its value to VAL.  The third argument is\n"
+"  an optional documentation string for the parameter."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is non-null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"First arg is a predicate.  If it is null, the rest of the forms are\n"
+"  evaluated as a PROGN."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Cond clause is not a list: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Varlist is not a list of symbols: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Evaluates FORM and returns the Nth value (zero based).  This involves no\n"
+"  consing when N is a trivial constant integer."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Returns five values needed by the SETF machinery: a list of temporary\n"
+"   variables, a list of values with which to fill them, a list of "
+"temporaries\n"
+"   for the new values, the setting function, and the accessing function."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"GET-SETF-METHOD used for a form with multiple store ~\n"
+"\t      variables:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Associates a SETF update function or macro with the specified access\n"
+"  function or macro.  The format is complex.  See the manual for\n"
+"  details."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Ill-formed DEFSETF for ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes pairs of arguments like SETQ.  The first is a place and the second\n"
+"  is the value that is supposed to go into that place.  Returns the last\n"
+"  value.  The place argument may be any of the access forms for which SETF\n"
+"  knows a corresponding setting form."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of args to SETF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"This is to SETF as PSETQ is to SETQ.  Args are alternating place\n"
+"  expressions and values to go into those places.  All of the subforms and\n"
+"  values are determined, left to right, and only then are the locations\n"
+"  updated.  Returns NIL."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of args to PSETF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"One or more SETF-style place expressions, followed by a single\n"
+"   value expression.  Evaluates all of the expressions in turn, then\n"
+"   assigns the value of each expression to the place on its left,\n"
+"   returning the value of the leftmost."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes any number of SETF-style place expressions.  Evaluates all of the\n"
+"   expressions in turn, then assigns to each place the value of the form to\n"
+"   its right.  The rightmost form gets the value of the leftmost.\n"
+"   Returns NIL."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Creates a new read-modify-write macro like PUSH or INCF."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Non-symbol &rest arg in definition of ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal stuff after &rest arg in Define-Modify-Macro."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S not allowed in Define-Modify-Macro lambda list."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Illegal stuff in lambda list of Define-Modify-Macro."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  Conses the object onto\n"
+"  the list, returning the modified list.  OBJ is evaluated before PLACE."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Takes an object and a location holding a list.  If the object is already\n"
+"  in the list, does nothing.  Else, conses the object onto the list.  "
+"Returns\n"
+"  NIL.  If there is a :TEST keyword, this is used for the comparison."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The argument is a location holding a list.  Pops one item off the front\n"
+"  of the list and returns it."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  incremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is some location holding a number. This number is\n"
+"  decremented by the second argument, DELTA, which defaults to 1."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Place may be any place expression acceptable to SETF, and is expected\n"
+"  to hold a property list or ().  This list is destructively altered to\n"
+"  remove the property specified by the indicator.  Returns T if such a\n"
+"  property was present, NIL if not."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Setf of Apply is only defined for function args like #'symbol."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this\n"
+"  place with bits from the low-order end of the new value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The first argument is a byte specifier.  The second is any place form\n"
+"  acceptable to SETF.  Replaces the specified byte of the number in this "
+"place\n"
+"  with bits from the corresponding position in the new value."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~S -- Bad clause in ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "No default clause allowed in ~S: ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "T and OTHERWISE may not be used as key designators for ~A"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Bad style to use T or OTHERWISE in ECASE or CCASE"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Supply a new value for ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value\n"
+"  of Keyform.  If a singleton key is T or Otherwise then the clause is\n"
+"  a default clause."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CCASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then a correctable error is\n"
+"  signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"ECASE Keyform {({(Key*) | Key} Form*)}*\n"
+"  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
+"  Keyform.  If none of the keys matches then an error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"TYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform\n"
+"  and Type is true.  If a singleton key is T or Otherwise then the\n"
+"  clause is a default clause."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"CTYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then a correctable error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"ETYPECASE Keyform {(Type Form*)}*\n"
+"  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
+"Type\n"
+"  is true.  If no form is satisfied then an error is signalled."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error if the value of test-form is nil.  Continuing from this\n"
+"   error using the CONTINUE restart will allow the user to alter the value "
+"of\n"
+"   some locations known to SETF, starting over with test-form.  Returns nil."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The assertion ~S failed."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Retry assertion"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid " with new value for ~{~S~^, ~}."
+msgid_plural " with new values for ~{~S~^, ~}."
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:code/macros.lisp
+msgid ""
+"The old value of ~S is ~S.~\n"
+"\t\t  ~%Do you want to supply a new value? "
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "~&Type a form to be evaluated:~%"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Signals an error of type type-error if the contents of place are not of the\n"
+"   specified type.  If an error is signaled, this can only return if\n"
+"   STORE-VALUE is invoked.  It will store into place and start over."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not ~A."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "The value of ~S is ~S, which is not of type ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Supply a new value of ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The file whose name is Filespec is opened using the Open-args and\n"
+"  bound to the variable Var. If the call to open is unsuccessful, the\n"
+"  forms are not evaluated.  The Forms are executed, and when they\n"
+"  terminate, normally or otherwise, the file is closed."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"The form stream should evaluate to a stream.  VAR is bound\n"
+"   to the stream and the forms are evaluated as an implicit\n"
+"   progn.  The stream is closed upon exit."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Binds the Var to an input stream that returns characters from String and\n"
+"  executes the body.  See manual for details."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"If STRING is specified, it must be a string with a fill pointer;\n"
+"   the output is incrementally appended to the string (as if by use of\n"
+"   VECTOR-PUSH-EXTEND)."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized in parallel to the value of "
+"the\n"
+"  specified Init form.  On subsequent iterations, the Vars are assigned the\n"
+"  value of the Step form (if any) in paralell.  The Test is evaluated "
+"before\n"
+"  each evaluation of the body Forms.  When the Test is true, the Exit-Forms\n"
+"  are evaluated as a PROGN, with the result being the value of the DO.  A "
+"block\n"
+"  named NIL is established around the entire expansion, allowing RETURN to "
+"be\n"
+"  used as an laternate exit mechanism."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
+"  Iteration construct.  Each Var is initialized sequentially (like LET*) to "
+"the\n"
+"  value of the specified Init form.  On subsequent iterations, the Vars are\n"
+"  sequentially assigned the value of the Step form (if any).  The Test is\n"
+"  evaluated before each evaluation of the body Forms.  When the Test is "
+"true,\n"
+"  the Exit-Forms are evaluated as a PROGN, with the result being the value\n"
+"  of the DO.  A block named NIL is established around the entire expansion,\n"
+"  allowing RETURN to be used as an laternate exit mechanism."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"PSETQ {var value}*\n"
+"   Set the variables to the values, like SETQ, except that assignments\n"
+"   happen in parallel, i.e. no assignments take place until all the\n"
+"   forms have been evaluated."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "variable ~S in PSETQ is not a SYMBOL"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Unknown declaration context: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"Context declaration spec should have context and at ~\n"
+"\t  least one DECLARE form:~%  ~S"
+msgstr ""
+
+#: target:code/macros.lisp
+msgid ""
+"WITH-COMPILATION-UNIT ({Key Value}*) Form*\n"
+"  This form affects compilations that take place within its dynamic extent.  "
+"It\n"
+"  is intended to be wrapped around the compilation of all files in the same\n"
+"  system.  These keywords are defined:\n"
+"    :OVERRIDE Boolean-Form\n"
+"        One of the effects of this form is to delay undefined warnings \n"
+"        until the end of the form, instead of giving them at the end of "
+"each\n"
+"        compilation.  If OVERRIDE is NIL (the default), then the outermost\n"
+"        WITH-COMPILATION-UNIT form grabs the undefined warnings.  "
+"Specifying\n"
+"        OVERRIDE true causes that form to grab any enclosed warnings, even "
+"if\n"
+"        it is enclosed by another WITH-COMPILATION-UNIT.\n"
+"    :OPTIMIZE Decl-Form\n"
+"        Decl-Form should evaluate to an OPTIMIZE declaration specifier.  "
+"This\n"
+"        declaration changes the `global' policy for compilations within the\n"
+"        body.\n"
+"    :OPTIMIZE-INTERFACE Decl-Form\n"
+"        Like OPTIMIZE, except that it specifies the value of the CMU "
+"extension\n"
+"        OPTIMIZE-INTERFACE policy (which controls argument type and syntax\n"
+"        checking.)\n"
+"    :CONTEXT-DECLARATIONS List-of-Context-Decls-Form\n"
+"        This is a CMU extension which allows compilation to be controlled\n"
+"        by pattern matching on the context in which a definition appears.  "
+"The\n"
+"        argument should evaluate to a list of lists of the form:\n"
+"            (Context-Spec Declare-Form+)\n"
+"        In the indicated context, the specified declare forms are inserted "
+"at\n"
+"        the head of each definition.  The declare forms for all contexts "
+"that\n"
+"\tmatch are appended together, with earlier declarations getting\n"
+"\tpredecence over later ones.  A simple example:\n"
+"            :context-declarations\n"
+"            '((:external (declare (optimize (safety 2)))))\n"
+"        This will cause all functions that are named by external symbols to "
+"be\n"
+"        compiled with SAFETY 2.  The full syntax of context specs is:\n"
+"\t:INTERNAL, :EXTERNAL\n"
+"\t    True if the symbols is internal (external) in its home package.\n"
+"\t:UNINTERNED\n"
+"\t    True if the symbol has no home package.\n"
+"\t:ANONYMOUS\n"
+"\t    True if the function doesn't have any interesting name (not\n"
+"\t    DEFMACRO, DEFUN, LABELS or FLET).\n"
+"\t:MACRO, :FUNCTION\n"
+"\t    :MACRO is a global (DEFMACRO) macro.  :FUNCTION is anything else.\n"
+"\t:LOCAL, :GLOBAL\n"
+"\t    :LOCAL is a LABELS or FLET.  :GLOBAL is anything else.\n"
+"\t(:OR Context-Spec*)\n"
+"\t    True in any specified context.\n"
+"\t(:AND Context-Spec*)\n"
+"\t    True only when all specs are true.\n"
+"\t(:NOT Context-Spec)\n"
+"\t    True when the spec is false.\n"
+"        (:MEMBER Name*)\n"
+"\t    True when the name is one of these names (EQUAL test.)\n"
+"\t(:MATCH Pattern*)\n"
+"\t    True when any of the patterns is a substring of the name.  The name\n"
+"\t    is wrapped with $'s, so $FOO matches names beginning with FOO,\n"
+"\t    etc."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Odd number of key/value pairs: ~S."
+msgstr ""
+
+#: target:code/macros.lisp
+msgid "Ignoring unknown option: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Policy Node Condition*\n"
+"  Test whether some conditions apply to the current compiler policy for "
+"Node.\n"
+"  Each condition is a predicate form which accesses the policy values by\n"
+"  referring to them as the variables SPEED, SPACE, SAFETY, CSPEED, BREVITY "
+"and\n"
+"  DEBUG.  The results of all the conditions are combined with AND and "
+"returned\n"
+"  as the result.\n"
+"\n"
+"  Node is a form which is evaluated to obtain the node which the policy is "
+"for.\n"
+"  If Node is NIL, then we use the current policy as defined by *default-"
+"cookie*\n"
+"  and *current-cookie*.  This option is only well defined during IR1\n"
+"  conversion."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of special forms."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n"
+"                      [Doc-String] Form*\n"
+"  Define a function that converts a Special-Form or other magical thing "
+"into\n"
+"  IR1.  Lambda-List is a defmacro style lambda list.  Start-Var and Cont-"
+"Var\n"
+"  are bound to the start and result continuations for the resulting IR1.\n"
+"  This keyword is defined:\n"
+"      Kind\n"
+"          The function kind to associate with Name (default :special-form)."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp
+#: target:compiler/ir1tran.lisp target:compiler/macros.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Source-Transform Name Lambda-List Form*\n"
+"  Define a macro-like source-to-source transformation for the function "
+"Name.\n"
+"  A source transform may \"pass\" by returning a non-nil second value.  If "
+"the\n"
+"  transform passes, then the form is converted as a normal function call.  "
+"If\n"
+"  the supplied arguments are not compatible with the specified lambda-list,\n"
+"  then the transform automatically passes.\n"
+"  \n"
+"  Source-Transforms may only be defined for functions.  Source "
+"transformation\n"
+"  is not attempted if the function is declared Notinline.  Source "
+"transforms\n"
+"  should not examine their arguments.  If it matters how the function is "
+"used,\n"
+"  then Deftransform should be used to define an IR1 transformation.\n"
+"  \n"
+"  If the desirability of the transformation depends on the current Optimize\n"
+"  parameters, then the Policy macro should be used to determine when to pass."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Primitive-Translator Name Lambda-List Form*\n"
+"  Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n"
+"  code.  Lambda-List is a defmacro style lambda list."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n"
+"               Declaration* [Doc-String] Form*\n"
+"  Define an IR1 transformation for Name.  An IR1 transformation computes a\n"
+"  lambda that replaces the function variable reference for the call.  A\n"
+"  transform may pass (decide not to transform the call) by calling the Give-"
+"Up\n"
+"  function.  Lambda-List both determines how the current call is parsed and\n"
+"  specifies the Lambda-List for the resulting lambda.\n"
+"\n"
+"  We parse the call and bind each of the lambda-list variables to the\n"
+"  continuation which represents the value of the argument.  When parsing "
+"the\n"
+"  call, we ignore the defaults, and always bind the variables for "
+"unsupplied\n"
+"  arguments to NIL.  If a required argument is missing, an unknown keyword "
+"is\n"
+"  supplied, or an argument keyword is not a constant, then the transform\n"
+"  automatically passes.  The Declarations apply to the bindings made by\n"
+"  Deftransform at transformation time, rather than to the variables of the\n"
+"  resulting lambda.  Bound-but-not-referenced warnings are suppressed for "
+"the\n"
+"  lambda-list variables.  The Doc-String is used when printing efficiency "
+"notes\n"
+"  about the defined transform.\n"
+"\n"
+"  Normally, the body evaluates to a form which becomes the body of an\n"
+"  automatically constructed lambda.  We make Lambda-List the lambda-list "
+"for\n"
+"  the lambda, and automatically insert declarations of the argument and "
+"result\n"
+"  types.  If the second value of the body is non-null, then it is a list of\n"
+"  declarations which are to be inserted at the head of the lambda.  "
+"Automatic\n"
+"  lambda generation may be inhibited by explicitly returning a lambda from "
+"the\n"
+"  body.\n"
+"\n"
+"  The Arg-Types and Result-Type are used to create a function type which "
+"the\n"
+"  call must satisfy before transformation is attempted.  The function type\n"
+"  specifier is constructed by wrapping (FUNCTION ...) around these values, "
+"so\n"
+"  the lack of a restriction may be specified by omitting the argument or\n"
+"  supplying *.  The argument syntax specified in the Arg-Types need not be "
+"the\n"
+"  same as that in the Lambda-List, but the transform will never happen if\n"
+"  the syntaxes can't be satisfied simultaneously.  If there is an existing\n"
+"  transform for the same function that has the same type, then it is "
+"replaced\n"
+"  with the new definition.\n"
+"\n"
+"  These are the legal keyword options:\n"
+"    :Result - A variable which is bound to the result continuation.\n"
+"    :Node   - A variable which is bound to the combination node for the "
+"call.\n"
+"    :Policy - A form which is supplied to the Policy macro to determine "
+"whether\n"
+"              this transformation is appropriate.  If the result is false, "
+"then\n"
+"              the transform automatically passes.\n"
+"    :Eval-Name\n"
+"    \t    - The name and argument/result types are actually forms to be\n"
+"              evaluated.  Useful for getting closures that transform "
+"similar\n"
+"              functions.\n"
+"    :Defun-Only\n"
+"            - Don't actually instantiate a transform, instead just DEFUN\n"
+"              Name with the specified transform definition function.  This "
+"may\n"
+"              be later instantiated with %Deftransform.\n"
+"    :Important\n"
+"            - If supplied and non-NIL, note this transform as "
+"``important,''\n"
+"              which means effeciency notes will be generated when this\n"
+"              transform fails even if brevity=speed (but not if "
+"brevity>speed)\n"
+"    :When {:Native | :Byte | :Both}\n"
+"            - Indicates whether this transform applies to native code,\n"
+"              byte-code or both (default :native.)"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Can't specify both DEFUN-ONLY and EVAL-NAME."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n"
+"  Declare the function Name to be a known function.  We construct a type\n"
+"  specifier for the function by wrapping (FUNCTION ...) around the Arg-"
+"Types\n"
+"  and Result-Type.  Attributes is a an unevaluated list of the boolean\n"
+"  attributes that the function has.  These attributes are meaningful here:\n"
+"      call\n"
+"         May call functions that are passed as arguments.  In order to "
+"determine\n"
+"         what other effects are present, we must find the effects of all "
+"arguments\n"
+"         that may be functions.\n"
+"        \n"
+"      unsafe\n"
+"         May incorporate arguments in the result or somehow pass them "
+"upward.\n"
+"        \n"
+"      unwind\n"
+"         May fail to return during correct execution.  Errors are O.K.\n"
+"        \n"
+"      any\n"
+"         The (default) worst case.  Includes all the other bad things, plus "
+"any\n"
+"         other possible bad thing.\n"
+"        \n"
+"      foldable\n"
+"         May be constant-folded.  The function has no side effects, but may "
+"be\n"
+"         affected by side effects on the arguments.  e.g. SVREF, MAPC.\n"
+"        \n"
+"      flushable\n"
+"         May be eliminated if value is unused.  The function has no side "
+"effects\n"
+"         except possibly CONS.  If a function is defined to signal errors, "
+"then\n"
+"         it is not flushable even if it is movable or foldable.\n"
+"        \n"
+"      movable\n"
+"         May be moved with impunity.  Has no side effects except possibly "
+"CONS,\n"
+"         and is affected only by its arguments.\n"
+"\n"
+"      predicate\n"
+"          A true predicate likely to be open-coded.  This is a hint to IR1\n"
+"\t  conversion that it should ensure calls always appear as an IF test.\n"
+"\t  Not usually specified to Defknown, since this is implementation\n"
+"\t  dependent, and is usually automatically set by the Define-VOP\n"
+"\t  :Conditional option.\n"
+"\n"
+"  Name may also be a list of names, in which case the same information is "
+"given\n"
+"  to all the names.  The keywords specify the initial values for various\n"
+"  optimizers that the function might have."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Function cannot have both good and bad attributes: ~S"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n"
+"                Declaration* Form*\n"
+"  Define some Kind of optimizer for the named Function.  Function must be a\n"
+"  known function.  Lambda-List is used to parse the arguments to the\n"
+"  combination as in Deftransform.  If the argument syntax is invalid or "
+"there\n"
+"  are non-constant keys, then we simply return NIL.\n"
+"\n"
+"  The function is DEFUN'ed as Function-Kind-OPTIMIZER.  Possible kinds are\n"
+"  DERIVE-TYPE, OPTIMIZER, LTN-ANNOTATE and IR2-CONVERT.  If a symbol is\n"
+"  specified instead of a (Function Kind) list, then we just do a DEFUN with "
+"the\n"
+"  symbol as its name, and don't do anything with the definition.  This is\n"
+"  useful for creating optimizers to be passed by name to DEFKNOWN.\n"
+"\n"
+"  If supplied, Node-Var is bound to the combination node being optimized.  "
+"If\n"
+"  additional Vars are supplied, then they are used as the rest of the "
+"optimizer\n"
+"  function's lambda-list.  LTN-ANNOTATE methods are passed an additional "
+"POLICY\n"
+"  argument, and IR2-CONVERT methods are passed an additional IR2-BLOCK\n"
+"  argument."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n"
+"  Iterate over the blocks in a component, binding Block-Var to each block "
+"in\n"
+"  turn.  The value of Ends determines whether to iterate over dummy head "
+"and\n"
+"  tail blocks:\n"
+"    NIL   -- Skip Head and Tail (the default)\n"
+"    :Head -- Do head but skip tail\n"
+"    :Tail -- Do tail but skip head\n"
+"    :Both -- Do both head and tail\n"
+"\n"
+"  If supplied, Result-Form is the value to return."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Losing Ends value: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}"
+"* {Form}*\n"
+"  Like Do-Blocks, only iterate over the blocks in reverse order."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n"
+"  Iterate over the uses of Continuation, binding Node to each one "
+"succesively."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n"
+"  Iterate over the nodes in Block, binding Node-Var to the each node and\n"
+"  Cont-Var to the node's Cont.  The only keyword option is Restart-P, which\n"
+"  causes iteration to be restarted when a node is deleted out from under us "
+"(if\n"
+"  not supplied, this is an error.)"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n"
+"  Like Do-Nodes, only iterates in reverse order."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"With-IR1-Environment Node Form*\n"
+"  Bind the IR1 context variables so that IR1 conversion can be done after "
+"the\n"
+"  main conversion pass has finished."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"LEXENV-FIND Name Slot {Key Value}*\n"
+"  Look up Name in the lexical environment namespace designated by Slot,\n"
+"  returning the <value, T>, or <NIL, NIL> if no entry.  The :TEST keyword\n"
+"  may be used to determine the name equality predicate."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "If true, defprinter print functions print each slot on a separate line."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defprinter Name Slot-Desc*\n"
+"  Define some kind of reasonable defstruct structure-print function.  Name\n"
+"  is the name of the structure.  We define a function %PRINT-name which\n"
+"  prints the slots in the structure in the way described by the Slot-Descs.\n"
+"  Each Slot-Desc can be a slot name, indicating that the slot should simply\n"
+"  be printed.  A Slot-Desc may also be a list of a slot name and other "
+"stuff.\n"
+"  The other stuff is composed of keywords followed by expressions.  The\n"
+"  expressions are evaluated with the variable which is the slot name bound\n"
+"  to the value of the slot.  These keywords are defined:\n"
+"  \n"
+"  :PRIN1    Print the value of the expression instead of the slot value.\n"
+"  :PRINC    Like :PRIN1, only princ the value\n"
+"  :TEST     Only print something if the test is true.\n"
+"  \n"
+"  If no printing thing is specified then the slot value is printed as "
+"PRIN1.\n"
+"  \n"
+"  The structure being printed is bound to Structure and the stream is bound "
+"to\n"
+"  Stream."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Losing Defprinter option: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Unknown attribute name: ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Def-Boolean-Attribute Name Attribute-Name*\n"
+"  Define a new class of boolean attributes, with the attributes havin the\n"
+"  specified Attribute-Names.  Name is the name of the class, which is used "
+"to\n"
+"  generate some macros to manipulate sets of the attributes: \n"
+"\n"
+"    NAME-attributep attributes attribute-name*\n"
+"      Return true if one of the named attributes is present, false "
+"otherwise.\n"
+"      When set with SETF, updates the place Attributes setting or clearing "
+"the\n"
+"      specified attributes.\n"
+"\n"
+"    NAME-attributes attribute-name*\n"
+"      Return a set of the named attributes."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute test function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute setter.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute creation function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the union of all the sets of boolean attributes which are its\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns the intersection of all the sets of boolean attributes which are "
+"its\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Returns true if the attributes present in Attr1 are indentical to those in\n"
+"  Attr2."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "~S is not the name of an event."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Return the number of times that Event has happened."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the function that is called when Event happens.  If this is null,\n"
+"  there is no action.  The function is passed the node to which the event\n"
+"  happened, or NIL if there is no relevant node.  This may be set with SETF."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the non-negative integer which represents the level of significance\n"
+"  of the event Name.  This is used to determine whether to print a message "
+"when\n"
+"  the event happens.  This may be set with SETF."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Defevent Name Description\n"
+"  Define a new kind of event.  Name is a symbol which names the event and\n"
+"  Description is a string which describes the event.  Level (default 0) is "
+"the\n"
+"  level of significance associated with this event; it is used to determine\n"
+"  whether to print a Note when the event happens."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"This variable is a non-negative integer specifying the lowest level of\n"
+"  event that will print a Note when it occurs."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Event Name Node\n"
+"  Note that the event with the specified Name has happened.  Node is "
+"evaluated\n"
+"  to determine the node to which the event happened."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Print a listing of events and their counts, sorted by the count.  Events\n"
+"  that happened fewer than Min-Count times will not be printed.  Stream is "
+"the\n"
+"  stream to write to."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Find Element in a null-terminated List linked by the accessor function\n"
+"  Next.  Key, Test and Test-Not are the same as for generic sequence\n"
+"  functions."
+msgstr ""
+
+#: target:compiler/debug.lisp target:compiler/pack.lisp
+#: target:compiler/represent.lisp target:compiler/copyprop.lisp
+#: target:compiler/life.lisp target:compiler/macros.lisp
+msgid "Silly to supply both :Test and :Test-Not."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Return the position of Element (or NIL if absent) in a null-terminated List\n"
+"  linked by the accessor function Next.  Key, Test and Test-Not are the same "
+"as\n"
+"  for generic sequence functions."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Map Function over the elements in a null-terminated List linked by the\n"
+"  accessor function Next, returning a list of the results."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Deletef-In Next Place Item\n"
+"  Delete Item from a null-terminated list linked by the accessor function "
+"Next\n"
+"  that is stored in Place.  Item must appear exactly once in the list."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Push Item onto a list linked by the accessor function Next that is stored "
+"in\n"
+"  Place."
+msgstr ""
+
+#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp
+#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp
+#: target:compiler/macros.lisp
+msgid "Shouldn't happen?"
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid "Redefining modular version ~S of ~S for width ~S."
+msgstr ""
+
+#: target:compiler/macros.lisp
+msgid ""
+"Lambda list keyword ~S is not supported for ~\n"
+"              modular function lambda lists."
+msgstr ""
+
+#: target:compiler/generic/vm-macs.lisp
+msgid "No more slots can follow a :rest-p slot."
+msgstr ""
+
+#: target:compiler/generic/vm-macs.lisp
+msgid ""
+"Number of slots used by each ~S~\n"
+"\t\t\t\t  ~@[~* including the header~]."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid ""
+"Machine specific support routine ~S ~\n"
+"\t\t\t\t  undefined for ~S"
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Unknown VM support routine: ~A"
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend for the machine we are running on. Do not change this."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend we are attempting to compile."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "The backend we are using to compile with."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Compute the *FEATURES* list to use with BACKEND."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
+msgstr ""
+
+#: target:compiler/backend.lisp
+msgid ""
+"Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits at the low end of a pointer used for type information."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the low tag bits from a pointer."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Number of bits used in the header word of a data block for typeing."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "Mask to extract the type from a header word."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-positive-fixnum in the target architecture."
+msgstr ""
+
+#: target:compiler/generic/objdef.lisp
+msgid "most-negative-fixnum in the target architecture."
+msgstr ""
+
+#: target:compiler/generic/interr.lisp
+msgid "Unknown internal error: ~S"
+msgstr ""
+
+#: target:compiler/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
+msgstr ""
+
+#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp
+#: target:compiler/life.lisp target:compiler/bit-util.lisp
+msgid ""
+"Argument and/or result bit arrays not the same length:~\n"
+"\t\t\t ~%  ~S~%  ~S  ~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function called with ~R argument, but wants exactly ~R."
+msgid_plural "Function called with ~R arguments, but wants exactly ~R."
+msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
+msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function called with ~R argument, but wants at least ~R."
+msgid_plural "Function called with ~R arguments, but wants at least ~R."
+msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
+msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function called with ~R argument, but wants at most ~R."
+msgid_plural "Function called with ~R arguments, but wants at most ~R."
+msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
+msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the ~:R argument is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument never returns a value."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Can't tell whether the ~:R argument is a ~\n"
+"\t\t             constant ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument (in keyword position) is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The value of ~S is not a constant"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~S is not a known argument keyword."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"\t      the keyword portion."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function previously called with ~R argument, but wants at least ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at least ~R."
+msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
+msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function previously called with ~R argument, but wants at most ~R."
+msgid_plural ""
+"Function previously called with ~R arguments, but wants at most ~R."
+msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
+msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether previous ~? argument type ~S is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with unknown argument keyword ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition's declared type for variable ~A:~%  ~S~@\n"
+"\t\t   conflicts with this type from ~A:~%  ~S"
+msgstr ""
+
+#.  Translate FIXED above appropriately.
+#: target:compiler/ctype.lisp
+msgid "fixed"
+msgstr ""
+
+#.  Translate OPTIONAL above appropriately.
+#: target:compiler/ctype.lisp
+msgid "optional"
+msgstr ""
+
+#. updated to allow better translations.
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition ~:[doesn't have~;has~] ~A, but ~\n"
+"\t\t~A ~:[doesn't~;does~]."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "keyword args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Defining a ~S keyword not present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition lacks the ~S keyword present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R ~A arg, but ~A has ~R."
+msgid_plural "Definition has ~R ~A args, but ~A has ~R."
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has no ~A, but the ~A did."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "optional args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest arg"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R arg, but the ~A has ~R."
+msgid_plural "Definition has ~R args, but the ~A has ~R."
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:compiler/ctype.lisp
+msgid "previous declaration"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"The result type from ~A:~%  ~S~@\n"
+"\t   conflicts with the definition's result type assertion:~%  ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Assignment to argument: ~S~%  ~\n"
+"\t\t\t       prevents use of assertion from function ~\n"
+"\t\t\t       type ~A:~%  ~S~%"
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined template."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage class."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid "~S is not a defined storage base."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+msgid "~S is not a defined primitive type."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-THIS-LOCATION VOP Kind\n"
+"  Note that the current code location is an interesting (to the debugger)\n"
+"  location of the specified Kind.  VOP is the VOP responsible for this "
+"code.\n"
+"  This VOP must specify some non-null :SAVE-P value (perhaps :COMPUTE-ONLY) "
+"so\n"
+"  that the live set is computed."
+msgstr ""
+
+#: target:compiler/vmdef.lisp
+msgid ""
+"NOTE-NEXT-INSTRUCTION VOP Kind\n"
+"   Similar to NOTE-THIS-LOCATION, except the use the location of the next\n"
+"   instruction for the code location, wherever the scheduler decided to put\n"
+"   it."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Base Name Kind {Key Value}*\n"
+"  Define a storage base having the specified Name.  Kind may be :Finite,\n"
+"  :Unbounded or :Non-Packed.  The following keywords are legal:\n"
+"\n"
+"  :Size <Size>\n"
+"      Specify the number of locations in a :Finite SB or the initial size of "
+"a\n"
+"      :Unbounded SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size specification meaningless in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Size not specified in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Storage-Class Name Number Storage-Base {Key Value}*\n"
+"  Define a storage class Name that uses the named Storage-Base.  Number is "
+"a\n"
+"  small, non-negative integer that is used as an alias.  The following\n"
+"  keywords are defined:\n"
+"\n"
+"  :Element-Size Size\n"
+"      The size of objects in this SC in whatever units the SB uses.  This\n"
+"      defaults to 1.\n"
+"\n"
+"  :Alignment Size\n"
+"      The alignment restrictions for this SC.  TNs will only be allocated "
+"at\n"
+"      offsets that are an even multiple of this number.  Defaults to 1.\n"
+"\n"
+"  :Locations (Location*)\n"
+"      If the SB is :Finite, then this is a list of the offsets within the "
+"SB\n"
+"      that are in this SC.\n"
+"\n"
+"  :Reserve-Locations (Location*)\n"
+"      A subset of the Locations that the register allocator should try to\n"
+"      reserve for operand loading (instead of to hold variable values.)\n"
+"\n"
+"  :Save-P {T | NIL}\n"
+"      If T, then values stored in this SC must be saved in one of the\n"
+"      non-save-p :Alternate-SCs across calls.\n"
+"\n"
+"  :Alternate-SCs (SC*)\n"
+"      Indicates other SCs that can be used to hold values from this SC "
+"across\n"
+"      calls or when storage in this SC is exhausted.  The SCs should be\n"
+"      specified in order of decreasing \"goodness\".  There must be at "
+"least\n"
+"      one SC in an unbounded SB, unless this SC is only used for restricted "
+"or\n"
+"      wired TNs.\n"
+"\n"
+"  :Constant-SCs (SC*)\n"
+"      A list of the names of all the constant SCs that can be loaded into "
+"this\n"
+"      SC by a move function."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Alignment is not a power of two: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "SC element ~D out of bounds for ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ":Locations is meaningless in a ~S SB."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Reserve-Locations not a subset of Locations."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Meaningless to specify alternate or constant SCs in a ~S SB."
+msgstr ""
+
+#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n"
+"  Define the function Name and note it as the function used for moving "
+"operands\n"
+"  from the From-SCs to the To-SCs.  Cost is the cost of this move "
+"operation.\n"
+"  The function is called with three arguments: the VOP (for context), and "
+"the\n"
+"  source and destination TNs.  An ASSEMBLE form is wrapped around the body.\n"
+"  All uses of DEFINE-MOVE-FUNCTION should be compiled before any uses of\n"
+"  DEFINE-VOP."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed SCs spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n"
+"  Make Name be the VOP used to move values in the specified From-SCs to the\n"
+"  representation of the To-SCs.  If kind is :Move-Argument, then the VOP "
+"takes\n"
+"  an extra argument, which is the frame pointer of the frame to move into."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Def-Primitive-Type Name (SC*) {Key Value}*\n"
+"   Define a primitive type Name.  Each SC specifies a Storage Class that "
+"values\n"
+"   of this type may be allocated in.  The following keyword options are\n"
+"   defined:\n"
+"  \n"
+"  :Type\n"
+"      The type descriptor for the Lisp type that is equivalent to this type\n"
+"      (defaults to Name.)"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DEF-PRIMITIVE-TYPE-ALIAS Name Result\n"
+"  Define name to be an alias for Result in VOP operand type restrictions."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Primitive-Type-VOP Vop (Kind*) Type*\n"
+"  Annotate all the specified primitive Types with the named VOP under each "
+"of\n"
+"  the specified kinds:\n"
+"\n"
+"  :Check\n"
+"      A one argument one result VOP that moves the argument to the result,\n"
+"      checking that the value is of this type in the process."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown kind: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Operand ~S isn't one of these kinds: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not an operand to ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~S is not the name of a defined VOP."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument missing: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Extra junk at end of ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "~:R argument is not a ~S: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed time specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown phase in time specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot target a ~S operand: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to ~:[save~;load~] SC ~S~\n"
+"\t\t\t  ~:[to~;from~] from SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't tell whether to ~:[save~;load~] with ~S~@\n"
+"\t\t\t\t or ~S when operand is in SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n"
+"\t          mentioned in the restriction for operand ~S."
+msgstr ""
+
+#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed operand specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "More operand isn't last: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :FROM in a result: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can only specify :TO in an argument: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown keyword in operand specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :TARGET in a :MORE operand."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot specify :LOAD-IF in a :MORE operand."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed temporary spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed options list: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Odd number of arguments in keyword options: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary spec allocates no temps:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad temporary name: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specify exactly one SC for a temporary."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown temporary option: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Temporary lifetime doesn't begin before it ends: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Must specifiy :SC for all temporaries: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Malformed option specification: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown option specifier: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"No move function defined to move ~:[from~;to~] SC ~\n"
+"\t              ~S~%~:[to~;from~] alternate or constant SC ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad thing to be a operand type: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad PRIMITIVE-TYPE name in ~S: ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Can't include primitive-type ~\n"
+"\t\t\t\t             alias ~S in a :OR restriction: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't :CONSTANT for a result."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Bad :CONSTANT argument type spec: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"In the ~A ~:[result~;argument~] to VOP ~S,~@\n"
+"\t            none of the SCs allowed by the operand type ~S can ~\n"
+"\t\t    directly be loaded~@\n"
+"\t\t    into any of the restriction's SCs:~%  ~S~:[~;~@\n"
+"\t\t    [* type operand must allow T's SCs.]~]"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"~:[Result~;Argument~] ~A to VOP ~S~@\n"
+"\t         has SC restriction ~S which is ~\n"
+"\t\t not allowed by the operand type:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Can't use :CONSTANT on VOP more args."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D ~:[result~;argument~] type: ~S."
+msgid_plural "Expected ~D ~:[result~;argument~] types: ~S."
+msgstr[0] ""
+msgstr[1] ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D variant values: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Define-VOP (Name [Inherits]) Spec*\n"
+"  Define the symbol Name to be a Virtual OPeration in the compiler.  If\n"
+"  specified, Inherits is the name of a VOP that we default unspecified\n"
+"  information from.  Each Spec is a list beginning with a keyword "
+"indicating\n"
+"  the interpretation of the other forms in the Spec:\n"
+"  \n"
+"  :Args {(Name {Key Value}*)}*\n"
+"  :Results {(Name {Key Value}*)}*\n"
+"      The Args and Results are specifications of the operand TNs passed to "
+"the\n"
+"      VOP.  If there is an inherited VOP, any unspecified options are "
+"defaulted\n"
+"      from the inherited argument (or result) of the same name.  The "
+"following\n"
+"      operand options are defined: \n"
+"\n"
+"      :SCs (SC*)\n"
+"\t  :SCs specifies good SCs for this operand.  Other SCs will be\n"
+"\t  penalized according to move costs.  A load TN will be allocated if\n"
+"\t  necessary, guaranteeing that the operand is always one of the\n"
+"\t  specified SCs.\n"
+"\n"
+"      :Load-TN Load-Name\n"
+"          Load-Name is bound to the load TN allocated for this operand, or "
+"to\n"
+"\t  NIL if no load TN was allocated.\n"
+"\n"
+"      :Load-If Expression\n"
+"          Controls whether automatic operand loading is done.  Expression "
+"is\n"
+"\t  evaluated with the fixed operand TNs bound.  If Expression is true,\n"
+"\t  then loading is done and the variable is bound to the load TN in\n"
+"\t  the generator body.  Otherwise, loading is not done, and the variable\n"
+"\t  is bound to the actual operand.\n"
+"\n"
+"      :More T-or-NIL\n"
+"\t  If specified, Name is bound to the TN-Ref for the first argument or\n"
+"\t  result following the fixed arguments or results.  A more operand must\n"
+"\t  appear last, and cannot be targeted or restricted.\n"
+"\n"
+"      :Target Operand\n"
+"\t  This operand is targeted to the named operand, indicating a desire to\n"
+"\t  pack in the same location.  Not legal for results.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"\t  Specify the beginning or end of the operand's lifetime.  :From can\n"
+"\t  only be used with results, and :To only with arguments.  The default\n"
+"\t  for the N'th argument/result is (:ARGUMENT N)/(:RESULT N).  These\n"
+"\t  options are necessary primarily when operands are read or written out\n"
+"\t  of order.\n"
+"   \n"
+"  :Conditional\n"
+"      This is used in place of :RESULTS with conditional branch VOPs.  "
+"There\n"
+"      are no result values: the result is a transfer of control.  The "
+"target\n"
+"      label is passed as the first :INFO arg.  The second :INFO arg is true "
+"if\n"
+"      the sense of the test should be negated.  A side-effect is to set the\n"
+"      PREDICATE attribute for functions in the :TRANSLATE option.\n"
+"  \n"
+"  :Temporary ({Key Value}*) Name*\n"
+"      Allocate a temporary TN for each Name, binding that variable to the "
+"TN\n"
+"      within the body of the generators.  In addition to :Target (which is \n"
+"      is the same as for operands), the following options are\n"
+"      defined:\n"
+"\n"
+"      :SC SC-Name\n"
+"      :Offset SB-Offset\n"
+"\t  Force the temporary to be allocated in the specified SC with the\n"
+"\t  specified offset.  Offset is evaluated at macroexpand time.  If\n"
+"\t  Offset is emitted, the register allocator chooses a free location in\n"
+"\t  SC.  If both SC and Offset are omitted, then the temporary is packed\n"
+"\t  according to its primitive type.\n"
+"\n"
+"      :From Time-Spec\n"
+"      :To Time-Spec\n"
+"\t  Similar to the argument/result option, this specifies the start and\n"
+"\t  end of the temporarys' lives.  The defaults are :Load and :Save, i.e.\n"
+"\t  the duration of the VOP.  The other intervening phases are :Argument,\n"
+"\t  :Eval and :Result.  Non-zero sub-phases can be specified by a list,\n"
+"\t  e.g. by default the second argument's life ends at (:Argument 1).\n"
+" \n"
+"  :Generator Cost Form*\n"
+"      Specifies the translation into assembly code. Cost is the estimated "
+"cost\n"
+"      of the code emitted by this generator. The body is arbitrary Lisp "
+"code\n"
+"      that emits the assembly language translation of the VOP.  An Assemble\n"
+"      form is wrapped around the body, so code may be emitted by using the\n"
+"      local Inst macro.  During the evaluation of the body, the names of "
+"the\n"
+"      operands and temporaries are bound to the actual TNs.\n"
+"  \n"
+"  :Effects Effect*\n"
+"  :Affected Effect*\n"
+"      Specifies the side effects that this VOP has and the side effects "
+"that\n"
+"      effect its execution.  If unspecified, these default to the worst "
+"case.\n"
+"  \n"
+"  :Info Name*\n"
+"      Define some magic arguments that are passed directly to the code\n"
+"      generator.  The corresponding trailing arguments to VOP or %Primitive "
+"are\n"
+"      stored in the VOP structure.  Within the body of the generators, the\n"
+"      named variables are bound to these values.  Except in the case of\n"
+"      :Conditional VOPs, :Info arguments cannot be specified for VOPS that "
+"are\n"
+"      the direct translation for a function (specified by :Translate).\n"
+"\n"
+"  :Ignore Name*\n"
+"      Causes the named variables to be declared IGNORE in the generator "
+"body.\n"
+"\n"
+"  :Variant Thing*\n"
+"  :Variant-Vars Name*\n"
+"      These options provide a way to parameterize families of VOPs that "
+"differ\n"
+"      only trivially.  :Variant makes the specified evaluated Things be the\n"
+"      \"variant\" associated with this VOP.  :Variant-Vars causes the named\n"
+"      variables to be bound to the corresponding Things within the body of "
+"the\n"
+"      generator.\n"
+"\n"
+"  :Variant-Cost Cost\n"
+"      Specifies the cost of this VOP, overriding the cost of any inherited\n"
+"      generator.\n"
+"\n"
+"  :Note {String | NIL}\n"
+"      A short noun-like phrase describing what this VOP \"does\", i.e. the\n"
+"      implementation strategy.  If supplied, efficency notes will be "
+"generated\n"
+"      when type uncertainty prevents :TRANSLATE from working.  NIL inhibits "
+"any\n"
+"      efficency note.\n"
+"\n"
+"  :Arg-Types    {* | PType | (:OR PType*) | (:CONSTANT Type)}*\n"
+"  :Result-Types {* | PType | (:OR PType*)}*\n"
+"      Specify the template type restrictions used for automatic "
+"translation.\n"
+"      If there is a :More operand, the last type is the more type.  :"
+"CONSTANT\n"
+"      specifies that the argument must be a compile-time constant of the\n"
+"      specified Lisp type.  The constant values of :CONSTANT arguments are\n"
+"      passed as additional :INFO arguments rather than as :ARGS.\n"
+"  \n"
+"  :Translate Name*\n"
+"      This option causes the VOP template to be entered as an IR2 "
+"translation\n"
+"      for the named functions.\n"
+"\n"
+"  :Policy {:Small | :Fast | :Safe | :Fast-Safe}\n"
+"      Specifies the policy under which this VOP is the best translation.\n"
+"\n"
+"  :Guard Form\n"
+"      Specifies a Form that is evaluated in the global environment.  If\n"
+"      form returns NIL, then emission of this VOP is prohibited even when\n"
+"      all other restrictions are met.\n"
+"\n"
+"  :VOP-Var Name\n"
+"  :Node-Var Name\n"
+"      In the generator, bind the specified variable to the VOP or the Node "
+"that\n"
+"      generated this VOP.\n"
+"\n"
+"  :Save-P {NIL | T | :Compute-Only | :Force-To-Stack}\n"
+"      Indicates how a VOP wants live registers saved.\n"
+"\n"
+"  :Move-Args {NIL | :Full-Call | :Local-Call | :Known-Return}\n"
+"      Indicates if and how the more args should be moved into a different\n"
+"      frame."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Emit-Template Node Block Template Args Results [Info]\n"
+"  Call the emit function for Template, linking the result in at the end of\n"
+"  Block."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP Name Node Block Arg* Info* Result*\n"
+"  Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n"
+"  using Node for the source context.  The interpretation of the remaining\n"
+"  arguments depends on the number of operands of various kinds that are\n"
+"  declared in the template definition.  VOP cannot be used for templates "
+"that\n"
+"  have more-args or more-results, since the number of arguments and results "
+"is\n"
+"  indeterminate for these templates.  Use VOP* instead.\n"
+"  \n"
+"  Args and Results are the TNs that are to be referenced by the template\n"
+"  as arguments and results.  If the template has codegen-info arguments, "
+"then\n"
+"  the appropriate number of Info forms following the Arguments are used for\n"
+"  codegen info."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Cannot use VOP with variable operand count templates."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Called with ~D operands, but was expecting ~D."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n"
+"  Like VOP, but allows for emission of templates with arbitrary numbers of\n"
+"  arguments, and for emission of templates using already-created TN-Ref "
+"lists.\n"
+"\n"
+"  The Arguments and Results are TNs to be referenced as the first arguments\n"
+"  and results to the template.  More-Args and More-Results are heads of TN-"
+"Ref\n"
+"  lists that are added onto the end of the TN-Refs for the explicitly "
+"supplied\n"
+"  operand TNs.  The TN-Refs for the more operands must have the TN and Write-"
+"P\n"
+"  slots correctly initialized.\n"
+"\n"
+"  As with VOP, the Info forms are evaluated and passed as codegen info\n"
+"  arguments."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed arguments."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Too many fixed results."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Expected ~D info args."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n"
+"  Case off of TN's SC.  The first clause containing TN's SC is evaulated,\n"
+"  returning the values of the last form.  A clause beginning with T "
+"specifies a\n"
+"  default.  If it appears, it must be last.  If no default is specified, and "
+"no\n"
+"  clause matches, then an error is signalled."
+msgstr ""
+
+#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp
+#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp
+#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp
+#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp
+#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp
+#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp
+#: target:compiler/meta-vmdef.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "Illegal SC-Case clause: ~S."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid "T case is not last in SC-Case."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"SC-Is TN SC*\n"
+"  Returns true if TNs SC is any of the named SCs, false otherwise."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"Do-IR2-Blocks (Block-Var Component [Result]) Form*\n"
+"  Iterate over the IR2 blocks in component, in emission order."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n"
+"  Iterate over all the TNs live at some point, with the live set represented "
+"by\n"
+"  a local conflicts bit-vector and the IR2-Block containing the location."
+msgstr ""
+
+#: target:compiler/meta-vmdef.lisp
+msgid ""
+"DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n"
+"  Iterate over all the IR2 blocks in the environment Env, in emit order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"The width of the column in which instruction-names are printed.\n"
+"  NIL means use the default.  A value of zero gives the effect of not\n"
+"  aligning the arguments at all."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The column in which end-of-line comments for notes are started."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Specify global disassembler params for C:*TARGET-BACKEND*.\n"
+"  Keyword arguments include:\n"
+"      \n"
+"  :INSTRUCTION-ALIGNMENT number\n"
+"      Minimum alignment of instructions, in bits.\n"
+"      \n"
+"  :ADDRESS-SIZE number\n"
+"      Size of a machine address, in bits.\n"
+"      \n"
+"  :OPCODE-COLUMN-WIDTH\n"
+"      Width of the column used for printing the opcode portion of the\n"
+"      instruction, or NIL to use the default."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
+"  Define a disassembler argument type NAME (which can then be referenced in\n"
+"  another argument definition using the :TYPE keyword argument).  Keyword\n"
+"  arguments are:\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction- format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-"
+"SUFFIX\n"
+"      must be done inside a prefilter.\n"
+"      \n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print an argument of\n"
+"      this type.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of an argument of this type is used as an\n"
+"      address, and if that address occurs inside the disassembled code, it "
+"is\n"
+"      replaced by a label.  If this is a function, it is called to filter "
+"the\n"
+"      value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
+"  Define an instruction format NAME for the disassembler's use.  LENGTH is\n"
+"  the length of the format in bits.\n"
+"  Possible FORMAT-KEYs:\n"
+"\n"
+"  :INCLUDE other-format-name\n"
+"      Inherit all arguments and properties of the given format.  Any\n"
+"      arguments defined in the current format definition will either modify\n"
+"      the copy of an existing argument (keeping in the same order with\n"
+"      respect to when pre-filter's are called), if it has the same name as\n"
+"      one, or be added to the end.\n"
+"  :DEFAULT-PRINTER printer-list\n"
+"      Use the given PRINTER-LIST as a format to print any instructions of\n"
+"      this format when they don't specify something else.\n"
+"\n"
+"  Each ARG-DEF defines one argument in the format, and is of the form\n"
+"    (Arg-Name {Arg-Key Value}*)\n"
+"\n"
+"  Possible ARG-KEYs (the values are evaulated unless otherwise specified):\n"
+"  \n"
+"  :FIELDS byte-spec-list\n"
+"      The argument takes values from these fields in the instruction.  If\n"
+"      the list is of length one, then the corresponding value is supplied "
+"by\n"
+"      itself; otherwise it is a list of the values.  The list may be NIL.\n"
+"  :FIELD byte-spec\n"
+"      The same as :FIELDS (list byte-spec).\n"
+"\n"
+"  :VALUE value\n"
+"      If the argument only has one field, this is the value it should have,\n"
+"      otherwise it's a list of the values of the individual fields.  This "
+"can\n"
+"      be overridden in an instruction-definition or a format definition\n"
+"      including this one by specifying another, or NIL to indicate that "
+"it's\n"
+"      variable.\n"
+"\n"
+"  :SIGN-EXTEND boolean\n"
+"      If non-NIL, the raw value of this argument is sign-extended,\n"
+"      immediately after being extracted from the instruction (before any\n"
+"      prefilters are run, for instance).  If the argument has multiple\n"
+"      fields, they are all sign-extended.\n"
+"\n"
+"  :TYPE arg-type-name\n"
+"      Inherit any properties of the given argument-type.\n"
+"\n"
+"  :PREFILTER function\n"
+"      A function which is called (along with all other prefilters, in the\n"
+"      order that their arguments appear in the instruction-format) before\n"
+"      any printing is done, to filter the raw value.  Any uses of READ-"
+"SUFFIX\n"
+"      must be done inside a prefilter.\n"
+"\n"
+"  :PRINTER function-string-or-vector\n"
+"      A function, string, or vector which is used to print this argument.\n"
+"      \n"
+"  :USE-LABEL \n"
+"      If non-NIL, the value of this argument is used as an address, and if\n"
+"      that address occurs inside the disassembled code, it is replaced by a\n"
+"      label.  If this is a function, it is called to filter the value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~d bits is not a byte-multiple"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
+"  OLD-CONS, otherwise return (cons CAR CDR)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"A simple (one list arg) mapcar that avoids consing up a new list\n"
+"  as long as the results of calling FUN on the elements of LIST are\n"
+"  eq to the original."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't dump functions, so function ref form must be quoted: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s must not have multiple values"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown arg-form kind ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Cannot label a multiple-field argument ~\n"
+"\t\t\t      unless using a function: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus!  Can't use the :printed value of an arg!"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"number of constants doesn't match number of fields ~\n"
+"\t\t\t  in: (~s :constant~{ ~s~})"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Can't compare differently sized fields: ~\n"
+"\t\t          (~s :same-as ~s)"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus test-form: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Illegal printer: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown printer element: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "First arg to :USING must be a string or #'function"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No suitable choice found in ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a version of the disassembly-template PRINTER with compile-time\n"
+"  tests (e.g. :constant without a value), and any :CHOOSE operators "
+"resolved\n"
+"  properly for the args ARGS.  (:CHOOSE Sub*) simply returns the first Sub "
+"in\n"
+"  which every field reference refers to a valid arg."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Using cached function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Making new function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument type: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"          Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s:  ~3i~:_~\n"
+"\t\t\t\t     Field ~s doesn't fit in an ~\n"
+"\t\t\t\t     instruction-format ~d bits wide.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to specify global disassembler params.  See the\n"
+"  documentation for SET-DISASSEM-PARAMS for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define a disassembler argument type.  See\n"
+"  DEFINE-ARGUMENT-TYPE for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define an instruction format.  See\n"
+"  DEFINE-INSTRUCTION-FORMAT for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Field ~s in arg ~s overlaps some other field"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown instruction format ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
+"  GENERAL (i.e., the same instruction, but with more constraints)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an integer corresponding to the specifivity of the instruction INST."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Order the list of instructions INSTS with more specific (more constant\n"
+"  bits, or same-as argument constains) ones first.  Returns the ordered list."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Instructions either aren't related or conflict in some way:~% ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a list of instructions INSTS, Sees if one of these instructions is a\n"
+"  more general form of all the others, in which case they are put into its\n"
+"  specializers list, and it is returned.  Otherwise an error is signaled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Multiple specializing masters: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
+"  most specific instruction on INST's specializer list who's constraints "
+"are\n"
+"  met by CHUNK.  If none do, then INST is returned."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the instruction object within INST-SPACE corresponding to the\n"
+"  bit-pattern CHUNK, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an instruction-space object corresponding to the list of\n"
+"  instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, "
+"only\n"
+"  bits it has set are used."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Prints a nicely formatted version of INST-SPACE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Print the inst space for the specified backend"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a word-offset NUM to a byte-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a byte-offset NUM to a word-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the value of the property called NAME in DSTATE.  Also setf'able."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the current instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the next instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Offset of FUNCTION from the start of its code-component's instruction area."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Offset of FUNCTION from the start of its code-component."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the length of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the address of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first function in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Possible ~A header word"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the function-header (entry-point) pseudo-instruction at the current\n"
+"  location in DSTATE to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Iterate through the instructions in SEGMENT, calling FUNCTION\n"
+"  for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Make an initial non-printing disassembly pass through DSTATE, noting any\n"
+"  addresses that are referenced by instructions in this segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If any labels in DSTATE have been added since the last call to this\n"
+"  function, give them label-numbers, enter them in the hash-table, and make\n"
+"  sure the label list is in sorted order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the instruction-space from PARAMS, creating it if necessary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the current address in DSTATE to STREAM, plus any labels that\n"
+"  correspond to it, and leave the cursor in the instruction column."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
+"  end-of-line comments.  If there is more than one note, a separate line\n"
+"  will be used for each one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Make a disassembler-state object."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a memory segment located at the system-area-pointer returned by\n"
+"  SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
+"  Optional keyword arguments include :VIRTUAL-LOCATION (by default the same "
+"as\n"
+"  the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache\n"
+"  object), and :HOOKS (a list of offs-hook objects)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The source file ~s no longer seems to exist"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No start positions map"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Source file ~s has been modified; ~@\n"
+"\t\t\t\t\t Using form offset instead of file index"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Bogus form-number in form!  The source file has probably ~@\n"
+"\t\t  been changed too much to cope with"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the vector of debug-variables currently associated with DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given the OFFSET of a location within the location-group called LG-NAME,\n"
+"  see if there's a current mapping to a source variable in DSTATE, and if "
+"so,\n"
+"  return the offset of that variable in the current debug-variable vector."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a new vector which has the same contents as the old one VEC, plus\n"
+"  new cells (for a total size of NEW-LEN).  The additional elements are\n"
+"  initailized to INITIAL-ELEMENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a STORAGE-INFO struction describing the object-to-source\n"
+"  variable mappings from DEBUG-FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; At offset ~d: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; SET: ~s[~d]~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Add hooks to track to track the source code in SEGMENT during\n"
+"  disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
+"  structure, in which case it is used to cache forms from files."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No-arg-parsing entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the PC of FUNCTION's header."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "If non-NIL, disassemble flets/labels too"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+"  instructions for the code-component CODE.  If START-OFFS and/or LENGTH is\n"
+"  supplied, only that part of the code-segment is used (but these are\n"
+"  constrained to lie within the code-segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return the address of the instructions for function and its length.\n"
+"  The length is computed using a heuristic, and so may not be accurate."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values:  the amount by which the last instruction in the\n"
+"  segment goes past the end of the segment, and the offset of the end of "
+"the\n"
+"  segment from the beginning of that instruction.  If all instructions fit\n"
+"  perfectly, this will return 0 and 0."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Computes labels for all the memory segments in SEGLIST and adds them to\n"
+"  DSTATE.  It's important to call this function with all the segments "
+"you're\n"
+"  interested in, so it can find references from one to another."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions in each memory segment in\n"
+"  SEGMENTS in turn to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Cannot compile a lexical closure"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't make a compiled function from ~S"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code associated with OBJECT, which can be a\n"
+"  function, a lambda expression, or a symbol with a function definition.  "
+"If\n"
+"  it is not already compiled, the compiler is called to produce something "
+"to\n"
+"  disassemble."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
+"  Note that if CODE-COMPONENT is NIL and this memory could move during a "
+"GC,\n"
+"  you'd better disable it around the call to this function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid " Address ~x not in the code component ~s."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  CODE-COMPONENT (this may include multiple entry points)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+"  ASSEM-SEGMENT (of type new-assem:segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
+"symbol object that we know about."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given ADDRESS, try and figure out if which slot of which symbol is being\n"
+"  refered to.  Of course we can just give up, so it's not a big deal...\n"
+"  Returns two values, the symbol and the name of the access function of the\n"
+"  slot."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
+"  symbol is being refered to.  Of course we can just give up, so it's not a "
+"big\n"
+"  deal...  Returns two values, the symbol and the access function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the lisp object located BYTE-OFFSET from NIL."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
+"  area of the code-object in the current segment and T, or NIL and NIL if\n"
+"  there is no code-object in the current segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Build an address-name hash-table from the name-address hash"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the name of the primitive lisp assembler routine or foreign\n"
+"  symbol located at ADDRESS, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store NOTE (which can be either a string or a function with a single\n"
+"  stream argument) to be printed as an end-of-line comment after the "
+"current\n"
+"  instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located at ADDR in the\n"
+"  current code-component, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid slot in a symbol, store a note describing which symbol and "
+"slot,\n"
+"  to be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+"  is a valid lisp object, store a note describing which symbol and slot, to\n"
+"  be printed as an end-of-line comment after the current instruction is\n"
+"  disassembled.  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If ADDRESS is the address of a primitive assembler routine or\n"
+"  foreign symbol, store a note describing which one, to be printed as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded.  If NOTE-ADDRESS-P is non-NIL, a\n"
+"  note of the address is also made."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
+"  describing which one, to be printed as an end-of-line comment after\n"
+"  the current instruction is disassembled.  Returns non-NIL iff a note\n"
+"  was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
+"  source variable, make a note of the source-variable name, to be printed "
+"as\n"
+"  an end-of-line comment after the current instruction is disassembled.\n"
+"  Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
+"  to a source variable, make a note equating ASSOC-WITH with the\n"
+"  source-variable name, to be printed as an end-of-line comment after the\n"
+"  current instruction is disassembled.  Returns non-NIL iff a note was\n"
+"  recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"When called from an error break instruction's :DISASSEM-CONTROL (or\n"
+"  :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
+"  arguments to the break.\n"
+"\n"
+"  ERROR-PARSE-FUN should be a function that accepts:\n"
+"    1) a SYSTEM-AREA-POINTER\n"
+"    2) a BYTE-OFFSET from the SAP to begin at\n"
+"    3) optionally, LENGTH-ONLY, which if non-NIL, means to only return\n"
+"       the byte length of the arguments (to avoid unnecessary consing)\n"
+"  It should read information from the SAP starting at BYTE-OFFSET, and "
+"return\n"
+"  four values:\n"
+"    1) the error number\n"
+"    2) the total length, in bytes, of the information\n"
+"    3) a list of SC-OFFSETs of the locations of the error parameters\n"
+"    4) a list of the length (as read from the SAP), in bytes, of each of "
+"the\n"
+"       return-values."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Set up the assembler."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Execute BODY (as a progn) without scheduling any of the instructions\n"
+"   generated inside it.  DO NOT throw or return-from out of it."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S reads ~S[~D for ~D]~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&~S writes ~S[~D for ~D]~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&Queuing ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "  reads ~S~%  writes ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~&Scheduling pending instructions...~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Flushing ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Queued branches: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Initially emittable: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Initially delayed: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Filling branch delay slot with ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emitting a NOP.~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Now emittable: ~S~%"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit BYTE to SEGMENT."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Output AMOUNT zeros (in bytes) to SEGMENT."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Attempt to emit ~S for the second time."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream has to be back-patched when label "
+"positions\n"
+"   are finally known.  SIZE bytes are reserved in SEGMENT, and function "
+"will\n"
+"   be called with two arguments: the segment and the position.  The "
+"function\n"
+"   should look at the position and the position of any labels it wants to\n"
+"   and emit the correct sequence.  (And it better be the same size as "
+"SIZE).\n"
+"   SIZE can be zero, which is useful if you just want to find out where "
+"things\n"
+"   ended up."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Note that the instruction stream here depends on the actual positions of\n"
+"   various labels, so can't be output until label positions are known.  "
+"Space\n"
+"   is made in SEGMENT for at least SIZE bytes.  When all output has been\n"
+"   generated, the MAYBE-SHRINK functions for all choosers are called with\n"
+"   three arguments: the segment, the position, and a magic value.  The "
+"MAYBE-\n"
+"   SHRINK decides if it can use a shorter sequence, and if so, emits that\n"
+"   sequence to the segment and returns T.  If it can't do better than the\n"
+"   worst case, it should return NIL (without emitting anything).  When "
+"calling\n"
+"   LABEL-POSITION, it should pass it the position and the magic-value it "
+"was\n"
+"   passed so that LABEL-POSITION can return the correct result.  If the "
+"chooser\n"
+"   never decides to use a shorter sequence, the WORST-CASE-FUN will be "
+"called,\n"
+"   just like a BACK-PATCH.  (See EMIT-BACK-PATCH.)"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's max was ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"~S shrunk by ~D bytes, but claimed that it ~\n"
+"\t\t\t    preserve ~D bits of alignment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Chooser ~S passed, but not before emitting ~D bytes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Alignment ~S needs more space now?  It was ~D, ~\n"
+"\t\t\t    and is ~D now."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~S emitted ~D bytes, but claimed it's was ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Execute BODY (as a progn) with SEGMENT as the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Duplicate nested labels: ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit the specified instruction to the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Unknown instruction: ~S"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit LABEL at this location in the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Emit an alignment restriction to the current segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Return the current position for LABEL.  Chooser maybe-shrink functions\n"
+"   should supply IF-AFTER and DELTA to assure correct results."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT\n"
+"   for anything after this."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Does any final processing of SEGMENT and returns the total number of bytes\n"
+"   covered by this segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called\n"
+"   zero or more times with two arguments: a SAP and a number of bytes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Releases any output buffers held on to by segment."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "~D isn't an even multiple of ~D"
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid ""
+"Byte spec ~S either overlaps another byte spec, or ~\n"
+"\t\t    extends past the end."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "There are holes."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify one emitter per instruction."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify delay once per instruction."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "Can only specify :vop-var once."
+msgstr ""
+
+#: target:compiler/new-assem.lisp
+msgid "You can't use INST without an ASSEMBLE inside emitters."
+msgstr ""
+
+#: target:compiler/alloc.lisp
+msgid ""
+"defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
+"                   (deinit-form*)\n"
+"\t\t   (reinit-form*))}*"
+msgstr ""
+
+#: target:compiler/alloc.lisp
+msgid "~S already deallocated!"
+msgstr ""
+
+#: target:compiler/knownfun.lisp
+msgid "optimize"
+msgstr ""
+
+#: target:compiler/knownfun.lisp
+msgid "~S is not a known function."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Block-Compile argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default value for the :Byte-Compile argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-"
+"level\n"
+"   forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE\n"
+"   (the default.)  When true, we decide to byte-compile."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Whether loop analysis should be done or not."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Whether the compiler should record cross-reference information."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :VERBOSE argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :PRINT argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "The default for the :PROGRESS argument to COMPILE-FILE."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The defaulted pathname of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The TRUENAME of the file currently being compiled, or NIL if not\n"
+"  compiling."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The user supplied source-info for the current compilation.  \n"
+"This is the :source-info argument to COMPILE-FROM-STREAM and will be\n"
+"stored in the INFO slot of the DEBUG-SOURCE in code components and \n"
+"in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The upper limit on the number of times that we will consecutively do IR1\n"
+"  optimization that doesn't introduce any new code.  A finite limit is\n"
+"  necessary, since type inference may take arbitrarily long to converge."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~|~%Disassembly of code for ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~:[~;Byte ~]Compiling ~A: "
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Undefined ~(~A~) ~S~@[ ~A~]"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~D more use~:P of undefined ~(~A~) ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n"
+"\t\t~%  ~{~<~%  ~1:;~S~>~^ ~}"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"~2&; Compilation unit ~:[finished~;aborted~].~\n"
+"      ~[~:;~:*~&;   ~D fatal error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D error~:P~]~\n"
+"      ~[~:;~:*~&;   ~D warning~:P~]~\n"
+"      ~[~:;~:*~&;   ~D note~:P~]~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~|~%;;;; Component: ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~%~|~%;;;; IR2 component: ~S~2%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Entries:~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~4TL~D: ~S~:[~; [Closure]~]~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Read error at ~D:~% \"~A/\\~A\"~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Unable to recover from read error."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+#, fuzzy
+msgid "Skip this form."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/main.lisp
+msgid "Attempt to load a file having a compile-time read error."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "(during macroexpansion)~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Bad FILE-COMMENT form: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Ignoring extra file comment:~%  ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~&; Comment: ~A~2&"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+msgid "Execution of a form compiled with errors:~% ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "EVAL-WHEN form is too short: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "MACROLET form is too short: ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Load Time Value of ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "(while making load form for ~S)~%~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Creation Form for ~A"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Circular references in creation form for ~S"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Init Form~:[~;s~] for ~{~A~^, ~}"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&Fatal error, aborting compilation...~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't compile with no source files."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Similar to COMPILE-FILE, but compiles text from Stream into the current "
+"lisp\n"
+"  environment.  Stream is closed when compilation is complete.  These "
+"keywords\n"
+"  are supported:\n"
+"\n"
+"  :Error-Stream\n"
+"      The stream to write compiler error output to (default *ERROR-"
+"OUTPUT*.)\n"
+"  :Trace-Stream\n"
+"      The stream that we write compiler trace output to, or NIL (the "
+"default)\n"
+"      to inhibit trace output.\n"
+"  :Block-Compile {T, NIL, :SPECIFIED}\n"
+"        If true, then function names may be resolved at compile time.\n"
+"  :Source-Info\n"
+"        Some object to be placed in the DEBUG-SOURCE-INFO.\n"
+"  :Byte-Compile {T, NIL, :MAYBE}\n"
+"        If true, then may compile to interpreted byte code."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&; Python version ~A, VM version ~A on ~A.~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "; Compiling: ~A ~A~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles Source, producing a corresponding .FASL file.  Source may be a "
+"list\n"
+"   of files, in which case the files are compiled as a unit, producing a "
+"single\n"
+"   .FASL file.  The output file names are defaulted from the first (or "
+"only)\n"
+"   input file name.  Other options available via keywords:\n"
+"   :Output-File\n"
+"      The name of the fasl to output, NIL for none, T for the default.\n"
+"   :Error-File\n"
+"      The name of the error listing file, NIL for none (the default), T for\n"
+"      .err.\n"
+"   :Trace-File\n"
+"      If specified, internal data structures are dumped to this file.  T "
+"for\n"
+"      the .trace default.\n"
+"   :Error-Output\n"
+"      If a stream, then error output is sent there as well as to the "
+"listing\n"
+"      file.  NIL suppresses this additional error output.  The default is "
+"T,\n"
+"      which means use *ERROR-OUTPUT*.\n"
+"   :Block-Compile {NIL | :SPECIFIED | T}\n"
+"      Determines whether multiple functions are compiled together as a "
+"unit,\n"
+"      resolving function references at compile time.  NIL means that global\n"
+"      function names are never resolved at compilation time.  :SPECIFIED "
+"means\n"
+"      that names are resolved at compile-time when convenient (as in a\n"
+"      self-recursive call), but the compiler doesn't combine top-level "
+"DEFUNs.\n"
+"      With :SPECIFIED, an explicit START-BLOCK declaration will enable "
+"block\n"
+"      compilation.  A value of T indicates that all forms in the file(s) "
+"should\n"
+"      be compiled as a unit.  The default is the value of\n"
+"      EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED.\n"
+"   :Entry-Points\n"
+"      This specifies a list of function names for functions in the file(s) "
+"that\n"
+"      must be given global definitions.  This only applies to block\n"
+"      compilation, and is useful mainly when :BLOCK-COMPILE T is specified "
+"on a\n"
+"      file that lacks START-BLOCK declarations.  If the value is NIL (the\n"
+"      default) then all functions will be globally defined.\n"
+"   :Byte-Compile {T | NIL | :MAYBE}\n"
+"      Determines whether to compile into interpreted byte code instead of\n"
+"      machine instructions.  Byte code is several times smaller, but much\n"
+"      slower.  If :MAYBE, then only byte-compile when SPEED is 0 and\n"
+"      DEBUG <= 1.  The default is the value of EXT:*BYTE-COMPILE-DEFAULT*,\n"
+"      which is initially :MAYBE.\n"
+"   :Xref\n"
+"      If non-NIL, enable recording of cross-reference information.  The "
+"default\n"
+"      is the value of C:*RECORD-XREF-INFO*\n"
+"   :External-Format\n"
+"      The external format to use when opening the source file"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~2&; ~A written.~%"
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't :LOAD with no output file."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~S was defined in a non-null environment."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "Can't find a definition for ~S."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Compiles the function (or macro-function) whose name is NAME.  If\n"
+"  DEFINITION is supplied, it should be a lambda expression which will\n"
+"  be compiled.  IF NAME names a macro, then the compiled expression\n"
+"  replaces the existing macro-function.  If NAME names a function, the\n"
+"  compiled expression is placed in the function cell of NAME.  If NAME\n"
+"  is Nil, the compiled code object is returned."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Attempt to replace Name's definition with an interpreted version of that\n"
+"  definition.  If no interpreted definition is to be found, then signal an\n"
+"  error."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid "~S is already interpreted."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"Return a pathname describing what file COMPILE-FILE would write to given\n"
+"   these arguments."
+msgstr ""
+
+#: target:compiler/main.lisp
+msgid ""
+"The ~A parameter is a ~S, which is an invalid value ~@\n"
+"            to COMPILE-FILE-PATHNAME."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If true, argument and result type information derived from compilation of\n"
+"  DEFUNs is used when compiling calls to that function.  If false, only\n"
+"  information from FTYPE proclamations will be used."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If NIL, never trust dynamic-extent declarations.\n"
+"\n"
+"   If T, always trust dynamic-extent declarations.\n"
+"\n"
+"   Otherwise, the value of this variable must be a function of four\n"
+"   arguments SAFETY, SPACE, SPEED, and DEBUG.  If the function returns\n"
+"   true when called, dynamic-extent declarations are trusted,\n"
+"   otherwise they are not trusted."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't find slot ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found macro name ~S ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found special-form name ~S ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Cannot dump objects of type ~S into fasl files."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S has already ended."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S already has successors."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~S is already a predecessor of ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Misplaced declaration."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function call."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to reference undumpable constant."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Reading an ignored variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~&dynamic-extent args ~:s in ~s~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Conflicting type declarations ~\n"
+"\t\t\t\t   ~S and ~S for ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't declare type of Alien variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring symbol-macro ~S special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignored variable ~S is being declared special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Ignoring ~A declaration not at ~\n"
+"\t\t\t\t   definition of local function:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognizable function or variable name: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignoring free ignore declaration for ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Ignore declaration for unknown variable ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring special variable ~S to be ignored."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "If true, processing of the VALUES declaration is inhibited."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "No type specified in FTYPE declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Abbreviated type declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Unrecognized declaration: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed declaration specifier ~S in ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring an alien variable to be special: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Declaring a constant to be special: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-variable is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated variable in lambda-list: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Name of lambda-variable is a constant: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Multiple uses of keyword ~S in lambda-list."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Found a ~S when expecting a lambda expression:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Expecting a lambda, but form begins with ~S:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lambda-list absent or not a list:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Arg specifier is too long: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed keyword arg specifier: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed &aux binding specifier: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Progn Form*\n"
+"  Evaluates each Form in order, returing the values of the last form.  With "
+"no\n"
+"  forms, returns NIL."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"If Predicate Then [Else]\n"
+"  If Predicate evaluates to non-null, evaluate Then and returns its values,\n"
+"  otherwise evaluate Else and return its values.  Else defaults to NIL."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Block Name Form*\n"
+"  Evaluate the Forms as a PROGN.  Within the lexical scope of the body,\n"
+"  (RETURN-FROM Name Value-Form) can be used to exit the form, returning the\n"
+"  result of Value-Form."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Block name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Return-From Block-Name Value-Form\n"
+"  Evaluate the Value-Form, returning its values from the lexically "
+"enclosing\n"
+"  BLOCK Block-Name.  This is constrained to be used only within the dynamic\n"
+"  extent of the BLOCK."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Return for unknown block: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated tagbody tag: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal tagbody statement: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Tagbody {Tag | Statement}*\n"
+"  Define tags for used with GO.  The Statements are evaluated in order\n"
+"  (skipping Tags) and NIL is returned.  If a statement contains a GO to a\n"
+"  defined Tag within the lexical scope of the form, then control is "
+"transferred\n"
+"  to the next statement following that tag.  A Tag must an integer or a\n"
+"  symbol.  A statement must be a list.  Other objects are illegal within "
+"the\n"
+"  body."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Go Tag\n"
+"  Transfer control to the named Tag in the lexically enclosing TAGBODY.  "
+"This\n"
+"  is constrained to be used only within the dynamic extent of the TAGBODY."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Go to nonexistent tag: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Bad compiler-let binding spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"EVAL-WHEN (Situation*) Form*\n"
+"  Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n"
+"  :LOAD-TOPLEVEL, :EXECUTE."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name ~S is not a symbol."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S has argument list that is not a list: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Local macro ~S is too short to be a legal definition."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n"
+"  Evaluate the Body-Forms in an environment with the specified local macros\n"
+"  defined.  Name is the local macro name, Lambda-List is the DEFMACRO style\n"
+"  destructuring lambda list, and the Forms evaluate to the expansion."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
+"   Establish the specified compiler options for the (lexical) duration of\n"
+"   the body.  The Value-Forms are evaluated at compile time."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Bogus binding for ~\n"
+"\t\t\t\t\t\t     COMPILER-OPTION-BIND: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Lisp error during evaluation of info args:~%~A"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Undefined primitive name: ~A."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Primitive called with ~R argument~:P, ~\n"
+"\t    \t\t         but wants at least ~R."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Primitive called with ~R argument~:P, ~\n"
+"\t\t\t\t but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with a conditional template."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "%Primitive used with an unknown values template."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"QUOTE Value\n"
+"  Return Value without evaluating it."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FUNCTION Name\n"
+"  Return the lexically apparent definition of the function Name.  Name may "
+"also\n"
+"  be a lambda."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Illegal function name: ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Might be a symbol, so must call FDEFINITION at runtime."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
+"  Define the Names as symbol macros with the given Expansions.  Within the\n"
+"  body, references to a Name will effectively be replaced with the Expansion."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed symbol macro binding: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Repeated name in SYMBOL-MACROLET: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "New proclaimed type ~S for ~S conflicts with old type ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to proclaim constant ~S to be special."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed TYPE proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FUNCTION proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed FTYPE proclamation: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S binding spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  During evaluation of the Forms, Bind the Vars to the result of evaluating "
+"the\n"
+"  Value forms.  The variables are bound in parallel after all of the Values "
+"are\n"
+"  evaluated."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LOCALLY Declaration* Form*\n"
+"   Sequentially evaluates a body of Form's in a lexical environment\n"
+"   where the given Declaration's have effect."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LET* ({(Var [Value]) | Var}*) Declaration* Form*\n"
+"  Similar to LET, but the variables are bound sequentially, allowing each "
+"Value\n"
+"  form to reference any of the previous Vars."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Malformed ~S definition spec: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.   The "
+"bindings\n"
+"  do not enclose the definitions; any use of Name in the Forms will refer "
+"to\n"
+"  the lexically apparent function definition in the enclosing environment."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
+"  Evaluate the Body-Forms with some local function definitions.  The "
+"bindings\n"
+"  enclose the new definitions, so the defined functions can call themselves "
+"or\n"
+"  each other."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"THE Type Form\n"
+"  Assert that Form evaluates to the specified type (which may be a VALUES\n"
+"  type.)"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Truly-The Type Value\n"
+"  Like the THE special form, except that it believes whatever you tell it.  "
+"It\n"
+"  will never generate a type check, but will cause a warning if the "
+"compiler\n"
+"  can prove the assertion is wrong."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"SETQ {Var Value}*\n"
+"  Set the variables to the values.  If more than one pair is supplied, the\n"
+"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
+"  expansion."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Odd number of args to SETQ: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to set constant ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Setting an ignored variable: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Throw Tag Form\n"
+"  Do a non-local exit, return the values of Form from the CATCH whose tag\n"
+"  evaluates to the same thing as Tag."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Catch Tag Form*\n"
+"  Evaluates Tag and instantiates it as a catcher while the body forms are\n"
+"  evaluated in an implicit PROGN.  If a THROW is done to Tag within the "
+"dynamic\n"
+"  scope of the body, then control will be transferred to the end of the "
+"body\n"
+"  and the thrown values will be returned."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"Unwind-Protect Protected Cleanup*\n"
+"  Evaluate the form Protected, returning its values.  The cleanup forms are\n"
+"  evaluated whenever the dynamic scope of the Protected form is exited "
+"(either\n"
+"  due to normal completion or a non-local exit such as THROW)."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL Function Values-Form*\n"
+"  Call Function, passing all the values of each Values-Form as arguments,\n"
+"  values from the first Values-Form making up the first argument, etc."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid ""
+"MULTIPLE-VALUE-PROG1 Values-Form Form*\n"
+"  Evaluate Values-Form and then the Forms, but return all the values of\n"
+"  Values-Form."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Macro name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Defining ~S to be a macro when it was ~(~A~) to be a function."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to redefine special form ~S as a macro."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "~&; Converted ~S.~%"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Attempt to define a compiler-macro for special form ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Constant name is not a symbol: ~S."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change T."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Nihil ex nihil (Can't change NIL)."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Can't change the value of keywords."
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining constant ~S as:~%  ~S"
+msgstr ""
+
+#: target:compiler/ir1tran.lisp
+msgid "Redefining ~(~A~) ~S to be a constant."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return the tlf-number and form-number from an encoded FIXNUM."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Return a source-location for the call site."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unused function~:[.~;~:*~%  ~S~]"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Block is already deleted."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Variable ~S defined but never used."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Deleting unreachable code."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If CONT is a call to FUN with NUM-ARGS args, change those arguments\n"
+"   to feed directly to the continuation-dest of CONT, which must be\n"
+"   a combination."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"An upper limit on the number of inline function calls that will be expanded\n"
+"   in any given code object (single function or block compilation.)"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"*Inline-Expansion-Limit* (~D) exceeded, ~\n"
+"\t\t\t     probably trying to~%  ~\n"
+"\t\t\t     inline a recursive function."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Level* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Length* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "The value for *Print-Lines* when printing compiler error messages."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"The maximum number of enclosing non-original source forms (i.e. from\n"
+"  macroexpansion) that we print in full.  For additional enclosing forms, "
+"we\n"
+"  print only the CAR."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"DEF-SOURCE-CONTEXT Name Lambda-List Form*\n"
+"   This macro defines how to extract an abbreviated source context from the\n"
+"   Named form when it appears in the compiler input.  Lambda-List is a "
+"DEFMACRO\n"
+"   style lambda-list used to parse the arguments.  The Body should return a\n"
+"   list of subforms suitable for a \"~{~S ~}\" format string."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Compiler-Error with no bailout."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"This is the function called by the compiler to specially note a\n"
+"warning, comment, or error. The function must take five arguments: the\n"
+"severity, a string describing the nature of the notification, a string\n"
+"for context, the file namestring, and the file position. The severity\n"
+"is one of :note, :warning, or :error. Except for the severity, all of\n"
+"these can be NIL if unavailable or inapplicable."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "[Last message occurs ~D times]"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "~2&File: ~A"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "replace form with call to ERROR."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "ignore it."
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid ""
+"If non-null, then an upper limit on the number of unknown function or type\n"
+"  warnings that the compiler will print for any given name in a single\n"
+"  compilation.  This prevents excessive amounts of output when there really "
+"is\n"
+"  a missing definition (as opposed to a typo in the use.)"
+msgstr ""
+
+#: target:compiler/ir1util.lisp
+msgid "Lisp error during ~A:~%~A"
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"New inferred type ~S conflicts with old type:~\n"
+"\t\t~%  ~S~%*** Bug?"
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid "The return value of ~A should not be discarded."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, aborting this\n"
+"  attempt to transform the call, but admitting the possibility that this or\n"
+"  some other transform will later suceed.  If arguments are supplied, they "
+"are\n"
+"  format arguments for an efficiency note."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform and force a normal\n"
+"  call to the function at run time.  No further optimizations will be\n"
+"  attempted."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"This function is used to throw out of an IR1 transform, and delay the\n"
+"  transform on the node until later. The reasons specifies when the "
+"transform\n"
+"  will be later retried. The :optimize reason causes the transform to be\n"
+"  delayed until after the current IR1 optimization pass. The :constraint\n"
+"  reason causes the transform to be delayed until after constraint\n"
+"  propagation."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"\t     at least ~R."
+msgstr ""
+
+#: target:compiler/ir1opt.lisp
+msgid ""
+"MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
+"\t     at most ~R."
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid "Unable to ~A because:~%~6T~?"
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"Unable to ~A due to type uncertainty:~@\n"
+"\t                      ~{~6T~?~^~&~}"
+msgstr ""
+
+#: target:compiler/ir1final.lisp
+msgid ""
+"The result type from previous declaration:~%  ~S~@\n"
+"\t\t\t\t  conflicts with the result type:~%  ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Element-Type is not constant."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Cannot open-code creation of ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Default initial element ~s is not a ~s."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Element-type not constant; cannot open code array creation"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list not constant; cannot open code array creation"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Dimension list contains something other than an integer: ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array rank not known at compile time: ~S"
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Axis not constant."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array dimensions unknown, must call array-dimension at runtime."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Array has dimensions ~S, ~D is too large."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell if array is simple."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Vector length unknown, must call length at runtime."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid "Can't tell the rank at compile time."
+msgstr ""
+
+#: target:compiler/array-tran.lisp
+msgid ""
+"Array type ambiguous; must call ~\n"
+"\t              array-has-fill-pointer-p at runtime."
+msgstr ""
+
+#: target:compiler/srctran.lisp target:compiler/seqtran.lisp
+msgid "open code"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "convert to EQ test"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "Item might be a number"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "inline expand"
+msgstr ""
+
+#: target:compiler/seqtran.lisp
+msgid "Specified output type ~S is not a sequence type"
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid ""
+"Define-Type-Predicate Name Type\n"
+"  Establish an association between the type predicate Name and the\n"
+"  corresponding Type.  This causes the type predicate to be recognized for\n"
+"  purposes of optimization."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of non-constant type."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Can't open-code test of unknown type ~S."
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid ""
+"Can't compile TYPEP of anonymous or undefined ~\n"
+"\t\t\tclass:~%  ~S"
+msgstr ""
+
+#: target:compiler/typetran.lisp
+msgid "Illegal type specifier for Typep: ~S."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline fixnum operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (unsigned-byte 32) operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "use inline (signed-byte 32) operations"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Shouldn't happen"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Can't open-code float to rational comparison."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "~S doesn't have a precise float representation."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                      because the argument range (~s) was not within 2^~D"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Unable to avoid inline argument range check~@\n"
+"                   because the argument range (~s) was not within 2^~D"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Float zero bound ~s not correctly canonicalised?"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Computes fl(a+b) and err(a+b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double-double B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a-b) and err(a-b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double-double B0,B1 from A0,A1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute double-double = double - double-double"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Subtract the double B from the double-double A0,A1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Split the double-float number a into a-hi and a-lo such that a =\n"
+"  a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n"
+"  a-lo contains the lower 26 bits."
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Compute fl(a*b) and err(a*b)"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid ""
+"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
+"  implementation of two-prod"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Multiply the double-double A0,A1 with B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Add the double-double A0,A1 to the double B"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Divide the double-double A0,A1 by B0,B1"
+msgstr ""
+
+#: target:compiler/float-tran.lisp
+msgid "Square"
+msgstr ""
+
+#: target:compiler/saptran.lisp
+msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Function doesn't have fixed argument count."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert NTHCDR to CAxxR"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Unknown bound type in make-interval!"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "This shouldn't happen!"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert to inline logical ops"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "BOOLE code is not a constant."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~S illegal control arg to BOOLE."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert x*2^k to shift"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert division by 2^k to shift"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert remainder mod 2^k to LOGAND"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operations"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold identity operation"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert (- 0 x) to negate"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert (* x 0) to 0."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "fold zero arg"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Unexpected types: ~s ~s~%"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "recode as multiplication or sqrt"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "convert to simpler equality predicate"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Operands might not be the same type."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~s: too few args (~d), need at least ~d"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "~s: too many args (~d), wants at most ~d"
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid "Control string is not a constant."
+msgstr ""
+
+#: target:compiler/srctran.lisp
+msgid ""
+"When non-NIL, the compiler will generate code utilizing modular\n"
+"  arithmetic.  Set to NIL to disable this, if you don't want modular\n"
+"  arithmetic in some cases."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid ""
+"Couldn't inline expand because expansion ~\n"
+"\t\t\t\t   calls this let-converted local function:~\n"
+"\t\t\t\t   ~%  ~S"
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Can't local-call functions with &MORE args."
+msgstr ""
+
+#: target:compiler/locall.lisp
+#, fuzzy
+msgid ""
+"Function called with odd number of ~\n"
+"\t  \t\t     arguments in keyword portion."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/locall.lisp
+msgid "Non-constant keyword in keyword call."
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "non-constant :ALLOW-OTHER-KEYS value"
+msgstr ""
+
+#: target:compiler/locall.lisp
+msgid "Function called with unknown argument keyword ~S."
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[A possible~;The~] binding of ~S"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+msgstr ""
+
+#: target:compiler/checkgen.lisp
+msgid "Type assertion too complex to check:~% ~S."
+msgstr ""
+
+#: target:compiler/constraint.lisp
+msgid ""
+"*** Unreachable code in constraint ~\n"
+"\t\t\t  propagation...  Bug?"
+msgstr ""
+
+#: target:compiler/tn.lisp
+msgid ""
+"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n"
+"  Iterate over all packed TNs allocated in Component."
+msgstr ""
+
+#: target:compiler/tn.lisp
+msgid "SC ~S has no :unbounded :save-p NIL alternate SC."
+msgstr ""
+
+#: target:compiler/life.lisp
+msgid "More operand ~S used more than once in its VOP."
+msgstr ""
+
+#: target:compiler/debug-dump.lisp
+msgid ""
+"Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  \n"
+"Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n"
+"otherwise the truename."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~D is too big for a fixnum."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Returns the byte offset of the static symbol Symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~S is not a static symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Given a byte offset, Offset, returns the appropriate static symbol."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "Byte offset, ~D, is not correct."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Return the (byte) offset from NIL to the start of the fdefn object\n"
+"   for the static function NAME."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid "~S isn't a static function."
+msgstr ""
+
+#: target:compiler/generic/utils.lisp
+msgid ""
+"Given a byte offset, Offset, returns the appropriate static function\n"
+"   symbol."
+msgstr ""
+
+#: target:compiler/generic/primtype.lisp
+msgid ""
+"An a-list for mapping simple array element types to their\n"
+"  corresponding primitive types."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Slot is not constant, so cannot open code access."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "~S doesn't have a slot named ~S"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Too many indices for pointer deref: ~D"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element size."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Unknown element alignment."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Incorrect number of indices."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Element size unknown."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Element alignment unknown."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "~S not either a pointer or array type."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Info not constant; can't open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Local Alien Info isn't constant?"
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Aliens of type ~S cannot be represented immediately."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "This should be dead-code eleminated."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "This shouldn't happen."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Alien type not constant; cannot open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid ""
+"Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n"
+"\t    allocation of alien-value structure."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Type not constant at compile time; can't open code."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Can't tell function type at compile time."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Wrong number of arguments.  Expected ~D, got ~D."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "Something is broken."
+msgstr ""
+
+#: target:compiler/aliencomp.lisp
+msgid "No unique move-arg-vop for moves in SC ~S."
+msgstr ""
+
+#: target:compiler/ltv.lisp
+msgid ""
+"Arrange for FORM to be evaluated at load-time and use the value produced\n"
+"   as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant\n"
+"   object is guaranteed to never be modified, so it can be put in read-only\n"
+"   storage."
+msgstr ""
+
+#: target:compiler/ltv.lisp
+msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
+msgstr ""
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return value count mismatch prevents known return ~\n"
+"\t\t       from these functions:~\n"
+"\t\t       ~{~%  ~A~}"
+msgstr ""
+
+#: target:compiler/gtn.lisp
+msgid ""
+"Return type not fixed values, so can't use known return ~\n"
+"\t\t      convention:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"Unable to check type assertion in unknown-values ~\n"
+"\t                context:~% ~S"
+msgstr ""
+
+#: target:compiler/represent.lisp target:compiler/ir2tran.lisp
+#: target:compiler/ltn.lisp
+msgid "Neither CONT nor TN supplied."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "~S has :MORE results with :TRANSLATE."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the maximum number of possible optimization alternatives will be\n"
+"  mentioned in a particular efficiency note.  NIL means no limit."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"This is the minumum cost difference between the chosen implementation and\n"
+"  the next alternative that justifies an efficiency note."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "This shouldn't happen!  Bug?"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Template guard failed."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Template is not safe, yet we were counting on it."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument types invalid."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument primitive types:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Argument type assertions:~%  ~S"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Conditional in a non-conditional context."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Result types invalid."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "etc."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Unable to do ~A (cost ~D) because:"
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid ""
+"Can't trust output type assertion under safe ~\n"
+"\t\t       policy."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do ~A (cost ~D)."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Forced to do full call."
+msgstr ""
+
+#: target:compiler/ltn.lisp
+msgid "Recursive known function definition."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"Always perform stack clearing if non-NIL, independent of the\n"
+"compilation policy"
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid ""
+"If non-NIL and the compilation policy allows, stack clearing is enabled."
+msgstr ""
+
+#: target:compiler/ir2tran.lisp
+msgid "~@<~2I~_~S ~_not found in ~_~S~:>"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Couldn't find REF?"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no obvious reason.~@\n"
+"\t          Try again after recompiling the VM definition."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to the~@\n"
+"\t        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@\n"
+"\t\t~:[which cannot be coerced or loaded into the allowed SCs:~\n"
+"\t\t~%  ~S~;~*~]~:[~;~@\n"
+"\t\tCurrent cost info inconsistent with that in effect at compile ~\n"
+"\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Representation selection flamed out for no ~\n"
+"\t\t             obvious reason."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n"
+"\t        ~%  ~S~%Primitive type: ~S~@\n"
+"\t\tSC restrictions:~%  ~S~@\n"
+"\t\t~@[The primitive type disallows these loadable SCs:~%  ~S~%~]~\n"
+"\t\t~@[No move VOPs are defined to coerce to these allowed SCs:~\n"
+"\t\t~%  ~S~%~]~\n"
+"\t\t~@[These move VOPs couldn't be used due to operand type ~\n"
+"\t\trestrictions:~%  ~S~%~]~\n"
+"\t\t~:[~;~@\n"
+"\t\tCurrent cost info inconsistent with that in effect at compile ~\n"
+"\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n"
+"          ~S (SC ~S.)"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from constant ~\n"
+"\t             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to load SC ~S from alternate ~\n"
+"\t             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"No move function defined to save SC ~S to alternate ~\n"
+"\t             SC ~S."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "<return value>"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Couldn't fine op?  Bug!"
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid ""
+"Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n"
+"\t       The ~:R ~:[result~;argument~] of ~A."
+msgstr ""
+
+#: target:compiler/represent.lisp
+msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
+msgstr ""
+
+#: target:compiler/generic/vm-tran.lisp
+msgid ""
+"Argument and result bit arrays not the same length:~\n"
+"\t     \t     ~%  ~S~%  ~S"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "Returns the number of bytes used by the code object header."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"The size of the Name'd SB in the currently compiled component.  Useful\n"
+"  mainly for finding the size for allocating stack frames."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in VOP's\n"
+"  function.  Returns NIL if no number stack frame was allocated."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN that is used to hold the number stack frame-pointer in the\n"
+"  function designated by 2env.  Returns NIL if no number stack frame was\n"
+"  allocated."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Return the TN used for passing the return PC in a local call to the "
+"function\n"
+"  designated by 2env."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid ""
+"Set to NIL to inhibit assembly-level optimization.  For compiler debugging,\n"
+"  rather than policy control."
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "In the ~A segment:~%"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "~|~%Assembly code for ~S~2%"
+msgstr ""
+
+#: target:compiler/codegen.lisp
+msgid "Missing generator for ~S.~%"
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"This variable is bound to the format arguments when an error is signalled\n"
+"  by Barf or Burp."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Action taken by the Burp function when a possible compiler bug is detected.\n"
+"  One of :Warn, :Error or :None."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For\n"
+"  debugging use only.  Probably doesn't work on :COMPONENT TNs."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "~S already dumped?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Warning: dumping ~s as 0l0~%"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Unable to dump long-float"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Dumping reference to obsolete class: ~S"
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Unresolved forward reference."
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "#<Code Instruction Stream for ~S>"
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Writing ~D bytes to ~S would cause it to overflow."
+msgstr ""
+
+#: target:compiler/generic/core.lisp
+msgid "Writing another byte to ~S would cause it to overflow."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Fatal error, aborting evaluation."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong argument count, wanted ~D and got ~D."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong number of arguments passed -- ~S."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Function called with odd number of keyword arguments."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Unknown keyword argument -- ~S."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[PUSH: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "pushing ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "Attempt to pop empty eval stack."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "popping ~D --> ~S.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[EXTEND: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "extending to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "shrinking to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "setting top to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If the interpreted function cache has more functions than this come GC "
+"time,\n"
+"  then attempt to prune it according to\n"
+"  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If an interpreted function goes uncalled for more than this many GCs, then\n"
+"  it is eligible for flushing from the cache."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"Clear all entries in the eval function cache.  This allows the internal\n"
+"  representation of the functions to be reclaimed, and also lazily forces\n"
+"  macroexpansions to be recomputed."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown XOP ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Unknown inline function: ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Can't find ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~|~%;;;; Byte component ~S~2%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid ";;; Functions:~%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~%;;;Disassembly:~2%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "<bogus index>"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "Entry point, frame-size=~D~%"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-local ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-arg ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-const ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-sys-const ~S"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-int ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "push-neg-int ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-local ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "pop-n ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]tail-call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "~:[~;named-~]multiple-call, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local tail-call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "local multiple-call ~D, ~D args"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "return, ~D vals"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "branch ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-true ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-false ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "if-eq ~D"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "xop ~A~@[ ~D~]"
+msgstr ""
+
+#: target:compiler/byte-comp.lisp
+msgid "inline ~A"
+msgstr ""
+
+#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp
+msgid "Malformed plist in doplist, odd number of elements."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "~@<~S is not a legal class name.~@:>"
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "No class named ~S."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid "~S is not a legal class name."
+msgstr ""
+
+#: target:pcl/macros.lisp
+msgid ""
+"Returns the PCL class metaobject named by SYMBOL. An error of type\n"
+"   SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n"
+"   is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid "Set the name of a compiled function object and return the function."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid ""
+"PCL debugging aid that breaks into the debugger each time\n"
+"`compile-lambda' is invoked."
+msgstr ""
+
+#: target:pcl/low.lisp
+msgid ""
+"If true (the default), then `compile-lambda' will try to silence\n"
+"the compiler as completely as possible.  Currently this means that\n"
+"`*compile-print*' will be bound to nil during compilation."
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid ""
+"~@<The declaration ~S is not understood by ~S. ~\n"
+"                               Please put ~S on one of the lists ~S, ~S, or "
+"~S. ~\n"
+"                               (Assuming it is a variable declarations "
+"without ~\n"
+"                               argument).~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access specifier ~s in ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid slot access declaration ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
+msgstr ""
+
+#: target:pcl/info.lisp
+msgid "~@<Invalid auto-compile declaration ~s.~@:>"
+msgstr ""
+
+#: target:pcl/fin.lisp
+msgid ""
+"~@<Attempt to funcall a funcallable instance without first ~\n"
+"          setting its function.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~S is not a legal defclass option."
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The value of the ~s option (~s) is not a legal ~\n"
+"\t        class name.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a legal slot specification.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<In the class definintion of ~s, the slot specification ~s ~\n"
+"                 is obsolete.  Convert it to ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "~@<~S is not a class in *early-class-definitions*.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<More than one early class defines a slot with the ~\n"
+"                    name ~S.  This can't work because the bootstrap ~\n"
+"                    object system doesn't know how to compute effective ~\n"
+"                    slots.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "Discard it."
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid ""
+"~@<The defclass option ~S is not supported by ~\n"
+"                                 the bootstrap object system.~@:>"
+msgstr ""
+
+#: target:pcl/defclass.lisp
+msgid "Slot ~S not found in class ~S"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid ""
+"~@<Trying to load (or compile) PCL in an environment in which it ~\n"
+"            has already been loaded.  This doesn't work, you will have to ~\n"
+"            get a fresh lisp (reboot) and then load PCL.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "Try loading (or compiling) PCL anyways."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~@<~S is not a legal specializer type.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~@<~s is neither a type nor a specializer.~@:>"
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "Bad argument to type-class."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid "~s is not a type."
+msgstr ""
+
+#: target:pcl/defs.lisp
+msgid ""
+"For class slots, the class defininig the slot.\n"
+"For inherited class slots, this is the superclass from which the slot\n"
+"was inherited."
+msgstr ""
+
+#: target:pcl/fngen.lisp
+msgid ""
+"Flush cached emf functions.  If GF is supplied, it should be a\n"
+"   generic function metaobject or the name of a generic function, and\n"
+"   this function flushes all cached emfs for the given generic\n"
+"   function.  If GF is not supplied, all cached emfs are flushed."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Wrapper ~S"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Unknown wrapper state"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<PCL cannot handle the specializer ~S ~\n"
+"                                (meta-specializer ~S).~@:>"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Line is reserved."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid ""
+"~@<Bad cache ~S: Value at location ~D is ~D ~\n"
+"                               lines from its home, limit is ~D.~@:>"
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Attempt to fill a reserved cache line."
+msgstr ""
+
+#: target:pcl/cache.lisp
+msgid "Transfering something into a reserved cache line."
+msgstr ""
+
+#: target:pcl/dlisp.lisp
+msgid "Every metatype is T."
+msgstr ""
+
+#: target:pcl/dlisp.lisp
+msgid "Can't do a slot reg for this metatype."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~a: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Invalid generic function parameter name ~a"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Optional and key parameters of generic functions ~\n"
+"                   may not have default values or supplied-p ~\n"
+"                   parameters: ~<~s~>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~s is not allowed in generic function lambda lists"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~~@<Generic function ~~s: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "The option ~s appears more than once"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Declaration specifier ~s is not allowed"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Argument precedence order must list all ~\n"
+"                           required parameters and only those: ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Duplicate parameter names in argument ~\n"
+"                           precedence order: ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Special operators cannot be made generic functions"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Unsupported option ~s"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "If true, allow inlining of methods in effective methods."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<Defining method ~s ~s ~s using inline slot access in a ~\n"
+"                   non-null lexical environment means that it cannot be ~\n"
+"                   automatically recompiled.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"The method-lambda argument to make-method-function, ~S,~\n"
+"            is not a lambda form"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"Assignment to method parameter~p ~{~s~^, ~} ~\n"
+"                           might prevent CLOS optimizations"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Wrong number of args."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "1 or 2 args expected."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "1 arg expected."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The set of methods ~s applicable to argument~p ~\n"
+"                ~{~s~^, ~} to call-next-method is different from ~\n"
+"                the set of methods ~s applicable to the original ~\n"
+"                method argument~p ~{~s~^, ~}.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "When true, compile interpreted method functions."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~&~@<At the time the method with qualifiers ~S and ~\n"
+"               specializers ~S on the generic function ~S ~\n"
+"               was compiled, the method class for that generic function was "
+"~\n"
+"               ~S.  But, the method class is now ~S, this ~\n"
+"               may mean that this method was compiled improperly.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S already names an ordinary function or a macro.  ~\n"
+"\tIf you want to replace it with a generic function, you should remove ~\n"
+"        the existing definition beforehand.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<Discard the existing definition of ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The lambda-list ~S is incompatible with ~\n"
+"                      existing methods of ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~~@<Attempt to add the method ~~S to the generic ~\n"
+"                           function ~~S, but ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "more"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "fewer"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~A required arguments than the ~\n"
+"                 generic function"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method has ~S optional arguments than the ~\n"
+"                 generic function"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method and generic function differ in whether ~\n"
+"                 they accept rest or keyword arguments"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"the method does not accept each of the keyword ~\n"
+"                   arguments ~S"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<The function ~S is not already defined.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<~S should be on the list ~S.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"\t\t\t has not been set.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<No way to determine the lambda list~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<The ~s argument (~S) was neither a class nor a ~\n"
+"                    symbol naming a class.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~S is not an early-method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get a funcallable instance."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early add-method didn't get an early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get a funcallable instance."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Early remove-method didn't get an early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "Can't get early method."
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~@<Qualifiers must be non-null atoms: ~s~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid ""
+"~@<~S used as a specializer, ~\n"
+"                             but is not the name of a class.~@:>"
+msgstr ""
+
+#: target:pcl/boot.lisp
+msgid "~S is not a legal specializer."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Set to true to activate the inline slot access optimization."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, check slot values against specified slot types."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "When true, optimize slot access through slot reader/writer functions."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Cannot optimize slot access to"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not a standard class"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class doesn't contain a slot with name ~s"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Slot ~s is a class slot"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "There are non-standard accessors for slot ~s"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Slot ~s is not at the same location ~\n"
+"                               in the class and all of its subclasses"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Auto-compiling method ~s."
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"Methods may need to be recompiled for the changed ~\n"
+"                    class layout of"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "The class is not defined at compile time"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid ""
+"~s has a method that is not a standard ~\n"
+"                                    slot accessor"
+msgstr ""
+
+#: target:pcl/method-slot-access-optimization.lisp
+msgid "Methods of ~s access different slots"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid "~@<~S is not a standard-class.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                       does not have standard allocation.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<Slot ~S in class ~S ~\n"
+"                      does not have standard allocation.~@:>"
+msgstr ""
+
+#: target:pcl/slots-boot.lisp
+msgid ""
+"~@<The wrapper for class ~S does not have ~\n"
+"                               the slot ~S.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp target:pcl/combin.lisp
+msgid "has more than one qualifier"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "has an invalid qualifier"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<~s was called outside the dynamic scope ~\n"
+"            of a method combination function (inside the body of ~\n"
+"            ~s or a method on the generic function ~s).~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "~@<~S used outside of a effective method form.~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid ""
+"~@<Invalid keyword argument~p ~{~s~^, ~}.  ~\n"
+"               Valid keywords are: ~{~s~^, ~}.~@:>"
+msgstr ""
+
+#: target:pcl/combin.lisp
+msgid "Invalid keyword argument ~s"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Cannot get standard value of slot ~s of class ~s ~\n"
+"                in object ~s~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"Precompute effective methods at method load time if the generic\n"
+"   function has less than this number of methods.  If zero,\n"
+"   no effective methods are precomputed at method load time."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<The function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~<The function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid ""
+"~@<Vicious metacircle:  The computation of an ~\n"
+"\t   effective method of ~s for arguments of types ~s uses ~\n"
+"\t   the effective method being computed.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "This can't happen."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~@<~s cannot handle the second argument ~s.~@:>"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&There are ~4d dfuns of type ~s"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "~&DFUN constructor caching is ~A."
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "enabled"
+msgstr ""
+
+#: target:pcl/dfun.lisp
+msgid "disabled"
+msgstr ""
+
+#: target:pcl/ctor.lisp
+msgid "~@<Not a property list: ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<The function of the funcallable instance ~S ~\n"
+"                 has not been set.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Slot allocation ~S is not supported ~\n"
+"                          in bootstrap.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "The standard method combination."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"In *built-in-classes*: ~S has ~S as a superclass,~%~\n"
+"                but ~S is not itself a class in *built-in-classes*."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "~@<~S is not the name of a class.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<No matching method for the generic function ~\n"
+"                             ~S, when called with arguments ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "Retry call to ~S."
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid "~@<In method ~S: No next method for arguments ~S.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<Generic function ~S: ~\n"
+"                             No primary method given arguments ~S~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The method ~s has invalid qualifiers for method ~\n"
+"              combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/braid.lisp
+msgid ""
+"~@<In a call to ~s with arguments ~:s: ~\n"
+"              The methods ~{~s~^, ~} have invalid qualifiers for ~\n"
+"              method combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "~@<The slot ~S is unbound in the object ~S.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is not a symbol and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is a keyword and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "is a constant and so cannot be bound"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default ~s "
+"~\n"
+"                           method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s allocation, ~\n"
+"               so it can't be written by the default ~s method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~@<The slot ~s has neither ~s nor ~s ~\n"
+"                           allocation, so it can't be read by the default ~s "
+"~\n"
+"\t\t\t   method.~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "Structure slots cannot be unbound."
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "Condition slots cannot be unbound."
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid ""
+"~~@<When attempting to ~A, the slot ~S is missing ~\n"
+"                from the object ~S.~~@:>"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "read the slot's value (slot-value)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "set the slot's value to ~S (setf of slot-value)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "test to see if slot is bound (slot-boundp)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "make the slot unbound (slot-makunbound)"
+msgstr ""
+
+#: target:pcl/slots.lisp
+msgid "~@<Can't allocate an instance of class ~S.~@:>"
+msgstr ""
+
+#: target:pcl/init.lisp
+msgid ""
+"~@<Invalid initialization argument~P ~2I~_~\n"
+"                         ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
+msgstr ""
+
+#: target:pcl/seal.lisp
+msgid "~@<Invalid sealing specifier ~s.~@:>"
+msgstr ""
+
+#: target:pcl/seal.lisp
+msgid "~s is sealed wrt ~a"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"~~@<While computing the class precedence list ~\n"
+"                of the class ~A: ~?.~~@:>"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "named ~S"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "The class ~A is a forward referenced class"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"The class ~A is a forward referenced class. ~\n"
+"                      The class ~A is ~A."
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "a direct superclass of the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"reached from the class ~A by following~@\n"
+"                                  the direct superclass chain through: ~A~\n"
+"                                  ~%  ending at the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "~{~%  the class ~A,~}"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid ""
+"It is not possible to compute the class precedence list because ~\n"
+"       there ~A in the local precedence relations.  ~\n"
+"       ~A because:~{~%  ~A~}."
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "are circularities"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "is a circularity"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "These arise"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "This arises"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A appears in the supers of the class ~A"
+msgstr ""
+
+#: target:pcl/cpl.lisp
+msgid "the class ~A follows the class ~A in the supers of the class ~A"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "Instance"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<Structure slots must have ~s allocation.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<~S doesn't seem to have a method function.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Attempt to reinitialize the method ~S.  ~\n"
+"          Method objects cannot be reinitialized.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<When initializing the method ~S, ~\n"
+"                   the ~S initialization argument was ~S, ~\n"
+"                   which ~A.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a string or NULL"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a function"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "Contains ~S which ~A"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is not a non-null atom"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "is neither a class object nor an eql specializer"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "The value of the ~s initarg, ~s, ~A."
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~~@<When initializing the generic-function ~S: ~\n"
+"                               The ~S initialization argument was ~A.  ~\n"
+"                               It must be ~A.~~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<~S does not name a generic function.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<There is no method for the generic function ~S ~\n"
+"                   matching argument specifiers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"           specializers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<No method on ~S with qualifiers ~S and ~\n"
+"            specializers ~S.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<The generic function ~s takes ~d required argument~p.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<The method ~S is already part of the generic ~\n"
+"            function ~S.  It can't be added to another generic ~\n"
+"            function until it is removed from the first one.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                        the standard method combination.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid ""
+"~@<Method ~s contains invalid qualifiers for ~\n"
+"                          the method combination ~s.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "~@<Generic function ~S requires at least ~D arguments.~@:>"
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "In get-accessor-method-function."
+msgstr ""
+
+#: target:pcl/methods.lisp
+msgid "The key for the last case arg to mcase was not T."
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<Invalid options to a short method combination type.  ~\n"
+"            The method combination type ~S accepts one option which ~\n"
+"            must be either ~s or ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<The method ~S ~A.  ~\n"
+"                    The method combination type ~S was defined with the ~\n"
+"                    short form of ~s and so requires all methods have ~\n"
+"\t\t    either the single qualifier ~S or the single qualifier ~\n"
+"\t\t    ~s.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "has no qualifiers"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "has an illegal qualifier"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<More than one method of type ~S ~\n"
+"                                     with the same specializers.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "No ~S methods."
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid ""
+"~@<In the method group specifier ~S, ~\n"
+"                   ~S isn't a valid qualifier pattern.~@:>"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching one of the patterns: ~{~S, ~} ~S"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "methods matching the pattern: ~S"
+msgstr ""
+
+#: target:pcl/defcombin.lisp
+msgid "Invalid parameter specifier: ~s"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~%~S is an instance of class ~S:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :INSTANCE allocation:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have :CLASS allocation:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~% The following slots have allocation as shown:"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~A is a generic function.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its lambda-list is:~%  ~S~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Generic function documentation:~%  ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its methods are:~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "    Method documentation: ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its proper name is ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "Its name is ~S, but this is not a proper name.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It has no name (the name is NIL).~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid ""
+"The direct superclasses are: ~:S, and the direct~%~\n"
+"           subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~\n"
+"           The class precedence list is:~%~S~%~\n"
+"           There are ~D methods specialized for this class."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its direct slots are:~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "  ~a, documentation ~s~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~S is a ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It has ~D internal and ~D external symbols (~D total).~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It uses the packages ~{~S~^, ~}.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "It is used by the packages ~{~S~^, ~}.~%"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&~S is an ~a hash table."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its size is ~d buckets."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-size is ~d."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~&Its rehash-threshold is ~d."
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Default ~s method for ~s called.~@>"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>"
+msgstr ""
+
+#: target:pcl/env.lisp
+msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "Invalid function name ~s"
+msgstr ""
+
+#: target:pcl/cmucl-documentation.lisp
+msgid "~@<~S is not the name of a structure type.~@:>"
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+#, fuzzy
+msgid ""
+"Returns a type specifier for the kind of object returned by the\n"
+"  Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n"
+"  which returns CHARACTER."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Return true if Stream is not closed.  A default method is provided\n"
+"  by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n"
+"  called on the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Closes the given Stream.  No more I/O may be performed, but\n"
+"  inquiries may still be made.  If :Abort is non-nil, an attempt is made\n"
+"  to clean up the side effects of having created the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This reads one character from the stream.  It returns either a\n"
+"  character object, or the symbol :EOF if the stream is at end-of-file.\n"
+"  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM must define a\n"
+"  method for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n"
+"  Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n"
+"  must define a method for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used to implement READ-CHAR-NO-HANG.  It returns either a\n"
+"  character, or NIL if no input is currently available, or :EOF if\n"
+"  end-of-file is reached.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-INPUT-STREAM simply calls STREAM-READ-CHAR; this\n"
+"  is sufficient for file streams, but interactive streams should define\n"
+"  their own method."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n"
+"  It returns either a character or :EOF.  The default method calls\n"
+"  STREAM-READ-CHAR and STREAM-UNREAD-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by LISTEN.  Returns true or false.  The default method uses\n"
+"  STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should \n"
+"  define their own method since it will usually be trivial and will\n"
+"  always be more efficient than the default method."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-LINE.  A string is returned as the first value.  The\n"
+"  second value is true if the string was terminated by end-of-file\n"
+"  instead of the end of a line.  The default method uses repeated\n"
+"  calls to STREAM-READ-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements CLEAR-INPUT for the stream, returning NIL.  The default\n"
+"  method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements READ-SEQUENCE for the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes character to the stream and returns the character.  Every\n"
+"  subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n"
+"  defined for this function."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This function returns the column number where the next character\n"
+"  will be written, or NIL if that is not meaningful for this stream.\n"
+"  The first column on a line is numbered 0.  This function is used in\n"
+"  the implementation of PPRINT and the FORMAT ~T directive.  For every\n"
+"  character output stream class that is defined, a method must be\n"
+"  defined for this function, although it is permissible for it to\n"
+"  always return NIL."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Return the stream line length or Nil."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is a predicate which returns T if the stream is positioned at\n"
+"  the beginning of a line, else NIL.  It is permissible to always return\n"
+"  NIL.  This is used in the implementation of FRESH-LINE.  Note that\n"
+"  while a value of 0 from STREAM-LINE-COLUMN also indicates the\n"
+"  beginning of a line, there are cases where STREAM-START-LINE-P can be\n"
+"  meaningfully implemented although STREAM-LINE-COLUMN can't be.  For\n"
+"  example, for a window using variable-width characters, the column\n"
+"  number isn't very meaningful, but the beginning of the line does have\n"
+"  a clear meaning.  The default method for STREAM-START-LINE-P on class\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses STREAM-LINE-COLUMN, so if\n"
+"  that is defined to return NIL, then a method should be provided for\n"
+"  either STREAM-START-LINE-P or STREAM-FRESH-LINE."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"This is used by WRITE-STRING.  It writes the string to the stream,\n"
+"  optionally delimited by start and end, which default to 0 and NIL.\n"
+"  The string argument is returned.  The default method provided by\n"
+"  FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses repeated calls to\n"
+"  STREAM-WRITE-CHAR."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes an end of line, as for TERPRI.  Returns NIL.  The default\n"
+"  method does (STREAM-WRITE-CHAR stream #NEWLINE)."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Outputs a new line to the Stream if it is not positioned at the\n"
+"  begining of a line.  Returns T if it output a new line, nil\n"
+"  otherwise. Used by FRESH-LINE. The default method uses\n"
+"  STREAM-START-LINE-P and STREAM-TERPRI."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to ensure that all output sent to the Stream has reached\n"
+"  its destination, and only then returns false. Implements\n"
+"  FINISH-OUTPUT.  The default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Attempts to force any buffered output to be sent. Implements\n"
+"  FORCE-OUTPUT.  The default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Clears the given output Stream. Implements CLEAR-OUTPUT.  The\n"
+"  default method does nothing."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Writes enough blank space so that the next character will be\n"
+"  written at the specified column.  Returns true if the operation is\n"
+"  successful, or NIL if it is not supported for this stream.  This is\n"
+"  intended for use by by PPRINT and FORMAT ~T.  The default method uses\n"
+"  STREAM-LINE-COLUMN and repeated calls to STREAM-WRITE-CHAR with a\n"
+"  #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "Implements WRITE-SEQUENCE for the stream."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Used by READ-BYTE; returns either an integer, or the symbol :EOF\n"
+"  if the stream is at end-of-file."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid ""
+"Implements WRITE-BYTE; writes the integer to the stream and\n"
+"  returns the integer as the result."
+msgstr ""
+
+#: target:pcl/gray-streams.lisp
+msgid "    Gray Streams Protocol Support"
+msgstr ""
+
+#, fuzzy
+#~ msgid ""
+#~ "Function previously called with ~R argument~:P, but wants at least ~R."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#, fuzzy
+#~ msgid ""
+#~ "Function previously called with ~R argument~:P, but wants at most ~R."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Returns   which defaults to EQL."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Returns  UNIX system call."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Unix-ge"
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Unix-ge   current process."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Predica"
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Peeks a"
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Outputs"
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Outputs  stream."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid ""
+#~ "Outputsthe\n"
+#~ "  specified stream."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Outputs  space to the stream."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Returns   slashification on."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Returns  slashification off."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Set the   Return translations."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "The exc  to a function, including rest args."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "The exc  have."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Reads a   return it."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Exclusi  pointer."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Functio\t      the keyword portion."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#~ msgid "Read-Only Space Usage:  ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+#~ msgstr "읽기 전용 공간 사용:  ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+
+#~ msgid "Static Space Usage:     ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
+#~ msgstr "정적 공간을 사용:     ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
diff --git a/lisp/Config.sparc_common b/lisp/Config.sparc_common
index c09012c59a9fa2d7eedcfe5677c94b1de6bc3d9d..dc917d0e901bf84959fea729c7a61885647380f4 100644
--- a/lisp/Config.sparc_common
+++ b/lisp/Config.sparc_common
@@ -10,6 +10,11 @@ vpath %.h .:$(PATH1)
 vpath %.c .:$(PATH1)
 vpath %.S .:$(PATH1)
 
+CMULOCALE = ../../src/i18n/locale
+vpath %.pot $(CMULOCALE)
+vpath %.po  $(CMULOCALE)
+vpath %.mo  $(CMULOCALE)
+
 # Enable support for :linkage-table feature.
 
 ifdef FEATURE_LINKAGE_TABLE
diff --git a/lisp/Config.x86_common b/lisp/Config.x86_common
index 5635e5b859c870be7817ff372d275240472ad74e..5ed23de395386fa240ea73e9aaadd11631b99e04 100644
--- a/lisp/Config.x86_common
+++ b/lisp/Config.x86_common
@@ -8,6 +8,11 @@ vpath %.h $(PATH1)
 vpath %.c $(PATH1)
 vpath %.S $(PATH1)
 
+CMULOCALE = ../../src/i18n/locale
+vpath %.pot $(CMULOCALE)
+vpath %.po  $(CMULOCALE)
+vpath %.mo  $(CMULOCALE)
+
 CPP_DEFINE_OPTIONS := -Di386
 
 # Enable support for :linkage-table feature.
diff --git a/lisp/GNUmakefile b/lisp/GNUmakefile
index 63934b0fceece1897ee0ddf8fd94851d907b6a72..e7d2cfc0066013d10c3c7d6c050029977ae17c4a 100644
--- a/lisp/GNUmakefile
+++ b/lisp/GNUmakefile
@@ -1,6 +1,6 @@
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/GNUmakefile,v 1.33 2009/01/20 04:52:47 agoncharov Rel $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/GNUmakefile,v 1.34 2010/03/19 15:19:03 rtoy Exp $
 
-all: lisp.nm
+all: lisp.nm translations
 
 -include internals.inc
 include Config
@@ -59,3 +59,29 @@ Depends: ${SRCS}
 	mv ,depends Depends
 
 -include Depends
+
+# Find all directories in ../i18n/locale.  These are the locales we
+# currently support.
+
+# This would be a nice way to do it so we don't have to keep track of
+# the directories, but Solaris' find doesn't grok -depth 1
+#LOCALES=$(patsubst ../i18n/locale/%, %, $(shell find ../i18n/locale -type d -depth 1))
+LOCALES=en@piglatin ko
+
+# Convert locale names to the appropriate path where we want the mo files to go.
+LOCALE_DIRS = $(patsubst %, i18n/locale/%/LC_MESSAGES, $(LOCALES))
+
+translations: 
+	for pot in ../../src/i18n/locale/*.pot; do \
+	  for po in $(LOCALE_DIRS); do \
+            d=`dirname $$pot`; \
+	    f=`basename $$pot .pot`; \
+	    touch ../../src/$$po/$$f.po; \
+	    echo ; \
+	    echo '***' Processing $$f.pot:  $$po; \
+	    msgmerge -v ../../src/$$po/$$f.po $$pot -o ../../src/$$po/$$f.po; \
+	    msgfmt -v  ../../src/$$po/$$f.po -o ../$$po/$$f.mo; \
+	  done; done
+
+.PHONY : translations
+
diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 992cbf814a5509a6323cca62b03d3fb274a3014f..f63ca791cb903160a05778a029270f23c7c70198 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,9 +25,10 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.74 2010/03/04 14:03:31 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.75 2010/03/19 15:19:03 rtoy Exp $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 #|
 
@@ -186,30 +187,30 @@ work during bootstrapping.
     (declare (ignore restp rest keyp aux allow-other-keys-p))
     (labels ((lambda-list-error (format-control &rest format-arguments)
 	       (simple-program-error
-		(format nil "~~@<Generic function ~a: ~?.~~@:>"
+		(format nil _"~~@<Generic function ~a: ~?.~~@:>"
 			function-specifier
 			format-control format-arguments)))
 	     (check-required-parameter (parameter)
 	       (unless (symbolp parameter)
 		 (lambda-list-error
-		  "Invalid generic function parameter name ~a"
+		  _"Invalid generic function parameter name ~a"
 		  parameter)))
 	     (check-key-or-optional-parameter (parameter)
 	       (unless (or (symbolp parameter)
 			   (and (consp parameter)
 				(symbolp (car parameter))))
 		 (lambda-list-error
-		  "Invalid generic function parameter name ~a"
+		  _"Invalid generic function parameter name ~a"
 		  parameter))
 	       (when (and (consp parameter)
 			  (not (null (cdr parameter))))
 		 (lambda-list-error
-		  "Optional and key parameters of generic functions ~
+		  _"Optional and key parameters of generic functions ~
                    may not have default values or supplied-p ~
                    parameters: ~<~s~>" parameter))))
       (when auxp
 	(lambda-list-error
-	 "~s is not allowed in generic function lambda lists" '&aux))
+	 _"~s is not allowed in generic function lambda lists" '&aux))
       (mapc #'check-required-parameter required)
       (mapc #'check-key-or-optional-parameter optional)
       (mapc #'check-key-or-optional-parameter keys))))
@@ -223,11 +224,11 @@ work during bootstrapping.
 	(methods ()))
     (labels ((loose (format-control &rest format-arguments)
 	       (simple-program-error
-		(format nil "~~@<Generic function ~~s: ~?.~~@:>"
+		(format nil _"~~@<Generic function ~~s: ~?.~~@:>"
 			format-control format-arguments)
 		function-specifier))
 	     (duplicate-option (name)
-	       (loose "The option ~s appears more than once" name))
+	       (loose _"The option ~s appears more than once" name))
 	     (check-declaration (declaration-specifiers)
 	       (loop for specifier in declaration-specifiers
 		     when (and (consp specifier)
@@ -235,17 +236,17 @@ work during bootstrapping.
 				       '(special ftype function inline
 					 notinline declaration)
 				       :test #'eq)) do
-		     (loose "Declaration specifier ~s is not allowed"
+		     (loose _"Declaration specifier ~s is not allowed"
 			    specifier)))
 	     (check-argument-precedence-order (precedence)
 	       (let ((required (parse-lambda-list lambda-list)))
 		 (when (set-difference required precedence)
-		   (loose "Argument precedence order must list all ~
+		   (loose _"Argument precedence order must list all ~
                            required parameters and only those: ~s"
 			  precedence))
 		 (when (/= (length (remove-duplicates precedence))
 			   (length precedence))
-		   (loose "Duplicate parameter names in argument ~
+		   (loose _"Duplicate parameter names in argument ~
                            precedence order: ~s"
 			  precedence))))
 	     (initarg (key &optional (new nil new-supplied-p))
@@ -255,7 +256,7 @@ work during bootstrapping.
 
       (when (and (symbolp function-specifier)
 		 (special-operator-p function-specifier))
-	(loose "Special operators cannot be made generic functions"))
+	(loose _"Special operators cannot be made generic functions"))
       
       (dolist (option options)
 	(case (car option)
@@ -290,7 +291,7 @@ work during bootstrapping.
 					'method-description-methods))
 		    methods))
 	  (t		  ;unsuported things must get a 'program-error
-	   (loose "Unsupported option ~s" option))))
+	   (loose _"Unsupported option ~s" option))))
 
 	(let ((declarations (initarg :declarations)))
 	  (when declarations (initarg :declarations `',declarations))))
@@ -379,7 +380,7 @@ work during bootstrapping.
 (defvar *method-source-info*)
 
 (defvar *inline-methods-in-emfs* t
-  "If true, allow inlining of methods in effective methods.")
+  _N"If true, allow inlining of methods in effective methods.")
 
 (defun expand-defmethod (name proto-gf proto-method qualifiers
 			 lambda-list body env)
@@ -401,7 +402,7 @@ work during bootstrapping.
 		     (or (c::lexenv-functions env)
 			 (c::lexenv-variables env)))
 	    (setq *method-source-info* nil)
-	    (warn "~@<Defining method ~s ~s ~s using inline slot access in a ~
+	    (warn _"~@<Defining method ~s ~s ~s using inline slot access in a ~
                    non-null lexical environment means that it cannot be ~
                    automatically recompiled.~@:>"
 		  name qualifiers lambda-list))
@@ -549,7 +550,7 @@ work during bootstrapping.
 				      (proto-mothed standard-method)
 				      method-lambda initargs env)
   (unless (eq (car-safe method-lambda) 'lambda)
-    (error "The method-lambda argument to make-method-function, ~S,~
+    (error _"The method-lambda argument to make-method-function, ~S,~
             is not a lambda form" method-lambda))
   (make-method-initargs-form-internal method-lambda initargs env))
 
@@ -558,7 +559,7 @@ work during bootstrapping.
 				       method-lambda initargs env)
   (declare (ignore proto-gf proto-method))
   (unless (and (consp method-lambda) (eq (car method-lambda) 'lambda))
-    (error "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
+    (error _"~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
 	   'method-lambda 'make-method-lambda method-lambda))
   (make-method-initargs-form-internal method-lambda initargs env))
 
@@ -591,7 +592,7 @@ work during bootstrapping.
 
 (defun make-method-lambda-internal (method-lambda &optional env)
   (unless (and (consp method-lambda) (eq (car method-lambda) 'lambda))
-    (error "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
+    (error _"~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
 	   'method-lambda 'make-method-lambda method-lambda))
   (multiple-value-bind (real-body declarations documentation)
       (system:parse-body (cddr method-lambda) env)
@@ -617,7 +618,7 @@ work during bootstrapping.
 		  (when assigned
 		    (warn 'kernel:simple-style-warning
 			  :format-control
-			  "Assignment to method parameter~p ~{~s~^, ~} ~
+			  _"Assignment to method parameter~p ~{~s~^, ~} ~
                            might prevent CLOS optimizations"
 			  :format-arguments
 			  (list (length assigned) assigned)))
@@ -910,15 +911,15 @@ work during bootstrapping.
 	   (cond ((null args)
 		  (if (eql nreq 0) 
 		      (invoke-fast-method-call emf)
-		      (internal-program-error emf "Wrong number of args.")))
+		      (internal-program-error emf _"Wrong number of args.")))
 		 ((null (cdr args))
 		  (if (eql nreq 1) 
 		      (invoke-fast-method-call emf (car args))
-		      (internal-program-error emf "Wrong number of args.")))
+		      (internal-program-error emf _"Wrong number of args.")))
 		 ((null (cddr args))
 		  (if (eql nreq 2) 
 		      (invoke-fast-method-call emf (car args) (cadr args))
-		      (internal-program-error emf "Wrong number of args.")))
+		      (internal-program-error emf _"Wrong number of args.")))
 		 (t
 		  (apply (fast-method-call-function emf)
 			 (fast-method-call-pv-cell emf)
@@ -930,7 +931,7 @@ work during bootstrapping.
 	    (method-call-call-method-args emf)))
     (fixnum 
      (cond ((null args)
-	    (internal-program-error emf "1 or 2 args expected."))
+	    (internal-program-error emf _"1 or 2 args expected."))
 	   ((null (cdr args))
 	    (let ((value (%slot-ref (get-slots (car args)) emf)))
 	      (if (eq value +slot-unbound+)
@@ -940,10 +941,10 @@ work during bootstrapping.
 	    (setf (%slot-ref (get-slots (cadr args)) emf)
 		  (car args)))
 	   (t
-	    (internal-program-error emf "1 or 2 args expected."))))
+	    (internal-program-error emf _"1 or 2 args expected."))))
     (fast-instance-boundp
      (if (or (null args) (cdr args))
-	 (internal-program-error emf "1 arg expected.")
+	 (internal-program-error emf _"1 arg expected.")
 	 (not (eq (%slot-ref (get-slots (car args)) 
 			     (fast-instance-boundp-index emf))
 		  +slot-unbound+))))
@@ -1044,7 +1045,7 @@ work during bootstrapping.
 	   (omethods (compute-applicable-methods gf orig-args))
 	   (nmethods (compute-applicable-methods gf cnm-args)))
       (unless (equal omethods nmethods)
-	(error "~@<The set of methods ~s applicable to argument~p ~
+	(error _"~@<The set of methods ~s applicable to argument~p ~
                 ~{~s~^, ~} to call-next-method is different from ~
                 the set of methods ~s applicable to the original ~
                 method argument~p ~{~s~^, ~}.~@:>"
@@ -1065,7 +1066,7 @@ work during bootstrapping.
 (in-package :pcl)
 	
 (defun too-many-args ()
-  (simple-program-error "Too many arguments."))
+  (simple-program-error _"Too many arguments."))
 
 (declaim (inline get-key-arg))
 (defun get-key-arg (keyword list)
@@ -1310,7 +1311,7 @@ work during bootstrapping.
 			     method-info)))
 
 (defvar *compile-interpreted-methods-p* t
-  "When true, compile interpreted method functions.")
+  _N"When true, compile interpreted method functions.")
 
 (defun load-defmethod-internal
     (method-class gf-name qualifiers specializers lambda-list 
@@ -1343,7 +1344,7 @@ work during bootstrapping.
     (unless (or (eq method-class 'standard-method)
 		(eq (find-class method-class nil) (class-of method)))
       (format *error-output*
-	      "~&~@<At the time the method with qualifiers ~S and ~
+	      _"~&~@<At the time the method with qualifiers ~S and ~
                specializers ~S on the generic function ~S ~
                was compiled, the method class for that generic function was ~
                ~S.  But, the method class is now ~S, this ~
@@ -1465,13 +1466,13 @@ work during bootstrapping.
 (defun generic-clobbers-function (function-specifier)
   (restart-case
       (simple-program-error
-       "~@<~S already names an ordinary function or a macro.  ~
+       _"~@<~S already names an ordinary function or a macro.  ~
 	If you want to replace it with a generic function, you should remove ~
         the existing definition beforehand.~@:>"
        function-specifier)
     (continue ()
       :report (lambda (stream)
-		(format stream "~@<Discard the existing definition of ~S.~@:>"
+		(format stream _"~@<Discard the existing definition of ~S.~@:>"
 			function-specifier))
       (fmakunbound function-specifier))))
 
@@ -1569,7 +1570,7 @@ work during bootstrapping.
 	    (unless (and (= nreq gf-nreq)
 			 (= nopt gf-nopt)
 			 (eq (or keysp restp) gf-key/rest-p))
-	      (error "~@<The lambda-list ~S is incompatible with ~
+	      (error _"~@<The lambda-list ~S is incompatible with ~
                       existing methods of ~S.~@:>"
 		     lambda-list gf))))
 	(when lambda-list-p
@@ -1629,32 +1630,32 @@ work during bootstrapping.
       (analyze-lambda-list (method-lambda-list* method))
     (flet ((lose (format-control &rest format-args)
 	     (simple-program-error
-	      (format nil "~~@<Attempt to add the method ~~S to the generic ~
+	      (format nil _"~~@<Attempt to add the method ~~S to the generic ~
                            function ~~S, but ~?.~~@:>"
 		      format-control format-args)
 	      method gf))
 	   (compare (x y)
-	     (if (> x y) "more" "fewer")))
+	     (if (> x y) _"more" _"fewer")))
       (let ((gf-nreq (arg-info-number-required arg-info))
 	    (gf-nopt (arg-info-number-optional arg-info))
 	    (gf-key/rest-p (arg-info-key/rest-p arg-info))
 	    (gf-keywords (arg-info-keywords arg-info)))
 	(unless (= nreq gf-nreq)
-	  (lose "the method has ~A required arguments than the ~
+	  (lose _"the method has ~A required arguments than the ~
                  generic function"
 		(compare nreq gf-nreq)))
 	(unless (= nopt gf-nopt)
-	  (lose "the method has ~S optional arguments than the ~
+	  (lose _"the method has ~S optional arguments than the ~
                  generic function"
 		(compare nopt gf-nopt)))
 	(unless (eq (or keysp restp) gf-key/rest-p)
-	  (lose "the method and generic function differ in whether ~
+	  (lose _"the method and generic function differ in whether ~
                  they accept rest or keyword arguments"))
 	(when (consp gf-keywords)
 	  (unless (or (and restp (not keysp))
 		      allow-other-keys-p
 		      (every (lambda (k) (memq k keywords)) gf-keywords))
-	    (lose "the method does not accept each of the keyword ~
+	    (lose _"the method does not accept each of the keyword ~
                    arguments ~S"
 		  gf-keywords)))))))
 
@@ -1759,9 +1760,9 @@ work during bootstrapping.
 	 (if existing
 	     (make-early-gf spec lambda-list lambda-list-p existing
 			    argument-precedence-order)
-	     (error "~@<The function ~S is not already defined.~@:>" spec)))
+	     (error _"~@<The function ~S is not already defined.~@:>" spec)))
 	(existing
-	 (error "~@<~S should be on the list ~S.~@:>" spec
+	 (error _"~@<~S should be on the list ~S.~@:>" spec
 		'*generic-function-fixups*))
 	(t
 	 (pushnew spec *early-generic-functions* :test #'equal)
@@ -1780,7 +1781,7 @@ work during bootstrapping.
 		   (format stream "std-instance")))
 	     #'(kernel:instance-lambda (&rest args)
 		 (declare (ignore args))
-		 (error "~@<The function of the funcallable instance ~S ~
+		 (error _"~@<The function of the funcallable instance ~S ~
 			 has not been set.~@:>" fin)))))
     (setf (gdefinition spec) fin)
     (bootstrap-set-slot 'standard-generic-function fin 'name spec)
@@ -1875,7 +1876,7 @@ work during bootstrapping.
 			   (generic-function-methods gf)
 			   (early-gf-methods gf))))
 	  (if (null methods)
-	      (internal-error "~@<No way to determine the lambda list~@:>")
+	      (internal-error _"~@<No way to determine the lambda list~@:>")
 	      (gf-lambda-list-from-method (car (last methods)))))
 	(arg-info-lambda-list arg-info))))
 
@@ -1885,7 +1886,7 @@ work during bootstrapping.
 	    (setq ,gf-class (find-class ,gf-class t ,env)))
 	   ((classp ,gf-class))
 	   (t
-	    (error "~@<The ~s argument (~S) was neither a class nor a ~
+	    (error _"~@<The ~s argument (~S) was neither a class nor a ~
                     symbol naming a class.~@:>"
 		   :generic-function-class ,gf-class)))
      (remf ,all-keys :generic-function-class)
@@ -2082,7 +2083,7 @@ work during bootstrapping.
 		       (mapcar #'find-class (cadddr (fifth early-method))))))
 	    (t
 	     (cadddr (fifth early-method))))
-      (error "~S is not an early-method." early-method)))
+      (error _"~S is not an early-method." early-method)))
 
 (defun early-method-qualifiers (early-method)
   (cadr (fifth early-method)))
@@ -2120,9 +2121,9 @@ work during bootstrapping.
 (progn
   (defun add-method (generic-function method)
     (when (not (fsc-instance-p generic-function))
-      (error "Early add-method didn't get a funcallable instance."))
+      (error _"Early add-method didn't get a funcallable instance."))
     (when (not (and (listp method) (eq (car method) :early-method)))
-      (error "Early add-method didn't get an early method."))
+      (error _"Early add-method didn't get an early method."))
     (push method (early-gf-methods generic-function))
     (set-arg-info generic-function :new-method method)
     (unless (assoc (early-gf-name generic-function) *generic-function-fixups*
@@ -2135,9 +2136,9 @@ work during bootstrapping.
   ;;
   (defun remove-method (generic-function method)
     (when (not (fsc-instance-p generic-function))
-      (error "Early remove-method didn't get a funcallable instance."))
+      (error _"Early remove-method didn't get a funcallable instance."))
     (when (not (and (listp method) (eq (car method) :early-method)))
-      (error "Early remove-method didn't get an early method."))
+      (error _"Early remove-method didn't get an early method."))
     (setf (early-gf-methods generic-function)
 	  (remove method (early-gf-methods generic-function)))
     (set-arg-info generic-function)
@@ -2160,7 +2161,7 @@ work during bootstrapping.
 			 (equal (early-method-qualifiers m) qualifiers))
 		(return m)))
 	    (if errorp
-		(error "Can't get early method.")
+		(error _"Can't get early method.")
 		nil))
 	(real-get-method generic-function qualifiers specializers errorp))))
 
@@ -2255,7 +2256,7 @@ work during bootstrapping.
 	    (when (and (null lambda-list)
 		       (consp (car form))
 		       (consp (caar form)))
-	      (error "~@<Qualifiers must be non-null atoms: ~s~@:>"
+	      (error _"~@<Qualifiers must be non-null atoms: ~s~@:>"
 		     original-form))
 	    (return (values name qualifiers lambda-list form)))))
 
@@ -2266,10 +2267,10 @@ work during bootstrapping.
 	     (if (specializerp result)
 		 result
 		 (if (symbolp spec)
-		     (error "~@<~S used as a specializer, ~
+		     (error _"~@<~S used as a specializer, ~
                              but is not the name of a class.~@:>"
 			    spec)
-		     (error "~S is not a legal specializer." spec))))))
+		     (error _"~S is not a legal specializer." spec))))))
     (mapcar #'parse specializers)))
 
 (defun unparse-specializers (specializers-or-method)
@@ -2285,7 +2286,7 @@ work during bootstrapping.
                                class-name
                                type))
                          type))
-		   (error "~S is not a legal specializer." spec))))
+		   (error _"~S is not a legal specializer." spec))))
 	(mapcar #'unparse specializers-or-method))
       (unparse-specializers (method-specializers specializers-or-method))))
 
diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index 06a2ec5f8cc017c5ea9ed027f8cbe447bcc8190a..9e78311babc7ebc66f495968e61cc2214fafec3a 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.51 2008/05/24 14:41:39 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.52 2010/03/19 15:19:03 rtoy Rel $")
 
 ;;;
 ;;; Bootstrapping the meta-braid.
@@ -39,6 +39,7 @@
 ;;; 
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (defun allocate-standard-instance (wrapper &optional (slots-init nil slots-init-p))
   (declare #.*optImize-speed*)
@@ -72,7 +73,7 @@
      fin
      #'(kernel:instance-lambda (&rest args)
          (declare (ignore args))
-	 (error "~@<The function of the funcallable instance ~S ~
+	 (error _"~@<The function of the funcallable instance ~S ~
                  has not been set.~@:>"
 		fin)))
     (setf (fsc-instance-wrapper fin) wrapper
@@ -198,7 +199,7 @@
 		   class)
 	      (dolist (slot slots)
 		(unless (eq (getf slot :allocation :instance) :instance)
-		  (error "~@<Slot allocation ~S is not supported ~
+		  (error _"~@<Slot allocation ~S is not supported ~
                           in bootstrap.~@:>"
 			 (getf slot :allocation))))
 	      
@@ -256,7 +257,7 @@
 	       (bootstrap-set-slot 'standard-method-combination smc name value)))
 	(set-slot 'source *load-pathname*)
 	(set-slot 'type 'standard)
-	(set-slot 'documentation "The standard method combination.")
+	(set-slot 'documentation _N"The standard method combination.")
 	(set-slot 'options ()))
       (setq *standard-method-combination* smc))))
 
@@ -455,7 +456,7 @@
     (dolist (super (cadr e))
       (unless (or (eq super t)
 		  (assq super *built-in-classes*))
-	(error "In *built-in-classes*: ~S has ~S as a superclass,~%~
+	(error _"In *built-in-classes*: ~S has ~S as a superclass,~%~
                 but ~S is not itself a class in *built-in-classes*."
 	       (car e) super super))))
   ;;
@@ -560,7 +561,7 @@
 		     (mapcar #'slot-initargs-from-condition-slotd
 			     (conditions::condition-class-slots class)))))
 	  (t
-	   (error "~@<~S is not the name of a class.~@:>" name)))))
+	   (error _"~@<~S is not the name of a class.~@:>" name)))))
 
 (defun reinitialize-structure-class (kernel-class)
   (let ((class (kernel:%class-pcl-class kernel-class)))
@@ -675,13 +676,13 @@
   ((function :reader no-applicable-method-function :initarg :function)
    (arguments :reader no-applicable-method-arguments :initarg :arguments))
   (:report (lambda (condition stream)
-             (format stream "~@<No matching method for the generic function ~
+             (format stream _"~@<No matching method for the generic function ~
                              ~S, when called with arguments ~S.~@:>"
                      (no-applicable-method-function condition)
                      (no-applicable-method-arguments condition)))))
 
 (defmethod no-applicable-method (generic-function &rest args)
-  (cerror "Retry call to ~S."
+  (cerror _"Retry call to ~S."
           'no-applicable-method-error
           :function generic-function
           :arguments args)
@@ -692,27 +693,27 @@
    (arguments :reader no-next-method-arguments :initarg :arguments))
   (:report (lambda (condition stream)
              (format stream
-		     "~@<In method ~S: No next method for arguments ~S.~@:>"
+		     _"~@<In method ~S: No next method for arguments ~S.~@:>"
                      (no-next-method-method condition)
                      (no-next-method-arguments condition)))))
 
 (defmethod no-next-method ((generic-function standard-generic-function)
 			   (method standard-method)
 			   &rest args)
-  (cerror "Try again." 'no-next-method-error :method method :arguments args)
+  (cerror _"Try again." 'no-next-method-error :method method :arguments args)
   (apply generic-function args))
 
 (define-condition no-primary-method-error (no-applicable-method-error)
   ()
   (:report (lambda (condition stream)
-             (format stream "~@<Generic function ~S: ~
+             (format stream _"~@<Generic function ~S: ~
                              No primary method given arguments ~S~@:>"
                      (no-applicable-method-function condition)
                      (no-applicable-method-arguments condition)))))
 
 (defmethod no-primary-method ((generic-function standard-generic-function)
 			      &rest args)
-  (cerror "Try again." 'no-primary-method-error
+  (cerror _"Try again." 'no-primary-method-error
 	  :function generic-function :arguments args)
   (apply generic-function args))
 
@@ -724,11 +725,11 @@
 
 (defmethod invalid-qualifiers ((gf generic-function) combin args methods)
   (if (null (cdr methods))
-      (error "~@<In a call to ~s with arguments ~:s: ~
+      (error _"~@<In a call to ~s with arguments ~:s: ~
               The method ~s has invalid qualifiers for method ~
               combination ~s.~@:>"
 	 gf args (car methods) combin)
-      (error "~@<In a call to ~s with arguments ~:s: ~
+      (error _"~@<In a call to ~s with arguments ~:s: ~
               The methods ~{~s~^, ~} have invalid qualifiers for ~
               method combination ~s.~@:>"
 	 gf args methods combin)))
diff --git a/pcl/cache.lisp b/pcl/cache.lisp
index 5d8efb1c6ad55e4459c992b47bcb71e5626f7f79..0d51496fda918a5b4373401145c50a5948740231 100644
--- a/pcl/cache.lisp
+++ b/pcl/cache.lisp
@@ -25,13 +25,14 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.35 2005/06/20 13:03:21 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.36 2010/03/19 15:19:03 rtoy Rel $")
 
 ;;;
 ;;; The basics of the PCL wrapper cache mechanism.
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; The caching algorithm implemented:
@@ -347,7 +348,7 @@
 (defun print-wrapper (wrapper stream depth)
   (declare (ignore depth))
   (print-unreadable-object (wrapper stream :identity t)
-    (format stream "Wrapper ~S" (wrapper-class wrapper))))
+    (format stream _"Wrapper ~S" (wrapper-class wrapper))))
 
 (defmacro wrapper-class* (wrapper)
   `(let ((wrapper ,wrapper))
@@ -421,7 +422,7 @@
 	  ((eq (car state) :obsolete)
 	   (obsolete-instance-trap owrapper (second state) instance))
 	  (t
-	   (internal-error "Unknown wrapper state")))))
+	   (internal-error _"Unknown wrapper state")))))
 
 (declaim (inline check-obsolete-instance))
 (defun check-obsolete-instance (instance)
@@ -660,7 +661,7 @@
 		     ((*subtypep meta-specializer structure) 'structure-instance)
 		     ((*subtypep meta-specializer built-in)  'built-in-instance)
 		     ((*subtypep meta-specializer slot)      'slot-instance)
-		     (t (error "~@<PCL cannot handle the specializer ~S ~
+		     (t (error _"~@<PCL cannot handle the specializer ~S ~
                                 (meta-specializer ~S).~@:>"
 			       new-specializer meta-specializer))))))
       ;;
@@ -810,7 +811,7 @@
 	      (line-location (line)
 		(declare (fixnum line))
 		(when (line-reserved-p line)
-		  (internal-error "Line is reserved."))
+		  (internal-error _"Line is reserved."))
 		(if (= (nkeys) 1)
 		    (the fixnum (* line (line-size)))
 		    (the fixnum (1+ (the fixnum (* line (line-size)))))))
@@ -833,7 +834,7 @@
 	      (line-wrappers (line)
 		(declare (fixnum line))
 		(when (line-reserved-p line)
-		  (internal-error "Line is reserved."))
+		  (internal-error _"Line is reserved."))
 		(location-wrappers (line-location line)))
 	      ;;
 	      (location-wrappers (location) ; avoid multiplies caused by line-location
@@ -874,7 +875,7 @@
 	      (line-value (line)
 		(declare (fixnum line))
 		(when (line-reserved-p line)
-		  (internal-error "Line is reserved."))
+		  (internal-error _"Line is reserved."))
 		(location-value (line-location line)))
 	      ;;
 	      (location-value (loc)
@@ -887,7 +888,7 @@
 	      ;; checked.  An error is signalled if line is reserved.
 	      (line-full-p (line)
 		(when (line-reserved-p line)
-		  (internal-error "Line is reserved."))
+		  (internal-error _"Line is reserved."))
 		(not (null (cache-vector-ref (vector) (line-location line)))))
 	      ;;
 	      ;; Given a line number, return true IFF the line is full and
@@ -898,7 +899,7 @@
 	      (line-valid-p (line wrappers)
 		(declare (fixnum line))
 		(when (line-reserved-p line)
-		  (internal-error "Line is reserved."))
+		  (internal-error _"Line is reserved."))
 		(location-valid-p (line-location line) wrappers))
 	      ;;
 	      (location-valid-p (loc wrappers)
@@ -1033,7 +1034,7 @@
 					  home-loc)))
 		 (sep (when home (line-distance home i))))
 	    (when (and sep (> sep limit))
-	      (internal-error "~@<Bad cache ~S: Value at location ~D is ~D ~
+	      (internal-error _"~@<Bad cache ~S: Value at location ~D is ~D ~
                                lines from its home, limit is ~D.~@:>"
 			      cache location sep limit))))
 	(setq location (next-location location))))))
@@ -1139,7 +1140,7 @@
 	  (let ((line free))
 	    (declare (fixnum line))
 	    (when (line-reserved-p line)
-	      (internal-error "Attempt to fill a reserved cache line."))
+	      (internal-error _"Attempt to fill a reserved cache line."))
 	    (let ((loc (line-location line))
 		  (cache-vector (vector)))
 	      (declare (fixnum loc) (simple-vector cache-vector))
@@ -1177,7 +1178,7 @@
 	    (declare (fixnum to-line))
 	    (if (line-reserved-p to-line)
 		(internal-error
-		 "Transfering something into a reserved cache line.")
+		 _"Transfering something into a reserved cache line.")
 		(let ((from-loc (line-location from-line))
 		      (to-loc (line-location to-line)))
 		  (declare (fixnum from-loc to-loc))
diff --git a/pcl/clos-bench.lisp b/pcl/clos-bench.lisp
index 593a4ed29d1878bd8b423f7f969b4e99f5a05215..d654e3ff65f4436bff0b57d2289c586bdece2019 100644
--- a/pcl/clos-bench.lisp
+++ b/pcl/clos-bench.lisp
@@ -55,12 +55,14 @@
 ;;; jmorrill@bbn.com
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/clos-bench.lisp,v 1.3 2003/05/22 15:50:06 gerd Rel $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/clos-bench.lisp,v 1.4 2010/03/19 15:19:03 rtoy Rel $")
  
 #+cmu
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (import '(pcl:allocate-instance pcl::allocate-standard-instance)))
 
+(intl:textdomain "cmucl")
+
 #+nil
 (declaim (optimize (speed 3) (safety 1) (space 0)
 		   (compilation-speed 0)))
diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp
index efa04c456121198813d0f044791d88eb2ee048ad..bfa2e88e42d6fea5ac339abebce28b4e4997dab3 100644
--- a/pcl/cmucl-documentation.lisp
+++ b/pcl/cmucl-documentation.lisp
@@ -4,7 +4,7 @@
 ;;; the public domain, and is provided 'as is'.
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.16 2005/12/01 17:08:26 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.17 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -43,22 +43,50 @@
 
 (defmethod (setf documentation) (new-value (x list) (doc-type (eql 'function)))
   (unless (valid-function-name-p x)
-    (simple-program-error "Invalid function name ~s" x))
+    (simple-program-error _"Invalid function name ~s" x))
   (if (eq 'setf (cadr x))
-      (setf (info setf documentation (cadr x)) new-value)
-      (setf (info function documentation x) new-value))
+      (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*))
+	(setf (info function textdomain x) intl::*default-domain*)
+	(setf (info function documentation x) new-value)))
   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*)
   (setf (info setf documentation x) new-value))
 
 ;;; Packages.
@@ -111,44 +139,57 @@
 	 nil)))
 
 (defmethod (setf documentation) (new-value (x kernel::structure-class) (doc-type (eql 't)))
+  (setf (info type textdomain (kernel:%class-name x)) intl::*default-domain*)
   (setf (info type documentation (kernel:%class-name x)) new-value))
 
 (defmethod (setf documentation) (new-value (x structure-class) (doc-type (eql 't)))
+  (setf (info type textdomain x) intl::*default-domain*)
   (setf (info type documentation (class-name x)) new-value))
 
 (defmethod (setf documentation) (new-value (x kernel::structure-class) (doc-type (eql 'type)))
+  (setf (info type textdomain x) intl::*default-domain*)
   (setf (info type documentation (kernel:%class-name x)) new-value))
 
 (defmethod (setf documentation) (new-value (x structure-class) (doc-type (eql 'type)))
+  (setf (info type textdomain x) intl::*default-domain*)
   (setf (info type documentation (class-name x)) new-value))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'type)))
   (if (or (structure-type-p x) (condition-type-p x))
-      (setf (info type documentation x) new-value)
+      (progn
+	(setf (info type textdomain x) intl::*default-domain*)
+	(setf (info type documentation x) new-value))
       (let ((class (find-class x nil)))
 	(if class
 	    (setf (plist-value class 'documentation) new-value)
-	    (setf (info type documentation x) new-value)))))
+	    (progn
+	      (setf (info type textdomain x) intl::*default-domain*)
+	      (setf (info type documentation x) new-value))))))
 
 #+nil
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'structure)))
   (unless (eq (info type kind x) :instance)
-    (simple-program-error "~@<~S is not the name of a structure type.~@:>" x))
+    (simple-program-error _"~@<~S is not the name of a structure type.~@:>" x))
   (setf (info type documentation x) new-value))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'structure)))
   (cond ((eq (info type kind x) :instance)
+	 (setf (info type textdomain x) intl::*default-domain*)
 	 (setf (info type documentation x) new-value))
 	((info typed-structure info x)
+	 (setf (info typed-structure textdomain x) intl::*default-domain*)
 	 (setf (info typed-structure documentation x) new-value))
 	(t
-	 (simple-program-error "~@<~S is not the name of a structure type.~@:>" x))))
+	 (simple-program-error _"~@<~S is not the name of a structure type.~@:>" x))))
 
 ;;; Variables.
 (defmethod documentation ((x symbol) (doc-type (eql 'variable)))
   (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))
 
 ;;; Compiler macros
@@ -175,12 +216,38 @@
   (set-random-documentation x doc-type new-value)
   new-value)
 
+;;; Define AROUND methods to translate the docstring.
+(macrolet
+    ((frob (dt)
+	`(defmethod documentation :around ((x t) (doc-type (eql ',dt)))
+	   (let ((doc (call-next-method))
+		 (domain (info ,dt :textdomain x)))
+	     (or (intl:dgettext domain doc)
+		 doc)))))
+  (frob function)
+  (frob setf)
+  (frob type)
+  (frob variable))
+
+(defmethod documentation ((x symbol) (doc-type (eql 'structure)))
+  (let ((doc (call-next-method))
+	(domain (cond ((eq (info type kind x) :instance)
+		       (values (info type textdomain x)))
+		      ((info typed-structure info x)
+		       (values (info typed-structure textdomain x)))
+		      (t
+		       nil))))
+    (or (intl:dgettext domain doc)
+	doc)))
+
+  
+
 ;;; Replace the minimal documentation function with the PCL version
 ;;; when loaded.
 (eval-when (:load-toplevel)
   (setf (symbol-function 'lisp:documentation) #'documentation)
   (setf (documentation 'documentation 'function)
-    "Returns the documentation string of Doc-Type for X, or NIL if
+    _N"Returns the documentation string of Doc-Type for X, or NIL if
   none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,
   SETF, and T.")
   (setf (fdefinition '(setf lisp:documentation)) #'(setf documentation)))
diff --git a/pcl/combin.lisp b/pcl/combin.lisp
index 457a48d93b59cdd2a143b210c1d788a320ce9176..cb705ed62d05e0f3302ebd96757111c3314abe17 100644
--- a/pcl/combin.lisp
+++ b/pcl/combin.lisp
@@ -25,9 +25,10 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.25 2005/07/26 13:18:21 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.26 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; In the following:
@@ -104,7 +105,7 @@
 	  (cond ((null qualifiers)
 		 (primary m))
 		((cdr qualifiers)
-		 (invalid-method m "has more than one qualifier"))
+		 (invalid-method m _"has more than one qualifier"))
 		((eq (car qualifiers) :around)
 		 (around m))
 		((eq (car qualifiers) :before)
@@ -112,7 +113,7 @@
 		((eq (car qualifiers) :after)
 		 (after m))
 		(t
-		 (invalid-method m "has an invalid qualifier")))))
+		 (invalid-method m _"has an invalid qualifier")))))
       (cond ((invalid)
 	     `(%invalid-qualifiers ',gf ',combin .args. ',(invalid)))
 	    ((null (primary))
@@ -154,7 +155,7 @@
 	(lambda (&rest args)
 	  (declare (ignore args))
 	  (error
-	   "~@<~s was called outside the dynamic scope ~
+	   _"~@<~s was called outside the dynamic scope ~
             of a method combination function (inside the body of ~
             ~s or a method on the generic function ~s).~@:>"
 	   'invalid-method-error 'define-method-combination
@@ -164,7 +165,7 @@
 	(lambda (&rest args)
 	  (declare (ignore args))
 	  (error
-	   "~@<~s was called outside the dynamic scope ~
+	   _"~@<~s was called outside the dynamic scope ~
             of a method combination function (inside the body of ~
             ~s or a method on the generic function ~s).~@:>"
 	   'method-combination-error 'define-method-combination
@@ -181,7 +182,7 @@
   ;;
   ;; Hack: The PROGN is here so that RESTART-CASE doesn't see the
   ;; ERROR.  See MUNGE-RESTART-CASE-EXPRESSION in code:error.lisp.
-  `(progn (error "~@<~S used outside of a effective method form.~@:>" 'call-method)))
+  `(progn (error _"~@<~S used outside of a effective method form.~@:>" 'call-method)))
 
 (defmacro call-method-list (&rest calls)
   `(progn ,@calls))
@@ -396,7 +397,7 @@
 	 (when (null args)
 	   (when (and (invalid) (not allow-other-keys))
 	     (simple-program-error
-	      "~@<Invalid keyword argument~p ~{~s~^, ~}.  ~
+	      _"~@<Invalid keyword argument~p ~{~s~^, ~}.  ~
                Valid keywords are: ~{~s~^, ~}.~@:>"
 	      (length (invalid))
 	      (invalid)
@@ -417,10 +418,10 @@
 	 (pop args)))))
 
 (defun odd-number-of-keyword-arguments ()
-  (simple-program-error "Odd number of keyword arguments."))
+  (simple-program-error _"Odd number of keyword arguments."))
 
 (defun invalid-keyword-argument (key)
-  (simple-program-error "Invalid keyword argument ~s" key))
+  (simple-program-error _"Invalid keyword argument ~s" key))
 
 ;;;
 ;;; Return a lambda-form for an effective method of generic function
diff --git a/pcl/cpl.lisp b/pcl/cpl.lisp
index 1f994c003e564c4d538deece2e89df6dca5a92df..a1f0a7b937fd9400dd67f031f778e6eacb3a1390 100644
--- a/pcl/cpl.lisp
+++ b/pcl/cpl.lisp
@@ -26,10 +26,11 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cpl.lisp,v 1.13 2003/05/04 13:11:22 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cpl.lisp,v 1.14 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; compute-class-precedence-list
@@ -216,40 +217,40 @@
 
 (defun cpl-error (class format-string &rest format-args)
   (error
-   (format nil "~~@<While computing the class precedence list ~
+   (format nil _"~~@<While computing the class precedence list ~
                 of the class ~A: ~?.~~@:>"
 	   (if (class-name class)
-	       (format nil "named ~S" (class-name class))
+	       (format nil _"named ~S" (class-name class))
 	       class)
 	   format-string format-args)))
 
 (defun cpl-forward-referenced-class-error (class forward-class)
   (flet ((class-or-name (class)
 	   (if (class-name class)
-	       (format nil "named ~S" (class-name class))
+	       (format nil _"named ~S" (class-name class))
 	       class)))
     (if (eq class forward-class)
 	(cpl-error class
-		   "The class ~A is a forward referenced class"
+		   _"The class ~A is a forward referenced class"
 		   (class-or-name class))
 	(let ((names (mapcar #'class-or-name
 			     (cdr (find-superclass-chain class forward-class)))))
 	  (cpl-error class
-		     "The class ~A is a forward referenced class. ~
+		     _"The class ~A is a forward referenced class. ~
                       The class ~A is ~A."
 		     (class-or-name forward-class)
 		     (class-or-name forward-class)
 		     (if (null (cdr names))
 			 (format nil
-				 "a direct superclass of the class ~A"
+				 _"a direct superclass of the class ~A"
 				 (class-or-name class))
 			 (format nil
-				 "reached from the class ~A by following~@
+				 _"reached from the class ~A by following~@
                                   the direct superclass chain through: ~A~
                                   ~%  ending at the class ~A"
 				 (class-or-name class)
 				 (format nil
-					 "~{~%  the class ~A,~}"
+					 _"~{~%  the class ~A,~}"
 					 (butlast names))
 				 (car (last names)))))))))
 
@@ -265,18 +266,18 @@
 (defun cpl-inconsistent-error (class all-cpds)
   (let ((reasons (find-cycle-reasons all-cpds)))
     (cpl-error class
-      "It is not possible to compute the class precedence list because ~
+      _"It is not possible to compute the class precedence list because ~
        there ~A in the local precedence relations.  ~
        ~A because:~{~%  ~A~}."
-      (if (cdr reasons) "are circularities" "is a circularity")
-      (if (cdr reasons) "These arise" "This arises")
+      (if (cdr reasons) _"are circularities" _"is a circularity")
+      (if (cdr reasons) _"These arise" _"This arises")
       (format-cycle-reasons (apply #'append reasons)))))
 
 (defun format-cycle-reasons (reasons)
   (flet ((class-or-name (cpd)
 	   (let ((class (cpd-class cpd)))
 	     (if (class-name class)
-		 (format nil "named ~S" (class-name class))
+		 (format nil _"named ~S" (class-name class))
 		 class))))
     (mapcar
       (lambda (reason)
@@ -284,13 +285,13 @@
 	  (:super
 	   (format
 	    nil
-	    "the class ~A appears in the supers of the class ~A"
+	    _"the class ~A appears in the supers of the class ~A"
 	    (class-or-name (cadr reason))
 	    (class-or-name (car reason))))
 	  (:in-supers
 	   (format
 	    nil
-	    "the class ~A follows the class ~A in the supers of the class ~A"
+	    _"the class ~A follows the class ~A in the supers of the class ~A"
 	    (class-or-name (cadr reason))
 	    (class-or-name (car reason))
 	    (class-or-name (cadddr reason))))))      
diff --git a/pcl/ctor.lisp b/pcl/ctor.lisp
index 4bd9528e155313f36a0c4ab25b0136a2bc0d9de4..47fe077918707c67cab475f306a43106d22d0f92 100644
--- a/pcl/ctor.lisp
+++ b/pcl/ctor.lisp
@@ -46,9 +46,10 @@
 ;;; is called.
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.18 2007/05/02 13:33:46 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.19 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 ;;; ******************
 ;;; Utilities  *******
@@ -66,7 +67,7 @@
 (defun plist-keys (plist &key test)
   (loop for (key . more) on plist by #'cddr
 	if (null more) do
-	  (error "~@<Not a property list: ~S.~@:>" plist)
+	  (error _"~@<Not a property list: ~S.~@:>" plist)
 	else if (or (null test) (funcall test key))
 	  collect key))
 
diff --git a/pcl/ctypes.lisp b/pcl/ctypes.lisp
index e0d216245dde79a4673c861f0b8d170199529866..049e57275ca42277d3c3f41c37e0ae51952c915f 100644
--- a/pcl/ctypes.lisp
+++ b/pcl/ctypes.lisp
@@ -25,6 +25,7 @@
 ;;; *************************************************************************
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; The built-in method combination types as taken from page 1-31 of 88-002R.
diff --git a/pcl/defclass.lisp b/pcl/defclass.lisp
index 2232dd14bc778a9640dd4c779a98d95f4a4b317b..7e1a8dc8096a7a38e7c0a28aeab60985ccf5cace 100644
--- a/pcl/defclass.lisp
+++ b/pcl/defclass.lisp
@@ -25,10 +25,12 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defclass.lisp,v 1.30 2004/04/06 20:44:03 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defclass.lisp,v 1.31 2010/03/19 15:19:03 rtoy Exp $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
+
 
 ;;;
 ;;; MAKE-TOP-LEVEL-FORM is used by all PCL macros that appear `at top-level'.
@@ -107,12 +109,12 @@
     ;; TBD - ANSI compliant class and slot option checking.
     (dolist (option options)
       (if (not (listp option))
-          (simple-program-error "~S is not a legal defclass option."
+          (simple-program-error _"~S is not a legal defclass option."
 				option)
           (when (eq (car option) :metaclass)
             (unless (legal-class-name-p (cadr option))
               (simple-program-error
-	       "~@<The value of the ~s option (~s) is not a legal ~
+	       _"~@<The value of the ~s option (~s) is not a legal ~
 	        class name.~@:>"
 	       :metaclass (cadr option)))
 	    (setq metaclass (cadr option))
@@ -215,12 +217,12 @@
 	 (push spec *slots*)
 	 `'(:name ,spec))
 	((not (consp spec))
-	 (error "~@<~S is not a legal slot specification.~@:>" spec))
+	 (error _"~@<~S is not a legal slot specification.~@:>" spec))
 	((null (cdr spec))
 	 (push (car spec) *slots*)
 	 `'(:name ,(car spec)))
 	((null (cddr spec))
-	 (error "~@<In the class definintion of ~s, the slot specification ~s ~
+	 (error _"~@<In the class definintion of ~s, the slot specification ~s ~
                  is obsolete.  Convert it to ~s.~@:>"
 		class-name spec
 		(list (car spec) :initform (cadr spec))))
@@ -286,7 +288,7 @@
 
 (defun early-class-definition (class-name)
   (or (find class-name *early-class-definitions* :key #'ecd-class-name)
-      (error "~@<~S is not a class in *early-class-definitions*.~@:>"
+      (error _"~@<~S is not a class in *early-class-definitions*.~@:>"
 	     class-name)))
 
 (defun make-early-class-definition
@@ -336,7 +338,7 @@
       (let ((name1 (canonical-slot-name s1)))
 	(dolist (s2 (cdr (memq s1 slots)))
 	  (when (eq name1 (canonical-slot-name s2))
-	    (error "~@<More than one early class defines a slot with the ~
+	    (error _"~@<More than one early class defines a slot with the ~
                     name ~S.  This can't work because the bootstrap ~
                     object system doesn't know how to compute effective ~
                     slots.~@:>"
@@ -362,8 +364,8 @@
 		       (setq default-initargs
 			     (nconc default-initargs (reverse (pop others)))))
 		      (t
-		       (cerror "Discard it."
-			       "~@<The defclass option ~S is not supported by ~
+		       (cerror _"Discard it."
+			       _"~@<The defclass option ~S is not supported by ~
                                  the bootstrap object system.~@:>"
 			       initarg)
 		       (pop others)))))))
@@ -371,7 +373,7 @@
 
 (defun bootstrap-slot-index (class-name slot-name)
   (or (position slot-name (early-class-slots class-name))
-      (internal-error "Slot ~S not found in class ~S" slot-name class-name)))
+      (internal-error _"Slot ~S not found in class ~S" slot-name class-name)))
 
 ;;;
 ;;; bootstrap-get-slot and bootstrap-set-slot are used to access and change
diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp
index 696f6756c5361c7254ee890df4d098f5b19b8141..e45de6014ecdf7d47db00f9c5cbb9f755388f6d0 100644
--- a/pcl/defcombin.lisp
+++ b/pcl/defcombin.lisp
@@ -25,9 +25,10 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.27 2005/05/16 13:12:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.28 2010/03/19 15:19:03 rtoy Exp $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; DEFINE-METHOD-COMBINATION
@@ -162,7 +163,7 @@
 	((equal options '(:most-specific-last)))
 	(t
 	 (method-combination-error
-	   "~@<Invalid options to a short method combination type.  ~
+	   _"~@<Invalid options to a short method combination type.  ~
             The method combination type ~S accepts one option which ~
             must be either ~s or ~s.~@:>"
 	   type :most-specific-first :most-specific-last)))
@@ -189,7 +190,7 @@
 	(labels ((lose (method why)
 		 (invalid-method-error
 		   method
-		   "~@<The method ~S ~A.  ~
+		   _"~@<The method ~S ~A.  ~
                     The method combination type ~S was defined with the ~
                     short form of ~s and so requires all methods have ~
 		    either the single qualifier ~S or the single qualifier ~
@@ -201,15 +202,15 @@
 		       (push method invalid)
 		       (lose method why))))
 	  (cond ((null qualifiers)
-		 (invalid-method m "has no qualifiers"))
+		 (invalid-method m _"has no qualifiers"))
 		((cdr qualifiers)
-		 (invalid-method m "has more than one qualifier"))
+		 (invalid-method m _"has more than one qualifier"))
 		((eq (car qualifiers) :around)
 		 (push m around))
 		((eq (car qualifiers) type)
 		 (push m primary))
 		(t
-		 (invalid-method m "has an illegal qualifier"))))))
+		 (invalid-method m _"has an illegal qualifier"))))))
     (setq around (nreverse around))
     (unless (eq order :most-specific-last)
       (setq primary (nreverse primary)))
@@ -335,7 +336,7 @@
 		      (if (and (equal ,specializer-cache .specializers.)
 			       (not (null .specializers.)))
 			  (return-from .long-method-combination-function.
-			    '(error "~@<More than one method of type ~S ~
+			    '(error _"~@<More than one method of type ~S ~
                                      with the same specializers.~@:>"
 			            ',name))
 			   (setq ,specializer-cache .specializers.))
@@ -344,7 +345,7 @@
 	  (when required
 	    (push `(when (null ,name)
 		     (return-from .long-method-combination-function.
-		       '(error "No ~S methods." ',name)))
+		       '(error _"No ~S methods." ',name)))
 		  required-checks))
 	  (loop (unless (and (constantp order)
 			     (neq order (setq order (eval order))))
@@ -390,7 +391,7 @@
 	((eq pattern '*) t)
 	((symbolp pattern) `(,pattern .qualifiers.))
 	((listp pattern) `(qualifier-check-runtime ',pattern .qualifiers.))
-	(t (error "~@<In the method group specifier ~S, ~
+	(t (error _"~@<In the method group specifier ~S, ~
                    ~S isn't a valid qualifier pattern.~@:>"
 		  name pattern))))
 
@@ -409,10 +410,10 @@
 (defun make-default-method-group-description (patterns)
   (if (cdr patterns)
       (format nil
-	      "methods matching one of the patterns: ~{~S, ~} ~S"
+	      _"methods matching one of the patterns: ~{~S, ~} ~S"
 	      (butlast patterns) (car (last patterns)))
       (format nil
-	      "methods matching the pattern: ~S"
+	      _"methods matching the pattern: ~S"
 	      (car patterns))))
 
 ;;;
@@ -426,7 +427,7 @@
 	 (loop for arg in args-lambda-list
 	       as var = (if (consp arg) (car arg) arg)
 	       unless (symbolp var) do
-		 (error "Invalid parameter specifier: ~s" arg)
+		 (error _"Invalid parameter specifier: ~s" arg)
 	       unless (memq arg lambda-list-keywords)
 	         collect `(,var ',var)))
 	(nreq 0)
diff --git a/pcl/defs.lisp b/pcl/defs.lisp
index 17152a071a01a68e7557742566952c84c85a7032..b02b0e7fd7bb9f02fd8d3a3a62482e19a410f280 100644
--- a/pcl/defs.lisp
+++ b/pcl/defs.lisp
@@ -25,16 +25,17 @@
 ;;; *************************************************************************
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 #-(or loadable-pcl bootable-pcl)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (when (eq *boot-state* 'complete)
-    (error "~@<Trying to load (or compile) PCL in an environment in which it ~
+    (error _"~@<Trying to load (or compile) PCL in an environment in which it ~
             has already been loaded.  This doesn't work, you will have to ~
             get a fresh lisp (reboot) and then load PCL.~@:>"))
   
   (when *boot-state*
-    (cerror "Try loading (or compiling) PCL anyways."
+    (cerror _"Try loading (or compiling) PCL anyways."
 	    "~@<Trying to load (or compile) PCL in an environment in which it ~
              has already been partially loaded.  This may not work, you may ~
              need to get a fresh lisp (reboot) and then load PCL.~@:>")))
@@ -145,7 +146,7 @@
 	 t)
 	((consp specl)
          (unless (member (car specl) '(class class-eq eql))
-           (error "~@<~S is not a legal specializer type.~@:>" specl))
+           (error _"~@<~S is not a legal specializer type.~@:>" specl))
          specl)
         ((progn
 	   (when (symbolp specl)
@@ -155,7 +156,7 @@
 	       (specializerp specl)))
 	 (specializer-type specl))
         (t
-         (error "~@<~s is neither a type nor a specializer.~@:>" specl))))
+         (error _"~@<~s is neither a type nor a specializer.~@:>" specl))))
 
 (defun type-class (type)
   (declare (special *the-class-t*))
@@ -163,7 +164,7 @@
   (if (atom type)
       (if (eq type t)
 	  *the-class-t*
-	  (internal-error "Bad argument to type-class."))
+	  (internal-error _"Bad argument to type-class."))
       (case (car type)
         (eql (class-of (cadr type)))
         (class-eq (cadr type))
@@ -211,7 +212,7 @@
 	     (specializerp type))
 	 (specializer-type type))
         (t
-         (error "~s is not a type." type))))
+         (error _"~s is not a type." type))))
 
 ;;; internal to this file...
 (defun convert-to-system-type (type)
@@ -628,7 +629,7 @@
     :initarg :allocation
     :accessor slot-definition-allocation)
    (allocation-class
-    :documentation "For class slots, the class defininig the slot.
+    :documentation _N"For class slots, the class defininig the slot.
 For inherited class slots, this is the superclass from which the slot
 was inherited."
     :initform nil
diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp
index 082819678e79b2f59040f5d2f07044fb3ad758b4..6f84725ff6da03876c417a60367710c913d48d24 100644
--- a/pcl/defsys.lisp
+++ b/pcl/defsys.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.37 2008/11/12 16:36:41 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.38 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; Some support stuff for compiling and loading PCL.  It would be nice if
 ;;; there was some portable make-system we could all agree to share for a
@@ -54,6 +54,7 @@
 ;;;
 
 (in-package :cl-user)
+(intl:textdomain "cmucl")
 
 (defpackage "WALKER"
   (:use "COMMON-LISP" "EXT")
@@ -77,7 +78,7 @@
 ;;; 
 (defvar *the-pcl-package* (find-package :pcl))
 
-(defvar *pcl-system-date* "$Date: 2008/11/12 16:36:41 $")
+(defvar *pcl-system-date* "$Date: 2010/03/19 15:19:03 $")
 
 (setf (getf ext:*herald-items* :pcl)
       `("    CLOS based on Gerd's PCL " ,(if (>= (length *pcl-system-date*) 26)
diff --git a/pcl/dfun.lisp b/pcl/dfun.lisp
index f4d63faa29b77a2d93e8c4160af751cdaa74f213..577fba1e555d7b3f9fb392c6d3914cf82a84efe7 100644
--- a/pcl/dfun.lisp
+++ b/pcl/dfun.lisp
@@ -25,9 +25,10 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.39 2008/05/24 14:41:39 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.40 2010/03/19 15:19:03 rtoy Exp $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 #|
 
@@ -218,10 +219,10 @@ And so, we are saved.
 			 (funcallable-standard-instance-access object location)
 			 (standard-instance-access object location))))
 	  (when (eq +slot-unbound+ value)
-	    (error "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
+	    (error _"~@<Slot ~s of class ~s is unbound in object ~s~@:>"
 		   slot-name class object))
 	  value)
-	(error "~@<Cannot get standard value of slot ~s of class ~s ~
+	(error _"~@<Cannot get standard value of slot ~s of class ~s ~
                 in object ~s~@:>"
 	       slot-name class object))))
 
@@ -624,7 +625,7 @@ And so, we are saved.
 (defun show-dfun-costs (gf)
   (when (or (symbolp gf) (consp gf))
     (setq gf (gdefinition gf)))
-  (format t "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
+  (format t _"~&Name ~S  caching cost ~D  dispatch cost ~D~%"
 	  (generic-function-name gf)
 	  (caching-dfun-cost gf)
 	  (dispatch-dfun-cost gf)))
@@ -770,7 +771,7 @@ And so, we are saved.
 (defvar *early-p* nil)
 
 (defvar *max-emf-precomputation-methods* 100
-  "Precompute effective methods at method load time if the generic
+  _N"Precompute effective methods at method load time if the generic
    function has less than this number of methods.  If zero,
    no effective methods are precomputed at method load time.")
 
@@ -1128,11 +1129,11 @@ And so, we are saved.
     (with-dfun-wrappers (args metatypes)
       (dfun-wrappers invalid-wrapper-p wrappers classes types)
       #+nil
-      (error "~@<The function ~S requires at least ~D arguments.~@:>"
+      (error _"~@<The function ~S requires at least ~D arguments.~@:>"
 	     gf (length metatypes))
       (error 'kernel:simple-program-error
 	     :name gf
-	     :format-control "~<The function ~S requires at least ~D arguments.~@:>"
+	     :format-control _"~<The function ~S requires at least ~D arguments.~@:>"
 	     :format-arguments (list gf (length metatypes)))
       (multiple-value-bind (emf methods accessor-type index)
 	  (cache-miss-values-internal gf arg-info wrappers classes types state)
@@ -1208,7 +1209,7 @@ And so, we are saved.
 	    (return-from break-vicious-metacircle
 	      (values index (list method) type index)))))))
   (kernel:infinite-error-protect
-   (error "~@<Vicious metacircle:  The computation of an ~
+   (error _"~@<Vicious metacircle:  The computation of an ~
 	   effective method of ~s for arguments of types ~s uses ~
 	   the effective method being computed.~@:>"
 	  gf classes)))
@@ -1384,7 +1385,7 @@ And so, we are saved.
 		   (slot-name->class-table slot-name))))
       (maphash (lambda (class specl+slotd-list)
 		 (dolist (sclass (precedence class)
-			  (internal-error "This can't happen."))
+			  (internal-error _"This can't happen."))
 		   (let ((a (assq sclass specl+slotd-list)))
 		     (when a
 		       (let* ((slotd (cdr a))
@@ -1596,7 +1597,7 @@ And so, we are saved.
 	     (class-eq (saut-class-eq specl type))
 	     (eql (saut-eql specl type))
 	     (t (internal-error
-		 "~@<~s cannot handle the second argument ~s.~@:>"
+		 _"~@<~s cannot handle the second argument ~s.~@:>"
 		 'specializer-applicable-using-type-p type)))))))
 
 (defun saut-and (specl type)
@@ -1638,7 +1639,7 @@ And so, we are saved.
 	  (eql (not (eql (cadr specl) (cadr ntype))))
 	  (t t)))
        (t
-	(internal-error "~@<~s cannot handle the second argument ~s.~@:>"
+	(internal-error _"~@<~s cannot handle the second argument ~s.~@:>"
 			'specializer-applicable-using-type-p type))))))
 
 (defun saut-class (specl type)
@@ -1848,7 +1849,7 @@ And so, we are saved.
 		(sort (third type+count+sizes) #'< :key #'car)))
 	dfun-count)
   (mapc (lambda (type+count+sizes)
-	  (format t "~&There are ~4d dfuns of type ~s"
+	  (format t _"~&There are ~4d dfuns of type ~s"
 		  (cadr type+count+sizes) (car type+count+sizes))
 	  (format t "~%   ~S~%" (caddr type+count+sizes)))
 	dfun-count)
@@ -1856,9 +1857,9 @@ And so, we are saved.
 
 
 (defun show-dfun-constructors ()
-  (format t "~&DFUN constructor caching is ~A." 
+  (format t _"~&DFUN constructor caching is ~A." 
 	  (if *enable-dfun-constructor-caching*
-	      "enabled" "disabled"))
+	      _"enabled" _"disabled"))
   (dolist (generator-entry *dfun-constructors*)
     (dolist (args-entry (cdr generator-entry))
       (format t "~&~S ~S"
diff --git a/pcl/dlisp.lisp b/pcl/dlisp.lisp
index a035fce4f6763281a4f2cc5db3668675bd9f2d57..a5d534784a3b3e23eeaf014601146a6decd3fbee 100644
--- a/pcl/dlisp.lisp
+++ b/pcl/dlisp.lisp
@@ -25,10 +25,11 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp.lisp,v 1.12 2003/05/04 13:11:21 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp.lisp,v 1.13 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;; This file is (almost) functionally equivalent to dlap.lisp,
 ;;; but easier to read.
@@ -280,7 +281,7 @@
 				   args metatypes))
 	 (wrappers (mapcar #'car wrapper-bindings)))
     (declare (fixnum index))
-    (assert (not (null wrappers)) () "Every metatype is T.")
+    (assert (not (null wrappers)) () _"Every metatype is T.")
     `(block dfun
        (tagbody
 	  (let ((field (cache-field cache))
@@ -452,9 +453,9 @@
 	    (t
 	     (go ,miss-label))))
     (class
-     (assert (null slot) () "Can't do a slot reg for this metatype.")
+     (assert (null slot) () _"Can't do a slot reg for this metatype.")
      `(wrapper-of-macro ,argument))
     ((built-in-instance structure-instance)
-     (assert (null slot) () "Can't do a slot reg for this metatype.")
+     (assert (null slot) () _"Can't do a slot reg for this metatype.")
      `(built-in-or-structure-wrapper ,argument))))
 
diff --git a/pcl/dlisp2.lisp b/pcl/dlisp2.lisp
index fbe5c8b99c0dd7d20612848fac1892080e42615f..4250a5485eec15c148fd78baf7581d367311e729 100644
--- a/pcl/dlisp2.lisp
+++ b/pcl/dlisp2.lisp
@@ -25,10 +25,11 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp2.lisp,v 1.12 2003/05/04 13:11:21 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp2.lisp,v 1.13 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (defun emit-reader/writer-function (reader/writer 1-or-2-class class-slot-p)
   (values
diff --git a/pcl/dlisp3.lisp b/pcl/dlisp3.lisp
index ba940ff2275aaa9fb602e991480b85010e093479..3729ee35856f391e119216646ef756f5f03d1008 100644
--- a/pcl/dlisp3.lisp
+++ b/pcl/dlisp3.lisp
@@ -25,10 +25,11 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp3.lisp,v 1.8 2003/05/04 13:11:21 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp3.lisp,v 1.9 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (defparameter checking-or-caching-list
diff --git a/pcl/env.lisp b/pcl/env.lisp
index 9f9eb9259b16288625c5a2bbaed30296869993ad..78aaab2ffcde35c6e66455e9ea2fb7c630fde444 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,12 +26,13 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.26 2003/06/18 09:23:09 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.27 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;;
@@ -77,22 +78,22 @@
 	  (:class    (push slotd class-slotds))
 	  (otherwise (push slotd other-slotds))))
       (setq max-slot-name-length  (min (+ max-slot-name-length 3) 30))
-      (format stream "~%~S is an instance of class ~S:" object class)
+      (format stream _"~%~S is an instance of class ~S:" object class)
 
       (when instance-slotds
-	(format stream "~% The following slots have :INSTANCE allocation:")
+	(format stream _"~% The following slots have :INSTANCE allocation:")
 	(dolist (slotd (nreverse instance-slotds))
 	  (describe-slot (slot-definition-name slotd)
 			 (slot-value-or-default object (slot-definition-name slotd)))))
 
       (when class-slotds
-	(format stream "~% The following slots have :CLASS allocation:")
+	(format stream _"~% The following slots have :CLASS allocation:")
 	(dolist (slotd (nreverse class-slotds))
 	  (describe-slot (slot-definition-name slotd)
 			 (slot-value-or-default object (slot-definition-name slotd)))))
 
       (when other-slotds 
-	(format stream "~% The following slots have allocation as shown:")
+	(format stream _"~% The following slots have allocation as shown:")
 	(dolist (slotd (nreverse other-slotds))
 	  (describe-slot (slot-definition-name slotd)
 			 (slot-value-or-default object (slot-definition-name slotd))
@@ -112,21 +113,21 @@
 		    elt)))
 
 (defmethod describe-object ((gf standard-generic-function) stream)
-  (format stream "~A is a generic function.~%" gf)
+  (format stream _"~A is a generic function.~%" gf)
   (let* ((gf-name (generic-function-name gf))
 	 (doc (documentation gf-name 'function)))
-    (format stream "Its lambda-list is:~%  ~S~%"
+    (format stream _"Its lambda-list is:~%  ~S~%"
 	    (generic-function-lambda-list gf))
     (when doc
-      (format stream "Generic function documentation:~%  ~s~%" doc))
-    (format stream "Its methods are:~%")
+      (format stream _"Generic function documentation:~%  ~s~%" doc))
+    (format stream _"Its methods are:~%")
     (loop for method in (generic-function-methods gf) and i from 1
 	  as doc = (plist-value method 'documentation) do
 	    (format stream "  ~d: ~a ~@[~{~s ~}~]~:s~%"
 		    i gf-name (method-qualifiers method)
 		    (method-specialized-lambda-list method))
 	    (when doc
-	      (format stream "    Method documentation: ~s~%" doc)))
+	      (format stream _"    Method documentation: ~s~%" doc)))
     (when *describe-metaobjects-as-objects-p*
       (call-next-method))))
 
@@ -136,15 +137,15 @@
 (defmethod describe-object ((class class) stream)
   (flet ((pretty-class (c) (or (class-name c) c)))
     (macrolet ((ft (string &rest args) `(format stream ,string ,@args)))
-      (ft "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
+      (ft _"~&~@<~S is a class, it is an instance of ~S.~@:>~%"
 	  class (pretty-class (class-of class)))
       (let ((name (class-name class)))
 	(if name
 	    (if (eq class (find-class name nil))
-		(ft "Its proper name is ~S.~%" name)
-		(ft "Its name is ~S, but this is not a proper name.~%" name))
-	    (ft "It has no name (the name is NIL).~%")))
-      (ft "The direct superclasses are: ~:S, and the direct~%~
+		(ft _"Its proper name is ~S.~%" name)
+		(ft _"Its name is ~S, but this is not a proper name.~%" name))
+	    (ft _"It has no name (the name is NIL).~%")))
+      (ft _"The direct superclasses are: ~:S, and the direct~%~
            subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~
            The class precedence list is:~%~S~%~
            There are ~D methods specialized for this class."
@@ -154,20 +155,20 @@
 	  (mapcar #'pretty-class (cpl-or-nil class))
 	  (length (specializer-direct-methods class)))
       (unless (typep class 'condition-class)
-	(loop initially (ft "~&Its direct slots are:~%")
+	(loop initially (ft _"~&Its direct slots are:~%")
 	      for slotd in (class-direct-slots class)
 	      as name = (slot-definition-name slotd)
 	      as doc = (slot-value slotd 'documentation) do
-		(ft "  ~a, documentation ~s~%" name doc)))))
+		(ft _"  ~a, documentation ~s~%" name doc)))))
   (when *describe-metaobjects-as-objects-p*
     (call-next-method)))
 
 (defun describe-package (object stream)
   (unless (packagep object) (setq object (find-package object)))
-  (format stream "~&~S is a ~S.~%" object (type-of object))
+  (format stream _"~&~S is a ~S.~%" object (type-of object))
   (let ((nick (package-nicknames object)))
     (when nick
-      (format stream "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
+      (format stream _"You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
 	      (butlast nick) (first (last nick)))))  
   (let* ((internal (lisp::package-internal-symbols object))
 	 (internal-count (- (lisp::package-hashtable-size internal)
@@ -175,31 +176,31 @@
 	 (external (lisp::package-external-symbols object))
 	 (external-count (- (lisp::package-hashtable-size external)
 				  (lisp::package-hashtable-free external))))
-    (format stream "It has ~D internal and ~D external symbols (~D total).~%"
+    (format stream _"It has ~D internal and ~D external symbols (~D total).~%"
 	    internal-count external-count (+ internal-count external-count)))
   (let ((used (package-use-list object)))
     (when used
-      (format stream "It uses the packages ~{~S~^, ~}.~%"
+      (format stream _"It uses the packages ~{~S~^, ~}.~%"
 	      (mapcar #'package-name used))))
   (let ((users (package-used-by-list object)))
     (when users
-      (format stream "It is used by the packages ~{~S~^, ~}.~%"
+      (format stream _"It is used by the packages ~{~S~^, ~}.~%"
 	      (mapcar #'package-name users)))))
 
 (defmethod describe-object ((object package) stream)
   (describe-package object stream))
 
 (defmethod describe-object ((object hash-table) stream)
-  (format stream "~&~S is an ~a hash table."
+  (format stream _"~&~S is an ~a hash table."
 	  object
 	  (lisp::hash-table-test object))
-  (format stream "~&Its size is ~d buckets."
+  (format stream _"~&Its size is ~d buckets."
 	  (lisp::hash-table-size object))
-  (format stream "~&Its rehash-size is ~d."
+  (format stream _"~&Its rehash-size is ~d."
 	  (lisp::hash-table-rehash-size object))
-  (format stream "~&Its rehash-threshold is ~d."
+  (format stream _"~&Its rehash-threshold is ~d."
 	  (hash-table-rehash-threshold object))
-  (format stream "~&It currently holds ~d entries."
+  (format stream _"~&It currently holds ~d entries."
 	  (lisp::hash-table-number-entries object)))
 
 
@@ -281,7 +282,7 @@
 (macrolet ((define-default-method (class)
 	     `(defmethod make-load-form ((object ,class) &optional env)
 		(declare (ignore env))
-		(error "~@<Default ~s method for ~s called.~@>"
+		(error _"~@<Default ~s method for ~s called.~@>"
 		       'make-load-form object))))
   (define-default-method condition)
   (define-default-method standard-object))
@@ -294,7 +295,7 @@
   (declare (ignore env))
   (let ((pname (kernel:class-proper-name (kernel:layout-class object))))
     (unless pname
-      (error "~@<Can't dump wrapper for anonymous class ~S.~@:>"
+      (error _"~@<Can't dump wrapper for anonymous class ~S.~@:>"
 	     (kernel:layout-class object)))
     `(kernel:%class-layout (kernel::find-class ',pname))))
 
@@ -302,7 +303,7 @@
   (declare (ignore env))
   (let ((name (class-name class)))
     (unless (and name (eq (find-class name nil) class))
-      (error "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
+      (error _"~@<Can't use anonymous or undefined class as constant: ~S~:@>"
 	     class))
     `(find-class ',name)))
 
diff --git a/pcl/fin.lisp b/pcl/fin.lisp
index 38e9d89c29caa64abfed4d6c70ac07f162433bc7..2044afdc7b9f1e8621ffc9ccc32f53737de681a8 100644
--- a/pcl/fin.lisp
+++ b/pcl/fin.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fin.lisp,v 1.22 2003/05/07 17:14:24 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fin.lisp,v 1.23 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
   ;;   
@@ -70,6 +70,7 @@ explicitly marked saying who wrote it.
 |#
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; The first part of the file contains the implementation dependent code to
@@ -112,7 +113,7 @@ explicitly marked saying who wrote it.
 (declaim (notinline called-fin-without-function))
 (defun called-fin-without-function (&rest args)
   (declare (ignore args))
-  (error "~@<Attempt to funcall a funcallable instance without first ~
+  (error _"~@<Attempt to funcall a funcallable instance without first ~
           setting its function.~@:>"))
 
 
diff --git a/pcl/fixup.lisp b/pcl/fixup.lisp
index 682073970cc2a061338d32e1b45875542cb0dc26..43de910e9e133a4a63282a6b635c37934e5d1de6 100644
--- a/pcl/fixup.lisp
+++ b/pcl/fixup.lisp
@@ -25,6 +25,7 @@
 ;;; *************************************************************************
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 #-loadable-pcl
 (progn
diff --git a/pcl/fngen.lisp b/pcl/fngen.lisp
index 166072501c443c89394ad9c35d8417fa9712dec1..38e7bcef61d2cc70739d1790f839a33d02b9f09e 100644
--- a/pcl/fngen.lisp
+++ b/pcl/fngen.lisp
@@ -25,9 +25,10 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fngen.lisp,v 1.13 2003/06/03 10:28:23 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fngen.lisp,v 1.14 2010/03/19 15:19:03 rtoy Exp $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; GET-FUNCTION is the main user interface to this code. It is like
@@ -207,7 +208,7 @@
   (store-fgen (make-fgen test gensyms generator generator-lambda system)))
 
 (defun flush-emf-cache (&optional gf)
-  "Flush cached emf functions.  If GF is supplied, it should be a
+  _N"Flush cached emf functions.  If GF is supplied, it should be a
    generic function metaobject or the name of a generic function, and
    this function flushes all cached emfs for the given generic
    function.  If GF is not supplied, all cached emfs are flushed."
diff --git a/pcl/fsc.lisp b/pcl/fsc.lisp
index c20842111763828630c88a216519d3e649a4d85e..fe88244b1617e85b236ab0ee91ec2989f39083bc 100644
--- a/pcl/fsc.lisp
+++ b/pcl/fsc.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fsc.lisp,v 1.13 2003/05/04 13:11:21 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fsc.lisp,v 1.14 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; This file contains the definition of the FUNCALLABLE-STANDARD-CLASS
 ;;; metaclass.  Much of the implementation of this metaclass is actually
@@ -42,6 +42,7 @@
 ;;; 
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (defmethod wrapper-fetcher ((class funcallable-standard-class))
   'fsc-instance-wrapper)
diff --git a/pcl/generic-functions.lisp b/pcl/generic-functions.lisp
index 0853899cc1b467bb81d0ce958aba8e8e3bec0fe8..c753d26e4e6d8558dca7d5f0ad589366d13c2940 100644
--- a/pcl/generic-functions.lisp
+++ b/pcl/generic-functions.lisp
@@ -1,10 +1,11 @@
 ;;;-*-Mode:LISP; Package:PCL; Base:10; Syntax:Common-lisp -*-
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.28 2003/08/25 20:10:41 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.29 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;; class predicates
 (defgeneric class-eq-specializer-p (object))
diff --git a/pcl/gf-call-optimization.lisp b/pcl/gf-call-optimization.lisp
index 978faa49ba6b03ef7399600505201ceb6207d67c..b74f57e15ae77efaec3b0e7a399a282d141e7a28 100644
--- a/pcl/gf-call-optimization.lisp
+++ b/pcl/gf-call-optimization.lisp
@@ -27,9 +27,10 @@
 ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 ;;; DAMAGE.
 
-(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gf-call-optimization.lisp,v 1.6 2003/10/29 12:14:35 gerd Rel $")
+(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gf-call-optimization.lisp,v 1.7 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 ;;; ***************************************************
 ;;; General Generic Function Call Optimization  *******
diff --git a/pcl/gray-compat.lisp b/pcl/gray-compat.lisp
index a7c40eb69735dd1e974554e3ff9f018ffb713302..9b3fbdd31a7b701023284587528a32dbc8281db9 100644
--- a/pcl/gray-compat.lisp
+++ b/pcl/gray-compat.lisp
@@ -5,20 +5,21 @@
 ;;; domain.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-compat.lisp,v 1.1 2003/06/06 16:27:05 toy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-compat.lisp,v 1.2 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Gray streams compatibility functions for simple-streams
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defvar *enable-gray-compat-warnings* nil)
 
 (defmacro define-gray-stream-method (name lambda-list &body body)
   `(defmethod ,name ,lambda-list
      (when *enable-gray-compat-warnings*
-       (warn "Called ~S on a simple-stream" ',name))
+       (warn _"Called ~S on a simple-stream" ',name))
      ,@body))
 
 (define-gray-stream-method ext:stream-advance-to-column ((stream
diff --git a/pcl/gray-streams-class.lisp b/pcl/gray-streams-class.lisp
index 219e21b3bdcf950e6bd8798e901a0b93e7094a5a..0bba464aadc5b08dbc919119bb723cc208a01316 100644
--- a/pcl/gray-streams-class.lisp
+++ b/pcl/gray-streams-class.lisp
@@ -5,7 +5,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams-class.lisp,v 1.5 2003/05/04 13:11:21 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams-class.lisp,v 1.6 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 
 
diff --git a/pcl/gray-streams.lisp b/pcl/gray-streams.lisp
index fc8441d0c9f15e198a7ec3081e2451f399994cb8..3c54ac99897217801169d4379b3be4d1f9bdad1f 100644
--- a/pcl/gray-streams.lisp
+++ b/pcl/gray-streams.lisp
@@ -5,7 +5,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.13 2007/02/21 15:57:08 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.14 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,7 @@
 ;;;
 
 (in-package "LISP")
+(intl:textdomain "cmucl")
 
 
 
@@ -21,7 +22,7 @@
 
 (defgeneric stream-element-type (stream)
   (:documentation
-   "Returns a type specifier for the kind of object returned by the
+   _N"Returns a type specifier for the kind of object returned by the
   Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method
   which returns CHARACTER."))
 
@@ -39,7 +40,7 @@
 
 (defgeneric pcl-open-stream-p (stream)
   (:documentation
-   "Return true if Stream is not closed.  A default method is provided
+   _N"Return true if Stream is not closed.  A default method is provided
   by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been
   called on the stream."))
 
@@ -61,7 +62,7 @@
 
 (defgeneric pcl-close (stream &key abort)
   (:documentation
-   "Closes the given Stream.  No more I/O may be performed, but
+   _N"Closes the given Stream.  No more I/O may be performed, but
   inquiries may still be made.  If :Abort is non-nil, an attempt is made
   to clean up the side effects of having created the stream."))
 
@@ -82,7 +83,7 @@
 (fmakunbound 'input-stream-p)
 
 (defgeneric input-stream-p (stream)
-  (:documentation "Returns non-nil if the given Stream can perform input operations."))
+  (:documentation _N"Returns non-nil if the given Stream can perform input operations."))
 
 (defmethod input-stream-p ((stream lisp-stream))
   (and (not (eq (lisp-stream-in stream) #'closed-flame))
@@ -102,7 +103,7 @@
 (fmakunbound 'output-stream-p)
 
 (defgeneric output-stream-p (stream)
-  (:documentation "Returns non-nil if the given Stream can perform output operations."))
+  (:documentation _N"Returns non-nil if the given Stream can perform output operations."))
 
 (defmethod output-stream-p ((stream lisp-stream))
   (and (not (eq (lisp-stream-in stream) #'closed-flame))
@@ -125,20 +126,20 @@
 
 (defgeneric stream-read-char (stream)
   (:documentation
-   "This reads one character from the stream.  It returns either a
+   _N"This reads one character from the stream.  It returns either a
   character object, or the symbol :EOF if the stream is at end-of-file.
   Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM must define a
   method for this function."))
 
 (defgeneric stream-unread-char (stream character)
   (:documentation
-   "Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.
+   _N"Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.
   Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM
   must define a method for this function."))
 
 (defgeneric stream-read-char-no-hang (stream)
   (:documentation
-   "This is used to implement READ-CHAR-NO-HANG.  It returns either a
+   _N"This is used to implement READ-CHAR-NO-HANG.  It returns either a
   character, or NIL if no input is currently available, or :EOF if
   end-of-file is reached.  The default method provided by
   FUNDAMENTAL-CHARACTER-INPUT-STREAM simply calls STREAM-READ-CHAR; this
@@ -150,7 +151,7 @@
 
 (defgeneric stream-peek-char (stream)
   (:documentation
-   "Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.
+   _N"Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.
   It returns either a character or :EOF.  The default method calls
   STREAM-READ-CHAR and STREAM-UNREAD-CHAR."))
 
@@ -162,7 +163,7 @@
 
 (defgeneric stream-listen (stream)
   (:documentation
-   "Used by LISTEN.  Returns true or false.  The default method uses
+   _N"Used by LISTEN.  Returns true or false.  The default method uses
   STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should 
   define their own method since it will usually be trivial and will
   always be more efficient than the default method."))
@@ -175,7 +176,7 @@
 
 (defgeneric stream-read-line (stream)
   (:documentation
-   "Used by READ-LINE.  A string is returned as the first value.  The
+   _N"Used by READ-LINE.  A string is returned as the first value.  The
   second value is true if the string was terminated by end-of-file
   instead of the end of a line.  The default method uses repeated
   calls to STREAM-READ-CHAR."))
@@ -201,7 +202,7 @@
 
 (defgeneric stream-clear-input (stream)
   (:documentation
-   "Implements CLEAR-INPUT for the stream, returning NIL.  The default
+   _N"Implements CLEAR-INPUT for the stream, returning NIL.  The default
   method does nothing."))
 
 (defmethod stream-clear-input ((stream fundamental-character-input-stream))
@@ -209,7 +210,7 @@
 
 (defgeneric stream-read-sequence (stream seq &optional start end)
   (:documentation
-   "Implements READ-SEQUENCE for the stream."))
+   _N"Implements READ-SEQUENCE for the stream."))
 
 
 ;;; Character output streams.
@@ -220,13 +221,13 @@
 
 (defgeneric stream-write-char (stream character)
   (:documentation
-   "Writes character to the stream and returns the character.  Every
+   _N"Writes character to the stream and returns the character.  Every
   subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method
   defined for this function."))
 
 (defgeneric stream-line-column (stream)
   (:documentation
-   "This function returns the column number where the next character
+   _N"This function returns the column number where the next character
   will be written, or NIL if that is not meaningful for this stream.
   The first column on a line is numbered 0.  This function is used in
   the implementation of PPRINT and the FORMAT ~T directive.  For every
@@ -236,14 +237,14 @@
 
 ;;; Stream-line-length is a CMUCL extension to Gray streams.
 (defgeneric stream-line-length (stream)
-  (:documentation "Return the stream line length or Nil."))
+  (:documentation _N"Return the stream line length or Nil."))
 
 (defmethod stream-line-length ((stream fundamental-character-output-stream))
   nil)
 
 (defgeneric stream-start-line-p (stream)
   (:documentation
-   "This is a predicate which returns T if the stream is positioned at
+   _N"This is a predicate which returns T if the stream is positioned at
   the beginning of a line, else NIL.  It is permissible to always return
   NIL.  This is used in the implementation of FRESH-LINE.  Note that
   while a value of 0 from STREAM-LINE-COLUMN also indicates the
@@ -261,7 +262,7 @@
 
 (defgeneric stream-write-string (stream string &optional start end)
   (:documentation
-   "This is used by WRITE-STRING.  It writes the string to the stream,
+   _N"This is used by WRITE-STRING.  It writes the string to the stream,
   optionally delimited by start and end, which default to 0 and NIL.
   The string argument is returned.  The default method provided by
   FUNDAMENTAL-CHARACTER-OUTPUT-STREAM uses repeated calls to
@@ -281,7 +282,7 @@
 
 (defgeneric stream-terpri (stream)
   (:documentation
-   "Writes an end of line, as for TERPRI.  Returns NIL.  The default
+   _N"Writes an end of line, as for TERPRI.  Returns NIL.  The default
   method does (STREAM-WRITE-CHAR stream #\NEWLINE)."))
 
 (defmethod stream-terpri ((stream fundamental-character-output-stream))
@@ -289,7 +290,7 @@
 
 (defgeneric stream-fresh-line (stream)
   (:documentation
-   "Outputs a new line to the Stream if it is not positioned at the
+   _N"Outputs a new line to the Stream if it is not positioned at the
   begining of a line.  Returns T if it output a new line, nil
   otherwise. Used by FRESH-LINE. The default method uses
   STREAM-START-LINE-P and STREAM-TERPRI."))
@@ -301,7 +302,7 @@
 
 (defgeneric stream-finish-output (stream)
   (:documentation
-   "Attempts to ensure that all output sent to the Stream has reached
+   _N"Attempts to ensure that all output sent to the Stream has reached
   its destination, and only then returns false. Implements
   FINISH-OUTPUT.  The default method does nothing."))
 
@@ -310,7 +311,7 @@
 
 (defgeneric stream-force-output (stream)
   (:documentation
-   "Attempts to force any buffered output to be sent. Implements
+   _N"Attempts to force any buffered output to be sent. Implements
   FORCE-OUTPUT.  The default method does nothing."))
 
 (defmethod stream-force-output ((stream fundamental-output-stream))
@@ -318,7 +319,7 @@
 
 (defgeneric stream-clear-output (stream)
   (:documentation
-   "Clears the given output Stream. Implements CLEAR-OUTPUT.  The
+   _N"Clears the given output Stream. Implements CLEAR-OUTPUT.  The
   default method does nothing."))
 
 (defmethod stream-clear-output ((stream fundamental-output-stream))
@@ -326,7 +327,7 @@
 
 (defgeneric stream-advance-to-column (stream column)
   (:documentation
-   "Writes enough blank space so that the next character will be
+   _N"Writes enough blank space so that the next character will be
   written at the specified column.  Returns true if the operation is
   successful, or NIL if it is not supported for this stream.  This is
   intended for use by by PPRINT and FORMAT ~T.  The default method uses
@@ -344,7 +345,7 @@
 
 (defgeneric stream-write-sequence (stream seq &optional start end)
   (:documentation
-   "Implements WRITE-SEQUENCE for the stream."))
+   _N"Implements WRITE-SEQUENCE for the stream."))
 
 
 ;;; Binary streams.
@@ -357,12 +358,12 @@
 
 (defgeneric stream-read-byte (stream)
   (:documentation
-   "Used by READ-BYTE; returns either an integer, or the symbol :EOF
+   _N"Used by READ-BYTE; returns either an integer, or the symbol :EOF
   if the stream is at end-of-file."))
 
 (defgeneric stream-write-byte (stream integer)
   (:documentation
-   "Implements WRITE-BYTE; writes the integer to the stream and
+   _N"Implements WRITE-BYTE; writes the integer to the stream and
   returns the integer as the result."))
 
 
@@ -445,7 +446,8 @@
 (provide :gray-streams)
 
 (setf (getf *herald-items* :gray-streams)
-      '("    Gray Streams Protocol Support"))
+      `(,#'(lambda (stream)
+	     (write-string _"    Gray Streams Protocol Support" stream))))
 
 
 
diff --git a/pcl/herald.lisp b/pcl/herald.lisp
index 490b7a52704a9bb0f3e0366601760e1ec8232d2a..a2f627c2cd9de844e18f6fb0e878d035b40c558b 100644
--- a/pcl/herald.lisp
+++ b/pcl/herald.lisp
@@ -1,10 +1,13 @@
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 #+(or loadable-pcl bootable-pcl)
 (progn
-  (defvar *pcl-system-date* "$Date: 2008/11/12 16:36:41 $")
+  (defvar *pcl-system-date* "$Date: 2010/03/19 15:19:03 $")
   (setf (getf *herald-items* :pcl)
-	`("    CLOS based on Gerd's PCL " ,(if (>= (length *pcl-system-date*) 26)
-					       (subseq *pcl-system-date* 7 26)
-					       ""))))
+	`(,#'(lambda (stream)
+	       (write-string _"    CLOS based on Gerd's PCL " stream))
+	  ,(if (>= (length *pcl-system-date*) 26)
+	       (subseq *pcl-system-date* 7 26)
+	       ""))))
 
diff --git a/pcl/info.lisp b/pcl/info.lisp
index c92a7d7ae5fc02b225d7bee75a0ba0393f6d5751..3ff6e4d24cdb153f023e4f009929f06a16cedd75 100644
--- a/pcl/info.lisp
+++ b/pcl/info.lisp
@@ -36,9 +36,10 @@
 ;;; GF is actually non-accessor GF.  Clean this up.
 ;;; (setf symbol-value) should be handled like (setf fdefinition)
 
-(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/info.lisp,v 1.11 2005/06/14 12:34:59 rtoy Rel $")
+(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/info.lisp,v 1.12 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 (defstruct class-info
   ;;
@@ -484,7 +485,7 @@
 				   *variable-declarations-without-argument*))
 			  (dname (list (pop form))))
 		      (unless (or arg-p non-arg-p)
-			(warn "~@<The declaration ~S is not understood by ~S. ~
+			(warn _"~@<The declaration ~S is not understood by ~S. ~
                                Please put ~S on one of the lists ~S, ~S, or ~S. ~
                                (Assuming it is a variable declarations without ~
                                argument).~@:>"
@@ -564,9 +565,9 @@
 (define-declaration slots (form)
   (flet ((invalid (&optional subform)
 	   (if subform
-	       (warn "~@<Invalid slot access specifier ~s in ~s.~@:>"
+	       (warn _"~@<Invalid slot access specifier ~s in ~s.~@:>"
 		     subform form)
-	       (warn "~@<Invalid slot access declaration ~s.~@:>"
+	       (warn _"~@<Invalid slot access declaration ~s.~@:>"
 		     form))))
     (dolist (specifier (cdr form))
       (if (and (consp specifier)
@@ -637,7 +638,7 @@
 		      (or (null slot-name)
 			  (null (cdr entry))
 			  (memq slot-name (cdr entry)))))
-		(t (warn "~@<Invalid slot access declaration ~s.~@:>"
+		(t (warn _"~@<Invalid slot access declaration ~s.~@:>"
 			 specifier)))
 	  (return-from slot-access-specifier entry))))))
 
@@ -687,9 +688,9 @@
 (defun auto-compile-proclamation (form compilep)
   (flet ((invalid (&optional subform)
 	   (if subform
-	       (warn "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
+	       (warn _"~@<Invalid auto-compile specifier ~s in ~s.~@:>"
 		     subform form)
-	       (warn "~@<Invalid auto-compile declaration ~s.~@:>"
+	       (warn _"~@<Invalid auto-compile declaration ~s.~@:>"
 		     form)))
 	 (gf-name-p (name)
 	   (valid-function-name-p name)))
diff --git a/pcl/init.lisp b/pcl/init.lisp
index daaa23097482d3f57a8936822b368881bd602c5c..c160545dd60d20b955d821cc85e23eccd817a4c1 100644
--- a/pcl/init.lisp
+++ b/pcl/init.lisp
@@ -26,13 +26,14 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.24 2003/05/25 14:33:49 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.25 2010/03/19 15:19:03 rtoy Rel $")
 
 ;;;
 ;;; This file defines the initialization and related protocols.
 ;;; 
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (defmethod make-instance ((class symbol) &rest initargs &key)
   (apply #'make-instance (find-class class) initargs))
@@ -218,7 +219,7 @@
     (values legal nil)))
 
 (defun invalid-initargs-error (class invalid-keys)
-  (simple-program-error "~@<Invalid initialization argument~P ~2I~_~
+  (simple-program-error _"~@<Invalid initialization argument~P ~2I~_~
                          ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
 			(length invalid-keys)
 			(list invalid-keys)
diff --git a/pcl/low.lisp b/pcl/low.lisp
index 4da7e0c2cdcb33e9cc9bdd1c2e747031855ebadf..6684b6f311ece82f75acb286b8699ca913f98117 100644
--- a/pcl/low.lisp
+++ b/pcl/low.lisp
@@ -26,13 +26,14 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.35 2007/10/08 15:35:37 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.36 2010/03/19 15:19:03 rtoy Exp $")
 
 ;;; 
 ;;; This file contains optimized low-level constructs for PCL.
 ;;; 
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar *optimize-speed* '(optimize (speed 3) (safety 0)
@@ -102,7 +103,7 @@
 ;;; In all cases, set-function-name must return the new (or same) function.
 ;;; 
 (defun set-function-name (function new-name)
-  "Set the name of a compiled function object and return the function."
+  _N"Set the name of a compiled function object and return the function."
   (declare (special *boot-state* *the-class-standard-generic-function*))
   (when (valid-function-name-p function)
     (setq function (fdefinition function)))
@@ -141,11 +142,11 @@
 ;;; forms).
 ;;;
 (defvar *compile-lambda-break-p* nil
-  "PCL debugging aid that breaks into the debugger each time
+  _N"PCL debugging aid that breaks into the debugger each time
 `compile-lambda' is invoked.")
 
 (defvar *compile-lambda-silent-p* t
-  "If true (the default), then `compile-lambda' will try to silence
+  _N"If true (the default), then `compile-lambda' will try to silence
 the compiler as completely as possible.  Currently this means that
 `*compile-print*' will be bound to nil during compilation.")
 
diff --git a/pcl/macros.lisp b/pcl/macros.lisp
index 3c0c547fac2cc0daf4edd5127cf82f3c2513bf3a..f15c5d1a7ac844b34161c8cef2cfc0e7d225453e 100644
--- a/pcl/macros.lisp
+++ b/pcl/macros.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.29 2003/06/18 09:23:09 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.30 2010/03/19 15:19:03 rtoy Exp $")
 ;;;
 ;;; Macros global variable definitions, and other random support stuff used
 ;;; by the rest of the system.
@@ -36,6 +36,7 @@
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (declaim (declaration class variable-rebinding method-name
 		      method-lambda-list))
@@ -97,7 +98,7 @@
        (loop (when (null .plist-tail.) (return nil))
 	     (setq ,key (pop .plist-tail.))
 	     (when (null .plist-tail.)
-	       (error "Malformed plist in doplist, odd number of elements."))
+	       (error _"Malformed plist in doplist, odd number of elements."))
 	     (setq ,val (pop .plist-tail.))
 	     (progn ,@bod)))))
 
@@ -127,7 +128,7 @@
   (or (gethash symbol *find-class*)
       (unless dont-create-p
 	(unless (legal-class-name-p symbol)
-	  (error "~@<~S is not a legal class name.~@:>" symbol))
+	  (error _"~@<~S is not a legal class name.~@:>" symbol))
 	(setf (gethash symbol *find-class*) (make-find-class-cell symbol)))))
 
 (defvar *create-classes-from-internal-structure-definitions-p* t)
@@ -139,9 +140,9 @@
            (ensure-non-standard-class symbol))
       (cond ((null errorp) nil)
 	    ((legal-class-name-p symbol)
-	     (error "No class named ~S." symbol))
+	     (error _"No class named ~S." symbol))
 	    (t
-	     (error "~S is not a legal class name." symbol)))))
+	     (error _"~S is not a legal class name." symbol)))))
 
 (defun find-class-predicate-from-cell (symbol cell &optional (errorp t))
   (unless (find-class-cell-class cell)
@@ -152,7 +153,7 @@
   (symbolp x))
 
 (defun find-class (symbol &optional (errorp t) environment)
-  "Returns the PCL class metaobject named by SYMBOL. An error of type
+  _N"Returns the PCL class metaobject named by SYMBOL. An error of type
    SIMPLE-ERROR is signaled if the class does not exist unless ERRORP
    is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
   (declare (ignore environment))
@@ -205,12 +206,12 @@
 		  (fdefinition (class-predicate-name new-value))))
 	  (update-ctors 'setf-find-class :class new-value :name name))
 	new-value)
-      (error "~S is not a legal class name." name)))
+      (error _"~S is not a legal class name." name)))
 
 (defun (setf find-class-predicate) (new-value symbol)
   (if (legal-class-name-p symbol)
       (setf (find-class-cell-predicate (find-class-cell symbol)) new-value)
-      (error "~S is not a legal class name." symbol)))
+      (error _"~S is not a legal class name." symbol)))
 
 (defmacro function-funcall (form &rest args)
   `(funcall (the function ,form) ,@args))
diff --git a/pcl/method-slot-access-optimization.lisp b/pcl/method-slot-access-optimization.lisp
index 04f2de2183fcef01ab4dec2e57ceefe3a57ac4b6..c59b2306a30eaa5c18c5b4076953ab5e338926cf 100644
--- a/pcl/method-slot-access-optimization.lisp
+++ b/pcl/method-slot-access-optimization.lisp
@@ -52,18 +52,19 @@
 ;;;
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.7 2005/06/14 12:34:59 rtoy Rel $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.8 2010/03/19 15:19:03 rtoy Exp $")
  
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 (defvar *optimize-inline-slot-access-p* t
-  "Set to true to activate the inline slot access optimization.")
+  _N"Set to true to activate the inline slot access optimization.")
 
 (defvar *use-slot-types-p* t
-  "When true, check slot values against specified slot types.")
+  _N"When true, check slot values against specified slot types.")
 
 (defvar *optimize-accessor-calls-p* t
-  "When true, optimize slot access through slot reader/writer functions.")
+  _N"When true, optimize slot access through slot reader/writer functions.")
 
 
 ;;; *******************
@@ -86,7 +87,7 @@
 
 (defun cant-optimize (class format-control &rest format-args)
   (warn 'cant-optimize-warning
-	:title "Cannot optimize slot access to"
+	:title _"Cannot optimize slot access to"
 	:class class
 	:format-control format-control
 	:format-arguments format-args))
@@ -273,27 +274,27 @@
 	;; For now only for standard classes.  If this
 	;; is changed we need to get smart.
 	((not (standard-class-p class))
-	 (cant-optimize class "The class is not a standard class"))
+	 (cant-optimize class _"The class is not a standard class"))
 	;;
 	((null (setq slotd (find-slot-definition class slot-name)))
-	 (cant-optimize class "The class doesn't contain a slot with name ~s"
+	 (cant-optimize class _"The class doesn't contain a slot with name ~s"
 			slot-name))
 	;;
 	;; Class slots not implemented because it's difficult to
 	;; back-patch the class slot cons cell into the code.  It's
 	;; anyway not important to optimize this.
 	((consp (slot-definition-location slotd))
-	 (cant-optimize class "Slot ~s is a class slot" slot-name))
+	 (cant-optimize class _"Slot ~s is a class slot" slot-name))
 	;;
 	;; Check for non-standard slot accessors, SLOT-VALUE-USING-CLASS.
 	((not (optimize-slot-value-by-class-p class slot-name 'all))
-	 (cant-optimize class "There are non-standard accessors for slot ~s"
+	 (cant-optimize class _"There are non-standard accessors for slot ~s"
 			slot-name))
 	;;
 	;; Check if the accessed slot is at the same location in the
 	;; class and all its subclasses.
 	((not (slot-at-fixed-location-p class slot-name))
-	 (cant-optimize class "Slot ~s is not at the same location ~
+	 (cant-optimize class _"Slot ~s is not at the same location ~
                                in the class and all of its subclasses"
 			slot-name))
 	;;
@@ -433,7 +434,7 @@
     (loop for method in methods
 	  as defmethod-form = (reconstruct-defmethod-form method)
 	  if defmethod-form do
-	    (warn "Auto-compiling method ~s." method)
+	    (warn _"Auto-compiling method ~s." method)
 	    (eval defmethod-form)
 	  else
 	    collect method into remaining-methods
@@ -441,7 +442,7 @@
 	    (setq methods remaining-methods))
     (when methods
       (warn 'method-recompilation-warning
-	    :title "Methods may need to be recompiled for the changed ~
+	    :title _"Methods may need to be recompiled for the changed ~
                     class layout of"
 	    :class class
 	    :format-control "~{~%     ~s~}"
@@ -688,7 +689,7 @@
       (let ((real-class (find-class class nil)))
 	(unless (std-class-p real-class)
 	  (when (slot-declaration env 'inline class)
-	    (cant-optimize class "The class is not defined at compile time"))
+	    (cant-optimize class _"The class is not defined at compile time"))
 	  (return-from check-inline-accessor-call-p nil))
 	(setq class real-class)))
     ;;
@@ -704,10 +705,10 @@
 	      ((not (some #'declared-inline slot-names))
 	       nil)
 	      ((not all-standard-accessors-p)
-	       (cant-optimize class "~s has a method that is not a standard ~
+	       (cant-optimize class _"~s has a method that is not a standard ~
                                     slot accessor" gf-name))
 	      (t
-	       (cant-optimize class "Methods of ~s access different slots"
+	       (cant-optimize class _"Methods of ~s access different slots"
 			      gf-name)))))))
 
 ;;;
diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index 9ac9e7e5e5e9c1998fb6564c6d847381f4618d89..914aacb2488043b11532a955f469ce62304ae8af 100644
--- a/pcl/methods.lisp
+++ b/pcl/methods.lisp
@@ -26,9 +26,10 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.48 2009/06/19 12:38:02 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.49 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;; *********************
 ;;;; PRINT-OBJECT  *******
@@ -51,7 +52,7 @@
     (let ((name (class-name (class-of instance))))
       (if name
 	  (format stream "~S" name)
-	  (format stream "Instance")))))
+	  (format stream _"Instance")))))
 
 (defmethod print-object ((class class) stream)
   (named-object-print-function class stream))
@@ -108,7 +109,7 @@
 				     allocation-class)
   (declare (ignore slot-names allocation-class))
   (unless (eq allocation :instance)
-    (error "~@<Structure slots must have ~s allocation.~@:>" :instance)))
+    (error _"~@<Structure slots must have ~s allocation.~@:>" :instance)))
 
 
 ;;;
@@ -127,7 +128,7 @@
       (let ((fmf (slot-value method 'fast-function)))
 	;; The :before shared-initialize method prevents this
 	(unless fmf
-	  (internal-error "~@<~S doesn't seem to have a method function.~@:>"
+	  (internal-error _"~@<~S doesn't seem to have a method function.~@:>"
 			  method))
 	(setf (slot-value method 'function)
 	      (method-function-from-fast-function fmf)))))
@@ -162,7 +163,7 @@
 
 (defmethod reinitialize-instance ((method standard-method) &rest initargs &key)
   (declare (ignore initargs))
-  (error "~@<Attempt to reinitialize the method ~S.  ~
+  (error _"~@<Attempt to reinitialize the method ~S.  ~
           Method objects cannot be reinitialized.~@:>"
 	 method))
 
@@ -176,7 +177,7 @@
 					   documentation)
   (declare (ignore slot-names))
   (flet ((lose (initarg value string)
-	   (error "~@<When initializing the method ~S, ~
+	   (error _"~@<When initializing the method ~S, ~
                    the ~S initialization argument was ~S, ~
                    which ~A.~@:>"
 		  method initarg value string)))
@@ -201,7 +202,7 @@
 (defmethod legal-documentation-p ((object standard-method) x)
   (if (or (null x) (stringp x))
       t
-      "is not a string or NULL"))
+      _"is not a string or NULL"))
 
 (defmethod legal-lambda-list-p ((object standard-method) x)
   (declare (ignore x))
@@ -210,19 +211,19 @@
 (defmethod legal-method-function-p ((object standard-method) x)
   (if (functionp x)
       t
-      "is not a function"))
+      _"is not a function"))
 
 (defmethod legal-qualifiers-p ((object standard-method) x)
   (dolist (q x t)
     (let ((ok (legal-qualifier-p object q)))
       (unless (eq ok t)
 	(return-from legal-qualifiers-p
-	  (format nil "Contains ~S which ~A" q ok))))))
+	  (format nil _"Contains ~S which ~A" q ok))))))
 
 (defmethod legal-qualifier-p ((object standard-method) x)
   (if (and x (atom x))
       t
-      "is not a non-null atom"))
+      _"is not a non-null atom"))
 
 (defmethod legal-slot-name-p ((object standard-method) x)
   (legal-slot-name-p-internal x))
@@ -232,7 +233,7 @@
     (let ((ok (legal-specializer-p object s)))
       (unless (eq ok t)
 	(return-from legal-specializers-p
-	  (format nil "Contains ~S which ~A" s ok))))))
+	  (format nil _"Contains ~S which ~A" s ok))))))
 
 (defmethod legal-specializer-p ((object standard-method) x)
   (if (if *allow-experimental-specializers-p*
@@ -240,7 +241,7 @@
 	  (or (classp x)
 	      (eql-specializer-p x)))
       t
-      "is neither a class object nor an eql specializer"))
+      _"is neither a class object nor an eql specializer"))
 
 (defmethod shared-initialize :before ((method standard-accessor-method)
 				      slot-names
@@ -250,7 +251,7 @@
     (multiple-value-bind (legalp reason)
 	(legal-slot-name-p method slot-name)
       (unless legalp
-	(error "The value of the ~s initarg, ~s, ~A."
+	(error _"The value of the ~s initarg, ~s, ~A."
 	       :slot-name slot-name reason)))))
 
 (defmethod shared-initialize :after ((method standard-method) slot-names
@@ -292,7 +293,7 @@
     (set-function-name gf name))
 		   
   (flet ((initarg-error (initarg value string)
-	   (error (format nil "~~@<When initializing the generic-function ~S: ~
+	   (error (format nil _"~~@<When initializing the generic-function ~S: ~
                                The ~S initialization argument was ~A.  ~
                                It must be ~A.~~@:>"
 			  gf initarg value string))))
@@ -325,12 +326,12 @@
   (let (gf method)
     (cond ((or (not (fboundp gf-name))
 	       (not (generic-function-p (setq gf (gdefinition gf-name)))))
-	   (error "~@<~S does not name a generic function.~@:>" gf-name))
+	   (error _"~@<~S does not name a generic function.~@:>" gf-name))
 	  ((null (setq method
 		       (get-method gf extra
 				   (parse-specializers argument-specifiers)
 				   nil)))
-	   (error "~@<There is no method for the generic function ~S ~
+	   (error _"~@<There is no method for the generic function ~S ~
                    matching argument specifiers ~S.~@:>"
 		  gf argument-specifiers))
 	  (t
@@ -367,7 +368,7 @@
 		  (every #'same-specializer-p specs specializers)) do
 	  (return-from get-method method))
   (when errorp
-    (error "~@<No method on ~S with qualifiers ~S and ~
+    (error _"~@<No method on ~S with qualifiers ~S and ~
            specializers ~S.~@:>"
 	   gf qualifiers specializers)))
 
@@ -382,7 +383,7 @@
 		  (every #'same-specializer-p specs specializers)) do
 	  (return-from real-get-method method))
   (when errorp
-    (error "~@<No method on ~S with qualifiers ~S and ~
+    (error _"~@<No method on ~S with qualifiers ~S and ~
             specializers ~S.~@:>"
 	   gf qualifiers specializers)))
 
@@ -390,7 +391,7 @@
 			qualifiers specializers &optional (errorp t))
   (let ((nreq (count-gf-required-parameters gf)))
     (when (/= (length specializers) nreq)
-      (error "~@<The generic function ~s takes ~d required argument~p.~@:>"
+      (error _"~@<The generic function ~s takes ~d required argument~p.~@:>"
 	     gf nreq nreq))
     (real-get-method gf qualifiers (parse-specializers specializers) errorp)))
   
@@ -410,7 +411,7 @@
 
 (defun real-add-method (gf method &optional skip-dfun-update-p)
   (when (method-generic-function method)
-    (error "~@<The method ~S is already part of the generic ~
+    (error _"~@<The method ~S is already part of the generic ~
             function ~S.  It can't be added to another generic ~
             function until it is removed from the first one.~@:>"
 	   method (method-generic-function method)))
@@ -462,7 +463,7 @@
 			  (or (cdr qualifiers)
 			      (not (memq (car qualifiers)
 					 '(:around :before :after)))))
-		 (warn "~@<Method ~s contains invalid qualifiers for ~
+		 (warn _"~@<Method ~s contains invalid qualifiers for ~
                         the standard method combination.~@:>"
 		       method)))
 	      ((short-method-combination-p mc)
@@ -470,7 +471,7 @@
 		 (when (or (/= (length qualifiers) 1)
 			   (and (neq (car qualifiers) :around)
 				(neq (car qualifiers) mc-name)))
-		   (warn "~@<Method ~s contains invalid qualifiers for ~
+		   (warn _"~@<Method ~s contains invalid qualifiers for ~
                           the method combination ~s.~@:>"
 			 method mc-name))))))
       ;;
@@ -658,7 +659,7 @@
 	    else
 	      collect (pop arguments) into types
 	  else do
-	    (error "~@<Generic function ~S requires at least ~D arguments.~@:>"
+	    (error _"~@<Generic function ~S requires at least ~D arguments.~@:>"
 		   (generic-function-name gf) nreq)
 	  finally
 	    (return (values types arg-info)))))
@@ -833,7 +834,7 @@
 		(method-alist
 		 `((,(car (or (member std-method methods)
 			      (member str-method methods)
-			      (internal-error "In get-accessor-method-function.")))
+			      (internal-error _"In get-accessor-method-function.")))
 		     ,optimized-std-fn)))
 		(wrappers
 		 ;;
@@ -1259,7 +1260,7 @@
 ;;;
 (defun compute-mcase-parameters (case-list)
   (unless (eq t (caar (last case-list)))
-    (internal-error "The key for the last case arg to mcase was not T."))
+    (internal-error _"The key for the last case arg to mcase was not T."))
   (let* ((eq-p (loop for case in case-list
 		     always (or (eq (car case) t)
 				(symbolp (caar case)))))
diff --git a/pcl/pkg.lisp b/pcl/pkg.lisp
index 8252639391cc873f75df64a403aea6218d7d70c6..cfe8c90203ac5df3851d42f90b331c22f03b9f17 100644
--- a/pcl/pkg.lisp
+++ b/pcl/pkg.lisp
@@ -26,7 +26,10 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.29 2003/07/28 10:43:15 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.30 2010/03/19 15:19:03 rtoy Rel $")
+
+(intl:textdomain "cmucl")
+
 ;;;
 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
 
diff --git a/pcl/precom2.lisp b/pcl/precom2.lisp
index 97ab8f9ebfa9566267107039f105a1cd76eebd34..c380b1d5dfc16ce114c93c33f5ce9339883e21c2 100644
--- a/pcl/precom2.lisp
+++ b/pcl/precom2.lisp
@@ -26,6 +26,7 @@
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (precompile-random-code-segments pcl)
 
diff --git a/pcl/seal.lisp b/pcl/seal.lisp
index 1d367912755e627b56b074fc54c87afb911ed272..d851df9e0f194ad96e172209d7e90b2448869ecc 100644
--- a/pcl/seal.lisp
+++ b/pcl/seal.lisp
@@ -27,9 +27,10 @@
 ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 ;;; DAMAGE.
 
-(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/seal.lisp,v 1.3 2003/05/04 13:11:21 gerd Rel $")
+(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/seal.lisp,v 1.4 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package "PCL")
+(intl:textdomain "cmucl")
 
 (define-condition sealed-error (simple-program-error)
   ()
@@ -117,7 +118,7 @@
 
 (defmethod seal-quality->type (quality)
   (or (cdr (assq quality *seal-quality->type*))
-      (error "~@<Invalid sealing specifier ~s.~@:>" quality)))
+      (error _"~@<Invalid sealing specifier ~s.~@:>" quality)))
 
 (defmethod make-seal (type name quality spec)
   (declare (ignore type name spec))
@@ -128,6 +129,6 @@
 
 (defmethod check-seal ((seal seal) object action)
   (declare (ignore action))
-  (sealed-error "~s is sealed wrt ~a" object (seal-quality seal)))
+  (sealed-error _"~s is sealed wrt ~a" object (seal-quality seal)))
 
 ;;; end of seal.lisp
diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp
index 2533facf79f7615b707658c8a5d6bed5086bc5fe..c558b38b420654cf61bfc3fb114cf5ebc9a78ad7 100644
--- a/pcl/slots-boot.lisp
+++ b/pcl/slots-boot.lisp
@@ -26,10 +26,11 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.26 2005/01/27 14:45:58 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.27 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; Called via LOAD-TIME-VALUE to make sure that the slot accessor
@@ -164,7 +165,7 @@
 	(t
 	 (let* ((fsc-p (cond ((standard-class-p class) nil)
 			     ((funcallable-standard-class-p class) t)
-			     (t (error "~@<~S is not a standard-class.~@:>"
+			     (t (error _"~@<~S is not a standard-class.~@:>"
 				       class))))
 		(slot-name (slot-definition-name slotd))
 		(index (slot-definition-location slotd))
@@ -201,7 +202,7 @@
 		     value))))
      (null   (lambda (instance)
 	       (check-obsolete-instance instance)
-	       (error "~@<Slot ~S in class ~S ~
+	       (error _"~@<Slot ~S in class ~S ~
                        does not have standard allocation.~@:>"
 		      slot-name (class-of instance)))))
    `(reader ,slot-name)))
@@ -222,7 +223,7 @@
 	       (setf (cdr index) nv)))
      (null   (lambda (instance)
 	       (check-obsolete-instance instance)
-	       (error "~@<Slot ~S in class ~S ~
+	       (error _"~@<Slot ~S in class ~S ~
                        does not have standard allocation.~@:>"
 		      slot-name (class-of instance)))))
    `(writer ,slot-name)))
@@ -245,7 +246,7 @@
 	       (not (eq (cdr index) +slot-unbound+))))
      (null   (lambda (instance)
 	       (check-obsolete-instance instance)
-	       (error "~@<Slot ~S in class ~S ~
+	       (error _"~@<Slot ~S in class ~S ~
                        does not have standard allocation.~@:>"
 		      slot-name (class-of instance)))))
    `(boundp ,slot-name)))
@@ -298,7 +299,7 @@
 	(t
 	 (let* ((fsc-p (cond ((standard-class-p class) nil)
 			     ((funcallable-standard-class-p class) t)
-			     (t (error "~@<~S is not a standard-class.~@:>" class))))
+			     (t (error _"~@<~S is not a standard-class.~@:>" class))))
 		(slot-name (slot-definition-name slotd))
 		(index (slot-definition-location slotd))
 		(function 
@@ -341,7 +342,7 @@
     (null   (lambda (class instance slotd)
 	      (declare (ignore slotd))
 	      (check-obsolete-instance instance)
-	      (error "~@<Slot ~S in class ~S ~
+	      (error _"~@<Slot ~S in class ~S ~
                       does not have standard allocation.~@:>"
 		     slot-name class)))))
 
@@ -366,7 +367,7 @@
     (null   (lambda (class instance slotd)
 	      (declare (ignore slotd))
 	      (check-obsolete-instance instance)
-	      (error "~@<Slot ~S in class ~S ~
+	      (error _"~@<Slot ~S in class ~S ~
                       does not have standard allocation.~@:>"
 		     slot-name class)))))
 
@@ -393,7 +394,7 @@
     (null   (lambda (class instance slotd)
 	      (declare (ignore slotd))
 	      (check-obsolete-instance instance)
-	      (error "~@<Slot ~S in class ~S ~
+	      (error _"~@<Slot ~S in class ~S ~
                       does not have standard allocation.~@:>"
 		     slot-name class)))))
 
@@ -418,7 +419,7 @@
 			     (values (slot-unbound (class-of instance) instance slot-name))
 			     value)))
 		      (t
-		       (error "~@<The wrapper for class ~S does not have ~
+		       (error _"~@<The wrapper for class ~S does not have ~
                                the slot ~S.~@:>"
 			      class slot-name))))
 		  (slot-value instance slot-name)))))))
diff --git a/pcl/slots.lisp b/pcl/slots.lisp
index 53ed544bb1825eed63ea37fe15e508d4b0edd495..b5c36c84a6cb110f6873cf9c8536a0cf8f3f23ae 100644
--- a/pcl/slots.lisp
+++ b/pcl/slots.lisp
@@ -26,17 +26,18 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.30 2009/01/06 18:17:50 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.31 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;; ANSI CL condition for unbound slots.
 
 (define-condition unbound-slot (cell-error)
   ((instance :reader unbound-slot-instance :initarg :instance))
   (:report (lambda (condition stream)
-	     (format stream "~@<The slot ~S is unbound in the object ~S.~@:>"
+	     (format stream _"~@<The slot ~S is unbound in the object ~S.~@:>"
 		     (cell-error-name condition)
 		     (unbound-slot-instance condition)))))
 
@@ -107,16 +108,16 @@
 ;; legal.
 (defun legal-slot-name-p-internal (x)
   (cond ((not (symbolp x))
-	 (values nil "is not a symbol and so cannot be bound"))
+	 (values nil _"is not a symbol and so cannot be bound"))
 	;;
 	;; Structure slots names can be any symbol.
 	(*allow-funny-slot-names*)
 	((keywordp x)
-	 (values nil "is a keyword and so cannot be bound"))
+	 (values nil _"is a keyword and so cannot be bound"))
 	((memq x '(t nil))
-	 (values nil "cannot be bound"))
+	 (values nil _"cannot be bound"))
 	((constantp x)
-	 (values nil "is a constant and so cannot be bound"))
+	 (values nil _"is a constant and so cannot be bound"))
 	(t t)))
 
 (define-compiler-macro slot-value (&whole form object slot-name)
@@ -192,11 +193,11 @@
 			  (%slot-ref (std-instance-slots object) location))
 			 ((fsc-instance-p object)
 			  (%slot-ref (fsc-instance-slots object) location))
-			 (t (internal-error "What kind of instance is this?"))))
+			 (t (internal-error _"What kind of instance is this?"))))
 		  (cons
 		   (cdr location))
 		  (t
-		   (error "~@<The slot ~s has neither ~s nor ~s ~
+		   (error _"~@<The slot ~s has neither ~s nor ~s ~
                            allocation, so it can't be read by the default ~s ~
                            method.~@:>"
 			  slotd :instance :class 'slot-value-using-class)))))
@@ -216,11 +217,11 @@
 	      (setf (%slot-ref (std-instance-slots object) location) new-value))
 	     ((fsc-instance-p object)
 	      (setf (%slot-ref (fsc-instance-slots object) location) new-value))
-	     (t (internal-error "What kind of instance is this?"))))
+	     (t (internal-error _"What kind of instance is this?"))))
       (cons
        (setf (cdr location) new-value))
       (t
-       (error "~@<The slot ~s has neither ~s nor ~s allocation, ~
+       (error _"~@<The slot ~s has neither ~s nor ~s allocation, ~
                so it can't be written by the default ~s method.~@:>"
 	      slotd :instance :class '(setf slot-value-using-class))))))
 
@@ -236,11 +237,11 @@
 			  (%slot-ref (std-instance-slots object) location))
 			 ((fsc-instance-p object)
 			  (%slot-ref (fsc-instance-slots object) location))
-			 (t (internal-error "What kind of instance is this?"))))
+			 (t (internal-error _"What kind of instance is this?"))))
 		  (cons
 		   (cdr location))
 		  (t
-		   (error "~@<The slot ~s has neither ~s nor ~s ~
+		   (error _"~@<The slot ~s has neither ~s nor ~s ~
                            allocation, so it can't be read by the default ~s ~
 			   method.~@:>"
 			  slotd :instance :class 'slot-boundp-using-class)))))
@@ -258,11 +259,11 @@
 	      (setf (%slot-ref (std-instance-slots object) location) +slot-unbound+))
 	     ((fsc-instance-p object)
 	      (setf (%slot-ref (fsc-instance-slots object) location) +slot-unbound+))
-	     (t (internal-error "What kind of instance is this?"))))
+	     (t (internal-error _"What kind of instance is this?"))))
       (cons
        (setf (cdr location) +slot-unbound+))
       (t
-       (error "~@<The slot ~s has neither ~s nor ~s allocation, ~
+       (error _"~@<The slot ~s has neither ~s nor ~s allocation, ~
                so it can't be written by the default ~s method.~@:>"
 	      slotd :instance :class 'slot-makunbound-using-class))))
   object)
@@ -293,7 +294,7 @@
 	   ((class structure-class)
 	    (object structure-object)
 	    (slotd structure-effective-slot-definition))
-  (error "Structure slots cannot be unbound."))
+  (error _"Structure slots cannot be unbound."))
 
 
 (defmethod slot-value-using-class
@@ -323,20 +324,20 @@
 
 (defmethod slot-makunbound-using-class ((class condition-class) object slot)
   (declare (ignore object slot))
-  (error "Condition slots cannot be unbound."))
+  (error _"Condition slots cannot be unbound."))
 
 
 (defmethod slot-missing
 	   ((class t) instance slot-name operation &optional new-value)
   (error
-   (format nil "~~@<When attempting to ~A, the slot ~S is missing ~
+   (format nil _"~~@<When attempting to ~A, the slot ~S is missing ~
                 from the object ~S.~~@:>"
 	   (ecase operation
-	     (slot-value "read the slot's value (slot-value)")
-	     (setf (format nil "set the slot's value to ~S (setf of slot-value)"
+	     (slot-value _"read the slot's value (slot-value)")
+	     (setf (format nil _"set the slot's value to ~S (setf of slot-value)"
 			   new-value))
-	     (slot-boundp "test to see if slot is bound (slot-boundp)")
-	     (slot-makunbound "make the slot unbound (slot-makunbound)"))
+	     (slot-boundp _"test to see if slot is bound (slot-boundp)")
+	     (slot-makunbound _"make the slot unbound (slot-makunbound)"))
 	   slot-name
 	   instance)))
 
@@ -364,7 +365,7 @@
   (let ((constructor (class-defstruct-constructor class)))
     (if constructor
 	(funcall constructor)
-	(error "~@<Can't allocate an instance of class ~S.~@:>"
+	(error _"~@<Can't allocate an instance of class ~S.~@:>"
 	       (class-name class)))))
 
 (defmethod allocate-instance ((class condition-class) &rest initargs &key)
diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 022fd1a9396c9b12b0a42f71db51eb278dc11d7f..c9fc6f3882485f1e30c1344d1d07f949d1f631f3 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -26,9 +26,10 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.84 2009/01/06 18:17:50 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.85 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 (defmethod slot-accessor-function ((slotd effective-slot-definition) type)
   (ecase type
diff --git a/pcl/vector.lisp b/pcl/vector.lisp
index fd2ea8540ec6d359e079ec4ea3e246b011bf73fd..9d0cf8fc5ab3891e852d49a56ef11a6da2143d05 100644
--- a/pcl/vector.lisp
+++ b/pcl/vector.lisp
@@ -26,9 +26,10 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/vector.lisp,v 1.29 2003/05/07 17:14:24 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/vector.lisp,v 1.30 2010/03/19 15:19:03 rtoy Rel $")
 
 (in-package :pcl)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; Return the index of the slot named SLOT-NAME in the slot vector of
diff --git a/pcl/walk.lisp b/pcl/walk.lisp
index 558211e4d43de1c61c20e1c4881c90463c11d7c9..94ffdf7f26fe99250122f296c43704ea6661832a 100644
--- a/pcl/walk.lisp
+++ b/pcl/walk.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.26 2003/05/04 13:11:20 gerd Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.27 2010/03/19 15:19:03 rtoy Rel $")
 ;;;
 ;;; A simple code walker, based IN PART on: (roll the credits)
 ;;;   Larry Masinter's Masterscope
@@ -56,6 +56,7 @@
 ;;; 
 
 (in-package :walker)
+(intl:textdomain "cmucl")
 
 ;;;
 ;;; The user entry points are walk-form and nested-walked-form.  In addition,
@@ -119,7 +120,7 @@
 
 (defun unbound-lexical-function (&rest args)
   (declare (ignore args))
-  (error "~@<The evaluator was called to evaluate a form in a macroexpansion ~
+  (error _"~@<The evaluator was called to evaluate a form in a macroexpansion ~
           environment constructed by the PCL portable code walker.  These ~
           environments are only useful for macroexpansion, they cannot be ~
           used for evaluation.  ~
@@ -309,7 +310,7 @@
 
 (defun variable-declaration (declaration var env)
   (if (not (member declaration *variable-declarations*))
-      (error "~@<~S is not a recognized variable declaration.~@:>" declaration)
+      (error _"~@<~S is not a recognized variable declaration.~@:>" declaration)
       (let ((id (or (variable-lexical-p var env) var)))
 	(dolist (decl (env-declarations env))
 	  (when (and (eq (car decl) declaration)
@@ -411,7 +412,7 @@
 	((and (listp x) (eq (car x) 'lambda))
 	 '(lambda repeat (eval)))
 	(t
-	 (error "~@<Can't get template for ~S.~@:>" x))))
+	 (error _"~@<Can't get template for ~S.~@:>" x))))
 
 (defun get-implementation-dependent-walker-template (x)
   (declare (ignore x))
@@ -610,7 +611,7 @@
 			 (not (fboundp fn))
 			 (special-operator-p fn))
 		    (error
-		     "~@<~S is a special form, not defined in the CommonLisp ~
+		     _"~@<~S is a special form, not defined in the CommonLisp ~
 		      manual.  This code walker doesn't know how to walk it.  ~
 		      Define a template for this special form and try again.~@:>"
 		     fn))
@@ -682,7 +683,7 @@
         ((eq form stop-form)
          (if (null repeat-template)
              (walk-template stop-form (cdr template) context env)       
-             (error "~@<While handling repeat: ~
+             (error _"~@<While handling repeat: ~
                      Ran into stop while still in repeat template.~@:>")))
         ((null repeat-template)
          (walk-template-handle-repeat-1
@@ -780,7 +781,7 @@
 
 (defun walk-unexpected-declare (form context env)
   (declare (ignore context env))
-  (warn "~@<Encountered declare ~S in a place where a ~
+  (warn _"~@<Encountered declare ~S in a place where a ~
          declare was not expected.~@:>"
 	form)
   form)
@@ -815,7 +816,7 @@
                     (not (symbolp (caddr arg)))
                     (note-lexical-binding (caddr arg) env))))
           (t
-	   (error "~@<Can't understand something in the arglist ~S.~@:>" arglist))))
+	   (error _"~@<Can't understand something in the arglist ~S.~@:>" arglist))))
 
 (defun walk-let (form context env)
   (walk-let/let* form context env nil))
@@ -1156,7 +1157,7 @@
 	(arm2 
 	  (if (cddddr form)
 	      (progn
-		(warn "~@<In the form ~S: ~
+		(warn _"~@<In the form ~S: ~
                        IF only accepts three arguments, you are using ~D. ~
                        It is true that some Common Lisps support this, but ~
                        it is not truly legal Common Lisp.  For now, this code ~
diff --git a/tools/build-world.sh b/tools/build-world.sh
index 9a76e10435e3384262b4863774d1c95a59420c10..27201d70544665f181287b35299617e6c4e4c49c 100755
--- a/tools/build-world.sh
+++ b/tools/build-world.sh
@@ -21,6 +21,10 @@ else
 	shift
 fi
 
+if [ -n "$MAKE_POT" ]; then
+    SAVEPOT='(intl::dump-pot-files :output-directory "default:src/i18n/locale/")'
+fi
+
 $LISP "$@" -noinit -nositeinit <<EOF
 (in-package :cl-user)
 
@@ -53,6 +57,8 @@ $LISP "$@" -noinit -nositeinit <<EOF
 #+(or no-compiler runtime) (comf "target:compiler/generic/new-genesis")
 #-(or no-pcl runtime) (load "target:tools/pclcom")
 
+$SAVEPOT
+
 (setq *gc-verbose* t *interactive* t)
 
 (load "target:tools/worldbuild")
diff --git a/tools/build.sh b/tools/build.sh
index 152dd9291ea71e00b1327b97cbf81509855a6332..897473215b50b4d849dce1df961e7c9b8826aacb 100755
--- a/tools/build.sh
+++ b/tools/build.sh
@@ -32,7 +32,7 @@
 #
 # For more information see src/BUILDING.
 #
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/build.sh,v 1.28 2010/02/01 15:04:51 rtoy Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/build.sh,v 1.29 2010/03/19 15:19:03 rtoy Exp $
 #
 
 ENABLE2="yes"
@@ -86,6 +86,7 @@ usage ()
     echo '               you would give to create-target.sh for the lisp'
     echo '               and motif variant.'
     echo '    -f mode   FPU mode:  x87, sse2, or auto.  Default is auto'
+    echo '    -P        On the last build, generate cmucl.pot'
     echo "    -?        This help message"
 
     exit 1
@@ -131,7 +132,7 @@ buildit ()
 }
 
 FPU_MODE=
-while getopts "123o:b:v:uB:C:i:f:?" arg
+while getopts "123Po:b:v:uB:C:i:f:?" arg
 do
     case $arg in
 	1) ENABLE2="no" ;;
@@ -146,6 +147,7 @@ do
 	B) bootfiles="$bootfiles $OPTARG" ;;
         i) INTERACTIVE_BUILD="$OPTARG" ;;
 	f) FPU_MODE="-fpu $OPTARG" ;;
+        P) BUILD_POT=yes ;;
 	\?) usage
 	    ;;
     esac
@@ -185,6 +187,11 @@ CLEAN_FLAGS="-K all"
 OLDLISP="${BASE}-3/lisp/lisp -noinit $FPU_MODE"
 ENABLE=$ENABLE4
 
+if [ "${BUILD_POT}" = "yes" ]; then
+   MAKE_POT=yes
+   export MAKE_POT
+fi
+
 BUILD=3
 buildit
 
diff --git a/tools/make-extra-dist.sh b/tools/make-extra-dist.sh
index c5e27d289228fddd4ae8c4fcf3ed0e3001484acb..27670d45323e25fb6a6f73933fe5ed1511cd010b 100755
--- a/tools/make-extra-dist.sh
+++ b/tools/make-extra-dist.sh
@@ -106,6 +106,29 @@ do
     install ${GROUP} ${OWNER} -m 0644 src/contrib/$f $DESTDIR/lib/cmucl/lib/contrib/$DIR
 done
 
+# Install all the locale data.
+
+for d in `(cd src/i18n/; find locale -type d -print | grep -v CVS)`
+do
+    install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d
+done
+
+# Install mo files.
+for f in `(cd $TARGET/i18n; find locale -type f -print | grep -v 'CVS\|~.*~\|.*~')`
+do
+    FILE=`basename $f`
+    DIR=`dirname $f`
+    install ${GROUP} ${OWNER} -m 0644 $TARGET/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR
+done
+
+# Install po files
+for f in `(cd src/i18n; find locale -type f -print | grep -v 'CVS\|~.*~\|.*~')`
+do
+    FILE=`basename $f`
+    DIR=`dirname $f`
+    install ${GROUP} ${OWNER} -m 0644 src/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR
+done
+
 if [ -z "$INSTALL_DIR" ]; then
     sync ; sleep 1 ; sync ; sleep 1 ; sync
     echo Tarring extra components
diff --git a/tools/piglatin.lisp b/tools/piglatin.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..56797b79c1e3eecedc4b35e5efa562e27d1ae71b
--- /dev/null
+++ b/tools/piglatin.lisp
@@ -0,0 +1,164 @@
+(defun latinize-1 (word)
+  (cond ((string= word "I") "Iway")
+	((string= word "a") "away")
+	((string= word "A") "Away")
+	((<= (length word) 1) word)
+	(t
+	 (let ((case (cond ((every #'upper-case-p word) :uppercase)
+			   ((upper-case-p (char word 0)) :capitalized)
+			   (t :lowercase)))
+	       (orig-word word)
+	       (word (string-downcase word)))
+	   (flet ((casify (string)
+		    (case case
+		      (:uppercase (nstring-upcase string))
+		      (:lowercase (nstring-downcase string))
+		      (:capitalized (nstring-capitalize string)))))
+	     (cond ((and (char= (char word 0) #\*)
+			 (char= (char word (1- (length word))) #\*))
+		    orig-word)
+		   ((eq case :uppercase)
+		    ;; For CMUCL's docstrings, if the word is
+		    ;; uppercase, let's not change it.  This usually
+		    ;; means it a reference to either a Lisp function
+		    ;; or variable that should probably not be
+		    ;; changed.
+		    (casify word))
+		   ((position (char word 0) "AEIOUaeiou")
+		    (casify (concatenate 'string word "way")))
+		   ((and (> (length word) 3)
+			 (member (subseq word 0 3)
+				 '("sch" "str")
+				 :test #'string=))
+		    (casify (concatenate 'string (subseq word 3)
+					 (subseq word 0 3) "ay")))
+		   ((member (subseq word 0 2)
+			    '("br" "bl" "ch" "cr" "cl" "dr" "fr" "fl" "gr" "gh"
+			      "gl" "kr" "kl" "mn" "pr" "ph" "pl" "qu" "rh" "sp"
+			      "sh" "sl" "sc" "sn" "tr" "th" "wr" "wh" "zh")
+			    :test #'string=)
+		    (casify (concatenate 'string (subseq word 2)
+					 (subseq word 0 2) "ay")))
+		   (t
+		    (casify (concatenate 'string (subseq word 1)
+					 (subseq word 0 1) "ay")))))))))
+
+(defun latinize (string)
+  (flet ((word-constituent-p (c)
+	   (or (char= c #\*)
+	       (alpha-char-p c)))
+	 (word-constituent-*-p (c)
+	   (or (char= c #\*)
+	       (char= c #\-)
+	       (alpha-char-p c))))
+    (with-output-to-string (str)
+      (loop for i = -1 then k
+	    as j = 0 then
+	       (or (position-if #'word-constituent-p string :start k)
+		   (length string))
+	    as k = (if (and (< j (length string))
+			    (char= (char string j) #\*))
+		       (position-if-not #'word-constituent-*-p string :start j)
+		       (position-if-not #'word-constituent-p string :start j))
+	    unless (minusp i) do (write-string string str :start i :end j)
+	    do (write-string (latinize-1 (subseq string j k)) str)
+	    while k))))
+
+
+(defconstant +piglatin-header+
+  "\"Project-Id-Version: CMUCL 20A\\n\"
+\"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\"
+\"Last-Translator: Automatic translation\\n\"
+\"Language-Team: Pig Latin (auto-translated)\\n\"
+\"MIME-Version: 1.0\\n\"
+\"Content-Type: text/plain; charset=UTF-8\\n\"
+\"Content-Transfer-Encoding: 8bit\\n\"
+\"Plural-Forms: nplurals=2; plural=(n != 1);\\n\"
+")
+
+
+(defun read-pot-string (stream char)
+  (declare (ignore char))
+  (let ((backslash nil))
+    (with-output-to-string (out)
+      (loop for ch = (read-char stream t nil t)
+	    until (and (not backslash) (char= ch #\")) do
+	(write-char ch out)
+	(cond (backslash (setq backslash nil))
+	      ((char= ch #\\) (setq backslash t)))))))
+
+(defun latinize-pot (in out)
+  (let ((state 0)
+	(string nil)
+	(plural nil)
+	(count 0))
+    (with-open-file (pot in :direction :input :external-format :utf-8)
+      (with-open-file (po out :direction :output :external-format :utf-8
+			  :if-does-not-exist :create
+			  :if-exists :supersede)
+	(let ((*readtable* (copy-readtable nil)))
+	  (set-macro-character #\# (lambda (stream char)
+				     (declare (ignore char))
+				     (list (read-line stream t nil t))))
+	  (set-macro-character #\" #'read-pot-string)
+	  (loop for item = (read pot nil pot) until (eq item pot) do
+	       (cond ((consp item)
+		      (write-char #\# po) (write-string (car item) po) (terpri po))
+		     ((eq item 'msgid)
+		      (write-string "msgid " po)
+		      (incf count)
+		      (setq state 1))
+		     ((eq item 'msgid_plural)
+		      (write-string "msgid_plural " po)
+		      (setq state 2))
+		     ((eq item 'msgstr)
+		      (write-string "msgstr " po)
+		      (when (equal string '(""))
+			(write-string +piglatin-header+ po)
+			(setq string nil))
+		      (dolist (x string)
+			(write-char #\" po)
+			(write-string x po)
+			(write-char #\" po)
+			(terpri po))
+		      (terpri po)
+		      (setq state 0 string nil))
+		     ((eq item 'msgstr[0])
+		      (write-string "msgstr[0] " po)
+		      (dolist (x string)
+			(write-char #\" po)
+			(write-string x po)
+			(write-char #\" po)
+			(terpri po))
+		      (write-string "msgstr[1] " po)
+		      (dolist (x plural)
+			(write-char #\" po)
+			(write-string x po)
+			(write-char #\" po)
+			(terpri po))
+		      (terpri po)
+		      (setq state 0 string nil plural nil))
+		     ((not (stringp item)) (error "Something's wrong"))
+		     ((= state 1)
+		      (write-char #\" po)
+		      (write-string item po)
+		      (write-char #\" po)
+		      (terpri po)
+		      (setq string (nconc string (list (latinize item)))))
+		     ((= state 2)
+		      (write-char #\" po)
+		      (write-string item po)
+		      (write-char #\" po)
+		      (terpri po)
+		      (setq plural (nconc plural (list (latinize item))))))))))
+    (format t "~&Translated ~D messages~%" count)))
+
+;; Translate all of the pot files in DIR
+(defun do-translations (&optional (dir "target:i18n/locale"))
+  (dolist (pot (directory (merge-pathnames (make-pathname :name :wild :type "pot" :version :newest)
+					   dir)))
+    (let ((po (merge-pathnames (make-pathname :directory '(:relative "en@piglatin" "LC_MESSAGES")
+					      :name (pathname-name pot) :type "po")
+			       dir)))
+      (format t "~A -> ~A~%" pot po)
+      (latinize-pot pot po))))
\ No newline at end of file
diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index e8c469d1aa9cfb5efa885e2433bca5a4599300d6..60f5e46076e1af13827edcdeebf83ac0ce2510ed 100644
--- a/tools/worldbuild.lisp
+++ b/tools/worldbuild.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.55 2009/06/18 17:39:45 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.56 2010/03/19 15:19:04 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -184,7 +184,8 @@
     "target:code/debug"
 
     ,@(when (c:backend-featurep :mp)
-	'("target:code/multi-proc"))
+	    '("target:code/multi-proc"))
+    "target:code/intl-tramp"
     ))
 
 (setf *genesis-core-name* "target:lisp/kernel.core")
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index c027c1b66c83ee8746d1c9df3fea0a2b1bebcfe8..659fffcb2224a86f678d5d39d4dc503b5f8baffd 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.102 2009/06/18 17:39:45 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.103 2010/03/19 15:19:04 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -318,6 +318,9 @@
   (comf "target:code/macros")
   #-no-runtime (comf "target:code/macros" :byte-compile t))
 
+(comf "target:code/intl-tramp")
+(comf "target:code/intl")
+
 ); let *byte-compile-top-level*
 
 ); with-compiler-log-file
diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 0b0c318d6b87ce6e9e211b1fc9d5c79372055d08..b715c2b60ae92a2125406f2993edc7b9dee83116 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.110 2009/06/11 16:04:02 rtoy Rel $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.111 2010/03/19 15:19:04 rtoy Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -164,6 +164,9 @@
 #+(and unicode (not (or unicode-bootstrap no-compiler runtime)))
 (maybe-byte-load "code:fd-stream-extfmt")
 
+(maybe-byte-load "target:code/intl")
+
+
 ;;; PCL.
 ;;;
 #-(or no-pcl runtime) (maybe-byte-load "pcl:pclload")