CMUCL commit: intl-branch src (8 files)
Raymond Toy
rtoy at common-lisp.net
Wed Feb 10 03:22:10 CET 2010
Date: Tuesday, February 9, 2010 @ 21:22:10
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/room.lisp code/run-program.lisp code/sap.lisp code/save.lisp
code/scavhook.lisp code/search-list.lisp i18n/locale/cmucl.pot
i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
code/room.lisp | 62 +-
code/run-program.lisp | 60 +-
code/sap.lisp | 44 -
code/save.lisp | 49 +-
code/scavhook.lisp | 10
code/search-list.lisp | 18
i18n/locale/cmucl.pot | 824 ++++++++++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 824 ++++++++++++++++++++++++++++++++++
8 files changed, 1772 insertions(+), 119 deletions(-)
Index: src/code/room.lisp
diff -u src/code/room.lisp:1.37.10.1 src/code/room.lisp:1.37.10.2
--- src/code/room.lisp:1.37.10.1 Mon Feb 8 12:15:49 2010
+++ src/code/room.lisp Tue Feb 9 21:22:09 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/room.lisp,v 1.37.10.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/room.lisp,v 1.37.10.2 2010-02-10 02:22:09 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -491,7 +491,7 @@
(summary-totals (cons sum v))))
summary)
- (format t "~2&Summary of spaces: ~(~{~A ~}~)~%" spaces)
+ (format t _"~2&Summary of spaces: ~(~{~A ~}~)~%" spaces)
(let ((summary-total-bytes 0)
(summary-total-objects 0))
(declare (type memory-size summary-total-bytes summary-total-objects))
@@ -509,7 +509,7 @@
(incf total-bytes (first total))
(incf total-objects (second total))
(spaces (cons (car space-total) (first total)))))
- (format t "~%~A:~% ~:D bytes, ~:D object~:P"
+ (format t _"~%~A:~% ~:D bytes, ~:D object~:P"
name total-bytes total-objects)
(dolist (space (spaces))
(format t ", ~D% ~(~A~)"
@@ -518,7 +518,7 @@
(format t ".~%")
(incf summary-total-bytes total-bytes)
(incf summary-total-objects total-objects))))
- (format t "~%Summary total:~% ~:D bytes, ~:D objects.~%"
+ (format t _"~%Summary total:~% ~:D bytes, ~:D objects.~%"
summary-total-bytes summary-total-objects)))))
@@ -528,7 +528,7 @@
;;;
(defun report-space-total (space-total cutoff)
(declare (list space-total) (type (or single-float null) cutoff))
- (format t "~2&Breakdown for ~(~A~) space:~%" (car space-total))
+ (format t _"~2&Breakdown for ~(~A~) space:~%" (car space-total))
(let* ((types (cdr space-total))
(total-bytes (reduce #'+ (mapcar #'first types)))
(total-objects (reduce #'+ (mapcar #'second types)))
@@ -541,15 +541,15 @@
(type memory-size total-bytes reported-bytes))
(loop for (bytes objects name) in types do
(when (<= bytes cutoff-point)
- (format t " ~13:D bytes for ~9:D other object~2:*~P.~%"
+ (format t _" ~13:D bytes for ~9:D other object~2:*~P.~%"
(- total-bytes reported-bytes)
(- total-objects reported-objects))
(return))
(incf reported-bytes bytes)
(incf reported-objects objects)
- (format t " ~13:D bytes for ~9:D ~(~A~) object~2:*~P.~%"
+ (format t _" ~13:D bytes for ~9:D ~(~A~) object~2:*~P.~%"
bytes objects name))
- (format t " ~13:D bytes for ~9:D ~(~A~) object~2:*~P (space total.)~%"
+ (format t _" ~13:D bytes for ~9:D ~(~A~) object~2:*~P (space total.)~%"
total-bytes total-objects (car space-total))))
@@ -557,7 +557,7 @@
;;;
(defun memory-usage (&key print-spaces (count-spaces '(:dynamic))
(print-summary t) cutoff)
- "Print out information about the heap memory in use. :Print-Spaces is a list
+ _N"Print out information about the heap memory in use. :Print-Spaces is a list
of the spaces to print detailed information for. :Count-Spaces is a list of
the spaces to scan. For either one, T means all spaces (:Static, :Dyanmic
and :Read-Only.) If :Print-Summary is true, then summary information will be
@@ -585,7 +585,7 @@
;;; COUNT-NO-OPS -- Public
;;;
(defun count-no-ops (space)
- "Print info about how much code and no-ops there are in Space."
+ _N"Print info about how much code and no-ops there are in Space."
(declare (type spaces space))
(let ((code-words 0)
(no-ops 0)
@@ -607,7 +607,7 @@
space)
(format t
- "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+ _"~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
total-bytes code-words no-ops
(round (* no-ops 100) code-words)))
@@ -686,11 +686,11 @@
#.scavenger-hook-type)
(incf descriptor-words (truncate size word-bytes)))
(t
- (error "Bogus type: ~D" type))))
+ (error _"Bogus type: ~D" type))))
space))
- (format t "~:D words allocated for descriptor objects.~%"
+ (format t _"~:D words allocated for descriptor objects.~%"
descriptor-words)
- (format t "~:D bytes data/~:D words header for non-descriptor objects.~%"
+ (format t _"~:D bytes data/~:D words header for non-descriptor objects.~%"
non-descriptor-bytes non-descriptor-headers)
(values)))
@@ -699,10 +699,10 @@
;;;
(defun instance-usage (space &key (top-n 15))
(declare (type spaces space) (type (or fixnum null) top-n))
- "Print a breakdown by instance type of all the instances allocated in
+ _N"Print a breakdown by instance type of all the instances allocated in
Space. If TOP-N is true, print only information for the the TOP-N types with
largest usage."
- (format t "~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)
+ (format t _"~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)
(let ((totals (make-hash-table :test #'eq))
(total-objects 0)
(total-bytes 0))
@@ -740,16 +740,16 @@
(objects (cadr what)))
(incf printed-bytes bytes)
(incf printed-objects objects)
- (format t " ~32A: ~7:D bytes, ~5D object~:P.~%" (car what)
+ (format t _" ~32A: ~7:D bytes, ~5D object~:P.~%" (car what)
bytes objects)))
(let ((residual-objects (- total-objects printed-objects))
(residual-bytes (- total-bytes printed-bytes)))
(unless (zerop residual-objects)
- (format t " Other types: ~:D bytes, ~D: object~:P.~%"
+ (format t _" Other types: ~:D bytes, ~D: object~:P.~%"
residual-bytes residual-objects))))
- (format t " ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"
+ (format t _" ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"
space total-bytes total-objects)))
(values))
@@ -759,7 +759,7 @@
;;;
(defun find-holes (&rest spaces)
(dolist (space (or spaces '(:read-only :static :dynamic)))
- (format t "In ~A space:~%" space)
+ (format t _"In ~A space:~%" space)
(let ((start-addr nil)
(total-bytes 0))
(declare (type (or null (unsigned-byte 32)) start-addr)
@@ -776,11 +776,11 @@
(setf start-addr (di::get-lisp-obj-address object)
total-bytes bytes))
(when start-addr
- (format t "~D bytes at #x~X~%" total-bytes start-addr)
+ (format t _"~D bytes at #x~X~%" total-bytes start-addr)
(setf start-addr nil))))
space)
(when start-addr
- (format t "~D bytes at #x~X~%" total-bytes start-addr))))
+ (format t _"~D bytes at #x~X~%" total-bytes start-addr))))
(values))
@@ -973,7 +973,7 @@
(c::debug-source-name source)
"FROM LISP")))
(t
- (warn "No source for ~S" obj)
+ (warn _"No source for ~S" obj)
"NO SOURCE")))
"UNKNOWN"))
(file-info (or (gethash file pkg-info)
@@ -998,12 +998,12 @@
(loop for (pkg (pkg-count . pkg-size) . files) in
(sort res #'> :key #'(lambda (x) (cdr (second x)))) do
- (format t "~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"
+ (format t _"~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"
pkg pkg-size pkg-count)
(when (eq how :file)
(loop for (file (file-count . file-size)) in
(sort files #'> :key #'(lambda (x) (cdr (second x)))) do
- (format t "~30 at A: ~9:D bytes, ~9:D object~:P.~%"
+ (format t _"~30 at A: ~9:D bytes, ~9:D object~:P.~%"
(file-namestring file) file-size file-count))))))
(values))
@@ -1046,7 +1046,7 @@
#+nil
(defun report-histogram (table &key (low 1) (high 20) (bucket-size 1)
(function #'identity))
- "Given a hashtable, print a histogram of the contents. Function should give
+ _N"Given a hashtable, print a histogram of the contents. Function should give
the value to plot when applied to the hashtable values."
(let ((function (if (eval:interpreted-function-p function)
(compile nil function)
@@ -1056,7 +1056,7 @@
(hist:hist-record (funcall function count))))))
(defun report-top-n (table &key (top-n 20) (function #'identity))
- "Report the Top-N entries in the hashtable Table, when sorted by Function
+ _N"Report the Top-N entries in the hashtable Table, when sorted by Function
applied to the hash value. If Top-N is NIL, report all entries."
(let ((function (if (eval:interpreted-function-p function)
(compile nil function)
@@ -1080,9 +1080,9 @@
(let ((residual (- (total-val) printed)))
(unless (zerop residual)
- (format t "~8:D: Other~%" residual))))
+ (format t _"~8:D: Other~%" residual))))
- (format t "~8:D: Total~%" (total-val))))
+ (format t _"~8:D: Total~%" (total-val))))
(values))
@@ -1107,7 +1107,7 @@
(defun find-caller-counts (space)
- "Return a hashtable mapping each function in for which a call appears in
+ _N"Return a hashtable mapping each function in for which a call appears in
Space to the number of times such a call appears."
(let ((counts (make-hash-table :test #'eq)))
(map-allocated-objects
@@ -1122,7 +1122,7 @@
counts))
(defun find-high-callers (space &key (above 10) table (threshold 2))
- "Return a hashtable translating code objects to function constant counts for
+ _N"Return a hashtable translating code objects to function constant counts for
all code objects in Space with more than Above function constants."
(let ((counts (make-hash-table :test #'eq)))
(map-allocated-objects
Index: src/code/run-program.lisp
diff -u src/code/run-program.lisp:1.28.12.1 src/code/run-program.lisp:1.28.12.2
--- src/code/run-program.lisp:1.28.12.1 Mon Feb 8 12:15:49 2010
+++ src/code/run-program.lisp Tue Feb 9 21:22:09 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/run-program.lisp,v 1.28.12.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/run-program.lisp,v 1.28.12.2 2010-02-10 02:22:09 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -40,7 +40,7 @@
(defconstant wait-wstopped #-svr4 #o177 #+svr4 wait-wuntraced))
(defun wait3 (&optional do-not-hang check-for-stopped)
- "Return any available status information on child processed. "
+ _N"Return any available status information on child processed. "
(multiple-value-bind (pid status)
(c-wait3 (logior (if do-not-hang
wait-wnohang
@@ -78,7 +78,7 @@
;;;; Process control stuff.
(defvar *active-processes* nil
- "List of process structures for all active processes.")
+ _N"List of process structures for all active processes.")
(defstruct (process (:print-function %print-process))
pid ; PID of child process.
@@ -103,7 +103,7 @@
;;; PROCESS-STATUS -- Public.
;;;
(defun process-status (proc)
- "Return the current status of process. The result is one of :running,
+ _N"Return the current status of process. The result is one of :running,
:stopped, :exited, :signaled."
(declare (type process proc))
(get-processes-status-changes)
@@ -113,7 +113,7 @@
;;; PROCESS-WAIT -- Public.
;;;
(defun process-wait (proc &optional check-for-stopped)
- "Wait for PROC to quit running for some reason. Returns PROC."
+ _N"Wait for PROC to quit running for some reason. Returns PROC."
(declare (type process proc))
(loop
(case (process-status proc)
@@ -141,7 +141,7 @@
unix:TIOCGPGRP
(alien:alien-sap (alien:addr result)))
(unless wonp
- (error "TIOCPGRP ioctl failed: ~S"
+ (error _"TIOCPGRP ioctl failed: ~S"
(unix:get-unix-error-msg error)))
result))
(process-pid proc))
@@ -152,7 +152,7 @@
;;; Hand a process a signal.
;;;
(defun process-kill (proc signal &optional (whom :pid))
- "Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If
+ _N"Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If
whom is :process-group, use the killpg Unix system call. If whom is
:pty-process-group deliver the signal to whichever process group is currently
in the foreground."
@@ -194,7 +194,7 @@
;;; Returns T if the process is still alive, NIL otherwise.
;;;
(defun process-alive-p (proc)
- "Returns T if the process is still alive, NIL otherwise."
+ _N"Returns T if the process is still alive, NIL otherwise."
(declare (type process proc))
(let ((status (process-status proc)))
(if (or (eq status :running)
@@ -207,7 +207,7 @@
;;; Close all the streams held open by PROC.
;;;
(defun process-close (proc)
- "Close all streams connected to PROC and stop maintaining the status slot."
+ _N"Close all streams connected to PROC and stop maintaining the status slot."
(declare (type process proc))
(macrolet ((frob (stream abort)
`(when ,stream (close ,stream :abort ,abort))))
@@ -253,11 +253,11 @@
;;;; RUN-PROGRAM and close friends.
(defvar *close-on-error* nil
- "List of file descriptors to close when RUN-PROGRAM exits due to an error.")
+ _N"List of file descriptors to close when RUN-PROGRAM exits due to an error.")
(defvar *close-in-parent* nil
- "List of file descriptors to close when RUN-PROGRAM returns in the parent.")
+ _N"List of file descriptors to close when RUN-PROGRAM returns in the parent.")
(defvar *handlers-installed* nil
- "List of handlers installed by RUN-PROGRAM.")
+ _N"List of handlers installed by RUN-PROGRAM.")
;;; FIND-A-PTY -- internal
@@ -268,7 +268,7 @@
;;;
#-irix
(defun find-a-pty ()
- "Returns the master fd, the slave fd, and the name of the tty"
+ _N"Returns the master fd, the slave fd, and the name of the tty"
(multiple-value-bind (error master-fd slave-fd)
(unix:unix-openpty nil nil nil)
(when (zerop error)
@@ -287,7 +287,7 @@
(values master-fd
slave-fd
(unix:unix-ttyname slave-fd))))
- (error "Could not find a pty.")))
+ (error _"Could not find a pty.")))
#+irix
(alien:def-alien-routine ("_getpty" c-getpty) c-call:c-string
@@ -298,7 +298,7 @@
#+irix
(defun find-a-pty ()
- "Returns the master fd, the slave fd, and the name of the tty"
+ _N"Returns the master fd, the slave fd, and the name of the tty"
(multiple-value-bind (line master-fd)
(c-getpty (logior unix:o_rdwr unix:o_ndelay) #o600 0)
(let* ((slave-name line)
@@ -321,7 +321,7 @@
slave-fd
slave-name))))
(unix:unix-close master-fd))
- (error "Could not find a pty."))
+ (error _"Could not find a pty."))
;;; OPEN-PTY -- internal
;;;
@@ -335,7 +335,7 @@
(when (streamp pty)
(multiple-value-bind (new-fd errno) (unix:unix-dup master)
(unless new-fd
- (error "Could not UNIX:UNIX-DUP ~D: ~A"
+ (error _"Could not UNIX:UNIX-DUP ~D: ~A"
master (unix:get-unix-error-msg errno)))
(push new-fd *close-on-error*)
(copy-descriptor-to-stream new-fd pty cookie)))
@@ -455,7 +455,7 @@
&key (env *environment-list*) (wait t) pty input
if-input-does-not-exist output (if-output-exists :error)
(error :output) (if-error-exists :error) status-hook)
- "RUN-PROGRAM creates a new process and runs the unix program in the
+ _N"RUN-PROGRAM creates a new process and runs the unix program in the
file specified by the simple-string PROGRAM. ARGS are the standard
arguments that can be passed to a Unix program, for no arguments
use NIL (which means just the name of the program is passed as arg 0).
@@ -512,7 +512,7 @@
(system:enable-interrupt unix:sigchld #'sigchld-handler)
;; Make sure all the args are okay.
(unless (every #'simple-string-p args)
- (error "All args to program must be simple strings -- ~S." args))
+ (error _"All args to program must be simple strings -- ~S." args))
;; Pre-pend the program to the argument list.
(push (namestring program) args)
;; Clear random specials used by GET-DESCRIPTOR-FOR to communicate cleanup
@@ -522,7 +522,7 @@
(let ((pfile (unix-namestring (merge-pathnames program "path:") t t))
(cookie (list 0)))
(unless pfile
- (error "No such program: ~S" program))
+ (error _"No such program: ~S" program))
(multiple-value-bind
(stdin input-stream)
(get-descriptor-for input cookie :direction :input
@@ -558,7 +558,7 @@
(spawn pfile argv envp pty-name
stdin stdout stderr))))
(when (< child-pid 0)
- (error "Could not fork child process: ~A"
+ (error _"Could not fork child process: ~A"
(unix:get-unix-error-msg)))
(setf proc (make-process :pid child-pid
:%status :running
@@ -601,7 +601,7 @@
(unix:unix-select (1+ descriptor) (ash 1 descriptor)
0 0 0)
(cond ((null result)
- (error "Could not select on sub-process: ~A"
+ (error _"Could not select on sub-process: ~A"
(unix:get-unix-error-msg readable/errno)))
((zerop result)
(return))))
@@ -621,7 +621,7 @@
(system:remove-fd-handler handler)
(setf handler nil)
(decf (car cookie))
- (error "Could not read input from sub-process: ~A"
+ (error _"Could not read input from sub-process: ~A"
(unix:get-unix-error-msg errno)))
(t
#-unicode
@@ -659,7 +659,7 @@
(t unix:o_rdwr))
#o666)
(unless fd
- (error "Could not open \"/dev/null\": ~A"
+ (error _"Could not open \"/dev/null\": ~A"
(unix:get-unix-error-msg errno)))
(push fd *close-in-parent*)
(values fd nil)))
@@ -668,7 +668,7 @@
(read-fd write-fd)
(unix:unix-pipe)
(unless read-fd
- (error "Could not create pipe: ~A"
+ (error _"Could not create pipe: ~A"
(unix:get-unix-error-msg write-fd)))
(case direction
(:input
@@ -684,7 +684,7 @@
(t
(unix:unix-close read-fd)
(unix:unix-close write-fd)
- (error "Direction must be either :INPUT or :OUTPUT, not ~S"
+ (error _"Direction must be either :INPUT or :OUTPUT, not ~S"
direction)))))
((or (pathnamep object) (stringp object))
(with-open-stream (file (apply #'open object keys))
@@ -695,7 +695,7 @@
(push fd *close-in-parent*)
(values fd nil))
(t
- (error "Could not duplicate file descriptor: ~A"
+ (error _"Could not duplicate file descriptor: ~A"
(unix:get-unix-error-msg errno)))))))
((system:fd-stream-p object)
(values (system:fd-stream-fd object) nil))
@@ -704,7 +704,7 @@
(:input
(dotimes (count
256
- (error "Could not open a temporary file in /tmp"))
+ (error _"Could not open a temporary file in /tmp"))
(let* ((name (format nil "/tmp/.run-program-~D" count))
(fd (unix:unix-open name
(logior unix:o_rdwr
@@ -731,12 +731,12 @@
(multiple-value-bind (read-fd write-fd)
(unix:unix-pipe)
(unless read-fd
- (error "Cound not create pipe: ~A"
+ (error _"Cound not create pipe: ~A"
(unix:get-unix-error-msg write-fd)))
(copy-descriptor-to-stream read-fd object cookie)
(push read-fd *close-on-error*)
(push write-fd *close-in-parent*)
(values write-fd nil)))))
(t
- (error "Invalid option to run-program: ~S" object))))
+ (error _"Invalid option to run-program: ~S" object))))
Index: src/code/sap.lisp
diff -u src/code/sap.lisp:1.21.2.1 src/code/sap.lisp:1.21.2.2
--- src/code/sap.lisp:1.21.2.1 Mon Feb 8 12:15:49 2010
+++ src/code/sap.lisp Tue Feb 9 21:22:09 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/sap.lisp,v 1.21.2.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/sap.lisp,v 1.21.2.2 2010-02-10 02:22:09 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -36,122 +36,122 @@
;;;; Primitive SAP operations.
(defun sap< (x y)
- "Return T iff the SAP X points to a smaller address then the SAP Y."
+ _N"Return T iff the SAP X points to a smaller address then the SAP Y."
(declare (type system-area-pointer x y))
(sap< x y))
(defun sap<= (x y)
- "Return T iff the SAP X points to a smaller or the same address as
+ _N"Return T iff the SAP X points to a smaller or the same address as
the SAP Y."
(declare (type system-area-pointer x y))
(sap<= x y))
(defun sap= (x y)
- "Return T iff the SAP X points to the same address as the SAP Y."
+ _N"Return T iff the SAP X points to the same address as the SAP Y."
(declare (type system-area-pointer x y))
(sap= x y))
(defun sap>= (x y)
- "Return T iff the SAP X points to a larger or the same address as
+ _N"Return T iff the SAP X points to a larger or the same address as
the SAP Y."
(declare (type system-area-pointer x y))
(sap>= x y))
(defun sap> (x y)
- "Return T iff the SAP X points to a larger address then the SAP Y."
+ _N"Return T iff the SAP X points to a larger address then the SAP Y."
(declare (type system-area-pointer x y))
(sap> x y))
(defun sap+ (sap offset)
- "Return a new sap OFFSET bytes from SAP."
+ _N"Return a new sap OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
(sap+ sap offset))
(defun sap- (sap1 sap2)
- "Return the byte offset between SAP1 and SAP2."
+ _N"Return the byte offset between SAP1 and SAP2."
(declare (type system-area-pointer sap1 sap2))
(sap- sap1 sap2))
(defun sap-int (sap)
- "Converts a System Area Pointer into an integer."
+ _N"Converts a System Area Pointer into an integer."
(declare (type system-area-pointer sap))
(sap-int sap))
(defun int-sap (int)
- "Converts an integer into a System Area Pointer."
+ _N"Converts an integer into a System Area Pointer."
(declare (type (unsigned-byte #-alpha #.vm:word-bits #+alpha 64) int))
(int-sap int))
(defun sap-ref-8 (sap offset)
- "Returns the 8-bit byte at OFFSET bytes from SAP."
+ _N"Returns the 8-bit byte at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
(sap-ref-8 sap offset))
(defun sap-ref-16 (sap offset)
- "Returns the 16-bit word at OFFSET bytes from SAP."
+ _N"Returns the 16-bit word at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.(1- vm:word-bits) #+alpha 63) offset))
(sap-ref-16 sap offset))
(defun sap-ref-32 (sap offset)
- "Returns the 32-bit dualword at OFFSET bytes from SAP."
+ _N"Returns the 32-bit dualword at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(sap-ref-32 sap offset))
(defun sap-ref-64 (sap offset)
- "Returns the 64-bit quadword at OFFSET bytes from SAP."
+ _N"Returns the 64-bit quadword at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(sap-ref-64 sap offset))
(defun sap-ref-sap (sap offset)
- "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+ _N"Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
(sap-ref-sap sap offset))
(defun sap-ref-single (sap offset)
- "Returns the 32-bit single-float at OFFSET bytes from SAP."
+ _N"Returns the 32-bit single-float at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(sap-ref-single sap offset))
(defun sap-ref-double (sap offset)
- "Returns the 64-bit double-float at OFFSET bytes from SAP."
+ _N"Returns the 64-bit double-float at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(sap-ref-double sap offset))
#+(or x86 long-float)
(defun sap-ref-long (sap offset)
- "Returns the long-float at OFFSET bytes from SAP."
+ _N"Returns the long-float at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(sap-ref-long sap offset))
(defun signed-sap-ref-8 (sap offset)
- "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+ _N"Returns the signed 8-bit byte at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.vm:word-bits #+alpha 64) offset))
(signed-sap-ref-8 sap offset))
(defun signed-sap-ref-16 (sap offset)
- "Returns the signed 16-bit word at OFFSET bytes from SAP."
+ _N"Returns the signed 16-bit word at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(type (signed-byte #-alpha #.(1- vm:word-bits) #+alpha 63) offset))
(signed-sap-ref-16 sap offset))
(defun signed-sap-ref-32 (sap offset)
- "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+ _N"Returns the signed 32-bit dualword at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(signed-sap-ref-32 sap offset))
(defun signed-sap-ref-64 (sap offset)
- "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+ _N"Returns the signed 64-bit quadword at OFFSET bytes from SAP."
(declare (type system-area-pointer sap)
(fixnum offset))
(signed-sap-ref-64 sap offset))
Index: src/code/save.lisp
diff -u src/code/save.lisp:1.65.4.2 src/code/save.lisp:1.65.4.3
--- src/code/save.lisp:1.65.4.2 Tue Feb 9 18:40:35 2010
+++ src/code/save.lisp Tue Feb 9 21:22:09 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/save.lisp,v 1.65.4.2 2010-02-09 23:40:35 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.65.4.3 2010-02-10 02:22:09 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -26,23 +26,23 @@
(in-package "LISP")
(defvar *before-save-initializations* nil
- "This is a list of functions which are called before creating a saved core
+ _N"This is a list of functions which are called before creating a saved core
image. These functions are executed in the child process which has no ports,
so they cannot do anything that tries to talk to the outside world.")
(defvar *after-save-initializations* nil
- "This is a list of functions which are called when a saved core image starts
+ _N"This is a list of functions which are called when a saved core image starts
up. The system itself should be initialized at this point, but applications
might not be.")
(defvar *environment-list* nil
- "An alist mapping environment variables (as keywords) to either values")
+ _N"An alist mapping environment variables (as keywords) to either values")
(defvar *environment-list-initialized* nil
- "Non-NIL if environment-init has been called")
+ _N"Non-NIL if environment-init has been called")
(defvar *editor-lisp-p* nil
- "This is true if and only if the lisp was started with the -edit switch.")
+ _N"This is true if and only if the lisp was started with the -edit switch.")
@@ -150,7 +150,7 @@
#+:executable
(executable nil)
(batch-mode nil))
- "Saves a CMU Common Lisp core image in the file of the specified name. The
+ _N"Saves a CMU Common Lisp core image in the file of the specified name. The
following keywords are defined:
:purify
@@ -202,7 +202,7 @@
(unless (probe-file (directory-namestring core-file-name))
(error 'simple-file-error
- :format-control "Directory ~S does not exist"
+ :format-control _"Directory ~S does not exist"
:format-arguments (list (directory-namestring core-file-name))))
#+mp (mp::shutdown-multi-processing)
@@ -229,7 +229,7 @@
(setq ext:*batch-mode* (if batch-mode t nil))
(labels
((%restart-lisp ()
- (with-simple-restart (abort "Skip remaining initializations.")
+ (with-simple-restart (abort _"Skip remaining initializations.")
(catch 'top-level-catcher
(reinit)
(environment-init)
@@ -284,7 +284,7 @@
(handler-case
(%restart-lisp)
(error (cond)
- (format *error-output* "Error in batch processing:~%~A~%"
+ (format *error-output* _"Error in batch processing:~%~A~%"
cond)
(throw '%end-of-the-world 1)))
(%restart-lisp))
@@ -310,7 +310,7 @@
;;;; PRINT-HERALD support.
(defvar *herald-items* ()
- "Determines what PRINT-HERALD prints (the system startup banner.) This is a
+ _N"Determines what PRINT-HERALD prints (the system startup banner.) This is a
database which can be augmented by each loaded system. The format is a
property list which maps from subsystem names to the banner information for
that system. This list can be manipulated with GETF -- entries are printed
@@ -323,7 +323,8 @@
`("CMU Common Lisp "
,#'(lambda (stream)
(write-string (lisp-implementation-version) stream))
- ", running on "
+ ,#'(lambda (stream)
+ (write-string _", running on " stream))
,#'(lambda (stream) (write-string (machine-instance) stream))
terpri
,#'(lambda (stream)
@@ -334,29 +335,33 @@
*cmucl-core-dump-time*
nil)))
(when core
- (write-string "With core: " stream)
+ (write-string _"With core: " stream)
(write-line (namestring core) stream))
(when dump-time
- (write-string "Dumped on: " stream)
+ (write-string _"Dumped on: " stream)
(ext:format-universal-time stream dump-time :style :iso8601)
- (write-string " on " stream)
+ (write-string _" on " stream)
(write-line *cmucl-core-dump-host* stream))))
))
(setf (getf *herald-items* :bugs)
- '("See <http://www.cons.org/cmucl/> for support information."
+ `(,#'(lambda (stream)
+ (write-string _"See <http://www.cons.org/cmucl/> for support information." stream))
terpri
- "Loaded subsystems:"))
+ ,#'(lambda (stream)
+ (write-string _"Loaded subsystems:" stream))))
#+unicode
(setf (getf *herald-items* :unicode)
- `(" Unicode "
+ `(,#'(lambda (stream)
+ (write-string _" Unicode " stream))
,(if (and (boundp 'lisp::*unidata-version*)
(>= (length lisp::*unidata-version*) 11))
(subseq lisp::*unidata-version* 11
(1- (length lisp::*unidata-version*)))
" ")
- "with Unicode version "
+ ,#'(lambda (stream)
+ (write-string _"with Unicode version " stream))
,#'(lambda (stream)
(princ lisp::+unicode-major-version+ stream)
(write-char #\. stream)
@@ -368,7 +373,7 @@
;;; PRINT-HERALD -- Public
;;;
(defun print-herald (&optional (stream *standard-output*))
- "Print some descriptive information about the Lisp system version and
+ _N"Print some descriptive information about the Lisp system version and
configuration."
(let ((res ()))
(do ((item *herald-items* (cddr item)))
@@ -385,7 +390,7 @@
((or symbol cons)
(funcall (fdefinition thing) stream))
(t
- (error "Unrecognized *HERALD-ITEMS* entry: ~S." thing))))
+ (error _"Unrecognized *HERALD-ITEMS* entry: ~S." thing))))
(fresh-line stream)))
(values))
@@ -395,7 +400,7 @@
(defun assert-user-package ()
(unless (eq *package* (find-package "CL-USER"))
- (error "Change *PACKAGE* to the USER package and try again.")))
+ (error _"Change *PACKAGE* to the USER package and try again.")))
;;; MAYBE-BYTE-LOAD -- Interface
;;;
Index: src/code/scavhook.lisp
diff -u src/code/scavhook.lisp:1.4.54.1 src/code/scavhook.lisp:1.4.54.2
--- src/code/scavhook.lisp:1.4.54.1 Mon Feb 8 12:15:49 2010
+++ src/code/scavhook.lisp Tue Feb 9 21:22:10 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/scavhook.lisp,v 1.4.54.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/scavhook.lisp,v 1.4.54.2 2010-02-10 02:22:10 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -24,11 +24,11 @@
(progn
(defun scavenger-hook-p (object)
- "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+ _N"Returns T if OBJECT is a scavenger-hook, and NIL if not."
(scavenger-hook-p object))
(defun make-scavenger-hook (&key value (function (required-argument)))
- "Create a new scavenger-hook with the specified VALUE and FUNCTION. For
+ _N"Create a new scavenger-hook with the specified VALUE and FUNCTION. For
as long as the scavenger-hook is alive, the scavenger in the garbage
collector will note whenever VALUE is moved, and arrange for FUNCTION
to be funcalled."
@@ -36,7 +36,7 @@
(c::%make-scavenger-hook value function))
(defun scavenger-hook-value (scavhook)
- "Returns the VALUE being monitored by SCAVHOOK. Can be setf."
+ _N"Returns the VALUE being monitored by SCAVHOOK. Can be setf."
(declare (type scavenger-hook scavhook))
(scavenger-hook-value scavhook))
@@ -45,7 +45,7 @@
(setf (scavenger-hook-value scavhook) value))
(defun scavenger-hook-function (scavhook)
- "Returns the FUNCTION invoked when the monitored value is moved. Can be
+ _N"Returns the FUNCTION invoked when the monitored value is moved. Can be
setf."
(declare (type scavenger-hook scavhook))
(scavenger-hook-function scavhook))
Index: src/code/search-list.lisp
diff -u src/code/search-list.lisp:1.4.56.1 src/code/search-list.lisp:1.4.56.2
--- src/code/search-list.lisp:1.4.56.1 Mon Feb 8 12:15:49 2010
+++ src/code/search-list.lisp Tue Feb 9 21:22:10 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/search-list.lisp,v 1.4.56.1 2010-02-08 17:15:49 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/search-list.lisp,v 1.4.56.2 2010-02-10 02:22:10 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -26,20 +26,20 @@
(defun search-list (name)
- "Returns a list of strings that are the of name.
+ _N"Returns a list of strings that are the of name.
This is setf'able. If any provided string in a setting value
does end with a colon or slash, a slash is added. Also, the
list is copied."
(let ((dev (pathname-device name)))
- (unless dev (error "No device in ~S." name))
+ (unless dev (error _"No device in ~S." name))
(copy-list (gethash dev *search-list-table*))))
(defun %set-search-list (name new-value)
(unless (listp new-value)
- (error "New value for search-list ~S not a list -- ~S."
+ (error _"New value for search-list ~S not a list -- ~S."
name new-value))
(let ((dev (pathname-device name)))
- (unless dev (error "No device in ~S." name))
+ (unless dev (error _"No device in ~S." name))
(nstring-downcase dev)
(setf (gethash dev *search-list-table*)
(mapcar #'(lambda (x)
@@ -55,7 +55,7 @@
(defun resolve-search-list (name first-only-p)
- "This takes a Sesame search-list name (\"default\") instead of the form
+ _N"This takes a Sesame search-list name (\"default\") instead of the form
taken by SEARCH-LIST (\"default:\"). If first-only-p is non-nil, then
only the first complete expansion of name is returned. If, during the
expansion of name, an undefined search list is encountered, an error
@@ -90,7 +90,7 @@
(if pos
(let ((dev (nstring-downcase (subseq ,element 0 pos))))
(if (gethash dev *rsl-circularity-check*)
- (error "Circularity in search list -- ~S." dev)
+ (error _"Circularity in search list -- ~S." dev)
(setf (gethash dev *rsl-circularity-check*) t))
(let ((res (resolve-search-list-aux dev ,first-only-p)))
(remhash dev *rsl-circularity-check*)
@@ -98,7 +98,7 @@
(if (= (the fixnum pos) (the fixnum (1- len)))
,expanded-form
,concat-form)
- (error "Undefined search list -- ~S"
+ (error _"Undefined search list -- ~S"
(subseq ,element 0 (1+ pos))))))
,already-form)))
) ; eval-when
@@ -130,7 +130,7 @@
nil entry (nconc result res)
(nconc result (rsl-concat res (subseq entry (1+ pos) len)))
(nconc result (list entry))))))
- (error "Undefined search list -- ~S"
+ (error _"Undefined search list -- ~S"
(concatenate 'simple-string dev ":")))))
;;; RSL-FIRST takes a possible expansion and resolves it if necessary.
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.11 src/i18n/locale/cmucl.pot:1.1.2.12
--- src/i18n/locale/cmucl.pot:1.1.2.11 Tue Feb 9 20:53:31 2010
+++ src/i18n/locale/cmucl.pot Tue Feb 9 21:22:10 2010
@@ -1342,6 +1342,94 @@
"incremental redefinition of callback functions."
msgstr ""
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a smaller or the same address as\n"
+" the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to the same address as the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a larger or the same address as\n"
+" the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a larger address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return a new sap OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return the byte offset between SAP1 and SAP2."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts a System Area Pointer into an integer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts an integer into a System Area Pointer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the long-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
#: target:code/bit-bash.lisp
msgid "The number of bits to process at a time."
msgstr ""
@@ -3584,6 +3672,146 @@
msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
msgstr ""
+#: target:code/room.lisp
+msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%~A:~% ~:D bytes, ~:D object~:P"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&Breakdown for ~(~A~) space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D other object~2:*~P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D ~(~A~) object~2:*~P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D ~(~A~) object~2:*~P (space total.)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print out information about the heap memory in use. :Print-Spaces is a "
+"list\n"
+" of the spaces to print detailed information for. :Count-Spaces is a list "
+"of\n"
+" the spaces to scan. For either one, T means all spaces (:Static, :Dyanmic"
+"\n"
+" and :Read-Only.) If :Print-Summary is true, then summary information "
+"will be\n"
+" printed. The defaults print only summary information for dynamic space.\n"
+" If true, Cutoff is a fraction of the usage in a report below which types "
+"will\n"
+" be combined as OTHER."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Print info about how much code and no-ops there are in Space."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Bogus type: ~D"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D words allocated for descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print a breakdown by instance type of all the instances allocated in\n"
+" Space. If TOP-N is true, print only information for the the TOP-N types "
+"with\n"
+" largest usage."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~32A: ~7:D bytes, ~5D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " Other types: ~:D bytes, ~D: object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "In ~A space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~D bytes at #x~X~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "No source for ~S"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~30 at A: ~9:D bytes, ~9:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Given a hashtable, print a histogram of the contents. Function should give\n"
+" the value to plot when applied to the hashtable values."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Report the Top-N entries in the hashtable Table, when sorted by Function\n"
+" applied to the hash value. If Top-N is NIL, report all entries."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Other~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Total~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable mapping each function in for which a call appears in\n"
+" Space to the number of times such a call appears."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable translating code objects to function constant counts for\n"
+" all code objects in Space with more than Above function constants."
+msgstr ""
+
#: target:code/gc.lisp
msgid "Oh no. The current dynamic space is missing!"
msgstr ""
@@ -3787,6 +4015,28 @@
msgid "Done.]"
msgstr ""
+#: target:code/scavhook.lisp
+msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Create a new scavenger-hook with the specified VALUE and FUNCTION. For\n"
+" as long as the scavenger-hook is alive, the scavenger in the garbage\n"
+" collector will note whenever VALUE is moved, and arrange for FUNCTION\n"
+" to be funcalled."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns the VALUE being monitored by SCAVHOOK. Can be setf."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Returns the FUNCTION invoked when the monitored value is moved. Can be\n"
+" setf."
+msgstr ""
+
#: target:code/save.lisp
msgid ""
"This is a list of functions which are called before creating a saved core\n"
@@ -4992,6 +5242,304 @@
" found instead of describing them."
msgstr ""
+#: target:code/reader.lisp
+msgid "Float format for 1.0E1"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Variable bound to current readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unexpected EOF on ~S ~A."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Standard lisp readtable. This is for recovery from broken\n"
+" read-tables, and should not normally be user-visible."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Readtable is a data structure that maps characters into syntax\n"
+" types for the Common Lisp expression reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Value of *package* at the start of the last read or Nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Undefined read-macro character ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A copy is made of from-readtable and place into to-readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes the syntax of to-char to be the same as from-char in the \n"
+" optional readtable (defaults to the current readtable). The\n"
+" from-table defaults the standard lisp readtable by being nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to be a macro character which invokes function when\n"
+" seen by the reader. The non-terminatingp flag can be used to\n"
+" make the macro character non-terminating. The optional readtable\n"
+" argument defaults to the current readtable. Set-macro-character\n"
+" returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the function associated with the specified char which is a macro\n"
+" character. The optional readtable argument defaults to the current\n"
+" readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Bind *read-buffer* to a fresh buffer and execute Body."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"If true, only warn when there is an extra close paren, otherwise error."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads from stream and returns the object read, preserving the whitespace\n"
+" that followed the object."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads in the next object in the stream, which defaults to\n"
+" *standard-input*. For details see the I/O chapter of\n"
+" the manual."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads objects from input-stream until the next character after an\n"
+" object's representation is endchar. A list of those objects read\n"
+" is returned."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears before . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears after . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "More than one object follows . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Ignoring unmatched close parenthesis~\n"
+" ~@[ at file position ~D~]."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unmatched close parenthesis."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside extended token"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "invalid constituent"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Suppresses most interpreting of the reader when T"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The radix that Lisp reads numbers in."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "impossible!"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "dot context error"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many dots"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many colons in ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after reading a colon"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "package ~S not found"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Use symbol anyway."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The symbol ~S is not external in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Symbol ~S not found in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: returns 3 values: the string for the token,\n"
+" a flag for whether there was an escape char, and the position of any\n"
+" package delimiter."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: read an extended token with the first character\n"
+" escaped. Returns the string for the token."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Holds the mapping of base to 'safe' number of digits to read for a fixnum."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Holds the largest fixnum power of the base for make-integer."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n"
+" then multiplying by a power of the base and adding."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Fast bignum-reading interface. Reads from stream S an integer in radix\n"
+"R. If we find some kind of error (bad characters, EOF), then NIL is\n"
+"returned; otherwise the number. Reads at least one digit, but may not get "
+"to\n"
+"the end of the stream."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Internal error in floating point reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Underflow"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Floating-point number not representable"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Invalid ratio: ~S/~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch function defined for ~S."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to become a dispatching macro character in readtable\n"
+" (which defaults to the current readtable). If the non-terminating-p\n"
+" flag is set to T, the char will be non-terminating. Make-dispatch-\n"
+" macro-character returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes function to be called whenever the reader reads\n"
+" disp-char followed by sub-char. Set-dispatch-macro-character\n"
+" returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "~S is not a dispatch character."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the macro character function for sub-char under disp-char\n"
+" or nil if there is no associated function."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside dispatch character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch table for dispatch char."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A resource of string streams for Read-From-String."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"The characters of string are successively given to the lisp reader\n"
+" and the lisp object built by the reader is returned. Macro chars\n"
+" will take effect."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Examine the substring of string delimited by start and end\n"
+" (default to the beginning and end of the string) It skips over\n"
+" whitespace characters and then tries to parse an integer. The\n"
+" radix parameter must be between 2 and 36."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There's junk in this string: ~S."
+msgstr ""
+
#: target:code/backq.lisp
msgid "How deep we are into backquotes"
msgstr ""
@@ -6927,6 +7475,57 @@
msgid "~S code location at ~D"
msgstr ""
+#: target:code/query.lisp
+msgid ""
+"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n"
+" until the user enters y or Y as an affirmative, or either n or N as a\n"
+" negative answer. It ignores preceding whitespace and asks again if you\n"
+" enter any other characters."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"y\" for yes or \"n\" for no. "
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n"
+" input buffer, beeps, and uses READ-LINE to get the strings \n"
+" YES or NO."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"yes\" for yes or \"no\" for no. "
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate an random state vector from the given SEED. The seed can be\n"
+" either an integer or a vector of (unsigned-byte 32)"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Make a random state object. If STATE is not supplied, return a copy\n"
+" of the default random state. If STATE is a random state, then return a\n"
+" copy of it. If STATE is T then return a random state generated from\n"
+" the universal time or /dev/urandom if available."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate a uniformly distributed pseudo-random number between zero\n"
+" and Arg. State, if supplied, is the random state to use."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a positive integer or a positive float: ~S"
+msgstr ""
+
#: target:code/ntrace.lisp
msgid ""
"This is bound to the returned values when evaluating :BREAK-AFTER and\n"
@@ -7533,6 +8132,181 @@
msgid "\"~A\" is not a recognized time/date format."
msgstr ""
+#: target:code/run-program.lisp
+msgid "Return any available status information on child processed. "
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of process structures for all active processes."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Return the current status of process. The result is one of :running,\n"
+" :stopped, :exited, :signaled."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Wait for PROC to quit running for some reason. Returns PROC."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "TIOCPGRP ioctl failed: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If\n"
+" whom is :process-group, use the killpg Unix system call. If whom is\n"
+" :pty-process-group deliver the signal to whichever process group is "
+"currently\n"
+" in the foreground."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns T if the process is still alive, NIL otherwise."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Close all streams connected to PROC and stop maintaining the status slot."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM exits due to an error."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM returns in the parent."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of handlers installed by RUN-PROGRAM."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns the master fd, the slave fd, and the name of the tty"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not find a pty."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not UNIX:UNIX-DUP ~D: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"RUN-PROGRAM creates a new process and runs the unix program in the\n"
+" file specified by the simple-string PROGRAM. ARGS are the standard\n"
+" arguments that can be passed to a Unix program, for no arguments\n"
+" use NIL (which means just the name of the program is passed as arg 0).\n"
+"\n"
+" RUN-PROGRAM will either return NIL or a PROCESS structure. See the CMU\n"
+" Common Lisp Users Manual for details about the PROCESS structure.\n"
+"\n"
+" The keyword arguments have the following meanings:\n"
+" :env -\n"
+" An A-LIST mapping keyword environment variables to simple-string\n"
+" values.\n"
+" :wait -\n"
+" If non-NIL (default), wait until the created process finishes. If\n"
+" NIL, continue running Lisp until the program finishes.\n"
+" :pty -\n"
+" Either T, NIL, or a stream. Unless NIL, the subprocess is establish"
+"ed\n"
+" under a PTY. If :pty is a stream, all output to this pty is sent to\n"
+" this stream, otherwise the PROCESS-PTY slot is filled in with a stream\n"
+" connected to pty that can read output and write input.\n"
+" :input -\n"
+" Either T, NIL, a pathname, a stream, or :STREAM. If T, the standard"
+"\n"
+" input for the current process is inherited. If NIL, /dev/null\n"
+" is used. If a pathname, the file so specified is used. If a stream,\n"
+" all the input is read from that stream and send to the subprocess. If\n"
+" :STREAM, the PROCESS-INPUT slot is filled in with a stream that sends \n"
+" its output to the process. Defaults to NIL.\n"
+" :if-input-does-not-exist (when :input is the name of a file) -\n"
+" can be one of:\n"
+" :error - generate an error.\n"
+" :create - create an empty file.\n"
+" nil (default) - return nil from run-program.\n"
+" :output -\n"
+" Either T, NIL, a pathname, a stream, or :STREAM. If T, the standard"
+"\n"
+" output for the current process is inherited. If NIL, /dev/null\n"
+" is used. If a pathname, the file so specified is used. If a stream,\n"
+" all the output from the process is written to this stream. If\n"
+" :STREAM, the PROCESS-OUTPUT slot is filled in with a stream that can\n"
+" be read to get the output. Defaults to NIL.\n"
+" :if-output-exists (when :output is the name of a file) -\n"
+" can be one of:\n"
+" :error (default) - generates an error if the file already "
+"exists.\n"
+" :supersede - output from the program supersedes the file.\n"
+" :append - output from the program is appended to the file.\n"
+" nil - run-program returns nil without doing anything.\n"
+" :error and :if-error-exists - \n"
+" Same as :output and :if-output-exists, except that :error can also "
+"be\n"
+" specified as :output in which case all error output is routed to the\n"
+" same place as normal output.\n"
+" :status-hook -\n"
+" This is a function the system calls whenever the status of the\n"
+" process changes. The function takes the process as an argument."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "All args to program must be simple strings -- ~S."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "No such program: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not fork child process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not select on sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not read input from sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open \"/dev/null\": ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not duplicate file descriptor: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open a temporary file in /tmp"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Cound not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Invalid option to run-program: ~S"
+msgstr ""
+
#: target:code/foreign.lisp
msgid "Could not create temporary file ~S: ~A"
msgstr ""
@@ -7867,6 +8641,56 @@
msgid "network connection from ~D.~D.~D.~D:~D"
msgstr ""
+#: target:code/remote.lisp
+msgid "AList of wire . remote-wait structs"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Evaluates the given forms remotly. No values are returned, as the remote\n"
+"evaluation is asyncronus."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Bind VARS to the multiple values of FORM (which is executed remotely). The\n"
+"forms in BODY are only executed if the remote function returned (as apposed\n"
+"to aborting due to a throw)."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Remote server unwound"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Execute the single form remotly. The value of the form is returned.\n"
+" The optional form on-server-unwind is only evaluated if the server "
+"unwinds\n"
+" instead of returning."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Create a request server on the given port. Whenever anyone connects to it,\n"
+" call the given function with the newly created wire and the address of "
+"the\n"
+" connector. If the function returns NIL, the connection is destroyed;\n"
+" otherwise, it is accepted. This returns a manifestation of the server "
+"that\n"
+" DESTROY-REQUEST-SERVER accepts to kill the request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Quit accepting connections to the given request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Connect to a remote request server addressed with the given host and port\n"
+" pair. This returns the created wire."
+msgstr ""
+
#: target:code/multi-proc.lisp
msgid "Return the real time in seconds."
msgstr ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.11 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.12
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.11 Tue Feb 9 20:53:31 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Tue Feb 9 21:22:10 2010
@@ -1342,6 +1342,94 @@
"incremental redefinition of callback functions."
msgstr ""
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a smaller or the same address as\n"
+" the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to the same address as the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid ""
+"Return T iff the SAP X points to a larger or the same address as\n"
+" the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return T iff the SAP X points to a larger address then the SAP Y."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return a new sap OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Return the byte offset between SAP1 and SAP2."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts a System Area Pointer into an integer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Converts an integer into a System Area Pointer."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the long-float at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
+msgstr ""
+
+#: target:code/sap.lisp
+msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
+msgstr ""
+
#: target:code/bit-bash.lisp
msgid "The number of bits to process at a time."
msgstr ""
@@ -3579,6 +3667,146 @@
msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
msgstr ""
+#: target:code/room.lisp
+msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%~A:~% ~:D bytes, ~:D object~:P"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&Breakdown for ~(~A~) space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D other object~2:*~P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D ~(~A~) object~2:*~P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~13:D bytes for ~9:D ~(~A~) object~2:*~P (space total.)~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print out information about the heap memory in use. :Print-Spaces is a "
+"list\n"
+" of the spaces to print detailed information for. :Count-Spaces is a list "
+"of\n"
+" the spaces to scan. For either one, T means all spaces (:Static, :"
+"Dyanmic\n"
+" and :Read-Only.) If :Print-Summary is true, then summary information will "
+"be\n"
+" printed. The defaults print only summary information for dynamic space.\n"
+" If true, Cutoff is a fraction of the usage in a report below which types "
+"will\n"
+" be combined as OTHER."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Print info about how much code and no-ops there are in Space."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "Bogus type: ~D"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D words allocated for descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Print a breakdown by instance type of all the instances allocated in\n"
+" Space. If TOP-N is true, print only information for the the TOP-N types "
+"with\n"
+" largest usage."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~32A: ~7:D bytes, ~5D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " Other types: ~:D bytes, ~D: object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid " ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "In ~A space:~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~D bytes at #x~X~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "No source for ~S"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~30 at A: ~9:D bytes, ~9:D object~:P.~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Given a hashtable, print a histogram of the contents. Function should give\n"
+" the value to plot when applied to the hashtable values."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Report the Top-N entries in the hashtable Table, when sorted by Function\n"
+" applied to the hash value. If Top-N is NIL, report all entries."
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Other~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid "~8:D: Total~%"
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable mapping each function in for which a call appears in\n"
+" Space to the number of times such a call appears."
+msgstr ""
+
+#: target:code/room.lisp
+msgid ""
+"Return a hashtable translating code objects to function constant counts for\n"
+" all code objects in Space with more than Above function constants."
+msgstr ""
+
#: target:code/gc.lisp
#, fuzzy
msgid "Oh no. The current dynamic space is missing!"
@@ -3797,6 +4025,28 @@
msgid "Done.]"
msgstr ""
+#: target:code/scavhook.lisp
+msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Create a new scavenger-hook with the specified VALUE and FUNCTION. For\n"
+" as long as the scavenger-hook is alive, the scavenger in the garbage\n"
+" collector will note whenever VALUE is moved, and arrange for FUNCTION\n"
+" to be funcalled."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid "Returns the VALUE being monitored by SCAVHOOK. Can be setf."
+msgstr ""
+
+#: target:code/scavhook.lisp
+msgid ""
+"Returns the FUNCTION invoked when the monitored value is moved. Can be\n"
+" setf."
+msgstr ""
+
#: target:code/save.lisp
msgid ""
"This is a list of functions which are called before creating a saved core\n"
@@ -5005,6 +5255,304 @@
" found instead of describing them."
msgstr ""
+#: target:code/reader.lisp
+msgid "Float format for 1.0E1"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Variable bound to current readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unexpected EOF on ~S ~A."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Standard lisp readtable. This is for recovery from broken\n"
+" read-tables, and should not normally be user-visible."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Readtable is a data structure that maps characters into syntax\n"
+" types for the Common Lisp expression reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Value of *package* at the start of the last read or Nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Undefined read-macro character ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A copy is made of from-readtable and place into to-readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes the syntax of to-char to be the same as from-char in the \n"
+" optional readtable (defaults to the current readtable). The\n"
+" from-table defaults the standard lisp readtable by being nil."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to be a macro character which invokes function when\n"
+" seen by the reader. The non-terminatingp flag can be used to\n"
+" make the macro character non-terminating. The optional readtable\n"
+" argument defaults to the current readtable. Set-macro-character\n"
+" returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the function associated with the specified char which is a macro\n"
+" character. The optional readtable argument defaults to the current\n"
+" readtable."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Bind *read-buffer* to a fresh buffer and execute Body."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "If true, only warn when there is an extra close paren, otherwise error."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads from stream and returns the object read, preserving the whitespace\n"
+" that followed the object."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads in the next object in the stream, which defaults to\n"
+" *standard-input*. For details see the I/O chapter of\n"
+" the manual."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Reads objects from input-stream until the next character after an\n"
+" object's representation is endchar. A list of those objects read\n"
+" is returned."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears before . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Nothing appears after . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "More than one object follows . in list."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Ignoring unmatched close parenthesis~\n"
+"\t\t ~@[ at file position ~D~]."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Unmatched close parenthesis."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside extended token"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "invalid constituent"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Suppresses most interpreting of the reader when T"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The radix that Lisp reads numbers in."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "impossible!"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "dot context error"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many dots"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "too many colons in ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after reading a colon"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "package ~S not found"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Use symbol anyway."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "The symbol ~S is not external in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Symbol ~S not found in the ~A package."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: returns 3 values: the string for the token,\n"
+" a flag for whether there was an escape char, and the position of any\n"
+" package delimiter."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"For semi-external use: read an extended token with the first character\n"
+" escaped. Returns the string for the token."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Holds the mapping of base to 'safe' number of digits to read for a fixnum."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Holds the largest fixnum power of the base for make-integer."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n"
+" then multiplying by a power of the base and adding."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Fast bignum-reading interface. Reads from stream S an integer in radix\n"
+"R. If we find some kind of error (bad characters, EOF), then NIL is\n"
+"returned; otherwise the number. Reads at least one digit, but may not get "
+"to\n"
+"the end of the stream."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Internal error in floating point reader."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Underflow"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Floating-point number not representable"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Invalid ratio: ~S/~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch function defined for ~S."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes char to become a dispatching macro character in readtable\n"
+" (which defaults to the current readtable). If the non-terminating-p\n"
+" flag is set to T, the char will be non-terminating. Make-dispatch-\n"
+" macro-character returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Causes function to be called whenever the reader reads\n"
+" disp-char followed by sub-char. Set-dispatch-macro-character\n"
+" returns T."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "~S is not a dispatch character."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Returns the macro character function for sub-char under disp-char\n"
+" or nil if there is no associated function."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "inside dispatch character"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "No dispatch table for dispatch char."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "A resource of string streams for Read-From-String."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"The characters of string are successively given to the lisp reader\n"
+" and the lisp object built by the reader is returned. Macro chars\n"
+" will take effect."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid ""
+"Examine the substring of string delimited by start and end\n"
+" (default to the beginning and end of the string) It skips over\n"
+" whitespace characters and then tries to parse an integer. The\n"
+" radix parameter must be between 2 and 36."
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: target:code/reader.lisp
+msgid "There's junk in this string: ~S."
+msgstr ""
+
#: target:code/backq.lisp
msgid "How deep we are into backquotes"
msgstr ""
@@ -6943,6 +7491,57 @@
msgid "~S code location at ~D"
msgstr ""
+#: target:code/query.lisp
+msgid ""
+"Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n"
+" until the user enters y or Y as an affirmative, or either n or N as a\n"
+" negative answer. It ignores preceding whitespace and asks again if you\n"
+" enter any other characters."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"y\" for yes or \"n\" for no. "
+msgstr ""
+
+#: target:code/query.lisp
+msgid ""
+"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n"
+" input buffer, beeps, and uses READ-LINE to get the strings \n"
+" YES or NO."
+msgstr ""
+
+#: target:code/query.lisp
+msgid "Type \"yes\" for yes or \"no\" for no. "
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate an random state vector from the given SEED. The seed can be\n"
+" either an integer or a vector of (unsigned-byte 32)"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Make a random state object. If STATE is not supplied, return a copy\n"
+" of the default random state. If STATE is a random state, then return a\n"
+" copy of it. If STATE is T then return a random state generated from\n"
+" the universal time or /dev/urandom if available."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid ""
+"Generate a uniformly distributed pseudo-random number between zero\n"
+" and Arg. State, if supplied, is the random state to use."
+msgstr ""
+
+#: target:code/rand-mt19937.lisp
+msgid "Argument is not a positive integer or a positive float: ~S"
+msgstr ""
+
#: target:code/ntrace.lisp
msgid ""
"This is bound to the returned values when evaluating :BREAK-AFTER and\n"
@@ -7549,6 +8148,181 @@
msgid "\"~A\" is not a recognized time/date format."
msgstr ""
+#: target:code/run-program.lisp
+msgid "Return any available status information on child processed. "
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of process structures for all active processes."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Return the current status of process. The result is one of :running,\n"
+" :stopped, :exited, :signaled."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Wait for PROC to quit running for some reason. Returns PROC."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "TIOCPGRP ioctl failed: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If\n"
+" whom is :process-group, use the killpg Unix system call. If whom is\n"
+" :pty-process-group deliver the signal to whichever process group is "
+"currently\n"
+" in the foreground."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns T if the process is still alive, NIL otherwise."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"Close all streams connected to PROC and stop maintaining the status slot."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM exits due to an error."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"List of file descriptors to close when RUN-PROGRAM returns in the parent."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "List of handlers installed by RUN-PROGRAM."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Returns the master fd, the slave fd, and the name of the tty"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not find a pty."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not UNIX:UNIX-DUP ~D: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid ""
+"RUN-PROGRAM creates a new process and runs the unix program in the\n"
+" file specified by the simple-string PROGRAM. ARGS are the standard\n"
+" arguments that can be passed to a Unix program, for no arguments\n"
+" use NIL (which means just the name of the program is passed as arg 0).\n"
+"\n"
+" RUN-PROGRAM will either return NIL or a PROCESS structure. See the CMU\n"
+" Common Lisp Users Manual for details about the PROCESS structure.\n"
+"\n"
+" The keyword arguments have the following meanings:\n"
+" :env -\n"
+" An A-LIST mapping keyword environment variables to simple-string\n"
+"\tvalues.\n"
+" :wait -\n"
+" If non-NIL (default), wait until the created process finishes. If\n"
+" NIL, continue running Lisp until the program finishes.\n"
+" :pty -\n"
+" Either T, NIL, or a stream. Unless NIL, the subprocess is "
+"established\n"
+"\tunder a PTY. If :pty is a stream, all output to this pty is sent to\n"
+"\tthis stream, otherwise the PROCESS-PTY slot is filled in with a stream\n"
+"\tconnected to pty that can read output and write input.\n"
+" :input -\n"
+" Either T, NIL, a pathname, a stream, or :STREAM. If T, the "
+"standard\n"
+"\tinput for the current process is inherited. If NIL, /dev/null\n"
+"\tis used. If a pathname, the file so specified is used. If a stream,\n"
+"\tall the input is read from that stream and send to the subprocess. If\n"
+"\t:STREAM, the PROCESS-INPUT slot is filled in with a stream that sends \n"
+"\tits output to the process. Defaults to NIL.\n"
+" :if-input-does-not-exist (when :input is the name of a file) -\n"
+" can be one of:\n"
+" :error - generate an error.\n"
+" :create - create an empty file.\n"
+" nil (default) - return nil from run-program.\n"
+" :output -\n"
+" Either T, NIL, a pathname, a stream, or :STREAM. If T, the "
+"standard\n"
+"\toutput for the current process is inherited. If NIL, /dev/null\n"
+"\tis used. If a pathname, the file so specified is used. If a stream,\n"
+"\tall the output from the process is written to this stream. If\n"
+"\t:STREAM, the PROCESS-OUTPUT slot is filled in with a stream that can\n"
+"\tbe read to get the output. Defaults to NIL.\n"
+" :if-output-exists (when :output is the name of a file) -\n"
+" can be one of:\n"
+" :error (default) - generates an error if the file already "
+"exists.\n"
+" :supersede - output from the program supersedes the file.\n"
+" :append - output from the program is appended to the file.\n"
+" nil - run-program returns nil without doing anything.\n"
+" :error and :if-error-exists - \n"
+" Same as :output and :if-output-exists, except that :error can also "
+"be\n"
+"\tspecified as :output in which case all error output is routed to the\n"
+"\tsame place as normal output.\n"
+" :status-hook -\n"
+" This is a function the system calls whenever the status of the\n"
+" process changes. The function takes the process as an argument."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "All args to program must be simple strings -- ~S."
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "No such program: ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not fork child process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not select on sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not read input from sub-process: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open \"/dev/null\": ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not duplicate file descriptor: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Could not open a temporary file in /tmp"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Cound not create pipe: ~A"
+msgstr ""
+
+#: target:code/run-program.lisp
+msgid "Invalid option to run-program: ~S"
+msgstr ""
+
#: target:code/foreign.lisp
msgid "Could not create temporary file ~S: ~A"
msgstr ""
@@ -7885,6 +8659,56 @@
msgid "network connection from ~D.~D.~D.~D:~D"
msgstr ""
+#: target:code/remote.lisp
+msgid "AList of wire . remote-wait structs"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Evaluates the given forms remotly. No values are returned, as the remote\n"
+"evaluation is asyncronus."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Bind VARS to the multiple values of FORM (which is executed remotely). The\n"
+"forms in BODY are only executed if the remote function returned (as apposed\n"
+"to aborting due to a throw)."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Remote server unwound"
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Execute the single form remotly. The value of the form is returned.\n"
+" The optional form on-server-unwind is only evaluated if the server "
+"unwinds\n"
+" instead of returning."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Create a request server on the given port. Whenever anyone connects to it,\n"
+" call the given function with the newly created wire and the address of "
+"the\n"
+" connector. If the function returns NIL, the connection is destroyed;\n"
+" otherwise, it is accepted. This returns a manifestation of the server "
+"that\n"
+" DESTROY-REQUEST-SERVER accepts to kill the request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid "Quit accepting connections to the given request server."
+msgstr ""
+
+#: target:code/remote.lisp
+msgid ""
+"Connect to a remote request server addressed with the given host and port\n"
+" pair. This returns the created wire."
+msgstr ""
+
#: target:code/multi-proc.lisp
msgid "Return the real time in seconds."
msgstr ""
More information about the cmucl-commit
mailing list