CMUCL commit: intl-branch src (11 files)
Raymond Toy
rtoy at common-lisp.net
Tue Feb 9 19:41:59 CET 2010
Date: Tuesday, February 9, 2010 @ 13:41:59
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/fdefinition.lisp code/filesys.lisp code/final.lisp
code/float-trap.lisp code/float.lisp code/foreign-linkage.lisp
code/foreign.lisp code/format-time.lisp code/fwrappers.lisp
i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
code/fdefinition.lisp | 24 -
code/filesys.lisp | 104 ++--
code/final.lisp | 6
code/float-trap.lisp | 16
code/float.lisp | 40 -
code/foreign-linkage.lisp | 2
code/foreign.lisp | 90 +--
code/format-time.lisp | 32 -
code/fwrappers.lisp | 46 -
i18n/locale/cmucl.pot | 795 +++++++++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 796 ++++++++++++++++++++++++++++++++++
11 files changed, 1771 insertions(+), 180 deletions(-)
Index: src/code/fdefinition.lisp
diff -u src/code/fdefinition.lisp:1.26.36.1 src/code/fdefinition.lisp:1.26.36.2
--- src/code/fdefinition.lisp:1.26.36.1 Mon Feb 8 12:15:47 2010
+++ src/code/fdefinition.lisp Tue Feb 9 13:41:58 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/fdefinition.lisp,v 1.26.36.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/fdefinition.lisp,v 1.26.36.2 2010-02-09 18:41:58 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -52,7 +52,7 @@
(acons name syntax-checker *valid-function-names*)))))
(defmacro define-function-name-syntax (name (var) &body body)
- "Define (NAME ...) to be a valid function name whose syntax is checked
+ _N"Define (NAME ...) to be a valid function name whose syntax is checked
by BODY. In BODY, VAR is bound to an actual function name of the
form (NAME ...) to check. BODY should return two values.
First value true means the function name is valid. Second value
@@ -64,7 +64,7 @@
(%define-function-name-syntax ',name #',syntax-checker))))
(defun valid-function-name-p (name)
- "First value is true if NAME has valid function name syntax.
+ _N"First value is true if NAME has valid function name syntax.
Second value is the name, a symbol, to use as a block name in DEFUNs
and in similar situations."
(typecase name
@@ -157,7 +157,7 @@
;;; FDEFINITION-OBJECT -- internal interface.
;;;
(defun fdefinition-object (name create)
- "Return the fdefn object for NAME. If it doesn't already exist and CREATE
+ _N"Return the fdefn object for NAME. If it doesn't already exist and CREATE
is non-NIL, create a new (unbound) one."
(declare (values (or fdefn null)))
(multiple-value-bind (valid-name-p fname)
@@ -166,7 +166,7 @@
(error 'simple-type-error
:datum fname
:expected-type '(satisfies valid-function-name-p)
- :format-control "Invalid function name: ~S"
+ :format-control _"Invalid function name: ~S"
:format-arguments (list name))))
(let ((fdefn (info function definition name)))
(if (and (null fdefn) create)
@@ -175,7 +175,7 @@
(declaim (inline fdefn-or-lose))
(defun fdefn-or-lose (name)
- "Return the FDEFN of NAME. Signal an error if there is none
+ _N"Return the FDEFN of NAME. Signal an error if there is none
or if it's function is null."
(let ((fdefn (fdefinition-object name nil)))
(unless (and fdefn (fdefn-function fdefn))
@@ -187,7 +187,7 @@
;;; The compiler emits calls to this when someone tries to funcall a symbol.
;;;
(defun %coerce-to-function (name)
- "Returns the definition for name, including any encapsulations. Settable
+ _N"Returns the definition for name, including any encapsulations. Settable
with SETF."
(fdefn-function (fdefn-or-lose name)))
@@ -210,7 +210,7 @@
;;;; FDEFINITION.
(defun fdefinition (function-name)
- "Return FUNCTION-NAME's global function definition.
+ _N"Return FUNCTION-NAME's global function definition.
If FUNCTION-NAME is fwrapped, return the primary function definition
stored in the innermost fwrapper."
(let* ((fdefn (fdefn-or-lose function-name))
@@ -220,11 +220,11 @@
(fdefn-function fdefn))))
(defvar *setf-fdefinition-hook* nil
- "This holds functions that (SETF FDEFINITION) invokes before storing the
+ _N"This holds functions that (SETF FDEFINITION) invokes before storing the
new value. These functions take the function name and the new value.")
(defun %set-fdefinition (function-name new-value)
- "Set FUNCTION-NAME's global function definition to NEW-VALUE.
+ _N"Set FUNCTION-NAME's global function definition to NEW-VALUE.
If FUNCTION-NAME is fwrapped, set the primary function stored
in the innermost fwrapper."
(declare (type function new-value) (optimize (safety 1)))
@@ -244,12 +244,12 @@
;;;; FBOUNDP and FMAKUNBOUND.
(defun fboundp (name)
- "Return true if name has a global function definition."
+ _N"Return true if name has a global function definition."
(let ((fdefn (fdefinition-object name nil)))
(and fdefn (fdefn-function fdefn) t)))
(defun fmakunbound (name)
- "Make Name have no global function definition."
+ _N"Make Name have no global function definition."
(let ((fdefn (fdefinition-object name nil)))
(when fdefn
(fdefn-makunbound fdefn)))
Index: src/code/filesys.lisp
diff -u src/code/filesys.lisp:1.107.12.1 src/code/filesys.lisp:1.107.12.2
--- src/code/filesys.lisp:1.107.12.1 Mon Feb 8 12:15:47 2010
+++ src/code/filesys.lisp Tue Feb 9 13:41:59 2010
@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group at cs.cmu.edu.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.107.12.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.107.12.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -72,7 +72,7 @@
;;;
(defun remove-backslashes (namestr start end)
- "Remove any occurrences of \\ from the string because we've already
+ _N"Remove any occurrences of \\ from the string because we've already
checked for whatever may have been backslashed."
(declare (type simple-base-string namestr)
(type index start end))
@@ -94,13 +94,13 @@
(incf dst)))))))
(when quoted
(error 'namestring-parse-error
- :complaint "Backslash in bad place."
+ :complaint _"Backslash in bad place."
:namestring namestr
:offset (1- end)))
(shrink-vector result dst)))
(defvar *ignore-wildcards* nil
- "If non-NIL, Unix shell-style wildcards are ignored when parsing
+ _N"If non-NIL, Unix shell-style wildcards are ignored when parsing
pathname namestrings. They are also ignored when computing
namestrings for pathname objects. Thus, *, ?, etc. are not
wildcards when parsing a namestring, and are not escaped when
@@ -152,7 +152,7 @@
(position #\] namestr :start index :end end)))
(unless close-bracket
(error 'namestring-parse-error
- :complaint "``['' with no corresponding ``]''"
+ :complaint _"``['' with no corresponding ``]''"
:namestring namestr
:offset index))
(pattern (list :character-set
@@ -322,7 +322,7 @@
;; same, we can't allow the creation of one when
;; the other is defined.
(when (find-logical-host search-list nil)
- (error "~A already names a logical host" search-list))
+ (error _"~A already names a logical host" search-list))
(setf absolute t)
(setf (car first) new-start))
search-list)))))
@@ -459,7 +459,7 @@
(strings (second piece))
(strings "]"))
(t
- (error "Invalid pattern piece: ~S" piece))))))
+ (error _"Invalid pattern piece: ~S" piece))))))
(apply #'concatenate
'simple-string
(strings))))))
@@ -485,14 +485,14 @@
((member :up)
(pieces "../"))
((member :back)
- (error ":BACK cannot be represented in namestrings."))
+ (error _":BACK cannot be represented in namestrings."))
((member :wild-inferiors)
(pieces "**/"))
((or simple-string pattern (eql :wild))
(pieces (unparse-unix-piece dir))
(pieces "/"))
(t
- (error "Invalid directory component: ~S" dir)))))
+ (error _"Invalid directory component: ~S" dir)))))
(apply #'concatenate 'simple-string (pieces))))
(defun unparse-unix-directory (pathname)
@@ -516,33 +516,33 @@
(when name
(when (stringp name)
(when (find #\/ name)
- (error "Cannot specify a directory separator in a pathname name: ~S" name))
+ (error _"Cannot specify a directory separator in a pathname name: ~S" name))
(when (and (not type-supplied)
(find #\. name :start 1))
;; A single leading dot is ok.
- (error "Cannot specify a dot in a pathname name without a pathname type: ~S" name))
+ (error _"Cannot specify a dot in a pathname name without a pathname type: ~S" name))
(when (or (and (string= ".." name)
(not type-supplied))
(and (string= "." name)
(not type-supplied)))
;; Can't have a name of ".." or "." without a type.
- (error "Invalid value for a pathname name: ~S" name)))
+ (error _"Invalid value for a pathname name: ~S" name)))
(strings (unparse-unix-piece name)))
(when type-supplied
(unless name
- (error "Cannot specify the type without a file: ~S" pathname))
+ (error _"Cannot specify the type without a file: ~S" pathname))
(when (stringp type)
(when (find #\/ type)
- (error "Cannot specify a directory separator in a pathname type: ~S" type))
+ (error _"Cannot specify a directory separator in a pathname type: ~S" type))
(when (find #\. type)
- (error "Cannot specify a dot in a pathname type: ~S" type)))
+ (error _"Cannot specify a dot in a pathname type: ~S" type)))
(strings ".")
(strings (unparse-unix-piece type)))
(when (and (not (member version '(nil :newest :unspecific)))
(not name))
;; We don't want version without a name, because when we try
;; to read #p".~*~" back, the name is "", not NIL.
- (error "Cannot specify a version without a file: ~S" pathname))
+ (error _"Cannot specify a version without a file: ~S" pathname))
(when version-supplied
(strings (if (eq version :wild)
(if logical-p ".*" ".~*~")
@@ -559,7 +559,7 @@
(defun unparse-unix-enough (pathname defaults)
(declare (type pathname pathname defaults))
(flet ((lose ()
- (error "~S cannot be represented relative to ~S"
+ (error _"~S cannot be represented relative to ~S"
pathname defaults)))
;; Only the first path in a search-list is considered.
(enumerate-search-list (pathname pathname)
@@ -674,7 +674,7 @@
(defun %enumerate-matches (pathname verify-existance follow-links function)
(when (pathname-type pathname)
(unless (pathname-name pathname)
- (error "Cannot supply a type without a name:~% ~S" pathname)))
+ (error _"Cannot supply a type without a name:~% ~S" pathname)))
(let ((directory (pathname-directory pathname)))
(if directory
(ecase (car directory)
@@ -854,7 +854,7 @@
;;;; UNIX-NAMESTRING -- public
;;;
(defun unix-namestring (pathname &optional (for-input t) executable-only)
- "Convert PATHNAME into a string that can be used with UNIX system calls.
+ _N"Convert PATHNAME into a string that can be used with UNIX system calls.
Search-lists and wild-cards are expanded. If optional argument
FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.
If optional argument EXECUTABLE-ONLY is true, NIL is returned
@@ -878,7 +878,7 @@
(when names
(when (cdr names)
(error 'simple-file-error
- :format-control "~S is ambiguous:~{~% ~A~}"
+ :format-control _"~S is ambiguous:~{~% ~A~}"
:format-arguments (list pathname names)))
(return (car names))))))))
@@ -890,18 +890,18 @@
;;; Another silly file function trivially different from another function.
;;;
(defun truename (pathname)
- "Return the pathname for the actual file described by the pathname
+ _N"Return the pathname for the actual file described by the pathname
An error of type file-error is signalled if no such file exists,
or the pathname is wild."
(if (wild-pathname-p pathname)
(error 'simple-file-error
- :format-control "Bad place for a wild pathname."
+ :format-control _"Bad place for a wild pathname."
:pathname pathname)
(let ((result (probe-file pathname)))
(unless result
(error 'simple-file-error
:pathname pathname
- :format-control "The file ~S does not exist."
+ :format-control _"The file ~S does not exist."
:format-arguments (list (namestring pathname))))
result)))
@@ -910,12 +910,12 @@
;;; If PATHNAME exists, return its truename, otherwise NIL.
;;;
(defun probe-file (pathname)
- "Return a pathname which is the truename of the file if it exists, NIL
+ _N"Return a pathname which is the truename of the file if it exists, NIL
otherwise. An error of type file-error is signalled if pathname is wild."
(if (wild-pathname-p pathname)
(error 'simple-file-error
:pathname pathname
- :format-control "Bad place for a wild pathname.")
+ :format-control _"Bad place for a wild pathname.")
(let ((namestring (unix-namestring (merge-pathnames pathname) t)))
(when (and namestring (unix:unix-file-kind namestring))
(let ((truename (unix:unix-resolve-links
@@ -931,7 +931,7 @@
;;; Rename-File -- Public
;;;
(defun rename-file (file new-name)
- "Rename File to have the specified New-Name. If file is a stream open to a
+ _N"Rename File to have the specified New-Name. If file is a stream open to a
file, then the associated file is renamed."
(let* ((original (truename file))
(original-namestring (unix-namestring original t))
@@ -940,7 +940,7 @@
(unless new-namestring
(error 'simple-file-error
:pathname new-name
- :format-control "~S can't be created."
+ :format-control _"~S can't be created."
:format-arguments (list new-name)))
(multiple-value-bind (res error)
(unix:unix-rename original-namestring
@@ -948,7 +948,7 @@
(unless res
(error 'simple-file-error
:pathname new-name
- :format-control "Failed to rename ~A to ~A: ~A"
+ :format-control _"Failed to rename ~A to ~A: ~A"
:format-arguments (list original new-name
(unix:get-unix-error-msg error))))
(when (streamp file)
@@ -960,7 +960,7 @@
;;; Delete the file, Man.
;;;
(defun delete-file (file)
- "Delete the specified file."
+ _N"Delete the specified file."
(let ((namestring (unix-namestring file t)))
(when (streamp file)
;; Close the file, but don't try to revert or anything. We want
@@ -969,14 +969,14 @@
(unless namestring
(error 'simple-file-error
:pathname file
- :format-control "~S doesn't exist."
+ :format-control _"~S doesn't exist."
:format-arguments (list file)))
(multiple-value-bind (res err) (unix:unix-unlink namestring)
(unless res
(error 'simple-file-error
:pathname namestring
- :format-control "Could not delete ~A: ~A."
+ :format-control _"Could not delete ~A: ~A."
:format-arguments (list namestring
(unix:get-unix-error-msg err))))))
t)
@@ -986,7 +986,7 @@
;;; Purge old file versions
;;;
(defun purge-backup-files (pathname &optional (keep 0))
- "Delete old versions of files matching the given Pathname,
+ _N"Delete old versions of files matching the given Pathname,
optionally keeping some of the most recent old versions."
(declare (type (or pathname string stream) pathname)
(type (integer 0 *) keep))
@@ -1021,7 +1021,7 @@
;;; Return Home:, which is set up for us at initialization time.
;;;
(defun user-homedir-pathname (&optional host)
- "Returns the home directory of the logged in user as a pathname.
+ _N"Returns the home directory of the logged in user as a pathname.
This is obtained from the logical name \"home:\"."
(declare (ignore host))
#p"home:")
@@ -1029,12 +1029,12 @@
;;; File-Write-Date -- Public
;;;
(defun file-write-date (file)
- "Return file's creation date, or NIL if it doesn't exist.
+ _N"Return file's creation date, or NIL if it doesn't exist.
An error of type file-error is signalled if file is a wild pathname"
(if (wild-pathname-p file)
(error 'simple-file-error
:pathname file
- :format-control "Bad place for a wild pathname.")
+ :format-control _"Bad place for a wild pathname.")
(let ((name (unix-namestring file t)))
(when name
(multiple-value-bind
@@ -1047,18 +1047,18 @@
;;; File-Author -- Public
;;;
(defun file-author (file)
- "Returns the file author as a string, or nil if the author cannot be
+ _N"Returns the file author as a string, or nil if the author cannot be
determined. Signals an error of type file-error if file doesn't exist,
or file is a wild pathname."
(if (wild-pathname-p file)
(error 'simple-file-error
:pathname file
- :format-control "Bad place for a wild pathname.")
+ :format-control _"Bad place for a wild pathname.")
(let ((name (unix-namestring (pathname file) t)))
(unless name
(error 'simple-file-error
:pathname file
- :format-control "~S doesn't exist."
+ :format-control _"~S doesn't exist."
:format-arguments (list file)))
(multiple-value-bind (winp dev ino mode nlink uid)
(unix:unix-stat name)
@@ -1075,7 +1075,7 @@
;;;
(defun directory (pathname &key (all t) (check-for-subdirs t)
(truenamep t) (follow-links t))
- "Returns a list of pathnames, one for each file that matches the given
+ _N"Returns a list of pathnames, one for each file that matches the given
pathname. Supplying :ALL as nil causes this to ignore Unix dot files. This
never includes Unix dot and dot-dot in the result. If :TRUENAMEP is NIL,
then symbolic links in the result are not expanded, which is not the
@@ -1124,7 +1124,7 @@
;;; PRINT-DIRECTORY is exported from the EXTENSIONS package.
;;;
(defun print-directory (pathname &optional stream &key all verbose return-list)
- "Like Directory, but prints a terse, multi-column directory listing
+ _N"Like Directory, but prints a terse, multi-column directory listing
instead of returning a list of pathnames. When :all is supplied and
non-nil, then Unix dot files are included too (as ls -a). When :verbose
is supplied and non-nil, then a long listing of miscellaneous
@@ -1139,7 +1139,7 @@
(let ((contents (directory pathname :all all :check-for-subdirs nil
:truenamep nil))
(result nil))
- (format t "Directory of ~A:~%" (namestring pathname))
+ (format t _"Directory of ~A:~%" (namestring pathname))
(dolist (file contents)
(let* ((namestring (unix-namestring file))
(tail (subseq namestring
@@ -1188,7 +1188,7 @@
(decode-universal-time-for-files mtime year)
tail
(= (logand mode unix:s-ifmt) unix:s-ifdir))))
- (t (format t "Couldn't stat ~A -- ~A.~%"
+ (t (format t _"Couldn't stat ~A -- ~A.~%"
tail
(unix:get-unix-error-msg dev-or-err))))
(when return-list
@@ -1243,7 +1243,7 @@
(cols (max (truncate width col-width) 1))
(lines (ceiling cnt cols)))
(declare (fixnum cols lines))
- (format t "Directory of ~A:~%" (namestring pathname))
+ (format t _"Directory of ~A:~%" (namestring pathname))
(dotimes (i lines)
(declare (fixnum i))
(dotimes (j cols)
@@ -1331,7 +1331,7 @@
;;;
(defun ambiguous-files (pathname
&optional (defaults *default-pathname-defaults*))
- "Return a list of all files which are possible completions of Pathname.
+ _N"Return a list of all files which are possible completions of Pathname.
We look in the directory specified by Defaults as well as looking down
the search list."
(directory (complete-file-directory-arg pathname defaults)
@@ -1346,7 +1346,7 @@
;;; can be written by the current task.
;;;
(defun file-writable (name)
- "File-writable accepts a pathname and returns T if the current
+ _N"File-writable accepts a pathname and returns T if the current
process can write it, and NIL otherwise."
(let ((name (unix-namestring name nil)))
(cond ((null name)
@@ -1381,7 +1381,7 @@
;;; Default-Directory -- Public
;;;
(defun default-directory ()
- "Returns the pathname for the default directory. This is the place where
+ _N"Returns the pathname for the default directory. This is the place where
a file will be written if no directory is specified. This may be changed
with setf."
(multiple-value-bind (gr dir-or-error)
@@ -1411,7 +1411,7 @@
;;; Seems like maybe it's fixed by changes made by Ray Toy to avoid heap corruption.
#- (and)
(defun default-directory ()
- "Returns the pathname for the default directory. This is the place where
+ _N"Returns the pathname for the default directory. This is the place where
a file will be written if no directory is specified. This may be changed
with setf."
(multiple-value-bind (gr dir-or-error)
@@ -1432,7 +1432,7 @@
(let ((namestring (unix-namestring new-val t)))
(unless namestring
(error 'simple-file-error
- :format-control "~S doesn't exist."
+ :format-control _"~S doesn't exist."
:format-arguments (list new-val)))
(multiple-value-bind (gr error)
(unix:unix-chdir namestring)
@@ -1455,7 +1455,7 @@
;;; Ensure-Directories-Exist -- Public
;;;
(defun ensure-directories-exist (pathspec &key verbose (mode #o777))
- "Tests whether the directories containing the specified file
+ _N"Tests whether the directories containing the specified file
actually exist, and attempts to create them if they do not.
Portable programs should avoid using the :MODE keyword argument."
(let* ((pathname (pathname pathspec))
@@ -1465,7 +1465,7 @@
(created-p nil))
(when (wild-pathname-p pathname)
(error 'simple-file-error
- :format-control "Bad place for a wild pathname."
+ :format-control _"Bad place for a wild pathname."
:pathname pathspec))
(enumerate-search-list (pathname pathname)
(let ((dir (pathname-directory pathname)))
@@ -1480,13 +1480,13 @@
(unless (probe-file newpath)
(let ((namestring (namestring newpath)))
(when verbose
- (format *standard-output* "~&Creating directory: ~A~%"
+ (format *standard-output* _"~&Creating directory: ~A~%"
namestring))
(unix:unix-mkdir namestring mode)
(unless (probe-file namestring)
(error 'simple-file-error
:pathname pathspec
- :format-control "Can't create directory ~A."
+ :format-control _"Can't create directory ~A."
:format-arguments (list namestring)))
(setf created-p t)))
(retry () :report "Try to create the directory again"
Index: src/code/final.lisp
diff -u src/code/final.lisp:1.3.2.1 src/code/final.lisp:1.3.2.2
--- src/code/final.lisp:1.3.2.1 Mon Feb 8 12:15:47 2010
+++ src/code/final.lisp Tue Feb 9 13:41:59 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/final.lisp,v 1.3.2.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/final.lisp,v 1.3.2.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -22,7 +22,7 @@
(defvar *objects-pending-finalization* nil)
(defun finalize (object function)
- "Arrange for FUNCTION to be called when there are no more references to
+ _N"Arrange for FUNCTION to be called when there are no more references to
OBJECT. FUNCTION takes no arguments."
(declare (type function function))
(system:without-gcing
@@ -31,7 +31,7 @@
object)
(defun cancel-finalization (object)
- "Cancel any finalization registers for OBJECT."
+ _N"Cancel any finalization registers for OBJECT."
(when object
;; We check to make sure object isn't nil because if there are any
;; broken weak pointers, their value will show up as nil. Therefore,
Index: src/code/float-trap.lisp
diff -u src/code/float-trap.lisp:1.35.10.1 src/code/float-trap.lisp:1.35.10.2
--- src/code/float-trap.lisp:1.35.10.1 Mon Feb 8 12:15:47 2010
+++ src/code/float-trap.lisp Tue Feb 9 13:41:59 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-trap.lisp,v 1.35.10.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/float-trap.lisp,v 1.35.10.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -42,7 +42,7 @@
(reduce #'logior
(mapcar #'(lambda (x)
(or (cdr (assoc x float-trap-alist))
- (error "Unknown float trap kind: ~S." x)))
+ (error _"Unknown float trap kind: ~S." x)))
names)))
(defconstant rounding-mode-alist
@@ -126,7 +126,7 @@
(current-exceptions nil current-x-p)
(accrued-exceptions nil accrued-x-p)
(fast-mode nil fast-mode-p))
- "This function sets options controlling the floating-point hardware. If a
+ _N"This function sets options controlling the floating-point hardware. If a
keyword is not supplied, then the current value is preserved. Possible
keywords:
@@ -159,7 +159,7 @@
(when round-p
(setf (ldb float-rounding-mode modes)
(or (cdr (assoc rounding-mode rounding-mode-alist))
- (error "Unknown rounding mode: ~S." rounding-mode))))
+ (error _"Unknown rounding mode: ~S." rounding-mode))))
(when current-x-p
(setf (ldb float-exceptions-byte modes)
(float-trap-mask current-exceptions))
@@ -187,7 +187,7 @@
;;; GET-FLOATING-POINT-MODES -- Public
;;;
(defun get-floating-point-modes ()
- "This function returns a list representing the state of the floating point
+ _N"This function returns a list representing the state of the floating point
modes. The list is in the same format as the keyword arguments to
SET-FLOATING-POINT-MODES, i.e.
(apply #'set-floating-point-modes (get-floating-point-modes))
@@ -214,7 +214,7 @@
;;; CURRENT-FLOAT-TRAP -- Interface
;;;
(defmacro current-float-trap (&rest traps)
- "Current-Float-Trap Trap-Name*
+ _N"Current-Float-Trap Trap-Name*
Return true if any of the named traps are currently trapped, false
otherwise."
`(not (zerop (logand ,(dpb (float-trap-mask traps) float-traps-byte 0)
@@ -290,12 +290,12 @@
:operation fop
:operands operands))
(t
- (error "SIGFPE with no exceptions currently enabled?"))))))
+ (error _"SIGFPE with no exceptions currently enabled?"))))))
;;; WITH-FLOAT-TRAPS-MASKED -- Public
;;;
(defmacro with-float-traps-masked (traps &body body)
- "Execute BODY with the floating point exceptions listed in TRAPS
+ _N"Execute BODY with the floating point exceptions listed in TRAPS
masked (disabled). TRAPS should be a list of possible exceptions
which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and
:DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective
Index: src/code/float.lisp
diff -u src/code/float.lisp:1.45.2.1 src/code/float.lisp:1.45.2.2
--- src/code/float.lisp:1.45.2.1 Mon Feb 8 12:15:47 2010
+++ src/code/float.lisp Tue Feb 9 13:41:59 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.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/float.lisp,v 1.45.2.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -246,7 +246,7 @@
;;; FLOAT-DENORMALIZED-P -- Public
;;;
(defun float-denormalized-p (x)
- "Return true if the float X is denormalized."
+ _N"Return true if the float X is denormalized."
(number-dispatch ((x float))
((single-float)
(and (zerop (ldb vm:single-float-exponent-byte (single-float-bits x)))
@@ -331,7 +331,7 @@
;;;
(declaim (maybe-inline float-precision))
(defun float-precision (f)
- "Returns a non-negative number of significant digits in it's float argument.
+ _N"Returns a non-negative number of significant digits in it's float argument.
Will be less than FLOAT-DIGITS if denormalized or zero."
(macrolet ((frob (digits bias decode)
`(cond ((zerop f) 0)
@@ -382,7 +382,7 @@
#+nil
(defun float-sign (float1 &optional (float2 (float 1 float1)))
- "Returns a floating-point number that has the same sign as
+ _N"Returns a floating-point number that has the same sign as
float1 and, if float2 is given, has the same absolute value
as float2."
(declare (float float1 float2))
@@ -398,7 +398,7 @@
(abs float2)))
(defun float-sign (float1 &optional float2)
- "Returns a floating-point number that has the same sign as
+ _N"Returns a floating-point number that has the same sign as
float1 and, if float2 is given, has the same absolute value
as float2."
(declare (float float1)
@@ -433,7 +433,7 @@
(declaim (inline float-digits float-radix))
(defun float-digits (f)
- "Returns a non-negative number of radix-b digits used in the
+ _N"Returns a non-negative number of radix-b digits used in the
representation of it's argument. See Common Lisp: The Language
by Guy Steele for more details."
(number-dispatch ((f float))
@@ -445,7 +445,7 @@
((double-double-float) vm:double-double-float-digits)))
(defun float-radix (f)
- "Returns (as an integer) the radix b of its floating-point
+ _N"Returns (as an integer) the radix b of its floating-point
argument."
(number-dispatch ((f float))
((float) 2)))
@@ -492,7 +492,7 @@
(biased (- exp vm:single-float-bias vm:single-float-digits)))
(declare (fixnum biased))
(unless (<= exp vm:single-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((and (zerop exp) (zerop sig))
(values 0 biased sign))
((< exp vm:single-float-normal-exponent-min)
@@ -552,7 +552,7 @@
(biased (- exp vm:double-float-bias vm:double-float-digits)))
(declare (fixnum biased))
(unless (<= exp vm:double-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((and (zerop exp) (zerop sig) (zerop lo))
(values 0 biased sign))
((< exp vm:double-float-normal-exponent-min)
@@ -633,7 +633,7 @@
(biased (- exp vm:long-float-bias vm:long-float-digits)))
(declare (fixnum biased))
(unless (<= exp vm:long-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((and (zerop exp) (zerop hi) (zerop lo))
(values 0 biased sign))
((< exp vm:long-float-normal-exponent-min)
@@ -647,7 +647,7 @@
;;; Dispatch to the correct type-specific i-d-f function.
;;;
(defun integer-decode-float (x)
- "Returns three values:
+ _N"Returns three values:
1) an integer representation of the significand.
2) the exponent for the power of 2 that the significand must be multiplied
by to get the actual value. This differs from the DECODE-FLOAT exponent
@@ -698,7 +698,7 @@
(biased (truly-the single-float-exponent
(- exp vm:single-float-bias))))
(unless (<= exp vm:single-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((zerop x)
(values 0.0f0 biased sign))
((< exp vm:single-float-normal-exponent-min)
@@ -742,7 +742,7 @@
(biased (truly-the double-float-exponent
(- exp vm:double-float-bias))))
(unless (<= exp vm:double-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((zerop x)
(values 0.0d0 biased sign))
((< exp vm:double-float-normal-exponent-min)
@@ -779,7 +779,7 @@
(sign (if (minusp exp-bits) -1l0 1l0))
(biased (truly-the long-float-exponent (- exp vm:long-float-bias))))
(unless (<= exp vm:long-float-normal-exponent-max)
- (error "Can't decode NAN or infinity: ~S." x))
+ (error _"Can't decode NAN or infinity: ~S." x))
(cond ((zerop x)
(values 0.0l0 biased sign))
((< exp vm:long-float-normal-exponent-min)
@@ -808,7 +808,7 @@
;;; Dispatch to the appropriate type-specific function.
;;;
(defun decode-float (f)
- "Returns three values:
+ _N"Returns three values:
1) a floating-point number representing the significand. This is always
between 0.5 (inclusive) and 1.0 (exclusive).
2) an integer representing the exponent.
@@ -960,7 +960,7 @@
;;; Dispatch to the correct type-specific scale-float function.
;;;
(defun scale-float (f ex)
- "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss
+ _N"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss
of precision or overflow."
(number-dispatch ((f float))
((single-float)
@@ -978,7 +978,7 @@
;;;; Converting to/from floats:
(defun float (number &optional (other () otherp))
- "Converts any REAL to a float. If OTHER is not provided, it returns a
+ _N"Converts any REAL to a float. If OTHER is not provided, it returns a
SINGLE-FLOAT if NUMBER is not already a FLOAT. If OTHER is provided, the
result is the same float format as OTHER."
(if otherp
@@ -1495,7 +1495,7 @@
) ; not x87
(defun rational (x)
- "RATIONAL produces a rational number for any real numeric argument. This is
+ _N"RATIONAL produces a rational number for any real numeric argument. This is
more efficient than RATIONALIZE, but it assumes that floating-point is
completely accurate, giving a result that isn't as pretty."
(number-dispatch ((x real))
@@ -1516,7 +1516,7 @@
#+nil
(defun rationalize (x)
- "Converts any REAL to a RATIONAL. Floats are converted to a simple rational
+ _N"Converts any REAL to a RATIONAL. Floats are converted to a simple rational
representation exploiting the assumption that floats are only accurate to
their precision. RATIONALIZE (and also RATIONAL) preserve the invariant:
(= x (float (rationalize x) x))"
@@ -1615,7 +1615,7 @@
;;; p[i]*q[i-1]-p[i-1]*q[i] = (-1)^i.
;;;
(defun rationalize (x)
- "Converts any REAL to a RATIONAL. Floats are converted to a simple rational
+ _N"Converts any REAL to a RATIONAL. Floats are converted to a simple rational
representation exploiting the assumption that floats are only accurate to
their precision. RATIONALIZE (and also RATIONAL) preserve the invariant:
(= x (float (rationalize x) x))"
Index: src/code/foreign-linkage.lisp
diff -u src/code/foreign-linkage.lisp:1.2.42.1 src/code/foreign-linkage.lisp:1.2.42.2
--- src/code/foreign-linkage.lisp:1.2.42.1 Mon Feb 8 12:15:47 2010
+++ src/code/foreign-linkage.lisp Tue Feb 9 13:41:59 2010
@@ -54,7 +54,7 @@
c-call:long))
entry-num)))
(when (zerop result)
- (error "~A is not defined as a foreign symbol"
+ (error _"~A is not defined as a foreign symbol"
symbol-name))))
(setf (gethash symbol-name linkage-hash) entry-num)
entry-num))
Index: src/code/foreign.lisp
diff -u src/code/foreign.lisp:1.57.4.1 src/code/foreign.lisp:1.57.4.2
--- src/code/foreign.lisp:1.57.4.1 Mon Feb 8 12:15:47 2010
+++ src/code/foreign.lisp Tue Feb 9 13:41:59 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.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/foreign.lisp,v 1.57.4.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -46,7 +46,7 @@
(unix:unix-close fd)
(return name))
((not (= errno unix:eexist))
- (error "Could not create temporary file ~S: ~A"
+ (error _"Could not create temporary file ~S: ~A"
name (unix:get-unix-error-msg errno)))
((= code (char-code #\Z))
@@ -75,7 +75,7 @@
(addr (int-sap *foreign-segment-free-pointer*))
(new-ptr (+ *foreign-segment-free-pointer* memory-needed)))
(when (> new-ptr (+ foreign-segment-start foreign-segment-size))
- (error "Not enough memory left."))
+ (error _"Not enough memory left."))
(setf *foreign-segment-free-pointer* new-ptr)
(allocate-system-memory-at addr memory-needed)
addr))
@@ -167,13 +167,13 @@
(make-array 4 :element-type '(unsigned-byte 8)
:initial-contents '(127 69 76 70))) ; 0x7f-E-L-F
(defun elf-p (h)
- "Make sure the header starts with the ELF magic value."
+ _N"Make sure the header starts with the ELF magic value."
(dotimes (i 4 t)
(unless (= (alien:deref h i) (aref +elf-magic+ i))
(return nil))))
(defun elf-osabi (h)
- "Return the `osabi' field in the padding of the ELF file."
+ _N"Return the `osabi' field in the padding of the ELF file."
(alien:deref h ei-osabi))
(defun elf-osabi-name (id)
@@ -196,7 +196,7 @@
(t (format nil "Unknown ABI (~D)" id))))
(defun elf-executable-p (n)
- "Given a file type number, determine whether the file is executable."
+ _N"Given a file type number, determine whether the file is executable."
(= n et-executable))
(defun file-shared-library-p (pathname)
@@ -260,7 +260,7 @@
(defconstant fat-header-magic #xcafebabe)
(defun mach-o-p (h)
- "Make sure the header starts with the mach-o magic value."
+ _N"Make sure the header starts with the mach-o magic value."
(eql (alien:slot h 'magic) mh-magic))
;;; Read an unsigned 32-bit big-endian number from STREAM.
@@ -357,29 +357,29 @@
exit 0
||#
- (format t ";;; Loading object file...~%")
+ (format t _";;; Loading object file...~%")
(multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
(unless fd
- (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+ (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
(unwind-protect
(alien:with-alien ((header eheader))
(unix:unix-read fd
(alien:alien-sap header)
(alien:alien-size eheader :bytes))
(unless (elf-p (alien:slot header 'elf-ident))
- (error (format nil "~A is not an ELF file." name)))
+ (error (format nil _"~A is not an ELF file." name)))
(let ((osabi (elf-osabi (alien:slot header 'elf-ident)))
(expected-osabi #+NetBSD elfosabi-netbsd
#+FreeBSD elfosabi-freebsd))
(unless (= osabi expected-osabi)
- (error "~A is not a ~A executable, it's a ~A executable."
+ (error _"~A is not a ~A executable, it's a ~A executable."
name
(elf-osabi-name expected-osabi)
(elf-osabi-name osabi))))
(unless (elf-executable-p (alien:slot header 'elf-type))
- (error (format nil "~A is not executable." name)))
+ (error (format nil _"~A is not executable." name)))
(alien:with-alien ((program-header pheader))
(unix:unix-read fd
@@ -394,9 +394,9 @@
(unix:unix-close fd))))
(defun parse-symbol-table (name)
- "Parse symbol table file created by load-foreign script. Modified
+ _N"Parse symbol table file created by load-foreign script. Modified
to skip undefined symbols which don't have an address."
- (format t ";;; Parsing symbol table...~%")
+ (format t _";;; Parsing symbol table...~%")
(let ((symbol-table (make-hash-table :test #'equal)))
(with-open-file (file name)
(loop
@@ -423,10 +423,10 @@
;;; expected results. It is probably good enough for now.
#+(or (and FreeBSD (not ELF)) (and sparc (not svr4)))
(defun load-object-file (name)
- (format t ";;; Loading object file...~%")
+ (format t _";;; Loading object file...~%")
(multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
(unless fd
- (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+ (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
(unwind-protect
(alien:with-alien ((header exec))
(unix:unix-read fd
@@ -526,10 +526,10 @@
#+hppa
(defun load-object-file (name)
- (format t ";;; Loading object file...~%")
+ (format t _";;; Loading object file...~%")
(multiple-value-bind (fd errno) (unix:unix-open name unix:o_rdonly 0)
(unless fd
- (error "Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
+ (error _"Could not open ~S: ~A" name (unix:get-unix-error-msg errno)))
(unwind-protect
(alien:with-alien ((header (alien:struct som_exec_auxhdr)))
(unix:unix-lseek fd (alien:alien-size (alien:struct header) :bytes)
@@ -568,7 +568,7 @@
#-(or linux bsd solaris irix)
(progn
(defun parse-symbol-table (name)
- (format t ";;; Parsing symbol table...~%")
+ (format t _";;; Parsing symbol table...~%")
(let ((symbol-table (make-hash-table :test #'equal)))
(with-open-file (file name)
(loop
@@ -595,7 +595,7 @@
#+hpux "library:cmucl.orig")
(env ext:*environment-list*)
(verbose *load-verbose*))
- "Load-foreign loads a list of C object files into a running Lisp. The files
+ _N"Load-foreign loads a list of C object files into a running Lisp. The files
argument should be a single file or a list of files. The files may be
specified as namestrings or as pathnames. The libraries argument should be a
list of library files as would be specified to ld. They will be searched in
@@ -610,7 +610,7 @@
(files (if (atom files) (list files) files)))
(when verbose
- (format t ";;; Running library:load-foreign.csh...~%")
+ (format t _";;; Running library:load-foreign.csh...~%")
(force-output))
#+hpux
(dolist (f files)
@@ -619,11 +619,11 @@
(or (eql sysid cpu-pa-risc1-0)
(and (>= sysid cpu-pa-risc1-1)
(<= sysid cpu-pa-risc-max))))
- (error "Object file is wrong format, so can't load-foreign:~
+ (error _"Object file is wrong format, so can't load-foreign:~
~% ~S"
f))
(unless (eql (read-byte stream) reloc-magic)
- (error "Object file is not relocatable, so can't load-foreign:~
+ (error _"Object file is not relocatable, so can't load-foreign:~
~% ~S"
f))))
@@ -652,10 +652,10 @@
:output error-output
:error :output)))
(unless proc
- (error "Could not run library:load-foreign.csh"))
+ (error _"Could not run library:load-foreign.csh"))
(unless (zerop (ext:process-exit-code proc))
(system:serve-all-events 0)
- (error "library:load-foreign.csh failed:~%~A"
+ (error _"library:load-foreign.csh failed:~%~A"
(get-output-stream-string error-output)))
(load-object-file output-file)
(parse-symbol-table symbol-table-file)
@@ -665,7 +665,7 @@
(when old-file
(unix:unix-unlink old-file)))))
(when verbose
- (format t ";;; Done.~%")
+ (format t _";;; Done.~%")
(force-output)))
@@ -683,15 +683,15 @@
(progn
(defconstant rtld-lazy 1
- "Lazy function call binding")
+ _N"Lazy function call binding")
(defconstant rtld-now 2
- "Immediate function call binding")
+ _N"Immediate function call binding")
#+(and linux glibc2)
(defconstant rtld-binding-mask #x3
- "Mask of binding time value")
+ _N"Mask of binding time value")
(defconstant rtld-global #-irix #x100 #+irix 4
- "If set the symbols of the loaded object and its dependencies are
+ _N"If set the symbols of the loaded object and its dependencies are
made visible as if the object were linked directly into the program")
(defvar *global-table* nil)
@@ -728,7 +728,7 @@
(setf *global-table* (acons (int-sap 0) nil nil))
(setf *global-table* (acons (dlopen nil rtld-lazy) nil nil))
(when (zerop (system:sap-int (caar *global-table*)))
- (error "Can't open global symbol table: ~S" (dlerror)))))
+ (error _"Can't open global symbol table: ~S" (dlerror)))))
(defun convert-object-file-path (path)
;; Convert path to something that dlopen might like, which means
@@ -757,11 +757,11 @@
;; which isn't very informative.
(when (zerop (sap-int sap))
(return-from load-object-file
- (values nil (format nil "Can't open object ~S: ~S" file err-string))))
+ (values nil (format nil _"Can't open object ~S: ~S" file err-string))))
(dlclose sap)
(return-from load-object-file
(values nil
- (format nil "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+ (format nil _"LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
file err-string)))))
((and recordp (null (assoc sap *global-table* :test #'sap=)))
(setf *global-table* (acons sap file *global-table*)))
@@ -793,9 +793,9 @@
(logior rtld-now rtld-global))))
(cond ((zerop (sap-int new-sap))
;; We're going down
- (error "Couldn't open library ~S: ~S" lib-path (dlerror)))
+ (error _"Couldn't open library ~S: ~S" lib-path (dlerror)))
(t
- (format t "Reloaded library ~S~%" lib-path)
+ (format t _"Reloaded library ~S~%" lib-path)
(force-output)))
(setf (car lib-entry) new-sap)
@@ -808,7 +808,7 @@
)
(new-library ()
:report "Choose new library path"
- (format *query-io* "Enter new library path: ")
+ (format *query-io* _"Enter new library path: ")
(setf lib-path (read))))))
(alien:alien-funcall (alien:extern-alien "os_resolve_data_linkage"
(alien:function c-call:void))))
@@ -829,7 +829,7 @@
(base-file nil)
(env ext:*environment-list*)
(verbose *load-verbose*))
- "Load C object files into the running Lisp. The FILES argument
+ _N"Load C object files into the running Lisp. The FILES argument
should be a single file or a list of files. The files may be specified
as namestrings or as pathnames. The LIBRARIES argument should be a
list of library files as would be specified to ld. They will be
@@ -846,12 +846,12 @@
;; dlopen(), do that instead of using the linker
(when (atom files)
(when verbose
- (format t ";;; Opening as shared library ~A ...~%" files))
+ (format t _";;; Opening as shared library ~A ...~%" files))
(multiple-value-bind (ok error-string)
(load-object-file files)
(cond (ok
(when verbose
- (format t ";;; Done.~%")
+ (format t _";;; Done.~%")
(force-output))
(return-from load-foreign))
(error-string
@@ -861,7 +861,7 @@
;; If we get here, we couldn't open the file as a shared library.
;; Try again assuming it's an object file.
(when verbose
- (format t ";;; Trying as object file ~A...~%" files)))
+ (format t _";;; Trying as object file ~A...~%" files)))
(let ((output-file (pick-temporary-file-name
@@ -869,7 +869,7 @@
(error-output (make-string-output-stream)))
(when verbose
- (format t ";;; Running ~A...~%" *dso-linker*)
+ (format t _";;; Running ~A...~%" *dso-linker*)
(force-output))
(let ((proc (ext:run-program
@@ -890,7 +890,7 @@
(error 'simple-file-error
:pathname name
:format-control
- "File does not exist: ~A."
+ _"File does not exist: ~A."
:format-arguments
(list name))))
(if (atom files)
@@ -913,15 +913,15 @@
:output error-output
:error :output)))
(unless proc
- (error "Could not run ~A" *dso-linker*))
+ (error _"Could not run ~A" *dso-linker*))
(unless (zerop (ext:process-exit-code proc))
(system:serve-all-events 0)
- (error "~A failed:~%~A" *dso-linker*
+ (error _"~A failed:~%~A" *dso-linker*
(get-output-stream-string error-output)))
(load-object-file output-file nil)
(unix:unix-unlink output-file))
(when verbose
- (format t ";;; Done.~%")
+ (format t _";;; Done.~%")
(force-output))))
#+linkage-table
Index: src/code/format-time.lisp
diff -u src/code/format-time.lisp:1.9.12.1 src/code/format-time.lisp:1.9.12.2
--- src/code/format-time.lisp:1.9.12.1 Mon Feb 8 12:15:47 2010
+++ src/code/format-time.lisp Tue Feb 9 13:41:59 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-time.lisp,v 1.9.12.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/format-time.lisp,v 1.9.12.2 2010-02-09 18:41:59 rtoy Exp $")
;;;
;;; **********************************************************************
@@ -65,7 +65,7 @@
(print-meridian t)
(print-timezone t)
(print-weekday t))
- "Format-Universal-Time formats a string containing the time and date
+ _N"Format-Universal-Time formats a string containing the time and date
given by universal-time in a common manner. The destination is any
destination which can be accepted by the Format function. The
timezone keyword is an integer specifying hours west of Greenwich.
@@ -78,14 +78,14 @@
the date (the default). The print- keywords, if nil, inhibit the
printing of the obvious part of the time/date."
(unless (valid-destination-p destination)
- (error "~A: Not a valid format destination." destination))
+ (error _"~A: Not a valid format destination." destination))
(unless (integerp universal-time)
- (error "~A: Universal-Time should be an integer." universal-time))
+ (error _"~A: Universal-Time should be an integer." universal-time))
(when timezone
(unless (and (rationalp timezone) (<= -24 timezone 24))
- (error "~A: Timezone should be a rational between -24 and 24." timezone))
+ (error _"~A: Timezone should be a rational between -24 and 24." timezone))
(unless (zerop (rem timezone 1/3600))
- (error "~A: Timezone is not a second (1/3600) multiple." timezone)))
+ (error _"~A: Timezone is not a second (1/3600) multiple." timezone)))
(multiple-value-bind (secs mins hours day month year dow dst tz)
(if timezone
@@ -101,7 +101,7 @@
(:government "~2,'0D ~:@(~A~) ~2,'0D") ;; DD MON YY
(:iso8601 "~4,'0D-~2,'0D-~2,'0D") ;; YYYY-MM-DD
(t
- (error "~A: Unrecognized :style keyword value." style))))
+ (error _"~A: Unrecognized :style keyword value." style))))
(time-args
(case style
((:rfc1123 :iso8601) (list mins hours))
@@ -220,7 +220,7 @@
(print-meridian t)
(print-timezone t)
(print-weekday t))
- "Format-Decoded-Time formats a string containing decoded-time
+ _N"Format-Decoded-Time formats a string containing decoded-time
expressed in a humanly-readable manner. The destination is any
destination which can be accepted by the Format function. The
timezone keyword is an integer specifying hours west of Greenwich.
@@ -231,22 +231,22 @@
keywords, if nil, inhibit the printing of certain semi-obvious
parts of the string."
(unless (valid-destination-p destination)
- (error "~A: Not a valid format destination." destination))
+ (error _"~A: Not a valid format destination." destination))
(unless (and (integerp seconds) (<= 0 seconds 59))
- (error "~A: Seconds should be an integer between 0 and 59." seconds))
+ (error _"~A: Seconds should be an integer between 0 and 59." seconds))
(unless (and (integerp minutes) (<= 0 minutes 59))
- (error "~A: Minutes should be an integer between 0 and 59." minutes))
+ (error _"~A: Minutes should be an integer between 0 and 59." minutes))
(unless (and (integerp hours) (<= 0 hours 23))
- (error "~A: Hours should be an integer between 0 and 23." hours))
+ (error _"~A: Hours should be an integer between 0 and 23." hours))
(unless (and (integerp day) (<= 1 day 31))
- (error "~A: Day should be an integer between 1 and 31." day))
+ (error _"~A: Day should be an integer between 1 and 31." day))
(unless (and (integerp month) (<= 1 month 12))
- (error "~A: Month should be an integer between 1 and 12." month))
+ (error _"~A: Month should be an integer between 1 and 12." month))
(unless (and (integerp year) (plusp year))
- (error "~A: Hours should be an non-negative integer." year))
+ (error _"~A: Hours should be an non-negative integer." year))
(when timezone
(unless (and (integerp timezone) (<= 0 timezone 32))
- (error "~A: Timezone should be an integer between 0 and 32."
+ (error _"~A: Timezone should be an integer between 0 and 32."
timezone)))
(format-universal-time destination
(encode-universal-time seconds minutes hours day month year)
Index: src/code/fwrappers.lisp
diff -u src/code/fwrappers.lisp:1.5.42.1 src/code/fwrappers.lisp:1.5.42.2
--- src/code/fwrappers.lisp:1.5.42.1 Mon Feb 8 12:15:47 2010
+++ src/code/fwrappers.lisp Tue Feb 9 13:41:59 2010
@@ -27,7 +27,7 @@
;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
;;; DAMAGE.
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/fwrappers.lisp,v 1.5.42.1 2010-02-08 17:15:47 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/fwrappers.lisp,v 1.5.42.2 2010-02-09 18:41:59 rtoy Exp $")
(in-package :fwrappers)
@@ -40,7 +40,7 @@
(:type kernel:funcallable-structure)
(:constructor make-fwrapper (constructor type user-data))
(:print-function print-fwrapper))
- "A funcallable instance used to implement fwrappers.
+ _N"A funcallable instance used to implement fwrappers.
The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.
This function returns an instance closure closing over an
fwrapper object, which is installed as the funcallable-instance
@@ -51,14 +51,14 @@
(user-data nil :type t))
(defun print-fwrapper (fwrapper stream depth)
- "Print-function for struct FWRAPPER."
+ _N"Print-function for struct FWRAPPER."
(declare (ignore depth))
(print-unreadable-object (fwrapper stream :type t :identity t)
(format stream "~s" (fwrapper-type fwrapper))))
(declaim (inline fwrapper-or-nil))
(defun fwrapper-or-nil (fun)
- "Return FUN if it is an fwrapper or nil if it isn't."
+ _N"Return FUN if it is an fwrapper or nil if it isn't."
(and (functionp fun)
;; Necessary for cold-load reasons.
(= (get-type fun) vm:funcallable-instance-header-type)
@@ -66,7 +66,7 @@
fun))
(defmacro do-fwrappers ((var fdefn &optional result) &body body)
- "Evaluate BODY with VAR bound to consecutive fwrappers of
+ _N"Evaluate BODY with VAR bound to consecutive fwrappers of
FDEFN. Return RESULT at the end."
`(loop for ,var = (fwrapper-or-nil (fdefn-function ,fdefn))
then (fwrapper-or-nil (fwrapper-next ,var))
@@ -75,13 +75,13 @@
(declaim (inline last-fwrapper))
(defun last-fwrapper (fdefn)
- "Return tha last encapsulation of FDEFN or NIL if none."
+ _N"Return tha last encapsulation of FDEFN or NIL if none."
(do-fwrappers (f fdefn)
(when (null (fwrapper-or-nil (fwrapper-next f)))
(return f))))
(defun push-fwrapper (f function-name)
- "Prepend encapsulation F to the definition of FUNCTION-NAME.
+ _N"Prepend encapsulation F to the definition of FUNCTION-NAME.
Signal an error if FUNCTION-NAME is an undefined function."
(declare (type fwrapper f))
(let ((fdefn (fdefn-or-lose function-name)))
@@ -89,19 +89,19 @@
(setf (fdefn-function fdefn) f)))
(defun delete-fwrapper (f function-name)
- "Remove fwrapper F from the definition of FUNCTION-NAME."
+ _N"Remove fwrapper F from the definition of FUNCTION-NAME."
(set-fwrappers function-name
(delete f (list-fwrappers function-name))))
(defun list-fwrappers (function-name)
- "Return a list of all fwrappers of FUNCTION-NAME, ordered
+ _N"Return a list of all fwrappers of FUNCTION-NAME, ordered
from outermost to innermost."
(collect ((result))
(do-fwrappers (f (fdefn-or-lose function-name) (result))
(result f))))
(defun set-fwrappers (function-name fwrappers)
- "Set FUNCTION-NAMES's fwrappers to elements of the list
+ _N"Set FUNCTION-NAMES's fwrappers to elements of the list
FWRAPPERS, which is assumed to be ordered from outermost to
innermost. FWRAPPERS null means remove all fwrappers."
(let ((fdefn (fdefn-or-lose function-name))
@@ -111,7 +111,7 @@
(push-fwrapper f function-name))))
(defun fwrap (function-name constructor &key type user-data)
- "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,
+ _N"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,
created by calling CONSTRUCTOR. CONSTRUCTOR is a function
defined with DEFINE-FWRAPPER, or the name of such a function.
Return the fwrapper created. USER-DATA is arbitrary data to be
@@ -123,7 +123,7 @@
(push-fwrapper f function-name)))
(defun funwrap (function-name &key (type nil type-p) test)
- "Remove fwrappers from the function named FUNCTION-NAME.
+ _N"Remove fwrappers from the function named FUNCTION-NAME.
If TYPE is supplied, remove fwrappers whose type is equal to TYPE.
If TEST is supplied, remove fwrappers satisfying TEST.
If both are not specified, remove all fwrappers."
@@ -136,13 +136,13 @@
(set-fwrappers function-name (new)))))
(defun update-fwrapper (f)
- "Update the funcallable instance function of fwrapper F from its
+ _N"Update the funcallable instance function of fwrapper F from its
constructor."
(setf (kernel:funcallable-instance-function f)
(funcall (fwrapper-constructor f) f)))
(defun update-fwrappers (function-name &key (type nil type-p) test)
- "Update fwrapper function definitions of FUNCTION-NAME.
+ _N"Update fwrapper function definitions of FUNCTION-NAME.
If TYPE is supplied, update fwrappers whose type is equal to TYPE.
If TEST is supplied, update fwrappers satisfying TEST."
(do-fwrappers (f (fdefn-or-lose function-name))
@@ -151,7 +151,7 @@
(update-fwrapper f)))))
(defun find-fwrapper (function-name &key (type nil type-p) test)
- "Find an fwrapper of FUNCTION-NAME.
+ _N"Find an fwrapper of FUNCTION-NAME.
If TYPE is supplied, find an fwrapper whose type is equal to TYPE.
If TEST is supplied, find an fwrapper satisfying TEST."
(do-fwrappers (f (fdefn-or-lose function-name))
@@ -160,7 +160,7 @@
(return f)))))
(defmacro define-fwrapper (name lambda-list &body body &environment env)
- "Like DEFUN, but define a function wrapper.
+ _N"Like DEFUN, but define a function wrapper.
In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently
executing fwrapper. FWRAPPERS:CALL-NEXT-FUNCTION can be used
in BODY to call the next fwrapper or the primary function. When
@@ -171,12 +171,12 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun expand-define-fwrapper (name lambda-list body env)
- "Return the expansion of a DEFINE-FWRAPPER."
+ _N"Return the expansion of a DEFINE-FWRAPPER."
(multiple-value-bind (required optional restp rest keyp keys allowp
aux morep)
(kernel:parse-lambda-list lambda-list)
(when morep
- (error "&MORE not supported in fwrapper lambda lists"))
+ (error _"&MORE not supported in fwrapper lambda lists"))
(multiple-value-bind (body declarations documentation)
(system:parse-body body env t)
(multiple-value-bind (lambda-list call-next)
@@ -217,7 +217,7 @@
, at body))))))))
(defun uses-vars-p (body optionals keys rest env)
- "First value is true if BODY refers to any of the variables in
+ _N"First value is true if BODY refers to any of the variables in
OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST
returns. Second value is true if BODY refers to REST."
(collect ((vars))
@@ -251,22 +251,22 @@
;;;
(define-fwrapper encapsulation-fwrapper (&rest args)
- "Fwrapper for old-style encapsulations."
+ _N"Fwrapper for old-style encapsulations."
(let ((basic-definition (fwrapper-next fwrapper))
(argument-list args))
(declare (special basic-definition argument-list))
(eval (fwrapper-user-data fwrapper))))
(defun encapsulate (name type body)
- "This function is deprecated; use fwrappers instead."
+ _N"This function is deprecated; use fwrappers instead."
(fwrap name #'encapsulation-fwrapper :type type :user-data body))
(defun unencapsulate (name type)
- "This function is deprecated; use fwrappers instead."
+ _N"This function is deprecated; use fwrappers instead."
(funwrap name :type type))
(defun encapsulated-p (name type)
- "This function is deprecated; use fwrappers instead."
+ _N"This function is deprecated; use fwrappers instead."
(not (null (find-fwrapper name :type type))))
;;; end of file
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.5 src/i18n/locale/cmucl.pot:1.1.2.6
--- src/i18n/locale/cmucl.pot:1.1.2.5 Tue Feb 9 10:18:21 2010
+++ src/i18n/locale/cmucl.pot Tue Feb 9 13:41:59 2010
@@ -73,6 +73,196 @@
msgid "_@ is a reserved reader macro prefix."
msgstr ""
+#: target:code/fwrappers.lisp
+msgid ""
+"A funcallable instance used to implement fwrappers.\n"
+" The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
+" This function returns an instance closure closing over an \n"
+" fwrapper object, which is installed as the funcallable-instance\n"
+" function of the fwrapper object."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Print-function for struct FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return FUN if it is an fwrapper or nil if it isn't."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Evaluate BODY with VAR bound to consecutive fwrappers of\n"
+" FDEFN. Return RESULT at the end."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return tha last encapsulation of FDEFN or NIL if none."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
+" Signal an error if FUNCTION-NAME is an undefined function."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
+" from outermost to innermost."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Set FUNCTION-NAMES's fwrappers to elements of the list\n"
+" FWRAPPERS, which is assumed to be ordered from outermost to\n"
+" innermost. FWRAPPERS null means remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
+" created by calling CONSTRUCTOR. CONSTRUCTOR is a function\n"
+" defined with DEFINE-FWRAPPER, or the name of such a function.\n"
+" Return the fwrapper created. USER-DATA is arbitrary data to be\n"
+" associated with the fwrapper. It is accessible in wrapper\n"
+" functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
+" FWRAPPER)."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Remove fwrappers from the function named FUNCTION-NAME.\n"
+" If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
+" If TEST is supplied, remove fwrappers satisfying TEST.\n"
+" If both are not specified, remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update the funcallable instance function of fwrapper F from its\n"
+" constructor."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update fwrapper function definitions of FUNCTION-NAME.\n"
+" If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
+" If TEST is supplied, update fwrappers satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Find an fwrapper of FUNCTION-NAME.\n"
+" If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
+" If TEST is supplied, find an fwrapper satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Like DEFUN, but define a function wrapper.\n"
+" In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
+" executing fwrapper. FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
+" in BODY to call the next fwrapper or the primary function. When\n"
+" called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
+" function with the original args to the fwrapper, otherwise it\n"
+" invokes the next function with the supplied args."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return the expansion of a DEFINE-FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"First value is true if BODY refers to any of the variables in\n"
+" OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
+" returns. Second value is true if BODY refers to REST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Fwrapper for old-style encapsulations."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "This function is deprecated; use fwrappers instead."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Define (NAME ...) to be a valid function name whose syntax is checked\n"
+" by BODY. In BODY, VAR is bound to an actual function name of the\n"
+" form (NAME ...) to check. BODY should return two values.\n"
+" First value true means the function name is valid. Second value\n"
+" is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
+" and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"First value is true if NAME has valid function name syntax.\n"
+" Second value is the name, a symbol, to use as a block name in DEFUNs\n"
+" and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the fdefn object for NAME. If it doesn't already exist and CREATE\n"
+" is non-NIL, create a new (unbound) one."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Invalid function name: ~S"
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the FDEFN of NAME. Signal an error if there is none\n"
+" or if it's function is null."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Returns the definition for name, including any encapsulations. Settable\n"
+" with SETF."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return FUNCTION-NAME's global function definition.\n"
+" If FUNCTION-NAME is fwrapped, return the primary function definition\n"
+" stored in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"This holds functions that (SETF FDEFINITION) invokes before storing the\n"
+" new value. These functions take the function name and the new value."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
+" If FUNCTION-NAME is fwrapped, set the primary function stored\n"
+" in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Return true if name has a global function definition."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Make Name have no global function definition."
+msgstr ""
+
#: target:code/error.lisp
msgid "&rest keyword is ~:[missing~;misplaced~]."
msgstr ""
@@ -1449,6 +1639,164 @@
msgid "Too large to be represented as a ~S:~% ~S"
msgstr ""
+#: target:code/float-trap.lisp
+msgid "Unknown float trap kind: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function sets options controlling the floating-point hardware. If a\n"
+" keyword is not supplied, then the current value is preserved. Possible\n"
+" keywords:\n"
+"\n"
+" :TRAPS\n"
+" A list of the exception conditions that should cause traps. Possible"
+"\n"
+" exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+" :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+" all traps except :INEXACT are enabled.\n"
+"\n"
+" :ROUNDING-MODE\n"
+" The rounding mode to use when the result is not exact. Possible "
+"values\n"
+" are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+" Initially, the rounding mode is :NEAREST.\n"
+"\n"
+" :CURRENT-EXCEPTIONS\n"
+" :ACCRUED-EXCEPTIONS\n"
+" These arguments allow setting of the exception flags. The main use "
+"is\n"
+" setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+" :FAST-MODE\n"
+" Set the hardware's \"fast mode\" flag, if any. When set, IEEE\n"
+" conformance or debuggability may be impaired. Some machines may not\n"
+" have this feature, in which case the value is always NIL.\n"
+"\n"
+" GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+" currently in effect."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+" modes. The list is in the same format as the keyword arguments to\n"
+" SET-FLOATING-POINT-MODES, i.e. \n"
+" (apply #'set-floating-point-modes (get-floating-point-modes))\n"
+"\n"
+" sets the floating point modes to their current values (and thus is a "
+"no-op)."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Current-Float-Trap Trap-Name*\n"
+" Return true if any of the named traps are currently trapped, false\n"
+" otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "SIGFPE with no exceptions currently enabled?"
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+" masked (disabled). TRAPS should be a list of possible exceptions\n"
+" which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+" :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+" accrued exceptions are cleared at the start of the body to support\n"
+" their testing within, and restored on exit."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is denormalized."
+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."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a floating-point number that has the same sign as\n"
+" float1 and, if float2 is given, has the same absolute value\n"
+" as float2."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of radix-b digits used in the\n"
+" representation of it's argument. See Common Lisp: The Language\n"
+" by Guy Steele for more details."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Returns (as an integer) the radix b of its floating-point\n"
+" argument."
+msgstr ""
+
+#: target:code/irrat.lisp target:code/float.lisp
+msgid "Can't decode NAN or infinity: ~S."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+" 1) an integer representation of the significand.\n"
+" 2) the exponent for the power of 2 that the significand must be multiplie"
+"d\n"
+" by to get the actual value. This differs from the DECODE-FLOAT "
+"exponent\n"
+" by FLOAT-DIGITS, since the significand has been scaled to have all "
+"its\n"
+" digits before the radix point.\n"
+" 3) -1 or 1 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+" 1) a floating-point number representing the significand. This is always\n"
+" between 0.5 (inclusive) and 1.0 (exclusive).\n"
+" 2) an integer representing the exponent.\n"
+" 3) -1.0 or 1.0 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
+" of precision or overflow."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a float. If OTHER is not provided, it returns a\n"
+" SINGLE-FLOAT if NUMBER is not already a FLOAT. If OTHER is provided, the\n"
+" result is the same float format as OTHER."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"RATIONAL produces a rational number for any real numeric argument. This is\n"
+" more efficient than RATIONALIZE, but it assumes that floating-point is\n"
+" completely accurate, giving a result that isn't as pretty."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a RATIONAL. Floats are converted to a simple rational\n"
+" representation exploiting the assumption that floats are only accurate to\n"
+" their precision. RATIONALIZE (and also RATIONAL) preserve the invariant:\n"
+" (= x (float (rationalize x) x))"
+msgstr ""
+
#: target:code/char.lisp
msgid "The upper exclusive bound on values produced by CHAR-CODE."
msgstr ""
@@ -2389,6 +2737,238 @@
msgid "The external-format for encoding filenames is already set."
msgstr ""
+#: target:code/filesys.lisp
+msgid ""
+"Remove any occurrences of \\ from the string because we've already\n"
+" checked for whatever may have been backslashed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Backslash in bad place."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
+" pathname namestrings. They are also ignored when computing\n"
+" namestrings for pathname objects. Thus, *, ?, etc. are not\n"
+" wildcards when parsing a namestring, and are not escaped when\n"
+" printing pathnames."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "``['' with no corresponding ``]''"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~A already names a logical host"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid pattern piece: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ":BACK cannot be represented in namestrings."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid directory component: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid value for a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify the type without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a version without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S cannot be represented relative to ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot supply a type without a name:~% ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Convert PATHNAME into a string that can be used with UNIX system calls.\n"
+" Search-lists and wild-cards are expanded. If optional argument\n"
+" FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.\n"
+" If optional argument EXECUTABLE-ONLY is true, NIL is returned\n"
+" unless an executable version of PATHNAME exists."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S is ambiguous:~{~% ~A~}"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return the pathname for the actual file described by the pathname\n"
+" An error of type file-error is signalled if no such file exists,\n"
+" or the pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Bad place for a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "The file ~S does not exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a pathname which is the truename of the file if it exists, NIL\n"
+" otherwise. An error of type file-error is signalled if pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Rename File to have the specified New-Name. If file is a stream open to a\n"
+" file, then the associated file is renamed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S can't be created."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Failed to rename ~A to ~A: ~A"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Delete the specified file."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S doesn't exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Could not delete ~A: ~A."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Delete old versions of files matching the given Pathname,\n"
+"optionally keeping some of the most recent old versions."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the home directory of the logged in user as a pathname.\n"
+" This is obtained from the logical name \"home:\"."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return file's creation date, or NIL if it doesn't exist.\n"
+" An error of type file-error is signalled if file is a wild pathname"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the file author as a string, or nil if the author cannot be\n"
+" determined. Signals an error of type file-error if file doesn't exist,\n"
+" or file is a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns a list of pathnames, one for each file that matches the given\n"
+" pathname. Supplying :ALL as nil causes this to ignore Unix dot files. "
+"This\n"
+" never includes Unix dot and dot-dot in the result. If :TRUENAMEP is NIL,"
+"\n"
+" then symbolic links in the result are not expanded, which is not the\n"
+" default because TRUENAME does follow links and the result pathnames are\n"
+" defined to be the TRUENAME of the pathname (the truename of a link may "
+"well\n"
+" be in another directory). If FOLLOW-LINKS is NIL then symbolic links "
+"are\n"
+" not followed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Like Directory, but prints a terse, multi-column directory listing\n"
+" instead of returning a list of pathnames. When :all is supplied and\n"
+" non-nil, then Unix dot files are included too (as ls -a). When :verbose\n"
+" is supplied and non-nil, then a long listing of miscellaneous\n"
+" information is output one file per line."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Directory of ~A:~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Couldn't stat ~A -- ~A.~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a list of all files which are possible completions of Pathname.\n"
+" We look in the directory specified by Defaults as well as looking down\n"
+" the search list."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"File-writable accepts a pathname and returns T if the current\n"
+" process can write it, and NIL otherwise."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the pathname for the default directory. This is the place where\n"
+" a file will be written if no directory is specified. This may be changed\n"
+" with setf."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Tests whether the directories containing the specified file\n"
+" actually exist, and attempts to create them if they do not.\n"
+" Portable programs should avoid using the :MODE keyword argument."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~&Creating directory: ~A~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Can't create directory ~A."
+msgstr ""
+
+#: target:code/foreign-linkage.lisp
+msgid "~A is not defined as a foreign symbol"
+msgstr ""
+
#: target:code/eval.lisp
msgid ""
"Keywords that you can put in a lambda-list, supposing you should want\n"
@@ -3296,6 +3876,16 @@
msgid "dfixnum became too big ~a/~a + ~a/~a"
msgstr ""
+#: target:code/final.lisp
+msgid ""
+"Arrange for FUNCTION to be called when there are no more references to\n"
+" OBJECT. FUNCTION takes no arguments."
+msgstr ""
+
+#: target:code/final.lisp
+msgid "Cancel any finalization registers for OBJECT."
+msgstr ""
+
#: target:code/describe.lisp
msgid "Depth of recursive descriptions allowed."
msgstr ""
@@ -3597,6 +4187,211 @@
msgid "~&It is defined in:~&~A"
msgstr ""
+#: target:code/format-time.lisp
+msgid ""
+"Format-Universal-Time formats a string containing the time and date\n"
+" given by universal-time in a common manner. The destination is any\n"
+" destination which can be accepted by the Format function. The\n"
+" timezone keyword is an integer specifying hours west of Greenwich.\n"
+" The style keyword can be :short (numeric date), :long (months and\n"
+" weekdays expressed as words), :abbreviated (like :long but words\n"
+" are abbreviated), :rfc1123 (conforming to RFC 1123), :government\n"
+" (of the form \"XX Mon XX XX:XX:XX\"), or :iso8601 (conforming to\n"
+" ISO 8601), which is the recommended way of printing date and time.\n"
+" The keyword date-first, if nil, will print the time first instead of\n"
+" the date (the default). The print- keywords, if nil, inhibit the\n"
+" printing of the obvious part of the time/date."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Not a valid format destination."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Universal-Time should be an integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be a rational between -24 and 24."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone is not a second (1/3600) multiple."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Unrecognized :style keyword value."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Decoded-Time formats a string containing decoded-time\n"
+" expressed in a humanly-readable manner. The destination is any\n"
+" destination which can be accepted by the Format function. The\n"
+" timezone keyword is an integer specifying hours west of Greenwich.\n"
+" The style keyword can be :short (numeric date), :long (months and\n"
+" weekdays expressed as words), or :abbreviated (like :long but words are\n"
+" abbreviated). The keyword date-first, if nil, will cause the time\n"
+" to be printed first instead of the date (the default). The print-\n"
+" keywords, if nil, inhibit the printing of certain semi-obvious\n"
+" parts of the string."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Seconds should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Minutes should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an integer between 0 and 23."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Day should be an integer between 1 and 31."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Month should be an integer between 1 and 12."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an non-negative integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be an integer between 0 and 32."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not create temporary file ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the ELF magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Return the `osabi' field in the padding of the ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Given a file type number, determine whether the file is executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the mach-o magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Parse symbol table file created by load-foreign script. Modified\n"
+"to skip undefined symbols which don't have an address."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load-foreign loads a list of C object files into a running Lisp. The files\n"
+" argument should be a single file or a list of files. The files may be\n"
+" specified as namestrings or as pathnames. The libraries argument should "
+"be a\n"
+" list of library files as would be specified to ld. They will be searched "
+"in\n"
+" the order given. The default is just \"-lc\", i.e., the C library. The\n"
+" base-file argument is used to specify a file to use as the starting place "
+"for\n"
+" defined symbols. The default is the C start up code for Lisp. The env\n"
+" argument is the Unix environment variable definitions for the invocation "
+"of\n"
+" the linker. The default is the environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Lazy function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Immediate function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Mask of binding time value"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"If set the symbols of the loaded object and its dependencies are\n"
+" made visible as if the object were linked directly into the program"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open global symbol table: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open object ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Couldn't open library ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Reloaded library ~S~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Enter new library path: "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Done.~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Trying as object file ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A failed:~%~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
#: target:code/defstruct.lisp
msgid ""
"Controls compiling DEFSTRUCT :print-function and :print-method\n"
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.5 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.6
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.5 Tue Feb 9 10:18:21 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Tue Feb 9 13:41:59 2010
@@ -72,6 +72,196 @@
msgid "_@ is a reserved reader macro prefix."
msgstr ""
+#: target:code/fwrappers.lisp
+msgid ""
+"A funcallable instance used to implement fwrappers.\n"
+" The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
+" This function returns an instance closure closing over an \n"
+" fwrapper object, which is installed as the funcallable-instance\n"
+" function of the fwrapper object."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Print-function for struct FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return FUN if it is an fwrapper or nil if it isn't."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Evaluate BODY with VAR bound to consecutive fwrappers of\n"
+" FDEFN. Return RESULT at the end."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return tha last encapsulation of FDEFN or NIL if none."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
+" Signal an error if FUNCTION-NAME is an undefined function."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
+" from outermost to innermost."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Set FUNCTION-NAMES's fwrappers to elements of the list\n"
+" FWRAPPERS, which is assumed to be ordered from outermost to\n"
+" innermost. FWRAPPERS null means remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
+" created by calling CONSTRUCTOR. CONSTRUCTOR is a function\n"
+" defined with DEFINE-FWRAPPER, or the name of such a function.\n"
+" Return the fwrapper created. USER-DATA is arbitrary data to be\n"
+" associated with the fwrapper. It is accessible in wrapper\n"
+" functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
+" FWRAPPER)."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Remove fwrappers from the function named FUNCTION-NAME.\n"
+" If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
+" If TEST is supplied, remove fwrappers satisfying TEST.\n"
+" If both are not specified, remove all fwrappers."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update the funcallable instance function of fwrapper F from its\n"
+" constructor."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Update fwrapper function definitions of FUNCTION-NAME.\n"
+" If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
+" If TEST is supplied, update fwrappers satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Find an fwrapper of FUNCTION-NAME.\n"
+" If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
+" If TEST is supplied, find an fwrapper satisfying TEST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"Like DEFUN, but define a function wrapper.\n"
+" In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
+" executing fwrapper. FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
+" in BODY to call the next fwrapper or the primary function. When\n"
+" called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
+" function with the original args to the fwrapper, otherwise it\n"
+" invokes the next function with the supplied args."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Return the expansion of a DEFINE-FWRAPPER."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid ""
+"First value is true if BODY refers to any of the variables in\n"
+" OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
+" returns. Second value is true if BODY refers to REST."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "Fwrapper for old-style encapsulations."
+msgstr ""
+
+#: target:code/fwrappers.lisp
+msgid "This function is deprecated; use fwrappers instead."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Define (NAME ...) to be a valid function name whose syntax is checked\n"
+" by BODY. In BODY, VAR is bound to an actual function name of the\n"
+" form (NAME ...) to check. BODY should return two values.\n"
+" First value true means the function name is valid. Second value\n"
+" is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
+" and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"First value is true if NAME has valid function name syntax.\n"
+" Second value is the name, a symbol, to use as a block name in DEFUNs\n"
+" and in similar situations."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the fdefn object for NAME. If it doesn't already exist and CREATE\n"
+" is non-NIL, create a new (unbound) one."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Invalid function name: ~S"
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return the FDEFN of NAME. Signal an error if there is none\n"
+" or if it's function is null."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Returns the definition for name, including any encapsulations. Settable\n"
+" with SETF."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Return FUNCTION-NAME's global function definition.\n"
+" If FUNCTION-NAME is fwrapped, return the primary function definition\n"
+" stored in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"This holds functions that (SETF FDEFINITION) invokes before storing the\n"
+" new value. These functions take the function name and the new value."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid ""
+"Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
+" If FUNCTION-NAME is fwrapped, set the primary function stored\n"
+" in the innermost fwrapper."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Return true if name has a global function definition."
+msgstr ""
+
+#: target:code/fdefinition.lisp
+msgid "Make Name have no global function definition."
+msgstr ""
+
#: target:code/error.lisp
msgid "&rest keyword is ~:[missing~;misplaced~]."
msgstr ""
@@ -1450,6 +1640,165 @@
msgid "Too large to be represented as a ~S:~% ~S"
msgstr ""
+#: target:code/float-trap.lisp
+msgid "Unknown float trap kind: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function sets options controlling the floating-point hardware. If a\n"
+" keyword is not supplied, then the current value is preserved. Possible\n"
+" keywords:\n"
+"\n"
+" :TRAPS\n"
+" A list of the exception conditions that should cause traps. "
+"Possible\n"
+" exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+" :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+" all traps except :INEXACT are enabled.\n"
+"\n"
+" :ROUNDING-MODE\n"
+" The rounding mode to use when the result is not exact. Possible "
+"values\n"
+" are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+" Initially, the rounding mode is :NEAREST.\n"
+"\n"
+" :CURRENT-EXCEPTIONS\n"
+" :ACCRUED-EXCEPTIONS\n"
+" These arguments allow setting of the exception flags. The main use "
+"is\n"
+" setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+" :FAST-MODE\n"
+" Set the hardware's \"fast mode\" flag, if any. When set, IEEE\n"
+" conformance or debuggability may be impaired. Some machines may not\n"
+" have this feature, in which case the value is always NIL.\n"
+"\n"
+" GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+" currently in effect."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+" modes. The list is in the same format as the keyword arguments to\n"
+" SET-FLOATING-POINT-MODES, i.e. \n"
+" (apply #'set-floating-point-modes (get-floating-point-modes))\n"
+"\n"
+" sets the floating point modes to their current values (and thus is a no-"
+"op)."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Current-Float-Trap Trap-Name*\n"
+" Return true if any of the named traps are currently trapped, false\n"
+" otherwise."
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid "SIGFPE with no exceptions currently enabled?"
+msgstr ""
+
+#: target:code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+" masked (disabled). TRAPS should be a list of possible exceptions\n"
+" which includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+" :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+" accrued exceptions are cleared at the start of the body to support\n"
+" their testing within, and restored on exit."
+msgstr ""
+
+#: target:code/float.lisp
+msgid "Return true if the float X is denormalized."
+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."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a floating-point number that has the same sign as\n"
+" float1 and, if float2 is given, has the same absolute value\n"
+" as float2."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns a non-negative number of radix-b digits used in the\n"
+" representation of it's argument. See Common Lisp: The Language\n"
+" by Guy Steele for more details."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns (as an integer) the radix b of its floating-point\n"
+" argument."
+msgstr ""
+
+#: target:code/irrat.lisp target:code/float.lisp
+msgid "Can't decode NAN or infinity: ~S."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+" 1) an integer representation of the significand.\n"
+" 2) the exponent for the power of 2 that the significand must be "
+"multiplied\n"
+" by to get the actual value. This differs from the DECODE-FLOAT "
+"exponent\n"
+" by FLOAT-DIGITS, since the significand has been scaled to have all "
+"its\n"
+" digits before the radix point.\n"
+" 3) -1 or 1 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns three values:\n"
+" 1) a floating-point number representing the significand. This is always\n"
+" between 0.5 (inclusive) and 1.0 (exclusive).\n"
+" 2) an integer representing the exponent.\n"
+" 3) -1.0 or 1.0 (i.e. the sign of the argument.)"
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
+" of precision or overflow."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a float. If OTHER is not provided, it returns a\n"
+" SINGLE-FLOAT if NUMBER is not already a FLOAT. If OTHER is provided, the\n"
+" result is the same float format as OTHER."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"RATIONAL produces a rational number for any real numeric argument. This is\n"
+" more efficient than RATIONALIZE, but it assumes that floating-point is\n"
+" completely accurate, giving a result that isn't as pretty."
+msgstr ""
+
+#: target:code/float.lisp
+msgid ""
+"Converts any REAL to a RATIONAL. Floats are converted to a simple rational\n"
+" representation exploiting the assumption that floats are only accurate to\n"
+" their precision. RATIONALIZE (and also RATIONAL) preserve the invariant:\n"
+" (= x (float (rationalize x) x))"
+msgstr ""
+
#: target:code/char.lisp
msgid "The upper exclusive bound on values produced by CHAR-CODE."
msgstr ""
@@ -2403,6 +2752,238 @@
msgid "The external-format for encoding filenames is already set."
msgstr ""
+#: target:code/filesys.lisp
+msgid ""
+"Remove any occurrences of \\ from the string because we've already\n"
+" checked for whatever may have been backslashed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Backslash in bad place."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
+" pathname namestrings. They are also ignored when computing\n"
+" namestrings for pathname objects. Thus, *, ?, etc. are not\n"
+" wildcards when parsing a namestring, and are not escaped when\n"
+" printing pathnames."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "``['' with no corresponding ``]''"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~A already names a logical host"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid pattern piece: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ":BACK cannot be represented in namestrings."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid directory component: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Invalid value for a pathname name: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify the type without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a directory separator in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a dot in a pathname type: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot specify a version without a file: ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S cannot be represented relative to ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Cannot supply a type without a name:~% ~S"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Convert PATHNAME into a string that can be used with UNIX system calls.\n"
+" Search-lists and wild-cards are expanded. If optional argument\n"
+" FOR-INPUT is true and PATHNAME doesn't exist, NIL is returned.\n"
+" If optional argument EXECUTABLE-ONLY is true, NIL is returned\n"
+" unless an executable version of PATHNAME exists."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S is ambiguous:~{~% ~A~}"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return the pathname for the actual file described by the pathname\n"
+" An error of type file-error is signalled if no such file exists,\n"
+" or the pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Bad place for a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "The file ~S does not exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a pathname which is the truename of the file if it exists, NIL\n"
+" otherwise. An error of type file-error is signalled if pathname is wild."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Rename File to have the specified New-Name. If file is a stream open to a\n"
+" file, then the associated file is renamed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S can't be created."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Failed to rename ~A to ~A: ~A"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Delete the specified file."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~S doesn't exist."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Could not delete ~A: ~A."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Delete old versions of files matching the given Pathname,\n"
+"optionally keeping some of the most recent old versions."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the home directory of the logged in user as a pathname.\n"
+" This is obtained from the logical name \"home:\"."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return file's creation date, or NIL if it doesn't exist.\n"
+" An error of type file-error is signalled if file is a wild pathname"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the file author as a string, or nil if the author cannot be\n"
+" determined. Signals an error of type file-error if file doesn't exist,\n"
+" or file is a wild pathname."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns a list of pathnames, one for each file that matches the given\n"
+" pathname. Supplying :ALL as nil causes this to ignore Unix dot files. "
+"This\n"
+" never includes Unix dot and dot-dot in the result. If :TRUENAMEP is "
+"NIL,\n"
+" then symbolic links in the result are not expanded, which is not the\n"
+" default because TRUENAME does follow links and the result pathnames are\n"
+" defined to be the TRUENAME of the pathname (the truename of a link may "
+"well\n"
+" be in another directory). If FOLLOW-LINKS is NIL then symbolic links "
+"are\n"
+" not followed."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Like Directory, but prints a terse, multi-column directory listing\n"
+" instead of returning a list of pathnames. When :all is supplied and\n"
+" non-nil, then Unix dot files are included too (as ls -a). When :verbose\n"
+" is supplied and non-nil, then a long listing of miscellaneous\n"
+" information is output one file per line."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Directory of ~A:~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Couldn't stat ~A -- ~A.~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Return a list of all files which are possible completions of Pathname.\n"
+" We look in the directory specified by Defaults as well as looking down\n"
+" the search list."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"File-writable accepts a pathname and returns T if the current\n"
+" process can write it, and NIL otherwise."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Returns the pathname for the default directory. This is the place where\n"
+" a file will be written if no directory is specified. This may be changed\n"
+" with setf."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid ""
+"Tests whether the directories containing the specified file\n"
+" actually exist, and attempts to create them if they do not.\n"
+" Portable programs should avoid using the :MODE keyword argument."
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "~&Creating directory: ~A~%"
+msgstr ""
+
+#: target:code/filesys.lisp
+msgid "Can't create directory ~A."
+msgstr ""
+
+#: target:code/foreign-linkage.lisp
+msgid "~A is not defined as a foreign symbol"
+msgstr ""
+
#: target:code/eval.lisp
msgid ""
"Keywords that you can put in a lambda-list, supposing you should want\n"
@@ -3310,6 +3891,16 @@
msgid "dfixnum became too big ~a/~a + ~a/~a"
msgstr ""
+#: target:code/final.lisp
+msgid ""
+"Arrange for FUNCTION to be called when there are no more references to\n"
+" OBJECT. FUNCTION takes no arguments."
+msgstr ""
+
+#: target:code/final.lisp
+msgid "Cancel any finalization registers for OBJECT."
+msgstr ""
+
#: target:code/describe.lisp
msgid "Depth of recursive descriptions allowed."
msgstr "허용ë˜ëŠ” 재귀ì ì¸ ë¬˜ì‚¬ì˜ ê¹Šì´."
@@ -3611,6 +4202,211 @@
msgid "~&It is defined in:~&~A"
msgstr ""
+#: target:code/format-time.lisp
+msgid ""
+"Format-Universal-Time formats a string containing the time and date\n"
+" given by universal-time in a common manner. The destination is any\n"
+" destination which can be accepted by the Format function. The\n"
+" timezone keyword is an integer specifying hours west of Greenwich.\n"
+" The style keyword can be :short (numeric date), :long (months and\n"
+" weekdays expressed as words), :abbreviated (like :long but words\n"
+" are abbreviated), :rfc1123 (conforming to RFC 1123), :government\n"
+" (of the form \"XX Mon XX XX:XX:XX\"), or :iso8601 (conforming to\n"
+" ISO 8601), which is the recommended way of printing date and time.\n"
+" The keyword date-first, if nil, will print the time first instead of\n"
+" the date (the default). The print- keywords, if nil, inhibit the\n"
+" printing of the obvious part of the time/date."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Not a valid format destination."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Universal-Time should be an integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be a rational between -24 and 24."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone is not a second (1/3600) multiple."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Unrecognized :style keyword value."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid ""
+"Format-Decoded-Time formats a string containing decoded-time\n"
+" expressed in a humanly-readable manner. The destination is any\n"
+" destination which can be accepted by the Format function. The\n"
+" timezone keyword is an integer specifying hours west of Greenwich.\n"
+" The style keyword can be :short (numeric date), :long (months and\n"
+" weekdays expressed as words), or :abbreviated (like :long but words are\n"
+" abbreviated). The keyword date-first, if nil, will cause the time\n"
+" to be printed first instead of the date (the default). The print-\n"
+" keywords, if nil, inhibit the printing of certain semi-obvious\n"
+" parts of the string."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Seconds should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Minutes should be an integer between 0 and 59."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an integer between 0 and 23."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Day should be an integer between 1 and 31."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Month should be an integer between 1 and 12."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Hours should be an non-negative integer."
+msgstr ""
+
+#: target:code/format-time.lisp
+msgid "~A: Timezone should be an integer between 0 and 32."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not create temporary file ~S: ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the ELF magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Return the `osabi' field in the padding of the ELF file."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Given a file type number, determine whether the file is executable."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Make sure the header starts with the mach-o magic value."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Parse symbol table file created by load-foreign script. Modified\n"
+"to skip undefined symbols which don't have an address."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load-foreign loads a list of C object files into a running Lisp. The files\n"
+" argument should be a single file or a list of files. The files may be\n"
+" specified as namestrings or as pathnames. The libraries argument should "
+"be a\n"
+" list of library files as would be specified to ld. They will be searched "
+"in\n"
+" the order given. The default is just \"-lc\", i.e., the C library. The\n"
+" base-file argument is used to specify a file to use as the starting place "
+"for\n"
+" defined symbols. The default is the C start up code for Lisp. The env\n"
+" argument is the Unix environment variable definitions for the invocation "
+"of\n"
+" the linker. The default is the environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Lazy function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Immediate function call binding"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Mask of binding time value"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"If set the symbols of the loaded object and its dependencies are\n"
+" made visible as if the object were linked directly into the program"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open global symbol table: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Can't open object ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Couldn't open library ~S: ~S"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Reloaded library ~S~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Enter new library path: "
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Done.~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Trying as object file ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid ";;; Running ~A...~%"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "Could not run ~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "~A failed:~%~A"
+msgstr ""
+
+#: target:code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
#: target:code/defstruct.lisp
msgid ""
"Controls compiling DEFSTRUCT :print-function and :print-method\n"
More information about the cmucl-commit
mailing list