CMUCL commit: intl-branch src (19 files)
Raymond Toy
rtoy at common-lisp.net
Sun Feb 14 04:06:42 CET 2010
Date: Saturday, February 13, 2010 @ 22:06:42
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/alieneval.lisp code/amd64-vm.lisp code/bsd-os.lisp
code/defstruct.lisp code/fd-stream.lisp code/float.lisp
code/foreign.lisp code/format.lisp code/gc.lisp code/hash-new.lisp
code/interr.lisp code/linux-os.lisp code/list.lisp
code/sparc-svr4-vm.lisp code/sunos-os.lisp code/x86-vm.lisp
i18n/locale/cmucl.pot i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
i18n/locale/ko/LC_MESSAGES/cmucl.po
o Marking more translatable strings that were previously missed.
o Regenerated cmucl.pot and cmucl.po's.
o Fixed some problems with ko/cmucl.po introduced in last checkin.
----------------------------------------------+
code/alieneval.lisp | 4
code/amd64-vm.lisp | 30
code/bsd-os.lisp | 6
code/defstruct.lisp | 10
code/fd-stream.lisp | 62 -
code/float.lisp | 8
code/foreign.lisp | 11
code/format.lisp | 134 +--
code/gc.lisp | 8
code/hash-new.lisp | 6
code/interr.lisp | 16
code/linux-os.lisp | 10
code/list.lisp | 238 ++---
code/sparc-svr4-vm.lisp | 6
code/sunos-os.lisp | 10
code/x86-vm.lisp | 6
i18n/locale/cmucl.pot | 831 +++++++++++++++++++
i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po | 888 ++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 1076 ++++++++++++++++++++++---
19 files changed, 2969 insertions(+), 391 deletions(-)
Index: src/code/alieneval.lisp
diff -u src/code/alieneval.lisp:1.66.12.3 src/code/alieneval.lisp:1.66.12.4
--- src/code/alieneval.lisp:1.66.12.3 Tue Feb 9 09:56:37 2010
+++ src/code/alieneval.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/alieneval.lisp,v 1.66.12.3 2010-02-09 14:56:37 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/alieneval.lisp,v 1.66.12.4 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1701,7 +1701,7 @@
(etypecase type
(alien-pointer-type
(when (cdr indices)
- (error "Too many indices when derefing ~S: ~D"
+ (error _"Too many indices when derefing ~S: ~D"
type
(length indices)))
(let ((element-type (alien-pointer-type-to type)))
Index: src/code/amd64-vm.lisp
diff -u src/code/amd64-vm.lisp:1.4.4.1 src/code/amd64-vm.lisp:1.4.4.2
--- src/code/amd64-vm.lisp:1.4.4.1 Mon Feb 8 12:15:46 2010
+++ src/code/amd64-vm.lisp Sat Feb 13 22:06:41 2010
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group at cs.cmu.edu.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/amd64-vm.lisp,v 1.4.4.1 2010-02-08 17:15:46 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/amd64-vm.lisp,v 1.4.4.2 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -174,13 +174,13 @@
#-cross-compiler
(defun machine-type ()
- "Returns a string describing the type of the local machine."
+ _N"Returns a string describing the type of the local machine."
"AMD x86-64")
#-cross-compiler
(defun machine-version ()
- "Returns a string describing the version of the local machine."
+ _N"Returns a string describing the version of the local machine."
"AMD x86-64")
@@ -230,7 +230,7 @@
(ncode-words (kernel:code-header-ref code 1))
(code-end-addr (+ code-start-addr (* ncode-words 8))))
(unless (member kind '(:absolute :relative))
- (error "Unknown code-object-fixup kind ~s." kind))
+ (error _"Unknown code-object-fixup kind ~s." kind))
(ecase kind
(:absolute
;; Word at sap + offset contains a value to be replaced by
@@ -470,7 +470,7 @@
value
(let ((value (system:alternate-get-global-address name)))
(when (zerop value)
- (error "Unknown foreign symbol: ~S" name))
+ (error _"Unknown foreign symbol: ~S" name))
value))))))
@@ -539,36 +539,36 @@
(defun %instance-set-conditional (object slot test-value new-value)
(declare (type instance object)
(type index slot))
- "Atomically compare object's slot value to test-value and if EQ store
+ _N"Atomically compare object's slot value to test-value and if EQ store
new-value in the slot. The original value of the slot is returned."
(%instance-set-conditional object slot test-value new-value))
(defun set-symbol-value-conditional (symbol test-value new-value)
(declare (type symbol symbol))
- "Atomically compare symbol's value to test-value and if EQ store
+ _N"Atomically compare symbol's value to test-value and if EQ store
new-value in symbol's value slot and return the original value."
(set-symbol-value-conditional symbol test-value new-value))
(defun rplaca-conditional (cons test-value new-value)
(declare (type cons cons))
- "Atomically compare the car of CONS to test-value and if EQ store
+ _N"Atomically compare the car of CONS to test-value and if EQ store
new-value its car and return the original value."
(rplaca-conditional cons test-value new-value))
(defun rplacd-conditional (cons test-value new-value)
(declare (type cons cons))
- "Atomically compare the cdr of CONS to test-value and if EQ store
+ _N"Atomically compare the cdr of CONS to test-value and if EQ store
new-value its cdr and return the original value."
(rplacd-conditional cons test-value new-value))
(defun data-vector-set-conditional (vector index test-value new-value)
(declare (type simple-vector vector))
- "Atomically compare an element of vector to test-value and if EQ store
+ _N"Atomically compare an element of vector to test-value and if EQ store
new-value the element and return the original value."
(data-vector-set-conditional vector index test-value new-value))
(defmacro atomic-push-symbol-value (val symbol)
- "Thread safe push of val onto the list in the symbol global value."
+ _N"Thread safe push of val onto the list in the symbol global value."
(ext:once-only ((n-val val))
(let ((new-list (gensym))
(old-list (gensym)))
@@ -582,7 +582,7 @@
(return ,new-list))))))))
(defmacro atomic-pop-symbol-value (symbol)
- "Thread safe pop from the list in the symbol global value."
+ _N"Thread safe pop from the list in the symbol global value."
(let ((new-list (gensym))
(old-list (gensym)))
`(loop
@@ -594,7 +594,7 @@
(return (car ,old-list)))))))
(defmacro atomic-pusha (val cons)
- "Thread safe push of val onto the list in the car of cons."
+ _N"Thread safe push of val onto the list in the car of cons."
(once-only ((n-val val)
(n-cons cons))
(let ((new-list (gensym))
@@ -608,7 +608,7 @@
(return ,new-list))))))))
(defmacro atomic-pushd (val cons)
- "Thread safe push of val onto the list in the cdr of cons."
+ _N"Thread safe push of val onto the list in the cdr of cons."
(once-only ((n-val val)
(n-cons cons))
(let ((new-list (gensym))
@@ -622,7 +622,7 @@
(return ,new-list))))))))
(defmacro atomic-push-vector (val vect index)
- "Thread safe push of val onto the list in the vector element."
+ _N"Thread safe push of val onto the list in the vector element."
(once-only ((n-val val)
(n-vect vect)
(n-index index))
Index: src/code/bsd-os.lisp
diff -u src/code/bsd-os.lisp:1.13.4.2 src/code/bsd-os.lisp:1.13.4.3
--- src/code/bsd-os.lisp:1.13.4.2 Mon Feb 8 22:43:35 2010
+++ src/code/bsd-os.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/bsd-os.lisp,v 1.13.4.2 2010-02-09 03:43:35 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/bsd-os.lisp,v 1.13.4.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -48,10 +48,10 @@
#+Darwin "Darwin"
#-(or freebsd NetBSD OpenBSD Darwin) "BSD")
-(defvar *software-version* nil "Version string for supporting software")
+(defvar *software-version* nil _N"Version string for supporting software")
(defun software-version ()
- "Returns a string describing version of the supporting software."
+ _N"Returns a string describing version of the supporting software."
(unless *software-version*
(setf *software-version*
(string-trim '(#\newline)
Index: src/code/defstruct.lisp
diff -u src/code/defstruct.lisp:1.98.12.4 src/code/defstruct.lisp:1.98.12.5
--- src/code/defstruct.lisp:1.98.12.4 Sat Feb 13 12:10:08 2010
+++ src/code/defstruct.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.98.12.4 2010-02-13 17:10:08 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.98.12.5 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1639,11 +1639,15 @@
definition."
name)
(continue ()
- :report "Invalidate already loaded code and instances, use new definition."
+ :report (lambda (stream)
+ (write-string _"Invalidate already loaded code and instances, use new definition."
+ stream))
(warn _"Previously loaded ~S accessors will no longer work." name)
(register-layout new-layout))
(clobber-it ()
- :report "Assume redefinition is compatible, allow old code and instances."
+ :report (lambda (stream)
+ (write-string "Assume redefinition is compatible, allow old code and instances."
+ stream))
(warn _"Any old ~S instances will be in a bad way.~@
I hope you know what you're doing..."
name)
Index: src/code/fd-stream.lisp
diff -u src/code/fd-stream.lisp:1.97.2.2 src/code/fd-stream.lisp:1.97.2.3
--- src/code/fd-stream.lisp:1.97.2.2 Tue Feb 9 14:54:14 2010
+++ src/code/fd-stream.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.97.2.2 2010-02-09 19:54:14 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.97.2.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -288,7 +288,7 @@
(:report
(lambda (condition stream)
(declare (stream stream))
- (format stream "Timeout ~(~A~)ing ~S."
+ (format stream _"Timeout ~(~A~)ing ~S."
(io-timeout-direction condition)
(stream-error-stream condition)))))
@@ -611,8 +611,8 @@
(bytes (- end start))
(newtail (+ tail bytes)))
(cond ((minusp bytes) ; Error case
- (cerror "Just go on as if nothing happened..."
- "~S called with :END before :START!"
+ (cerror _"Just go on as if nothing happened..."
+ _"~S called with :END before :START!"
'output-raw-bytes))
((zerop bytes)) ; Easy case
((<= bytes space)
@@ -1483,8 +1483,8 @@
(multiple-value-bind (okay err)
(unix:unix-rename original filename)
(unless okay
- (cerror "Go on as if nothing bad happened."
- "Could not restore ~S to its original contents: ~A"
+ (cerror _"Go on as if nothing bad happened."
+ _"Could not restore ~S to its original contents: ~A"
filename (unix:get-unix-error-msg err))))))
;;; DELETE-ORIGINAL -- internal
@@ -1618,7 +1618,7 @@
(error 'simple-type-error
:datum stream
:expected-type 'file-stream
- :format-control "~s is not a stream associated with a file."
+ :format-control _"~s is not a stream associated with a file."
:format-arguments (list stream)))
(multiple-value-bind
(okay dev ino mode nlink uid gid rdev size
@@ -1628,7 +1628,7 @@
atime mtime ctime blksize blocks))
(unless okay
(error 'simple-file-error
- :format-control "Error fstating ~S: ~A"
+ :format-control _"Error fstating ~S: ~A"
:format-arguments (list stream (unix:get-unix-error-msg dev))))
(if (zerop mode)
nil
@@ -1759,8 +1759,8 @@
pathname
input-buffer-p
(name (if file
- (format nil "file ~S" file)
- (format nil "descriptor ~D" fd)))
+ (format nil _"file ~S" file)
+ (format nil _"descriptor ~D" fd)))
auto-close
(external-format :default)
binary-stream-p)
@@ -1814,7 +1814,7 @@
(finalize stream
#'(lambda ()
(unix:unix-close fd)
- (format *terminal-io* "** Closed ~A~%" name)
+ (format *terminal-io* _"** Closed ~A~%" name)
(when original
(revert-file file original)))))
stream))
@@ -1878,12 +1878,12 @@
(defun assure-one-of (item list what)
(unless (member item list)
(loop
- (cerror "Enter new value for ~*~S"
- "~S is invalid for ~S. Must be one of~{ ~S~}"
+ (cerror _"Enter new value for ~*~S"
+ _"~S is invalid for ~S. Must be one of~{ ~S~}"
item
what
list)
- (format (the stream *query-io*) "Enter new value for ~S: " what)
+ (format (the stream *query-io*) _"Enter new value for ~S: " what)
(force-output *query-io*)
(setf item (read *query-io*))
(when (member item list)
@@ -1898,14 +1898,14 @@
;;;
(defun do-old-rename (namestring original)
(unless (unix:unix-access namestring unix:w_ok)
- (cerror "Try to rename it anyway." "File ~S is not writable." namestring))
+ (cerror _"Try to rename it anyway." _"File ~S is not writable." namestring))
(multiple-value-bind
(okay err)
(unix:unix-rename namestring original)
(cond (okay t)
(t
- (cerror "Use :SUPERSEDE instead."
- "Could not rename ~S to ~S: ~A."
+ (cerror _"Use :SUPERSEDE instead."
+ _"Could not rename ~S to ~S: ~A."
namestring
original
(unix:get-unix-error-msg err))
@@ -1986,7 +1986,7 @@
(error 'simple-file-error
:pathname pathname
:format-control
- "Cannot open ~S for output: Is a directory."
+ _"Cannot open ~S for output: Is a directory."
:format-arguments (list name)))
(setf mode (logand orig-mode #o777))
t)
@@ -1995,7 +1995,7 @@
(t
(error 'simple-file-error
:pathname pathname
- :format-control "Cannot find ~S: ~A"
+ :format-control _"Cannot find ~S: ~A"
:format-arguments
(list name
(unix:get-unix-error-msg err/dev)))))))))
@@ -2025,44 +2025,44 @@
((eql errno unix:enoent)
(case if-does-not-exist
(:error
- (cerror "Return NIL."
+ (cerror _"Return NIL."
'simple-file-error
:pathname pathname
- :format-control "Error opening ~S, ~A."
+ :format-control _"Error opening ~S, ~A."
:format-arguments
(list pathname
(unix:get-unix-error-msg errno))))
(:create
- (cerror "Return NIL."
+ (cerror _"Return NIL."
'simple-file-error
:pathname pathname
:format-control
- "Error creating ~S, path does not exist."
+ _"Error creating ~S, path does not exist."
:format-arguments (list pathname))))
(return nil))
((eql errno unix:eexist)
(unless (eq nil if-exists)
- (cerror "Return NIL."
+ (cerror _"Return NIL."
'simple-file-error
:pathname pathname
- :format-control "Error opening ~S, ~A."
+ :format-control _"Error opening ~S, ~A."
:format-arguments
(list pathname
(unix:get-unix-error-msg errno))))
(return nil))
((eql errno unix:eacces)
- (cerror "Try again."
+ (cerror _"Try again."
'simple-file-error
:pathname pathname
- :format-control "Error opening ~S, ~A."
+ :format-control _"Error opening ~S, ~A."
:format-arguments
(list pathname
(unix:get-unix-error-msg errno))))
(t
- (cerror "Return NIL."
+ (cerror _"Return NIL."
'simple-file-error
:pathname pathname
- :format-control "Error opening ~S, ~A."
+ :format-control _"Error opening ~S, ~A."
:format-arguments
(list pathname
(unix:get-unix-error-msg errno)))
@@ -2184,8 +2184,8 @@
(apply #'open-fd-stream filespec options))
((subtypep class 'stream:simple-stream)
(when element-type-given
- (cerror "Do it anyway."
- "Can't create simple-streams with an element-type."))
+ (cerror _"Do it anyway."
+ _"Can't create simple-streams with an element-type."))
(when (and (eq class 'stream:file-simple-stream) mapped)
(setq class 'stream:mapped-file-simple-stream)
(setf (getf options :class) 'stream:mapped-file-simple-stream))
Index: src/code/float.lisp
diff -u src/code/float.lisp:1.45.2.2 src/code/float.lisp:1.45.2.3
--- src/code/float.lisp:1.45.2.2 Tue Feb 9 13:41:59 2010
+++ src/code/float.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/float.lisp,v 1.45.2.2 2010-02-09 18:41:59 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/float.lisp,v 1.45.2.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -290,7 +290,7 @@
((double-double-float)
,double-double)))))
- (frob float-infinity-p "Return true if the float X is an infinity (+ or -)."
+ (frob float-infinity-p _N"Return true if the float X is an infinity (+ or -)."
(zerop (ldb vm:single-float-significand-byte bits))
(and (zerop (ldb vm:double-float-significand-byte hi))
(zerop lo))
@@ -300,7 +300,7 @@
#+double-double
(float-infinity-p (double-double-hi x)))
- (frob float-nan-p "Return true if the float X is a NaN (Not a Number)."
+ (frob float-nan-p _N"Return true if the float X is a NaN (Not a Number)."
(not (zerop (ldb vm:single-float-significand-byte bits)))
(or (not (zerop (ldb vm:double-float-significand-byte hi)))
(not (zerop lo)))
@@ -311,7 +311,7 @@
(float-nan-p (double-double-hi x)))
(frob float-trapping-nan-p
- "Return true if the float X is a trapping NaN (Not a Number)."
+ _N"Return true if the float X is a trapping NaN (Not a Number)."
(zerop (logand (ldb vm:single-float-significand-byte bits)
vm:single-float-trapping-nan-bit))
(zerop (logand (ldb vm:double-float-significand-byte hi)
Index: src/code/foreign.lisp
diff -u src/code/foreign.lisp:1.57.4.2 src/code/foreign.lisp:1.57.4.3
--- src/code/foreign.lisp:1.57.4.2 Tue Feb 9 13:41:59 2010
+++ src/code/foreign.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/foreign.lisp,v 1.57.4.2 2010-02-09 18:41:59 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/foreign.lisp,v 1.57.4.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -801,13 +801,16 @@
(setf (car lib-entry) new-sap)
(return))
(continue ()
- :report "Ignore library and continue"
+ :report (lambda (stream)
+ (write-string _"Ignore library and continue" stream))
(return))
(try-again ()
- :report "Try reloading again"
+ :report (lambda (stream)
+ (write-string _"Try reloading again" stream))
)
(new-library ()
- :report "Choose new library path"
+ :report (lambda (stream)
+ (write-string _"Choose new library path" stream))
(format *query-io* _"Enter new library path: ")
(setf lib-path (read))))))
(alien:alien-funcall (alien:extern-alien "os_resolve_data_linkage"
Index: src/code/format.lisp
diff -u src/code/format.lisp:1.93.10.3 src/code/format.lisp:1.93.10.4
--- src/code/format.lisp:1.93.10.3 Sat Feb 13 11:28:33 2010
+++ src/code/format.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/format.lisp,v 1.93.10.3 2010-02-13 16:28:33 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/format.lisp,v 1.93.10.4 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1460,7 +1460,7 @@
(defun format-print-old-roman (stream n)
(unless (< 0 n 5000)
- (error "Number too large to print in old Roman numerals: ~:D" n))
+ (error _"Number too large to print in old Roman numerals: ~:D" n))
(do ((char-list '(#\D #\C #\L #\X #\V #\I) (cdr char-list))
(val-list '(500 100 50 10 5 1) (cdr val-list))
(cur-char #\M (car char-list))
@@ -1473,7 +1473,7 @@
(defun format-print-roman (stream n)
(unless (< 0 n 4000)
- (error "Number too large to print in Roman numerals: ~:D" n))
+ (error _"Number too large to print in Roman numerals: ~:D" n))
(do ((char-list '(#\D #\C #\L #\X #\V #\I) (cdr char-list))
(val-list '(500 100 50 10 5 1) (cdr val-list))
(sub-chars '(#\C #\X #\X #\I #\I) (cdr sub-chars))
@@ -1504,7 +1504,7 @@
(*orig-args-available*
`(if (eq orig-args args)
(error 'format-error
- :complaint "No previous argument."
+ :complaint _"No previous argument."
:offset ,(1- end))
(do ((arg-ptr orig-args (cdr arg-ptr)))
((eq (cdr arg-ptr) args)
@@ -1512,7 +1512,7 @@
(*only-simple-args*
(unless *simple-args*
(error 'format-error
- :complaint "No previous argument."))
+ :complaint _"No previous argument."))
(caar *simple-args*))
(t
(throw 'need-orig-args nil)))))
@@ -1544,7 +1544,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(expand-bind-defaults ((w nil) (d nil) (k nil) (ovf nil) (pad #\space)) params
`(format-fixed stream ,(expand-next-arg) ,w ,d ,k ,ovf ,pad ,atsignp)))
@@ -1552,7 +1552,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(interpret-bind-defaults ((w nil) (d nil) (k nil) (ovf nil) (pad #\space))
params
(format-fixed stream (next-arg) w d k ovf pad atsignp)))
@@ -1622,7 +1622,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(expand-bind-defaults
((w nil) (d nil) (e nil) (k 1) (ovf nil) (pad #\space) (mark nil))
params
@@ -1633,7 +1633,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(interpret-bind-defaults
((w nil) (d nil) (e nil) (k 1) (ovf nil) (pad #\space) (mark nil))
params
@@ -1858,7 +1858,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(expand-bind-defaults
((w nil) (d nil) (e nil) (k nil) (ovf nil) (pad #\space) (mark nil))
params
@@ -1868,7 +1868,7 @@
(when colonp
(error 'format-error
:complaint
- "Cannot specify the colon modifier with this directive."))
+ _"Cannot specify the colon modifier with this directive."))
(interpret-bind-defaults
((w nil) (d nil) (e nil) (k nil) (ovf nil) (pad #\space) (mark nil))
params
@@ -1975,7 +1975,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(if params
(expand-bind-defaults ((count 1)) params
`(dotimes (i ,count)
@@ -1986,7 +1986,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(interpret-bind-defaults ((count 1)) params
(dotimes (i count)
(terpri stream))))
@@ -1995,7 +1995,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(if params
(expand-bind-defaults ((count 1)) params
`(progn
@@ -2008,7 +2008,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(interpret-bind-defaults ((count 1)) params
(fresh-line stream)
(dotimes (i (1- count))
@@ -2018,7 +2018,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(if params
(expand-bind-defaults ((count 1)) params
`(dotimes (i ,count)
@@ -2029,7 +2029,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(interpret-bind-defaults ((count 1)) params
(dotimes (i count)
(write-char #\page stream))))
@@ -2038,7 +2038,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(if params
(expand-bind-defaults ((count 1)) params
`(dotimes (i ,count)
@@ -2049,7 +2049,7 @@
(when (or colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify either colon or atsign for this directive."))
+ _"Cannot specify either colon or atsign for this directive."))
(interpret-bind-defaults ((count 1)) params
(dotimes (i count)
(write-char #\~ stream))))
@@ -2058,7 +2058,7 @@
(when (and colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify both colon and atsign for this directive."))
+ _"Cannot specify both colon and atsign for this directive."))
(values (expand-bind-defaults () params
(if atsignp
'(write-char #\newline stream)
@@ -2075,7 +2075,7 @@
(when (and colonp atsignp)
(error 'format-error
:complaint
- "Cannot specify both colon and atsign for this directive."))
+ _"Cannot specify both colon and atsign for this directive."))
(interpret-bind-defaults () params
(when atsignp
(write-char #\newline stream)))
@@ -2167,14 +2167,14 @@
(def-format-directive #\I (colonp atsignp params)
(when atsignp
(error 'format-error
- :complaint "Cannot specify the at-sign modifier."))
+ :complaint _"Cannot specify the at-sign modifier."))
(expand-bind-defaults ((n 0)) params
`(pprint-indent ,(if colonp :current :block) ,n stream)))
(def-format-interpreter #\I (colonp atsignp params)
(when atsignp
(error 'format-error
- :complaint "Cannot specify the at-sign modifier."))
+ :complaint _"Cannot specify the at-sign modifier."))
(interpret-bind-defaults ((n 0)) params
(pprint-indent (if colonp :current :block) n stream)))
@@ -2185,14 +2185,14 @@
(if atsignp
(if colonp
(error 'format-error
- :complaint "Cannot specify both colon and at-sign.")
+ :complaint _"Cannot specify both colon and at-sign.")
(expand-bind-defaults ((posn 0)) params
(unless *orig-args-available*
(throw 'need-orig-args nil))
`(if (<= 0 ,posn (length orig-args))
(setf args (nthcdr ,posn orig-args))
(error 'format-error
- :complaint "Index ~D out of bounds. Should have been ~
+ :complaint _"Index ~D out of bounds. Should have been ~
between 0 and ~D."
:arguments (list ,posn (length orig-args))
:offset ,(1- end)))))
@@ -2208,7 +2208,7 @@
(setf args (nthcdr new-posn orig-args))
(error 'format-error
:complaint
- "Index ~D out of bounds. Should have been ~
+ _"Index ~D out of bounds. Should have been ~
between 0 and ~D."
:arguments
(list new-posn (length orig-args))
@@ -2224,12 +2224,12 @@
(if atsignp
(if colonp
(error 'format-error
- :complaint "Cannot specify both colon and at-sign.")
+ :complaint _"Cannot specify both colon and at-sign.")
(interpret-bind-defaults ((posn 0)) params
(if (<= 0 posn (length orig-args))
(setf args (nthcdr posn orig-args))
(error 'format-error
- :complaint "Index ~D out of bounds. Should have been ~
+ :complaint _"Index ~D out of bounds. Should have been ~
between 0 and ~D."
:arguments (list posn (length orig-args))))))
(if colonp
@@ -2242,7 +2242,7 @@
(setf args (nthcdr new-posn orig-args))
(error 'format-error
:complaint
- "Index ~D out of bounds. Should have been ~
+ _"Index ~D out of bounds. Should have been ~
between 0 and ~D."
:arguments
(list new-posn (length orig-args))))))))
@@ -2256,14 +2256,14 @@
(def-format-directive #\? (colonp atsignp params string end)
(when colonp
(error 'format-error
- :complaint "Cannot specify the colon modifier."))
+ :complaint _"Cannot specify the colon modifier."))
(expand-bind-defaults () params
`(handler-bind
((format-error
#'(lambda (condition)
(error 'format-error
:complaint
- "~A~%while processing indirect format string:"
+ _"~A~%while processing indirect format string:"
:arguments (list condition)
:print-banner nil
:control-string ,string
@@ -2277,14 +2277,14 @@
(def-format-interpreter #\? (colonp atsignp params string end)
(when colonp
(error 'format-error
- :complaint "Cannot specify the colon modifier."))
+ :complaint _"Cannot specify the colon modifier."))
(interpret-bind-defaults () params
(handler-bind
((format-error
#'(lambda (condition)
(error 'format-error
:complaint
- "~A~%while processing indirect format string:"
+ _"~A~%while processing indirect format string:"
:arguments (list condition)
:print-banner nil
:control-string string
@@ -2300,7 +2300,7 @@
(let ((close (find-directive directives #\) nil)))
(unless close
(error 'format-error
- :complaint "No corresponding close paren."))
+ :complaint _"No corresponding close paren."))
(let* ((posn (position close directives))
(before (subseq directives 0 posn))
(after (nthcdr (1+ posn) directives)))
@@ -2321,7 +2321,7 @@
(let ((close (find-directive directives #\) nil)))
(unless close
(error 'format-error
- :complaint "No corresponding close paren."))
+ :complaint _"No corresponding close paren."))
(interpret-bind-defaults () params
(let* ((posn (position close directives))
(before (subseq directives 0 posn))
@@ -2339,11 +2339,11 @@
(def-complex-format-directive #\) ()
(error 'format-error
- :complaint "No corresponding open paren."))
+ :complaint _"No corresponding open paren."))
(def-complex-format-interpreter #\) ()
(error 'format-error
- :complaint "No corresponding open paren."))
+ :complaint _"No corresponding open paren."))
;;;; Conditionals
@@ -2356,7 +2356,7 @@
(let ((close-or-semi (find-directive remaining #\] t)))
(unless close-or-semi
(error 'format-error
- :complaint "No corresponding close bracket."))
+ :complaint _"No corresponding close bracket."))
(let ((posn (position close-or-semi remaining)))
(push (subseq remaining 0 posn) sublists)
(setf remaining (nthcdr (1+ posn) remaining))
@@ -2375,11 +2375,11 @@
(if colonp
(error 'format-error
:complaint
- "Cannot specify both the colon and at-sign modifiers.")
+ _"Cannot specify both the colon and at-sign modifiers.")
(if (cdr sublists)
(error 'format-error
:complaint
- "Can only specify one section")
+ _"Can only specify one section")
(expand-bind-defaults () params
(expand-maybe-conditional (car sublists)))))
(if colonp
@@ -2389,7 +2389,7 @@
(cadr sublists)))
(error 'format-error
:complaint
- "Must specify exactly two sections."))
+ _"Must specify exactly two sections."))
(expand-bind-defaults ((index nil)) params
(setf *only-simple-args* nil)
(let ((clauses nil)
@@ -2483,11 +2483,11 @@
(if colonp
(error 'format-error
:complaint
- "Cannot specify both the colon and at-sign modifiers.")
+ _"Cannot specify both the colon and at-sign modifiers.")
(if (cdr sublists)
(error 'format-error
:complaint
- "Can only specify one section")
+ _"Can only specify one section")
(interpret-bind-defaults () params
(let ((prev-args args)
(arg (next-arg)))
@@ -2507,7 +2507,7 @@
orig-args args)))
(error 'format-error
:complaint
- "Must specify exactly two sections."))
+ _"Must specify exactly two sections."))
(interpret-bind-defaults ((index (next-arg))) params
(let* ((default (and last-semi-with-colon-p
(pop sublists)))
@@ -2523,22 +2523,22 @@
(def-complex-format-directive #\; ()
(error 'format-error
:complaint
- "~~; not contained within either ~~[...~~] or ~~<...~~>."))
+ _"~~; not contained within either ~~[...~~] or ~~<...~~>."))
(def-complex-format-interpreter #\; ()
(error 'format-error
:complaint
- "~~; not contained within either ~~[...~~] or ~~<...~~>."))
+ _"~~; not contained within either ~~[...~~] or ~~<...~~>."))
(def-complex-format-interpreter #\] ()
(error 'format-error
:complaint
- "No corresponding open bracket."))
+ _"No corresponding open bracket."))
(def-complex-format-directive #\] ()
(error 'format-error
:complaint
- "No corresponding open bracket."))
+ _"No corresponding open bracket."))
;;;; Up-and-out.
@@ -2548,10 +2548,10 @@
(def-format-directive #\^ (colonp atsignp params)
(when atsignp
(error 'format-error
- :complaint "Cannot specify the at-sign modifier."))
+ :complaint _"Cannot specify the at-sign modifier."))
(when (and colonp (not *up-up-and-out-allowed*))
(error 'format-error
- :complaint "Attempt to use ~~:^ outside a ~~:{...~~} construct."))
+ :complaint _"Attempt to use ~~:^ outside a ~~:{...~~} construct."))
;; See the #\^ interpreter below for what happens here.
`(when ,(case (length params)
(0 (if colonp
@@ -2585,10 +2585,10 @@
(def-format-interpreter #\^ (colonp atsignp params)
(when atsignp
(error 'format-error
- :complaint "Cannot specify the at-sign modifier."))
+ :complaint _"Cannot specify the at-sign modifier."))
(when (and colonp (not *up-up-and-out-allowed*))
(error 'format-error
- :complaint "Attempt to use ~~:^ outside a ~~:{...~~} construct."))
+ :complaint _"Attempt to use ~~:^ outside a ~~:{...~~} construct."))
;; This is messy because, as I understand it, and as tested by
;; ansi-tests, a NIL parameter is the same as not given. Thus for 2
;; args, if the second is nil, we have to pretend that only 1 was
@@ -2631,7 +2631,7 @@
(unless close
(error 'format-error
:complaint
- "No corresponding close brace."))
+ _"No corresponding close brace."))
(let* ((closed-with-colon (format-directive-colonp close))
(posn (position close directives)))
(labels
@@ -2643,7 +2643,7 @@
#'(lambda (condition)
(error 'format-error
:complaint
- "~A~%while processing indirect format string:"
+ _"~A~%while processing indirect format string:"
:arguments (list condition)
:print-banner nil
:control-string ,string
@@ -2710,7 +2710,7 @@
(unless close
(error 'format-error
:complaint
- "No corresponding close brace."))
+ _"No corresponding close brace."))
(interpret-bind-defaults ((max-count nil)) params
(let* ((closed-with-colon (format-directive-colonp close))
(posn (position close directives))
@@ -2726,7 +2726,7 @@
#'(lambda (condition)
(error 'format-error
:complaint
- "~A~%while processing indirect format string:"
+ _"~A~%while processing indirect format string:"
:arguments (list condition)
:print-banner nil
:control-string string
@@ -2763,11 +2763,11 @@
(def-complex-format-directive #\} ()
(error 'format-error
- :complaint "No corresponding open brace."))
+ :complaint _"No corresponding open brace."))
(def-complex-format-interpreter #\} ()
(error 'format-error
- :complaint "No corresponding open brace."))
+ :complaint _"No corresponding open brace."))
@@ -2809,7 +2809,7 @@
;; ANSI specifies that "an error is signalled" in this
;; situation.
(error 'format-error
- :complaint "~D illegal directive~:P found inside justification block"
+ :complaint _"~D illegal directive~:P found inside justification block"
:arguments (list count)))
(expand-format-justification segments colonp atsignp
first-semi params)))
@@ -2836,7 +2836,7 @@
;; ANSI specifies that "an error is signalled" in this
;; situation.
(error 'format-error
- :complaint "~D illegal directive~:P found inside justification block"
+ :complaint _"~D illegal directive~:P found inside justification block"
:arguments (list count)))
(interpret-format-justification stream orig-args args
segments colonp atsignp
@@ -2852,7 +2852,7 @@
(let ((close-or-semi (find-directive remaining #\> t)))
(unless close-or-semi
(error 'format-error
- :complaint "No corresponding close bracket."))
+ :complaint _"No corresponding close bracket."))
(let ((posn (position close-or-semi remaining)))
(segments (subseq remaining 0 posn))
(setf remaining (nthcdr (1+ posn) remaining)))
@@ -2986,7 +2986,7 @@
(segments colonp first-semi close params string end)
(when params
(error 'format-error
- :complaint "No parameters can be supplied with ~~<...~~:>."
+ :complaint _"No parameters can be supplied with ~~<...~~:>."
:offset (caar params)))
(multiple-value-bind
(prefix insides suffix)
@@ -2997,7 +2997,7 @@
(if directive
(error 'format-error
:complaint
- "Cannot include format directives inside the ~
+ _"Cannot include format directives inside the ~
~:[suffix~;prefix~] segment of ~~<...~~:>"
:arguments (list prefix-p)
:offset (1- (format-directive-end directive)))
@@ -3012,7 +3012,7 @@
(extract-string (caddr segments) nil)))
(t
(error 'format-error
- :complaint "Too many segments for ~~<...~~:>.")))))
+ :complaint _"Too many segments for ~~<...~~:>.")))))
(when (format-directive-atsignp close)
(setf insides
(add-fill-style-newlines insides
@@ -3107,7 +3107,7 @@
(def-complex-format-directive #\> ()
(error 'format-error
- :complaint "No corresponding open bracket."))
+ :complaint _"No corresponding open bracket."))
;;;; User-defined method.
@@ -3144,7 +3144,7 @@
:from-end t)))
(unless slash
(error 'format-error
- :complaint "Malformed ~~/ directive."))
+ :complaint _"Malformed ~~/ directive."))
(let* ((name (string-upcase (let ((foo string))
;; Hack alert: This is to keep the compiler
;; quiet about deleting code inside the
@@ -3158,7 +3158,7 @@
(package (find-package package-name)))
(unless package
(error 'format-error
- :complaint "No package named ~S"
+ :complaint _"No package named ~S"
:arguments (list package-name)))
(intern (cond
((and second-colon (= second-colon (1+ first-colon)))
Index: src/code/gc.lisp
diff -u src/code/gc.lisp:1.42.38.3 src/code/gc.lisp:1.42.38.4
--- src/code/gc.lisp:1.42.38.3 Mon Feb 8 21:44:32 2010
+++ src/code/gc.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/gc.lisp,v 1.42.38.3 2010-02-09 02:44:32 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/gc.lisp,v 1.42.38.4 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -209,7 +209,7 @@
#-(or cgc gencgc)
(defun get-bytes-consed-dfixnum ()
- "Returns the number of bytes consed since the first time this function
+ _N"Returns the number of bytes consed since the first time this function
was called. The first time it is called, it returns zero."
(declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
(cond ((null *last-bytes-in-use*)
@@ -464,7 +464,7 @@
#+nil
(when verbose-p
(format
- t "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+ t _"~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
*last-bytes-in-use*
post-gc-dyn-usage
gen
@@ -509,7 +509,7 @@
;;;
#-gencgc
(defun gc (&optional (verbose-p *gc-verbose*))
- "Initiates a garbage collection. The optional argument, VERBOSE-P,
+ _N"Initiates a garbage collection. The optional argument, VERBOSE-P,
which defaults to the value of the variable *GC-VERBOSE* controls
whether or not GC statistics are printed."
(sub-gc :verbose-p verbose-p :force-p t))
Index: src/code/hash-new.lisp
diff -u src/code/hash-new.lisp:1.51.10.3 src/code/hash-new.lisp:1.51.10.4
--- src/code/hash-new.lisp:1.51.10.3 Tue Feb 9 23:00:05 2010
+++ src/code/hash-new.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/hash-new.lisp,v 1.51.10.3 2010-02-10 04:00:05 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/hash-new.lisp,v 1.51.10.4 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -272,7 +272,7 @@
(declare (type index size+1 scaled-size length))
#-gencgc
(when weak-p
- (format *debug-io* ";; Creating unsupported weak-p hash table~%"))
+ (format *debug-io* _";; Creating unsupported weak-p hash table~%"))
#+gencgc
(when (and (member weak-p '(t :key :key-and-value :key-or-value))
(not (member test '(eq eql))))
@@ -282,7 +282,7 @@
;;
;; XXX: Either fix GC to work with other tests, or change
;; this warning into an error.
- (error "Cannot make a weak ~A hashtable with test: ~S" weak-p test))
+ (error _"Cannot make a weak ~A hashtable with test: ~S" weak-p test))
(let* ((index-vector
(make-array length :element-type '(unsigned-byte 32)
:initial-element 0))
Index: src/code/interr.lisp
diff -u src/code/interr.lisp:1.47.24.2 src/code/interr.lisp:1.47.24.3
--- src/code/interr.lisp:1.47.24.2 Tue Feb 9 15:23:02 2010
+++ src/code/interr.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/interr.lisp,v 1.47.24.2 2010-02-09 20:23:02 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/interr.lisp,v 1.47.24.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -50,7 +50,7 @@
(macrolet ((set-value (var value)
(let ((pos (position var ',required)))
(unless pos
- (error "~S isn't one of the required args."
+ (error _"~S isn't one of the required args."
var))
`(let ((,',temp ,value))
(di::sub-set-debug-var-slot
@@ -82,7 +82,7 @@
(deferr unknown-error (&rest args)
- (error "Unknown error:~{ ~S~})" args))
+ (error _"Unknown error:~{ ~S~})" args))
(deferr object-not-function-error (object)
(error 'type-error
@@ -246,7 +246,7 @@
(deferr invalid-argument-count-error (nargs)
(error 'simple-program-error
:function-name name
- :format-control "Invalid number of arguments: ~S"
+ :format-control _"Invalid number of arguments: ~S"
:format-arguments (list nargs)))
(deferr bogus-argument-to-values-list-error (list)
@@ -254,7 +254,7 @@
:function-name name
:datum list
:expected-type 'list
- :format-control "Attempt to use VALUES-LIST on a dotted-list:~% ~S"
+ :format-control _"Attempt to use VALUES-LIST on a dotted-list:~% ~S"
:format-arguments (list list)))
(deferr unbound-symbol-error (symbol)
@@ -330,11 +330,11 @@
:expected-type `(integer 0 (,bound))
:format-control
(cond ((zerop bound)
- "Invalid array index, ~D for ~S. Array has no elements.")
+ _"Invalid array index, ~D for ~S. Array has no elements.")
((minusp index)
- "Invalid array index, ~D for ~S. Should have greater than or equal to 0.")
+ _"Invalid array index, ~D for ~S. Should have greater than or equal to 0.")
(t
- "Invalid array index, ~D for ~S. Should have been less than ~D"))
+ _"Invalid array index, ~D for ~S. Should have been less than ~D"))
:format-arguments (list index array bound)))
(deferr object-not-simple-array-error (object)
Index: src/code/linux-os.lisp
diff -u src/code/linux-os.lisp:1.8.12.1 src/code/linux-os.lisp:1.8.12.2
--- src/code/linux-os.lisp:1.8.12.1 Mon Feb 8 12:15:47 2010
+++ src/code/linux-os.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/linux-os.lisp,v 1.8.12.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/linux-os.lisp,v 1.8.12.2 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -19,7 +19,7 @@
(in-package "SYSTEM")
(use-package "EXTENSIONS")
(intl:textdomain "cmucl")
-
+
(export '(get-system-info get-page-size os-init))
(register-lisp-feature :linux)
@@ -32,7 +32,7 @@
;;; select() in Linux kernel 2.6.x) and instead of running uname -r,
;;; let's just get the info from uname().
(defun software-version ()
- "Returns a string describing version of the supporting software."
+ _N"Returns a string describing version of the supporting software."
(multiple-value-bind (sysname nodename release version)
(unix:unix-uname)
(declare (ignore sysname nodename))
@@ -54,7 +54,7 @@
(unix:unix-getrusage unix:rusage_self)
(declare (ignore maxrss ixrss idrss isrss minflt))
(unless err?
- (error "Unix system call getrusage failed: ~A."
+ (error _"Unix system call getrusage failed: ~A."
(unix:get-unix-error-msg utime)))
(values utime stime majflt)))
@@ -68,6 +68,6 @@
(multiple-value-bind (val err)
(unix:unix-getpagesize)
(unless val
- (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
+ (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
val))
Index: src/code/list.lisp
diff -u src/code/list.lisp:1.37.10.1 src/code/list.lisp:1.37.10.2
--- src/code/list.lisp:1.37.10.1 Mon Feb 8 12:15:48 2010
+++ src/code/list.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/list.lisp,v 1.37.10.1 2010-02-08 17:15:48 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/list.lisp,v 1.37.10.2 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -59,37 +59,37 @@
;;; These functions perform basic list operations:
-(defun car (list) "Returns the 1st object in a list." (car list))
-(defun cdr (list) "Returns all but the first object." (cdr list))
-(defun cadr (list) "Returns the 2nd object in a list." (cadr list))
-(defun cdar (list) "Returns the cdr of the 1st sublist." (cdar list))
-(defun caar (list) "Returns the car of the 1st sublist." (caar list))
-(defun cddr (list) "Returns all but the 1st two objects of a list." (cddr list))
-(defun caddr (list) "Returns the 1st object in the cddr of a list." (caddr list))
-(defun caadr (list) "Returns the 1st object in the cadr of a list." (caadr list))
-(defun caaar (list) "Returns the 1st object in the caar of a list." (caaar list))
-(defun cdaar (list) "Returns the cdr of the caar of a list." (cdaar list))
-(defun cddar (list) "Returns the cdr of the cdar of a list." (cddar list))
-(defun cdddr (list) "Returns the cdr of the cddr of a list." (cdddr list))
-(defun cadar (list) "Returns the car of the cdar of a list." (cadar list))
-(defun cdadr (list) "Returns the cdr of the cadr of a list." (cdadr list))
-(defun caaaar (list) "Returns the car of the caaar of a list." (caaaar list))
-(defun caaadr (list) "Returns the car of the caadr of a list." (caaadr list))
-(defun caaddr (list) "Returns the car of the caddr of a list." (caaddr list))
-(defun cadddr (list) "Returns the car of the cdddr of a list." (cadddr list))
-(defun cddddr (list) "Returns the cdr of the cdddr of a list." (cddddr list))
-(defun cdaaar (list) "Returns the cdr of the caaar of a list." (cdaaar list))
-(defun cddaar (list) "Returns the cdr of the cdaar of a list." (cddaar list))
-(defun cdddar (list) "Returns the cdr of the cddar of a list." (cdddar list))
-(defun caadar (list) "Returns the car of the cadar of a list." (caadar list))
-(defun cadaar (list) "Returns the car of the cdaar of a list." (cadaar list))
-(defun cadadr (list) "Returns the car of the cdadr of a list." (cadadr list))
-(defun caddar (list) "Returns the car of the cddar of a list." (caddar list))
-(defun cdaadr (list) "Returns the cdr of the caadr of a list." (cdaadr list))
-(defun cdadar (list) "Returns the cdr of the cadar of a list." (cdadar list))
-(defun cdaddr (list) "Returns the cdr of the caddr of a list." (cdaddr list))
-(defun cddadr (list) "Returns the cdr of the cdadr of a list." (cddadr list))
-(defun cons (se1 se2) "Returns a list with se1 as the car and se2 as the cdr."
+(defun car (list) _N"Returns the 1st object in a list." (car list))
+(defun cdr (list) _N"Returns all but the first object." (cdr list))
+(defun cadr (list) _N"Returns the 2nd object in a list." (cadr list))
+(defun cdar (list) _N"Returns the cdr of the 1st sublist." (cdar list))
+(defun caar (list) _N"Returns the car of the 1st sublist." (caar list))
+(defun cddr (list) _N"Returns all but the 1st two objects of a list." (cddr list))
+(defun caddr (list) _N"Returns the 1st object in the cddr of a list." (caddr list))
+(defun caadr (list) _N"Returns the 1st object in the cadr of a list." (caadr list))
+(defun caaar (list) _N"Returns the 1st object in the caar of a list." (caaar list))
+(defun cdaar (list) _N"Returns the cdr of the caar of a list." (cdaar list))
+(defun cddar (list) _N"Returns the cdr of the cdar of a list." (cddar list))
+(defun cdddr (list) _N"Returns the cdr of the cddr of a list." (cdddr list))
+(defun cadar (list) _N"Returns the car of the cdar of a list." (cadar list))
+(defun cdadr (list) _N"Returns the cdr of the cadr of a list." (cdadr list))
+(defun caaaar (list) _N"Returns the car of the caaar of a list." (caaaar list))
+(defun caaadr (list) _N"Returns the car of the caadr of a list." (caaadr list))
+(defun caaddr (list) _N"Returns the car of the caddr of a list." (caaddr list))
+(defun cadddr (list) _N"Returns the car of the cdddr of a list." (cadddr list))
+(defun cddddr (list) _N"Returns the cdr of the cdddr of a list." (cddddr list))
+(defun cdaaar (list) _N"Returns the cdr of the caaar of a list." (cdaaar list))
+(defun cddaar (list) _N"Returns the cdr of the cdaar of a list." (cddaar list))
+(defun cdddar (list) _N"Returns the cdr of the cddar of a list." (cdddar list))
+(defun caadar (list) _N"Returns the car of the cadar of a list." (caadar list))
+(defun cadaar (list) _N"Returns the car of the cdaar of a list." (cadaar list))
+(defun cadadr (list) _N"Returns the car of the cdadr of a list." (cadadr list))
+(defun caddar (list) _N"Returns the car of the cddar of a list." (caddar list))
+(defun cdaadr (list) _N"Returns the cdr of the caadr of a list." (cdaadr list))
+(defun cdadar (list) _N"Returns the cdr of the cadar of a list." (cdadar list))
+(defun cdaddr (list) _N"Returns the cdr of the caddr of a list." (cdaddr list))
+(defun cddadr (list) _N"Returns the cdr of the cdadr of a list." (cddadr list))
+(defun cons (se1 se2) _N"Returns a list with se1 as the car and se2 as the cdr."
(cons se1 se2))
@@ -114,19 +114,19 @@
(t ())))
(defun tree-equal (x y &key (test #'eql) test-not)
- "Returns T if X and Y are isomorphic trees with identical leaves."
+ _N"Returns T if X and Y are isomorphic trees with identical leaves."
(if test-not
(tree-equal-test-not x y test-not)
(tree-equal-test x y test)))
(defun endp (object)
- "The recommended way to test for the end of a list. True if Object is nil,
+ _N"The recommended way to test for the end of a list. True if Object is nil,
false if Object is a cons, and an error for any other types of arguments."
(endp object))
(defun list-length (list)
- "Returns the length of the given List, or Nil if the List is circular."
+ _N"Returns the length of the given List, or Nil if the List is circular."
(do ((n 0 (+ n 2))
(y list (cddr y))
(z list (cdr z)))
@@ -137,45 +137,45 @@
(when (and (eq y z) (> n 0)) (return nil))))
(defun nth (n list)
- "Returns the nth object in a list where the car is the zero-th element."
+ _N"Returns the nth object in a list where the car is the zero-th element."
(car (nthcdr n list)))
(defun first (list)
- "Returns the 1st object in a list or NIL if the list is empty."
+ _N"Returns the 1st object in a list or NIL if the list is empty."
(car list))
(defun second (list)
- "Returns the 2nd object in a list or NIL if there is no 2nd object."
+ _N"Returns the 2nd object in a list or NIL if there is no 2nd object."
(cadr list))
(defun third (list)
- "Returns the 3rd object in a list or NIL if there is no 3rd object."
+ _N"Returns the 3rd object in a list or NIL if there is no 3rd object."
(caddr list))
(defun fourth (list)
- "Returns the 4th object in a list or NIL if there is no 4th object."
+ _N"Returns the 4th object in a list or NIL if there is no 4th object."
(cadddr list))
(defun fifth (list)
- "Returns the 5th object in a list or NIL if there is no 5th object."
+ _N"Returns the 5th object in a list or NIL if there is no 5th object."
(car (cddddr list)))
(defun sixth (list)
- "Returns the 6th object in a list or NIL if there is no 6th object."
+ _N"Returns the 6th object in a list or NIL if there is no 6th object."
(cadr (cddddr list)))
(defun seventh (list)
- "Returns the 7th object in a list or NIL if there is no 7th object."
+ _N"Returns the 7th object in a list or NIL if there is no 7th object."
(caddr (cddddr list)))
(defun eighth (list)
- "Returns the 8th object in a list or NIL if there is no 8th object."
+ _N"Returns the 8th object in a list or NIL if there is no 8th object."
(cadddr (cddddr list)))
(defun ninth (list)
- "Returns the 9th object in a list or NIL if there is no 9th object."
+ _N"Returns the 9th object in a list or NIL if there is no 9th object."
(car (cddddr (cddddr list))))
(defun tenth (list)
- "Returns the 10th object in a list or NIL if there is no 10th object."
+ _N"Returns the 10th object in a list or NIL if there is no 10th object."
(cadr (cddddr (cddddr list))))
(defun rest (list)
- "Means the same as the cdr of a list."
+ _N"Means the same as the cdr of a list."
(cdr list))
(defun nthcdr (n list)
- "Performs the cdr function n times on a list."
+ _N"Performs the cdr function n times on a list."
(flet ((fast-nthcdr (n list)
(declare (type index n))
(do ((i n (1- i))
@@ -192,7 +192,7 @@
(declare (type index i)))))))
(defun last (list &optional (n 1))
- "Returns the last N conses (not the last element!) of a list."
+ _N"Returns the last N conses (not the last element!) of a list."
(declare (type unsigned-byte n))
(if (typep n 'index)
(do ((checked-list list (cdr checked-list))
@@ -205,14 +205,14 @@
list))
(defun list (&rest args)
- "Returns constructs and returns a list of its arguments."
+ _N"Returns constructs and returns a list of its arguments."
args)
;;; List* is done the same as list, except that the last cons is made a
;;; dotted pair
(defun list* (arg &rest others)
- "Returns a list of the arguments with last cons a dotted pair"
+ _N"Returns a list of the arguments with last cons a dotted pair"
(cond ((atom others) arg)
((atom (cdr others)) (cons arg (car others)))
(t (do ((x others (cdr x)))
@@ -220,7 +220,7 @@
(cons arg others))))
(defun make-list (size &key initial-element)
- "Constructs a list with size elements each set to value"
+ _N"Constructs a list with size elements each set to value"
(declare (type index size))
(do ((count size (1- count))
(result '() (cons initial-element result)))
@@ -250,7 +250,7 @@
(error 'simple-type-error
:datum list
:expected-type '(satisfies proper-list-p)
- :format-control "~S is not a proper list"
+ :format-control _"~S is not a proper list"
:format-arguments (list list)))
;;; The outer loop finds the first non-null list and the result is started.
@@ -258,7 +258,7 @@
;;; using splice which cdr's down the end of the new list
(defun append (&rest args)
- "Typically, returns a new list that is the concatenation of Args.
+ _N"Typically, returns a new list that is the concatenation of Args.
Each Arg in Args must be a proper list except the last one, which
may be any object. The function is not destructive: for all but the
@@ -273,7 +273,7 @@
(cond ((null (car top))) ; Nil -> Keep looping
((not (consp (car top))) ; Non cons
(if (cdr top)
- (error "~S is not a list." (car top))
+ (error _"~S is not a list." (car top))
(return (car top))))
(t ; Start appending
(return
@@ -299,7 +299,7 @@
(setq
splice
(cdr (rplacd splice (cons (car x) ())))))
- (error "~S is not a list." (car y)))))))))))
+ (error _"~S is not a list." (car y)))))))))))
;;; List Copying Functions
@@ -309,7 +309,7 @@
;;; of the new list
(defun copy-list (list)
- "Returns a new list EQUAL but not EQ to list"
+ _N"Returns a new list EQUAL but not EQ to list"
(if (atom list)
list
(let ((result (list (car list))))
@@ -322,7 +322,7 @@
result)))
(defun copy-alist (alist)
- "Returns a new association list equal to alist, constructed in space"
+ _N"Returns a new association list equal to alist, constructed in space"
(if (atom alist)
alist
(let ((result
@@ -344,7 +344,7 @@
result)))
(defun copy-tree (object)
- "Copy-Tree recursively copys trees of conses."
+ _N"Copy-Tree recursively copys trees of conses."
(if (consp object)
(cons (copy-tree (car object)) (copy-tree (cdr object)))
object))
@@ -353,7 +353,7 @@
;;; More Commonly-used List Functions
(defun revappend (x y)
- "Returns (append (reverse x) y)"
+ _N"Returns (append (reverse x) y)"
(do ((top x (cdr top))
(result y (cons (car top) result)))
((endp top) result)))
@@ -370,7 +370,7 @@
;;; argument to be circular.
;;;
(defun nconc (&rest lists)
- "Concatenates the lists given as arguments (by changing them)"
+ _N"Concatenates the lists given as arguments (by changing them)"
(do ((top lists (cdr top)))
((null top) nil)
(let ((top-of-top (car top)))
@@ -386,19 +386,19 @@
(setf splice ele))
(null (rplacd (last splice) nil))
(atom (if (cdr elements)
- (error "Argument is not a list -- ~S." ele)
+ (error _"Argument is not a list -- ~S." ele)
(rplacd (last splice) ele)))
- (t (error "Argument is not a list -- ~S." ele)))))
+ (t (error _"Argument is not a list -- ~S." ele)))))
(return result)))
(null)
(atom
(if (cdr top)
- (error "Argument is not a list -- ~S." top-of-top)
+ (error _"Argument is not a list -- ~S." top-of-top)
(return top-of-top)))
- (t (error "Argument is not a list -- ~S." top-of-top))))))
+ (t (error _"Argument is not a list -- ~S." top-of-top))))))
(defun nreconc (x y)
- "Returns (nconc (nreverse x) y)"
+ _N"Returns (nconc (nreverse x) y)"
(do ((1st (cdr x) (if (atom 1st) 1st (cdr 1st)))
(2nd x 1st) ;2nd follows first down the list.
(3rd y 2nd)) ;3rd follows 2nd down the list.
@@ -411,13 +411,13 @@
(error 'simple-type-error
:datum 2nd
:expected-type 'list
- :format-control "First argument is not a proper list."
+ :format-control _"First argument is not a proper list."
:format-arguments nil)
3rd))
(rplacd 2nd 3rd)))
(defun butlast (list &optional (n 1))
- "Returns a new list the same as List without the last N conses.
+ _N"Returns a new list the same as List without the last N conses.
List must not be circular."
(declare (list list) (type unsigned-byte n))
(when (and list (typep n 'index))
@@ -435,7 +435,7 @@
(setq splice (cdr (rplacd splice (list (car top))))))))))
(defun nbutlast (list &optional (n 1))
- "Modifies List to remove the last N conses. List must not be circular."
+ _N"Modifies List to remove the last N conses. List must not be circular."
(declare (list list) (type unsigned-byte n))
(when (and list (typep n 'index))
(let ((length (do ((list list (cdr list))
@@ -452,7 +452,7 @@
(declare (type index count)))))))
(defun ldiff (list object)
- "Returns a new list, whose elements are those of List that appear before
+ _N"Returns a new list, whose elements are those of List that appear before
Object. If Object is not a tail of List, a copy of List is returned.
List must be a proper list or a dotted list."
(do* ((list list (cdr list))
@@ -469,11 +469,11 @@
;;; Functions to alter list structure
(defun rplaca (x y)
- "Changes the car of x to y and returns the new x."
+ _N"Changes the car of x to y and returns the new x."
(rplaca x y))
(defun rplacd (x y)
- "Changes the cdr of x to y and returns the new x."
+ _N"Changes the cdr of x to y and returns the new x."
(rplacd x y))
;;; The following are for use by SETF.
@@ -484,11 +484,11 @@
(defun %setnth (n list newval)
(declare (type index n))
- "Sets the Nth element of List (zero based) to Newval."
+ _N"Sets the Nth element of List (zero based) to Newval."
(do ((count n (1- count))
(list list (cdr list)))
((endp list)
- (error "~S is too large an index for SETF of NTH." n))
+ (error _"~S is too large an index for SETF of NTH." n))
(declare (fixnum count))
(when (<= count 0)
(rplaca list newval)
@@ -507,12 +507,12 @@
,element))
(defun identity (thing)
- "Returns what was passed to it."
+ _N"Returns what was passed to it."
thing)
(defun complement (function)
- "Builds a new function that returns T whenever FUNCTION returns NIL and
+ _N"Builds a new function that returns T whenever FUNCTION returns NIL and
NIL whenever FUNCTION returns T."
#'(lambda (&optional (arg0 nil arg0-p) (arg1 nil arg1-p) (arg2 nil arg2-p)
&rest more-args)
@@ -525,7 +525,7 @@
(defun constantly (value &optional (val1 nil val1-p) (val2 nil val2-p)
&rest more-values)
- "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+ _N"Builds a function that always returns VALUE, and posisbly MORE-VALUES."
(cond (more-values
(let ((list (list* value val1 val2 more-values)))
#'(lambda ()
@@ -566,7 +566,7 @@
(defun subst (new old tree &key key (test #'eql testp) (test-not nil notp))
- "Substitutes new for subtrees matching old."
+ _N"Substitutes new for subtrees matching old."
(labels ((s (subtree)
(cond ((satisfies-the-test old subtree) new)
((atom subtree) subtree)
@@ -579,7 +579,7 @@
(s tree)))
(defun subst-if (new test tree &key key)
- "Substitutes new for subtrees for which test is true."
+ _N"Substitutes new for subtrees for which test is true."
(labels ((s (subtree)
(cond ((funcall test (apply-key key subtree)) new)
((atom subtree) subtree)
@@ -592,7 +592,7 @@
(s tree)))
(defun subst-if-not (new test tree &key key)
- "Substitutes new for subtrees for which test is false."
+ _N"Substitutes new for subtrees for which test is false."
(labels ((s (subtree)
(cond ((not (funcall test (apply-key key subtree))) new)
((atom subtree) subtree)
@@ -605,7 +605,7 @@
(s tree)))
(defun nsubst (new old tree &key key (test #'eql testp) (test-not nil notp))
- "Substitutes new for subtrees matching old."
+ _N"Substitutes new for subtrees matching old."
(labels ((s (subtree)
(cond ((satisfies-the-test old subtree) new)
((atom subtree) subtree)
@@ -621,7 +621,7 @@
(s tree)))
(defun nsubst-if (new test tree &key key)
- "Substitutes new for subtrees of tree for which test is true."
+ _N"Substitutes new for subtrees of tree for which test is true."
(labels ((s (subtree)
(cond ((funcall test (apply-key key subtree)) new)
((atom subtree) subtree)
@@ -637,7 +637,7 @@
(s tree)))
(defun nsubst-if-not (new test tree &key key)
- "Substitutes new for subtrees of tree for which test is false."
+ _N"Substitutes new for subtrees of tree for which test is false."
(labels ((s (subtree)
(cond ((not (funcall test (apply-key key subtree))) new)
((atom subtree) subtree)
@@ -656,7 +656,7 @@
(defun sublis (alist tree &key key (test #'eql) (test-not nil notp))
- "Substitutes from alist into tree nondestructively."
+ _N"Substitutes from alist into tree nondestructively."
(declare (inline assoc))
(labels ((s (subtree)
(let* ((key-val (apply-key key subtree))
@@ -682,7 +682,7 @@
(assoc ,key-tmp alist :test test)))))
(defun nsublis (alist tree &key key (test #'eql) (test-not nil notp))
- "Substitutes new for subtrees matching old."
+ _N"Substitutes new for subtrees matching old."
(declare (inline assoc))
(let (temp)
(labels ((s (subtree)
@@ -704,7 +704,7 @@
;;;; Functions for using lists as sets
(defun member (item list &key key (test #'eql testp) (test-not nil notp))
- "Returns tail of list beginning with first element satisfying EQLity,
+ _N"Returns tail of list beginning with first element satisfying EQLity,
:test, or :test-not with a given item."
(do ((list list (cdr list)))
((null list) nil)
@@ -713,21 +713,21 @@
(return list)))))
(defun member-if (test list &key key)
- "Returns tail of list beginning with first element satisfying test(element)"
+ _N"Returns tail of list beginning with first element satisfying test(element)"
(do ((list list (Cdr list)))
((endp list) nil)
(if (funcall test (apply-key key (car list)))
(return list))))
(defun member-if-not (test list &key key)
- "Returns tail of list beginning with first element not satisfying test(el)"
+ _N"Returns tail of list beginning with first element not satisfying test(el)"
(do ((list list (cdr list)))
((endp list) ())
(if (not (funcall test (apply-key key (car list))))
(return list))))
(defun tailp (object list)
- "Returns true if Object is the same as some tail of List, otherwise
+ _N"Returns true if Object is the same as some tail of List, otherwise
returns false. List must be a proper list or a dotted list."
(do ((list list (cdr list)))
((atom list) (eql list object))
@@ -735,7 +735,7 @@
(return t))))
(defun adjoin (item list &key key (test #'eql) (test-not nil notp))
- "Add item to list unless it is already a member"
+ _N"Add item to list unless it is already a member"
(declare (inline member))
(if (let ((key-val (apply-key key item)))
(if notp
@@ -753,9 +753,9 @@
;;; order.
;;;
(defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp))
- "Returns the union of list1 and list2."
+ _N"Returns the union of list1 and list2."
(declare (inline member))
- (when (and testp notp) (error "Test and test-not both supplied."))
+ (when (and testp notp) (error _"Test and test-not both supplied."))
(let ((res list2))
(dolist (elt list1)
(unless (with-set-keys (member (apply-key key elt) list2))
@@ -772,7 +772,7 @@
,destination temp)))
(defun nunion (list1 list2 &key key (test #'eql testp) (test-not nil notp))
- "Destructively returns the union list1 and list2."
+ _N"Destructively returns the union list1 and list2."
(declare (inline member))
(if (and testp notp)
(error "Test and test-not both supplied."))
@@ -788,7 +788,7 @@
(defun intersection (list1 list2 &key key
(test #'eql testp) (test-not nil notp))
- "Returns the intersection of list1 and list2."
+ _N"Returns the intersection of list1 and list2."
(declare (inline member))
(if (and testp notp)
(error "Test and test-not both supplied."))
@@ -800,7 +800,7 @@
(defun nintersection (list1 list2 &key key
(test #'eql testp) (test-not nil notp))
- "Destructively returns the intersection of list1 and list2."
+ _N"Destructively returns the intersection of list1 and list2."
(declare (inline member))
(if (and testp notp)
(error "Test and test-not both supplied."))
@@ -814,7 +814,7 @@
(defun set-difference (list1 list2 &key key
(test #'eql testp) (test-not nil notp))
- "Returns the elements of list1 which are not in list2."
+ _N"Returns the elements of list1 which are not in list2."
(declare (inline member))
(if (and testp notp)
(error "Test and test-not both supplied."))
@@ -829,7 +829,7 @@
(defun nset-difference (list1 list2 &key key
(test #'eql testp) (test-not nil notp))
- "Destructively returns the elements of list1 which are not in list2."
+ _N"Destructively returns the elements of list1 which are not in list2."
(declare (inline member))
(if (and testp notp)
(error "Test and test-not both supplied."))
@@ -844,7 +844,7 @@
(defun set-exclusive-or (list1 list2 &key key
(test #'eql testp) (test-not nil notp))
- "Return new list of elements appearing exactly once in LIST1 and LIST2."
+ _N"Return new list of elements appearing exactly once in LIST1 and LIST2."
(declare (inline member))
(let ((result nil)
(key (when key (coerce key 'function)))
@@ -876,7 +876,7 @@
(defun nset-exclusive-or (list1 list2
&key key (test #'eql testp) (test-not #'eql notp))
- "Destructively return a list with elements which appear but once in LIST1
+ _N"Destructively return a list with elements which appear but once in LIST1
and LIST2."
(when (and testp notp)
(error ":TEST and :TEST-NOT were both supplied."))
@@ -929,7 +929,7 @@
(setq splicex x)))))
(defun subsetp (list1 list2 &key key (test #'eql testp) (test-not nil notp))
- "Returns T if every element in list1 is also in list2."
+ _N"Returns T if every element in list1 is also in list2."
(declare (inline member))
(dolist (elt list1)
(unless (with-set-keys (member (apply-key key elt) list2))
@@ -941,16 +941,16 @@
;;; Functions that operate on association lists
(defun acons (key datum alist)
- "Construct a new alist by adding the pair (key . datum) to alist"
+ _N"Construct a new alist by adding the pair (key . datum) to alist"
(cons (cons key datum) alist))
(defun pairlis (keys data &optional (alist '()))
- "Construct an association list from keys and data (adding to alist)"
+ _N"Construct an association list from keys and data (adding to alist)"
(do ((x keys (cdr x))
(y data (cdr y)))
((and (endp x) (endp y)) alist)
(if (or (endp x) (endp y))
- (error "The lists of keys and data are of unequal length."))
+ (error _"The lists of keys and data are of unequal length."))
(setq alist (acons (car x) (car y) alist))))
;;; In run-time environment, since these guys can be inline expanded.
@@ -962,7 +962,7 @@
(if ,test-guy (return (car alist))))))
(defun assoc (item alist &key key test test-not)
- "Returns the cons in alist whose car is equal (by a given test or EQL) to
+ _N"Returns the cons in alist whose car is equal (by a given test or EQL) to
the Item."
(cond (test
(if key
@@ -979,14 +979,14 @@
(assoc-guts (eql item (caar alist)))))))
(defun assoc-if (predicate alist &key key)
- "Returns the first cons in alist whose car satisfies the Predicate. If
+ _N"Returns the first cons in alist whose car satisfies the Predicate. If
key is supplied, apply it to the car of each cons before testing."
(if key
(assoc-guts (funcall predicate (funcall key (caar alist))))
(assoc-guts (funcall predicate (caar alist)))))
(defun assoc-if-not (predicate alist &key key)
- "Returns the first cons in alist whose car does not satisfiy the Predicate.
+ _N"Returns the first cons in alist whose car does not satisfiy the Predicate.
If key is supplied, apply it to the car of each cons before testing."
(if key
(assoc-guts (not (funcall predicate (funcall key (caar alist)))))
@@ -995,7 +995,7 @@
(defun rassoc (item alist &key key test test-not)
(declare (list alist))
- "Returns the cons in alist whose cdr is equal (by a given test or EQL) to
+ _N"Returns the cons in alist whose cdr is equal (by a given test or EQL) to
the Item."
(cond (test
(if key
@@ -1012,14 +1012,14 @@
(assoc-guts (eql item (cdar alist)))))))
(defun rassoc-if (predicate alist &key key)
- "Returns the first cons in alist whose cdr satisfies the Predicate. If key
+ _N"Returns the first cons in alist whose cdr satisfies the Predicate. If key
is supplied, apply it to the cdr of each cons before testing."
(if key
(assoc-guts (funcall predicate (funcall key (cdar alist))))
(assoc-guts (funcall predicate (cdar alist)))))
(defun rassoc-if-not (predicate alist &key key)
- "Returns the first cons in alist whose cdr does not satisfy the Predicate.
+ _N"Returns the first cons in alist whose cdr does not satisfy the Predicate.
If key is supplied, apply it to the cdr of each cons before testing."
(if key
(assoc-guts (not (funcall predicate (funcall key (cdar alist)))))
@@ -1030,7 +1030,7 @@
;;;; Mapping functions.
(defun map1 (function original-arglists accumulate take-car)
- "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.
+ _N"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.
It Maps function over the arglists in the appropriate way. It is done when any
of the arglists runs out. Until then, it CDRs down the arglists calling the
function and accumulating results as desired."
@@ -1056,45 +1056,45 @@
(defun mapc (function list &rest more-lists)
- "Applies fn to successive elements of lists, returns its second argument."
+ _N"Applies fn to successive elements of lists, returns its second argument."
(map1 function (cons list more-lists) nil t))
(defun mapcar (function list &rest more-lists)
- "Applies fn to successive elements of list, returns list of results."
+ _N"Applies fn to successive elements of list, returns list of results."
(map1 function (cons list more-lists) :list t))
(defun mapcan (function list &rest more-lists)
- "Applies fn to successive elements of list, returns NCONC of results."
+ _N"Applies fn to successive elements of list, returns NCONC of results."
(map1 function (cons list more-lists) :nconc t))
(defun mapl (function list &rest more-lists)
- "Applies fn to successive CDRs of list, returns ()."
+ _N"Applies fn to successive CDRs of list, returns ()."
(map1 function (cons list more-lists) nil nil))
(defun maplist (function list &rest more-lists)
- "Applies fn to successive CDRs of list, returns list of results."
+ _N"Applies fn to successive CDRs of list, returns list of results."
(map1 function (cons list more-lists) :list nil))
(defun mapcon (function list &rest more-lists)
- "Applies fn to successive CDRs of lists, returns NCONC of results."
+ _N"Applies fn to successive CDRs of lists, returns NCONC of results."
(map1 function (cons list more-lists) :nconc nil))
;;; Functions for compatibility sake:
(defun memq (item list)
- "Returns tail of list beginning with first element eq to item"
+ _N"Returns tail of list beginning with first element eq to item"
(declare (inline member)
(optimize (inhibit-warnings 3))) ; from MEMBER optimizations
(member item list :test #'eq))
(defun assq (item alist)
- "Return the first pair of alist where item EQ the key of pair"
+ _N"Return the first pair of alist where item EQ the key of pair"
(declare (inline assoc))
(assoc item alist :test #'eq))
(defun delq (item list)
- "Returns list with all elements with all elements EQ to ITEM deleted."
+ _N"Returns list with all elements with all elements EQ to ITEM deleted."
(let ((list list))
(do ((x list (cdr x))
(splice '()))
Index: src/code/sparc-svr4-vm.lisp
diff -u src/code/sparc-svr4-vm.lisp:1.13.12.2 src/code/sparc-svr4-vm.lisp:1.13.12.3
--- src/code/sparc-svr4-vm.lisp:1.13.12.2 Tue Feb 9 23:01:27 2010
+++ src/code/sparc-svr4-vm.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/sparc-svr4-vm.lisp,v 1.13.12.2 2010-02-10 04:01:27 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/sparc-svr4-vm.lisp,v 1.13.12.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -159,13 +159,13 @@
(defun fixup-code-object (code offset fixup kind)
(declare (type index offset))
(unless (zerop (rem offset vm:word-bytes))
- (error "Unaligned instruction? offset=#x~X." offset))
+ (error _"Unaligned instruction? offset=#x~X." offset))
(system:without-gcing
(let ((sap (truly-the system-area-pointer
(%primitive c::code-instructions code))))
(ecase kind
(:call
- (error "Can't deal with CALL fixups, yet."))
+ (error _"Can't deal with CALL fixups, yet."))
(:sethi
(setf (ldb (byte 22 0) (sap-ref-32 sap offset))
(ldb (byte 22 10) fixup)))
Index: src/code/sunos-os.lisp
diff -u src/code/sunos-os.lisp:1.12.12.1 src/code/sunos-os.lisp:1.12.12.2
--- src/code/sunos-os.lisp:1.12.12.1 Mon Feb 8 12:15:49 2010
+++ src/code/sunos-os.lisp Sat Feb 13 22:06:41 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/sunos-os.lisp,v 1.12.12.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/sunos-os.lisp,v 1.12.12.2 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -26,10 +26,10 @@
(setq *software-type* "SunOS")
-(defvar *software-version* nil "Version string for supporting software")
+(defvar *software-version* nil _N"Version string for supporting software")
(defun software-version ()
- "Returns a string describing version of the supporting software."
+ _N"Returns a string describing version of the supporting software."
(unless *software-version*
(setf *software-version*
(multiple-value-bind (sysname nodename release version)
@@ -58,7 +58,7 @@
(unix:unix-getrusage unix:rusage_self)
(declare (ignore maxrss ixrss idrss isrss minflt))
(cond ((null err?)
- (error "Unix system call getrusage failed: ~A."
+ (error _"Unix system call getrusage failed: ~A."
(unix:get-unix-error-msg utime)))
(T
(values utime stime majflt)))))
@@ -84,5 +84,5 @@
(multiple-value-bind (val err)
(unix:unix-getpagesize)
(unless val
- (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
+ (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
val))
Index: src/code/x86-vm.lisp
diff -u src/code/x86-vm.lisp:1.32.2.2 src/code/x86-vm.lisp:1.32.2.3
--- src/code/x86-vm.lisp:1.32.2.2 Tue Feb 9 23:01:27 2010
+++ src/code/x86-vm.lisp Sat Feb 13 22:06:41 2010
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group at cs.cmu.edu.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/x86-vm.lisp,v 1.32.2.2 2010-02-10 04:01:27 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/x86-vm.lisp,v 1.32.2.3 2010-02-14 03:06:41 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -111,7 +111,7 @@
(ncode-words (kernel:code-header-ref code 1))
(code-end-addr (+ code-start-addr (* ncode-words 4))))
(unless (member kind '(:absolute :relative))
- (error "Unknown code-object-fixup kind ~s." kind))
+ (error _"Unknown code-object-fixup kind ~s." kind))
(ecase kind
(:absolute
;; Word at sap + offset contains a value to be replaced by
@@ -318,7 +318,7 @@
value
(let ((value (system:alternate-get-global-address name)))
(when (zerop value)
- (error "Unknown foreign symbol: ~S" name))
+ (error _"Unknown foreign symbol: ~S" name))
value))))))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.30 src/i18n/locale/cmucl.pot:1.1.2.31
--- src/i18n/locale/cmucl.pot:1.1.2.30 Sat Feb 13 12:17:37 2010
+++ src/i18n/locale/cmucl.pot Sat Feb 13 22:06:42 2010
@@ -1666,6 +1666,10 @@
msgstr ""
#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
msgid "Incorrect number of indices when derefing ~S: ~D"
msgstr ""
@@ -2542,6 +2546,14 @@
msgstr ""
#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
msgid "Returns the number of entries in the given HASH-TABLE."
msgstr ""
@@ -2621,6 +2633,500 @@
msgid "Computes a hash code for S-EXPR and returns it as an integer."
msgstr ""
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the first object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list. True if Object is nil,\n"
+" false if Object is a cons, and an error for any other types of "
+"arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+" Each Arg in Args must be a proper list except the last one, which\n"
+" may be any object. The function is not destructive: for all but the\n"
+" last Arg, its list structure is copied. The last argument is not\n"
+" copied; it becomes the cdr of the final dotted pair of the\n"
+" concatenation of the preceding lists, or is returned directly if\n"
+" there are no preceding non-empty lists. In the latter case, if the\n"
+" last Arg is not a list, the returned value is not a list either."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+" List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+" Object. If Object is not a tail of List, a copy of List is returned.\n"
+" List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns what was passed to it."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+" NIL whenever FUNCTION returns T."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+" :test, or :test-not with a given item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+" returns false. List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+" and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate. If\n"
+" key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+" If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate. If key\n"
+" is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+" If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+" It Maps function over the arglists in the appropriate way. It is done "
+"when any\n"
+" of the arglists runs out. Until then, it CDRs down the arglists calling "
+"the\n"
+" function and accumulating results as desired."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+msgstr ""
+
#: target:code/seq.lisp
msgid ""
"Returns a list of the Nth element of each of the sequences. Used by MAP\n"
@@ -4886,6 +5392,14 @@
msgstr ""
#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr ""
@@ -4902,6 +5416,15 @@
msgstr ""
#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/x86-vm.lisp
msgid ""
"Atomically compare object's slot value to test-value and if EQ store\n"
" new-value in the slot. The original value of the slot is returned."
@@ -5640,6 +6163,18 @@
msgstr ""
#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
msgid ""
"Returns a non-negative number of significant digits in it's float argument.\n"
" Will be less than FLOAT-DIGITS if denormalized or zero."
@@ -7113,6 +7648,17 @@
msgstr ""
#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection. The optional argument, VERBOSE-P,\n"
+" which defaults to the value of the variable *GC-VERBOSE* controls\n"
+" whether or not GC statistics are printed."
+msgstr ""
+
+#: target:code/gc.lisp
msgid ""
"Initiates a garbage collection. The keyword :VERBOSE, which\n"
" defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
@@ -8374,6 +8920,138 @@
msgid "Table of ordinal tens-place digits in English"
msgstr ""
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr ""
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~D illegal directive~:P found inside justification block"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+" ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr ""
+
#: target:code/package.lisp
msgid ""
"The list of packages to use by default of no :USE argument is supplied\n"
@@ -9548,6 +10226,10 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available output routines. Each element is a list of the\n"
" element-type output, the kind of buffering, the function name, and the "
@@ -9571,6 +10253,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available input routines. Each element is a list of the\n"
" element-type input, the function name, and the number of bytes per "
@@ -9598,6 +10288,22 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid "Error lseek'ing ~S: ~A"
msgstr ""
@@ -9606,6 +10312,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "file ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "descriptor ~D"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"Create a stream for the given unix file descriptor.\n"
" If input is non-nil, allow input operations.\n"
@@ -9625,6 +10339,10 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"This is a string that OPEN tacks on the end of a file namestring to produce\n"
" a name for the :if-exists :rename-and-delete and :rename options. Also,\n"
@@ -9633,6 +10351,58 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Return NIL."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr ""
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"Return a stream which reads from or writes to Filename.\n"
" Defined keywords:\n"
@@ -9646,6 +10416,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid "Unable to open streams of class ~S."
msgstr ""
@@ -10495,10 +11273,6 @@
msgid "~S defined~%"
msgstr ""
-#: target:compiler/generic/core.lisp target:code/load.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
#: target:code/load.lisp
msgid "Cannot load assembler code."
msgstr ""
@@ -10872,6 +11646,22 @@
msgstr ""
#: target:code/interr.lisp
+msgid "~S isn't one of the required args."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S"
+msgstr ""
+
+#: target:code/interr.lisp
msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
msgstr ""
@@ -10884,6 +11674,19 @@
msgstr ""
#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Array has no elements."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S. Should have greater than or equal to 0."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Should have been less than ~D"
+msgstr ""
+
+#: target:code/interr.lisp
msgid "Undefined foreign symbol: ~S"
msgstr ""
@@ -13365,6 +14168,18 @@
msgstr ""
#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr ""
+
+#: target:code/foreign.lisp
msgid "Enter new library path: "
msgstr ""
@@ -14208,6 +15023,10 @@
msgstr ""
#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr ""
+
+#: target:code/defstruct.lisp
msgid "Previously loaded ~S accessors will no longer work."
msgstr ""
@@ -20227,10 +21046,6 @@
msgstr ""
#: target:pcl/braid.lisp
-msgid "Try again."
-msgstr ""
-
-#: target:pcl/braid.lisp
msgid ""
"~@<Generic function ~S: ~\n"
" No primary method given arguments ~S~@:>"
Index: src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po:1.1.2.3 src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po:1.1.2.4
--- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po:1.1.2.3 Sat Feb 13 12:17:38 2010
+++ src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po Sat Feb 13 22:06:42 2010
@@ -2046,6 +2046,10 @@
"Extractway OTSLAY omfray ethay Alienway UCTSTRAY orway UNIONWAY ALIENWAY. Aymay ebay etsay ithway ETFSAY."
#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr "Ootay anymay indicesway enwhay erefingday ~S: ~D"
+
+#: target:code/alieneval.lisp
msgid "Incorrect number of indices when derefing ~S: ~D"
msgstr "Incorrectway umbernay ofway indicesway enwhay erefingday ~S: ~D"
@@ -3169,6 +3173,14 @@
msgstr "Unknownway :ESTTAY orfay AKEMAY-ASHHAY-ABLETAY: ~S"
#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ";; Eatingcray unsupportedway eakway-p ashhay abletay~%"
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr "Annotcay akemay away eakway ~Away ashtablehay ithway esttay: ~S"
+
+#: target:code/hash-new.lisp
msgid "Returns the number of entries in the given HASH-TABLE."
msgstr "Eturnsray ethay umbernay ofway entriesway inway ethay ivengay ASHHAY-ABLETAY."
@@ -3272,6 +3284,546 @@
msgid "Computes a hash code for S-EXPR and returns it as an integer."
msgstr "Omputescay away ashhay odecay orfay S-EXPRWAY andway eturnsray itway asway anway integerway."
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr "Eturnsray ethay 1tsay objectway inway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns all but the first object."
+msgstr "Eturnsray allway utbay ethay irstfay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr "Eturnsray ethay 2dnay objectway inway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr "Eturnsray ethay drcay ofway ethay 1tsay ublistsay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr "Eturnsray ethay arcay ofway ethay 1tsay ublistsay."
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr "Eturnsray allway utbay ethay 1tsay wotay objectsway ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay ddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay adrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr "Eturnsray ethay 1tsay objectway inway ethay aarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay darcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay ddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay darcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay adrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay aaarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay aadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay addrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay dddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay dddrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aaarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay daarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay ddarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay adarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay daarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr "Eturnsray ethay arcay ofway ethay dadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr "Eturnsray ethay arcay ofway ethay ddarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay aadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr "Eturnsray ethay drcay ofway ethay adarcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay addrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr "Eturnsray ethay drcay ofway ethay dadrcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr "Eturnsray away istlay ithway esay1 asway ethay arcay andway esay2 asway ethay drcay."
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr "Eturnsray T ifway X andway Y areway isomorphicway eestray ithway identicalway eaveslay."
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list. True if Object is nil,\n"
+" false if Object is a cons, and an error for any other types of "
+"arguments."
+msgstr ""
+"Ethay ecommendedray ayway otay esttay orfay ethay endway ofway away istlay. Uetray ifway Objectway isway ilnay,\n"
+" alsefay ifway Objectway isway away onscay, andway anway errorway orfay anyway otherway ypestay ofway "
+"argumentsway."
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr "Eturnsray ethay engthlay ofway ethay ivengay Istlay, orway Ilnay ifway ethay Istlay isway ircularcay."
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr "Eturnsray ethay thnay objectway inway away istlay erewhay ethay arcay isway ethay erozay-thay elementway."
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr "Eturnsray ethay 1tsay objectway inway away istlay orway ILNAY ifway ethay istlay isway emptyway."
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr "Eturnsray ethay 2dnay objectway inway away istlay orway ILNAY ifway erethay isway onay 2dnay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr "Eturnsray ethay 3dray objectway inway away istlay orway ILNAY ifway erethay isway onay 3dray objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr "Eturnsray ethay 4thay objectway inway away istlay orway ILNAY ifway erethay isway onay 4thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr "Eturnsray ethay 5thay objectway inway away istlay orway ILNAY ifway erethay isway onay 5thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr "Eturnsray ethay 6thay objectway inway away istlay orway ILNAY ifway erethay isway onay 6thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr "Eturnsray ethay 7thay objectway inway away istlay orway ILNAY ifway erethay isway onay 7thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr "Eturnsray ethay 8thay objectway inway away istlay orway ILNAY ifway erethay isway onay 8thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr "Eturnsray ethay 9thay objectway inway away istlay orway ILNAY ifway erethay isway onay 9thay objectway."
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr "Eturnsray ethay 10thay objectway inway away istlay orway ILNAY ifway erethay isway onay 10thay objectway."
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr "Eansmay ethay amesay asway ethay drcay ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr "Erformspay ethay drcay unctionfay n imestay onway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr "Eturnsray ethay astlay N onsescay (otnay ethay astlay elementway!) ofway away istlay."
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr "Eturnsray onstructscay andway eturnsray away istlay ofway itsway argumentsway."
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr "Eturnsray away istlay ofway ethay argumentsway ithway astlay onscay away ottedday airpay"
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr "Onstructscay away istlay ithway izesay elementsway eachway etsay otay aluevay"
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr "~S isway otnay away operpray istlay"
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+" Each Arg in Args must be a proper list except the last one, which\n"
+" may be any object. The function is not destructive: for all but the\n"
+" last Arg, its list structure is copied. The last argument is not\n"
+" copied; it becomes the cdr of the final dotted pair of the\n"
+" concatenation of the preceding lists, or is returned directly if\n"
+" there are no preceding non-empty lists. In the latter case, if the\n"
+" last Arg is not a list, the returned value is not a list either."
+msgstr ""
+"Ypicallytay, eturnsray away ewnay istlay atthay isway ethay oncatenationcay ofway Argsway.\n"
+"\n"
+" Eachway Argway inway Argsway ustmay ebay away operpray istlay exceptway ethay astlay oneway, ichwhay\n"
+" aymay ebay anyway objectway. Ethay unctionfay isway otnay estructiveday: orfay allway utbay ethay\n"
+" astlay Argway, itsway istlay ucturestray isway opiedcay. Ethay astlay argumentway isway otnay\n"
+" opiedcay; itway ecomesbay ethay drcay ofway ethay inalfay ottedday airpay ofway ethay\n"
+" oncatenationcay ofway ethay ecedingpray istslay, orway isway eturnedray irectlyday ifway\n"
+" erethay areway onay ecedingpray onnay-emptyway istslay. Inway ethay atterlay asecay, ifway ethay\n"
+" astlay Argway isway otnay away istlay, ethay eturnedray aluevay isway otnay away istlay eitherway."
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr "~S isway otnay away istlay."
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr "Eturnsray away ewnay istlay EQUALWAY utbay otnay EQWAY otay istlay"
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr "Eturnsray away ewnay associationway istlay equalway otay alistway, onstructedcay inway acespay"
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr "Opycay-Eetray ecursivelyray opyscay eestray ofway onsescay."
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr "Eturnsray (appendway (everseray x) y)"
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr "Oncatenatescay ethay istslay ivengay asway argumentsway (ybay angingchay emthay)"
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr "Argumentway isway otnay away istlay -- ~S."
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr "Eturnsray (concnay (reversenay x) y)"
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr "Irstfay argumentway isway otnay away operpray istlay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+" List must not be circular."
+msgstr ""
+"Eturnsray away ewnay istlay ethay amesay asway Istlay ithoutway ethay astlay N onsescay.\n"
+" Istlay ustmay otnay ebay ircularcay."
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr "Odifiesmay Istlay otay emoveray ethay astlay N onsescay. Istlay ustmay otnay ebay ircularcay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+" Object. If Object is not a tail of List, a copy of List is returned.\n"
+" List must be a proper list or a dotted list."
+msgstr ""
+"Eturnsray away ewnay istlay, osewhay elementsway areway osethay ofway Istlay atthay appearway eforebay\n"
+" Objectway. Ifway Objectway isway otnay away ailtay ofway Istlay, away opycay ofway Istlay isway eturnedray.\n"
+" Istlay ustmay ebay away operpray istlay orway away ottedday istlay."
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr "Angeschay ethay arcay ofway x otay y andway eturnsray ethay ewnay x."
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr "Angeschay ethay drcay ofway x otay y andway eturnsray ethay ewnay x."
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr "Etssay ethay Thnay elementway ofway Istlay (erozay asedbay) otay Ewvalnay."
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr "~S isway ootay argelay anway indexway orfay ETFSAY ofway THNAY."
+
+#: target:code/list.lisp
+msgid "Returns what was passed to it."
+msgstr "Eturnsray atwhay asway assedpay otay itway."
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+" NIL whenever FUNCTION returns T."
+msgstr ""
+"Uildsbay away ewnay unctionfay atthay eturnsray T eneverwhay UNCTIONFAY eturnsray ILNAY andway\n"
+" ILNAY eneverwhay UNCTIONFAY eturnsray T."
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr "Uildsbay away unctionfay atthay alwaysway eturnsray ALUEVAY, andway osisblypay OREMAY-ALUESVAY."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr "Ubstitutessay ewnay orfay ubtreessay atchingmay oldway."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr "Ubstitutessay ewnay orfay ubtreessay orfay ichwhay esttay isway uetray."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr "Ubstitutessay ewnay orfay ubtreessay orfay ichwhay esttay isway alsefay."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr "Ubstitutessay ewnay orfay ubtreessay ofway eetray orfay ichwhay esttay isway uetray."
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr "Ubstitutessay ewnay orfay ubtreessay ofway eetray orfay ichwhay esttay isway alsefay."
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr "Ubstitutessay omfray alistway intoway eetray ondestructivelynay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+" :test, or :test-not with a given item."
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway atisfyingsay Eqlityway,\n"
+" :esttay, orway :esttay-otnay ithway away ivengay itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway atisfyingsay esttay(elementway)"
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr ""
+"Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway otnay atisfyingsay esttay(elway)"
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+" returns false. List must be a proper list or a dotted list."
+msgstr ""
+"Eturnsray uetray ifway Objectway isway ethay amesay asway omesay ailtay ofway Istlay, otherwiseway\n"
+" eturnsray alsefay. Istlay ustmay ebay away operpray istlay orway away ottedday istlay."
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr "Addway itemway otay istlay unlessway itway isway alreadyway away embermay"
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr "Eturnsray ethay unionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr "Esttay andway esttay-otnay othbay uppliedsay."
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr "Estructivelyday eturnsray ethay unionway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr "Eturnsray ethay intersectionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr "Estructivelyday eturnsray ethay intersectionway ofway istlay1 andway istlay2."
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr "Eturnsray ethay elementsway ofway istlay1 ichwhay areway otnay inway istlay2."
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr "Estructivelyday eturnsray ethay elementsway ofway istlay1 ichwhay areway otnay inway istlay2."
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr "Eturnray ewnay istlay ofway elementsway appearingway exactlyway onceway inway ISTLAY1 andway ISTLAY2."
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+" and LIST2."
+msgstr ""
+"Estructivelyday eturnray away istlay ithway elementsway ichwhay appearway utbay onceway inway ISTLAY1\n"
+" andway ISTLAY2."
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr "Eturnsray T ifway everyway elementway inway istlay1 isway alsoway inway istlay2."
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr "Onstructcay away ewnay alistway ybay addingway ethay airpay (eykay . atumday) otay alistway"
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr "Onstructcay anway associationway istlay omfray eyskay andway ataday (addingway otay alistway)"
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr "Ethay istslay ofway eyskay andway ataday areway ofway unequalway engthlay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+"Eturnsray ethay onscay inway alistway osewhay arcay isway equalway (ybay away ivengay esttay orway EQLWAY) otay\n"
+" ethay Itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate. If\n"
+" key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay arcay atisfiessay ethay Edicatepray. Ifway\n"
+" eykay isway uppliedsay, applyway itway otay ethay arcay ofway eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+" If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay arcay oesday otnay atisfiysay ethay Edicatepray.\n"
+" Ifway eykay isway uppliedsay, applyway itway otay ethay arcay ofway eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+"Eturnsray ethay onscay inway alistway osewhay drcay isway equalway (ybay away ivengay esttay orway EQLWAY) otay\n"
+" ethay Itemway."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate. If key\n"
+" is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay drcay atisfiessay ethay Edicatepray. Ifway eykay\n"
+" isway uppliedsay, applyway itway otay ethay drcay ofway eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+" If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+"Eturnsray ethay irstfay onscay inway alistway osewhay drcay oesday otnay atisfysay ethay Edicatepray.\n"
+" Ifway eykay isway uppliedsay, applyway itway otay ethay drcay ofway eachway onscay eforebay estingtay."
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+" It Maps function over the arglists in the appropriate way. It is done "
+"when any\n"
+" of the arglists runs out. Until then, it CDRs down the arglists calling "
+"the\n"
+" function and accumulating results as desired."
+msgstr ""
+"Isthay unctionfay isway alledcay ybay apcmay, apcarmay, apcanmay, aplmay, aplistmay, andway apconmay.\n"
+" Itway Apsmay unctionfay overway ethay arglistsway inway ethay appropriateway ayway. Itway isway oneday "
+"enwhay anyway\n"
+" ofway ethay arglistsway unsray outway. Untilway enthay, itway Drscay ownday ethay arglistsway allingcay "
+"ethay\n"
+" unctionfay andway accumulatingway esultsray asway esiredday."
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+"Appliesway nfay otay uccessivesay elementsway ofway istslay, eturnsray itsway econdsay argumentway."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr "Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray istlay ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr "Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray CONCNAY ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr "Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray ()."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr "Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray istlay ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr "Appliesway nfay otay uccessivesay Drscay ofway istslay, eturnsray CONCNAY ofway esultsray."
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr "Eturnsray ailtay ofway istlay eginningbay ithway irstfay elementway eqway otay itemway"
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr "Eturnray ethay irstfay airpay ofway alistway erewhay itemway EQWAY ethay eykay ofway airpay"
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+msgstr "Eturnsray istlay ithway allway elementsway ithway allway elementsway EQWAY otay ITEMWAY eletedday."
+
#: target:code/seq.lisp
msgid ""
"Returns a list of the Nth element of each of the sequences. Used by MAP\n"
@@ -6088,6 +6640,14 @@
" imitlay, andway ethay aximummay (ardhay) imitlay."
#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay oftwaresay."
+
+#: target:code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
@@ -6104,6 +6664,15 @@
msgstr "Eturnsray away ingstray escribingday ethay ersionvay ofway ethay ocallay achinemay."
#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr "Unknownway odecay-objectway-ixupfay indkay ~s."
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr "Unknownway oreignfay ymbolsay: ~S"
+
+#: target:code/x86-vm.lisp
msgid ""
"Atomically compare object's slot value to test-value and if EQ store\n"
" new-value in the slot. The original value of the slot is returned."
@@ -7024,6 +7593,18 @@
msgstr "Eturnray uetray ifway ethay oatflay X isway enormalizedday."
#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr "Eturnray uetray ifway ethay oatflay X isway anway infinityway (+ orway -)."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr "Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away Umbernay)."
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr "Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay away Umbernay)."
+
+#: target:code/float.lisp
msgid ""
"Returns a non-negative number of significant digits in it's float argument.\n"
" Will be less than FLOAT-DIGITS if denormalized or zero."
@@ -8918,6 +9499,20 @@
" integerway. Esettingray itway otay ~D."
#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr "~&Adjustingway *astlay-ytesbay-inway-useway* omfray ~:D otay ~:D, engay ~d, epray ~:D ~%"
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection. The optional argument, VERBOSE-P,\n"
+" which defaults to the value of the variable *GC-VERBOSE* controls\n"
+" whether or not GC statistics are printed."
+msgstr ""
+"Initiatesway away arbagegay ollectioncay. Ethay optionalway argumentway, ERBOSEVAY-P,\n"
+" ichwhay efaultsday otay ethay aluevay ofway ethay ariablevay *CGAY-ERBOSEVAY* ontrolscay\n"
+" etherwhay orway otnay CGAY tatisticssay areway intedpray."
+
+#: target:code/gc.lisp
msgid ""
"Initiates a garbage collection. The keyword :VERBOSE, which\n"
" defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
@@ -10598,6 +11193,145 @@
msgid "Table of ordinal tens-place digits in English"
msgstr "Abletay ofway ordinalway enstay-aceplay igitsday inway Englishway"
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr "Umbernay ootay argelay otay intpray inway oldway Omanray umeralsnay: ~:D"
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr "Umbernay ootay argelay otay intpray inway Omanray umeralsnay: ~:D"
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr "Onay eviouspray argumentway."
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr "Annotcay ecifyspay ethay oloncay odifiermay ithway isthay irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr "Annotcay ecifyspay eitherway oloncay orway atsignway orfay isthay irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr "Annotcay ecifyspay othbay oloncay andway atsignway orfay isthay irectiveday."
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr "Annotcay ecifyspay ethay atway-ignsay odifiermay."
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr "Annotcay ecifyspay othbay oloncay andway atway-ignsay."
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr "Indexway ~D outway ofway oundsbay. Ouldshay avehay eenbay ~\n"
+" etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr "Indexway ~D outway ofway oundsbay. Ouldshay avehay eenbay ~\n"
+" etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid "Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr "Indexway ~D outway ofway oundsbay. Ouldshay avehay eenbay ~\n"
+" etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+" between 0 and ~D."
+msgstr ""
+"Indexway ~D outway ofway oundsbay. Ouldshay avehay eenbay ~\n"
+" etweenbay 0 andway ~D."
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr "Annotcay ecifyspay ethay oloncay odifiermay."
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr "~Away~%ilewhay ocessingpray indirectway ormatfay ingstray:"
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr "Onay orrespondingcay oseclay arenpay."
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr "Onay orrespondingcay openway arenpay."
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr "Onay orrespondingcay oseclay acketbray."
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr "Annotcay ecifyspay othbay ethay oloncay andway atway-ignsay odifiersmay."
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr "Ancay onlyway ecifyspay oneway ectionsay"
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr "Ustmay ecifyspay exactlyway wotay ectionssay."
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr "~~; otnay ontainedcay ithinway eitherway ~~[...~~] orway ~~<...~~>."
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr "Onay orrespondingcay openway acketbray."
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr "Attemptway otay useway ~~:^ outsideway away ~~:{...~~} onstructcay."
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr "Onay orrespondingcay oseclay acebray."
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr "Onay orrespondingcay openway acebray."
+
+#: target:code/format.lisp
+msgid "~D illegal directive~:P found inside justification block"
+msgstr "~D illegalway irectiveday~:P oundfay insideway ustificationjay ockblay"
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr "Onay arameterspay ancay ebay uppliedsay ithway ~~<...~~:>."
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+" ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+"Annotcay includeway ormatfay irectivesday insideway ethay ~\n"
+" ~:[uffixsay~;efixpray~] egmentsay ofway ~~<...~~:>"
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr "Ootay anymay egmentssay orfay ~~<...~~:>."
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr "Alformedmay ~~/ irectiveday."
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr "Onay ackagepay amednay ~S"
+
#: target:code/package.lisp
msgid ""
"The list of packages to use by default of no :USE argument is supplied\n"
@@ -11993,6 +12727,10 @@
msgstr "Ethay aximummay upportedsay ytebay izesay orfay away eamstray elementway-ypetay."
#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr "Imeouttay ~(~Away~)ingway ~S."
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available output routines. Each element is a list of the\n"
" element-type output, the kind of buffering, the function name, and the "
@@ -12023,6 +12761,14 @@
" isway away APSAY, ENDWAY ustmay ebay uppliedsay (asway engthlay onway't orkway)."
#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr "Ustjay ogay onway asway ifway othingnay appenedhay..."
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr "~S alledcay ithway :ENDWAY eforebay :TARTSAY!"
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available input routines. Each element is a list of the\n"
" element-type input, the function name, and the number of bytes per "
@@ -12053,6 +12799,22 @@
msgstr "Inputway ypetay (~S) andway outputway ypetay (~S) areway unrelatedway?"
#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr "Ogay onway asway ifway othingnay adbay appenedhay."
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr "Ouldcay otnay estoreray ~S otay itsway originalway ontentscay: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr "~s isway otnay away eamstray associatedway ithway away ilefay."
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr "Errorway statingfay ~S: ~Away"
+
+#: target:code/fd-stream.lisp
msgid "Error lseek'ing ~S: ~A"
msgstr "Errorway seeklay'ingway ~S: ~Away"
@@ -12061,6 +12823,14 @@
msgstr "Invalidway ositionpay ivengay otay ilefay-ositionpay: ~S"
#: target:code/fd-stream.lisp
+msgid "file ~S"
+msgstr "ilefay ~S"
+
+#: target:code/fd-stream.lisp
+msgid "descriptor ~D"
+msgstr "escriptorday ~D"
+
+#: target:code/fd-stream.lisp
msgid ""
"Create a stream for the given unix file descriptor.\n"
" If input is non-nil, allow input operations.\n"
@@ -12091,6 +12861,10 @@
msgstr "Ilefay escriptorday ustmay ebay openedway eitherway orfay inputway orway outputway."
#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr "** Osedclay ~Away~%"
+
+#: target:code/fd-stream.lisp
msgid ""
"This is a string that OPEN tacks on the end of a file namestring to produce\n"
" a name for the :if-exists :rename-and-delete and :rename options. Also,\n"
@@ -12103,6 +12877,58 @@
" amestringnay."
#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr "Enterway ewnay aluevay orfay ~*~S"
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr "~S isway invalidway orfay ~S. Ustmay ebay oneway ofway~{ ~S~}"
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr "Enterway ewnay aluevay orfay ~S: "
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr "Ytray otay enameray itway anywayway."
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr "Ilefay ~S isway otnay itablewray."
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr "Useway :UPERSEDESAY insteadway."
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr "Ouldcay otnay enameray ~S otay ~S: ~Away."
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr "Annotcay openway ~S orfay outputway: Isway away irectoryday."
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr "Annotcay indfay ~S: ~Away"
+
+#: target:code/fd-stream.lisp
+msgid "Return NIL."
+msgstr "Eturnray ILNAY."
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr "Errorway openingway ~S, ~Away."
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr "Errorway eatingcray ~S, athpay oesday otnay existway."
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr "Ytray againway."
+
+#: target:code/fd-stream.lisp
msgid ""
"Return a stream which reads from or writes to Filename.\n"
" Defined keywords:\n"
@@ -12125,6 +12951,14 @@
" Eesay ethay anualmay orfay etailsday."
#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr "Oday itway anywayway."
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr "Ancay't eatecray implesay-eamsstray ithway anway elementway-ypetay."
+
+#: target:code/fd-stream.lisp
msgid "Unable to open streams of class ~S."
msgstr "Unableway otay openway eamsstray ofway assclay ~S."
@@ -13147,10 +13981,6 @@
msgid "~S defined~%"
msgstr "~S efinedday~%"
-#: target:compiler/generic/core.lisp target:code/load.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr "Unknownway oreignfay ymbolsay: ~S"
-
#: target:code/load.lisp
msgid "Cannot load assembler code."
msgstr "Annotcay oadlay assemblerway odecay."
@@ -13660,6 +14490,22 @@
" ouldshay ebay away umbernay etweenbay 1 andway 31 inclusiveway."
#: target:code/interr.lisp
+msgid "~S isn't one of the required args."
+msgstr "~S isnway't oneway ofway ethay equiredray argsway."
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr "Unknownway errorway:~{ ~S~})"
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr "Invalidway umbernay ofway argumentsway: ~S"
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S"
+msgstr "Attemptway otay useway ALUESVAY-ISTLAY onway away ottedday-istlay:~% ~S"
+
+#: target:code/interr.lisp
msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
msgstr "Attemptway otay ETURNRAY-OMFRAY away ockblay orway OGAY otay away agtay atthay onay ongerlay existsway"
@@ -13672,6 +14518,20 @@
msgstr "Unctionfay ithway eclaredday esultray ypetay ILNAY eturnedray:~% ~S"
#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Array has no elements."
+msgstr "Invalidway arrayway indexway, ~D orfay ~S. Arrayway ashay onay elementsway."
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S. Should have greater than or equal to 0."
+msgstr ""
+"Invalidway arrayway indexway, ~D orfay ~S. Ouldshay avehay eatergray anthay orway equalway otay 0."
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Should have been less than ~D"
+msgstr "Invalidway arrayway indexway, ~D orfay ~S. Ouldshay avehay eenbay esslay anthay ~D"
+
+#: target:code/interr.lisp
msgid "Undefined foreign symbol: ~S"
msgstr "Undefinedway oreignfay ymbolsay: ~S"
@@ -16862,6 +17722,18 @@
msgstr "Eloadedray ibrarylay ~S~%"
#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr "Ignoreway ibrarylay andway ontinuecay"
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr "Ytray eloadingray againway"
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr "Oosechay ewnay ibrarylay athpay"
+
+#: target:code/foreign.lisp
msgid "Enter new library path: "
msgstr "Enterway ewnay ibrarylay athpay: "
@@ -17912,6 +18784,10 @@
" efinitionday."
#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr "Invalidateway alreadyway oadedlay odecay andway instancesway, useway ewnay efinitionday."
+
+#: target:code/defstruct.lisp
msgid "Previously loaded ~S accessors will no longer work."
msgstr "Eviouslypray oadedlay ~S accessorsway illway onay ongerlay orkway."
@@ -25742,10 +26618,6 @@
msgstr "~@<Inway ethodmay ~S: Onay extnay ethodmay orfay argumentsway ~S.~@:>"
#: target:pcl/braid.lisp
-msgid "Try again."
-msgstr "Ytray againway."
-
-#: target:pcl/braid.lisp
msgid ""
"~@<Generic function ~S: ~\n"
" No primary method given arguments ~S~@:>"
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.31 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.32
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.31 Sat Feb 13 12:52:02 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Sat Feb 13 22:06:42 2010
@@ -1665,6 +1665,10 @@
msgstr ""
#: target:code/alieneval.lisp
+msgid "Too many indices when derefing ~S: ~D"
+msgstr ""
+
+#: target:code/alieneval.lisp
msgid "Incorrect number of indices when derefing ~S: ~D"
msgstr ""
@@ -2542,6 +2546,14 @@
msgstr ""
#: target:code/hash-new.lisp
+msgid ";; Creating unsupported weak-p hash table~%"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
msgid "Returns the number of entries in the given HASH-TABLE."
msgstr ""
@@ -2620,6 +2632,503 @@
msgid "Computes a hash code for S-EXPR and returns it as an integer."
msgstr ""
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid "Returns all but the first object."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the 1st sublist."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns all but the 1st two objects of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdaar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the car of the cddar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cadar of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the caddr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the cdr of the cdadr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list with se1 as the car and se2 as the cdr."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if X and Y are isomorphic trees with identical leaves."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"The recommended way to test for the end of a list. True if Object is nil,\n"
+" false if Object is a cons, and an error for any other types of arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the length of the given List, or Nil if the List is circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the nth object in a list where the car is the zero-th element."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 1st object in a list or NIL if the list is empty."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 4th object in a list or NIL if there is no 4th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 5th object in a list or NIL if there is no 5th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 6th object in a list or NIL if there is no 6th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 7th object in a list or NIL if there is no 7th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 8th object in a list or NIL if there is no 8th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 9th object in a list or NIL if there is no 9th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the 10th object in a list or NIL if there is no 10th object."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Means the same as the cdr of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Performs the cdr function n times on a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the last N conses (not the last element!) of a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns constructs and returns a list of its arguments."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a list of the arguments with last cons a dotted pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Constructs a list with size elements each set to value"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a proper list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Typically, returns a new list that is the concatenation of Args.\n"
+"\n"
+" Each Arg in Args must be a proper list except the last one, which\n"
+" may be any object. The function is not destructive: for all but the\n"
+" last Arg, its list structure is copied. The last argument is not\n"
+" copied; it becomes the cdr of the final dotted pair of the\n"
+" concatenation of the preceding lists, or is returned directly if\n"
+" there are no preceding non-empty lists. In the latter case, if the\n"
+" last Arg is not a list, the returned value is not a list either."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is not a list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new list EQUAL but not EQ to list"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns a new association list equal to alist, constructed in space"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Copy-Tree recursively copys trees of conses."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (append (reverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Concatenates the lists given as arguments (by changing them)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Argument is not a list -- ~S."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns (nconc (nreverse x) y)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "First argument is not a proper list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list the same as List without the last N conses.\n"
+" List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Modifies List to remove the last N conses. List must not be circular."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns a new list, whose elements are those of List that appear before\n"
+" Object. If Object is not a tail of List, a copy of List is returned.\n"
+" List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the car of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Changes the cdr of x to y and returns the new x."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Sets the Nth element of List (zero based) to Newval."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "~S is too large an index for SETF of NTH."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid "Returns what was passed to it."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid ""
+"Builds a new function that returns T whenever FUNCTION returns NIL and\n"
+" NIL whenever FUNCTION returns T."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees matching old."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is true."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes new for subtrees of tree for which test is false."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Substitutes from alist into tree nondestructively."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns tail of list beginning with first element satisfying EQLity,\n"
+" :test, or :test-not with a given item."
+msgstr ""
+
+#: target:code/list.lisp
+#, fuzzy
+msgid ""
+"Returns tail of list beginning with first element satisfying test(element)"
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:code/list.lisp
+#, fuzzy
+msgid ""
+"Returns tail of list beginning with first element not satisfying test(el)"
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:code/list.lisp
+msgid ""
+"Returns true if Object is the same as some tail of List, otherwise\n"
+" returns false. List must be a proper list or a dotted list."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Add item to list unless it is already a member"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the union of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Test and test-not both supplied."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the union list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the intersection of list1 and list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Destructively returns the elements of list1 which are not in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Destructively return a list with elements which appear but once in LIST1\n"
+" and LIST2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns T if every element in list1 is also in list2."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct a new alist by adding the pair (key . datum) to alist"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Construct an association list from keys and data (adding to alist)"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "The lists of keys and data are of unequal length."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car satisfies the Predicate. If\n"
+" key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
+" If key is supplied, apply it to the car of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
+" the Item."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr satisfies the Predicate. If key\n"
+" is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
+" If key is supplied, apply it to the cdr of each cons before testing."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
+" It Maps function over the arglists in the appropriate way. It is done when "
+"any\n"
+" of the arglists runs out. Until then, it CDRs down the arglists calling "
+"the\n"
+" function and accumulating results as desired."
+msgstr ""
+
+#: target:code/list.lisp
+msgid ""
+"Applies fn to successive elements of lists, returns its second argument."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive elements of list, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns ()."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of list, returns list of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns tail of list beginning with first element eq to item"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Return the first pair of alist where item EQ the key of pair"
+msgstr ""
+
+#: target:code/list.lisp
+msgid "Returns list with all elements with all elements EQ to ITEM deleted."
+msgstr ""
+
#: target:code/seq.lisp
msgid ""
"Returns a list of the Nth element of each of the sequences. Used by MAP\n"
@@ -2898,14 +3407,14 @@
#: target:code/seq.lisp
msgid ""
-"Returns"
+"Returns the zero-origin index of the first element not satisfying test(el)"
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
#: target:code/seq.lisp
msgid ""
-"Returns"
+"Returns the first element in SEQUENCE satisfying the test (default\n"
" is EQL) with the given ITEM"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/seq.lisp
msgid "Returns the first element in SEQUENCE satisfying the test."
@@ -2917,9 +3426,9 @@
#: target:code/seq.lisp
msgid ""
-"Returns"
+"Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
" which defaults to EQL."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/seq.lisp
msgid ":TEST and :TEST-NOT are both present."
@@ -4010,9 +4519,9 @@
#: target:code/unix.lisp
msgid ""
-"Returns"
+"Returns a string describing the error number which was returned by a\n"
" UNIX system call."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/unix.lisp
msgid "Unknown error [~d]"
@@ -4668,8 +5177,8 @@
#: target:code/unix.lisp
msgid ""
-"Unix-ge"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Unix-getppid returns the process-id of the parent of the current process."
+msgstr ""
#: target:code/unix.lisp
msgid "Unix-getgid returns the real group-id of the current process."
@@ -4698,9 +5207,9 @@
#: target:code/unix.lisp
msgid ""
-"Unix-ge"
+"Unix-getuid returns the real user-id associated with the\n"
" current process."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/unix.lisp
msgid "Unix-getpagesize returns the number of bytes in a system page."
@@ -4884,6 +5393,14 @@
msgstr ""
#: target:code/bsd-os.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: target:code/bsd-os.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
+#: target:code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr ""
@@ -4900,6 +5417,15 @@
msgstr ""
#: target:code/x86-vm.lisp
+msgid "Unknown code-object-fixup kind ~s."
+msgstr ""
+
+#: target:compiler/generic/core.lisp target:code/load.lisp
+#: target:code/x86-vm.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: target:code/x86-vm.lisp
msgid ""
"Atomically compare object's slot value to test-value and if EQ store\n"
" new-value in the slot. The original value of the slot is returned."
@@ -5280,28 +5806,28 @@
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if no two of its arguments are numerically equal, NIL otherwise."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if its arguments are in strictly increasing order, NIL otherwise."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if its arguments are in strictly decreasing order, NIL otherwise."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if arguments are in strictly non-increasing order, NIL otherwise."
+msgstr ""
#: target:code/numbers.lisp
msgid "Returns the greatest of its arguments."
@@ -5321,8 +5847,8 @@
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns the bit-wise exclusive or of its arguments. Args must be integers."
+msgstr ""
#: target:code/numbers.lisp
msgid "Returns the bit-wise and of its arguments. Args must be integers."
@@ -5330,8 +5856,8 @@
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns the bit-wise equivalence of its arguments. Args must be integers."
+msgstr ""
#: target:code/numbers.lisp
msgid "Returns the complement of the logical AND of integer1 and integer2."
@@ -5369,8 +5895,8 @@
#: target:code/numbers.lisp
msgid ""
-"Predica"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Predicate which returns T if logand of integer1 and integer2 is not zero."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
@@ -5385,8 +5911,8 @@
#: target:code/numbers.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns the number of significant bits in the absolute value of integer."
+msgstr ""
#: target:code/numbers.lisp
msgid "Returns a byte specifier which may be used by other byte functions."
@@ -5467,8 +5993,8 @@
#: target:code/numbers.lisp
msgid ""
-"Boole f"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Boole function op, makes BOOLE return log nand of integer1 and integer2."
+msgstr ""
#: target:code/numbers.lisp
msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
@@ -5476,13 +6002,13 @@
#: target:code/numbers.lisp
msgid ""
-"Boole f"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
+msgstr ""
#: target:code/numbers.lisp
msgid ""
-"Boole f"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
+msgstr ""
#: target:code/numbers.lisp
msgid "Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
@@ -5634,6 +6160,18 @@
msgstr ""
#: target:code/float.lisp
+msgid "Return true if the float X is an infinity (+ or -)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is a trapping NaN (Not a Number)."
+msgstr ""
+
+#: target:code/float.lisp
msgid ""
"Returns a non-negative number of significant digits in it's float argument.\n"
" Will be less than FLOAT-DIGITS if denormalized or zero."
@@ -6248,49 +6786,49 @@
#: target:code/char.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if its arguments are in strictly non-decreasing alphabetic order."
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns T if its arguments are in strictly non-increasing alphabetic order."
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if all of its arguments are the same character.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if no two of its arguments are the same character.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if its arguments are in strictly increasing alphabetic order.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if its arguments are in strictly decreasing alphabetic order.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid ""
-"Returns"
+"Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
" Case is ignored."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/char.lisp
msgid "Returns CHAR converted to upper-case if that is possible."
@@ -7120,6 +7658,17 @@
msgstr ""
#: target:code/gc.lisp
+msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+msgstr ""
+
+#: target:code/gc.lisp
+msgid ""
+"Initiates a garbage collection. The optional argument, VERBOSE-P,\n"
+" which defaults to the value of the variable *GC-VERBOSE* controls\n"
+" whether or not GC statistics are printed."
+msgstr ""
+
+#: target:code/gc.lisp
msgid ""
"Initiates a garbage collection. The keyword :VERBOSE, which\n"
" defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
@@ -7496,8 +8045,8 @@
#: target:code/stream.lisp
msgid ""
-"Peeks a"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Peeks at the next character in the input Stream. See manual for details."
+msgstr ""
#: target:code/stream.lisp
msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
@@ -7554,8 +8103,8 @@
#: target:code/stream.lisp
msgid ""
-"Outputs"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Outputs the String to the given Stream, followed by a newline character."
+msgstr ""
#: target:code/stream.lisp
msgid ""
@@ -7848,22 +8397,22 @@
#: target:code/print.lisp
msgid ""
-"Outputs"
+"Outputs a mostly READable printed representation of OBJECT on the specified\n"
" stream."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/print.lisp
msgid ""
-"Outputs"
+"Outputs an asthetic but not READable printed representation of OBJECT on "
"the\n"
" specified stream."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/print.lisp
msgid ""
-"Outputs"
+"Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
" space to the stream."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/print.lisp
msgid "Prettily outputs the Object preceded by a newline."
@@ -7875,15 +8424,15 @@
#: target:code/print.lisp
msgid ""
-"Returns"
+"Returns the printed representation of OBJECT as a string with \n"
" slashification on."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/print.lisp
msgid ""
-"Returns"
+"Returns the printed representation of OBJECT as a string with\n"
" slashification off."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
@@ -7971,9 +8520,9 @@
#: target:code/print.lisp
msgid ""
-"Outputs"
+"Outputs the printed representation of any array in either the #< or #A\n"
" form."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/print.lisp
msgid "Obsolete Instance"
@@ -8378,6 +8927,141 @@
msgid "Table of ordinal tens-place digits in English"
msgstr ""
+#: target:code/format.lisp
+msgid "Number too large to print in old Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Number too large to print in Roman numerals: ~:D"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No previous argument."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier with this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify either colon or atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and atsign for this directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the at-sign modifier."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both colon and at-sign."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+"\t\t\t\t between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+"\t\t\t\tbetween 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+"\t\t\t\t between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Index ~D out of bounds. Should have been ~\n"
+"\t\t\t between 0 and ~D."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify the colon modifier."
+msgstr ""
+
+#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
+#: target:pcl/low.lisp target:code/format.lisp
+msgid "~A~%while processing indirect format string:"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open paren."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Cannot specify both the colon and at-sign modifiers."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Can only specify one section"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Must specify exactly two sections."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open bracket."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding close brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No corresponding open brace."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "~D illegal directive~:P found inside justification block"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No parameters can be supplied with ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid ""
+"Cannot include format directives inside the ~\n"
+"\t\t\t ~:[suffix~;prefix~] segment of ~~<...~~:>"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Too many segments for ~~<...~~:>."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Malformed ~~/ directive."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "No package named ~S"
+msgstr ""
+
#: target:code/package.lisp
msgid ""
"The list of packages to use by default of no :USE argument is supplied\n"
@@ -9553,6 +10237,10 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Timeout ~(~A~)ing ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available output routines. Each element is a list of the\n"
" element-type output, the kind of buffering, the function name, and the "
@@ -9576,6 +10264,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Just go on as if nothing happened..."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S called with :END before :START!"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"List of all available input routines. Each element is a list of the\n"
" element-type input, the function name, and the number of bytes per element."
@@ -9602,6 +10298,22 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Go on as if nothing bad happened."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not restore ~S to its original contents: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~s is not a stream associated with a file."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error fstating ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid "Error lseek'ing ~S: ~A"
msgstr ""
@@ -9610,6 +10322,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "file ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "descriptor ~D"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"Create a stream for the given unix file descriptor.\n"
" If input is non-nil, allow input operations.\n"
@@ -9629,6 +10349,10 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "** Closed ~A~%"
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"This is a string that OPEN tacks on the end of a file namestring to produce\n"
" a name for the :if-exists :rename-and-delete and :rename options. Also,\n"
@@ -9637,6 +10361,59 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Enter new value for ~*~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Enter new value for ~S: "
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Try to rename it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File ~S is not writable."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Use :SUPERSEDE instead."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not rename ~S to ~S: ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot open ~S for output: Is a directory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Cannot find ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+#, fuzzy
+msgid "Return NIL."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:code/fd-stream.lisp
+msgid "Error opening ~S, ~A."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error creating ~S, path does not exist."
+msgstr ""
+
+#: target:pcl/braid.lisp target:code/fd-stream.lisp
+msgid "Try again."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid ""
"Return a stream which reads from or writes to Filename.\n"
" Defined keywords:\n"
@@ -9650,6 +10427,14 @@
msgstr ""
#: target:code/fd-stream.lisp
+msgid "Do it anyway."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Can't create simple-streams with an element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
msgid "Unable to open streams of class ~S."
msgstr ""
@@ -9811,8 +10596,8 @@
#: target:code/pathname.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns a string representation of the name of the host in the pathname."
+msgstr ""
#: target:code/pathname.lisp
msgid "Cannot determine the namestring for pathnames with no host:~% ~S"
@@ -9820,8 +10605,8 @@
#: target:code/pathname.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns a string representation of the directories used in the pathname."
+msgstr ""
#: target:code/pathname.lisp
msgid "Returns a string representation of the name used in the pathname."
@@ -10024,9 +10809,9 @@
#: target:code/pathname.lisp
msgid ""
-"Set the"
+"Set the translations list for the logical host argument.\n"
" Return translations."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/pathname.lisp
msgid "Clobber search-list host with logical pathname host"
@@ -10504,10 +11289,6 @@
msgid "~S defined~%"
msgstr ""
-#: target:compiler/generic/core.lisp target:code/load.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
#: target:code/load.lisp
msgid "Cannot load assembler code."
msgstr ""
@@ -10599,9 +11380,9 @@
#: target:code/eval.lisp
msgid ""
-"The exc"
+"The exclusive upper bound on the number of arguments which may be passed\n"
" to a function, including rest args."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/eval.lisp
msgid ""
@@ -10613,9 +11394,9 @@
#: target:code/eval.lisp
msgid ""
-"The exc"
+"The exclusive upper bound on the number of multiple-values that you can\n"
" have."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/eval.lisp
msgid ""
@@ -10881,6 +11662,22 @@
msgstr ""
#: target:code/interr.lisp
+msgid "~S isn't one of the required args."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown error:~{ ~S~})"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S"
+msgstr ""
+
+#: target:code/interr.lisp
msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
msgstr ""
@@ -10893,6 +11690,19 @@
msgstr ""
#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Array has no elements."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"Invalid array index, ~D for ~S. Should have greater than or equal to 0."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Invalid array index, ~D for ~S. Should have been less than ~D"
+msgstr ""
+
+#: target:code/interr.lisp
msgid "Undefined foreign symbol: ~S"
msgstr ""
@@ -13374,6 +14184,18 @@
msgstr ""
#: target:code/foreign.lisp
+msgid "Ignore library and continue"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Try reloading again"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Choose new library path"
+msgstr ""
+
+#: target:code/foreign.lisp
msgid "Enter new library path: "
msgstr ""
@@ -13650,8 +14472,8 @@
#: target:code/wire.lisp
msgid ""
-"Return "
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Return T iff anything is in the input buffer or available on the socket."
+msgstr ""
#: target:code/wire.lisp
msgid "listening to"
@@ -13683,9 +14505,9 @@
#: target:code/wire.lisp
msgid ""
-"Reads a"
+"Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
" return it."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:code/wire.lisp
msgid "Reads a string from the wire. The first four bytes spec the size."
@@ -14218,6 +15040,10 @@
msgstr ""
#: target:code/defstruct.lisp
+msgid "Invalidate already loaded code and instances, use new definition."
+msgstr ""
+
+#: target:code/defstruct.lisp
msgid "Previously loaded ~S accessors will no longer work."
msgstr ""
@@ -15608,9 +16434,9 @@
#: target:compiler/generic/objdef.lisp
msgid ""
-"Exclusi"
+"Exclusive upper bound on the value of the low tag bits from a\n"
" pointer."
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+msgstr ""
#: target:compiler/generic/objdef.lisp
msgid "Number of bits used in the header word of a data block for typeing."
@@ -15714,8 +16540,9 @@
msgstr ""
#: target:compiler/ctype.lisp
+#, fuzzy
msgid ""
-"Functio"
+"Function previously called with an odd number of arguments in ~\n"
"\t the keyword portion."
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
@@ -16774,8 +17601,8 @@
#: target:compiler/disassem.lisp
msgid ""
-"Returns"
-msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+"Returns an integer corresponding to the specifivity of the instruction INST."
+msgstr ""
#: target:compiler/disassem.lisp
msgid ""
@@ -18898,8 +19725,9 @@
msgstr ""
#: target:compiler/locall.lisp
+#, fuzzy
msgid ""
-"Functio"
+"Function called with odd number of ~\n"
"\t \t\t arguments in keyword portion."
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
@@ -20246,10 +21074,6 @@
msgstr ""
#: target:pcl/braid.lisp
-msgid "Try again."
-msgstr ""
-
-#: target:pcl/braid.lisp
msgid ""
"~@<Generic function ~S: ~\n"
" No primary method given arguments ~S~@:>"
@@ -20715,8 +21539,9 @@
msgstr ""
#: target:pcl/gray-streams.lisp
+#, fuzzy
msgid ""
-"Returns"
+"Returns a type specifier for the kind of object returned by the\n"
" Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n"
" which returns CHARACTER."
msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
@@ -20903,6 +21728,65 @@
msgid " Gray Streams Protocol Support"
msgstr ""
+#~ msgid "Returns which defaults to EQL."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Returns UNIX system call."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Unix-ge"
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Unix-ge current process."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Predica"
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Peeks a"
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Outputs"
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Outputs stream."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid ""
+#~ "Outputsthe\n"
+#~ " specified stream."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Outputs space to the stream."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Returns slashification on."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Returns slashification off."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Outputs form."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Set the Return translations."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "The exc to a function, including rest args."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "The exc have."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Reads a return it."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Exclusi pointer."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#~ msgid "Functio\t the keyword portion."
+#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
#~ msgid "Read-Only Space Usage: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%"
#~ msgstr "ì½ê¸° ì „ìš© 공간 사용: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%"
More information about the cmucl-commit
mailing list