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