CMUCL commit: intl-branch src (10 files)
Raymond Toy
rtoy at common-lisp.net
Wed Feb 10 15:07:37 CET 2010
Date: Wednesday, February 10, 2010 @ 09:07:37
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/class.lisp code/defstruct.lisp code/error.lisp code/irrat.lisp
code/lispinit.lisp code/macros.lisp code/package.lisp
code/serve-event.lisp i18n/locale/cmucl.pot
i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
code/class.lisp | 14 -
code/defstruct.lisp | 14 -
code/error.lisp | 8
code/irrat.lisp | 10
code/lispinit.lisp | 6
code/macros.lisp | 26 +-
code/package.lisp | 46 ++-
code/serve-event.lisp | 17 +
i18n/locale/cmucl.pot | 317 ++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 414 +++++++++++++++++++++++++++++++---
10 files changed, 800 insertions(+), 72 deletions(-)
Index: src/code/class.lisp
diff -u src/code/class.lisp:1.62.12.2 src/code/class.lisp:1.62.12.3
--- src/code/class.lisp:1.62.12.2 Tue Feb 9 09:56:38 2010
+++ src/code/class.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/class.lisp,v 1.62.12.2 2010-02-09 14:56:38 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/class.lisp,v 1.62.12.3 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1211,12 +1211,16 @@
one."
name)
(continue ()
- :report "Invalidate current definition."
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Invalidate current definition." stream))
(warn _"New definition of ~S must be loaded eventually." name)
(invalidate-layout old)
(setf (gethash name *forward-referenced-layouts*) res))
(clobber-it ()
- :report "Smash current layout, preserving old code."
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Smash current layout, preserving old code." stream))
(warn _"Any old ~S instances will be in a bad way.~@
I hope you know what you're doing..."
name)
@@ -1225,7 +1229,9 @@
(setf (layout-length old) length)
old)
(use-current ()
- :report "Ignore the incompatibility, leave class alone."
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the incompatibility, leave class alone." stream))
(warn _"Assuming the current definition of ~S is correct, and~@
that the loaded code doesn't care about the ~
incompatibility."
Index: src/code/defstruct.lisp
diff -u src/code/defstruct.lisp:1.98.12.2 src/code/defstruct.lisp:1.98.12.3
--- src/code/defstruct.lisp:1.98.12.2 Tue Feb 9 09:56:38 2010
+++ src/code/defstruct.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.98.12.2 2010-02-09 14:56:38 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.98.12.3 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -461,12 +461,18 @@
:format-control _"defining structure ~A"
:format-arguments (list name))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable package's definition lock then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable package's definition lock then continue" stream))
(setf (ext:package-definition-lock pkg) nil))
(unlock-all ()
- :report "Unlock all packages, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unlock all packages, then continue" stream))
(lisp::unlock-all-packages))))
(when (info declaration recognized name)
(error _"Defstruct already names a declaration: ~S." name))
Index: src/code/error.lisp
diff -u src/code/error.lisp:1.88.12.3 src/code/error.lisp:1.88.12.4
--- src/code/error.lisp:1.88.12.3 Tue Feb 9 23:00:25 2010
+++ src/code/error.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/error.lisp,v 1.88.12.3 2010-02-10 04:00:25 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/error.lisp,v 1.88.12.4 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1205,8 +1205,10 @@
;;;; Restart definitions.
(define-condition abort-failure (control-error) ()
- (:report
- "Found an \"abort\" restart that failed to transfer control dynamically."))
+ (:report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Found an \"abort\" restart that failed to transfer control dynamically."
+ stream))))
;;; ABORT signals an error in case there was a restart named abort that did
;;; not tranfer control dynamically. This could happen with RESTART-BIND.
Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.60.2.3 src/code/irrat.lisp:1.60.2.4
--- src/code/irrat.lisp:1.60.2.3 Tue Feb 9 20:28:48 2010
+++ src/code/irrat.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.3 2010-02-10 01:28:48 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.4 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -332,9 +332,13 @@
:base base
:power power)
(continue ()
- :report "Continue with calculation")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Continue with calculation" stream)))
(new-limit ()
- :report "Continue with calculation, update limit"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Continue with calculation, update limit" stream))
(setq *intexp-maximum-exponent* (abs power)))))
(cond ((minusp power)
(/ (intexp base (- power))))
Index: src/code/lispinit.lisp
diff -u src/code/lispinit.lisp:1.79.12.2 src/code/lispinit.lisp:1.79.12.3
--- src/code/lispinit.lisp:1.79.12.2 Mon Feb 8 12:15:47 2010
+++ src/code/lispinit.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79.12.2 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79.12.3 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -244,7 +244,7 @@
"Prints a message and invokes the debugger without allowing any possibility
of condition handling occurring."
(kernel:infinite-error-protect
- (with-simple-restart (continue "Return from BREAK.")
+ (with-simple-restart (continue _"Return from BREAK.")
(let ((debug:*stack-top-hint*
(or debug:*stack-top-hint*
(nth-value 1 (kernel:find-caller-name)))))
@@ -264,7 +264,7 @@
(muffle-warning ()
:report "Skip warning."
(return-from warn nil)))
- (format *error-output* "~&~@<Warning: ~3i~:_~A~:>~%" condition)))
+ (format *error-output* _"~&~@<Warning: ~3i~:_~A~:>~%" condition)))
nil)
;;; Utility functions
Index: src/code/macros.lisp
diff -u src/code/macros.lisp:1.113.10.4 src/code/macros.lisp:1.113.10.5
--- src/code/macros.lisp:1.113.10.4 Tue Feb 9 22:57:23 2010
+++ src/code/macros.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/macros.lisp,v 1.113.10.4 2010-02-10 03:57:23 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/macros.lisp,v 1.113.10.5 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -90,12 +90,18 @@
:format-control _"defining macro ~A"
:format-arguments (list name))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable the package's definition-lock then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable the package's definition-lock then continue" stream))
(setf (ext:package-definition-lock package) nil))
(unlock-all ()
- :report "Unlock all packages, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unlock all packages, then continue" stream))
(lisp::unlock-all-packages))))))))
(let ((whole (gensym "WHOLE-"))
(environment (gensym "ENV-")))
@@ -218,12 +224,18 @@
:format-control _"defining type ~A"
:format-arguments (list name))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable package's definition-lock then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable package's definition-lock then continue" stream))
(setf (ext:package-definition-lock (symbol-package name)) nil))
(unlock-all ()
- :report "Unlock all packages, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unlock all packages, then continue" stream))
(lisp::unlock-all-packages))))
(let ((whole (gensym "WHOLE-")))
(multiple-value-bind (body local-decs doc)
Index: src/code/package.lisp
diff -u src/code/package.lisp:1.77.10.2 src/code/package.lisp:1.77.10.3
--- src/code/package.lisp:1.77.10.2 Tue Feb 9 18:42:32 2010
+++ src/code/package.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.77.10.2 2010-02-09 23:42:32 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.77.10.3 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -209,12 +209,18 @@
:format-control _"redefining function ~A"
:format-arguments (list function))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable package's definition-lock, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable package's definition-lock, then continue" stream))
(setf (ext:package-definition-lock package) nil))
(unlock-all ()
- :report "Disable all package locks, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable all package locks, then continue" stream))
(unlock-all-packages)))))))))
@@ -1398,12 +1404,18 @@
:format-control _"uninterning symbol ~A"
:format-arguments (list name))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable package's lock then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable package's lock then continue" stream))
(setf (ext:package-lock package) nil))
(unlock-all ()
- :report "Unlock all packages, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unlock all packages, then continue" stream))
(unlock-all-packages)))))
;;
;; If a name conflict is revealed, give use a chance to shadowing-import
@@ -1522,12 +1534,16 @@
(list (package-%name package) cset
(mapcar #'package-%name cpackages)))
(unintern-conflicting-symbols ()
- :report "Unintern conflicting symbols."
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unintern conflicting symbols." stream))
(dolist (p cpackages)
(dolist (sym cset)
(moby-unintern sym p))))
(skip-exporting-these-symbols ()
- :report "Skip exporting conflicting symbols."
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Skip exporting conflicting symbols." stream))
(setq syms (nset-difference syms cset))))))
;;
;; Check that all symbols are accessible. If not, ask to import them.
@@ -1575,12 +1591,18 @@
:format-control _"unexporting symbols ~A"
:format-arguments (list symbols))
(continue ()
- :report "Ignore the lock and continue")
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Ignore the lock and continue" stream)))
(unlock-package ()
- :report "Disable package's lock then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Disable package's lock then continue" stream))
(setf (ext:package-lock package) nil))
(unlock-all ()
- :report "Unlock all packages, then continue"
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Unlock all packages, then continue" stream))
(unlock-all-packages)))))
(dolist (sym (symbol-listify symbols))
(multiple-value-bind (s w) (find-symbol (symbol-name sym) package)
Index: src/code/serve-event.lisp
diff -u src/code/serve-event.lisp:1.28.12.2 src/code/serve-event.lisp:1.28.12.3
--- src/code/serve-event.lisp:1.28.12.2 Tue Feb 9 21:42:11 2010
+++ src/code/serve-event.lisp Wed Feb 10 09:07:36 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/serve-event.lisp,v 1.28.12.2 2010-02-10 02:42:11 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/serve-event.lisp,v 1.28.12.3 2010-02-10 14:07:36 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -240,13 +240,22 @@
(push handler bogus-handlers)))
(restart-case (error "~S ~[have~;has a~:;have~] bad file descriptor~:P."
bogus-handlers (length bogus-handlers))
- (remove-them () :report "Remove bogus handlers."
+ (remove-them ()
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Remove bogus handlers." stream))
(setf *descriptor-handlers*
(delete-if #'handler-bogus *descriptor-handlers*)))
- (retry-them () :report "Retry bogus handlers."
+ (retry-them ()
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Retry bogus handlers." stream))
(dolist (handler bogus-handlers)
(setf (handler-bogus handler) nil)))
- (continue () :report "Go on, leaving handlers marked as bogus."))))
+ (continue ()
+ :report (lambda (condition stream)
+ (declare (ignore condition))
+ (write-string _"Go on, leaving handlers marked as bogus." stream))))))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.14 src/i18n/locale/cmucl.pot:1.1.2.15
--- src/i18n/locale/cmucl.pot:1.1.2.14 Tue Feb 9 23:01:27 2010
+++ src/i18n/locale/cmucl.pot Wed Feb 10 09:07:36 2010
@@ -230,6 +230,14 @@
msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
msgstr ""
+#: target:code/lispinit.lisp
+msgid "Return from BREAK."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&~@<Warning: ~3i~:_~A~:>~%"
+msgstr ""
+
#: target:code/fwrappers.lisp
msgid ""
"A funcallable instance used to implement fwrappers.\n"
@@ -705,6 +713,10 @@
msgstr ""
#: target:code/error.lisp
+msgid "Found an \"abort\" restart that failed to transfer control dynamically."
+msgstr ""
+
+#: target:code/error.lisp
msgid ""
"Transfers control to a restart named abort, signalling a control-error if\n"
" none exists."
@@ -841,16 +853,28 @@
msgstr ""
#: target:code/class.lisp
+msgid "Invalidate current definition."
+msgstr ""
+
+#: target:code/class.lisp
msgid "New definition of ~S must be loaded eventually."
msgstr ""
#: target:code/class.lisp
+msgid "Smash current layout, preserving old code."
+msgstr ""
+
+#: target:code/class.lisp
msgid ""
"Any old ~S instances will be in a bad way.~@\n"
" I hope you know what you're doing..."
msgstr ""
#: target:code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: target:code/class.lisp
msgid ""
"Assuming the current definition of ~S is correct, and~@\n"
" that the loaded code doesn't care about the ~\n"
@@ -5292,6 +5316,14 @@
msgstr ""
#: target:code/irrat.lisp
+msgid "Continue with calculation"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation, update limit"
+msgstr ""
+
+#: target:code/irrat.lisp
msgid "Returns BASE raised to the POWER."
msgstr ""
@@ -7780,6 +7812,18 @@
msgid "redefining function ~A"
msgstr ""
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Ignore the lock and continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's definition-lock, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable all package locks, then continue"
+msgstr ""
+
#: target:code/package.lisp
msgid "Bogus ~A name: ~S"
msgstr ""
@@ -8032,6 +8076,14 @@
msgstr ""
#: target:code/package.lisp
+msgid "Disable package's lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Unlock all packages, then continue"
+msgstr ""
+
+#: target:code/package.lisp
msgid "prompt for a symbol to shadowing-import."
msgstr ""
@@ -8066,6 +8118,14 @@
msgstr ""
#: target:code/package.lisp
+msgid "Unintern conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Skip exporting conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
msgid "Import these symbols into the ~A package."
msgstr ""
@@ -8714,6 +8774,18 @@
msgstr ""
#: target:code/serve-event.lisp
+msgid "Remove bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Retry bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Go on, leaving handlers marked as bogus."
+msgstr ""
+
+#: target:code/serve-event.lisp
msgid "Timeout is not a real number or NIL: ~S"
msgstr ""
@@ -9601,6 +9673,239 @@
msgid "Can't create directory ~A."
msgstr ""
+#: target:code/load.lisp
+msgid "The default for the :IF-SOURCE-NEWER argument to load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The source file types which LOAD recognizes."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "A list of the object file types recognized by LOAD."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"A list of the object file types recognized by LOAD for logical pathnames."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :VERBOSE argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :PRINT argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The TRUENAME of the file that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The defaulted pathname that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Count of the number of recursive loads."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"~A was compiled for fasl-file version ~X, ~\n"
+" but this is version ~X"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "List of free fop tables for the fasloader."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The fop stack (we only need one!)."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Vector indexed by a FaslOP that yields the FOP's name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
+" will perform the operation."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading stuff from ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Attempt to load an empty FASL FILE:~% ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Bad FASL file format."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loads the file named by Filename into the Lisp environment. The file type\n"
+" (a.k.a extension) is defaulted if missing. These options are defined:\n"
+"\n"
+" :IF-SOURCE-NEWER <keyword>\n"
+" If the file type is not specified, and both source and object files\n"
+" exist, then this argument controls which is loaded:\n"
+" :LOAD-OBJECT - load object file (default),\n"
+" :LOAD-SOURCE - load the source file,\n"
+" :COMPILE - compile the source and then load the object file, or\n"
+" :QUERY - ask the user which to load.\n"
+"\n"
+" :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+" If :ERROR (the default), signal an error if the file can't be "
+"located.\n"
+" If NIL, simply return NIL (LOAD normally returns T.)\n"
+"\n"
+" :VERBOSE {T | NIL}\n"
+" If true (the default), print a line describing each file loaded.\n"
+"\n"
+" :PRINT {T | NIL}\n"
+" If true, print information about loaded values. When loading the\n"
+" source, the result of evaluating each top-level form is printed.\n"
+"\n"
+" :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+" Forces the input to be interpreted as a source or object file, "
+"instead\n"
+" of guessing based on the file type. This also inhibits file type\n"
+" defaulting. Probably only necessary if you have source files with a\n"
+" \"fasl\" type. \n"
+"\n"
+" The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-NEWER"
+"*\n"
+" determine the defaults for the corresponding keyword arguments. These\n"
+" variables are also bound to the specified argument values, so specifying "
+"a\n"
+" keyword affects nested loads. The variables EXT:*LOAD-SOURCE-TYPES*,\n"
+" EXT:*LOAD-OBJECT-TYPES*, and EXT:*LOAD-LP-OBJECT-TYPES* determine the "
+"file\n"
+" types that we use for defaulting when none is specified."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Return NIL from load of ~S."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "See if it exists now."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Prompt for a new name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "New name: "
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load it as a source file."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "File has a fasl file type, but no fasl file header:~% ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading object file ~A,~@\n"
+" which is older than the presumed source:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading source file ~A,~@\n"
+" which is newer than the presumed object file:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Compile of source failed, cannot load object."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Object file ~A is~@\n"
+" older than the presumed source:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load source file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load object file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fop-End-Header was executed???"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl table of improper size. Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl stack not empty. Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The package ~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing i-vector element size: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load ~A anyway"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~A was compiled for a ~A, but this is a ~A"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Top-Level Form"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Unaligned function object, offset = #x~X."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S defined~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Cannot load assembler code."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Undefined assembler routine: ~S"
+msgstr ""
+
#: target:code/foreign-linkage.lisp
msgid "~A is not defined as a foreign symbol"
msgstr ""
@@ -12656,6 +12961,10 @@
msgstr ""
#: target:code/defstruct.lisp
+msgid "Disable package's definition lock then continue"
+msgstr ""
+
+#: target:code/defstruct.lisp
msgid "Defstruct already names a declaration: ~S."
msgstr ""
@@ -12909,6 +13218,10 @@
msgstr ""
#: target:code/macros.lisp
+msgid "Disable the package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
msgid "Define a compiler-macro for NAME."
msgstr ""
@@ -12937,6 +13250,10 @@
msgstr ""
#: target:code/macros.lisp
+msgid "Disable package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
msgid "Deftype already names a declaration: ~S."
msgstr ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.14 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.15
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.14 Tue Feb 9 23:01:27 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Wed Feb 10 09:07:37 2010
@@ -229,6 +229,14 @@
msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
msgstr ""
+#: target:code/lispinit.lisp
+msgid "Return from BREAK."
+msgstr ""
+
+#: target:code/lispinit.lisp
+msgid "~&~@<Warning: ~3i~:_~A~:>~%"
+msgstr ""
+
#: target:code/fwrappers.lisp
msgid ""
"A funcallable instance used to implement fwrappers.\n"
@@ -432,8 +440,9 @@
msgstr ""
#: target:code/error.lisp
+#, fuzzy
msgid "Returns the name of the given restart object."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/error.lisp
msgid ""
@@ -704,6 +713,10 @@
msgstr ""
#: target:code/error.lisp
+msgid "Found an \"abort\" restart that failed to transfer control dynamically."
+msgstr ""
+
+#: target:code/error.lisp
msgid ""
"Transfers control to a restart named abort, signalling a control-error if\n"
" none exists."
@@ -841,16 +854,28 @@
msgstr ""
#: target:code/class.lisp
+msgid "Invalidate current definition."
+msgstr ""
+
+#: target:code/class.lisp
msgid "New definition of ~S must be loaded eventually."
msgstr ""
#: target:code/class.lisp
+msgid "Smash current layout, preserving old code."
+msgstr ""
+
+#: target:code/class.lisp
msgid ""
"Any old ~S instances will be in a bad way.~@\n"
"\t\t I hope you know what you're doing..."
msgstr ""
#: target:code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: target:code/class.lisp
msgid ""
"Assuming the current definition of ~S is correct, and~@\n"
"\t\t that the loaded code doesn't care about the ~\n"
@@ -1895,8 +1920,9 @@
msgstr ""
#: target:code/array.lisp
+#, fuzzy
msgid "Returns the type of the elements of the array"
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
msgid "Returns the number of dimensions of the Array."
@@ -1939,8 +1965,9 @@
msgstr ""
#: target:code/array.lisp
+#, fuzzy
msgid "Returns the Fill-Pointer of the given Vector."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/array.lisp
msgid "New fill pointer, ~S, is larger than the length of the vector."
@@ -4233,9 +4260,10 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
+#, fuzzy
msgid ""
"Unix-getppid returns the process-id of the parent of the current process."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
#, fuzzy
@@ -4243,12 +4271,14 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
+#, fuzzy
msgid "Unix-getegid returns the effective group-id of the current process."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
+#, fuzzy
msgid "Unix-getpgrp returns the group-id of the calling process."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
msgid ""
@@ -4264,14 +4294,16 @@
msgstr ""
#: target:code/unix.lisp
+#, fuzzy
msgid ""
"Unix-getuid returns the real user-id associated with the\n"
" current process."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
+#, fuzzy
msgid "Unix-getpagesize returns the number of bytes in a system page."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/unix.lisp
msgid "Unix-gethostname returns the name of the host machine as a string."
@@ -4766,12 +4798,14 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the sum of its arguments. With no args, returns 0."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the product of its arguments. With no args, returns 1."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -4885,8 +4919,9 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the bit-wise or of its arguments. Args must be integers."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -4894,8 +4929,9 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the bit-wise and of its arguments. Args must be integers."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -4927,8 +4963,9 @@
msgstr ""
#: target:code/numbers.lisp
+#, fuzzy
msgid "Returns the bit-wise logical not of integer."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/numbers.lisp
msgid ""
@@ -5292,6 +5329,14 @@
msgstr ""
#: target:code/irrat.lisp
+msgid "Continue with calculation"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Continue with calculation, update limit"
+msgstr ""
+
+#: target:code/irrat.lisp
msgid "Returns BASE raised to the POWER."
msgstr ""
@@ -5304,8 +5349,9 @@
msgstr ""
#: target:code/irrat.lisp
+#, fuzzy
msgid "Returns the absolute value of the number."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/irrat.lisp
msgid ""
@@ -5558,8 +5604,9 @@
msgstr ""
#: target:code/char.lisp
+#, fuzzy
msgid "Returns the character with the code CODE."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
msgid ""
@@ -5656,8 +5703,9 @@
msgstr ""
#: target:code/char.lisp
+#, fuzzy
msgid "Returns T if all of its arguments are the same character."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/char.lisp
msgid "Returns T if no two of its arguments are the same character."
@@ -6858,8 +6906,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Return true if Stream is not closed."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid "Returns a type specifier for the kind of object returned by the Stream."
@@ -6942,8 +6991,9 @@
msgstr ""
#: target:code/stream.lisp
+#, fuzzy
msgid "Returns the next byte of the Stream."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/stream.lisp
msgid ""
@@ -7791,6 +7841,18 @@
msgid "redefining function ~A"
msgstr ""
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Ignore the lock and continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable package's definition-lock, then continue"
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Disable all package locks, then continue"
+msgstr ""
+
#: target:code/package.lisp
msgid "Bogus ~A name: ~S"
msgstr ""
@@ -7947,8 +8009,9 @@
msgstr ""
#: target:code/package.lisp
+#, fuzzy
msgid "Redefine this nickname."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
msgid "~S is already a nickname for ~S."
@@ -8014,8 +8077,9 @@
msgstr ""
#: target:code/package.lisp
+#, fuzzy
msgid "Returns a list of all existing packages."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/package.lisp
msgid "Returns a symbol having the specified name, creating it if necessary."
@@ -8045,6 +8109,14 @@
msgstr ""
#: target:code/package.lisp
+msgid "Disable package's lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+msgid "Unlock all packages, then continue"
+msgstr ""
+
+#: target:code/package.lisp
msgid "prompt for a symbol to shadowing-import."
msgstr ""
@@ -8079,6 +8151,14 @@
msgstr ""
#: target:code/package.lisp
+msgid "Unintern conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
+msgid "Skip exporting conflicting symbols."
+msgstr ""
+
+#: target:code/package.lisp
msgid "Import these symbols into the ~A package."
msgstr ""
@@ -8152,8 +8232,9 @@
msgstr ""
#: target:code/package.lisp
+#, fuzzy
msgid "Return a list of all symbols in the system having the specified name."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/describe.lisp target:code/package.lisp
msgid "special variable"
@@ -8728,6 +8809,18 @@
msgstr ""
#: target:code/serve-event.lisp
+msgid "Remove bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Retry bogus handlers."
+msgstr ""
+
+#: target:code/serve-event.lisp
+msgid "Go on, leaving handlers marked as bogus."
+msgstr ""
+
+#: target:code/serve-event.lisp
msgid "Timeout is not a real number or NIL: ~S"
msgstr ""
@@ -9618,6 +9711,240 @@
msgid "Can't create directory ~A."
msgstr ""
+#: target:code/load.lisp
+msgid "The default for the :IF-SOURCE-NEWER argument to load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The source file types which LOAD recognizes."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "A list of the object file types recognized by LOAD."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"A list of the object file types recognized by LOAD for logical pathnames."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :VERBOSE argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The default for the :PRINT argument to Load."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The TRUENAME of the file that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The defaulted pathname that LOAD is currently loading."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Count of the number of recursive loads."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"~A was compiled for fasl-file version ~X, ~\n"
+" but this is version ~X"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "List of free fop tables for the fasloader."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The fop stack (we only need one!)."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Vector indexed by a FaslOP that yields the FOP's name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
+" will perform the operation."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Loading stuff from ~S.~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Attempt to load an empty FASL FILE:~% ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Bad FASL file format."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loads the file named by Filename into the Lisp environment. The file type\n"
+" (a.k.a extension) is defaulted if missing. These options are defined:\n"
+"\n"
+" :IF-SOURCE-NEWER <keyword>\n"
+"\tIf the file type is not specified, and both source and object files\n"
+" exist, then this argument controls which is loaded:\n"
+"\t :LOAD-OBJECT - load object file (default),\n"
+"\t :LOAD-SOURCE - load the source file,\n"
+"\t :COMPILE - compile the source and then load the object file, or\n"
+"\t :QUERY - ask the user which to load.\n"
+"\n"
+" :IF-DOES-NOT-EXIST {:ERROR | NIL}\n"
+" If :ERROR (the default), signal an error if the file can't be "
+"located.\n"
+" If NIL, simply return NIL (LOAD normally returns T.)\n"
+"\n"
+" :VERBOSE {T | NIL}\n"
+" If true (the default), print a line describing each file loaded.\n"
+"\n"
+" :PRINT {T | NIL}\n"
+" If true, print information about loaded values. When loading the\n"
+" source, the result of evaluating each top-level form is printed.\n"
+"\n"
+" :CONTENTS {NIL | :SOURCE | :BINARY}\n"
+" Forces the input to be interpreted as a source or object file, "
+"instead\n"
+" of guessing based on the file type. This also inhibits file type\n"
+" defaulting. Probably only necessary if you have source files with a\n"
+" \"fasl\" type. \n"
+"\n"
+" The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-"
+"NEWER*\n"
+" determine the defaults for the corresponding keyword arguments. These\n"
+" variables are also bound to the specified argument values, so specifying "
+"a\n"
+" keyword affects nested loads. The variables EXT:*LOAD-SOURCE-TYPES*,\n"
+" EXT:*LOAD-OBJECT-TYPES*, and EXT:*LOAD-LP-OBJECT-TYPES* determine the "
+"file\n"
+" types that we use for defaulting when none is specified."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Return NIL from load of ~S."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "See if it exists now."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Prompt for a new name."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "New name: "
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load it as a source file."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "File has a fasl file type, but no fasl file header:~% ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading object file ~A,~@\n"
+"\t\t which is older than the presumed source:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Loading source file ~A,~@\n"
+"\t\t which is newer than the presumed object file:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Compile of source failed, cannot load object."
+msgstr ""
+
+#: target:code/load.lisp
+msgid ""
+"Object file ~A is~@\n"
+"\t\t older than the presumed source:~% ~A."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load source file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "load object file"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fop-End-Header was executed???"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl table of improper size. Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Fasl stack not empty. Bug!"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "The package ~S does not exist."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Losing i-vector element size: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Load ~A anyway"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~A was compiled for a ~A, but this is a ~A"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Top-Level Form"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Unaligned function object, offset = #x~X."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "~S defined~%"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Cannot load assembler code."
+msgstr ""
+
+#: target:code/load.lisp
+msgid "Undefined assembler routine: ~S"
+msgstr ""
+
#: target:code/foreign-linkage.lisp
msgid "~A is not defined as a foreign symbol"
msgstr ""
@@ -9888,12 +10215,14 @@
msgstr ""
#: target:code/eval.lisp
+#, fuzzy
msgid "Returns all of its arguments, in order, as values."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/eval.lisp
+#, fuzzy
msgid "Returns all of the elements of List, in order, as values."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/signal.lisp
msgid "A list of unix signal structures."
@@ -9922,8 +10251,9 @@
msgstr ""
#: target:code/signal.lisp
+#, fuzzy
msgid "Returns a mask given a set of signals."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/signal.lisp
msgid ""
@@ -10191,12 +10521,14 @@
msgstr ""
#: target:code/debug-int.lisp
+#, fuzzy
msgid "Returns the breakpoint's what specification."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/debug-int.lisp
+#, fuzzy
msgid "Returns the breakpoint's kind specification."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/debug-int.lisp
msgid ""
@@ -10256,8 +10588,9 @@
msgstr ""
#: target:code/debug-int.lisp
+#, fuzzy
msgid "Returns whether object is a debug-source."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/debug-int.lisp
msgid ""
@@ -11236,8 +11569,9 @@
msgstr ""
#: target:code/describe.lisp
+#, fuzzy
msgid " There are no arguments."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/describe.lisp
msgid "~&Its closure environment is:"
@@ -12233,8 +12567,9 @@
msgstr ""
#: target:code/wire.lisp
+#, fuzzy
msgid "Return the next byte from the wire."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/wire.lisp
msgid ""
@@ -12368,8 +12703,9 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/multi-proc.lisp
+#, fuzzy
msgid "Return the run time in seconds"
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/multi-proc.lisp
msgid "Return the process state which is either Run, Killed, or a wait reason."
@@ -12381,8 +12717,9 @@
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/multi-proc.lisp
+#, fuzzy
msgid "A list of all alive processes."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/multi-proc.lisp
#, fuzzy
@@ -12676,6 +13013,10 @@
msgstr ""
#: target:code/defstruct.lisp
+msgid "Disable package's definition lock then continue"
+msgstr ""
+
+#: target:code/defstruct.lisp
msgid "Defstruct already names a declaration: ~S."
msgstr ""
@@ -12851,8 +13192,9 @@
msgstr ""
#: target:code/defmacro.lisp
+#, fuzzy
msgid "Ignore extra noise."
-msgstr ""
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/defmacro.lisp
msgid ""
@@ -12931,6 +13273,10 @@
msgstr ""
#: target:code/macros.lisp
+msgid "Disable the package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
msgid "Define a compiler-macro for NAME."
msgstr ""
@@ -12959,6 +13305,10 @@
msgstr ""
#: target:code/macros.lisp
+msgid "Disable package's definition-lock then continue"
+msgstr ""
+
+#: target:code/macros.lisp
msgid "Deftype already names a declaration: ~S."
msgstr ""
More information about the cmucl-commit
mailing list