CMUCL commit: intl-branch src (11 files)

Raymond Toy rtoy at common-lisp.net
Thu Feb 11 04:14:00 CET 2010


    Date: Wednesday, February 10, 2010 @ 22:14:00
  Author: rtoy
    Path: /project/cmucl/cvsroot/src
     Tag: intl-branch

Modified: compiler/generic/core.lisp compiler/generic/interr.lisp
          compiler/generic/objdef.lisp compiler/generic/primtype.lisp
          compiler/generic/utils.lisp compiler/generic/vm-macs.lisp
          compiler/generic/vm-tran.lisp compiler/generic/vm-type.lisp
          compiler/vmdef.lisp i18n/locale/cmucl.pot
          i18n/locale/ko/LC_MESSAGES/cmucl.po

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


-------------------------------------+
 compiler/generic/core.lisp          |   16 +--
 compiler/generic/interr.lisp        |    4 
 compiler/generic/objdef.lisp        |   16 +--
 compiler/generic/primtype.lisp      |    4 
 compiler/generic/utils.lisp         |   22 ++--
 compiler/generic/vm-macs.lisp       |    6 -
 compiler/generic/vm-tran.lisp       |    6 -
 compiler/generic/vm-type.lisp       |    4 
 compiler/vmdef.lisp                 |   18 +--
 i18n/locale/cmucl.pot               |  167 ++++++++++++++++++++++++++++++-
 i18n/locale/ko/LC_MESSAGES/cmucl.po |  179 ++++++++++++++++++++++++++++++++--
 11 files changed, 379 insertions(+), 63 deletions(-)


Index: src/compiler/generic/core.lisp
diff -u src/compiler/generic/core.lisp:1.40.54.1 src/compiler/generic/core.lisp:1.40.54.2
--- src/compiler/generic/core.lisp:1.40.54.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/core.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/core.lisp,v 1.40.54.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/core.lisp,v 1.40.54.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -65,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))
@@ -109,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)))))
 
@@ -278,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
@@ -320,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)
@@ -330,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))
@@ -344,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)))
Index: src/compiler/generic/interr.lisp
diff -u src/compiler/generic/interr.lisp:1.13.26.1 src/compiler/generic/interr.lisp:1.13.26.2
--- src/compiler/generic/interr.lisp:1.13.26.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/interr.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/interr.lisp,v 1.13.26.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/interr.lisp,v 1.13.26.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,7 +23,7 @@
 
 (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)
Index: src/compiler/generic/objdef.lisp
diff -u src/compiler/generic/objdef.lisp:1.61.24.1 src/compiler/generic/objdef.lisp:1.61.24.2
--- src/compiler/generic/objdef.lisp:1.61.24.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/objdef.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/objdef.lisp,v 1.61.24.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/objdef.lisp,v 1.61.24.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -72,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
Index: src/compiler/generic/primtype.lisp
diff -u src/compiler/generic/primtype.lisp:1.25.26.1 src/compiler/generic/primtype.lisp:1.25.26.2
--- src/compiler/generic/primtype.lisp:1.25.26.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/primtype.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/primtype.lisp,v 1.25.26.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/primtype.lisp,v 1.25.26.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -220,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.")
 
 
Index: src/compiler/generic/utils.lisp
diff -u src/compiler/generic/utils.lisp:1.10.38.1 src/compiler/generic/utils.lisp:1.10.38.2
--- src/compiler/generic/utils.lisp:1.10.38.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/utils.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/utils.lisp,v 1.10.38.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/utils.lisp,v 1.10.38.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -25,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)))
 
 
 
@@ -42,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))
@@ -54,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
@@ -64,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))
@@ -82,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))
@@ -95,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))))
Index: src/compiler/generic/vm-macs.lisp
diff -u src/compiler/generic/vm-macs.lisp:1.20.38.1 src/compiler/generic/vm-macs.lisp:1.20.38.2
--- src/compiler/generic/vm-macs.lisp:1.20.38.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/vm-macs.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.20.38.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.20.38.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -116,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))
@@ -155,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)))
Index: src/compiler/generic/vm-tran.lisp
diff -u src/compiler/generic/vm-tran.lisp:1.61.12.1 src/compiler/generic/vm-tran.lisp:1.61.12.2
--- src/compiler/generic/vm-tran.lisp:1.61.12.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/vm-tran.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.61.12.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.61.12.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -330,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)))
@@ -368,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)))
Index: src/compiler/generic/vm-type.lisp
diff -u src/compiler/generic/vm-type.lisp:1.44.26.1 src/compiler/generic/vm-type.lisp:1.44.26.2
--- src/compiler/generic/vm-type.lisp:1.44.26.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/generic/vm-type.lisp	Wed Feb 10 22:14:00 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-type.lisp,v 1.44.26.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-type.lisp,v 1.44.26.2 2010-02-11 03:14:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -163,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))))
 
