CMUCL commit: intl-branch src (8 files)
Raymond Toy
rtoy at common-lisp.net
Tue Feb 9 21:23:02 CET 2010
Date: Tuesday, February 9, 2010 @ 15:23:02
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/hash-new.lisp code/internet.lisp code/interr.lisp
code/irrat-dd.lisp code/irrat.lisp code/kernel.lisp
i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
code/hash-new.lisp | 40 -
code/internet.lisp | 102 ++--
code/interr.lisp | 32 -
code/irrat-dd.lisp | 48 +-
code/irrat.lisp | 78 +--
code/kernel.lisp | 46 +-
i18n/locale/cmucl.pot | 739 +++++++++++++++++++++++++++++++++-
i18n/locale/ko/LC_MESSAGES/cmucl.po | 738 +++++++++++++++++++++++++++++++++
8 files changed, 1646 insertions(+), 177 deletions(-)
Index: src/code/hash-new.lisp
diff -u src/code/hash-new.lisp:1.51.10.1 src/code/hash-new.lisp:1.51.10.2
--- src/code/hash-new.lisp:1.51.10.1 Mon Feb 8 12:15:47 2010
+++ src/code/hash-new.lisp Tue Feb 9 15:23:02 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/hash-new.lisp,v 1.51.10.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/hash-new.lisp,v 1.51.10.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -41,7 +41,7 @@
(:constructor %make-hash-table)
(:print-function %print-hash-table)
(:make-load-form-fun make-hash-table-load-form))
- "Structure used to implement hash tables."
+ _N"Structure used to implement hash tables."
;;
;; The type of hash table this is. Only used for printing and as part of
;; the exported interface.
@@ -173,7 +173,7 @@
(defun almost-primify (num)
(declare (type index num))
- "Almost-Primify returns an almost prime number greater than or equal
+ _N"Almost-Primify returns an almost prime number greater than or equal
to NUM."
(if (= (rem num 2) 0)
(setq num (+ 1 num)))
@@ -194,7 +194,7 @@
;;; DEFINE-HASH-TABLE-TEST -- Public.
;;;
(defun define-hash-table-test (name test-fun hash-fun)
- "Define a new kind of hash table test."
+ _N"Define a new kind of hash table test."
(declare (type symbol name)
(type function test-fun hash-fun))
(setf *hash-table-tests*
@@ -209,7 +209,7 @@
;;;
(defun make-hash-table (&key (test 'eql) (size 65) (rehash-size 1.5)
(rehash-threshold 1.0) (weak-p nil))
- "Creates and returns a new hash table. The keywords are as follows:
+ _N"Creates and returns a new hash table. The keywords are as follows:
:TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,
and EQUALP are currently supported.
:SIZE -- A hint as to how many elements will be put in this hash
@@ -254,7 +254,7 @@
(t
(dolist (info *hash-table-tests*
(error 'simple-program-error
- :format-control "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+ :format-control _"Unknown :TEST for MAKE-HASH-TABLE: ~S"
:format-arguments (list test)))
(destructuring-bind
(test-name test-fun hash-fun)
@@ -320,29 +320,29 @@
(declaim (inline hash-table-count))
(defun hash-table-count (hash-table)
- "Returns the number of entries in the given HASH-TABLE."
+ _N"Returns the number of entries in the given HASH-TABLE."
(declare (type hash-table hash-table)
(values index))
(hash-table-number-entries hash-table))
(setf (documentation 'hash-table-rehash-size 'function)
- "Return the rehash-size HASH-TABLE was created with.")
+ _"Return the rehash-size HASH-TABLE was created with.")
(setf (documentation 'hash-table-rehash-threshold 'function)
- "Return the rehash-threshold HASH-TABLE was created with.")
+ _"Return the rehash-threshold HASH-TABLE was created with.")
(declaim (inline hash-table-size))
(defun hash-table-size (hash-table)
- "Return a size that can be used with MAKE-HASH-TABLE to create a hash
+ _N"Return a size that can be used with MAKE-HASH-TABLE to create a hash
table that can hold however many entries HASH-TABLE can hold without
having to be grown."
(hash-table-rehash-trigger hash-table))
(setf (documentation 'hash-table-test 'function)
- "Return the test HASH-TABLE was created with.")
+ _"Return the test HASH-TABLE was created with.")
(setf (documentation 'hash-table-weak-p 'function)
- "Return T if HASH-TABLE will not keep entries for keys that would
+ _"Return T if HASH-TABLE will not keep entries for keys that would
otherwise be garbage, and NIL if it will.")
@@ -530,7 +530,7 @@
;;; GETHASH -- Public.
;;;
(defun gethash (key hash-table &optional default)
- "Finds the entry in HASH-TABLE whose key is KEY and returns the associated
+ _N"Finds the entry in HASH-TABLE whose key is KEY and returns the associated
value and T as multiple values, or returns DEFAULT and NIL if there is no
such entry. Entries can be added using SETF."
(declare (type hash-table hash-table)
@@ -657,7 +657,7 @@
;;; REMHASH -- public.
;;;
(defun remhash (key hash-table)
- "Remove the entry in HASH-TABLE associated with KEY. Returns T if there
+ _N"Remove the entry in HASH-TABLE associated with KEY. Returns T if there
was such an entry, and NIL if not."
(declare (type hash-table hash-table)
(values (member t nil)))
@@ -752,7 +752,7 @@
;;; CLRHASH -- public.
;;;
(defun clrhash (hash-table)
- "This removes all the entries from HASH-TABLE and returns the hash table
+ _N"This removes all the entries from HASH-TABLE and returns the hash table
itself."
(let* ((kv-vector (hash-table-table hash-table))
(kv-length (length kv-vector))
@@ -790,7 +790,7 @@
;;; CLOBBER-HASH -- public.
;;;
(defun clobber-hash (hash-table)
- "This removes all the entries from HASH-TABLE and returns the hash table
+ _N"This removes all the entries from HASH-TABLE and returns the hash table
itself, shrinking the size to free memory."
(let* ((old-kv-vector (hash-table-table hash-table))
(old-index-vector (hash-table-index-vector hash-table))
@@ -838,7 +838,7 @@
(declaim (maybe-inline maphash))
(defun maphash (map-function hash-table)
- "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value
+ _N"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value
of the entry; returns NIL."
(declare (type (or function symbol) map-function)
(type hash-table hash-table))
@@ -862,7 +862,7 @@
(funcall fun key value))))))
(defmacro with-hash-table-iterator ((function hash-table) &body body)
- "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)
+ _N"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)
provides a method of manually looping over the elements of a hash-table.
FUNCTION is bound to a generator-macro that, within the scope of the
invocation, returns one or three values. The first value tells whether
@@ -972,7 +972,7 @@
((funcallable-instance-p instance)
(%funcallable-instance-info instance 2))
(t
- (error "What kind of instance is this?"))))
+ (error _"What kind of instance is this?"))))
;; End pcl/low.lisp
@@ -1061,7 +1061,7 @@
(t 42)))
(defun sxhash (s-expr)
- "Computes a hash code for S-EXPR and returns it as an integer."
+ _N"Computes a hash code for S-EXPR and returns it as an integer."
(internal-sxhash s-expr 0))
Index: src/code/internet.lisp
diff -u src/code/internet.lisp:1.57.12.1 src/code/internet.lisp:1.57.12.2
--- src/code/internet.lisp:1.57.12.1 Mon Feb 8 12:15:47 2010
+++ src/code/internet.lisp Tue Feb 9 15:23:02 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/internet.lisp,v 1.57.12.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/internet.lisp,v 1.57.12.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -86,15 +86,15 @@
(defvar *internet-protocols*
'((:stream 6 #.sock-stream)
(:datagram 17 #.sock-dgram))
- "AList of socket kinds and protocol values.")
+ _N"AList of socket kinds and protocol values.")
(defun internet-protocol (kind)
(when (eq kind :data-gram) ; Sep-2000. Remove someday.
- (warn "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM")
+ (warn _"Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM")
(setq kind :datagram))
(let ((entry (assoc kind *internet-protocols*)))
(unless entry
- (error "Invalid kind (~S) for internet domain sockets." kind))
+ (error _"Invalid kind (~S) for internet domain sockets." kind))
(values (cadr entry)
(caddr entry))))
@@ -207,7 +207,7 @@
(def-alien-routine ("os_get_h_errno" get-h-errno) int)
(defun lookup-host-entry (host)
- "Return a host-entry for the given host. The host may be an address
+ _N"Return a host-entry for the given host. The host may be an address
string or an IP address in host order."
(declare (type (or host-entry string (unsigned-byte 32)) host)
(optimize (inhibit-warnings 3)))
@@ -267,7 +267,7 @@
(let ((socket (unix:unix-socket af-unix type 0)))
(when (minusp socket)
(error 'socket-error
- :format-control "Error creating socket: ~A"
+ :format-control _"Error creating socket: ~A"
:format-arguments (list (unix:get-unix-error-msg))
:errno (unix:unix-errno)))
socket)))
@@ -296,7 +296,7 @@
(alien-size unix-sockaddr :bytes)))
(unix:unix-close socket)
(error 'socket-error
- :format-control "Error connecting socket to [~A]: ~A"
+ :format-control _"Error connecting socket to [~A]: ~A"
:format-arguments (list path (unix:get-unix-error-msg))
:errno (unix:unix-errno)))
socket)))
@@ -326,13 +326,13 @@
(+ (alien-size inet-sockaddr :bytes)
(length path))))
(unix:unix-close socket)
- (error "Error binding socket to path ~a: ~a"
+ (error _"Error binding socket to path ~a: ~a"
path
(unix:get-unix-error-msg))))
(when (eq kind :stream)
(when (minusp (unix:unix-listen socket backlog))
(unix:unix-close socket)
- (error "Error listening to socket: ~A" (unix:get-unix-error-msg))))
+ (error _"Error listening to socket: ~A" (unix:get-unix-error-msg))))
socket))
(defun accept-unix-connection (unconnected)
@@ -343,14 +343,14 @@
(alien-sap sockaddr)
(alien-size unix-sockaddr :bytes))))
(when (minusp connected)
- (error "Error accepting a connection: ~A" (unix:get-unix-error-msg)))
+ (error _"Error accepting a connection: ~A" (unix:get-unix-error-msg)))
(values connected (slot sockaddr 'path)))))
(defun bind-inet-socket (socket host port)
- "bind Socket to (local) Host and Port"
+ _N"bind Socket to (local) Host and Port"
(let ((addr (if (stringp host)
(host-entry-addr (or (lookup-host-entry host)
- (error "Unknown host: ~S." host)))
+ (error _"Unknown host: ~S." host)))
host)))
(with-alien ((sockaddr inet-sockaddr))
(setf (slot sockaddr 'family) af-inet)
@@ -362,7 +362,7 @@
(let ((errno (unix:unix-errno)))
(unix:unix-close socket)
(error 'socket-error
- :format-control "Error binding socket to port ~A: ~A"
+ :format-control _"Error binding socket to port ~A: ~A"
:format-arguments (list port
(unix:get-unix-error-msg))
:errno errno))))))
@@ -380,10 +380,10 @@
(defun connect-to-inet-socket (host port &optional (kind :stream)
&key local-host local-port)
- "The host may be an address string or an IP address in host order."
+ _N"The host may be an address string or an IP address in host order."
(let* ((addr (if (stringp host)
(host-entry-addr (or (lookup-host-entry host)
- (error "Unknown host: ~S." host)))
+ (error _"Unknown host: ~S." host)))
host))
(socket (create-inet-socket kind)))
;; bind to local-host/local-port if given
@@ -401,7 +401,7 @@
(errmsg (unix:get-unix-error-msg)))
(unix:unix-close socket)
(error 'socket-error
- :format-control "Error connecting socket to [~A:~A]: ~A"
+ :format-control _"Error connecting socket to [~A:~A]: ~A"
:format-arguments (list (if (stringp host)
host
(ip-string addr))
@@ -442,10 +442,10 @@
;; cause errno set to the real reason for the failure.
(defun connect-to-inet-socket/non-blocking (host port &optional (kind :stream))
- "The host may be an address string or an IP address in host order."
+ _N"The host may be an address string or an IP address in host order."
(let ((addr (if (stringp host)
(host-entry-addr (or (lookup-host-entry host)
- (error "Unknown host: ~S." host)))
+ (error _"Unknown host: ~S." host)))
host))
(socket (create-inet-socket kind)))
(labels ((set-blocking (socket)
@@ -465,7 +465,7 @@
(ldb (byte 8 24) naddr))))
(connect-error (addr reason errno)
(error 'socket-error
- :format-control "Error connecting socket to [~A:~A]: ~A"
+ :format-control _"Error connecting socket to [~A:~A]: ~A"
:format-arguments (list addr port reason)
:errno errno)))
(set-blocking socket)
@@ -511,7 +511,7 @@
(defconstant so-reuseaddr #+linux 2 #+(or solaris bsd hpux irix) 4)
(defun get-socket-option (socket level optname)
- "Get an integer value socket option."
+ _N"Get an integer value socket option."
(declare (type unix:unix-fd socket)
(type (signed-byte 32) level optname))
(with-alien ((optval signed))
@@ -521,7 +521,7 @@
(values optval 0))))
(defun set-socket-option (socket level optname optval)
- "Set an integer value socket option."
+ _N"Set an integer value socket option."
(declare (type unix:unix-fd socket)
(type (signed-byte 32) level optname optval))
(with-alien ((optval signed optval))
@@ -540,7 +540,7 @@
(addr (if (stringp host)
(host-entry-addr (or (lookup-host-entry host)
(error 'socket-error
- :format-control "Unknown host: ~S."
+ :format-control _"Unknown host: ~S."
:format-arguments (list host)
:errno (unix:unix-errno))))
host)))
@@ -548,7 +548,7 @@
(multiple-value-bind (optval errno)
(set-socket-option socket sol-socket so-reuseaddr 1)
(or optval (error 'socket-error
- :format-control "Error ~S setting socket option on socket ~D."
+ :format-control _"Error ~S setting socket option on socket ~D."
:format-arguments (list (unix:get-unix-error-msg errno)
socket)
:errno errno))))
@@ -562,7 +562,7 @@
(let ((errno (unix:unix-errno)))
(unix:unix-close socket)
(error 'socket-error
- :format-control "Error binding socket to port ~A: ~A"
+ :format-control _"Error binding socket to port ~A: ~A"
:format-arguments (list port
(unix:get-unix-error-msg))
:errno errno))))
@@ -571,7 +571,7 @@
(let ((errno (unix:unix-errno)))
(unix:unix-close socket)
(error 'socket-error
- :format-control "Error listening to socket: ~A"
+ :format-control _"Error listening to socket: ~A"
:format-arguments (list (unix:get-unix-error-msg))
:errno errno))))
socket))
@@ -586,7 +586,7 @@
(let ((errno (unix:unix-errno)))
(when (minusp connected)
(error 'socket-error
- :format-control "Error accepting a connection: ~A"
+ :format-control _"Error accepting a connection: ~A"
:format-arguments (list (unix:get-unix-error-msg))
:errno errno))
(values connected (ntohl (slot sockaddr 'addr)))))))
@@ -596,19 +596,19 @@
(unix:unix-close socket)
(unless ok
(error 'socket-error
- :format-control "Error closing socket: ~A"
+ :format-control _"Error closing socket: ~A"
:format-arguments (list (unix:get-unix-error-msg err))
:errno (unix:unix-errno))))
(undefined-value))
(defun get-peer-host-and-port (fd)
- "Return the peer host address and port in host order."
+ _N"Return the peer host address and port in host order."
(with-alien ((sockaddr inet-sockaddr)
(length (alien:array unsigned 1)))
(setf (deref length 0) (alien-size inet-sockaddr :bytes))
(when (minusp (unix:unix-getpeername fd (alien-sap sockaddr)
(alien-sap length)))
- (error "Error ~s getting peer host and port on FD ~d."
+ (error _"Error ~s getting peer host and port on FD ~d."
(unix:get-unix-error-msg (unix:unix-errno)) fd))
(values (ext:ntohl (slot sockaddr 'addr))
(ext:ntohs (slot sockaddr 'port)))))
@@ -619,7 +619,7 @@
(setf (deref length 0) (alien-size inet-sockaddr :bytes))
(when (minusp (unix:unix-getsockname fd (alien-sap sockaddr)
(alien-sap length)))
- (error "Error ~s getting socket host and port on FD ~d."
+ (error _"Error ~s getting socket host and port on FD ~d."
(unix:get-unix-error-msg (unix:unix-errno)) fd))
(values (ext:ntohl (slot sockaddr 'addr))
(ext:ntohs (slot sockaddr 'port)))))
@@ -646,8 +646,8 @@
(dolist (handlers *oob-handlers*)
(declare (list handlers))
(cond ((minusp (unix:unix-recv (car handlers) buffer 1 msg-oob))
- (cerror "Ignore it"
- "Error recving oob data on ~A: ~A"
+ (cerror _"Ignore it"
+ _"Error recving oob data on ~A: ~A"
(car handlers)
(unix:get-unix-error-msg)))
(t
@@ -661,13 +661,13 @@
(funcall (cdr handler))
(setf handled t)))
(unless handled
- (cerror "Ignore it"
- "No oob handler defined for ~S on ~A"
+ (cerror _"Ignore it"
+ _"No oob handler defined for ~S on ~A"
char
(car handlers)))))))
(unless handled
- (cerror "Ignore it"
- "Got a SIGURG, but couldn't find any out-of-band data.")))
+ (cerror _"Ignore it"
+ _"Got a SIGURG, but couldn't find any out-of-band data.")))
(undefined-value))
;;; ADD-OOB-HANDLER -- public
@@ -679,7 +679,7 @@
;;; will be delivered.)
(defun add-oob-handler (fd char handler)
- "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+ _N"Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
(declare (integer fd)
(base-char char))
(let ((handlers (assoc fd *oob-handlers*)))
@@ -706,7 +706,7 @@
;;; descriptor.
(defun remove-oob-handler (fd char)
- "Remove any handlers for CHAR on FD."
+ _N"Remove any handlers for CHAR on FD."
(declare (integer fd)
(base-char char))
(let ((handlers (assoc fd *oob-handlers*)))
@@ -729,7 +729,7 @@
;;; Delete the entry for the given file descriptor.
(defun remove-all-oob-handlers (fd)
- "Remove all handlers for FD."
+ _N"Remove all handlers for FD."
(declare (integer fd))
(setf *oob-handlers*
(delete fd *oob-handlers*
@@ -747,13 +747,13 @@
(let ((buffer (make-string 1 :initial-element char)))
(declare (simple-string buffer))
(when (minusp (unix:unix-send fd buffer 1 msg-oob))
- (error "Error sending ~S OOB to across ~A: ~A"
+ (error _"Error sending ~S OOB to across ~A: ~A"
char
fd
(unix:get-unix-error-msg)))))
(defun inet-recvfrom (fd buffer size &key (flags 0))
- "A packaging of the unix recvfrom call. Returns three values:
+ _N"A packaging of the unix recvfrom call. Returns three values:
bytecount, source address as integer, and source port. bytecount
can of course be negative, to indicate faults."
#+mp (mp:process-wait-until-fd-usable fd :input)
@@ -764,7 +764,7 @@
(values bytecount (ntohl (slot sockaddr 'addr)) (ntohs (slot sockaddr 'port))))))
(defun inet-sendto (fd buffer size addr port &key (flags 0))
- "A packaging of the unix sendto call. Return value like sendto"
+ _N"A packaging of the unix sendto call. Return value like sendto"
(with-alien ((sockaddr inet-sockaddr))
(setf (slot sockaddr 'family) af-inet)
(setf (slot sockaddr 'port) (htons port))
@@ -781,10 +781,10 @@
(defconstant shut-rdwr 2)
(defun inet-shutdown (fd level)
- "A packaging of the unix shutdown call. An error is signaled if shutdown fails."
+ _N"A packaging of the unix shutdown call. An error is signaled if shutdown fails."
(when (minusp (unix:unix-shutdown fd level))
(error 'socket-error
- :format-control "Error on shutdown of socket: ~A"
+ :format-control _"Error on shutdown of socket: ~A"
:format-arguments (list (unix:get-unix-error-msg))
:errno (unix:unix-errno))))
@@ -794,12 +794,12 @@
;;; Returns a stream connected to the specified Port on the given Host.
(defun open-network-stream (host port &key (buffering :line) timeout
(external-format '(:latin-1 :crlf)))
- "Return a network stream. HOST may be an address string or an integer
+ _N"Return a network stream. HOST may be an address string or an integer
IP address."
(let (hostent hostaddr)
(cond ((stringp host)
(setf hostent (or (lookup-host-entry host)
- (error "Unknown host: ~S." host)))
+ (error _"Unknown host: ~S." host)))
(setf host (host-entry-addr hostent))
(setf hostaddr (format nil "~A:~D"
(host-entry-name hostent)
@@ -811,7 +811,7 @@
(ldb (byte 8 8) host)
(ldb (byte 8 0) host)
port)))
- (t (error "Unknown host format: ~S." host)))
+ (t (error _"Unknown host format: ~S." host)))
(sys:make-fd-stream
(let ((socket (create-inet-socket :stream)))
(alien:with-alien ((sockaddr inet-sockaddr))
@@ -823,12 +823,12 @@
(alien:alien-size inet-sockaddr
:bytes)))
(unix:unix-close socket)
- (error "Error connecting socket to [~A]: ~A"
+ (error _"Error connecting socket to [~A]: ~A"
hostaddr
(unix:get-unix-error-msg)))
socket))
:input t :output t :buffering buffering :timeout timeout
- :name (format nil "network connection to ~A" hostaddr)
+ :name (format nil _"network connection to ~A" hostaddr)
:external-format external-format
:auto-close t)))
@@ -846,12 +846,12 @@
(alien-sap sockaddr)
(alien-size inet-sockaddr :bytes))))
(when (minusp socket)
- (error "Error accepting a connection: ~A" (unix:get-unix-error-msg)))
+ (error _"Error accepting a connection: ~A" (unix:get-unix-error-msg)))
(sys:make-fd-stream
socket :input t :output t :buffering buffering :timeout timeout
:name (let ((host (ntohl (slot sockaddr 'addr)))
(port (ntohs (slot sockaddr 'port))))
- (format nil "network connection from ~D.~D.~D.~D:~D"
+ (format nil _"network connection from ~D.~D.~D.~D:~D"
(ldb (byte 8 24) host)
(ldb (byte 8 16) host)
(ldb (byte 8 8) host)
Index: src/code/interr.lisp
diff -u src/code/interr.lisp:1.47.24.1 src/code/interr.lisp:1.47.24.2
--- src/code/interr.lisp:1.47.24.1 Mon Feb 8 12:15:47 2010
+++ src/code/interr.lisp Tue Feb 9 15:23:02 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/interr.lisp,v 1.47.24.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/interr.lisp,v 1.47.24.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -276,19 +276,19 @@
(error 'simple-control-error
:function-name name
:format-control
- "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"))
+ _"Attempt to RETURN-FROM a block or GO to a tag that no longer exists"))
(deferr unseen-throw-tag-error (tag)
(error 'simple-control-error
:function-name name
- :format-control "Attempt to THROW to a tag that does not exist: ~S"
+ :format-control _"Attempt to THROW to a tag that does not exist: ~S"
:format-arguments (list tag)))
(deferr nil-function-returned-error (function)
(error 'simple-control-error
:function-name name
:format-control
- "Function with declared result type NIL returned:~% ~S"
+ _"Function with declared result type NIL returned:~% ~S"
:format-arguments (list function)))
(deferr division-by-zero-error (this that)
@@ -315,12 +315,12 @@
(deferr odd-keyword-arguments-error ()
(error 'simple-program-error
:function-name name
- :format-control "Odd number of keyword arguments."))
+ :format-control _"Odd number of keyword arguments."))
(deferr unknown-keyword-argument-error (key)
(error 'simple-program-error
:function-name name
- :format-control "Unknown keyword: ~S"
+ :format-control _"Unknown keyword: ~S"
:format-arguments (list key)))
(deferr invalid-array-index-error (array bound index)
@@ -508,7 +508,7 @@
(deferr undefined-foreign-symbol-error (symbol)
(error 'simple-program-error
:function-name name
- :format-control "Undefined foreign symbol: ~S"
+ :format-control _"Undefined foreign symbol: ~S"
:format-arguments (list symbol)))
@@ -520,17 +520,17 @@
(numberp *current-error-depth*))
(let ((*current-error-depth* (1+ *current-error-depth*)))
(if (> *current-error-depth* *maximum-error-depth*)
- (error-error "Help! " *current-error-depth* " nested errors. "
- "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
+ (error-error _"Help! " *current-error-depth* _" nested errors. "
+ _"KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
(progn , at forms)))
(%primitive halt)))
;;; Track the depth of recursive errors.
;;;
(defvar *maximum-error-depth* 10
- "The maximum number of nested errors allowed. Internal errors are
+ _N"The maximum number of nested errors allowed. Internal errors are
double-counted.")
-(defvar *current-error-depth* 0 "The current number of nested errors.")
+(defvar *current-error-depth* 0 _N"The current number of nested errors.")
;;; These specials are used by ERROR-ERROR to track the success of recovery
;;; attempts.
@@ -634,7 +634,7 @@
(error 'simple-error
:function-name name
:format-control
- "Unknown internal error, ~D? args=~S"
+ _"Unknown internal error, ~D? args=~S"
:format-arguments
(list error-number
(mapcar #'(lambda (sc-offset)
@@ -645,7 +645,7 @@
(error 'simple-error
:function-name name
:format-control
- "Internal error ~D: ~A. args=~S"
+ _"Internal error ~D: ~A. args=~S"
:format-arguments
(list error-number
handler
@@ -666,7 +666,7 @@
(defun yellow-zone-hit ()
(let ((debug:*stack-top-hint* nil))
(format *error-output*
- "~2&~@<A control stack overflow has occurred: ~
+ _"~2&~@<A control stack overflow has occurred: ~
the program has entered the yellow control stack guard zone. ~
Please note that you will be returned to the Top-Level if you ~
enter the red control stack guard zone while debugging.~@:>~2%")
@@ -684,7 +684,7 @@
#+stack-checking
(defun red-zone-hit ()
(format *error-output*
- "~2&~@<Fatal control stack overflow. You have entered~%~
+ _"~2&~@<Fatal control stack overflow. You have entered~%~
the red control stack guard zone while debugging.~%~
Returning to Top-Level.~@:>~2%")
(throw 'lisp::top-level-catcher nil))
@@ -695,7 +695,7 @@
;; Don't reserve any more pages
(setf lisp::reserved-heap-pages 0)
(format *error-output*
- "~2&~@<Imminent dynamic space overflow has occurred:~%~
+ _"~2&~@<Imminent dynamic space overflow has occurred:~%~
Only a small amount of dynamic space is available now.~%~
Please note that you will be returned to the Top-Level without~%~
warning if you run out of space while debugging.~@:>~%")
Index: src/code/irrat-dd.lisp
diff -u src/code/irrat-dd.lisp:1.18.12.1 src/code/irrat-dd.lisp:1.18.12.2
--- src/code/irrat-dd.lisp:1.18.12.1 Mon Feb 8 12:15:47 2010
+++ src/code/irrat-dd.lisp Tue Feb 9 15:23:02 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/irrat-dd.lisp,v 1.18.12.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/irrat-dd.lisp,v 1.18.12.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -25,36 +25,36 @@
(defconstant max-log
7.0978271289338399678773454114191w2
- "log(most-positive-double-double-float)")
+ _N"log(most-positive-double-double-float)")
(defconstant min-log
-7.4444007192138126231410729844608w2
- "log(least-positive-double-double-float")
+ _N"log(least-positive-double-double-float")
(defconstant loge2
0.6931471805599453094172321214581765680755001w0
- "log(2)")
+ _N"log(2)")
(defconstant log2e
1.442695040888963407359924681001892137426646w0
- "Log base 2 of e")
+ _N"Log base 2 of e")
(defconstant log2ea
4.4269504088896340735992468100189213742664595w-1
- "log2(e)-1")
+ _N"log2(e)-1")
(defconstant dd-pi
3.141592653589793238462643383279502884197169w0
- "Pi")
+ _N"Pi")
(defconstant dd-pi/2
1.570796326794896619231321691639751442098585w0
- "Pi/2")
+ _N"Pi/2")
(defconstant dd-pi/4
0.7853981633974483096156608458198757210492923w0
- "Pi/4")
+ _N"Pi/4")
;; log2-c1 and log-c2 are log(2) arranged in such a way that log2-c1 +
;; log2-c2 is log(2) to an accuracy greater than double-double-float.
@@ -66,7 +66,7 @@
(defconstant sqrt-1/2
0.7071067811865475244008443621048490392848w0
- "Sqrt(1/2)")
+ _N"Sqrt(1/2)")
;; Evaluate polynomial
(declaim (maybe-inline poly-eval poly-eval-1))
@@ -146,7 +146,7 @@
;; log(2)/2, where the coefficients of P and Q are given Pn and Qn
;; above. Theoretical peak relative error = 8.1e-36.
(defun dd-%expm1 (x)
- "exp(x) - 1"
+ _N"exp(x) - 1"
(declare (type double-double-float x)
(optimize (speed 3) (space 0)
(inhibit-warnings 3)))
@@ -1208,7 +1208,7 @@
#x91615E #xE61B08 #x659985 #x5F14A0 #x68408D #xFFD880
#x4D7327 #x310606 #x1556CA #x73A8C9 #x60E27B #xC08C6B
))
- "396 (hex) digits of 2/pi")
+ _N"396 (hex) digits of 2/pi")
(let ((y (make-array 3 :element-type 'double-float))
@@ -1508,7 +1508,7 @@
(setf s (* loge2 e))))
(when (> s max-log)
;; Overflow. What to do?
- (error "Overflow"))
+ (error _"Overflow"))
(when (< s min-log)
(return-from dd-%powil 0w0))
@@ -1640,7 +1640,7 @@
(values rho 0)))))))
(defun dd-complex-sqrt (z)
- "Principle square root of Z
+ _N"Principle square root of Z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1682,7 +1682,7 @@
(complex eta nu)))))
(defun dd-complex-log-scaled (z j)
- "Compute log(2^j*z).
+ _N"Compute log(2^j*z).
This is for use with J /= 0 only when |z| is huge."
(declare (number z)
@@ -1717,7 +1717,7 @@
(atan y x))))))
(defun dd-complex-log (z)
- "Log of Z = log |Z| + i * arg Z
+ _N"Log of Z = log |Z| + i * arg Z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1729,7 +1729,7 @@
;; never 0 since we have positive and negative zeroes.
(defun dd-complex-atanh (z)
- "Compute atanh z = (log(1+z) - log(1-z))/2"
+ _N"Compute atanh z = (log(1+z) - log(1-z))/2"
(declare (number z))
(cond ((and (realp z) (< z -1))
;; ATANH is continuous with quadrant III in this case.
@@ -1790,7 +1790,7 @@
(- (* beta nu))))))))
(defun dd-complex-tanh (z)
- "Compute tanh z = sinh z / cosh z"
+ _N"Compute tanh z = sinh z / cosh z"
(declare (number z))
(let ((x (float (realpart z) 1.0w0))
(y (float (imagpart z) 1.0w0)))
@@ -1870,7 +1870,7 @@
(complex (+ (realpart z) 1) (imagpart z)))
(defun dd-complex-acos (z)
- "Compute acos z = pi/2 - asin z
+ _N"Compute acos z = pi/2 - asin z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1896,7 +1896,7 @@
sqrt-1-z)))))))))
(defun dd-complex-acosh (z)
- "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
+ _N"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1922,7 +1922,7 @@
(defun dd-complex-asin (z)
- "Compute asin z = asinh(i*z)/i
+ _N"Compute asin z = asinh(i*z)/i
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1951,7 +1951,7 @@
sqrt-1+z)))))))))))
(defun dd-complex-asinh (z)
- "Compute asinh z = log(z + sqrt(1 + z*z))
+ _N"Compute asinh z = log(z + sqrt(1 + z*z))
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1962,7 +1962,7 @@
(- (realpart result)))))
(defun dd-complex-atan (z)
- "Compute atan z = atanh (i*z) / i
+ _N"Compute atan z = atanh (i*z) / i
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1973,7 +1973,7 @@
(- (realpart result)))))
(defun dd-complex-tan (z)
- "Compute tan z = -i * tanh(i * z)
+ _N"Compute tan z = -i * tanh(i * z)
Z may be any number, but the result is always a complex."
(declare (number z))
Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.60.2.1 src/code/irrat.lisp:1.60.2.2
--- src/code/irrat.lisp:1.60.2.1 Mon Feb 8 12:15:47 2010
+++ src/code/irrat.lisp Tue Feb 9 15:23:02 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -293,7 +293,7 @@
;;;; Power functions.
(defun exp (number)
- "Return e raised to the power NUMBER."
+ _N"Return e raised to the power NUMBER."
(number-dispatch ((number number))
(handle-reals %exp number)
((complex)
@@ -308,7 +308,7 @@
((base :initarg :base :reader intexp-base)
(power :initarg :power :reader intexp-power))
(:report (lambda (condition stream)
- (format stream "The absolute value of ~S exceeds limit ~S."
+ (format stream _"The absolute value of ~S exceeds limit ~S."
(intexp-power condition)
*intexp-maximum-exponent*))))
@@ -332,9 +332,9 @@
:base base
:power power)
(continue ()
- :report "Continue with calculation")
+ :report _"Continue with calculation")
(new-limit ()
- :report "Continue with calculation, update limit"
+ :report _"Continue with calculation, update limit"
(setq *intexp-maximum-exponent* (abs power)))))
(cond ((minusp power)
(/ (intexp base (- power))))
@@ -358,7 +358,7 @@
;;; the complex-real and real-complex cases from the general complex case.
;;;
(defun expt (base power)
- "Returns BASE raised to the POWER."
+ _N"Returns BASE raised to the POWER."
(if (zerop power)
;; CLHS says that if the power is 0, the result is 1, subject to
;; numeric contagion. But what happens if base is infinity or
@@ -674,7 +674,7 @@
(+ n frac))))))
(defun log (number &optional (base nil base-p))
- "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+ _N"Return the logarithm of NUMBER in the base BASE, which defaults to e."
(if base-p
(cond ((zerop base)
;; ANSI spec
@@ -802,7 +802,7 @@
(complex-log number)))))
(defun sqrt (number)
- "Return the square root of NUMBER."
+ _N"Return the square root of NUMBER."
(number-dispatch ((number number))
(((foreach fixnum bignum ratio))
(if (minusp number)
@@ -827,7 +827,7 @@
;;;; Trigonometic and Related Functions
(defun abs (number)
- "Returns the absolute value of the number."
+ _N"Returns the absolute value of the number."
(number-dispatch ((number number))
(((foreach single-float double-float fixnum rational
#+double-double double-double-float))
@@ -851,7 +851,7 @@
(scale-float (sqrt abs^2) scale))))))))
(defun phase (number)
- "Returns the angle part of the polar representation of a complex number.
+ _N"Returns the angle part of the polar representation of a complex number.
For complex numbers, this is (atan (imagpart number) (realpart number)).
For non-complex positive numbers, this is 0. For non-complex negative
numbers this is PI."
@@ -878,7 +878,7 @@
(defun sin (number)
- "Return the sine of NUMBER."
+ _N"Return the sine of NUMBER."
(number-dispatch ((number number))
(handle-reals %sin number)
((complex)
@@ -888,7 +888,7 @@
(* (cos x) (sinh y)))))))
(defun cos (number)
- "Return the cosine of NUMBER."
+ _N"Return the cosine of NUMBER."
(number-dispatch ((number number))
(handle-reals %cos number)
((complex)
@@ -898,20 +898,20 @@
(- (* (sin x) (sinh y))))))))
(defun tan (number)
- "Return the tangent of NUMBER."
+ _N"Return the tangent of NUMBER."
(number-dispatch ((number number))
(handle-reals %tan number)
((complex)
(complex-tan number))))
(defun cis (theta)
- "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+ _N"Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
(if (complexp theta)
- (error "Argument to CIS is complex: ~S" theta)
+ (error _"Argument to CIS is complex: ~S" theta)
(complex (cos theta) (sin theta))))
(defun asin (number)
- "Return the arc sine of NUMBER."
+ _N"Return the arc sine of NUMBER."
(number-dispatch ((number number))
((rational)
(if (or (> number 1) (< number -1))
@@ -935,7 +935,7 @@
(complex-asin number))))
(defun acos (number)
- "Return the arc cosine of NUMBER."
+ _N"Return the arc cosine of NUMBER."
(number-dispatch ((number number))
((rational)
(if (or (> number 1) (< number -1))
@@ -960,7 +960,7 @@
(defun atan (y &optional (x nil xp))
- "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+ _N"Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
(if xp
(flet ((atan2 (y x)
(declare (type double-float y x)
@@ -998,7 +998,7 @@
(complex-atan y)))))
(defun sinh (number)
- "Return the hyperbolic sine of NUMBER."
+ _N"Return the hyperbolic sine of NUMBER."
(number-dispatch ((number number))
(handle-reals %sinh number)
((complex)
@@ -1008,7 +1008,7 @@
(* (cosh x) (sin y)))))))
(defun cosh (number)
- "Return the hyperbolic cosine of NUMBER."
+ _N"Return the hyperbolic cosine of NUMBER."
(number-dispatch ((number number))
(handle-reals %cosh number)
((complex)
@@ -1018,21 +1018,21 @@
(* (sinh x) (sin y)))))))
(defun tanh (number)
- "Return the hyperbolic tangent of NUMBER."
+ _N"Return the hyperbolic tangent of NUMBER."
(number-dispatch ((number number))
(handle-reals %tanh number)
((complex)
(complex-tanh number))))
(defun asinh (number)
- "Return the hyperbolic arc sine of NUMBER."
+ _N"Return the hyperbolic arc sine of NUMBER."
(number-dispatch ((number number))
(handle-reals %asinh number)
((complex)
(complex-asinh number))))
(defun acosh (number)
- "Return the hyperbolic arc cosine of NUMBER."
+ _N"Return the hyperbolic arc cosine of NUMBER."
(number-dispatch ((number number))
((rational)
;; acosh is complex if number < 1
@@ -1053,7 +1053,7 @@
(complex-acosh number))))
(defun atanh (number)
- "Return the hyperbolic arc tangent of NUMBER."
+ _N"Return the hyperbolic arc tangent of NUMBER."
(number-dispatch ((number number))
((rational)
;; atanh is complex if |number| > 1
@@ -1150,7 +1150,7 @@
(declaim (inline scalb))
(defun scalb (x n)
- "Compute 2^N * X without compute 2^N first (use properties of the
+ _N"Compute 2^N * X without compute 2^N first (use properties of the
underlying floating-point format"
(declare (type float x)
(type double-float-exponent n))
@@ -1158,7 +1158,7 @@
(declaim (inline logb-finite))
(defun logb-finite (x)
- "Same as logb but X is not infinity and non-zero and not a NaN, so
+ _N"Same as logb but X is not infinity and non-zero and not a NaN, so
that we can always return an integer"
(declare (type float x))
(multiple-value-bind (signif expon sign)
@@ -1169,7 +1169,7 @@
(1- expon)))
(defun logb (x)
- "Compute an integer N such that 1 <= |2^(-N) * x| < 2.
+ _N"Compute an integer N such that 1 <= |2^(-N) * x| < 2.
For the special cases, the following values are used:
x logb
@@ -1197,7 +1197,7 @@
(declaim (inline coerce-to-complex-type))
(defun coerce-to-complex-type (x y z)
- "Create complex number with real part X and imaginary part Y such that
+ _N"Create complex number with real part X and imaginary part Y such that
it has the same type as Z. If Z has type (complex rational), the X
and Y are coerced to single-float."
(declare (double-float x y)
@@ -1248,7 +1248,7 @@
(values rho 0)))))))
(defun complex-sqrt (z)
- "Principle square root of Z
+ _N"Principle square root of Z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1293,7 +1293,7 @@
(coerce-to-complex-type eta nu z)))))
(defun complex-log-scaled (z j)
- "Compute log(2^j*z).
+ _N"Compute log(2^j*z).
This is for use with J /= 0 only when |z| is huge."
(declare (number z)
@@ -1328,7 +1328,7 @@
z)))))
(defun complex-log (z)
- "Log of Z = log |Z| + i * arg Z
+ _N"Log of Z = log |Z| + i * arg Z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1343,7 +1343,7 @@
;; never 0 since we have positive and negative zeroes.
(defun complex-atanh (z)
- "Compute atanh z = (log(1+z) - log(1-z))/2"
+ _N"Compute atanh z = (log(1+z) - log(1-z))/2"
(declare (number z))
#+double-double
(when (typep z '(or double-double-float (complex double-double-float)))
@@ -1407,7 +1407,7 @@
z)))))
(defun complex-tanh (z)
- "Compute tanh z = sinh z / cosh z"
+ _N"Compute tanh z = sinh z / cosh z"
(declare (number z))
#+double-double
(when (typep z '(or double-double-float (complex double-double-float)))
@@ -1492,7 +1492,7 @@
(complex (+ (realpart z) 1) (imagpart z)))
(defun complex-acos (z)
- "Compute acos z = pi/2 - asin z
+ _N"Compute acos z = pi/2 - asin z
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1511,7 +1511,7 @@
sqrt-1-z))))))))
(defun complex-acosh (z)
- "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
+ _N"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1525,7 +1525,7 @@
(defun complex-asin (z)
- "Compute asin z = asinh(i*z)/i
+ _N"Compute asin z = asinh(i*z)/i
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1544,7 +1544,7 @@
sqrt-1+z))))))))
(defun complex-asinh (z)
- "Compute asinh z = log(z + sqrt(1 + z*z))
+ _N"Compute asinh z = log(z + sqrt(1 + z*z))
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1558,7 +1558,7 @@
(- (realpart result)))))
(defun complex-atan (z)
- "Compute atan z = atanh (i*z) / i
+ _N"Compute atan z = atanh (i*z) / i
Z may be any number, but the result is always a complex."
(declare (number z))
@@ -1572,7 +1572,7 @@
(- (realpart result)))))
(defun complex-tan (z)
- "Compute tan z = -i * tanh(i * z)
+ _N"Compute tan z = -i * tanh(i * z)
Z may be any number, but the result is always a complex."
(declare (number z))
Index: src/code/kernel.lisp
diff -u src/code/kernel.lisp:1.16.26.1 src/code/kernel.lisp:1.16.26.2
--- src/code/kernel.lisp:1.16.26.1 Mon Feb 8 12:15:47 2010
+++ src/code/kernel.lisp Tue Feb 9 15:23:02 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/kernel.lisp,v 1.16.26.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/kernel.lisp,v 1.16.26.2 2010-02-09 20:23:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -18,107 +18,107 @@
(defun get-header-data (x)
- "Return the 24 bits of data in the header of object X, which must be an
+ _N"Return the 24 bits of data in the header of object X, which must be an
other-pointer object."
(get-header-data x))
(defun set-header-data (x val)
- "Sets the 24 bits of data in the header of object X (which must be an
+ _N"Sets the 24 bits of data in the header of object X (which must be an
other-pointer object) to VAL."
(set-header-data x val))
(defun get-closure-length (x)
- "Returns the length of the closure X. This is one more than the number
+ _N"Returns the length of the closure X. This is one more than the number
of variables closed over."
(get-closure-length x))
(defun get-lowtag (x)
- "Returns the three-bit lowtag for the object X."
+ _N"Returns the three-bit lowtag for the object X."
(get-lowtag x))
(defun get-type (x)
- "Returns the 8-bit header type for the object X."
+ _N"Returns the 8-bit header type for the object X."
(get-type x))
(defun vector-sap (x)
- "Return a System-Area-Pointer pointing to the data for the vector X, which
+ _N"Return a System-Area-Pointer pointing to the data for the vector X, which
must be simple."
(declare (type (simple-unboxed-array (*)) x))
(vector-sap x))
(defun c::binding-stack-pointer-sap ()
- "Return a System-Area-Pointer pointing to the end of the binding stack."
+ _N"Return a System-Area-Pointer pointing to the end of the binding stack."
(c::binding-stack-pointer-sap))
(defun c::dynamic-space-free-pointer ()
- "Returns a System-Area-Pointer pointing to the next free work of the current
+ _N"Returns a System-Area-Pointer pointing to the next free work of the current
dynamic space."
(c::dynamic-space-free-pointer))
(defun c::control-stack-pointer-sap ()
- "Return a System-Area-Pointer pointing to the end of the control stack."
+ _N"Return a System-Area-Pointer pointing to the end of the control stack."
(c::control-stack-pointer-sap))
(defun function-subtype (function)
- "Return the header typecode for FUNCTION. Can be set with SETF."
+ _N"Return the header typecode for FUNCTION. Can be set with SETF."
(function-subtype function))
(defun (setf function-subtype) (type function)
(setf (function-subtype function) type))
(defun %function-arglist (func)
- "Extracts the arglist from the function header FUNC."
+ _N"Extracts the arglist from the function header FUNC."
(%function-arglist func))
(defun %function-name (func)
- "Extracts the name from the function header FUNC."
+ _N"Extracts the name from the function header FUNC."
(%function-name func))
(defun %function-type (func)
- "Extracts the type from the function header FUNC."
+ _N"Extracts the type from the function header FUNC."
(%function-type func))
(defun %closure-function (closure)
- "Extracts the function from CLOSURE."
+ _N"Extracts the function from CLOSURE."
(%closure-function closure))
(defun c::vector-length (vector)
- "Return the length of VECTOR. There is no reason to use this, 'cause
+ _N"Return the length of VECTOR. There is no reason to use this, 'cause
(length (the vector foo)) is the same."
(c::vector-length vector))
(defun %sxhash-simple-string (string)
- "Return the SXHASH for the simple-string STRING."
+ _N"Return the SXHASH for the simple-string STRING."
(%sxhash-simple-string string))
(defun %sxhash-simple-substring (string length)
- "Return the SXHASH for the first LENGTH characters of the simple-string
+ _N"Return the SXHASH for the first LENGTH characters of the simple-string
STRING."
(%sxhash-simple-substring string length))
(defun %closure-index-ref (closure index)
- "Extract the INDEXth slot from CLOSURE."
+ _N"Extract the INDEXth slot from CLOSURE."
(%closure-index-ref closure index))
(defun allocate-vector (type length words)
- "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and
+ _N"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and
WORDS words long. Note: it is your responsibility to assure that the
relation between LENGTH and WORDS is correct."
(allocate-vector type length words))
(defun make-array-header (type rank)
- "Allocate an array header with type code TYPE and rank RANK."
+ _N"Allocate an array header with type code TYPE and rank RANK."
(make-array-header type rank))
(defun code-instructions (code-obj)
- "Return a SAP pointing to the instructions part of CODE-OBJ."
+ _N"Return a SAP pointing to the instructions part of CODE-OBJ."
(code-instructions code-obj))
(defun code-header-ref (code-obj index)
- "Extract the INDEXth element from the header of CODE-OBJ. Can be set with
+ _N"Extract the INDEXth element from the header of CODE-OBJ. Can be set with
setf."
(code-header-ref code-obj index))
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.7 src/i18n/locale/cmucl.pot:1.1.2.8
--- src/i18n/locale/cmucl.pot:1.1.2.7 Tue Feb 9 15:07:04 2010
+++ src/i18n/locale/cmucl.pot Tue Feb 9 15:23:02 2010
@@ -73,6 +73,125 @@
msgid "_@ is a reserved reader macro prefix."
msgstr ""
+#: target:code/kernel.lisp
+msgid ""
+"Return the 24 bits of data in the header of object X, which must be an\n"
+" other-pointer object."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Sets the 24 bits of data in the header of object X (which must be an\n"
+" other-pointer object) to VAL."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns the length of the closure X. This is one more than the number\n"
+" of variables closed over."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the three-bit lowtag for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the 8-bit header type for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return a System-Area-Pointer pointing to the data for the vector X, which\n"
+" must be simple."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns a System-Area-Pointer pointing to the next free work of the current\n"
+" dynamic space."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the control stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the header typecode for FUNCTION. Can be set with SETF."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the arglist from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the name from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the type from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the function from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the length of VECTOR. There is no reason to use this, 'cause\n"
+" (length (the vector foo)) is the same."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the SXHASH for the simple-string STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the SXHASH for the first LENGTH characters of the simple-string\n"
+" STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extract the INDEXth slot from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
+" WORDS words long. Note: it is your responsibility to assure that the\n"
+" relation between LENGTH and WORDS is correct."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Allocate an array header with type code TYPE and rank RANK."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Extract the INDEXth element from the header of CODE-OBJ. Can be set with\n"
+" setf."
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "Help! "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid " nested errors. "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
+msgstr ""
+
#: target:code/fwrappers.lisp
msgid ""
"A funcallable instance used to implement fwrappers.\n"
@@ -1234,11 +1353,11 @@
msgid "Too many arguments."
msgstr ""
-#: target:code/byte-interp.lisp
+#: target:code/interr.lisp target:code/byte-interp.lisp
msgid "Odd number of keyword arguments."
msgstr ""
-#: target:code/byte-interp.lisp
+#: target:code/interr.lisp target:code/byte-interp.lisp
msgid "Unknown keyword: ~S"
msgstr ""
@@ -1604,6 +1723,133 @@
" created. Both arrays must have the same rank and dimensions."
msgstr ""
+#: target:code/hash-new.lisp
+msgid "Structure used to implement hash tables."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Almost-Primify returns an almost prime number greater than or equal\n"
+" to NUM."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Define a new kind of hash table test."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Creates and returns a new hash table. The keywords are as follows:\n"
+" :TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,\n"
+" and EQUALP are currently supported.\n"
+" :SIZE -- A hint as to how many elements will be put in this hash\n"
+" table.\n"
+" :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
+" If an integer, add space for that many elements. If a floating\n"
+" point number (which must be greater than 1.0), multiple the size\n"
+" by that amount.\n"
+" :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
+" forcing a rehash. Can be any positive number <= to 1, with density\n"
+" approaching zero as the threshold approaches 0. Density 1 means an\n"
+" average of one entry per bucket.\n"
+" CMUCL Extension:\n"
+" :WEAK-P -- Weak hash table. Can only be used when the key is 'eq or "
+"'eql.\n"
+" An entry in the table is remains if the condition holds:\n"
+"\n"
+" :KEY -- key is referenced elsewhere\n"
+" :VALUE -- value is referenced elsewhere\n"
+" :KEY-AND-VALUE -- key and value are referenced elsewhere\n"
+" :KEY-OR-VALUE -- key or value is referenced elsewhere\n"
+"\n"
+" If the condition does not hold, the entry is removed. For\n"
+" backward compatibility, a value of T is the same as :KEY."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Returns the number of entries in the given HASH-TABLE."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-size HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-threshold HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
+" table that can hold however many entries HASH-TABLE can hold without\n"
+" having to be grown."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the test HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return T if HASH-TABLE will not keep entries for keys that would\n"
+" otherwise be garbage, and NIL if it will."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
+" value and T as multiple values, or returns DEFAULT and NIL if there is "
+"no\n"
+" such entry. Entries can be added using SETF."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Remove the entry in HASH-TABLE associated with KEY. Returns T if there\n"
+" was such an entry, and NIL if not."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+" itself."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+" itself, shrinking the size to free memory."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
+" of the entry; returns NIL."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
+" provides a method of manually looping over the elements of a hash-table.\n"
+" FUNCTION is bound to a generator-macro that, within the scope of the\n"
+" invocation, returns one or three values. The first value tells whether\n"
+" any objects remain in the hash table. When the first value is non-NIL, \n"
+" the second and third values are the key and the value of the next "
+"object."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "What kind of instance is this?"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Computes a hash code for S-EXPR and returns it as an integer."
+msgstr ""
+
#: target:code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr ""
@@ -1797,6 +2043,244 @@
" (= x (float (rationalize x) x))"
msgstr ""
+#: target:code/irrat.lisp
+msgid "Return e raised to the power NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "The absolute value of ~S exceeds limit ~S."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns BASE raised to the POWER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the square root of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns the absolute value of the number."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Returns the angle part of the polar representation of a complex number.\n"
+" For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
+" For non-complex positive numbers, this is 0. For non-complex negative\n"
+" numbers this is PI."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Argument to CIS is complex: ~S"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute 2^N * X without compute 2^N first (use properties of the\n"
+"underlying floating-point format"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Same as logb but X is not infinity and non-zero and not a NaN, so\n"
+"that we can always return an integer"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
+"For the special cases, the following values are used:\n"
+"\n"
+" x logb\n"
+" NaN NaN\n"
+" +/- infinity +infinity\n"
+" 0 -infinity\n"
+""
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Create complex number with real part X and imaginary part Y such that\n"
+"it has the same type as Z. If Z has type (complex rational), the X\n"
+"and Y are coerced to single-float."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Principle square root of Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute log(2^j*z).\n"
+"\n"
+"This is for use with J /= 0 only when |z| is huge."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Log of Z = log |Z| + i * arg Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute tanh z = sinh z / cosh z"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acos z = pi/2 - asin z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asin z = asinh(i*z)/i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asinh z = log(z + sqrt(1 + z*z))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute atan z = atanh (i*z) / i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute tan z = -i * tanh(i * z)\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(most-positive-double-double-float)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(least-positive-double-double-float"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Log base 2 of e"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log2(e)-1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/4"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Sqrt(1/2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "exp(x) - 1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "396 (hex) digits of 2/pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Overflow"
+msgstr ""
+
#: target:code/char.lisp
msgid "The upper exclusive bound on values produced by CHAR-CODE."
msgstr ""
@@ -2591,6 +3075,42 @@
" generation. See the gencgc source code for more info."
msgstr ""
+#: target:code/format.lisp
+msgid ""
+"Provides various facilities for formatting output.\n"
+" CONTROL-STRING contains a string to be output, possibly with embedded\n"
+" directives, which are flagged with the escape character \"~\". Directives\n"
+" generally expand into additional text to be output, usually consuming one\n"
+" or more of the FORMAT-ARGUMENTS in the process. A few useful directives\n"
+" are:\n"
+" ~A or ~nA Prints one argument as if by PRINC\n"
+" ~S or ~nS Prints one argument as if by PRIN1\n"
+" ~D or ~nD Prints one argument as a decimal integer\n"
+" ~% Does a TERPRI\n"
+" ~& Does a FRESH-LINE\n"
+"\n"
+" where n is the width of the field in which the object is printed.\n"
+" \n"
+" DESTINATION controls where the result will go. If DESTINATION is T, then\n"
+" the output is sent to the standard output stream. If it is NIL, then the\n"
+" output is returned in a string as the value of the call. Otherwise,\n"
+" DESTINATION must be a stream to which the output will be sent.\n"
+"\n"
+" Example: (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\"\n"
+"\n"
+" FORMAT has many additional capabilities not described here. Consult\n"
+" Section 22.3 (Formatted Output) of the ANSI Common Lisp standard for\n"
+" details."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal ones-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal tens-place digits in English"
+msgstr ""
+
#: target:code/backq.lisp
msgid "How deep we are into backquotes"
msgstr ""
@@ -3327,6 +3847,64 @@
msgid "Returns all of the elements of List, in order, as values."
msgstr ""
+#: target:code/interr.lisp
+msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to THROW to a tag that does not exist: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Function with declared result type NIL returned:~% ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Undefined foreign symbol: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"The maximum number of nested errors allowed. Internal errors are\n"
+" double-counted."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "The current number of nested errors."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown internal error, ~D? args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Internal error ~D: ~A. args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<A control stack overflow has occurred: ~\n"
+" the program has entered the yellow control stack guard zone. ~\n"
+" Please note that you will be returned to the Top-Level if you ~\n"
+" enter the red control stack guard zone while debugging.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Fatal control stack overflow. You have entered~%~\n"
+" the red control stack guard zone while debugging.~%~\n"
+" Returning to Top-Level.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
+" Only a small amount of dynamic space is available now.~%~\n"
+" Please note that you will be returned to the Top-Level "
+"without~%~\n"
+" warning if you run out of space while debugging.~@:>~%"
+msgstr ""
+
#: target:code/debug-int.lisp
msgid ""
"All debug-conditions inherit from this type. These are serious conditions\n"
@@ -4548,6 +5126,163 @@
msgid "File does not exist: ~A."
msgstr ""
+#: target:code/internet.lisp
+msgid "AList of socket kinds and protocol values."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Invalid kind (~S) for internet domain sockets."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a host-entry for the given host. The host may be an address\n"
+" string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error creating socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to path ~a: ~a"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error listening to socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error accepting a connection: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "bind Socket to (local) Host and Port"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "The host may be an address string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A:~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Get an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Set an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~S setting socket option on socket ~D."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error closing socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Return the peer host address and port in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting peer host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting socket host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Ignore it"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error recving oob data on ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "No oob handler defined for ~S on ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Got a SIGURG, but couldn't find any out-of-band data."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove any handlers for CHAR on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove all handlers for FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error sending ~S OOB to across ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix recvfrom call. Returns three values:\n"
+"bytecount, source address as integer, and source port. bytecount\n"
+"can of course be negative, to indicate faults."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "A packaging of the unix sendto call. Return value like sendto"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix shutdown call. An error is signaled if shutdown "
+"fails."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error on shutdown of socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a network stream. HOST may be an address string or an integer\n"
+"IP address."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host format: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection to ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection from ~D.~D.~D.~D:~D"
+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.7 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.8
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.7 Tue Feb 9 15:07:04 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Tue Feb 9 15:23:02 2010
@@ -72,6 +72,125 @@
msgid "_@ is a reserved reader macro prefix."
msgstr ""
+#: target:code/kernel.lisp
+msgid ""
+"Return the 24 bits of data in the header of object X, which must be an\n"
+" other-pointer object."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Sets the 24 bits of data in the header of object X (which must be an\n"
+" other-pointer object) to VAL."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns the length of the closure X. This is one more than the number\n"
+" of variables closed over."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the three-bit lowtag for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Returns the 8-bit header type for the object X."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return a System-Area-Pointer pointing to the data for the vector X, which\n"
+" must be simple."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Returns a System-Area-Pointer pointing to the next free work of the current\n"
+" dynamic space."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a System-Area-Pointer pointing to the end of the control stack."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the header typecode for FUNCTION. Can be set with SETF."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the arglist from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the name from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the type from the function header FUNC."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extracts the function from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the length of VECTOR. There is no reason to use this, 'cause\n"
+" (length (the vector foo)) is the same."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return the SXHASH for the simple-string STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Return the SXHASH for the first LENGTH characters of the simple-string\n"
+" STRING."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Extract the INDEXth slot from CLOSURE."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
+" WORDS words long. Note: it is your responsibility to assure that the\n"
+" relation between LENGTH and WORDS is correct."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Allocate an array header with type code TYPE and rank RANK."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
+msgstr ""
+
+#: target:code/kernel.lisp
+msgid ""
+"Extract the INDEXth element from the header of CODE-OBJ. Can be set with\n"
+" setf."
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "Help! "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid " nested errors. "
+msgstr ""
+
+#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
+msgstr ""
+
#: target:code/fwrappers.lisp
msgid ""
"A funcallable instance used to implement fwrappers.\n"
@@ -1233,11 +1352,11 @@
msgid "Too many arguments."
msgstr ""
-#: target:code/byte-interp.lisp
+#: target:code/interr.lisp target:code/byte-interp.lisp
msgid "Odd number of keyword arguments."
msgstr ""
-#: target:code/byte-interp.lisp
+#: target:code/interr.lisp target:code/byte-interp.lisp
msgid "Unknown keyword: ~S"
msgstr ""
@@ -1605,6 +1724,132 @@
" created. Both arrays must have the same rank and dimensions."
msgstr ""
+#: target:code/hash-new.lisp
+msgid "Structure used to implement hash tables."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Almost-Primify returns an almost prime number greater than or equal\n"
+" to NUM."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Define a new kind of hash table test."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Creates and returns a new hash table. The keywords are as follows:\n"
+" :TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,\n"
+" and EQUALP are currently supported.\n"
+" :SIZE -- A hint as to how many elements will be put in this hash\n"
+" table.\n"
+" :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
+" If an integer, add space for that many elements. If a floating\n"
+" point number (which must be greater than 1.0), multiple the size\n"
+" by that amount.\n"
+" :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
+" forcing a rehash. Can be any positive number <= to 1, with density\n"
+" approaching zero as the threshold approaches 0. Density 1 means an\n"
+" average of one entry per bucket.\n"
+" CMUCL Extension:\n"
+" :WEAK-P -- Weak hash table. Can only be used when the key is 'eq or "
+"'eql.\n"
+" An entry in the table is remains if the condition holds:\n"
+"\n"
+" :KEY -- key is referenced elsewhere\n"
+" :VALUE -- value is referenced elsewhere\n"
+" :KEY-AND-VALUE -- key and value are referenced elsewhere\n"
+" :KEY-OR-VALUE -- key or value is referenced elsewhere\n"
+"\n"
+" If the condition does not hold, the entry is removed. For\n"
+" backward compatibility, a value of T is the same as :KEY."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Returns the number of entries in the given HASH-TABLE."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-size HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the rehash-threshold HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
+" table that can hold however many entries HASH-TABLE can hold without\n"
+" having to be grown."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Return the test HASH-TABLE was created with."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Return T if HASH-TABLE will not keep entries for keys that would\n"
+" otherwise be garbage, and NIL if it will."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
+" value and T as multiple values, or returns DEFAULT and NIL if there is "
+"no\n"
+" such entry. Entries can be added using SETF."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"Remove the entry in HASH-TABLE associated with KEY. Returns T if there\n"
+" was such an entry, and NIL if not."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+" itself."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"This removes all the entries from HASH-TABLE and returns the hash table\n"
+" itself, shrinking the size to free memory."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
+" of the entry; returns NIL."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid ""
+"WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
+" provides a method of manually looping over the elements of a hash-table.\n"
+" FUNCTION is bound to a generator-macro that, within the scope of the\n"
+" invocation, returns one or three values. The first value tells whether\n"
+" any objects remain in the hash table. When the first value is non-NIL, \n"
+" the second and third values are the key and the value of the next object."
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "What kind of instance is this?"
+msgstr ""
+
+#: target:code/hash-new.lisp
+msgid "Computes a hash code for S-EXPR and returns it as an integer."
+msgstr ""
+
#: target:code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr ""
@@ -1799,6 +2044,243 @@
" (= x (float (rationalize x) x))"
msgstr ""
+#: target:code/irrat.lisp
+msgid "Return e raised to the power NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "The absolute value of ~S exceeds limit ~S."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns BASE raised to the POWER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the square root of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Returns the absolute value of the number."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Returns the angle part of the polar representation of a complex number.\n"
+" For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
+" For non-complex positive numbers, this is 0. For non-complex negative\n"
+" numbers this is PI."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Argument to CIS is complex: ~S"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc sine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc cosine of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid "Return the hyperbolic arc tangent of NUMBER."
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute 2^N * X without compute 2^N first (use properties of the\n"
+"underlying floating-point format"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Same as logb but X is not infinity and non-zero and not a NaN, so\n"
+"that we can always return an integer"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
+"For the special cases, the following values are used:\n"
+"\n"
+" x logb\n"
+" NaN NaN\n"
+" +/- infinity +infinity\n"
+" 0 -infinity\n"
+msgstr ""
+
+#: target:code/irrat.lisp
+msgid ""
+"Create complex number with real part X and imaginary part Y such that\n"
+"it has the same type as Z. If Z has type (complex rational), the X\n"
+"and Y are coerced to single-float."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Principle square root of Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute log(2^j*z).\n"
+"\n"
+"This is for use with J /= 0 only when |z| is huge."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Log of Z = log |Z| + i * arg Z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid "Compute tanh z = sinh z / cosh z"
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acos z = pi/2 - asin z\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asin z = asinh(i*z)/i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute asinh z = log(z + sqrt(1 + z*z))\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute atan z = atanh (i*z) / i\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp target:code/irrat.lisp
+msgid ""
+"Compute tan z = -i * tanh(i * z)\n"
+"\n"
+"Z may be any number, but the result is always a complex."
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(most-positive-double-double-float)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(least-positive-double-double-float"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log(2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Log base 2 of e"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "log2(e)-1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/2"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Pi/4"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Sqrt(1/2)"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "exp(x) - 1"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "396 (hex) digits of 2/pi"
+msgstr ""
+
+#: target:code/irrat-dd.lisp
+msgid "Overflow"
+msgstr ""
+
#: target:code/char.lisp
msgid "The upper exclusive bound on values produced by CHAR-CODE."
msgstr ""
@@ -2606,6 +3088,43 @@
" generation. See the gencgc source code for more info."
msgstr ""
+#: target:code/format.lisp
+msgid ""
+"Provides various facilities for formatting output.\n"
+" CONTROL-STRING contains a string to be output, possibly with embedded\n"
+" directives, which are flagged with the escape character \"~\". "
+"Directives\n"
+" generally expand into additional text to be output, usually consuming one\n"
+" or more of the FORMAT-ARGUMENTS in the process. A few useful directives\n"
+" are:\n"
+" ~A or ~nA Prints one argument as if by PRINC\n"
+" ~S or ~nS Prints one argument as if by PRIN1\n"
+" ~D or ~nD Prints one argument as a decimal integer\n"
+" ~% Does a TERPRI\n"
+" ~& Does a FRESH-LINE\n"
+"\n"
+" where n is the width of the field in which the object is printed.\n"
+" \n"
+" DESTINATION controls where the result will go. If DESTINATION is T, then\n"
+" the output is sent to the standard output stream. If it is NIL, then the\n"
+" output is returned in a string as the value of the call. Otherwise,\n"
+" DESTINATION must be a stream to which the output will be sent.\n"
+"\n"
+" Example: (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\"\n"
+"\n"
+" FORMAT has many additional capabilities not described here. Consult\n"
+" Section 22.3 (Formatted Output) of the ANSI Common Lisp standard for\n"
+" details."
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal ones-place digits in English"
+msgstr ""
+
+#: target:code/format.lisp
+msgid "Table of ordinal tens-place digits in English"
+msgstr ""
+
#: target:code/backq.lisp
msgid "How deep we are into backquotes"
msgstr ""
@@ -3341,6 +3860,64 @@
msgid "Returns all of the elements of List, in order, as values."
msgstr ""
+#: target:code/interr.lisp
+msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Attempt to THROW to a tag that does not exist: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Function with declared result type NIL returned:~% ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Undefined foreign symbol: ~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"The maximum number of nested errors allowed. Internal errors are\n"
+" double-counted."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "The current number of nested errors."
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Unknown internal error, ~D? args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid "Internal error ~D: ~A. args=~S"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<A control stack overflow has occurred: ~\n"
+" the program has entered the yellow control stack guard zone. ~\n"
+" Please note that you will be returned to the Top-Level if you ~\n"
+" enter the red control stack guard zone while debugging.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Fatal control stack overflow. You have entered~%~\n"
+" the red control stack guard zone while debugging.~%~\n"
+" Returning to Top-Level.~@:>~2%"
+msgstr ""
+
+#: target:code/interr.lisp
+msgid ""
+"~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
+" Only a small amount of dynamic space is available now.~%~\n"
+" Please note that you will be returned to the Top-Level without~%"
+"~\n"
+" warning if you run out of space while debugging.~@:>~%"
+msgstr ""
+
#: target:code/debug-int.lisp
msgid ""
"All debug-conditions inherit from this type. These are serious conditions\n"
@@ -4562,6 +5139,163 @@
msgid "File does not exist: ~A."
msgstr ""
+#: target:code/internet.lisp
+msgid "AList of socket kinds and protocol values."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Invalid kind (~S) for internet domain sockets."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a host-entry for the given host. The host may be an address\n"
+" string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error creating socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to path ~a: ~a"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error listening to socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error accepting a connection: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "bind Socket to (local) Host and Port"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "The host may be an address string or an IP address in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error connecting socket to [~A:~A]: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Get an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Set an integer value socket option."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~S setting socket option on socket ~D."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error closing socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Return the peer host address and port in host order."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting peer host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error ~s getting socket host and port on FD ~d."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Ignore it"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error recving oob data on ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "No oob handler defined for ~S on ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Got a SIGURG, but couldn't find any out-of-band data."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove any handlers for CHAR on FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Remove all handlers for FD."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error sending ~S OOB to across ~A: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix recvfrom call. Returns three values:\n"
+"bytecount, source address as integer, and source port. bytecount\n"
+"can of course be negative, to indicate faults."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "A packaging of the unix sendto call. Return value like sendto"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"A packaging of the unix shutdown call. An error is signaled if shutdown "
+"fails."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Error on shutdown of socket: ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid ""
+"Return a network stream. HOST may be an address string or an integer\n"
+"IP address."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "Unknown host format: ~S."
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection to ~A"
+msgstr ""
+
+#: target:code/internet.lisp
+msgid "network connection from ~D.~D.~D.~D:~D"
+msgstr ""
+
#: target:code/defstruct.lisp
msgid ""
"Controls compiling DEFSTRUCT :print-function and :print-method\n"
More information about the cmucl-commit
mailing list