CMUCL commit: intl-branch src (5 files)
Raymond Toy
rtoy at common-lisp.net
Thu Feb 11 01:04:42 CET 2010
Date: Wednesday, February 10, 2010 @ 19:04:42
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: compiler/float-tran.lisp compiler/globaldb.lisp compiler/gtn.lisp
i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; regenerate cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
compiler/float-tran.lisp | 60 ++++-----
compiler/globaldb.lisp | 34 ++---
compiler/gtn.lisp | 6
i18n/locale/cmucl.pot | 217 +++++++++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 223 ++++++++++++++++++++++++++++++++++
5 files changed, 490 insertions(+), 50 deletions(-)
Index: src/compiler/float-tran.lisp
diff -u src/compiler/float-tran.lisp:1.136.2.1 src/compiler/float-tran.lisp:1.136.2.2
--- src/compiler/float-tran.lisp:1.136.2.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/float-tran.lisp Wed Feb 10 19:04:41 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/float-tran.lisp,v 1.136.2.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/float-tran.lisp,v 1.136.2.2 2010-02-11 00:04:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -276,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
@@ -291,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))
@@ -335,7 +335,7 @@
(values (bignum::%multiply (random-chunk (or state *random-state*))
num))))
(t
- (error "Shouldn't happen")))))
+ (error _"Shouldn't happen")))))
;;;; Float accessors:
@@ -624,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 <)
@@ -731,7 +731,7 @@
'single-float))
(t
(compiler-note
- "Unable to avoid inline argument range check~@
+ _"Unable to avoid inline argument range check~@
because the argument range (~s) was not within 2^~D"
(type-specifier (continuation-type x))
limit)
@@ -747,7 +747,7 @@
`(,prim-quick x))
(t
(compiler-note
- "Unable to avoid inline argument range check~@
+ _"Unable to avoid inline argument range check~@
because the argument range (~s) was not within 2^~D"
(type-specifier (continuation-type x))
limit)
@@ -873,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 _"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 _"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))))
@@ -1818,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))))
@@ -1826,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))
@@ -1838,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)))
@@ -1873,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))
@@ -1892,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)))
@@ -1917,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)))
@@ -1935,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)))
@@ -1993,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))
@@ -2012,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)
@@ -2048,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)
@@ -2067,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.
@@ -2078,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)))
@@ -2092,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)))
@@ -2120,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)))
@@ -2139,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)))
@@ -2234,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))
@@ -2300,7 +2300,7 @@
(declaim (inline sqr-d))
(defun sqr-d (a)
- "Square"
+ _N"Square"
(declare (double-float a)
(optimize (speed 3)
(inhibit-warnings 3)))
Index: src/compiler/globaldb.lisp
diff -u src/compiler/globaldb.lisp:1.53.22.1 src/compiler/globaldb.lisp:1.53.22.2
--- src/compiler/globaldb.lisp:1.53.22.1 Mon Feb 8 11:28:20 2010
+++ src/compiler/globaldb.lisp Wed Feb 10 19:04:42 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/globaldb.lisp,v 1.53.22.1 2010-02-08 16:28:20 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/globaldb.lisp,v 1.53.22.2 2010-02-11 00:04:42 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -106,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
@@ -136,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
@@ -152,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)
@@ -177,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
@@ -187,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
@@ -228,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
@@ -236,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)))
@@ -317,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."
@@ -331,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))
@@ -355,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."
@@ -649,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)
@@ -812,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)))
@@ -834,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)
@@ -889,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))
Index: src/compiler/gtn.lisp
diff -u src/compiler/gtn.lisp:1.17.54.1 src/compiler/gtn.lisp:1.17.54.2
--- src/compiler/gtn.lisp:1.17.54.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/gtn.lisp Wed Feb 10 19:04:42 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/gtn.lisp,v 1.17.54.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/gtn.lisp,v 1.17.54.2 2010-02-11 00:04:42 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -160,7 +160,7 @@
(dolist (fun funs
(let ((*compiler-error-context* (lambda-bind (first funs))))
(compiler-note
- "Return value count mismatch prevents known return ~
+ _"Return value count mismatch prevents known return ~
from these functions:~
~{~% ~A~}"
(remove nil (mapcar #'leaf-name funs)))))
@@ -173,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 ~
+ _"Return type not fixed values, so can't use known return ~
convention:~% ~S"
(type-specifier rtype)))
(return)))))))))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.18 src/i18n/locale/cmucl.pot:1.1.2.19
--- src/i18n/locale/cmucl.pot:1.1.2.18 Wed Feb 10 17:47:03 2010
+++ src/i18n/locale/cmucl.pot Wed Feb 10 19:04:42 2010
@@ -13202,6 +13202,105 @@
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 "
@@ -14662,6 +14761,111 @@
" array-has-fill-pointer-p at runtime."
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/constraint.lisp
msgid "*** Unreachable code in constraint ~\n"
" propagation... Bug?"
@@ -14760,6 +14964,19 @@
msgid "No unique move-arg-vop for moves in SC ~S."
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/codegen.lisp
msgid "Returns the number of bytes used by the code object header."
msgstr ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.18 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.19
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.18 Wed Feb 10 17:47:03 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Wed Feb 10 19:04:42 2010
@@ -13487,6 +13487,110 @@
msgid ", but got ~D."
msgstr ""
+#: target:compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr ""
+
+#: target:compiler/globaldb.lisp
+#, fuzzy
+msgid "~S is not a defined info class."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/globaldb.lisp
+#, fuzzy
+msgid "~S is not a defined info type."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: 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
+#, fuzzy
+msgid "Redefine it."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: 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
+#, fuzzy
+msgid "0 is not a legal INFO name."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: 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 "
@@ -14957,6 +15061,112 @@
"\t array-has-fill-pointer-p at runtime."
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
+#, fuzzy
+msgid "~S doesn't have a precise float representation."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~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 ""
+
+#: 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/constraint.lisp
msgid ""
"*** Unreachable code in constraint ~\n"
@@ -15058,6 +15268,19 @@
msgid "No unique move-arg-vop for moves in SC ~S."
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/codegen.lisp
#, fuzzy
msgid "Returns the number of bytes used by the code object header."
More information about the cmucl-commit
mailing list