CMUCL commit: intl-branch src (3 files)
Raymond Toy
rtoy at common-lisp.net
Fri Feb 12 05:47:34 CET 2010
Date: Thursday, February 11, 2010 @ 23:47:34
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: compiler/ctype.lisp i18n/locale/cmucl.pot
i18n/locale/ko/LC_MESSAGES/cmucl.po
compiler/ctype.lisp:
o Mark translatable strings. Be very careful when doing this! You
can really, really slow down the compiler!
i18n/locale/cmucl.pot:
i18n/locale/ko/LC_MESSAGES/cmucl.po:
o Regenerated.
-------------------------------------+
compiler/ctype.lisp | 88 +++++++++-------
i18n/locale/cmucl.pot | 170 ++++++++++++++++++++++++++++++--
i18n/locale/ko/LC_MESSAGES/cmucl.po | 177 +++++++++++++++++++++++++++++++---
3 files changed, 371 insertions(+), 64 deletions(-)
Index: src/compiler/ctype.lisp
diff -u src/compiler/ctype.lisp:1.35.52.1 src/compiler/ctype.lisp:1.35.52.2
--- src/compiler/ctype.lisp:1.35.52.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/ctype.lisp Thu Feb 11 23:47: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/ctype.lisp,v 1.35.52.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/ctype.lisp,v 1.35.52.2 2010-02-12 04:47:34 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -15,6 +15,10 @@
;;;
;;; Written by Rob MacLachlan
;;;
+;;; WARNING: Watch out when marking translatable strings. You can
+;;; really, really slow down the compiler if you do it in a simple
+;;; fashion! (Compile times for cmucl went up by a factor of about
+;;; 10!)
(in-package "C")
(intl:textdomain "cmucl")
@@ -52,13 +56,13 @@
(declare (string format-string))
(setq *lossage-detected* t)
(when *error-function*
- (apply *error-function* format-string format-args)))
+ (apply *error-function* (intl:gettext format-string) format-args)))
;;;
(defun note-slime (format-string &rest format-args)
(declare (string format-string))
(setq *slime-detected* t)
(when *warning-function*
- (apply *warning-function* format-string format-args)))
+ (apply *warning-function* (intl:gettext format-string) format-args)))
(declaim (special *compiler-error-context*))
@@ -127,22 +131,22 @@
((not (or optional keyp rest))
(if (/= nargs min-args)
(note-lossage
- "Function called with ~R argument~:P, but wants exactly ~R."
+ _N"Function called with ~R argument~:P, but wants exactly ~R."
nargs min-args)
(check-fixed-and-rest args required nil)))
((< nargs min-args)
(note-lossage
- "Function called with ~R argument~:P, but wants at least ~R."
+ _N"Function called with ~R argument~:P, but wants at least ~R."
nargs min-args))
((<= nargs max-args)
(check-fixed-and-rest args (append required optional) rest))
((not (or keyp rest))
(note-lossage
- "Function called with ~R argument~:P, but wants at most ~R."
+ _N"Function called with ~R argument~:P, but wants at most ~R."
nargs max-args))
((and keyp (oddp (- nargs max-args)))
(note-lossage
- "Function has an odd number of arguments in the keyword portion."))
+ _N"Function has an odd number of arguments in the keyword portion."))
(t
(check-fixed-and-rest args (append required optional) rest)
(when keyp
@@ -160,10 +164,10 @@
(multiple-value-bind (int win)
(funcall result-test out-type return-type)
(cond ((not win)
- (note-slime "Can't tell whether the result is a ~S."
+ (note-slime _N"Can't tell whether the result is a ~S."
(type-specifier return-type)))
((not int)
- (note-lossage "The result is a ~S, not a ~S."
+ (note-lossage _N"The result is a ~S, not a ~S."
(type-specifier out-type)
(type-specifier return-type))))))
@@ -189,20 +193,20 @@
(multiple-value-bind (int win)
(funcall *test-function* ctype type)
(cond ((not win)
- (note-slime "Can't tell whether the ~:R argument is a ~S." n
+ (note-slime _N"Can't tell whether the ~:R argument is a ~S." n
(type-specifier type))
nil)
((not int)
- (note-lossage "The ~:R argument is a ~S, not a ~S." n
+ (note-lossage _N"The ~:R argument is a ~S, not a ~S." n
(type-specifier ctype)
(type-specifier type))
nil)
((eq ctype *empty-type*)
- (note-slime "The ~:R argument never returns a value." n)
+ (note-slime _N"The ~:R argument never returns a value." n)
nil)
(t t)))))
((not (constant-continuation-p cont))
- (note-slime "The ~:R argument is not a constant." n)
+ (note-slime _N"The ~:R argument is not a constant." n)
nil)
(t
(let ((val (continuation-value cont))
@@ -210,12 +214,12 @@
(multiple-value-bind (res win)
(ctypep val type)
(cond ((not win)
- (note-slime "Can't tell whether the ~:R argument is a ~
+ (note-slime _N"Can't tell whether the ~:R argument is a ~
constant ~S:~% ~S"
n (type-specifier type) val)
nil)
((not res)
- (note-lossage "The ~:R argument is not a constant ~S:~% ~S"
+ (note-lossage _N"The ~:R argument is not a constant ~S:~% ~S"
n (type-specifier type) val)
nil)
(t t)))))))
@@ -260,7 +264,7 @@
(cond
((not (check-arg-type k (specifier-type 'symbol) n)))
((not (constant-continuation-p k))
- (note-slime "The ~:R argument (in keyword position) is not a constant."
+ (note-slime _N"The ~:R argument (in keyword position) is not a constant."
n))
(t
(let* ((name (continuation-value k))
@@ -284,12 +288,12 @@
(setq allow-other-keys (continuation-value value))
(progn
(setq allow-other-keys t)
- (note-slime "The value of ~S is not a constant"
+ (note-slime _N"The value of ~S is not a constant"
:allow-other-keys)))
(setq allow-other-keys-seen t))))
((not info)
(unless (function-type-allowp type)
- (note-lossage "~S is not a known argument keyword."
+ (note-lossage _N"~S is not a known argument keyword."
name)))
(t
(check-arg-type (second key) (key-info-type info)
@@ -478,18 +482,18 @@
(let ((call-min (approximate-function-type-min-args call-type)))
(when (< call-min min-args)
(note-lossage
- "Function previously called with ~R argument~:P, but wants at least ~R."
+ _N"Function previously called with ~R argument~:P, but wants at least ~R."
call-min min-args)))
(let ((call-max (approximate-function-type-max-args call-type)))
(cond ((<= call-max max-args))
((not (or keyp rest))
(note-lossage
- "Function previously called with ~R argument~:P, but wants at most ~R."
+ _N"Function previously called with ~R argument~:P, but wants at most ~R."
call-max max-args))
((and keyp (oddp (- call-max max-args)))
(note-lossage
- "Function previously called with an odd number of arguments in ~
+ _N"Function previously called with an odd number of arguments in ~
the keyword portion.")))
(when (and keyp (> call-max max-args))
@@ -534,13 +538,13 @@
(funcall *test-function* ctype decl-type)
(cond
((not win)
- (note-slime "Can't tell whether previous ~? argument type ~S is a ~S."
+ (note-slime _N"Can't tell whether previous ~? argument type ~S is a ~S."
context args (type-specifier ctype) (type-specifier decl-type)))
((not int)
(setq losers (type-union ctype losers))))))
(unless (eq losers *empty-type*)
- (note-lossage "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+ (note-lossage _N"~:(~?~) argument should be a ~S but was a ~S in a previous call."
context args (type-specifier decl-type) (type-specifier losers)))))
@@ -576,7 +580,7 @@
(dolist (name (names))
(unless (find name keys :key #'key-info-name)
- (note-lossage "Function previously called with unknown argument keyword ~S."
+ (note-lossage _N"Function previously called with unknown argument keyword ~S."
name)))))))
@@ -597,7 +601,7 @@
(cond
((eq int *empty-type*)
(note-lossage
- "Definition's declared type for variable ~A:~% ~S~@
+ _N"Definition's declared type for variable ~A:~% ~S~@
conflicts with this type from ~A:~% ~S"
(leaf-name var) (type-specifier vtype)
where (type-specifier type))
@@ -642,22 +646,26 @@
(flet ((frob (x y what)
(unless (= x y)
(note-lossage
- "Definition has ~R ~A arg~P, but ~A has ~R."
+ _N"Definition has ~R ~A arg~P, but ~A has ~R."
x what x where y))))
- (frob min (length req) "fixed")
- (frob (- (optional-dispatch-max-args od) min) (length opt) "optional"))
+ ;; TRANSLATORS: Usage is "Definition has <n> FIXED args but <where> <m>"
+ ;; TRANSLATORS: Translate FIXED above appropriately.
+ (frob min (length req) _"fixed")
+ ;; TRANSLATORS: Usage is "Definition has <n> OPTIONAL args but <where> <m>"
+ ;; TRANSLATORS: Translate OPTIONAL above appropriately.
+ (frob (- (optional-dispatch-max-args od) min) (length opt) _"optional"))
(flet ((frob (x y what)
(unless (eq x y)
(note-lossage
- "Definition ~:[doesn't have~;has~] ~A, but ~
+ _N"Definition ~:[doesn't have~;has~] ~A, but ~
~A ~:[doesn't~;does~]."
x what where y))))
(frob (optional-dispatch-keyp od) (function-type-keyp type)
- "keyword args")
+ _"keyword args")
(unless (optional-dispatch-keyp od)
(frob (not (null (optional-dispatch-more-entry od)))
(not (null (function-type-rest type)))
- "rest args"))
+ _"rest args"))
(frob (optional-dispatch-allowp od) (function-type-allowp type)
"&allow-other-keys"))
@@ -685,7 +693,7 @@
(or def-type (specifier-type 'null)))))
(t
(note-lossage
- "Defining a ~S keyword not present in ~A."
+ _N"Defining a ~S keyword not present in ~A."
key where)
(res *universal-type*)))))
(:required (res (pop req)))
@@ -715,7 +723,7 @@
(when info
(arg-info-keyword info)))))
(note-lossage
- "Definition lacks the ~S keyword present in ~A."
+ _N"Definition lacks the ~S keyword present in ~A."
(key-info-name key) where))))
(try-type-intersections (vars) (res) where))))
@@ -730,17 +738,17 @@
(flet ((frob (x what)
(when x
(note-lossage
- "Definition has no ~A, but the ~A did."
+ _N"Definition has no ~A, but the ~A did."
what where))))
- (frob (function-type-optional type) "optional args")
- (frob (function-type-keyp type) "keyword args")
- (frob (function-type-rest type) "rest arg"))
+ (frob (function-type-optional type) _"optional args")
+ (frob (function-type-keyp type) _"keyword args")
+ (frob (function-type-rest type) _"rest arg"))
(let* ((vars (lambda-vars lambda))
(nvars (length vars))
(req (function-type-required type))
(nreq (length req)))
(unless (= nvars nreq)
- (note-lossage "Definition has ~R arg~:P, but the ~A has ~R."
+ (note-lossage _N"Definition has ~R arg~:P, but the ~A has ~R."
nvars where nreq))
(if *lossage-detected*
(values nil nil)
@@ -787,7 +795,7 @@
(cond
((and atype (not (values-types-intersect atype type-returns)))
(note-lossage
- "The result type from ~A:~% ~S~@
+ _N"The result type from ~A:~% ~S~@
conflicts with the definition's result type assertion:~% ~S"
where (type-specifier type-returns) (type-specifier atype))
nil)
@@ -801,7 +809,7 @@
(when (and warning-function
(not (csubtypep (leaf-type var) type)))
(funcall warning-function
- "Assignment to argument: ~S~% ~
+ _N"Assignment to argument: ~S~% ~
prevents use of assertion from function ~
type ~A:~% ~S~%"
(leaf-name var) where (type-specifier type))))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.25 src/i18n/locale/cmucl.pot:1.1.2.26
--- src/i18n/locale/cmucl.pot:1.1.2.25 Thu Feb 11 23:07:26 2010
+++ src/i18n/locale/cmucl.pot Thu Feb 11 23:47:34 2010
@@ -15219,6 +15219,164 @@
" ~% ~S~% ~S ~% ~S"
msgstr ""
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the ~:R argument is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument never returns a value."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Can't tell whether the ~:R argument is a ~\n"
+" constant ~S:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant ~S:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument (in keyword position) is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The value of ~S is not a constant"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~S is not a known argument keyword."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+" the keyword portion."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether previous ~? argument type ~S is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with unknown argument keyword ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition's declared type for variable ~A:~% ~S~@\n"
+" conflicts with this type from ~A:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R ~A arg~P, but ~A has ~R."
+msgstr ""
+
+#. Translate FIXED above appropriately.
+#: target:compiler/ctype.lisp
+msgid "fixed"
+msgstr ""
+
+#. Translate OPTIONAL above appropriately.
+#: target:compiler/ctype.lisp
+msgid "optional"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition ~:[doesn't have~;has~] ~A, but ~\n"
+" ~A ~:[doesn't~;does~]."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "keyword args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Defining a ~S keyword not present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition lacks the ~S keyword present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has no ~A, but the ~A did."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "optional args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest arg"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R arg~:P, but the ~A has ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"The result type from ~A:~% ~S~@\n"
+" conflicts with the definition's result type assertion:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Assignment to argument: ~S~% ~\n"
+" prevents use of assertion from function ~\n"
+" type ~A:~% ~S~%"
+msgstr ""
+
#: target:compiler/vmdef.lisp
msgid "~S is not a defined template."
msgstr ""
@@ -18301,18 +18459,6 @@
msgstr ""
#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants exactly ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants at least ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants at most ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
msgid "Can't local-call functions with &MORE args."
msgstr ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.25 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.26
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.25 Thu Feb 11 23:07:26 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Thu Feb 11 23:47:34 2010
@@ -15524,6 +15524,171 @@
"\t\t\t ~% ~S~% ~S ~% ~S"
msgstr ""
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants exactly ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/locall.lisp target:compiler/ctype.lisp
+msgid "Function called with ~R argument~:P, but wants at most ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether the ~:R argument is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is a ~S, not a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "The ~:R argument never returns a value."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Can't tell whether the ~:R argument is a ~\n"
+"\t\t constant ~S:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument is not a constant ~S:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The ~:R argument (in keyword position) is not a constant."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "The value of ~S is not a constant"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "~S is not a known argument keyword."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "Function previously called with ~R argument~:P, but wants at least ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function previously called with ~R argument~:P, but wants at most ~R."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"\t the keyword portion."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid "Can't tell whether previous ~? argument type ~S is a ~S."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+#, fuzzy
+msgid "Function previously called with unknown argument keyword ~S."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition's declared type for variable ~A:~% ~S~@\n"
+"\t\t conflicts with this type from ~A:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R ~A arg~P, but ~A has ~R."
+msgstr ""
+
+#. Translate FIXED above appropriately.
+#: target:compiler/ctype.lisp
+msgid "fixed"
+msgstr ""
+
+#. Translate OPTIONAL above appropriately.
+#: target:compiler/ctype.lisp
+msgid "optional"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Definition ~:[doesn't have~;has~] ~A, but ~\n"
+"\t\t~A ~:[doesn't~;does~]."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "keyword args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Defining a ~S keyword not present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition lacks the ~S keyword present in ~A."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has no ~A, but the ~A did."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "optional args"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "rest arg"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid "Definition has ~R arg~:P, but the ~A has ~R."
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"The result type from ~A:~% ~S~@\n"
+"\t conflicts with the definition's result type assertion:~% ~S"
+msgstr ""
+
+#: target:compiler/ctype.lisp
+msgid ""
+"Assignment to argument: ~S~% ~\n"
+"\t\t\t prevents use of assertion from function ~\n"
+"\t\t\t type ~A:~% ~S~%"
+msgstr ""
+
#: target:compiler/vmdef.lisp
#, fuzzy
msgid "~S is not a defined template."
@@ -18640,18 +18805,6 @@
msgstr ""
#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants exactly ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants at least ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
-msgid "Function called with ~R argument~:P, but wants at most ~R."
-msgstr ""
-
-#: target:compiler/locall.lisp
msgid "Can't local-call functions with &MORE args."
msgstr ""
More information about the cmucl-commit
mailing list