CMUCL commit: intl-branch src (8 files)
Raymond Toy
rtoy at common-lisp.net
Wed Feb 10 18:38:34 CET 2010
Date: Wednesday, February 10, 2010 @ 12:38:34
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: compiler/aliencomp.lisp compiler/alloc.lisp
compiler/array-tran.lisp compiler/backend.lisp
compiler/bit-util.lisp compiler/byte-comp.lisp
i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; regenerated cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
compiler/aliencomp.lisp | 70 ++--
compiler/alloc.lisp | 8
compiler/array-tran.lisp | 30 -
compiler/backend.lisp | 20 -
compiler/bit-util.lisp | 4
compiler/byte-comp.lisp | 60 +--
i18n/locale/cmucl.pot | 322 ++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 540 +++++++++++++++++++++++++++++-----
8 files changed, 882 insertions(+), 172 deletions(-)
Index: src/compiler/aliencomp.lisp
diff -u src/compiler/aliencomp.lisp:1.31.32.1 src/compiler/aliencomp.lisp:1.31.32.2
--- src/compiler/aliencomp.lisp:1.31.32.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/aliencomp.lisp Wed Feb 10 12:38:34 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/aliencomp.lisp,v 1.31.32.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/aliencomp.lisp,v 1.31.32.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -102,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))
@@ -113,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))))))
@@ -198,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))
@@ -219,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))
@@ -238,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)))))
@@ -304,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))))
@@ -360,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
@@ -386,12 +386,12 @@
((ctypep 0.0d0 alien-rep-type) 0.0d0)
(t
(compiler-error
- "Aliens of type ~S cannot be represented immediately."
+ _"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)))
@@ -404,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)
@@ -413,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)
@@ -435,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)
@@ -469,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
@@ -499,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."))
@@ -515,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))))
@@ -626,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)
@@ -661,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)))))
@@ -681,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)
@@ -700,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)
Index: src/compiler/alloc.lisp
diff -u src/compiler/alloc.lisp:1.14.46.1 src/compiler/alloc.lisp:1.14.46.2
--- src/compiler/alloc.lisp:1.14.46.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/alloc.lisp Wed Feb 10 12:38:34 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/alloc.lisp,v 1.14.46.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/alloc.lisp,v 1.14.46.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -45,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)
@@ -77,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)))
@@ -96,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))
Index: src/compiler/array-tran.lisp
diff -u src/compiler/array-tran.lisp:1.43.12.1 src/compiler/array-tran.lisp:1.43.12.2
--- src/compiler/array-tran.lisp:1.43.12.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/array-tran.lisp Wed Feb 10 12:38:34 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/array-tran.lisp,v 1.43.12.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/array-tran.lisp,v 1.43.12.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -293,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)
@@ -304,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
@@ -327,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 _"Default initial element ~s is not a ~s."
default-initial-element eltype))
constructor)
(t
@@ -342,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)
@@ -397,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.
@@ -410,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)
@@ -418,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)
@@ -432,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)))))))
@@ -447,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.
@@ -486,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)))
@@ -511,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.
Index: src/compiler/backend.lisp
diff -u src/compiler/backend.lisp:1.32.54.1 src/compiler/backend.lisp:1.32.54.2
--- src/compiler/backend.lisp:1.32.54.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/backend.lisp Wed Feb 10 12:38:34 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/backend.lisp,v 1.32.54.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/backend.lisp,v 1.32.54.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -50,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)))
@@ -101,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 , at body)
@@ -234,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.")
@@ -247,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)))
Index: src/compiler/bit-util.lisp
diff -u src/compiler/bit-util.lisp:1.7.56.1 src/compiler/bit-util.lisp:1.7.56.2
--- src/compiler/bit-util.lisp:1.7.56.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/bit-util.lisp Wed Feb 10 12:38:34 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/bit-util.lisp,v 1.7.56.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/bit-util.lisp,v 1.7.56.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -40,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))))
Index: src/compiler/byte-comp.lisp
diff -u src/compiler/byte-comp.lisp:1.49.8.1 src/compiler/byte-comp.lisp:1.49.8.2
--- src/compiler/byte-comp.lisp:1.49.8.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/byte-comp.lisp Wed Feb 10 12:38:34 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/byte-comp.lisp,v 1.49.8.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/byte-comp.lisp,v 1.49.8.2 2010-02-10 17:38:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -233,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
@@ -298,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:
@@ -1055,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))
@@ -2142,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)))
@@ -2152,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)
@@ -2276,7 +2276,7 @@
(get-constant (index)
(if (< -1 index (length constants))
(aref constants index)
- "<bogus index>")))
+ _"<bogus index>")))
(loop
(unless (< index bytes)
(return))
@@ -2291,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)))
@@ -2304,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)
@@ -2388,6 +2388,6 @@
((#b11100000 #b11100000)
;; inline
- (note "inline ~A"
+ (note _"inline ~A"
(inline-function-info-function
(svref *inline-functions* (ldb (byte 5 0) byte))))))))))))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.15 src/i18n/locale/cmucl.pot:1.1.2.16
--- src/i18n/locale/cmucl.pot:1.1.2.15 Wed Feb 10 09:07:36 2010
+++ src/i18n/locale/cmucl.pot Wed Feb 10 12:38:34 2010
@@ -73,6 +73,10 @@
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 ""
@@ -1226,7 +1230,7 @@
msgid "Dimension is not a non-negative fixnum: ~S"
msgstr ""
-#: target:code/alieneval.lisp
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
msgid "Unknown size: ~S"
msgstr ""
@@ -1388,7 +1392,7 @@
msgid "~S cannot be cast."
msgstr ""
-#: target:code/alieneval.lisp
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
msgid "Cannot cast to alien type ~S"
msgstr ""
@@ -13782,3 +13786,317 @@
msgid "Ignoring unknown option: ~S."
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/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
+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/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/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/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 ""
+
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.15 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.16
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.15 Wed Feb 10 09:07:37 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Wed Feb 10 12:38:34 2010
@@ -72,6 +72,10 @@
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 ""
@@ -123,12 +127,14 @@
msgstr ""
#: target:code/kernel.lisp
+#, fuzzy
msgid "Returns the three-bit lowtag for the object X."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/kernel.lisp
+#, fuzzy
msgid "Returns the 8-bit header type for the object X."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/kernel.lisp
msgid ""
@@ -1013,8 +1019,9 @@
msgstr ""
#: target:code/pred.lisp
+#, fuzzy
msgid "Return the type of OBJECT."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/pred.lisp
msgid ""
@@ -1227,7 +1234,7 @@
msgid "Dimension is not a non-negative fixnum: ~S"
msgstr ""
-#: target:code/alieneval.lisp
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
msgid "Unknown size: ~S"
msgstr ""
@@ -1389,7 +1396,7 @@
msgid "~S cannot be cast."
msgstr ""
-#: target:code/alieneval.lisp
+#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
msgid "Cannot cast to alien type ~S"
msgstr ""
@@ -1566,8 +1573,9 @@
msgstr ""
#: target:code/sap.lisp
+#, fuzzy
msgid "Return the byte offset between SAP1 and SAP2."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/sap.lisp
msgid "Converts a System Area Pointer into an integer."
@@ -1578,8 +1586,9 @@
msgstr ""
#: target:code/sap.lisp
+#, fuzzy
msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/sap.lisp
msgid "Returns the 16-bit word at OFFSET bytes from SAP."
@@ -1606,12 +1615,14 @@
msgstr ""
#: target:code/sap.lisp
+#, fuzzy
msgid "Returns the long-float at OFFSET bytes from SAP."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/sap.lisp
+#, fuzzy
msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/sap.lisp
msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
@@ -1701,16 +1712,19 @@
msgstr ""
#: target:code/byte-interp.lisp
+#, fuzzy
msgid "Wrong number of arguments."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/byte-interp.lisp
+#, fuzzy
msgid "Not enough arguments."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/byte-interp.lisp
+#, fuzzy
msgid "Too many arguments."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/interr.lisp target:code/byte-interp.lisp
msgid "Odd number of keyword arguments."
@@ -1908,8 +1922,9 @@
msgstr ""
#: target:code/array.lisp
+#, fuzzy
msgid "Returns the Index'th element of the given Simple-Vector."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
msgid "Returns the bit from the Bit-Array at the specified Subscripts."
@@ -1925,12 +1940,14 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
+#, fuzzy
msgid "Returns the number of dimensions of the Array."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
+#, fuzzy
msgid "Returns length of dimension Axis-Number of the Array."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
msgid "Vector axis is not zero: ~S"
@@ -1941,12 +1958,14 @@
msgstr ""
#: target:code/array.lisp
+#, fuzzy
msgid "Returns a list whose elements are the dimensions of the array"
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
+#, fuzzy
msgid "Returns the total number of elements in the Array."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
msgid ""
@@ -2134,8 +2153,9 @@
msgstr ""
#: target:code/hash-new.lisp
+#, fuzzy
msgid "Returns the number of entries in the given HASH-TABLE."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/hash-new.lisp
msgid "Return the rehash-size HASH-TABLE was created with."
@@ -2243,8 +2263,9 @@
msgstr ""
#: target:code/seq.lisp
+#, fuzzy
msgid "Returns a sequence of the given TYPE and LENGTH."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/seq.lisp
msgid "Returns the element of SEQUENCE specified by INDEX."
@@ -4306,8 +4327,9 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
+#, fuzzy
msgid "Unix-gethostname returns the name of the host machine as a string."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
msgid ""
@@ -4607,8 +4629,9 @@
msgstr ""
#: target:code/symbol.lisp
+#, fuzzy
msgid "Return the hash value for symbol."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/symbol.lisp
msgid ""
@@ -4772,8 +4795,9 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Extracts the real part of a number."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid "Extracts the imaginary part of a number."
@@ -4876,23 +4900,27 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns T if all of its arguments are numerically equal, NIL otherwise."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns T if no two of its arguments are numerically equal, NIL otherwise."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns T if its arguments are in strictly increasing order, NIL otherwise."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -4924,9 +4952,10 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns the bit-wise exclusive or of its arguments. Args must be integers."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
#, fuzzy
@@ -4934,33 +4963,40 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns the bit-wise equivalence of its arguments. Args must be integers."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the complement of the logical AND of integer1 and integer2."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the complement of the logical OR of integer1 and integer2."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
#, fuzzy
@@ -4990,21 +5026,24 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid ""
"Returns the number of significant bits in the absolute value of integer."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid "Returns a byte specifier which may be used by other byte functions."
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the size part of the byte specifier bytespec."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the position part of the byte specifier bytespec."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid "Extract the specified byte from integer, and right justify result."
@@ -5132,8 +5171,9 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns T iff X is a positive prime integer."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -5236,8 +5276,9 @@
msgstr ""
#: target:code/float.lisp
+#, fuzzy
msgid "Return true if the float X is denormalized."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/float.lisp
msgid ""
@@ -5321,12 +5362,14 @@
msgstr ""
#: target:code/irrat.lisp
+#, fuzzy
msgid "Return e raised to the power NUMBER."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/irrat.lisp
+#, fuzzy
msgid "The absolute value of ~S exceeds limit ~S."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/irrat.lisp
msgid "Continue with calculation"
@@ -5382,12 +5425,14 @@
msgstr ""
#: target:code/irrat.lisp
+#, fuzzy
msgid "Return the arc sine of NUMBER."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/irrat.lisp
+#, fuzzy
msgid "Return the arc cosine of NUMBER."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/irrat.lisp
msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
@@ -5594,8 +5639,9 @@
msgstr ""
#: target:code/char.lisp
+#, fuzzy
msgid "Returns the integer code of CHAR."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
msgid ""
@@ -5708,38 +5754,45 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid "Returns T if no two of its arguments are the same character."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid "Returns T if its arguments are in strictly increasing alphabetic order."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid "Returns T if its arguments are in strictly decreasing alphabetic order."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid ""
"Returns T if its arguments are in strictly non-decreasing alphabetic order."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid ""
"Returns T if its arguments are in strictly non-increasing alphabetic order."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid ""
"Returns T if all of its arguments are the same character.\n"
" Case is ignored."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
+#, fuzzy
msgid ""
"Returns T if no two of its arguments are the same character.\n"
" Case is ignored."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
msgid ""
@@ -5850,8 +5903,9 @@
msgstr ""
#: target:code/misc.lisp
+#, fuzzy
msgid "Returns a string with the long form of the site name."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/misc.lisp
msgid ""
@@ -6924,8 +6978,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Returns the external format used by the given Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid ""
@@ -6979,12 +7034,14 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Returns T if a character is available on the given Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
+#, fuzzy
msgid "Returns the next character from the Stream if one is available, or nil."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid "Clears any buffered input associated with the Stream."
@@ -7010,12 +7067,14 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Outputs the Character to the Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
+#, fuzzy
msgid "Outputs a new line to the Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid ""
@@ -7025,8 +7084,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Outputs the String to the given Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid ""
@@ -7060,8 +7120,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Outputs the Integer to the binary Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid ""
@@ -7173,8 +7234,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "The stream is not open."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid "The stream is not open for input."
@@ -7872,8 +7934,9 @@
msgstr ""
#: target:code/package.lisp
+#, fuzzy
msgid "There is no parent of ~a."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
msgid ""
@@ -7883,8 +7946,9 @@
msgstr ""
#: target:code/package.lisp
+#, fuzzy
msgid "Find the package having the specified name."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
#, fuzzy
@@ -8082,8 +8146,9 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
+#, fuzzy
msgid "Returns a symbol having the specified name, creating it if necessary."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
msgid ""
@@ -9448,8 +9513,9 @@
msgstr ""
#: target:code/pathname.lisp
+#, fuzzy
msgid "Return the (logical) host object argument's list of translations."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/pathname.lisp
msgid ""
@@ -10225,8 +10291,9 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/signal.lisp
+#, fuzzy
msgid "A list of unix signal structures."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/signal.lisp
msgid "~S is not a valid signal name or number."
@@ -10764,8 +10831,9 @@
msgstr ""
#: target:code/debug-int.lisp
+#, fuzzy
msgid "Returns the code-location's debug-source."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/debug-int.lisp
msgid ""
@@ -10986,8 +11054,9 @@
msgstr ""
#: target:code/debug-int.lisp
+#, fuzzy
msgid "This returns whether breakpoint is currently active."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/debug-int.lisp
msgid ""
@@ -11594,8 +11663,9 @@
msgstr ""
#: target:code/describe.lisp
+#, fuzzy
msgid " There is no argument information available."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/describe.lisp
msgid "Macro-function: ~S"
@@ -11939,8 +12009,9 @@
msgstr ""
#: target:code/run-program.lisp
+#, fuzzy
msgid "List of process structures for all active processes."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/run-program.lisp
msgid ""
@@ -11989,8 +12060,9 @@
msgstr ""
#: target:code/run-program.lisp
+#, fuzzy
msgid "Returns the master fd, the slave fd, and the name of the tty"
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/run-program.lisp
msgid "Could not find a pty."
@@ -12506,8 +12578,9 @@
msgstr ""
#: target:code/wire.lisp
+#, fuzzy
msgid "Returns T iff the given remote object is defined locally."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/wire.lisp
msgid ""
@@ -12590,8 +12663,9 @@
msgstr ""
#: target:code/wire.lisp
+#, fuzzy
msgid "Reads the next object from the wire and returns it."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/wire.lisp
msgid ""
@@ -12615,12 +12689,14 @@
msgstr ""
#: target:code/wire.lisp
+#, fuzzy
msgid "Output the given (8-bit) byte on the wire."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/wire.lisp
+#, fuzzy
msgid "Output the given (32-bit) number on the wire."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/wire.lisp
msgid ""
@@ -13837,6 +13913,322 @@
msgid "Ignoring unknown option: ~S."
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/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
+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/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/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
+#, fuzzy
+msgid "Wrong number of arguments. Expected ~D, got ~D."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: 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/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 ""
+
#~ msgid "Read-Only Space Usage: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%"
#~ msgstr "ì½ê¸° ì „ìš© 공간 사용: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%"
More information about the cmucl-commit
mailing list