Index: src/compiler/vmdef.lisp
diff -u src/compiler/vmdef.lisp:1.49.56.1 src/compiler/vmdef.lisp:1.49.56.2
--- src/compiler/vmdef.lisp:1.49.56.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/vmdef.lisp	Wed Feb 10 22:13:59 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/vmdef.lisp,v 1.49.56.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/vmdef.lisp,v 1.49.56.2 2010-02-11 03:13:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -29,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
@@ -40,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))))
@@ -60,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))))
@@ -114,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
@@ -278,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
@@ -290,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."
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.22 src/i18n/locale/cmucl.pot:1.1.2.23
--- src/i18n/locale/cmucl.pot:1.1.2.22	Wed Feb 10 21:45:32 2010
+++ src/i18n/locale/cmucl.pot	Wed Feb 10 22:14:00 2010
@@ -1052,6 +1052,10 @@
 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 ""
@@ -10067,7 +10071,7 @@
 msgid "Top-Level Form"
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr ""
 
@@ -10075,7 +10079,7 @@
 msgid "~S defined~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Unknown foreign symbol: ~S"
 msgstr ""
 
@@ -10083,7 +10087,7 @@
 msgid "Cannot load assembler code."
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Undefined assembler routine: ~S"
 msgstr ""
 
@@ -14586,6 +14590,15 @@
 "              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"
@@ -14625,10 +14638,86 @@
 "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/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"
@@ -14750,10 +14839,6 @@
 msgstr ""
 
 #: target:compiler/meta-vmdef.lisp
-msgid "~S is not a defined primitive type."
-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 "
@@ -17739,6 +17824,52 @@
 "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 ""
@@ -18020,6 +18151,12 @@
 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 ""
@@ -18122,6 +18259,22 @@
 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 ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.22 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.23
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.22	Wed Feb 10 21:45:32 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po	Wed Feb 10 22:14:00 2010
@@ -1058,6 +1058,11 @@
 msgid "Type for any keyword symbol."
 msgstr ""
 
+#: target:compiler/generic/vm-type.lisp
+#, fuzzy
+msgid "~S isn't an integer type?"
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
 #: target:code/pred.lisp
 #, fuzzy
 msgid "Return the type of OBJECT."
@@ -10310,7 +10315,7 @@
 msgid "Top-Level Form"
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr ""
 
@@ -10318,7 +10323,7 @@
 msgid "~S defined~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Unknown foreign symbol: ~S"
 msgstr ""
 
@@ -10326,7 +10331,7 @@
 msgid "Cannot load assembler code."
 msgstr ""
 
-#: target:code/load.lisp
+#: target:compiler/generic/core.lisp target:code/load.lisp
 msgid "Undefined assembler routine: ~S"
 msgstr ""
 
@@ -14880,6 +14885,16 @@
 "              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"
@@ -14920,10 +14935,92 @@
 "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
+#, fuzzy
+msgid ""
+"Exclusive upper bound on the value of the low tag bits from a\n"
+"  pointer."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: 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
+#, fuzzy
+msgid "Unknown internal error: ~S"
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
 #: 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/vmdef.lisp
+#, fuzzy
+msgid "~S is not a defined template."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/vmdef.lisp
+#, fuzzy
+msgid "~S is not a defined storage class."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/vmdef.lisp
+#, fuzzy
+msgid "~S is not a defined storage base."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+#, fuzzy
+msgid "~S is not a defined primitive type."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: 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"
@@ -15047,11 +15144,6 @@
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
 #: target:compiler/meta-vmdef.lisp
-#, fuzzy
-msgid "~S is not a defined primitive type."
-msgstr "현재의 역동적인 공간은 ~D입니다.~%"
-
-#: 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 "
@@ -18068,6 +18160,55 @@
 "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
+#, fuzzy
+msgid "Returns the byte offset of the static symbol Symbol."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: target:compiler/generic/utils.lisp
+#, fuzzy
+msgid "~S is not a static symbol."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: 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
+#, fuzzy
+msgid "~S isn't a static function."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: 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 ""
@@ -18352,6 +18493,12 @@
 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
 #, fuzzy
 msgid "Returns the number of bytes used by the code object header."
@@ -18455,6 +18602,22 @@
 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 ""



More information about the cmucl-commit mailing list